1 :
1 :
03/03/16 18:28 ID:vOOsWTxU #================================
# スレッドの説明
#================================
「スクリプトを改造したいけどやりかたわかんないよー」という人がいましたら
ここで聞いてください。ひょっとしたらアドバイス出来るかもしれません。
質問するときは以下の点に注意して書いて下さい
(1) そのスクリプトの内容と置いてある場所を明記する (txtファイルでUPすればなお良い)
(2) どんな風に改造して欲しいのか? (完成イメージHTMLを用意すればなお良し)
(3) 出来るだけ詳しく書くこと。少しは自分で考えること。できれば御礼も言ったほうが良い
※答えてくれないからといって逆ギレする厨はお断り
#================================
# 過去のスレッド
#================================
【PART1】行方不明
【PART2】
http://pc.2ch.net/test/read.cgi/perl/986986227/ 【PART3】
http://pc.2ch.net/php/kako/988/988808396.html (HTML化済み)
2 :
AR :03/03/16 18:32 ID:vOOsWTxU
PART5での続き・・。 All Clear (^-^)v > () と名前のところにそのALL Clearとでて文字のところに()とでます。 後その自分の発言を削除を押した後発言をするとAll Clear (^-^)v > () が消えてしまいます。 援助お願いします。
3 :
前田 :03/03/16 18:42 ID:KSrtergb
>>2 sub deleteme{
#自分の発言消去
open (IO,"+<$logfile");
eval{flock(IO,2)};
while (<IO>){
if ($_ =~ /<>$ip/){
@y2=split(/<>/,$_);
if ($y2[6] ne $ip){
push(@log,$_);
}else{
$y2[0] = 'All Clear (^-^)v'; #消去後の名前
$y2[5] = 'All Clear (^-^)v'; #消去後のメッセージ
push(@log,"$y2[0]<>$y2[1]<>$y2[2]<>$y2[3]<>$y2[4]<>$y2[5]<>$y2[6]<>$y2[7]<>\n");
}
}else{
push(@log,$_);
}
}
truncate(IO,0);
seek(IO,0,0);
print IO @log;
close (IO);
&reload2;
}
消去後の名前とメッセージをそれぞれ好きなのに変えれ。
消去しないほうはコメントアウトしれ。
5 :
2 :03/03/17 02:02 ID:TTdi1HRW
6 :
AR :03/03/17 13:44 ID:DC9PFXA+
7 :
nobodyさん :03/03/17 13:48 ID:VODuniq+
せっかくやってやったのに、いやですだとー?
9 :
AR :03/03/17 14:48 ID:DC9PFXA+
>>9 ふざけてんのか?
全角スペースを置き換えれって言っただろうが!
スペースが見えるエディタを使ったほうがいいね。
12 :
AR :03/03/17 18:06 ID:DC9PFXA+
>>11 スペースが見えるエディタでオススメな奴ありますか?
ちなみにいつもはメモ帳でやってます。
秀丸でも使え
14 :
nobodyさん :03/03/17 18:30 ID:E6NZQVv8
つうか大抵のエディタなら全角スペースを見えるようにできるんじゃない? とりあえず聞く前に自分で適当なエディタを探して試すべし。 (秀丸は有料だから、フリーのを……なんて質問は却下だよ)
sakura
掲示板などの最新書き込み者とか日付が表示されるページを作ったのですが、うごかないです。
#!/usr/bin/perl
#ユーザー設定
$bbs = './i-modebbs/imodebbs.dat'; #BBSログファイル
$bbsurl = '
http://www.*******/cgi/i-modebbs/imodebbs.cgi '; #BBSのURL
#設定終了
#bbsログファイル読込み#
open (BBS, "$bbs");
@bbsfile = <BBS>;
close (BBS);
($bbs_number,$bbs_date,$bbs_name,$bbs_title,$bbs_mail,$bbs_hpurl,$bbs_mhost,
$bbs_magent,$bbs_com) = split(/,/,$bbsfile[0]);
#html部分#
print <<HTML;
<html>
<head><title>掲示板</title></head>
<body>
<a href="$bbsurl">掲示板</a> [$bbs_number]<br>
[$bbs_name]<br>
[$bbs_date]
</body>
</html>
HTML
下のサイトのやつです。
ttp://xx.alpha-sv.com/vf4/cgi/update_bbs.cgi
>>17 「動かない」だけじゃわかんないよ。
「どう動かないのか」を書いてくれ。
19 :
sage :03/03/19 14:16 ID:Z36WfgQa
21 :
nobodyさん :03/03/19 14:49 ID:wSFZE8Gs
22 :
sine :03/03/19 14:58 ID:mSaoA1aL
やっぱり VBスプリクトだよね!
open (BBS, "$bbs"); @bbsfile = <BBS>; close (BBS); ($bbs_number,$bbs_date,$bbs_name,$bbs_title,$bbs_mail,$bbs_hpurl,$bbs_mhost, $bbs_magent,$bbs_com) = split(/,/,$bbsfile[0]); この中に原因があると見た!って、オリジナルのソースもわからんから 推測だけどな。
>>17 一番上の行を抜き取るならこれでいいんじゃない?
open(BBS, "$bbs");
while (<BBS>) {
($bbs_number,$bbs_date,$bbs_name,$bbs_title,$bbs_mail,$bbs_hpurl,$bbs_mhost,$bbs_magent,$bbs_com) = split(/,/);
last;
}
close(BBS);
25 :
17 :03/03/19 17:15 ID:???
やっぱエラーでちゃいます… 初心者のほう逝って勉強してきたほうがいいですよね…
ただ単にヘッダがないからエラーになってんでしょ。
もしかして、あれで全部だったのか・・・
>>20 どんなエラーが出るんだよ
お前の脳内エラーなんか知るかハゲ
>>25 print <<HTML;
の後に
>Content-type: text/html
>(空行)
>(空行)
入れてみれ
>>25 >>30 の言っていることをようく考えろよ。
CGIをまともに動かしたいんなら、ヘッダーをきちんとしなきゃな。
32 :
nobodyさん :03/03/21 02:31 ID:Q30fXesm
表示結果の部分を10コずつに分けて次のリンクで10コずつ表示させたいんですが、どうすれば良いんでしょうか?お願いします!
>>32 お願いしますって言われたって、何を改造すればいいのさ?
35 :
nobodyさん :03/03/21 03:48 ID:NS9P8WQ3
36 :
nobodyさん :03/03/21 05:15 ID:b07vwTax
>>32 とあるスクリプトの該当部分
if ($listnum > $pageview){
if ($page >= 2){
$bpage = $page - 1;
print "[<A HREF=\"$script?page=$bpage\">前のページ</A>] ";
}
if ($listnum % $pageview == 0){$lpage = int($listnum / $pageview);}
else {$lpage = int($listnum / $pageview) + 1;}
for ($i=1; $i<=$lpage; $i++){
if ($i == $page){print "<B>[$i]</B>";}
else {print "[<A HREF=\"$script?page=$i\">$i</A>]";}
}
if ($page < $lpage){
$npage = $page + 1;
print " [<A HREF=\"$script?page=$npage\">次のページ</A>]";
}
print "<BR><BR><BR>\n";
}
else {print "<BR><BR>\n";}
あとは自分の都合のいいように改造すれ
38 :
AR :03/03/22 15:47 ID:WjvvL6Ft
>>38 倍角文字が入ってる
perl -wc hoe.cgi
でエラー箇所でるからちっとは自分で調べれ・・・
>>38 お前なぁ・・・
同じこと何度目だよ?(゚Д゚#)
秀丸なら その他→ファイルタイプ別の設定→表示 で
全角空白を記号で表示 にチェック入れてみれ
できたという報告をするまで二度と来るな!
41 :
nobodyさん :03/03/22 17:57 ID:O6IB41Gf
掲示板の表示をhtml化したいんだけど、 どうやるのか見当がつかない。 なんかヒントがあったら教えてオクレ。
>>41 意味不明
ブラウザで見てるなら、普通はhtmlになってるだろ
44 :
AR :03/03/22 19:01 ID:gauSJKrI
無事できたのですが。 自分の発言を削除押したらそのメッセージがでるんですけど。 名前のところにまでそのメッセージがでます。 援助お願い致します。
>44 氏ね 二度とくんなヴォケ!
>>42 連邦の板みたいhtmlに吐き出して
負荷を減らしたいってことじゃないの?
>>42 過疎板なんだからお客さんは大切にw
意図は46が言うとうりに汲み取れるけどな〜
カルシウム取って落ち着きなさい。
htmlをファイルに書き出したいって言えばいいのに なんかこの板は質問のへたなのばかりだな
>>47 質問下手の相手をする気はねぇよ。
ただでさえ、実生活で顧客の曖昧な要求の処理に苦労してんのに、こんなとこまで来てやってられるか。
>>49 まだニュアンスとしてはわかる範囲だと思うが・・・・
>>44 の"そのメッセージ"ってのあたりになると解らんけど・・・
で、htmlとしてソースを吐こうとするのは、普通のCGIじゃ無理かと。
無論、自分で作れば問題ではない
>>49 じゃあこんなスレに出入りすんなよ。
カチンと来る気持ちもわかるが、
そうやって雰囲気悪くされるとそれも頭に来る。
というわけで、馬鹿相手にしたくないときはレスしないか、
そおれが出来ないならスレを覗かないかどっちかにしてくれ。
52 :
AR :03/03/23 13:15 ID:7sODWzUz
>>4 さん無事削除後メッセージがでました。
自分の発言を消去を押すと自分の発言した文字すべてにAll Clear (^-^)vが付いてしまうので、それを付かずに一番上に'All Clear (^-^)v'をつける改造をお願いします。
援助宜しくお願い致します。
53 :
49 :03/03/23 21:22 ID:???
>>51 ああ、すまない。確かに見ていて気持ちのいい書き込みじゃなかった。
しかしながら、
>>52 には別の意味でカチンと来てしまったよ。
ただ、こういう書き込みがあると、他の質問者もこのレベルになるんじゃないかと心配でならない。
できれば、もうちょっとマシな質問の仕方を学んで欲しいと思うのだけれども、
俺の考えることじゃないのかな。
というわけで、質問者はもう少し具体的な質問を心がけるように。 回答者ももう歩み寄ってナマアタタカイ視線の送るということで。
送りがな滅茶苦茶…逝ってきますズサー
56 :
AR :03/03/24 15:53 ID:YcFPejc4
援助お願い致します。
>>56 (3) 出来るだけ詳しく書くこと。少しは自分で考えること。できれば御礼も言ったほうが良い
~~~~~~~~~~~~~~~~~~~~~~~~~~
>56 もうくんなっつっただろうが! なぁ〜にが援助だヴォケ、稲!!
>>56 みんな君の努力の跡が見えんからこんないわれ方をするんだよ。
どんな改造をしてきたか、スクリプトをここに晒せ!
春休み突入企画!援助改造を求める子供達
ネタか電波じゃないのかと思えてきとるわけだが・・・
&jcode'convert(*value, "euc", "", "z"); #変換前 Jcode::convert(\*value, "utf-8"); #Jcode.pm変換後 &jcode'convert(*sub, "euc", "", "z"); #変換前 Jcode::convert(\*sub, "utf-8"); #変換後 文字コードをユニコードにしたいのですが、これであってますか?
>>63 Jcode::convert(\$value, "utf-8");
>>64 間違った
Jcode::convert(\$value, "utf8");
66 :
41 :03/03/26 04:41 ID:Ri6qLnoQ
表現ヘタでごめんね。 整理すると、つまり負荷負荷のために表示を.cgiではなく.htmlにしたいの。 ぐぐってみたんだけど情報が見つからなくて、 なにかヒントがあればなぁと思ってこのスレに来たんだよ。 でも慌てすぎてて舌足らずだったね。 勘弁してちょ。 もちっと自分で試行錯誤してから出直すよん。
67 :
41 :03/03/26 04:41 ID:Ri6qLnoQ
負荷負荷→負荷軽減
68 :
63 :03/03/26 05:17 ID:???
>>65 さん
ありがとうございました。この記述でちゃんとUTF-8にエンコードできました。
69 :
nobodyさん :03/03/26 16:22 ID:yvUoj8Wi
70 :
nobodyさん :03/03/26 17:24 ID:NtHaVELZ
>>69 H"の有識者が現われる前にスレ汚し。
えーと、要は、
1. H"ではログに UserAgent が残らない
2. acc.cgi をホストで判別できるように直したがダメだった
で、
Q1. ホストで何を判別したいの?
Q2. ソースを直した箇所って条件に合致した後、どんな処理をするの?
Q3. H" のリモートホストって、'pdxcgw.pdx.ne.jp' で固定なの?
Q4. どうダメだったの?いや判別できなかったんだろうけど、具体的はどーなのよ
>>66 亀レスだが、perl/CGIなら
$bbsdata = (掲示板のHTMLすべて);
open (FH, +<$filename);
print FH $bbsdata;
close(FH);
でいいんじゃないの?
73 :
69 :03/03/26 21:52 ID:???
A1.ログから出て、アクセス解析に表示されるようにしたい A2.それが分からないから困ってる。 A3.そう、固定。 A4.書き換えても変化無し、エラーも何も起きない。 以上です。
74 :
72 :03/03/26 21:54 ID:???
補足。
>>72 (書き込み処理含む)の後で、locationヘッダでhtmlに飛ばすとか。
書き込みだけCGI使うことになるから、かなりLOM多いなら有効だとオモフ。
75 :
69 :03/03/26 21:55 ID:???
>>73 でも、
>20030326124628 pdxcgw.pdx.ne.jp 210.168.199.42.1048650389 - - - "" "-" "-"
のように、UserAgent欄には表示されないが、RemoteHost欄に出てるじゃん。
UserAgent欄とRemoteHost欄に同じ"pdxcgw.pdx.ne.jp"という文字列を出したいわけ?
RemoteHostが"pdxcgw.pdx.ne.jp"なら、UserAgent欄はH" って事にしたいのかな?
見てるとイライラするね。
>>49 の気持ちが分かる(ワラ
>>69 の elsif ($ENV{'REMOTE_HOST'} eq 'pdxcgw.pdx.ne.jp') {
の中に入れないってことかなぁ。
>>73 の A4.書き換えても変化無し、エラーも何も起きない。
って具体的はどーなのよ
それとも
>>76-77 が言ってるみたいに表示だけの問題かい?
イライラしたら負けなのです。テヘテヘ ま、次の返答が来たら大体意図が解る気もするけど。 # でも大抵の質問者はその前に逃げちゃう
elsif($user_agent =~ /^PDXGW/) { を、 elsif($ENV{'REMOTE_HOST'} =~ /pdx.ne.jp/i){
>>80 . が任意の文字になるから正確には
elsif($ENV{'REMOTE_HOST'} =~ /\Qpdx.ne.jp\E/i){
か、
elsif($ENV{'REMOTE_HOST'} =~ /pdx\.ne\.jp/i){
やね・・・
マッチはするけど・・・
82 :
69 :03/03/27 13:55 ID:???
>>80 うーん、変化無しです。
H"のuser agentは
PDXGW/1.0
なんですがこれがうまく取得できていないようなんです。
これを修正する方法が1つ目
ホスト情報はしっかりと残っていて、
pdxcgw.pdx.ne.jp
で固定なので、こちらで判別するのが2つ目の方法です。
/logs/access_log.cgi
のログ内には
>20030326124628 pdxcgw.pdx.ne.jp 210.168.199.42.1048650389 - - - "" "-" "-"
の様にREMOTE HOSTだけ残っているのでなんとか、pdxcgw.pdx.ne.jpのリモートホストから
acc.cgi
のアクセス解析に反映させる方法を悩んでいます。
まあ、どうして取得できないか分からないuser agentを取得するよりもRemote hostからの取得の方が改造しやすいのかな?
と思い相談しました。
83 :
81 :03/03/27 14:28 ID:???
>>82 ソースざっと見だけど
elsif($HostName =~ /pdx\.ne\.jp/){
ぐらいでなんとかんない?
そもそも、金とるようなcgiだから作者に聞くのが筋のようなきもするが・・・
85 :
80 :03/03/27 15:22 ID:???
>>81 訂正サンクス
>>82 リモホとエージェントがわかってるなら、
if($ENV{'REMOTE_HOST'} =~ /pdx\.ne\.jp/){
$エージェント = "PDXGW\/1\.0";
でいいんでない?
86 :
69 :03/03/27 16:53 ID:???
>>81 については無変化、
>>83 >>85 については500エラーになります。
一応、作者にも聞いては見たのですが。今のところ返答はないです。
有料といっても試用期間が∞なので。。。
H"の仕様自体も特殊でわかりにくいようですね。
H"の場合、厳密に言えばブラウザではなく、Eメールの送受信を利用してページを表示している形式だそうです。
http://specters.net/cgipon/ ですべての携帯でみれる掲示板があるのですが、こちらはuser agentからの取得をしているようですね。
87 :
nobodyさん :03/03/27 18:41 ID:WYrKGZij
>有料といっても試用期間が∞なので。。。 意味不明
>>86 あいかわらず君が何をしたいのかわからんが…
H" のUserAgentの取得をしたいでよろしいか?
でもUserAgentが取得できないので、次善の策として、$ENV{'REMOTE_HOST'}がpdxcgw.pdx.ne.jpならUserAgentにH" を代入するでよろしいか?
> acc.cgiを
> } elsif($user_agent =~ /^PDXGW/) {
> から
> } elsif ($ENV{'REMOTE_HOST'} eq 'pdxcgw.pdx.ne.jp') {
って書いてあるが、おそらく$ENV{'REMOTE_HOST'}ではホスト名が返ってこないと思われ。
じゃ、なぜログにホスト名が記録されているっていうのは、gethostbyaddrを使っていると思われ。
あとは自分でできるね?
>ま、次の返答が来たら大体意図が解る気もするけど ゴメン、わからなかったね。
>>86 >>83 >>85 については500エラーになります。
って書いてあるが、$HostNameや$エージェントって言う変数名そのまま使ったんじゃねーか?
91 :
bloom :03/03/27 19:15 ID:LJULTLGK
93 :
69 :03/03/28 00:33 ID:???
>>92 いるよ。
まったくもって理解できない。。。。
そもそも 500エラーに対処できるだけのスキルはあるのかな? これ結構重要なことよ?
>>69 いるんだったら、
>>90 をはじめとする全ての自分に向けられた質問に回答しろ。
余すところ無く詳細に回答しろ。
#いい加減にしろよこの野郎。
96 :
69 :03/03/28 13:29 ID:???
>>94 CGIに関しては設置やせいぜいCGI内のHTMLを書き換えるくらいの知識しかありません。
だから
>>90 の$HostNameや$エージェントら何を代入するのか、分からないし、gethostbyaddrが何のことか分かりません。。。
申し訳ないです。なので
>>88 のやり方でどこを書き換えたらいいのか教えて欲しいんですが。。
あと、CGIを勉強するのにいい本ってありますかね?
勉強汁!
>>96 勉強すべきは、CGI じゃなくて言語でしょうな。
で、改造したいソースの流れを追っかけていくだけでも
十分、その言語の勉強になると思う。
>
>>88 のやり方
gethostbyaddr とはなんぞや?とすかさず Google 様に
お尋ねするようでなければ、こいつホントに勉強する気あるのか?
と疑われても仕方が無いと思う。# もうここまでで散々叩かれちゃってるけど
あと題材も悪かったな。H" のアクセス解析の改造でしょ?
実際H"を所持していて、しかも通信費払ってまでテストしてくれる人、
そう多くはないと思うんだなぁ。
だから、ちったぁ自分が頑張ってくれないと。
99 :
69 :03/03/28 19:53 ID:???
一応、いろいろ調べてみました。
gethostbyaddrというのはIPからのリモートホストの取得の様ですね。
しかし、説明文のソースについてはさっぱりでした。
ログ内は
20030328015624 p7003-adsao03yokoni-acca.kanagawa.ocn.ne.jp 219.161.128.*.1048784184 -
http://ime.nu/******/ "Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; (R1 1.3))" "ja" "1024 768 24"
20030328015643 pdxcgw.pdx.ne.jp 210.168.199.42.1048784203 - - - "" "-" "-"
20030328020133 ahproxy4.ezweb.ne.jp 61.117.0.**.1048784493 -
http://******/i/ - "UP.Browser/3.04-KC13 UP.Link/3.4.5.6" "ja" "120 128 8"
20030328020229 N043207.ppp.dion.ne.jp 211.126.68.***.1048365261 - -
http://ime.nu/*****/ "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.0.3705)" "ja" "1024 768 24"
20030328020333 pdxcgw.pdx.ne.jp 210.168.199.42.1048784613 - - - "" "-" "-"
20030328024028 wacc2s2.ezweb.ne.jp 218.222.1.***.1048786828 -
http://*****/i/ - "KDDI-TS24 UP.Browser/6.0.8.1 (GUI) MMP/1.1" "ja-jp" "144 140 16"
20030328024332 pdxcgw.pdx.ne.jp 210.168.199.42.1048787012 - - - "" "-" "-"
の様に連続して保存されています。
DDIポケットに問い合わせたのですが、IPも「210.168.199.42」で固定らしいです。
IPからの方が処理はしやすいのですかね?
>>99 君はまだ、
>>88 の前半に答えてない。
だからほとんどの人間は君が望むものをきちんと把握できていない。
>IPからの方が処理はしやすいのですかね?
gethostbyaddr をさっぱりとか言っちゃう君には、確かにその通り。
101 :
69 :03/03/28 20:49 ID:???
>H" のUserAgentの取得をしたいでよろしいか?
>でもUserAgentが取得できないので、次善の策として、$ENV{'REMOTE_HOST'}がpdxcgw.pdx.ne.jpならUserAgentにH" を代入するでよろしいか?
はい、その通りです。今回IPが同一だということが分かったのでそれでも構いません。
>って書いてあるが、$HostNameや$エージェントって言う変数名そのまま使ったんじゃねーか?
はい、使いました。$エージェントは$agentにしましたが。。。。
やりたい処理というのは
>>99 の様に記述されたaccess_log.cgiからH"だと言う情報を読みとり
http://www.futomi.com/cgi-bin/sample/accp/acc.cgi の
OS/ブラウザー分析
の
OSやブラウザー
と言う欄に
DDI POCKET
H"
とOSランキングに表示させる処理です。
この際、オリジナルのacc.cgiでは
PDXGW/1.0
というUserAgentに指定されていますが、access_log.cgiのログにはUserAgentがなぜか残らないためacc.cgiがH"のログを無視してしまうという症状です。
@UserAgent欄とRemoteHost欄に同じ"pdxcgw.pdx.ne.jp"という文字列を出す。
AUserAgentを頑張ってログに残す処理を考える
Bpdxcgw.pdx.ne.jpという固定のリモートホスト名から判断する
C210.168.199.42という固定のIPから判断する
以上のような処理の仕方がいろいろ考えられますが、アクセス解析に表示されて正常に動作すればどの方法でも構いません。
簡単に直すことが出来る物でお願いします。
102 :
88 :03/03/28 20:58 ID:???
>>99 今もって君が何をしたいのかわからんが…
H" のUserAgentの取得をしたいでよろしいか?
でもUserAgentが取得できないので、次善の策として、リモートホストがpdxcgw.pdx.ne.jpならUserAgentにPDXGW/1.0を代入するでよろしいか?
君があんまりあれなんで、ソースを落としてみますた。
ずばり正解を言うと君の勉強にならないから、ヒントだけ言う。
ソースの中にgethostbyaddrが使われているから、その前後を見渡して、リモートホストが入っているであろうと思う変数名を$ENV{'REMOTE_HOST'}と置き換えると幸せになれる。
それと、君に足りないのはCGIの知識じゃなくPerlの知識ね。
勉強が必要なのは、Perlだよ。間違えないでよ。
103 :
88 :03/03/28 20:59 ID:???
104 :
88 :03/03/28 21:05 ID:???
>>101 うん、わかりやすくていい質問だ!
最初からこんな質問が出てたら100点をあげてたのになぁ〜
ヒントは102に書いてあるからね。
リモートホストが入っているであろうと思う変数名がpdxcgw.pdx.ne.jpなら、UserAgent欄にDDI POCKET H"を代入する。
ってのをperlで書けばいい。
これでよろしいね。
105 :
69 :03/03/28 22:33 ID:???
>>104 どうもありがとうございます。
gethostbyaddrという名はみつかりませんでしたが、&GetDomainByAddrというのがありますがこれでいいんでしょうか?
921行目の
$domain = &GetDomainByAddr($remote_host{$i}, \%IpList);
を
$domain = &GetDomainByAddr($ENV{'REMOTE_HOST'}, \%IpList);
に置き換えてみましたが、これといった変化は見られませんね。
また、4215行目もオリジナルからの書き換えが必要ですかね?
>>105 だ か ら
$ENV{'REMOTE_HOST'}にはリモートホスト名が入ってないと思われ!
書き換えの場所も全然違う。
> acc.cgiを
> } elsif($user_agent =~ /^PDXGW/) {
> から
> } elsif ($ENV{'REMOTE_HOST'} eq 'pdxcgw.pdx.ne.jp') {
こうしたいんでしょ?
$ENV{'REMOTE_HOST'}には値が入ってないから、リモートホスト名が入っているであろうと思う変数名に変えろ!っていっているのがまだわかりませんか?
> gethostbyaddrという名はみつかりませんでしたが
acc.cgiだけを探しているからそうなる。
==== 宿 題 ========
リモートホストが入っているであろうと思う変数名がpdxcgw.pdx.ne.jpなら、UserAgent欄にDDI POCKET H"を代入する。
これをperlで書け!
==================
107 :
88 :03/03/29 04:50 ID:???
それと。。。 > 921行目 うちの921行目は $GetPref = ''; > 4215行目 うちの4215行目は } elsif($user_agent =~ /FreeBSD/i) { どうも君の行数と一致しないようです。 それから、私の説明が悪いのなら遠慮なくそういってください。
108 :
85 :03/03/29 21:53 ID:xKbUlELb
>はい、使いました。$エージェントは$agentにしましたが。。。。 それじゃだめです。読むのがめんどくさくて変数名は適当につけただけなんで・・・ >これといった変化は見られませんね。 何を偉そうに・・・
>108 一生独りでシコってろ、
>>69 は
>>106 の宿題ができると思う?できないと思う?
できるとしたら何月何日?
漏れは出来ないに一票!!!
今週中になんとかなるに一票。
この板の過疎化、厨化を打開するためにも
>>69 には頑張ってほしい。いやマジで。
114 :
nobodyさん :03/03/31 18:05 ID:bXMafSv+
掲示板のデザインをいじりたいのですが
スクロールバーや枠などですが
いろんなcgiみてソースをパクっても動きません(涙
こんなのとか…
$scroll_arrow = '#ffffff'; #arrow
$scroll_base = '#80BFFF'; #base
$scroll_face = '#4275bb'; #face
$scroll_high = '#4275bb'; #highlight
$scroll_shdow = '#4275bb'; #shadow
初心者すぎる質問かもしれませんが、宜しくお願いします。
ソースは
http://members6.tsukaeru.net/forever/smokescr.txt です。
Name "main::ppw" used only once: possible typo at smokescr.txt line 2038. Name "main::hyoji" used only once: possible typo at smokescr.txt line 281. Name "main::body" used only once: possible typo at smokescr.txt line 2151. Name "main::icon_file" used only once: possible typo at smokescr.txt line 2214. Name "main::name0" used only once: possible typo at smokescr.txt line 844. Name "main::jumpurl" used only once: possible typo at smokescr.txt line 2135. Name "main::tip0" used only once: possible typo at smokescr.txt line 844. Name "main::number0" used only once: possible typo at smokescr.txt line 854. Name "main::ip0" used only once: possible typo at smokescr.txt line 844.
116 :
nobodyさん :03/03/31 18:37 ID:bXMafSv+
>>114 アホだなぁw
そんなもんパクって来ても意味ないに決まってるだろう。
デザイン変えたいなら記事表示部分を直接イジれ。
スクロールバーの色変えたいならcssに追加しろ。
cgiじゃなくてhtmlだわw
てゆーか設定部分でそこそこデザイン変えられると思うんだけど?
118 :
nobodyさん :03/03/31 18:57 ID:a8GlaiRt
>>116 1回しか使われていない変数があったから、それはタイプミスではないか?というPerlの警告
>>117 >デザイン変えたいなら記事表示部分を直接イジれ。
>スクロールバーの色変えたいならcssに追加しろ。
>cgiじゃなくてhtmlだわw
アホなので記事表示部分を直接いじりたいのですが
どこがどこなんだかよくわからないのです(涙
おっしゃる意味はよく分るのですが
どこをどうすればいいのかわからないのです(涙
解説お願いできますか?
ほんとアホでごめんなさい。
120 :
114 :03/03/31 18:59 ID:???
>>118 なにか不具合が生じることがあるってことなんでしょうか?
>>119 1011-1918行でスタイル定義されているので、
1919行の上に好きに定義していけばいい。
あとは、cssを勉強しる。
>>114 作者がちゃんとデバッグしていない証拠。
なので、こんなスクリプト使うな、ということでは?
123 :
122 :03/03/31 19:07 ID:???
124 :
114 :03/03/31 20:19 ID:???
125 :
初心者1号 :03/04/01 14:08 ID:z3z051yZ
>>125 ローカルでテストしてるのなら
Webサーバのログを見れば何か出てるんじゃない?
127 :
初心者1号 :03/04/01 14:20 ID:z3z051yZ
エラー500とでますが・・・ 文法チェックもしてみましたが、Okとでるだけで・・・
>>127 未完成スクは、うちでは500エラーは出なかったよ。
ただ、Subjectの日本語が化けっちゃったし、本文の改行が<br>タグになってますね。
今からスクリプト覗いてみまつ。
129 :
128 :03/04/01 15:36 ID:???
>>127 メールのエンコードの基本がわかってないように思えます。
勉強汁!
sub decodeでタグ変換、改行コードを<br>タグに変換したあとにメールを送信するようにしているが、これではダメなのは明白!
どこをどう直せというよりも、作り直した方が早いと思う。
それと、ログファイルを飛ばないようにテンプファイル作ってrenameしてますが、そんなに気にするほどのものでもないと思う。
130 :
初心者1号 :03/04/01 16:22 ID:dwefDJjw
131 :
nobodyさん :03/04/01 16:23 ID:Tf82OTQL
132 :
初心者1号 :03/04/01 16:26 ID:dwefDJjw
それで、
-----------------
▼送信選択
・今すぐ送信
・送信の予約
▼予約日時
10日先までの日時で入力してください。
(○月○日まで予約可能)
□月
□日
□時頃(0-23)
*通信状態によっては遅れることがあります。
-決定-
------------------
>>125 の元すくの指定回数送信をつけたまま
うえのような感じの送信予約機能付きのにしたいのですが、
(↑のデザインのやつはドコモのタイムメールのやつです。)
新しいスクリプトは落としてませんが、たぶんこんなもんでしょう。 フォームで指定回数欄をname="count"で作って、open〜closeまでをforで囲む。 # 指定回数メールを送信 for($i=1;$i<=$FORM{'count'};$i++){ open(MAIL 途中略 close(MAIL); } わかった?
134 :
133 :03/04/01 16:50 ID:???
おっと! 漏れ質問の意味を履き違えてたみたい。。。 逝ってくる。。。
ttp://tackysroom.com/cgi_tackynote2.htmにあるTackynote2 Ver0.582という日記帳。
「
http:// 」を入れると勝手に「こちら」というコメントから直リンになっちゃうので
518行目
$comment =~ s/([^=^\"]|^)(http|ftp)([\w|\!\#\&\=\-\%\@\~\;\+\:\.\?\/]+)/$1<a href=\"$2$3\" target=_top>こちら<\/a>/g;
561行目
$comment =~ s/([^=^\"]|^)(http|ftp)([\w|\!\#\&\=\-\%\@\~\;\+\:\.\?\/]+)/$1<a href=\"$2$3\" target=_top>こちら<\/a>/g;
を消したんですが、今度は「
http:// 」という単語*だけ*を表示する事が出来なくなりました。
<a>タグを使った時はちゃんとハイパーリンクが機能しますが、
<a>を使わないで「
http:// 」が日記内の文字として表示されるように改造出来ないものでしょうか?
136 :
nobodyさん :03/04/02 07:19 ID:sBnPyZHr
_,,...,_
/_~,,..::: ~"'ヽ
(,,"ヾ ii /^',)
:i i"
|(,,゚Д゚) <
http://www.k-514.com/ |(ノ |)
| |
ヽ _ノ
U"U
137 :
nobodyさん :03/04/02 15:35 ID:ewLA/ZMt
138 :
マリモーマ ◆r6PDGT6Xd2 :03/04/02 15:41 ID:acVI7GW1
テーブルと imgタグで 並べればいいのでは?
>>135 518、561行目をコメントアウトしただけで大丈夫だったぞ?
141 :
AR :03/04/02 19:06 ID:shOHnSjc
>>141 あのさあ、人をなめるのもいい加減にしない?
散々前スレから他人に答えさせておいて、しかも逃げたんだろ?
それでなんでまた誰かにこたえてもらえると思うの?
>142 もうほっとけよぅ、こんな香具師構うだけ労力の無駄だって(´д`; 構ってほしいだけなんだろうしさ。 努力のかけらも見えやしねぇ。 漏れと吉牛逝ってモチツコーぜ。な。
とりあえずichat改造のネタはスルーの方向で
>>139 オートリンクは解除されるんですが、今度は
<a></a>タグで囲まずに「
http://www.2ch.net 」と書いても
その文字部分だけが表示されてないんです。真っ白。
だから直リンを避けてURLを紹介する際などには
いちいちタグでリンク貼るしかないんです。
hだけでも抜いとけば良いだろって話かもしれませんが
出来るのなら改造しておきたいので…
146 :
145 :03/04/03 08:18 ID:???
日本語がおかしかった。
直リンを避けてURLを紹介したい時は
http://をまるまる抜いて記述する (これなら文字が表示される)しかなく、
でも表示されない以上はタグでリンク貼らないと表示されない罠。
でもなんか不恰好ですし、アドレスバーにわざわざ
要らないwwwとか入れて行けなくなるとか言われるし。
>>145-146 > オートリンクは解除されるんですが、今度は
> <a></a>タグで囲まずに「
http://www.2ch.net 」と書いても
> その文字部分だけが表示されてないんです。真っ白。
もしかして
>>139 の言ってるコメントアウトをHTMLのコメントアウトと勘違いしてないかい?
518行目
# $comment =~ s/([^=^\"]|^)(http|ftp)([\w|\!\#\&\=\-\%\@\~\;\+\:\.\?\/]+)/$1<a href=\"$2$3\" target=_top>こちら<\/a>/g;
561行目
# $comment =~ s/([^=^\"]|^)(http|ftp)([\w|\!\#\&\=\-\%\@\~\;\+\:\.\?\/]+)/$1<a href=\"$2$3\" target=_top>こちら<\/a>/g;
それぞれ行頭に # つけてコメントアウトしたら、本文中に
http:// 〜 があっても、リンクの形に置換されない。
>>147 Σ(゚д゚) そうでしたスマソ…
試したらちゃんと反映されました。
どうもお騒がせしました、有難う御座います(´Д`)
>>149 &jcode::convert(\$line, "euc", "", "z");
を
&jcode::convert(\$line, "euc", "");
みたいに"z"を取り除けばよい
でも、コレをやった場合半角カナの部分で文字化けする、ケースがかなり高いと思われる。
そうなった場合は、cgiと相性が悪いという事で諦めること
クッキーで化けるかも?
名前に半角カナを使った場合ね
>>154 シフトJISで書き込むという前提でいいなら&jcode:convertをコメントアウトすれ
>>154 半角カナにできますた。
>シフトJISで書き込むという前提でいいなら
なにか問題があるのでしょうか?初心者でスマソ。
>>155 すいません。お礼言うの忘れていました。
ありがとうございます。
>>156 Shift-Jisはメタ文字を含むから文字化けしたりとか、正規表現でエラーになったりとか・・・
>>158 レスありがとうございます。
2chやふたばはどのような形式で書き込まれているんですか?
漠然とした質問であるけど・・・ 文字参照にするとか、エラーにならない記述をするとか、 漢字コードをeucやutfにもっていくとか色々とありますがねぇ
半角カナを使える掲示板はいくらでもあるからソースを見るといいよ
jcodeg.plを使うと簡単>半角カナ ググれば出てくる。
まぁ、そもそもAAでもやるんでなければ半角カナなんぞ使ってほしいものではないのであるが・・・・
165 :
nobodyさん :03/04/05 15:55 ID:WfuJAlpa
166 :
nobodyさん :03/04/05 16:02 ID:TYA4CtbI
>>165 名前欄処理するところに追加すりゃいーじゃん。
いちいちソースダウンロードして中見る奴は稀だぞ。
せめて名前欄の処理してるところくらい、貼りつけろ。
トリップ生成のアルゴリズムは、この板のどこかのスレにあったから、
まず探せ。
168 :
165 :03/04/05 17:17 ID:1LEjuaxK
すいませんでした。多分このあたりかなと・・・。 トリップ作成のアルゴリズムってどこにあるんでしょうか。 検索しても出てこないです。。 sub html_form { print<<"_EOF_"; <HR> $html_formmsg <FORM ACTION="$cginame" METHOD=post> <TT>名前:</TT><INPUT TYPE="text" NAME="name" SIZE=16 MAXSIZE=16> <TT>疑問:</TT><INPUT TYPE="text" NAME="qes" SIZE=60> <INPUT TYPE="submit" VALUE="書き込む"> </FORM> _EOF_ }
170 :
169 :03/04/05 17:28 ID:???
>>169 i-mode の識者が現れるのを待てないなら、
携帯の製造番号とやらが、どの環境変数にセットされるのか教えてくれないか?
ざっと見た感じではそんな処理は無いようだが。
173 :
168 :03/04/05 17:44 ID:1LEjuaxK
>>171 ありがとう。多分このあたりかと。多いので2つにわけます。
sub read_file {
local($logfile) = $_[0];
if (!open(IN,$logfile)) {
&error(1,"記録ファイルの読み込み不可");
}
local(@files) = <IN>;
close(IN);
return @files;
}
sub write_file {
local($logfile,@lines) = @_;
&dubble_lock_file;
if ($lock_error) { &error(1,"ロックファイルを検出しました。時間をおいてご利用下さい。"); }
if (!$savetype) {
# 標準タイプ 全 OS 共通
if (!open(OUT,">$logfile")) {
&dubble_unlock_file;
&error(1,"記録ファイルの書き込み不可");
}
174 :
168 :03/04/05 17:44 ID:1LEjuaxK
続きです。 print OUT @lines; close(OUT); } else { # 改良タイプ chmod 使用 $tmpfile = "$$\.tmp"; if (!open(OUT,">$tmpfile")) { &dubble_unlock_file; &error(1,"Temp利用ログ記録方式に未対応です。"); } close(OUT); chmod 0666,$tmpfile; if (!open(OUT,">$tmpfile")) { &dubble_unlock_file; &error(1,"Temp利用ログ記録方式に未対応です。"); } print OUT @lines; close(OUT); rename($tmpfile,$logfile); } &dubble_unlock_file; return @lines; }
>>173 ハズレ。
いや、そこから"名前"を逆に追えということだったんだが。
アドバイスが不適切だったようで申し訳ない、ということでソース落としてみたが、
そのものズバリ、クエスチョン登録、アンサー登録ってコメントがあるじゃねーか。
双方に、
...$FORM{'name'}<>...
という処理がある。$FORM{'name'} に名前が入ってるようだから、
この一つ前で、先のトリップ処理をすれば良い。
あとはできるだろ?
176 :
173 :03/04/05 18:26 ID:1LEjuaxK
178 :
176 :03/04/05 18:57 ID:1LEjuaxK
>>177 うーむ。
テスト#abc などと名前に入れると
「エラー:名前またはメッセージが長すぎです。」
とエラーになります。
おかしいな。。
>>178 テスト#abc じゃエラーにならんだろ。。。
エラーのメッセージで検索すりゃ、どこを直せばいいかすぐわかるだろ。。。
180 :
178 :03/04/05 19:19 ID:1LEjuaxK
>>179 お〜!!
文字数を変えたらできました!
ありがと〜♪
183 :
169 :03/04/05 20:03 ID:???
184 :
180 :03/04/05 21:55 ID:1LEjuaxK
>>179 あの〜まだいますか?
さっきのなんですが、返信テキストが太字になるんですよ。
色々探したんですがどこといじったらいいのかわからないです。
教えてください。
>>184 個人宛に質問しないでくれ。まあ 179 なんだけどさ。
>返信テキストが太字になるんですよ。
だから?
>どこといじったらいいのかわからないです。
何がしたいん?
>>184 ああ、ちょっと冷たかったな。ワリィ
追加した部分(2箇所)の </b> と <b> を取れば OK なはず。
ログの中もトリップ前後の </b> と <b> も消してくれ。
しかし…、このスクリプト結構ヒドいぞ。
perl -wc ansq.cgi で警告出るし、
<B><TT>$text</B></TT> なんてなってるし。
188 :
180 :03/04/05 23:04 ID:/6xeZ1rK
>>184 なるほど!
何から何までありがとうございます、うまくいきました!
あとこれってかなり昔のものらしいですね。
また他の掲示板にもつけたいのでそのときは宜しくお願いします。
それでは!(・∀・)
ウェブメールで質問です、、、 絵文字変換 j → jに対応したサブルーチンについて質問です。 ドコモはわかってますが、 sub emoji{ $old=$_[0]; $new=''; if($old=~/[\xF8\xF9]/){ while(1){ if($old=~ s/^[\xF8\xF9][\x40-\x7E\x80-\xFC]//){ $new .= '?' . unpack('n', $&) . ';'; }elsif($old=~s/^([\x81-\x9F\xE0-\xF7\xFA-\xFC][\x40-\x7E\x80-\xFC])+//){ $new .= $&; }elsif($old=~s/^(\n|\r\n|\r)//){ $new.="\n"; }elsif($old=~s/^.//){ $new .= $&; }else{ last; } } }else{ $new = $old; } return $new; } ------------------ こんなんですが、jからjへ送信の絵文字に対応するサブルーチンお願いします。
190 :
bloom :03/04/08 18:35 ID:F0yNtk7n
192 :
184 :03/04/08 21:01 ID:jsU/dzWu
>>187 あのう、まだいますか?
問題がひとつおきました。トリップを丸ごとコピペできちゃうんですよ。
これってトリップの意味無いじゃん!ってことになってます。
どうしたらいいでしょうか。
>>192 ちっとは自分で考えろよ。
トリップ生成の前に
$FORM{'name'} =~ s/◆/◇/g;
とかやりゃ済む話だろが。
194 :
192 :03/04/08 22:15 ID:jsU/dzWu
>>193 聞きにくいんですが、例のトリップスクリプトのどこに
入れればいいんですか?
196 :
195 :03/04/09 00:02 ID:0I/JuXTl
>>195 こんな感じでしょうか?
とりあえず差し込むところが違うみたいなので色々試してみる。
# トリップ
$FORM{'name'} =~ s/◆/◇/g;
my ($key,$salt);
if($FORM{'name'}=~/#(.+)/){
$key = $1;
$salt = substr($key."H.", 1, 2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$FLAG{'trip'} = substr(crypt($key, $salt),-5);
198 :
194 :03/04/09 00:09 ID:0I/JuXTl
199 :
spicy :03/04/09 21:29 ID:AbDim5U+
Bratjで送信する送信フォームで添付がつけられるフリーのって誰か知りません?
>>199 自分でその質問の意味を理解しているのか?
201 :
nobodyさん :03/04/09 23:12 ID:PcTVHsms
202 :
spicy :03/04/09 23:26 ID:AbDim5U+
>>200 Winサーバーでメール送信フォームを設置したいけどSendmailが使えないから困ってます。
Kent webのCGIはBlatj対応だったけど添付(あぷ)が付いてなかったから探してます。
よかったら教えてください。
おまい、スレタイ読んでないだろ
204 :
nobodyさん :03/04/11 04:07 ID:Ngj0Yn4X
さいきんなんか有意義になって来たな。 質問者の知能レベルが多少は上がったか?
>>204 新規投稿の処理をしているところは、
--書き込みサブルーチン-- というコメントがあるところ。
sub regist {
〜略〜
close(FILE);
}
の close(FILE) のうしろにメール送信処理を加えれば良い。
sendmail を使ったメール送信処理は、Perl CGI sendmail あたりを
キーワードにしてググればいくらでも見つかるから好きなの使ってくれ。
例えば、sub regist { } の中を、
sub regist {
〜略〜
close(FILE);
&oshirase();
}
として、bbs.txt の一番最後(ブラウザチェックの後)に、
sub oshirase {
(どっかから拾ってきたメール送信処理)
}
とでもすれば、そこからの質問は、この sub oshirase の中だけで済むから。
207 :
nobodyさん :03/04/11 13:35 ID:XBr18zZj
ttp://www.amigo-chat.com/cgi/othello.html このスクリプトを使用しています。
入室の際の性別を「男」、「女」で選択するようになっていますが
更に「ネカマ」という選択肢を作りたいのですが、うまくいきません。(500エラーになる
othello.cgiの
154行〜165行の
if ($c_sex eq "") {
print "<font color=\"0000FF\">男</font><input type=radio name=sex value=\"男\">\n";
print "<font color=\"FF0000\">女</font><input type=radio name=sex value=\"女\">\n";
}
elsif ($c_sex eq "男") {
print "<font color=\"0000FF\">男</font><input type=radio name=sex value=\"男\" checked>\n";
print "<font color=\"FF0000\">女</font><input type=radio name=sex value=\"女\">\n";
}
elsif ($c_sex eq "女") {
print "<font color=\"0000FF\">男</font><input type=radio name=sex value=\"男\">\n";
print "<font color=\"FF0000\">女</font><input type=radio name=sex value=\"女\" checked>\n";
}
と、230行〜231行の
if($wsex eq "男") { $wsex = "<font color=\"0000FF\">$wsex</font>"; }
if($wsex eq "女") { $wsex = "<font color=\"FF0000\">$wsex</font>"; }
この2箇所を、
(次のレスに続きます)
208 :
207 :03/04/11 13:35 ID:XBr18zZj
if ($c_sex eq "") { print "<font color=\"0000FF\">男</font><input type=radio name=sex value=\"男\">\n"; print "<font color=\"FF0000\">女</font><input type=radio name=sex value=\"女\">\n"; print "<font color=\"任意の色\">ネカマ</font><input type=radio name=sex value=\"ネカマ\">\n"; } elsif ($c_sex eq "男") { print "<font color=\"0000FF\">男</font><input type=radio name=sex value=\"男\" checked>\n"; print "<font color=\"FF0000\">女</font><input type=radio name=sex value=\"女\">\n"; print "<font color=\"任意の色\">ネカマ</font><input type=radio name=sex value=\"ネカマ\">\n"; } elsif ($c_sex eq "女") { print "<font color=\"0000FF\">男</font><input type=radio name=sex value=\"男\">\n"; print "<font color=\"FF0000\">女</font><input type=radio name=sex value=\"女\" checked>\n"; print "<font color=\"任意の色\">ネカマ</font><input type=radio name=sex value=\"ネカマ\">\n"; } elsif ($c_sex eq "ネカマ") { print "<font color=\"0000FF\">男</font><input type=radio name=sex value=\"男\">\n"; print "<font color=\"FF0000\">女</font><input type=radio name=sex value=\"女\">\n"; print "<font color=\"任意の色\">ネカマ</font><input type=radio name=sex value=\"ネカマ\" checked>\n"; } それと if($wsex eq "男") { $wsex = "<font color=\"0000FF\">$wsex</font>"; } if($wsex eq "女") { $wsex = "<font color=\"FF0000\">$wsex</font>"; } if($wsex eq "ネカマ") { $wsex = "<font color=\"任意の色\">$wsex</font>"; } と変えるだけでは駄目なようで、参ってます。 アドバイスをお願いします。
>207 それで問題なく動いたが・・・デフォルトの状態での動作テストはしたか?
211 :
207 :03/04/11 14:05 ID:???
>>210 しました。っていうか、
ネカマが付け加えられないので現在はデフォルトで稼動しています。
>207に記載しているのはデフォルトのぶんです。
>208が自分なりに変更したもので、それがエラーになるんです。
俺もネカマver.動いた。 エラーって何だ?
213 :
207 :03/04/11 14:11 ID:???
えええええ〜〜〜〜〜〜 500エラーになったんですよね〜・・・ ちょっともう一度為してみます。 何か馬鹿らしいミスをしていただけなのかもしれない・・・
>>213 サーバのログにエラー出てるんちゃうの?
>>213 >>208 のこの部分
print "<font color=\"任意の色\">ネカマ</font><input type=radio name=sex value=\"ネカマ\">\n";
これ、コピペか?先頭に全角スペース2個入っているが・・・
216 :
207 :03/04/11 14:39 ID:???
・・・ズバリそれが原因でした>215氏 本当にすいませんでした。 そして、皆さんどうも有り難うございました。 そのスペース消したらエラーでませんでした。 やはり馬鹿らしいミスが原因でした・・・逝ってきます。
~旦ヽ(´ー` )ノンデケヤ
(・∀・)旦~さんくす
219 :
204 :03/04/11 17:14 ID:???
>>206 さん
遅レススマソです。今、早速やってみたのですが
無事にメール送れました。本当に親切に対応していただき
ありがとうございました。感謝です!!!
221 :
nobodyさん :03/04/12 09:44 ID:khJ44NHi
初心者です。 「wwwsech」で、検索結果をたくさん表示させたいんですが どこをどういう風にすれば可能でしょうか? そのまま使うと、5件しか表示されません。よろしくお願いいたします。
>221 初心者って言えば何でも許されると思ってやがる。 氏ねよ。
>220
出来ます、氏ね。
>221
知りません、氏ね。
お前ら
>>1 嫁!!
224 :
nobodyさん :03/04/12 10:29 ID:khJ44NHi
226 :
220 :03/04/12 15:20 ID:???
>>226 質問の意味がはっきりしないんだけど、フレーム使うんだったら
記事リストの部分だけサブルーチンにでも突っ込んでGETでフレームに指定して表示させればいい
229 :
nobodyさん :03/04/12 17:19 ID:Ip19Qbjd
209です。どなたか教えてください。・゚・(ノД`)・゚・。ゴメンナサイ
>>221 頼 む か ら 氏 ん で く れ !
初心者です。 「2ch.net」で、ID:khJ44NHiを表示させたくないんですが どこをどういう風にすれば可能でしょうか? そのまま使うと、マルチしか表示されません。よろしくお願いいたします。
232 :
nobodyさん :03/04/13 00:23 ID:3P1Oq8K7
233 :
nobodyさん :03/04/13 02:03 ID:qidWjGRx
ttp://www.rescue.ne.jp/cgi/database/ ↑をつかってるんですが、検索結果表示をかえたいのです。
検索結果ページの「次の$page件」の部分を、
「1 2 3 ・・・」のように、ページ数で表示させることは可能でしょうか・・・?
あと、検索結果 ○○件もできません。
検索結果 ○○件 [ 1 2 3 ・・・] のようにしたいのですが。
検索結果数は、@NEWや$hitあたりかと思っていじってみたんですがさぱーりです。
よろしくお願いしまう。
>>233 > ページ数で表示
は、たぶん今漏れが勉強中の事と同じでつね〜
自作CGIを評価するスレの163-168あたりを参考にしてもらえれば。。。
235 :
nobodyさん :03/04/13 15:37 ID:4cCD/K+G
サンクスです。 もっともっと勉強セイってことですかね・・・。 このやろ、ぜんぜんわからんぞ。わかりやすく よろしくおねがします。
236 :
nobodyさん :03/04/13 15:43 ID:4cCD/K+G
-------------------------------------------------------------------------------- ごまかしで良かったら・・・。 if ($next_num ne '') { while (($key,$val) = each %FORM2) { if ($key ne 'FF') { $buf = "$buf&$key=$val"; } } $FF = ($FF + 10)/10; #←ここ付け足し print "現在$FFページ目\n"; #←ここ付け足し print "<h3>↓<a href=\"search.cgi?$buf&FF=$next_num\">次の$page件</a></h3>\n"; } } どうよ?
237 :
nobodyさん :03/04/13 17:31 ID:4cCD/K+G
だめじゃん。サイゴノページ表示されなよ!
apo.
239 :
川上春樹 :03/04/14 16:00 ID:zGHTPPKN
はじめまして。BBSの改造でどうしても分らない部分があるのです。。
今改造したいと思っているプログラムは、ネットサーフレスキューCGIのBBSで、
http://www.rescue.ne.jp/cgi/minibbs-ic/ の
http://www.rescue.ne.jp/cgi/minibbs-ic/sample/ の掲示板です。
こちらの掲示板で、”削除パスワード”というのを設定する項目があるのですが、
この項目を削除したいのです。
削除をすると、どうしてもエラーになってしまうのです。CGI上でも、色々この
パスワードに関連する部分を削除したりしてみたのですが、そうすると、サーバー
エラーになってしまったりするんです。
もし、、わかる方がいらっしゃいましたら教えていただけませんでしょうか。
簡単で結構です。また、ヒントでも構わないので、どういった部分を削除すれば
このパスワードの部分の機能を削除できるのか教えていただければ嬉しいです。。
どうか宜しくお願い致します。
>>239 削除をしてエラーになるっていうのは、どこかいじったからでは?
それを直すほうがいいような気もするけど
>>239 とりあえず、こちらでは問題無く削除できた。
まあそれは置いといて。
削除できなくするだけなら、
# ●削除
if ($in{'action'} eq "delete") {
(略)
}
の中を全部コメントにしちゃうとか。これで削除"機能"は無効になるね。
242 :
川上春樹 :03/04/14 16:25 ID:zGHTPPKN
>>241 様
早速のご回答大変ありがとうございました。
早速これから試してみたいと思います。本当にありがとうございました。
やってみた結果はまた報告させて頂きたいと思います。
本当にありがとうございます。
244 :
川上春樹 :03/04/14 16:45 ID:zGHTPPKN
>>241 様。
早速やってみたのですが、上手く行きません。。。
私の説明が悪かったら申し訳ございません。
http://www.rescue.ne.jp/cgi/minibbs-ic/sample/ のページの部分に
おいて、(このCGIはトップページをHTMLで表示するようになってるのですが)
登録フォームのHTMLの部分です。CGIで言いますと、810〜812行目の部分そのもの
を削ってしまいますと、Javascriptのアラート表示の部分、727行目〜740行目
の部分がひっかかってエラーになってしまうんです。
フォームそのものから、このパスワード設定項目をなくしてしまいたいのですが、
これは、241様のおっしゃるとおり、327行目からの部分がひっかかってるのかな?
という気がするんですね。
何度も大変申し訳ないのですが、HTML上からこの削除パスワード設定フォームの
そのものを無くしてしまいたいのですが、どのようにしたらよろしいと思いますか。。
この投稿フォームを見てみると、登録された情報をクッキーに伝える前のチェック
でのJavascriptで問題が出ているような気がするのですが、かといって、
javascriptの部分だけを削ってもエラーになるので、どうしたらよいものか、、
フォームのアクションで、
"action "regist" とjavascriptと、CGIそれぞれの連携がどのようになって
いるのかが私にはわからないので、エラーでまくりなのかと思ってます。。
申し訳ございません。。
またヒントなりいただけるようでございましたら、宜しくお願い致します。
ど素人のような質問で大変申し訳ございません。。。
独学でCGIを勉強しているような状況なので、、、、お許しください。。。
245 :
川上春樹 :03/04/14 16:49 ID:zGHTPPKN
度々、申し訳ございません。 私の質問にお二方にお教えいただいて頂いたのですね。 お名前がNobodyで気が付きませんでした。。申し訳ございませんでした。 改めて、お二方にお礼をこの場を借りて申し上げます。ありがとうございます。 今244にて内容を書いてみて見ましたので、もしよろしければお読みいただけましたら 幸いでございます。本当に色々ありがとうございます。
>>244 説明の行番号と実際の行が一致しないのだが・・・
それと、長々説明するよりオリジナルをどう改造したいのさ?
>>245 ウザい。そこまで卑屈にならんでも良いよ。
で、
>>241 に書いたのって、ちゃんと自分で試して問題無かったんだよ。
それで「うまくいかない」と言われると、次もきっと「うまくいかない」のだろうなと思う。
もちょっと質問頑張って、やりたいことを明確にしてくださいな。
248 :
川上春樹 :03/04/14 17:00 ID:zGHTPPKN
大変失礼致しました。。行番号、、私のエディターが違うかもしれません・・・。
TeraPadというエディターでやっていて、オリジナルの行番号と違ってしまったかと思います。。
それと、ご指摘の通り簡単に説明させて頂きます。
BBSの書込みのフォームがありますが、
http://www.rescue.ne.jp/cgi/minibbs-ic/sample/ です。
このフォームから、削除パスワードの欄そのものを無くしてしまいたいのです。
それだけなのに、、、長々と分りにくく申し訳ございません。。
この削除パスワードをフォームから消すと、エラーになってしまうのを解消したい
のですが、、いかがでしょうか。。。宜しくお願い致します。
249 :
川上春樹 :03/04/14 17:04 ID:zGHTPPKN
>>247 様。。。
失礼致しました。。。卑屈になってるわけではないのですが、、普段から
営業の仕事をしてるので、。。。。つい、、こういう話方になってしまうの
可も知れませんね・・・。。それと、、私も年なので。。。
年寄り口調になってしまって、、申し訳ないです。。。
>>248 削除パスワード欄をなくしてしまったら自分でも管理パスで
削除できなくなるけどいいの?
間違い投稿や荒らし投稿は放置?
>>248 行番号は論理行指定ね。
とりあえず、
[bbs.cgi]
639-640 : コメントアウト (Perl だから先頭に #)
753-759 : コメントアウト (JavaScript だから先頭に //)
760 : 変更 else { Submit(); } → Submit();
831 : <!--<tr>
834 : </tr>-->
[resp.cgi]
52-58 : コメントアウト (JavaScript だから先頭に //)
59 : 変更 else { Submit(); } → Submit();
115 : <!--パスワード (略) maxlength=8>-->
136-139 : コメントアウト (Perl だから先頭に #)
どーよ?
252 :
川上春樹 :03/04/14 17:44 ID:zGHTPPKN
返信ありがとうございました。 今ちょっと、、子供を保育園に迎えに行っていてちょっと返信が遅くなってしまいました。。 申し訳ありませんでした。。シングルファーザーぁなんで、、、大変です、、 今お教えいただいたことを今からやってみたいと思います。^^! またご報告させて頂きます。 本当にありがとうございました。
253 :
川上春樹 :03/04/14 17:48 ID:zGHTPPKN
>>250 様。
このCGIはマスターパスワード(管理者パスワード)があって、その上で投稿者の
パスワードが設定できる仕組みなんですね。
投稿する人にわざわざ削除パスワードを設定させるのは面倒だと思ったんです。
そこで、削除に関しては管理者のみが削除できるようにしたいんです。
つまり、投稿はバンバン自由。荒しの類は管理者が手間隙はかかりますが、
頑張って削除すればいいかなと^^ll
>>251 さまの方法は、管理者も削除できなくなってしまうのでしょうか?
ちょっと今から試してみたいと思いますが、もしよければ教えていただけましたら
幸いです。
ではまたご報告いたします。度々ありがとうございます。
>>253 削除パスは任意入力なんだから面倒とかってことはないのに・・・
255 :
川上春樹 :03/04/14 18:14 ID:zGHTPPKN
>>254 様
確かに、、、面倒ってことはないんですが、、^^ll
ただ、どうしてもとりたいんです。。。すみません。。。
>>251 様
申し訳ありません。。
質問なのですが、今やってみてまだ上手くいかないのですが、、
639-640 : コメントアウト (Perl だから先頭に #)
753-759 : コメントアウト (JavaScript だから先頭に //)
の部分でコメントアウトというのは、どういう意味かちょっとよくわからないのですが、、
教えていただけないでしょうか。。。
あと、、、
(Perl だから先頭に #)
(JavaScript だから先頭に //)
の部分なのですが、、、どのように記述すればいいのでしょうか。。。。
すみません。。。。まぬけな質問で、、
もしよろしければ教えていただけましたら幸いです。。。
宜しくお願いします。
コメントアウトもわからないでCGI置こうとしてるのか・・・ 最低限の知識ぐらい身に付けてからやってくれや。 どうしても設置したいとか言うのかもしれないが、ちょっと甘いんじゃないか?
258 :
川上春樹 :03/04/14 19:55 ID:zGHTPPKN
申し訳ないです。。コメントアウトすらわからないで改造してました・・。。 というより、、CGIの中でもHTMLに関する部分でデザインを変更したりするのが 現状は精一杯なんです、、、 このレベルで今の私の希望は無理なんだろうなと、、、思いました。。 色々教えて頂いた部分を変更したりしてみたのですが、どうしても上手く行きませんでした。。 修正する部分を変更するとエラーが出てしまいます。。 かなり色々やってみたのですが、、レベルが低すぎるので出来そうもないようです。。 色々教えて頂いた方々、、本当にありがとうございました。 今回はあきらめるしかない、、、と思ってます。 色々皆さんありがとうございました。お手数だけかけてしまって出来なかったでは 本当に申し訳ないの一言です。。。ごめんなさい。 ありがとうございました。
>>258 ウザい。言い訳や愚痴はヨソでやれや。
これに凝りず、質問の仕方を直してからまたどーぞ。
スクリプトに対する最低限の知識は勉強してから書き込む事 ってのもテンプレに入れてくれんかねぇ。
転んでも泣かない奴ならOKだ。 たった一日で諦めるような奴はイラネ。
何度突き倒されても泣かない奴もウザ
転んだ瞬間脳内ルールで暴れる香具師もなー
264 :
nobodyさん :03/04/16 17:15 ID:8KxGOq37
質問させて下さい。 The room のフリースクリプト "ranklink" といいます。 ランキング方リンクのスクリプトが御座います。 このランキングを使用した際に不正なアクセスを防ぐ為に 投票用のページ(voteform)を設けておるのですが、、 スクリプトに関しましてまだ若輩者で詳しく解らないのですが 投票した時間に合わせて投票者のIDらしきものが決まるらしく 不正な投票が行われる事が御座います。 そのためにランダムでIDを作りたいのですが。。 大変申し訳御座いませんがご口授頂きたく存じます。
265 :
動画直リン :03/04/16 17:20 ID:/rppkG+T
>>264 ソースのURLぐらい出してくれ。
自分でできることすら他人に丸投げしてるようじゃ、誰も助けてくれんよ。
267 :
nobodyさん :03/04/16 17:30 ID:fdt+hc+L
パンパン パンパン パンパン パンパン パンパン パンパン
/ ̄ ̄\/ ̄ ̄\/ ̄ ̄\/ ̄ ̄\/ ̄ ̄\/ ̄ ̄\/ ̄ ̄\
| ・ U | ・ U | ・ U | ・ U | ・ U | ・ U | ・ U |
| |ι | |ι | |ι | |ι | |ι | |ι |
/ ̄ ̄ ̄ 匚 匚 匚 匚 匚 匚 匚 ヽ
| ・ U \ \ \ \ \ \ \ ) ))
| |ι \ ノ \ ノ \ ノ \ ノ \ ノ \ ノ \ ノ
U||  ̄ ̄ |||| || || || || || ||
AVと玩具買うならここでつよ!韓国物・熟女物メインの風変わりなお店です!
http://lovetec-jp.com/
268 :
nobodyさん :03/04/16 17:40 ID:8KxGOq37
266さんすみまんせんでした。チョッと長くなるのですが。。 sub rankin{ #INカウント追加 my ($voteflag,$a1,$a2,$i,@temp1,@temp2); my $buf="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"; if ($pagetype % 2 == 1){ $a1 = 1; open(IO,"+<$sessiondir/$id.dat"); eval{flock(IO,2)}; while(<IO>){ @temp2 = (split(/<>/,$_))[0,1]; if ($temp2[0] eq $ssd){$a1 = 0;} elsif ($temp2[1] > time()){push(@temp1,$_);} } if ($a1){ $ssd = ""; for($i=0;$i<=7;$i++){$ssd.=substr($buf,int(rand(62)),1);} push(@temp1,$ssd."<>".(time()+$session_enable)."<>\n"); } truncate(IO,0); seek(IO,0,0); print IO @temp1; close(IO); if (($vote_refcheck) && ($referer !~ /$scriptdir/i)){$a1 = 1;} if ($a1){ &fileunlock; &changehtml("voteform","id","ssd"); } }
( ゚Д゚)<
270 :
山崎渉 :03/04/17 12:00 ID:???
(^^)
(^^)
ソースは?
テキスト形式にしてソース出さないと答えてもらえないかも いちいちDLして中身見てくれる人ってそう居ないよ。
禿同 クリック一発でソースが見られるのなら、ちょっとは考えてみようかなとも思うけど いちいち探してダウンロード・解凍なんてやってらんない。
278 :
山崎渉 :03/04/20 06:03 ID:???
∧_∧ ( ^^ )< ぬるぽ(^^)
結局268の不正投票の改造は可能なのですか?
280 :
nobodyさん :03/04/21 00:32 ID:sgXpIotB
>>264 >>268 >>279 その手の不正対策が可能かといえばもちろん可能。
だがそれをここで書くことが既に危険というか意味がない行為
になることをわかってほしい。
つまり2chという場でそんな事を書けば 大勢の人にその方法を教えているようなもの。 それを理解できていなければセキュリティー面の弱いスクリプトや 簡単に不正ができてしまうスクリプトが出来上がってしまう。 と書くか不正投票は防げているはずだぞ。 フォームから受け取ったssdとssdの記録ファイルの一行目が同じならば $a1=0でスイッチをOFFにしている。 そしてそのssdもかなりランダムに生成されるようになっている。 それでもとなるとsub rankinの15行目の substr($buf,int(rand(62)),1 => substr($buf,int(rand(99)),1 に変更。
283 :
282 :03/04/21 21:37 ID:???
ちなみに${$_}は無名ハッシュという名称
284 :
281 :03/04/22 14:30 ID:???
>282 わざとか?天然ならスクリプトよく読め・・ かなり恥ずかしいと思うぞ
285 :
272 :03/04/22 15:46 ID:???
286 :
282 :03/04/23 06:43 ID:???
287 :
282 :03/04/23 07:20 ID:???
わかりました。 open(IO,"+<$sessiondir/$id.dat"); eval{flock(IO,2)}; while(<IO>){ @temp2 = (split(/<>/,$_))[0,1]; # 前回のSSDと今回のSSDが同じならば$a1スイッチをoff if ($temp2[0] eq $ssd){$a1 = 0;} # 違えば下に付けたし elsif ($temp2[1] > time()){push(@temp1,$_);} } # $a1スイッチがonならば if ($a1){ # $ssdを初期化 $ssd = ""; # 7回ループ for($i=0;$i<=7;$i++){ # $ssdに付けたし $ssd.=substr($buf,int(rand(62)),1); } # @temp1の下に付けたし push(@temp1,$ssd."<>".(time()+$session_enable)."<>\n"); } truncate(IO,0); seek(IO,0,0); print IO @temp1; close(IO);
288 :
282 :03/04/23 07:20 ID:???
# $vote_refcheckがonの時はリファチェック # $refererの中にスクリプトを置くディレクトリ名が含まれていなければスイッチをon if (($vote_refcheck) && ($referer !~ /$scriptdir/i)){$a1 = 1;} # $a1がonならば処理 if ($a1){ &fileunlock; &changehtml("voteform","id","ssd"); } } # $vote_terminalが0の時はuaをチェックせずに$voteflagスイッチをon if ($vote_terminal == 0){$voteflag = 1;} # それ以外はチェックが必要 else{ $a1 = $ENV{'HTTP_USER_AGENT'}; if (($a1 =~ /^DoCoMo\//) ||($a1 =~ /^J-PHONE\//) ||($a1 =~ /^UP\.Browser/) ||($a1 =~ /^ASTEL\//) ||($a1 =~ /^PDXGW\//)){ if ($vote_terminal == 1){$voteflag = 0;}else{$voteflag = 1;} } elsif ($vote_terminal == 1){$voteflag = 1;}else{$voteflag = 0;} }
289 :
282 :03/04/23 07:21 ID:???
省略されましたすべて表示するにはここをクリックしてください。 # $vateflagスイッチがonならば更新 if ($voteflag){ open (IO,"+<$datadir/$id.dat"); eval{flock(IO,2)}; @temp1 = split(/<>/,<IO>); @temp1 = split(/<>/,&backupload($id)) if $temp1[0] eq ""; if ($temp1[0] ne "datamissing"){ $temp1[0] = time(); $temp1[10]++; $temp1[12]++; $temp1[14]++; truncate(IO,0); seek(IO,0,0); foreach(@temp1){print IO $_."<>";} close(IO); }else{ close(IO); &syslog("AUTO","<font color=purple>データ消失(ID:$id)</font>"); &dataerase($id); } }
正直ウザイんだけど
291 :
: :03/04/23 21:07 ID:FF12Hbmb
つまり282はわからなかったというわけだ・・
287: 282 sage 03/04/23 07:20 ??? わかりました。 わかりましたって書いているみたいだけど
>>282 が何を言いたいのかが解らんという点については、
総意が成立するんでないだろうか?
>294 うむ決定じゃな・・ しかし264がかわいそうだな
296 :
オーディーン :03/04/25 01:05 ID:8w/Lt+kf
>>296 マルチポストすんなハゲ。
って言われるから、誘導されたらその旨書いておくように。
少ない労力で回答を得ようなんていうずうずうしい態度だとだれも答えてくれないよ。
298 :
オーディーン :03/04/25 06:31 ID:8w/Lt+kf
すまん。次から気をつける!!
300 :
299 :03/04/25 06:40 ID:???
>>296 HPサービスのソースか・・・
この人のCGIは物は良いんだが、
ソース内は、なぜ無理に一行で書こうとするんだ?って所がちらほら。
読みにくい。
302 :
さとうれお :03/04/25 10:28 ID:J1k9aaVC
303 :
動画直リン :03/04/25 10:29 ID:pCM0Odok
304 :
280 :03/04/26 17:32 ID:n4ab5nhi
ごめん。 俺が悪かった。
ソースをテキスト形式にしてうpしないと答えは得られない・・・と思う。 お願いすればいいってもんじゃない。 いちいちDLして、解凍して、開いて、読んで、答えてくれる人なんてそうそう居ない。
307 :
305 :03/04/29 23:24 ID:???
308 :
307 :03/04/30 10:52 ID:ic4sjfiT
309 :
308 :03/04/30 10:53 ID:ic4sjfiT
308の間違いでした。
310 :
308 :03/04/30 10:56 ID:ic4sjfiT
311 :
311 :03/04/30 10:57 ID:ic4sjfiT
314 :
311 :03/04/30 12:44 ID:QS3YF5Ha
>>312-313 アリガd。頑張ってみます。
しかし当方こういうことは超初心者なので、
frame 使って2画面で棋譜アップロード掲示板ができるのかとか、さっぱり分かりません。
さしあたり
>>313 のと見比べてみます。
他にもアドバイスありましたらよろしくお願いします。
316 :
311 :03/04/30 14:52 ID:QS3YF5Ha
317 :
nobodyさん :03/04/30 15:13 ID:pDc7Jz2i
>>316 ChessViewerはPGNファイルを直接読み込むわけではないようなので
"PGNファイル" -> "<param name="へ変換する処理が必要なようです。
318 :
311 :03/04/30 15:24 ID:SRRouDd/
>>317 それが分かれば、実現できるんでしょうか。
ちうっと
>>315 を見てきます。
できれば具体的な方法を教えてください。
319 :
311 :03/04/30 15:33 ID:SRRouDd/
print "<PARAM NAME=KIFU VALUE=\"$fileflag\"> "; こういう感じで指示するのでしょうか?
20代OLです毎日上司のセクハラや通勤電車での痴漢でストレスがたまっていた
そのときにネットで見つけたアダルトDVDショップ以前からオナニー用にDVD
が欲しかったのですぐ注文しました、とても安くてびっくりしましたが次の日には
もう届きました私が買ったのは、オナニー、レズ、レイプです毎日オナニーしてま
す。
http://www.net-de-dvd.com/
僕も毎日オナニーしてます! ぜひ、お友達になりませんか!!
322 :
311 :03/04/30 15:57 ID:SRRouDd/
[Event "USA Ch. final"] [Site "?"] [Date "1997.09.10"] [Round "4"] [White "Christiansen, L."] [Black "Benjamin, J."] [Result "0-1"] [ECO "B08"] [WhiteElo "2550"] [BlackElo "2580"] [PlyCount "100"] 1. d4 d6 2. e4 Nf6 3. Nc3 g6 4. Nf3 Bg7 5. Bf4 O-O 6. Qd2 Bg4 7. O-O-O c6 8. Bh6 Qa5 9. Kb1 Nbd7 10. Be2 e5 11. Bxg7 Kxg7 12. h3 Bxf3 13. Bxf3 b5 14. g4 Nb6 15. h4 Nc4 16. Qc1 Rab8 17. dxe5 dxe5 18. h5 Ng8 19. hxg6 hxg6 20. Be2 Rfd8 21. Bxc4 bxc4 22. Rxd8 Qxd8 23. f4 Qd4 24. Ka1 exf4 25. Qxf4 Re8 26. a3 Qe5 27. Qe3 Re7 28. g5 a5 29. Ka2 Re6 30. Rh4 Re8 31. Rh1 Ne7 32. Rf1 Nf5 33. Qf2 Nd6 34. Qf6+ Qxf6 35. Rxf6 Nxe4 36. Nxe4 Rxe4 37. Rxc6 Re5 38. Rxc4 Rxg5 39. b4 axb4 40. axb4 f5 41. b5 f4 42. Rc7+ Kf6 43. b6 Ra5+ 44. Kb3 Rb5+ 45. Kc4 Rxb6 46. Kd4 Kf5 47. Kd3 Re6 48. Rf7+ Kg4 49. c4 f3 50. c5 Kg3 0-1
323 :
311 :03/04/30 15:59 ID:SRRouDd/
324 :
311 :03/04/30 16:05 ID:SRRouDd/
325 :
bloom :03/04/30 16:29 ID:amWoVOiY
326 :
311 :03/04/30 16:39 ID:SRRouDd/
ちょっと読んでみて、Z2とか、ソースとか見てみたけど、
小手先の改造では絶対不可能ってことは分かりました。
>>317 で言われているように、読み取り方に違いがあるようですから。。。
"PGNファイル" -> "<param name="に変換する処理のヒントでもいただけたら幸いです。
327 :
名無しさん :03/04/30 16:44 ID:KuskQgcg
328 :
311 :03/04/30 17:42 ID:xUP80x3j
ファイルハンドルというのを使うのでしょうか・・・
>>311 ChessViewer2.class って自作なの?
330 :
nobodyさん :03/04/30 18:11 ID:pDc7Jz2i
>>326 iif ($fileflag =~ /\.pgn$/) {
open (IN, "$fileflag");
@pgnlist=<IN>;
close IN;
foreach $pgn (@pgnlist) {
chomp($pgn);
if($pgn =~ /^\[Event "(.*)"/) {$title = $1;}
elsif($pgn =~ /^\[White "(.*)"/) {$whitename = $1;}
elsif($pgn =~ /^\[Black "(.*)"/) {$blackname = $1;}
あとは分からん
}
}
331 :
311 :03/04/30 20:11 ID:cmtd49aV
>>329 違いますけれど、自由に使って構わないものです。
>>330 それをどこに組み入れれば宜しいのでしょうか?
>>331 329 だけど、
ChessViewer2.class に渡せるファイルのフォーマットは解ってるの?
配ってるサイトで解説されてるとか?
それが解らないんじゃ、PGNファイルとやらを、どう変換して
*.class に渡して良いのか誰にも解らんと思うが
>>330 は「あとは分からん」と書いてあるのに
組み込んでいったい何をする気なんだ…
PGN形式では移動先の位置しか書いてないがChessViewerでは移動元も必要なようだ。 d4をd2d4という風に変換しないといけないがそのためには、駒の現在位置を配列とかに記憶させて d4に移動可能な駒を捜して、他にも敵の駒の位置も考えないといけないし、 結論 簡単には出来そうも無い。
334 :
311 :03/05/01 11:29 ID:8IRIjkqM
335 :
311 :03/05/01 11:30 ID:8IRIjkqM
>>332 調べてみます。
英語なのでなかなか分かりませんが・・・・・・
336 :
311 :03/05/01 11:38 ID:8IRIjkqM
337 :
311 :03/05/01 11:56 ID:8IRIjkqM
<APPLET CODE = "MistyBeachPGNViewer.class" CODEBASE = ".." ARCHIVE = "../MistyBeachPGNViewer.zip" WIDTH=525 HEIGHT=450> <PARAM NAME = pgnfile value = "../PGNFiles/Nottingham1936Game001.pgn"> <PARAM NAME = cabbase VALUE = "MistyBeachPGNViewer.cab"> </APPLET> これならできるやも・・・
>>337 話が見えてないんだけど、
1. ChessViewer2.class に PGNファイルを読んでもらう方法がわからないのか
2. PGNファイルを読んでもらえば Applet は何でも良いのか
1. も 2. もスレ違いなんだが
339 :
311 :03/05/01 12:22 ID:8IRIjkqM
340 :
動画直リン :03/05/01 13:10 ID:YcBKOzoM
341 :
http://pc2.2ch.net/mysv/ :03/05/01 13:11 ID:YcBKOzoM
342 :
nobodyさん :03/05/01 22:23 ID:n0TLbm76
管理人とその他の人をどう区別するかだろ。
345 :
nobodyさん :03/05/04 21:51 ID:3anNt9qk
CGI改造の板はここかい?
347 :
四十八手 :03/05/04 23:27 ID:VCEQzRZo
>>347 1つのフォルダの中に1登録あたり1つのファイルを作るみたいだから、
重複URLのチェックをすると登録数によっては凄い負荷がかかる。
別ファイルにURLリストを作ってそっちで処理した方がいいかもしれない。
349 :
nobodyさん :03/05/05 00:01 ID:zQX+o0JS
最近perlをはじめたものです。非常に単純なことで悩んで
います。
フリーの掲示板に年齢と性別のタブを追加したいのです。
大元の掲示板はこちらです。
http://cgi.www5e.biglobe.ne.jp/~kota28/bbs12.cgi この掲示板の入力フォームに$age,$sexを追加して、ログに書き出し
たいのですが、次のようなフォームを追加すると、うまく動かない
のです。
#######################################################
print "<P>年齢:</P>\n";
print "<FORM><SELECT name=\"$age\" size=\"1\">\n";
print " <OPTION value=\"1\">10代未満</OPTION>\n";
print " <OPTION value=\"2\">10代</OPTION>\n";
print " <OPTION value=\"3\">20代</OPTION>\n";
print " <OPTION value=\"4\">30代</OPTION>\n";
print " <OPTION value=\"5\">40代</OPTION>\n";
print " <OPTION value=\"6\">50代</OPTION>\n";
print " <OPTION value=\"7\">60代</OPTION>\n";
print " <OPTION value=\"8\" selected>70代以上</OPTION>\n";
print "</SELECT></FORM>";
print "<P>性別</P>\n";
print "<FORM><SELECT name=\"$sex\">\n";
print " <OPTION value=\"1\">男性</OPTION>\n";
print " <OPTION value=\"2\" selected>女性</OPTION>\n";
print "</SELECT></FORM>";
####################################################
どなたか、アドバイスをいただけないでしょうか?
よろしくお願いします。
350 :
349 :03/05/05 00:05 ID:zQX+o0JS
351 :
349 :03/05/05 00:07 ID:zQX+o0JS
352 :
_ :03/05/05 00:19 ID:???
name=age
>>349 Perl以前の問題。HTMLから勉強しなおしてきてください。
355 :
344 :03/05/05 03:18 ID:???
>>346 つまらん質問でしたか…
「つまらん」で片付くごく簡単なものなのでしたら、
そのヒントだけでも提示して頂けないでしょうか…
print "<SELECT name=\"$sex\">\n"; print " <OPTION value=\"1\">男性</OPTION>\n"; print " <OPTION value=\"2\">女性</OPTION>\n"; print " <OPTION value=\"3\" selected>お釜</OPTION>\n"; print "</SELECT>";
print "<SELECT name=\"sex\">\n"; print " <OPTION value=\"1\">男性</OPTION>\n"; print " <OPTION value=\"2\">女性</OPTION>\n"; print " <OPTION value=\"3\" selected>お釜</OPTION>\n"; print "</SELECT>";
359 :
動画直リン :03/05/05 09:10 ID:lHdchtO/
>>355 微妙な勘違いをしているようなので。
「つまらん」とは、言い換えれば、面白いか面白くないかと言う判断基準のことであり、
その改造が簡単か簡単でないかとは関係ない。
回答の得られやすさは、面白さを分子に、難しさを分母にした値に比例する。
>>355 にとってその改造の結果得られるものはとても「面白い」のだろうが、
他者にとってそうとは限らない。
>>360 CHAT ROBOを2つ置いて選ばせる。
365 :
nobodyさん :03/05/07 13:11 ID:Cmn7dw5H
366 :
__ :03/05/07 13:47 ID:???
http://bugzilla.mozilla.gr.jp/ Bugzillaと言うバグ管理システムですが、
バグ登録時やバグ修正後に送られてくるメールの内容が変更できません。
ソースをDLするとprocessmailと言うファイルがあって、そこを何度も
書き直したのですが、うまくいきません。
メールの内容はどのファイルでどのタイミングで変更すればよいのでしょうか?
よろしくお願いします
369 :
yuy :03/05/08 19:46 ID:???
>>368 メーリングリストで聞いたり、掲示板で
聞いたのですが、知ってる方がいらっしゃいませんでした。
>>370 念のために聞くが、放置されたのを都合よく解釈して言ってるんじゃないだろうな。
その質問の仕方の下手さ加減からして、トンチキなことを言って失笑を買っているのを
本人だけ気付いてないなんて状況が思い浮かぶんで。
で、掲示板で聞いたとか言うけど、どの書き込みなのかURLを示してみてよ。
最低限、すぐ見れる状態のソースぐらい貼れよ……
374 :
369 :03/05/09 11:14 ID:???
自己解決しました。
375 :
369 :03/05/09 13:12 ID:???
#!/usr/bin/perl を #!/usagi/binbin/pearl にしてました。
>>372 空いた口がふさがらねえ。
まず、死んでる掲示板に書き込んで返事が得られると思う方がおかしい。
それに、MLで投稿して返事がないということは、
http://www.geocities.co.jp/SiliconValley/5656/ この辺を参考にして自分の投稿がトンチキでなかったかを確認する必要がある。
きちんとソースを理解している人間にとって、その質問は的外れなものかも知れん。
ふと思ったが、その内容を変更したいメールは誰が送るものなんだ?
もし、バグジラ組とやらが送ってくるものであれば、その内容変更はそこに言わなきゃやってくれんだろ。
なんかどっかずれてないか?
378 :
nobodyさん :03/05/16 16:49 ID:vk9NMPXM
外部ファイルからデータを読み込んでhtml出力(ブラウザ表示)させようと思ってます。 下記のように一行なら出来ているんですが、 #!/usr/local/bin/perl open(INPUTDATA,"htmldata"); $lines = <INPUTDATA>; close(INPUTDATA); print "Content-type: text/html\n\n"; print "<html><head><title>ダウンロード</title></head>\n"; print "<H1>download here</H1>\n"; print "$lines\n"; exit; 上記のものを複数行を読み込んで表示させようと下のようにするとエラーになってしまいます。 #!/usr/local/bin/perl open(INPUTDATA,"htmldata"); @lines = <INPUTDATA>; close(INPUTDATA); print "Content-type: text/html\n\n"; print "<html><head><title>ダウンロード</title></head>\n"; print "<H1>download here</H1>\n"; foreach $line(@lines){ print "$line\n"; } exit; いろいろ試したのですが、ちょっと分からないので間違いを指摘おながいします。
379 :
nobodyさん :03/05/16 17:00 ID:huL3ZgZX
380 :
nobodyさん :03/05/16 17:00 ID:/vK5T7Hl
>>378 ここは何らかのスクリプトを改造するスレ。
>>1 ついでだから答えるけど、それは複数行だからではなくデータの内容が原因
>>378 まあ、本来ならCGIスレにでも逝け(ただしPerlスレには(・∀・)クルナ!)と言いたいが
せっかくなんで。
「エラーの内容ぐらい書きましょう。」
382 :
378 :03/05/16 17:40 ID:vk9NMPXM
>>380 ,381
CGIスレで、この手前の部分の質問をしたら、
このスレに誘導されちゃったんです。(汗)
380さんのおっしゃるとおりなのか、わからないのですが、
381さんに言われて、エラーメッセージを確認しようと思ったら
ftp倉が、固まり、再起動して、うpし直したら動いてしまいました。(汗)
ということで自己解決してしまいました。
お騒がせしてスイマセン。<(_ _)>
383 :
nobodyさん :03/05/16 17:49 ID:qszpuOdP
384 :
377 :03/05/16 22:27 ID:???
スマソ スレ投稿の番号がちゃんと出てますた。 しかし、別の問題があるようです。 「返信」ボタンを押しても返信フォームが出なかったり、 返信フォームで投稿しても、コメントが追加されなかったりします。 返信ボタンをいくら押しても駄目なときは、リロードするとうまくいったり します。
385 :
377 :03/05/16 22:35 ID:???
php版ではなくて、CGI版でまず試してみます
386 :
377 :03/05/16 22:35 ID:???
Perlならまだ扱ったことがありますので
387 :
nobodyさん :03/05/17 22:58 ID:Y7fvkf+J
<a href=\"../bbs/nebbs.cgi/$FORM{'bbs'}/$key/$topnum\" target=\"_blank\">全てを表示します</a> このようにすると別窓を開いて表示してしまいます 別窓を開かないで表示させたいのですがご指導よろしくお願いします。 あと、2chのように最新50みたいにしたいのですが、 全てを表示しますに何を書き加えればよいのですか? <a href=\"../bbs/nebbs.cgi/$FORM{'bbs'}/$key/$topnum\" target=\"_blank\">最新5件</a> にしたいのです宜しくお願いします。
>>387 >>1 ついでに言っとくけど、そんな初歩の初歩のがわからないなら
いじらならほうがいい
389 :
ゆう ◆/VDJAOMra. :03/05/17 23:50 ID:GERvImWq
ホームページ作成代行を行っている者なんですが、 cgi担当のヤシが借金苦に蒸発してしまい、 他にパソコンを使える者がいないので、 デザイン・レイアウト担当の私がショッピングカートのcgiを改造しなければなりません できることと言えばhtmlとパーミッションの設定ぐらいなのですが、 こんな私でもここで質問して宜しいでしょうか?
>>389 質問は自由だけど、個人的には、金銭が絡むCGIの改造はちょっと答えられない。
もし改造が原因であなたに損害が発生したら、いろいろと面倒なことになりそうだし。
あと、2chのように最新50みたいにしたいのですが、 全てを表示しますに何を書き加えればよいのですか? <a href=\"../omera/nani.cgi/$mazi{'ahodaro'}/$aho/$sindekoi\" target=\"_blank\">最新5件</a> にしたいのです宜しくお願いします。
394 :
nobodyさん :03/05/18 09:28 ID:wPiZL/S/
396 :
nobodyさん :03/05/18 14:48 ID:bxD8LE1b
ゲッ!! ageてしまった。
398 :
nobodyさん :03/05/19 18:21 ID:qiMkyU4M
そうですね… もうちょっと勉強します。 ご迷惑かけました!
>>398 なんか、元々順不同にしか表示されんような仕様になってるがどうか。
つか、作者に聞け。
401 :
non :03/05/20 05:06 ID:???
表の幅を広げれ。
Perlじゃなくてhtml
それと
>>1 を50回は読め。
>>403 アフォか。
チャットになんでスレッドが必要なんだよ。
>>404 スレッドじゃなくて専用アイコン機能を取り付けたいという意味ではなかろうか?
406 :
山崎渉 :03/05/22 02:00 ID:???
━―━―━―━―━―━―━―━―━[JR山崎駅(^^)]━―━―━―━―━―━―━―━―━―
>>405 つまりそれは、
>>403 が自分のやりたいことを言葉にできないヴァカであると言うことか?
トリップ機能を付けようと以下の記述を組み込んだのですが、 # トリップ機能 $in{'name'} =~ s/◆/◇/g; if ($in{'name'}=~/#(.+)/){ my $key = $1; my $salt = substr($key."H.", 1, 2); $salt =~ s/[^\.-z]/\./go; $salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/; my $trip = ' ◆</b>' . substr(crypt($key, $salt), -10) ; $in{'name'} =~ s/#.+/$trip/; } =====中略===== #クッキー if ($in{'name'}) { $c_name = $in{'name'}; } このままだと、投稿後のクッキーに変換された文字列が含まれて、 名前欄のフォームが 「なまえ◆abcdefgh」 みたいになってしまいます。 クッキーに、変換される前に回避させて、「なまえ#trip」みたいにしたいのですが、 ネット上を徘徊しまくってコピペだけで進んできて、この先どうすればよいのか分かりません。 ご教示願いたく思います。
#クッキー if ($in{'name'}) { $c_name = $in{'name'}; } これを、# トリップ機能の前に持って逝けばいいんでないかい? それか、 # トリップ機能 $tekitou = $in{'name'} ; $in{'name'} =~ s/◆/◇/g; =====中略===== #クッキー if ($in{'name'}) { $c_name = $tekitou; } でいいんでないかい?
410 :
408 :03/05/22 04:29 ID:???
>>409 ローカルでテストしてみたところ、できました!
迅速な対応、痛み入ります。
{ $c_name = $tekitou; } が分かりませんでした。
まだタネが分かってませんが、自分の中で噛み砕いてみます。
こんな夜分遅くにありがとうございました。失礼いたします。
>>410 $in{'name'}という変数は、# トリップ機能のところで、「なまえ#trip」から「なまえ◆abcdefgh」に変換される。
そののちに#クッキーで、$in{'name'}をクッキーにいれているんだから、解決策は
>>408 で書いた通り、変換される前にクッキーに入れれば桶っていうこと。
$tekitouという変数名はその名の通り漏れが”適当”につけた変数名。
気になるなら、自分で書き変えれな。
412 :
408 :03/05/22 04:43 ID:???
そうか、トリップを生成、付する関数が$in{'name'}。 下で、それを入力してたのか。 その前にクッキーに入れたい、というところまでは分かったのですが、そう書けば 良かったのですね。てっきり、「in」あたりが入力の意、かと… 関数名も替えてみました。重ね重ねありがとうございました。
>>407 違う、ヴァカ以前になんで生きているのかという事
414 :
nobodyさん :03/05/25 10:04 ID:E4UkXJSB
改造の質問です。
「CGIぽん」で配布されている「スレッド天国」というBBSのCGI
(
ttp://specters.net/cgipon/tengoku/ )
があるのですが、
現在の設定ではレスをつけた時に、記事が一番上に表示されるようになっています。
これをレスをつけても記事の順番が変わらないように改造したいのです。
どなたかご教授お願いします。
415 :
nobodyさん :03/05/25 13:52 ID:zgitBvt3
age
416 :
nobodyさん :03/05/25 16:27 ID:WACUowuf
定期age
世の中には「0」というハンドルの人もいるかもしれないので、 if ($in{'name'}) { $c_name = $tekitou; } よりは if ($in{'name'} ne "") { $c_name = $tekitou; } のほうがいいぞ。
書けるかな?
419 :
nobodyさん :03/05/27 00:09 ID:jA7X2z0h
>>419 質問するときは以下の点に注意して書いて下さい
(1) そのスクリプトの内容と置いてある場所を明記する (txtファイルでUPすればなお良い)
(2) どんな風に改造して欲しいのか? (完成イメージHTMLを用意すればなお良し)
(3) 出来るだけ詳しく書くこと。少しは自分で考えること。できれば御礼も言ったほうが良い
(3)はー?
421 :
サンプルです :03/05/27 00:17 ID:zpt6lz/2
422 :
nobodyさん :03/05/27 00:24 ID:jA7X2z0h
424 :
_ :03/05/27 00:46 ID:???
>>423 えー、順番を変わらないようにして、何か意味あるの?
>>423 ソース見たけど、あまりにデカくて解析するだけで大変なのでやめた。
HTMLを直書きしてるソースは見るだけで辛い……
配布元にお願いしてみるというのはダメ?
428 :
423 :03/05/27 19:32 ID:???
>>427 配布元にサポートBBSがある事はあるんだけど、“改造は自己責任で”で一蹴されるのです。
さらに初心者面で質問すると常駐してる管理人でない人に叩かれるので怖くて聞けません。(汗
ログを書き込む部分で、ソート順をなんとかいじれば…とは思うんだけどうまく行かんのです。
>>428 ああ、改造は自己責任な。じゃあなおさら自分でやらなきゃ。
人に聞いたら駄目じゃん。
人が改造したのを使って不具合が出たら、誰のせいになるの?
430 :
428 :03/05/27 21:51 ID:???
誰かに責任を負わせようなどとは思っていません。
>>428 >「改造は自己責任で」
裏を返せば、「自力でなんとかできない奴は改造なんかするな」ってこと。
改造じゃなくて、要望という形でお願いするとかしてみたら?
改造ってのは、結局自分本位でしかないから。でも要望なら、利用する人
すべてに恩恵があるし、作者もそういうフィードバックを望んでいるのでは。
そのためのサポートBBSなんだと思う。
で、今サポートBBSを見てきたけど、けっこう改造の話題がでてるけど?
けっこう丁寧なレスがついてるみたいだし、とりあえず聞いてみれば?
ちなみに「初心者面すると叩かれる」のは2chも同じ。
そういう人は「初心者」を理由にして何でもかんでも手取り足取り教えてもらおうと
するので嫌われる。少しでも自力で何とかしようと頑張ってる人なら、こっちも
応援してあげたくなるもんだよ。
432 :
山崎渉 :03/05/28 17:04 ID:???
∧_∧ ピュ.ー ( ^^ ) <これからも僕を応援して下さいね(^^)。 =〔~∪ ̄ ̄〕 = ◎――◎ 山崎渉
―――――― @ノノハ@ (^^) //( ´_ゝ`)< ふーん 下さいね ―――――― ,-―─<\__/> 、 応援して / ,ゝ─、(\/λ ) 僕を ―――――― √7 /_ ,<\ノ -----=====---- ∧_∧ からも (_,ソ ノ ,、-‐''''~^`⌒''ー―‐i―,--==--っ (; ^^ )<これ ―――――― _ノ/ _,、-‐''ー--‐‐'‐‐--、,-----=====----^ζ`,,、/ . </ノ`、ー='/-----=====--------- ∵ ∴; , '~ ―――――――  ̄´/ / _ _ ∴ :' '' / /-----=/ / | ̄| 「」「」 \ヽ/ヽ / ノ / / \.\ ; / / -----=====------!./ // .\\ ヽ/ヽヽ/ヽ ,=;゚,、 / / -----==//==---- \`ー、 / / 「」「」/> 〔~∪ ̄ ̄〕ボシュッ ー' ー" ヽ/ \\ ノノ ◎――◎ | !, ヽノ
437 :
419 :03/05/30 23:13 ID:465DYCfS
phpBBアップローダ難しいでしょうか?
438 :
nobodyさん :03/05/30 23:25 ID:mkjkHf6l
439 :
_ :03/05/30 23:36 ID:???
>>437 機能ひとつまるごと付加するのは難しい。
技術的にではなく、面倒くさい。ちょっとしたCGIを新しく作るぐらいの労力がかかる。
だから誰もやってくれないと思われ。そういう機能を持った違うCGIを探したほうがいい。
441 :
419 :03/06/01 00:47 ID:8Jxl2XR1
442 :
おねがいしましゅ :03/06/01 22:27 ID:AaE++eS6
>>マルチの上、スレ違い。帰れ。
帰ります!
445 :
435 :03/06/03 20:03 ID:???
わかりませんかね? 字数カウントするとかなのでしょうか? そういう機能がついたCGIを配布しているところがあれば教えていただきたい。
>>445 頭悪りいなおい。
KENTのスクリプトに自動改行、手動改行の選択をサポートしてる掲示板がなんかあったろ。
確かスクリプトの最初の初期設定のところでそれができるようにしてるのを覚えてるが。
後は、
1.自動改行、手動改行の処理部分をパクり、
2.自動改行、手動改行の選択をするラジオボタンを出力するように改造し、
3.ラジオボタンからの入力を取得する仕組みを追加
すれば完成じゃねーか。
ソースを読まずに改造しようとか考えるな。
447 :
たか :03/06/06 04:16 ID:DE37A5Vx
tacky's roomのフレーム式チャット「アチャー!」を設置したのですが、
http://tackysroom.com/page_cgi5.htm たとえば「clear」と発言したら今までの自分の発言を消去する方法と、
会話をロムってる人の人数を表示させる方法が知りたいです。
参加者(1):○○ ロム(1) みたいな感じです。
改造とか全然できない為、DLしてpass等以外は
何もいじってません。
txtファイルでUPというのがわからないくらいアフォなんですが
とりあえず何か言ってくれれば答えますので・・
>>447 冷たいようだけどそのレベルじゃやめといたほうがいい
そういう機能があるチャットなんかいくらでもあるから、
別のに替えてしまえ
449 :
集計BOY :03/06/06 11:27 ID:1mzNtUxN
450 :
”管理”人 :03/06/06 11:38 ID:/EG/8l27
451 :
集計BOY :03/06/06 12:04 ID:1mzNtUxN
設定では60日にしてみたのですが、一見問題ありません。 スクリプトをみたところ、どこで1-30と指定しているか 解りませんので、30日集計後が不安です。 どうか御教示お願いしますm__m
>>451 ぱっと見だけど、ma.cgiの 72,81,93 行目あたりがヤバそうだね。
たぶん30日以上前のデータが飛ぶんじゃないかな。
453 :
集計BOY :03/06/06 18:35 ID:1mzNtUxN
>>452 レスありがとうございます。
そうなんです。私もその辺り気になります。
でも今いち意味がわかりません。。
また、何の為に30日までとしているかが疑問です。
>>455 ・あなたが変更を施したソース
・どううまくいかないのか
最低この2点は書きましょう。
>>452 アンタ甘すぎ。
>>451 聞くところを間違えてる。まずは配布元に聞け。
作った人間が一番詳しいし、何故30日に限定しているのか本当の理由を知っているはず。
つうか、まともな思考ができるならそう考えるはず。
なんでいきなりにちゃんで聞く? にちゃんは最後の最後の手段だぞ?
449です。
>>457 レスありがとうございます。
ma.cgiの 72,81,93 行目は違うのですね!
作成元のTHE ROOMが管理人多忙の為しばらくサポート中断しています。
自分でもCGIを勉強しながらがんばって解析してるのですが、
急ぎの為、スキルが間に合いそうにありません。
他、昨日からネットで探してるのですが、答えが出てきません。
2ちゃんでナイスなスレを発見したのでカキコさせて頂きました。
御存じでしたら何卒よろしくお願いしますm__m
>>459 とりあえず60日で試したいなら、
72行目を60
81行目を59
93行目を59
でやってみたら?
で、30日経過後、60日経過後に異常が出たらまた対処法を考えたらどうかな。
461 :
集計BOY :03/06/07 15:43 ID:nwgmuDaq
>>460 レスどうもです!!
とりあえず現在そうしてみました。
ですが、30日を経過して駄目だったらちょっとエライ事になってしまうんです。
有償でも良いのでどなたかにお願いしたいくらいなんです。
大元の作成者にその旨連絡をとっているのですが返事が来ません。
どなたかCGIにお詳しい方のご意見を頂けたらうれしいです。
462 :
nobodyさん :03/06/07 22:30 ID:6B2lLemd
>>461 え、あ、あれ?
金払ってもいいくらいなら最初から有償のを使うと言うのはなかったのか?
有償使うも何も、管理者と連絡がとれないのです。
465 :
よろしくお願いします :03/06/08 02:12 ID:LeDVLYXU
センター寄せになっているページで、 プルダウンメニューをレイヤーを使って実現したいです。 --------------------------- ユーザーのWINDOWサイズを取得 ↓ windowサイズからコンテンツサイズを引いて、それを2で割る。(左側の余白の数値がわかる) ↓ コンテンツの端からレイヤーの位置までは絶対数だから、 余白の数字とコンテンツの左端からの絶対数をたす。 ---------------------- このような方法で、 センター寄せページでもレイヤーを実現できる ということは分かったんですが。 各OS、ブラウザのwindowサイズ取得のjavascriptまではできたのですが、 その後の一連の流れを命令するスクリプトがわかりません。 アドバイスをお願いします。
>>465 Web制作板のJavaScriptスレで聞いたほうがいいのでは。
ここはサーバーサイドの話題専門だから。
>>464 いや、そーじゃなくてさ。
今使ってる奴じゃなくて、
製作者がきちんとサポートしてくれる有償のスクリプトを
別に探してきて使えばいいんじゃないかって言ってるんだが。
日本語通じなかった?
何でこうケンカ腰の香具師ばかりなんだ?
>>468 このスレは現在のスクリプト改造に対するアドバイスを頂ける場所かと思い、
カキコさせて頂きました。
どうやら私が場所を間違いたようですね。すみません。
アドバイスをくれた方々、どうもありがとうございました。
>>446 どのCGI?
選択って
$wrap = ""; #のようなのがあって
・・・
print ("<input type=text wrap=$wrap>"); #みたい
なのじゃないですよね?
>>472 忘れた。マジで。KENTのスクリプトなんか確認する気もおきないし。
まあ、俺だったら最初から改行処理なんかしないな。
HTMLがどこで改行されるかなんて、
見る側のブラウザに一任して忘れていい程度の問題だしな。
鯖側から指定するほどの重大事じゃあない。
もしするとしたら、jcode.plか、Jcode.pmを使うと思う。
メール用に長文を整形して折り返すメソッドがあるから、
それをそのまま使って楽をするね。
匿名メールのできる
ttp://www.webpower.jp/websofts/message_boards/meeting_room/ のCGIを改造しています
新規投稿で匿名オンオフができるのですが
チェックボックスがついていてデフォルトでオフになっています
1400行目辺りの
if ($sendmail) {
$Value{'SecretEmail'}= ' checked' if ($Value{'SecretEmail'});
$Emailok = "<input type=checkbox name=SecretEmail$Value{'SecretEmail'}>アドレス非開示";
}
これをチェックボックスを無しにして常に匿名メールの状態を維持したいのですが
type=hiddenにすることはわかったのですがそれ以上わかりません;;
WebProg初心者の質問スレから改造スレ逝けといわれたのでこちらにカキコしました
お忙しいかと思いますがご教授お願いします。
>>474 これでどうだろう。テストしてないんで動かなかったらスマソ
if ($sendmail) {
$Value{'SecretEmail'}= ' checked';
$Emailok = "<input type=hidden name=SecretEmail value=1>";
}
476 :
nobodyさん :03/06/14 03:17 ID:EsV4ek0P
>>476 板違いっぽいが、まあいいっか。
<frameset border="任意">
thanx!>477
Joyful Noteにスレッドタイトルを表示させたいのですが、 そのとき、スレッドタイトルをリンクさせたとき /joyful.cgi? の後に何かをつけて そのスレッドのみを表示したいのですが、「記事を展開」の 部分をどのように改造したらいいでしょうか? 雰囲気としては、記事表示数が設定できるのでそれを、一記事のみ 表示させるような感じです。 それと、単独表示させたときは、最下部に返信フォームを 入れられるようにしようと思ってます。
480 :
:03/06/19 23:43 ID:???
481 :
nobodyさん :03/06/20 16:39 ID:Me43kE/L
483 :
◆Ej0tWpI4SQ :03/06/20 21:06 ID:igwYbafg
484 :
無料動画直リン :03/06/20 21:10 ID:Q1+dqLU8
485 :
481 :03/06/21 01:32 ID:O/q8ydvs
>>482 マルチポスト・・・・結果としてはそうなってしまったのですが
もう片方の板で、改めて見てみると内容が違うなぁと・・・・
だから、こっちに書かせてもらっただけです。
486 :
603 :03/06/21 01:48 ID:???
>>485 これまた高負荷なCGIだな。
ブラウザの設定でキャッシュを使わないようにしてたから
ダウンロードを延々繰り返したよ。
>>485 だったら無効に挨拶するくらいのことしろよ。厨房。
488 :
481 :03/06/22 07:49 ID:dS/mcQ1U
自己解決したのでいいです
>>483 > ffbull
やけに重いねそれ・・・特に五つ目のサンプル
>>480 スレッド掲示板使え。
ログファイルが1つだから重くなるのは当たり前。
491 :
480 :03/06/22 22:36 ID:???
>>490 動作が軽いPHPで携帯対応の、スレッド掲示板ってなかなか無いんですよ。
無いものは自分で作る
>>491 ここは改造スレであって、
>>492 の言うように、
ないものは自分で作るのが主旨だろ。
何を「探してます」みたいな発言してんだよ。
494 :
nobodyさん :03/06/24 19:21 ID:oWkMjnpb
495 :
nobodyさん :03/06/24 19:29 ID:V28TXDZZ
496 :
_ :03/06/24 19:49 ID:???
>>497 まず、どこをどう自分で改造してみたのかをさらして見ること。
「やってみたのですがうまくいかなかったので」 (訳:何もやってません、面倒だったので)
「やってみたのですがうまくいかなかったので」 (訳:誰かがやってくれたら使ってみてもいいので)
「やってみたのですがうまくいかなかったので」 (訳:早く教えろよ、この厨房ども!!)
>>494 opendir(INDIR, "./schedule/");
my $files = join(",",sort(grep(/$year\_$month\_[0-9]{1,2}\.txt$/,readdir(INDIR))));
closedir(INDIR);
for文内で条件分岐
if($files =~ /$year\_$month\_$i\.txt/){
print "<a href=\"schedule2.cgi?year=$year&month=$month&day=$i\">$i</a>";
}else{
print "$i";
}
これでいちおうできるかも
あ、sortする必要なかった
@
505 :
nobodyさん :03/06/30 15:34 ID:NIQmz98D
予定を書き込む前にパスワードが必須になるように改造する
>>505 質問する際にまずやるべきことがあるんじゃない?
あ、すんません。 とりあえずパンツはきます。 これでいいですか?
ケツの穴を(ry
510 :
505 :03/06/30 20:08 ID:???
ネタはさておき、まずどうすればいいですか?
>>510 とりあえず過去ログ見てみ
どういう質問したら、どういう回答があるのかがわかるから。
ま、ぶっちゃけていうとだな。。。
改造してもらうつもりなら、
>>510 もそれなりの苦労はしてもらうぞと。
本7 ◆uPD9aFm9hIというのが来ても徹底放置でお願いします。
514 :
nobodyさん :03/07/02 04:40 ID:M1i5rE77
本7◆uPD9aFm9hI sage
515 :
nobodyさん :03/07/02 07:25 ID:9UFSTml5
なるほどw NGワードに入ってたわw
yybbsの過去バージョン使ってるんですけど、ログの拡張子をcgiに変えても 大丈夫なんでしょうか?そのままだとログの中身が丸見えになってしまうもんで。 試しに拡張子を変えてみたら一応、動いたんですけど・・・。 少し改造(といっても他のスクリプトからの流用とかデザイン変更程度だけど) してるので最新版への以降できない状態なので大丈夫なのかどうか教えてください。 何かスレ違いな気もしますがお許しを。
>>519 読み書きしている部分で拡張子変更後のファイルを扱えるように
したのならそれでかまわない。
本当ならパーミッションで制限させるほうがいいけどな。
>>520 そうっすね。冷静に考えたら。
でもこのままで行こうかと・・・。
ログファイルを指定する部分をlogからcgiに変えるだけですよね?
つ〜かそれで問題なく動作してるんですけど。
本体がyybbs.cgiログの方がyybbs2.cgiみたいな感じで。
他にどこか書き換えなきゃいかん部分とかってあるんですか?
スクリプト内にlogで検索かけても特にひっかかる部分がなかったので
大丈夫かな〜なんて思ってるんですけど。
>>521 それだけでいいよ。他に変更する部分はない。
結論 動 き ゃ 問 題 な い
524 :
519 :03/07/03 12:59 ID:???
どうもです。
>525 if ($ENV{'CONTENT_LENGTH'} > 131072) { &error2("処理エラー","処理できない大きなファイルを受信しました。-> $ENV{'CONTENT_LENGTH'} bytes","サイズが100,000バイト程度を上限に画像を送信してください。","最初からやり直してください。"); &Menu; exit; }
>>526 131072この数字、とりあえず3倍にしてみたんですがエラー出たんです。。。
>>527 cgi-lib.pl の 21 行目で調節してください。
・・・相変わらずこんなもん使ってるのか。
>>528 できました!
.plのほうでしたか。。。お手数おかけしました。
今までJoyful Note使ってたんですがMacの人が書き込めないらしくて
それでこれを試してみようかなと。。。
http://php.s3.to/chat/ ここのフレームチャットで、ROM人数が表示されるのですが
クッキーをOffにすると、無限に増えてしまいます。
IPでチェックをしたいのですが、どこを弄ればいいか分かりません。
Perlならなんとかなりそうなのですが・・・
怪しいところのソースです。よろしくお願いします。
function MemUpdate($name,$color,$id){ $mem_arr = file(MEMBER); $now = time(); $addr = getenv("REMOTE_ADDR"); $host = @gethostbyaddr($addr); $fp = fopen(MEMBER, "w"); $flag = false; foreach($mem_arr as $mem_data){ list($m_name,$m_co,$m_ip,$m_id,$m_time) = explode("\t", $mem_data); if(($now-$m_time) > 60){ $name = ""; continue; }elseif($id == $m_id){ fputs($fp,"$name\t$color\t$m_ip\t$id\t$now\n"); $flag = true; }else{ fputs($fp,"$m_name\t$m_co\t$m_ip\t$m_id\t$m_time"); } } if(!$flag) fputs($fp, "$name\t$color\t$host\t$id\t$now\n"); fclose($fp); }
function MemDump(){ $mem_cnt = 0; $rom_cnt = 0; $mem_arr = file(MEMBER); foreach($mem_arr as $mem_data){ list($m_name,$m_color,$m_ip,$m_id,$m_time) = explode("\t", $mem_data); if(trim($m_name)){ $mem_lst .= " <font color=".$m_color.">".$m_name."</font>".SEPA; $mem_cnt++; }elseif(ROM==2){ $mem_lst .= " ".$m_ip.SEPA; }elseif(ROM==1){ $rom_cnt++; } }
elseif じゃなくって elsif だよ・・・ パッと見で・・・
534 :
nobodyさん :03/07/09 22:53 ID:PKJamw+8
appleple.comの間違いです ああ、阿呆だ自分… すいません
537 :
nobodyさん :03/07/10 06:03 ID:JsAivAOj
>>533 530が >Perlならなんとかなりそうなのですが・・・
って書いてるけど?つか、ここはphp分かるヤシ見てるのか?
漏れもワカランが
>>533 Perl elsif
PHP elseif
>>530 そのフレームチャットはユーザーの判別をセッションIDで管理
しているので、それをIPで判別するようにすればいいかと。
ファイルにはホストがすでに書き込まれているので、
>>531 の
elseif($id == $m_id)
を
elseif(strcmp($m_ip,$host) == 0)
にすれば直るかも。
ちなみにchat.phpの方もセッションIDで管理しているので、
そっちもホスト判別するように書き換えたほうがいいよ。
>>540 ありがとうございました。
chat.phpもセッションIDだらけでした・・・
Offにしていると名前とかも空欄になるのですよね(;´Д`)
リファレンス本買って勉強します。
542 :
540 :03/07/11 11:45 ID:???
>>541 頑張ってくださいー
>>534 もしかしてsetup.cgiのところが
$not_glob = 1;
になってませんか?もしなっていたら
$not_glob = 0;
にしてみてください。
543 :
nobodyさん :03/07/11 18:59 ID:VHZW4KqE
>>543 【依頼】って何?
この言葉の意味を知ってて使ったのか?
だったとしたら、ずいぶんと高飛車だなあ。
まあ、ソース出してるんだからよしとしましょ。 配布先のURLも出さずにやりたいことだけ書くアフォにくらべればかわいいもんだって。
546 :
543 :03/07/11 22:00 ID:VHZW4KqE
>>544 すみません・・・【】の中、できるだけきちっと書かないとダメかなぁと思って無い知恵絞って考えた結果「依頼」しか思いつかなかったんです・・・
気を悪くされたなら本当にごめんなさい。
>>545 ありがとうございます・・・今後は言葉に気をつけます・・・
>>543 912行目以降の「メニュー表示」の中の「検索」の行だけ消してしまえば、とりあえず
メニューから検索が消える。
ただこれだと機能自体は生きてるし、URL直打ちしたら入れてしまう。
機能を殺したいのなら、176行目の「if ($act eq "srh1"){&srh1;}」の行を削除(または
先頭に # を挿入)して、次の行の先頭の elsif を if に書き換える。
「カテゴリ無制限分類」ってのがよく分かんない。登録するカテゴリ数を制限したいの?
548 :
543 :03/07/11 23:09 ID:VHZW4KqE
>>547 すごい・・・できました!
すごくわかりやすい解説ありがとうございます!
あと、「カテゴリ無制限分類」というのはですね、例えばこのcgiの場合、管理者(自分)がカテゴリーをいくつか作って(例えば「テキストサイト」「配布サイト」などのように)、訪問者が該当するカテゴリー内にリンク登録するという感じですよね。
そのカテゴリ自体を無くしてしまうというか、登録されたサイトすべてが同じページに一緒くたに配置されるようにしたいのです。
ですのでtopにあるチェックボックスも消したくて、見た目に殺風景な感じにしたいのですが、一応自分では「カテゴリー」に関係する箇所を削ったりしてみたのですがどうしても500内部サーバーerrorとなってしまいました。
わかりにくい説明で申し訳ありません・・・
いつまででも待ちますので、お時間のある時がございましたらまたアドバイスの方宜しくお願いします。
とりあえず「検索」を消してもcgiが動くということ自体、自分では手のつけられなかったことです。
本当にありがとうございました。
>>548 >>547 の検索機能の削除だが、
sub srh1のブロックも削除した方がウマー
暇だったので、カテゴリー機能の削除をやってみた。
非常に面倒だった(ヤルンジャナカッタ…)。
以下にヅラヅラと書いておくからな。
# アク禁されそうだぞオイ
カテゴリーを使わないのなら、“管理”は不要になるので、 sub adm2とsub adm1のブロックは削除。 メインルーチンの elsif ($act eq "adm1"){&adm1;} elsif ($act eq "adm2"){&adm2;} も削除。 sub navi1の中の、 <a href="./atlink2.cgi?act=adm1">管理</a> も削除だな。
sub del2の中の、 <tr><th>カテゴリー</th> <td nowrap>$temp1[$temp2[0]]</td> </tr> 削除すれ。 sub chg3の中の、 <tr> <th nowrap width=30%>カテゴリー </th> <td nowrap>$temp1[$sitecat]</td> </tr> 削除すれ。
sub chg2の中の、 <tr><th>カテゴリー</th> <td nowrap><select name="sitecat" class="input"> EOD for(0 .. $#temp1-1){ if ($_ == $temp2[0]){$a2 = " selected";}else{$a2="";} print "<option value=\"$_\"$a2>$temp1[$_]\n"; } print <<EOD; </select> </td></tr> 削除すれ。
sub reg2の中の、 <th nowrap width=30%>カテゴリー </th> <td nowrap>$temp1[$sitecat]</td> </tr> 削除すれ。 sub reg1の中の、 <tr><th>カテゴリー</th> <td nowrap><select name="sitecat" class="input"> EOD open(IN,$datafile); eval{flock(IN,1)}; my @temp1=split(/<>/,<IN>); close(IN); my $a2 = " selected"; for(0 .. $#temp1-1){ print "<option value=\"$_\"$a2>$temp1[$_]\n"; $a2 = ""; } print <<EOD; </select> </td></tr> 削除すれ。
sub indicateの中の、 $navibuf = &navi2; print $navibuf; (2ヶ所あるぞオイ) &navi2; 削除すれ。 while(<IN>){push(@log,$_) if $_ =~ /^$cat</;} を while(<IN>){push(@log,$_);} に変更すれ。 <tr><th bgcolor=$linkcolor1 colspan=2 width=100%>$catdata[$cat] - $ct件</th></tr> を <tr><th bgcolor=$linkcolor1 colspan=2 width=100%>登録済み - $ct件</th></tr> に変更すれ。
sub navi2ブロック丸ごと削除すれ。
これで
>>548 の望む動作にはなるはずだ。
他に色々修正すべき点はあるが、根気が続かないのでここで止める。
詳細なテストをしてないので、エラーを吐いたらスマソ。
(つーか、perl -wc atlink.cgi でいろいろ言われてるがな)
あとは
>>548 の宿題でよろしいか?
鬱だのう〜 sub datacheckの中の、 if ($sitecat eq ""){&error("カテゴリーを選択してください。");} elsif ($sitename eq ""){&error("サイト名を入力してください。");} を if ($sitename eq ""){&error("サイト名を入力してください。");} に変更汁。 これで大丈夫! ダトオモウ
558 :
nobodyさん :03/07/12 11:20 ID:dkTTYYjg
559 :
558 :03/07/12 11:21 ID:dkTTYYjg
>>558 ソース見ないでカキコ。ファイル名のサフィックスが .pl だったので、
perl だな…
名前>>URL をマッチさせればいいんじゃない?
URL のマッチルールはperlメモでも読んでくれ
あと、名前のところは当然マルチバイト文字も入るから…
\b[\B]+>>
こんな正規表現ではどうか?
561 :
560 :03/07/12 11:41 ID:???
s/(\b[\B]+)>>(s?https?://[-_.!~*'()a-zA-Z0-9;/?:@&=+$,%#]+)/<a href=\"\2\">\1</a>/g; こんな感じかな…。ただ、(\b[\B]+)>> の部分はマルチバイト文字入るとどうなるか自信なし(w
562 :
560 :03/07/12 11:42 ID:???
>>561 間違えとる
s/(\b[\B]+)>>(s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,\%#]+)/<a href=\"\2\">\1</a>/g;
563 :
558 :03/07/12 11:45 ID:???
>>560-
>>562 さん
本当にありがとうございました。大変参考になりました。
564 :
558 :03/07/12 11:46 ID:???
あ、、大変聞きづらいのですが、どこのファイルにその文字列を 挿入すればいいんでしょうか?
565 :
543 :03/07/12 11:49 ID:M0XOsREi
>>549-557 たぶんID変わってると思いますが昨日の543です。
もう何というか・・・なんというかですね・・・
「ありがとうございました」
って文字をタイピングすることでしか感謝の気持ちを表現できないのが腹立たしい・・・
それくらい感謝です。
実は今から御指摘通りにやってみるつもりなので結果はまだなのですが、どうしても先にお礼を言っておきたくて先に書き込んでしまいました。
webProg板にお邪魔するのにはあまりにも無知な自分の質問にこころよくお答えくださった547さん、549さんの優しさは一生忘れません。
自分ももっと勉強して、いつか誰かに質問された時にお二方のようにこころよく、わかりやすく、アドバイスできるようになれるように頑張ります!
何もお礼ができませんが、せめてお二方の幸福と御健康をお祈りしています。
本当にありがとうございました!
566 :
560 :03/07/12 12:00 ID:???
>>564 ひょっとして、perl 組めない?
改造部分は ./module/varda.pl の 374行目辺り
567 :
558 :03/07/12 12:56 ID:dkTTYYjg
568 :
_ :03/07/12 13:08 ID:???
569 :
560 :03/07/12 13:18 ID:???
>>567 君さ、性別と年齢は?
ま、取り敢えず
$s/(\b[\B]+)>>(s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,\%#]+)/<a href=\"\2\">\1</a>/g;
↑
これを
$text =~ s/(\b[\B]+)>>(s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,\%#]+)/<a href=\"\2\">\1</a>/g;
↑
こう変えてみ
570 :
543 :03/07/12 15:43 ID:???
>>549 さん
今設置し終わりました。
549さんのおっしゃる通りに、すべてそのままでしっかり動作しました!
エラーもありません。
何回も言ってすみなせんが、本当にありがとうございました。
sageにて報告させていただきました。
571 :
558 :03/07/12 17:47 ID:dkTTYYjg
>>569 その文に置き換えても500エラーです。
ちょっとあきらめてみます。ありがとうございました。
>>571 現行でサポートやってるものは配布先で聞け
573 :
560 :03/07/12 18:56 ID:???
>>569 よく見ると、思いっきり間違えてるな(藁
エラー出て当然だわ( ´,_ゝ`)プッ
$text =~ s/(\b[\B]+)>>(s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,\%#]+)/<a href=\"\2\">\1<\/a>/g;
574 :
558 :03/07/12 20:19 ID:dkTTYYjg
575 :
nobodyさん :03/07/12 20:30 ID:N7l3tI07
577 :
560 :03/07/12 20:34 ID:???
>>574 恐らくどっちかが、ヒットしていないんだろうな…。もしくは両方
で、君の性別は?
578 :
558 :03/07/12 20:42 ID:dkTTYYjg
579 :
560 :03/07/12 21:15 ID:???
ほらよ
$text =~ s/\s(\S+)>>(s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,\%#]+)/<a href=\"\2\">\1<\/a>/g;
因みに、h 抜き とか
http:// 省略には対応してない
580 :
558 :03/07/12 21:39 ID:dkTTYYjg
なんか動きませんね、、、
581 :
_ :03/07/12 21:54 ID:???
582 :
nobodyさん :03/07/12 22:01 ID:nKkhPfOJ
★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
ネットで稼ぐならこれ。完全無料!!
リンクスタッフになれば小遣い稼ぎができます!!(左下に登録画面があります)
バナー1クリック10円や自分の貼った広告から誰かが会員になったら一人につき1000円ももらえる!
他にもいろいろな報酬があります。
http://www12.ocn.ne.jp/~sihori/com.html ↑俺も最初は半信半疑で暇つぶし程度でやっていたけれど、
先月15万振り込まれたよ。( ゚д゚)ポカーン
そこらへんの掲示板に広告を貼り付けてっただけなのに・・・。
2ちゃんにはこういう広告がそこら中にあるけれど、
これはマジでおすすめです!!
バンバン広告貼ってバンバン稼いでください!!
★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★.
>>580 おまえやめろ。
二度とプログラミングしようとか考えるな。
おまえには、プログラミングに対して必要な「何か」が決定的に足りない。
それに気付かない限り、お前はプログラミングで何をしようとも成功しない。
だからさ、お前がやめるのがおまえ自身にとっても、周囲の人間にとっても、
一番いいことなんだよ。わかる?
も、もちつけっ
>>583 (´,_ゝ`)ップ香ばしい香具師、ハッケソ!
じゃあお前に出来るんですか?と問いたい
たぶん「できるけど、見返りがないからやらない」という人が多数。
このスレにしては
>>543 はきちんと書いてるから好感は持てるけど。
でも真っ先に思い浮かぶのは、「他のを使えばいいんじゃない?」
見返りよりは、興味を引かれる改造かどうかだねぇ。
デザインをいじるとか、あってもなくても大差ないような機能の追加なんかだと
ちょっとやる気は起きないね。
588 :
ど素人です。 :03/07/13 03:55 ID:+XbtGIZI
>>588 スレの趣旨も無視して堂々とマルチポストかよ。
590 :
nobodyさん :03/07/13 20:38 ID:lgv8WpE5
591 :
_ :03/07/13 20:48 ID:???
592 :
_ :03/07/13 21:31 ID:???
594 :
590 :03/07/13 23:40 ID:lgv8WpE5
>>593 どうやら鯖が少しおかしいようですね。。。
何回かアクセスしていただけるといけるとおもうんですが(´・ω・)
>>590 プレビュー機能自体はJavaScriptみたいだね。
それをCGIのどこに入れるかというわけだが……俺は眠いのでパス。
596 :
590 :03/07/14 01:34 ID:GkiIu8gN
>>597 いちばん楽な方法(手抜き)
2869行目の
$day = sprintf("%02d", (gmtime(time + 3600 * $SET{'TimeZone'}))[3]);
を、
$day = sprintf("%02d", (gmtime(time + 3600 * $SET{'TimeZone'}))[4]);
にしる(w
601 :
nobodyさん :03/07/14 13:18 ID:pLo1fop3
URLが「〜cgi」で終わるBBSのcgiの最後を「〜.dat」に変えると、誰でもログが落とせるというcgiを使っています。 これをできないように、管理人がftpでログを落としてこない限りログは見れないようにしたいのですが、改造でなんとかなるものなのでしょうか? まったくちんぷんかんぷんなんですけど、もしできるのならがんばってみようと思うんです。 なのでせめて「できる」「不可能」「むずかしいから素人はやめとけ」 のどれかだけでも一言助言いただけると幸いです。よろしくおねがいします
602 :
_ :03/07/14 13:22 ID:???
>>590 修正するところはまずselectタグを
<select name=icon onChange='chaImgIenn5("FoImg","icon","imgIenn5")'>
こうして、適当なところにimgタグを置く
<IMG SRC="./img/xxx.gif" name="imgIenn5" ALIGN="CENTER" BORDER="0">
そうすれば動くかも
>>601 「できる」
これしか云わん。そういう設問だからな(いぢわる)
>>603 板違いかもしれぬが、まともな HTML を描くようにな。
606 :
nobodyさん :03/07/14 13:52 ID:TkbjLjFd
>>601 >>「〜.dat」に変えると
長いファイル名に変更「XXXXakerutokikensindekureXXXX.dat」
607 :
601 :03/07/14 14:02 ID:pLo1fop3
>>604 いぢわるだなんてとんでもない!
できるってことがわかっただけでもがんばってみようという気持ちになれました。
>>606 それも一つの手なんでしょうか?
とりあえず改造してみて、駄目ならやってみます。
レス感謝っす
>>601 パーミッションが600で動くなら600にすればいい。
609 :
603 :03/07/14 15:32 ID:???
>>605 590のとこのCGIのソースからコピーしてきますた
611 :
601 :03/07/14 15:44 ID:pLo1fop3
>>608 ほんとだ・・・・鬱
2時間もファイル弄ってました・・・
>>610 こんな近くのレスにヒントがあるなんて・・・
608さん610さんありがとうございました
これからはもっとよく探してから書き込むようにします・・・
スレ汚しごめんなさいでした
612 :
nobodyさん :03/07/15 01:39 ID:4x5fnkjb
普通の一般的な掲示板(mkakikomitaiとか)でも、2ちゃんねるのように、半角文字が化けないようにするにはどうすればいいですか?
>>612 ・CGIのソースや、それが出力するフォームなどあらゆる部分をすべてシフトJISなど
特定の文字コードに統一する
・CGI内部でのjcode.plなどによる漢字コード変換をやめる
__∧_∧_ |( ^^ )| <寝るぽ(^^) |\⌒⌒⌒\ \ |⌒⌒⌒~| 山崎渉 ~ ̄ ̄ ̄ ̄
615 :
nobodyさん :03/07/15 12:01 ID:ZVk1LGMg
厨質はこちらへage3
616 :
593 :03/07/15 13:39 ID:???
617 :
590 :03/07/16 00:19 ID:mdWM3O+A
いえ、解決してないです。。。 毎日暇な時間を見つけてはいじってますが、さっぱりワカラソ(・ω・`)
618 :
612 :03/07/16 02:19 ID:???
>>613 もう少し詳しく説明お願いできませんでしょうか?
その方法だと、私の知識では、まだわかりかねるので…(;・∀・)
改造に関する質問はまあいいんだが……
>>613 の説明で分からないなら諦めれ。
621 :
nobodyさん :03/07/16 12:04 ID:JVBbhBUj
622 :
612 :03/07/16 23:53 ID:EJ+QZ/hQ
>>622 だいたい、「調べてみたけど、よくわからない」は、
「調べるのが面倒くさいので調べてない」とほぼ同じ意味だ。
学問に王道はないぞ。地道にやれ。
なお、
>>613 の説明でわからなければ、
プログラミングは諦めた方がいい。グッドラック。
624 :
nobodyさん :03/07/17 07:34 ID:YvEIjlNm
>>624 1.
sub head の適切なところへ。
2.
sub form{
print <<EOF;
の下ぐらい。
注意点。
・機種依存文字の使用は控えましょう。
・table厨不思議 HTML の使用は控えましょう。
>>622 >>612 ここは「改造スレ」なんだから結果が全て、思い通りになれば
それでいいんじゃない?
やりたい事は
>>613 で出来るんだから、それ以上中の人の事が
知りたければ1から勉強した方がいいかと。
627 :
624 :03/07/18 00:34 ID:a4CxiUHZ
>>625 ありがとうございます!早速やってみます。
叱られるの覚悟で聞きますが、やっぱtableデザインはイクナイですか?
web制作板ではいろいろと言われているのは知ってますが・・・
不思議ってどゆこと?
ちなみにtable幅は改造して410にしてますがtable自体控えた方がいいんでしょうか?
2chもtable使ってるけどな
2chのHTMLが糞で何の参考にもならないのは定説ですが。
631 :
@寝不足 :03/07/19 00:04 ID:fxpqGPlR
632 :
624 :03/07/19 02:09 ID:???
>>628 どうも親切にありがとうございました!
いろいろと学ぶことは多いです。
ちなみにここでアドバイスしている皆さんはどのように
CGI勉強しました?Pealのお勧め参考書とか教えていただけると嬉しいです。
>>631 これは簡単そうだな。
漏れでも出来そうだから、スクリプトをテキストにしてUPしなさい。
>>631 抜き取りと言うが、相手に送信するかの確認画面が出るわけだし、
「指定した・・」の番号は最初にどうやって得るんだ?
635 :
@寝不足 :03/07/19 13:43 ID:KOjoRR6H
636 :
@寝不足 :03/07/19 13:53 ID:KOjoRR6H
637 :
_ :03/07/19 13:57 ID:???
638 :
ぎこははは :03/07/19 16:08 ID:MeQfak1E
CGIゲームつくってます。
下のURLのゲーム開始ページなんですが、
パスワード入力欄とユーザID入力欄が同じ大きさにできなくて
困っとります。どなたか直し方ごぞんじ?
http://www.asahi-net.or.jp/~fa3k-nmr/ouroboros/ FFA改造したものだけど、
FFAのコードほとんど書き直してるから、
ゲーム内容も段々FFAからかけ離れてきたよ。
画像とか書くのは面倒なんで後回し。今はWebからひろってきた
ディアブロ画像勝手につかってます。
639 :
nobodyさん :03/07/19 16:09 ID:bxFrFdhN
>>638 板違い。Web製作へGo!!
といっても向こうへ行っても嫌われる罠。
7 になってもこんな糞 HTML 吐き出してるのね。> IBM HPB
642 :
633 :03/07/19 22:03 ID:???
そういえば、漏れ携帯持ってないんだ(爆
つーことでテストできまへんがな。
while(<IN>){
chop;
if($ser eq $_){
&error("あなたのアクセスは禁止されています。");
}
}
close(IN);
この部分を
while(<IN>){
chop;
if($ser eq $_){
$nebusoku = 1;last;
}
}
close(IN);
unless($nebusoku){&error("あなたのアクセスは禁止されています。");}
あとは、/拒否/許可/g; かな?
ところで、
>>634 も書いたが、
> 指定したシリアル番号のユーザーのアクセスだけ許可
それをどうやって得るのかな?
643 :
590 :03/07/19 23:07 ID:???
神様おられませんか〜?(・ω・`)
644 :
@寝不足 :03/07/19 23:17 ID:FPrc5Q1+
>633 親切にありがとうございます!早速試してみます(喜) 素人なのでうまく説明できないけど、このCGIは掲示板などの 投稿ボタンに<FORM action="〜" 〜 utn> と最後にutnを付けると ボタンを押した人が携帯情報(シリアル番号)を送らなきゃ投稿できないみたいで、 投稿ボタンを押すと携帯に「携帯情報を送信しますか?」と出ます。 はいを押すと投稿可能、いいえを押すと投稿不可になり、投稿者の投稿時間とシリアルが書かれたログが access.cgiって所に溜まっていくので、それと掲示板の投稿された時間を照らし合わせて誰のシリアル番号なのか判別できます(^_^) utnadmin.cgiで、シリアル番号と投稿時間が書かれたログを見ながらアクセス拒否を設定するとdeny.cgiに拒否リストが作成されるという感じでした。 携帯を持っていないという事なので、動作確認して結果報告に来ますm(_ _)m
645 :
@寝不足 :03/07/19 23:41 ID:FPrc5Q1+
>633 動作確認したら見事に希望通りのCGIになりました! かなり嬉しいです(>_<)ノ 相談して良かったぁ(;_;) >643 私にとって633は神様的存在です。
>>643 取り敢えず、スクリプトを動かしている場所とか、
スクリプトを txt にしてアップとかして、改造してくれる人に対して、
環境を提供しないと動かないぞ。環境を提供しても動いてくれる人が
いるとは限らないし
647 :
590 :03/07/20 17:10 ID:???
>>647 > 今日は朝からずっと格闘しているのですが、まだCGI勉強しだしてから日が浅いものでなかなか上手くいきません。
> 毎日暇な時間を見つけてはいじってますが、さっぱりワカラソ(・ω・`)
君がどんな格闘をしたのか見てみたい。
君が弄ったスクリプトもUPせよ。
> 今日は朝からずっと格闘している(人を探している)のですが、
> 毎日暇な時間を見つけてはいじって(くれる人を探して)ますが、
じゃない事を証明汁。
そういう熱意を持った者なら(特に女性)、動いてくれる人はいる(と思う)。
女性じゃなくても、姉や妹の写真を(ry
650 :
590 :03/07/20 23:21 ID:???
上のリンクを自分でいじった方に変えました。
HTMLヘッダ書き出しのところに外部JSファイルを読み込めるように
print "<Script Language=\"JavaScript\" SRC=\"yybbs.js\"></Script>\n";
こういう風に書き加え、アイコンの設定のところにyybからとってきた数行を加えました。
そしてフォントカラー選択とアイコン選択の間に☆アイコン☆という文字を表示させることも成功しました。
しかしスクリプト上一番重要であろうyybの
if($preview){print "<select name=icon onChange='chaImgIenn5(\"FoImg\",\"icon\",\"imgIenn5\")'>\n";}
else{print "<select name=icon>\n";}
foreach(0 .. $#icon1) {
if ($cico eq "$icon1[$_]") {
print "<option value=\"$imgurl$icon1[$_]\" selected>$icon2[$_]\n";
} else {
print "<option value=\"$imgurl$icon1[$_]\">$icon2[$_]\n";
}
}
print "</select> <small>(アイコンを選択して下さい)</small>\n";
この行をいれるとどうしてもエラーがでます(´・ω・)
それで直したはずなのにアイコン選択プルダウンメニュー中のアイコン名前がなくなってしましました。
現在の見た目は
ttp://sho.ath.cx/cgi/lbbs.cgiを見ていただければわかると思います 。
思ったんだけどさぁ〜 選択したアイコンのデータって当然ログにも残ってるよな? 見た目と言うか、UI 部分を変えるのは当たり前として、 当然ログフォーマットも変わるんじゃ?
エラーメッセージを書いてもらえるとありがたい。 ただし500エラーは無しの方向で。
>>650 改造できたよ。
で、どうする?
改造スクリプトを晒して欲しいのか?
ヒントだけ貰って自分で改造汁のか?
もちろん君のスキルアップには後者のほうだが・・・
654 :
590 :03/07/21 07:35 ID:???
>>653 どちらもお願いできませんか?
改造されたスクリプトを答えとして保存しておいて、もうしばらく自分でいじろうと思います。
上の改造自体的はずれなことしてたらヒントいただいても多分できないでしょうし(汗
できない時に、ここで質問しまくるのも忍びないですし…
655 :
653 :03/07/21 17:46 ID:???
>>654 > 上の改造自体的はずれなことしてたらヒントいただいても多分できないでしょうし(汗
まあ、ハッキリ言うと的はずれだ。
変数名や配列の構造がyybbsとLight BBSでまったく違うのだから、変数名等そのままで移植しても動くわけがない。
それとな、
>>651 が言ってた
> 当然ログフォーマットも変わるんじゃ?
これをな見逃してたんだ。
という事で、既存のログと互換性がないって事だ。
識者が見れば解決できるだろうから、漏れは書くだけ書いて逃げる。
もうひとつ。
Light BBSは管理者アイコンやら、常連者アイコンやらややこしかったんで、訪問者用アイコンしかテストしてない。
656 :
653 :03/07/21 17:47 ID:???
###<-------------------------------------------------------------- ###<--- HTMLヘッダー書き出し ###<-------------------------------------------------------------- sub header { print "Content-type: text/html; charset=Shift_JIS\n\n"; print "<html>\n<head>\n"; print "<META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=x-sjis\">\n"; print "<title>$title</title>\n"; print "$style\n"; print "<Script Language=\"JavaScript\" SRC=\"./yybbs.js\"></Script>\n";# 追加部分 print "</head>\n";
657 :
653 :03/07/21 17:47 ID:???
#アイコン if ( $icon_use eq 'yes' ){ print "<td align=$align>\n"; print "Icon <select name=\"icon\" onChange='chaImgIenn5(\"inputform\",\"icon\",\"imgIenn5\")'>\n";# 改造部分 $i = 0 ; for ( @iconnm ) { if ( $i == $c_icon ){$dmy = "selected";} else {$dmy = "" ;} print "<option value=$icon_gif[$i] $dmy>$iconnm[$i]\n";# 改造部分 $i++ ; } print "</select>\n"; print "[<a href=\"$script?action=icondisp\" target='_blank'>sample</a>]\n"; #パスワード print " Pass \n"; print "<input type=password name=\"pass\" size=8 value=\"$c_pass\"> <small>修正・削除に使用</small></td></tr>\n"; print "<tr><td class=\"pre\" align=$align><br>\n";# 改造部分 print "<IMG SRC=\"$icon_gif[0]\" name=\"imgIenn5\" ALIGN=\"CENTER\" BORDER=\"0\">";# 追加部分 print "Icon Preview \n";# 追加部分 if ( $FORM{'action'} ne 'res' && $c_resno eq '' ) {
658 :
653 :03/07/21 17:48 ID:???
###<-------------------------------------------------------------- ###<--- アイコン表示 ###<-------------------------------------------------------------- 数行省略 if ( $found == 0 ){ if ( !($icon) ){$icon = 0 ;} if ( $icon_gif_w[$icon] != 0 ) { $dmy = "width=\"$icon_gif_w[$icon]\" height=\"$icon_gif_h[$icon]\"" ; } else { $dmy = "" ; } print "<img src=\"$icon\" $dmy border=0>";# 改造部分 } あとは識者の方ヨロスク
659 :
590 :03/07/22 00:07 ID:???
>>653 様
うわ。。。すごい、できましたヽ( ・∀・)ノ
やっぱり的はずれでしたか(´・ω・)
本当にありがとうございました〜♪
で、ログフォーマットはどうなるの?
661 :
nobodyさん :03/07/22 17:18 ID:sPs+c2lm
662 :
653 :03/07/22 18:12 ID:???
663 :
nobodyさん :03/07/22 19:01 ID:sPs+c2lm
664 :
590 :03/07/22 19:57 ID:???
>>660 ガ━━━━━━(゚д゚lll)━━━━━━ン!!
ほんとだ(汁
何で書き込んでもアイコン1番目のやしになる_| ̄|○
665 :
653 :03/07/22 21:07 ID:???
>>664 それは藻前の改造ミスじゃないかい?
少なくとも漏れのところではアイコンは選んだやしが表\示される。
ログのフォーマットというのはな、lbbs.logの内容。
1,投稿者名,,,,投稿内容,2003/ 7/21(Mon)05:53,0,0,,ホスト,3,,,,5(選んだアイコンの数字)
が
1,投稿者名,,,,投稿内容,2003/ 7/21(Mon)05:53,0,0,,ホスト,3,,,,./img/piyo5.gif(選んだアイコンの相対アドレス)
に変わっちゃっているって事だ。
何とかしたいんだがな・・・
666 :
590 :03/07/22 21:42 ID:???
667 :
麻雀掲示板 :03/07/22 23:06 ID:WDz4oHrH
668 :
_ :03/07/22 23:10 ID:???
670 :
nobodyさん :03/07/22 23:35 ID:NIdd+Qze
671 :
麻雀掲示板 :03/07/22 23:47 ID:WDz4oHrH
早速お返事有難う御座います。 今直してみた所 (記号)の chie pon kan buの表記の画像のリンクは出るようになりました♪ 何故かreach ron utiは同じ設定の部分なのに出ないんですよね! reach ron uti←の表記orリンク画像の名前がわるいんでしょうかね? 669さん アドバイス有難う御座いました。
672 :
麻雀掲示板 :03/07/22 23:55 ID:WDz4oHrH
673 :
麻雀掲示板 :03/07/23 00:10 ID:ipGTclOL
度々すいません。
http://www.ac.wakwak.com/~komagata/pai2.cgi.txtの最初の方に #ALTに記述する内容
@PaiAlt = (
"一萬", "二萬", "三萬", "四萬", "五萬", "六萬", "七萬", "八萬", "九萬",
"一索", "二索", "三索", "四索", "五索", "六索", "七索", "八索", "九索",
"一筒", "二筒", "三筒", "四筒", "五筒", "六筒", "七筒", "八筒", "九筒",
"東", "南", "西", "北", "白", "發", "中", "裏", "赤五萬", "赤五索", "赤五筒"
);
上記は何の役割をしているのでしょうか?
上記アドレス(pai2.cgi)には
$ChangeImgTag = "<Img Src=\"$PaiPicDir/$PaiPics[$j]\" Alt=\"$PaiAlt[$j]\" Width=$PaiPicWidth Height=$PaiPicHeight>";
$msg =~ s/$PaiChar[$j]/$ChangeImgTag/g;
上のようにAltを含む文字列が幾つかあります。
表示されない画像を掲示板に入力した時にも
gif" Alt="五萬" Width=24 Height=9>
この様な感じでこれまたAltという文字列が含まれています。
そこでAltと表記されている所を消してみたのですが
エラーがでてしまいました。
このAltで表記されているあたりは関係ありそうですかね?
みなさん宜しくお願い致します。
for ($j =0; $j <= 37; $j++){ $ChangeImgTag = "<Img Src=\"$PaiPicDir/$PaiPics[$j]\" 略 ・ ・ $ChangeImgTag = "<Img Src=\"$PaiPicDir/$PaiPics3[$j]\" 略 $msg =~ s/$PaiChar3[$j]/$ChangeImgTag/g; } for ($j =0; $j <= 6; $j++){ $ChangeImgTag = "<Img Src=\"$PaiPicDir/$PaiPics4[$j]\" 略 $msg =~ s/$PaiChar4[$j]/$ChangeImgTag/g; } for ($j =0; $j <= 4; $j++){ $ChangeImgTag = "<Img Src=\"$PaiPicDir/$PaiPics5[$j]\" 略 $msg =~ s/$PaiChar5[$j]/$ChangeImgTag/g; }
675 :
無料動画直リン :03/07/23 00:13 ID:NAEW5XXA
676 :
麻雀掲示板 :03/07/23 00:45 ID:ipGTclOL
677 :
_ :03/07/23 00:51 ID:???
678 :
nobodyさん :03/07/23 00:53 ID:1HCXgJE5
ああ、Pic3は40種類あったのか それはfor ($j =0; $j <= 39; $j++){じゃないとダメだな
680 :
_ :03/07/23 01:13 ID:???
改造依頼の条件に必ず自サイトを 晒さなければならないってのはどうかな?
WEB製作板の評価スレみたいにトップに <!--改造依頼中--> を入れておくとか。
おかしいなりに動いているのを試せれば、多少はわかりやすいけどね でも自サイトを晒すやつは少ないかもなぁ 最低限、CGI名・配布先URL・オリジナルと改造中のtxtソースは必要だな 全部揃ってもおもしろそうじゃなきゃやる気にはならないけどね
684 :
653 :03/07/23 04:14 ID:???
>>666 #↓訪問者用アイコンとアイコンの名前の指定。$icon_gif[3]...[10]のように適当に増やして下さいね。
ここがまちがっとる。
$icon_gif[0] = './img/piyo1.gif';$iconnm[0] = 'ふつう';$icon_gif_w[0] = 25;$icon_gif_h[0] = 35;
こう書くべきところを
$num = 0;
$icon_gif[$num] = './icon/cenda_g09.gif';$iconnm[$num] = 'まっくろくろすけ';$icon_gif_w[$num] = 32;$icon_gif_h[0] = 32;
$num++;
こう書いとる。
こんなのダメ。
素直に
$icon_gif[0 = './icon/cenda_g09.gif';$iconnm[0] = 'まっくろくろすけ';$icon_gif_w[0] = 32;$icon_gif_h[0] = 32;
$icon_gif[1] = './icon/cenda_g08.gif';$iconnm[1] = 'キキ';$icon_gif_w[1] = 43;$icon_gif_h[1] = 45;
と書き改めよ。
685 :
661 :03/07/23 09:45 ID:UyrVZSeR
お願い致します。
686 :
_ :03/07/23 10:10 ID:???
688 :
661 :03/07/23 16:57 ID:DXtB33B3
689 :
653 :03/07/23 18:29 ID:???
690 :
653 :03/07/23 18:32 ID:???
自分で
>>689 を読み返して、日本語が伝わるかどうか心配になった。。。
藻前さんが改造した
>>658 の部分だが、改造する場所をまちがっとる。
>>658 をよく見直して、改造し直せ。
これなら伝わるだろう。
(´-`).。oO(随分と前に「web patio」って作ったけれど、@niftyの著作に抵触しそうだったから配布辞めたんだよなぁ)
694 :
590 :03/07/23 22:03 ID:???
>>653 一応なおしました。
そしたら今度は、アイコン自体はちゃんと変わってくれるのですが、アイコンサイズが全部1番目のアイコンと同じになってしまうんです。
何回もごめんなさい。
695 :
653 :03/07/24 04:16 ID:???
>>694 うん、それがフォーマットを書き換えた欠点というか・・・
仕様と思って諦めれ(汁
>>658 の改造部分
print "<img src=\"$icon\" $dmy border=0>";
を
print "<img src=\"$icon\" border=0>";
に汁。
696 :
590 :03/07/24 17:13 ID:???
>>653 様
何度も教えてくださり、ありがとうございました。
お陰様でとても使いやすいBBSになりました。
文字でしか御礼が言えないのが誠に残念です(・ω・`)
>>688 if ($chat =~ s/^${keyword}//){
foreach $line (@lines){
$line = '' if ($line=~/$chat/i);
}
$value = '';
}elsif ($out) {#退室処理
を
@temp=();
$match = 0;
if( $chat=~s/^${keyword}//){
foreach (@lines) {
if ($_=~/$chat/i){$match=1;}
else{ push(@temp,$_); }
}
$chat = 'All Clear (^-^)v';
if ($match) { @lines=@temp; $value="$name\t$color\t$email\t$chat\t\t$date\t$host\t\t\t\t\n"; }
}elsif ($out) {#退室処理
に汁。
698 :
661 :03/07/25 11:26 ID:FTa8c9BS
>>697 ちょっと、質問なんですが。
if ($chat =~ s/^${keyword}//){
ではなく
}elsif ($chat=~s/^${keyword}//){
なんですが、yuichatではそうなっていますが、どう修正すればいいんでしょうか?
699 :
_ :03/07/25 11:36 ID:???
>>702 大感謝!!
googleと長時間格闘し、なんとか解決しました。
704 :
661 :03/07/26 16:08 ID:z/xE7PAx
705 :
nobodyさん :03/07/26 16:57 ID:44ZqOscJ
>>704 削除の仕組みを見れば、すぐにわかるだろ。
ゆいちゃっとの仕組みも理解できないようなら、改造なんかするな。
ヴォケ
どうせ、そうやって次から次へと質問してくんだろ?
707 :
nobodyさん :03/07/27 00:50 ID:KySC36uE
708 :
nobodyさん :03/07/27 00:57 ID:W0Htrdn6
709 :
697 :03/07/27 04:19 ID:???
>>706 > 削除の仕組みを見れば、すぐにわかるだろ。
> ゆいちゃっとの仕組みも理解できないようなら、改造なんかするな。
えと、
>>704 はperlそのものを理解できないみたいだから、改造などしていない。
> どうせ、そうやって次から次へと質問してくんだろ?
違う。質問じゃない。
次から次へとお願いしるんだ。
ハッキリ言って
>>704 に仏心を出した漏れがバカだった。
この手の輩には諸先輩がしているようにスルーすべきだった。
>>704 悪い事言わないから、perlの勉強しなさい。
この板の住人は、『わからないなりに努力している質問者』にはとても優しい。
けど、君のように高飛車で、努力の片鱗も見せない輩にはとても厳しい。
最後に一つだけ。
}elsif ($out) {#退室処理
を二回記述している。
どちらか一方を消す事!
7に比べりゃまだ可愛いもんだぜよ。。。
>>710 7って誰?
○7か?
最近見ないけど
本○
>>711 最近、割れ2003鯖評価版を手に入れたらしい(w
といいつつまだ赤帽がどうのこうのとほざいているもよぅ。
詳しくは最悪板へ。
∧_∧ ( ^^ )< ぬるぽ(^^)
∧_∧ ∧_∧ ピュ.ー ( ・3・) ( ^^ ) <これからも僕たちを応援して下さいね(^^)。 =〔~∪ ̄ ̄ ̄∪ ̄ ̄〕 = ◎――――――◎ 山崎渉&ぼるじょあ
715 :
nobodyさん :03/08/02 08:52 ID:8YthZhjq
隔離スレage2
716 :
nobodyさん :03/08/03 00:08 ID:jF0CfXEr
質問です。ずるぼんのアップローダーを設置したのですけど、
これを投稿したファイルをクリックすると、ダウンロードしますか?
と表示して、ダウンロードする仕組みに変えたいのです。
そうすることによって、パソコンからだけでなく携帯からでもダウンロード
出来るようにしたいのです。教えて下さい。
ずるぼんアップローダーのソース↓
http://zurubon.strange-x.com/upload.txt
717 :
716 :03/08/03 02:46 ID:jF0CfXEr
ごめんなさい。勘違いでした。失礼しました。
718 :
_ :03/08/03 03:03 ID:???
719 :
nobodyさん :03/08/04 15:50 ID:EmHDiAGs
サッカーの順位表がWeb上で作れるCGI探しています。
前週より順位変動あったか、順位、チーム名、試合数、勝ち点、勝利数、引き分け数、敗戦数、得点
失点、得失点差
(前週より順位変動あったかは、青色↑と、緑色→、赤色↓で表したい)
が試合結果(チーム名と何対何だったか)を入力することで
表示できるようにしたい。
イメージとしては
http://www3.mahoroba.ne.jp/~masayosi/cgi-labo/flt_r/index.html が、かなり近く
勝ち点というのは、1回の勝利が勝ち点3、1回の引き分けが勝ち点1
敗戦は勝ち点0として計算します。
得失点差というのは、総得点から総失点をひいたもので、マイナスも
あります。
順位をつける時の優先順位が
1.勝ち点が多い
2.勝ち点が同じ場合は得失点差の多い(プラス)方
3.2の条件が同じ場合は、総得点が多い方
4.当該チーム同士の対戦成績
となっているんですが
各国によって若干ルールが違うので、ON/OFFで設定できると
最高なんですが。
↑のスクリプトに足りないのは
前週からの順位変動と、順位表示だけなんです
そこを、どう書き加えれば良いのかご教授ください。
720 :
_ :03/08/04 15:57 ID:???
>>719 自分でどんな改造したの?
ソースは?
まず>>1嫁
掲示板CGIで、半角カナが文字化けしたり一部の半角記号が自動で全角に変換されたりするのを防ぐには jcode.perlを弄ればいいんですか?それともcgiファイル本体の修正も必要なんでしょうか
>>722 jcode.perl じゃなくて、jcode.plな。
アルファベット数文字の区別もつかないようじゃ、プログラムをいじるのは無理かと。
ていうか100ほど前に既出
17氏スクリプトにアップロード機能付けたいけど、 CGI.pm等のモジュールは使えないみたいなんです。 そういったものを使わなくてもアップロード機能付けることは 可能でしょうか?
出来るんじゃない。
727 :
nobodyさん :03/08/07 19:16 ID:NMR2TNAw
>>725 おまえにそれだけの勉強をする気があるなら、可能。
728 :
nobodyさん :03/08/07 22:20 ID:zQuj7rgg
物騒な名前だな・・・
>>728 \20Kくらい貰えるんだったら今すぐ取りかかるけど、
今は気分が芳しくないので気が向いたら(をぃ)
s/今は気分が芳しくないので気が向いたら/今は実力がないので実力がついたら/
s/今は気分が芳しくないので気が向いたら/今世は無理なので来世でプログラマになれたなら/
>>731 さすがに20Kは無理です!すいませんm(_)m
俺の回線ISDNだから64Kでるよ ・・・
>>734 ぼつぼつ改造してみたら?
なかなか見づらいソースだけど、そんなにはいじるところも無さそうだし、余分なルーティンも削れそうだし。
わ。煽られた(w
ので。
http://up.isp.2ch.net/up/315f29020bc2.zip 取り敢えず動作チェックもしてみました。
ついでにトリップ回路も入れておきました。
現状の不具合。
・久喜が化ける。
→ JavaScript で久喜を拾っているから。@放置しときます。
・不思議 HTML 。@これも放置。
重篤な不具合が出るようでしたら修正に応じます。
ただし元からある部分は放置しております。
しまった酉違い、、、
このスレは改造を依頼するスレではなく、 改造する為のお手伝いをするスレ。 教 え て 君 な ら ま だ し も や っ と い て ち ゃ ん は 稲!!
女性からの依頼だったら(ry
>>742 \20Kはらいます(をぃ)
嘘です。そんなことしません。。。
(をぃ)
(をぃ) (をぃ) (をぃ) (をぃ) (をぃ) (をぃ) (をぃ) (をぃ) (をぃ) (をぃ) (をぃ) (をぃ) (をぃ) どこのリア厨だよ (´,_ゝ`)プクス
(うぇぃ)
(ぉ よりはマシ?
最近依頼がないのが寂しかったりする。 でも厨は来て欲しくない。
>>748 なんか依頼ないか?厨っぽくなければ手伝ってやるぞ
750 :
nobodyさん :03/08/13 00:30 ID:Po7RAil5
751 :
無料動画直リン :03/08/13 00:37 ID:Vl5Tt60f
753 :
750 :03/08/13 01:26 ID:Po7RAil5
あ、どうもどうもありがとうございます。 ちょっと説明不足でしたけど、ずるぼんのアップローダーの 機能(PCからでも音楽試聴、画像閲覧可能。データ一覧を表示する機能) をそのままにEZwebにも対応してるのが欲しいって他の所で質問したら こういう答えが返ってきたのです。ez.cgiはデータ一覧機能とかない みたいですし。じゃあ一応自分でちょっと単体でez.cgiを設置してみます。 それでダメポだったら、またお願いしにくるかもです。
754 :
お気に入り集 ☆http://beauty.h.fc2.com/ :03/08/13 13:41 ID:i4AJ4Yw2
756 :
nobodyさん :03/08/15 01:34 ID:S4ncUgdE
投稿時のプロクシチェックですけど、JPドメイン以外を拒否とかの 極端なものじゃないもので結構有効じゃんというのは、どの程度でしょうか? HTTP_PRAGMAがあるものも、弾いちゃってもいいですかね。
757 :
新宿歌舞伎町裏DVD本舗 :03/08/15 11:50 ID:2mbTnFQt
▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼
☆★ 無修正DVD★☆なら 新宿歌舞伎町直送 ☆★
人気爆発新作ベスト9入荷
堤さやか引退特集 憂木瞳 プロジェクトX No8 ベイビーフェイスをやっちまえ
白石ひより・愛葉るび SNAPSHOT 地下映像陵辱援交 すぎはら美里痴女教師
店頭販売の売れ筋のみ厳選してみました 安心の後払い
http://book-i.net/moromoro/ 白石ひとみ 小森詩 山田まり 長瀬愛
@@ 及川奈央 レジェンド @@ 堤さやか 東京バーチャル 依然大好評
サンプル画像充実 見る価値あり 最高画質
▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼
758 :
ライン :03/08/15 12:49 ID:???
759 :
画像集!http://www.sexpixbox.com/pleasant/dx/index.html :03/08/15 18:53 ID:zH9218Tl
(⌒V⌒) │ ^ ^ │<これからも僕を応援して下さいね(^^)。 ⊂| |つ (_)(_) 山崎パン
761 :
nobodyさん :03/08/15 23:06 ID:xCPhTU0d
Kent-Webの掲示板CGIのカスタマイズについて
アドヴァイスくれるなんて超親切な人がいないか期待して質問です。
Web Patio :
http://kent-web.com/bbs/patio.html (サンプル)
http://kent-web.com/bbs/patio/patio.cgi スレッド内ページの記事の表示順を下記のように変えたいのですが・・
■標準(表示件数 $t_max = 2件)
Page: [1] ・・・ ( No.2 )( No.3 )
Page: [2] ・・・ ( No.1 )
■変更後(表示件数 $t_max = 2件)
Page: [1] ・・・ ( No.1 )( No.2 )
Page: [2] ・・・ ( No.3 )
どこをどーいじるかわからないのです。
せめて【どこ】だけでもわかれば何とか・・・
どなたかヒントお願いできませんか。
これがそのスクリプトです。 sub cut { my $string = shift; my $key = shift; my $no = shift; return if (!$cellomis or length($$string) < $cellomis); $$string = substr($$string,0,$cellomis); my ($i,$byte); for ($i=$cellomis-1;$i>=0;$i--){ my $c = ord(substr($$string, $i, 1)); if (($c <= 0x7F) or ((0xA0 <= $c) and ($c <= 0xDF))){ last; } $byte ^= 1; } chop $$string if ($byte); $$string =~ s/&[#a-zA-Z0-9]*$//; my $r1 = rindex($$string,'<'); my $r2 = rindex($$string,'>'); if ($r1 > $r2) { $$string = substr($$string,0,$r1); } $$string .= '...<br><br><a href="'.$script.'?/'.$key.'/'.$no.''.$get.'">全文表\示</a>'; }
764 :
nobodyさん :03/08/16 11:35 ID:mv+dlsfN
KENTのネットクルーザーで 検索部分を改良したい。 英語の半角、全角をともに検索するには どうしたらいいのでしょうか? 初心者的に考えると、 英文をすべて半角に変換してものを検索してから、 次に全角にした文を検索するというように 2度やるのでしょうか?
765 :
無料動画直リン :03/08/16 11:37 ID:tOysTLUA
KENT大人気だな。
つか、761-763は同一人物でしょ?
KENTは見る気もしねぇ。
769 :
761 :03/08/16 17:53 ID:j2+puat/
>>767 761ですが、762-763は他人です。
CGI設置できるURLが無いんでKent-webの掲示板に聞けません・・・
引き続き懇願。
770 :
761 :03/08/16 17:56 ID:j2+puat/
771 :
762-763 :03/08/16 18:04 ID:zhP3+P6A
別人です。 別にKENTのじゃなくていいんです。 2chスクリプトみたいなリンクの変換と、省略した行を数えたいんですが…
>>769 ログを出力するときに、printしないでpushで配列に入れる
その後、sortするかforachで回して出力したらいいんじゃないの?
my $chk=1; while (<IN>) { my ($no,$sub,$nam,$com) = split(/<>/); if($chk) { $chk=''; print "$nam - $com<hr>"; } else { unshift(@txt,"$nam - $com<hr>"); } } close(IN); foreach (@txt) { print; } こんな漢字で改造すれば?これじゃ動かんけど。
しまったなぁ・・・つい上にKENTって書いてあったから、つられて書いてしまった(;´Д`) ここじゃKENTは禁句なんだっけ?
>771 だったら2chスクリプト手に入れて解析すれば? 検索すれば出てこないかい?
776 :
761 :03/08/16 20:37 ID:???
解決しました。 バカなので時間がかかりました。
778 :
761 :03/08/16 23:58 ID:???
779 :
761 :03/08/17 00:06 ID:???
って質問した手前書くよ patio.cgiの # 表示範囲を定義 $from = $res - ($t_max * $p); $to = $from + $t_max; を $from = ($t_max * $p) - $t_max; $to = $t_max * $p; こう変えた。
780 :
nobodyさん :03/08/17 01:15 ID:eglXJ59U
781 :
nobodyさん :03/08/17 01:34 ID:Uf0TPnbi
782 :
7 :03/08/17 10:57 ID:/KPUdsqe
▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼
☆★ 無修正DVD★☆なら 新宿歌舞伎町直送 ☆★
人気爆発新作ベスト9入荷
堤さやか引退特集 憂木瞳 プロジェクトX No8 ベイビーフェイスをやっちまえ
白石ひより・愛葉るび SNAPSHOT 地下映像陵辱援交 すぎはら美里痴女教師
店頭販売の売れ筋のみ厳選してみました 安心の後払い
http://book-i.net/moromoro/ 白石ひとみ 小森詩 山田まり 長瀬愛
@@ 及川奈央 レジェンド @@ 堤さやか 東京バーチャル 依然大好評
サンプル画像充実 見る価値あり 最高画質
▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼ ▼
783 :
nobodyさん :03/08/17 11:26 ID:HfUElgR+
764です。 英文半角全角の検索 kent以外のスクリプトで参考になるやつないか、教えてください。
784 :
無料動画直リン :03/08/17 11:37 ID:ZhaL0YfR
>>783 Jcode.pm
もしくは、
Encode.pm
ソース読むなりマニュアル読むなりお好きの方をどうぞ。
787 :
nobodyさん :03/08/17 19:57 ID:HfUElgR+
Jcode.plをJcode.pm に差し替えたらいいの? ソース見ても、さっぱりわからん。 コピペでいける、いいスクリプト紹介してよ。
~\(ι+_+ι)/~ ダメだこりゃ…
789 :
nobodyさん :03/08/17 20:19 ID:HfUElgR+
そもそもが愚問なのだが・・・。
馬鹿のくせによくいうよな。
794 :
nobodyさん :03/08/18 12:35 ID:k3ByntgP
検索ワードを半角に変換して、 被検索文章も半角に変換して、 でもって検索する という手順でいいのでしょうか。 とりあえずはできたんだけど、 とっても馬鹿っぽいのですが…
やり方はいろいろあるんじゃない?
登録時に全てを半角にしてしまって、検索時は検索ワードを半角にして検索。
上の半角を全角にしたもの。
登録時の半角・全角は任意に、検索時に検索ワードを半角・全角で検索。
「君が」どうやりたいかによって決まる。
つーか、
>>1 くらい読め
796 :
nobodyさん :03/08/18 13:42 ID:k3ByntgP
>>登録時の半角・全角は任意に、検索時に検索ワードを半角・全角で検索。 としたいのですが、その場合、 検索ワードを半角・全角の2回検索するということでしょうか。 一致するとフラッグが出るようになっていますが、 どこに2回目のJコード変換を入れたらいいのかよくわからない。
797 :
nobodyさん :03/08/18 13:45 ID:k3ByntgP
$flag=0; foreach $pair (@pairs) { if (index($line,$pair) >= 0) { $flag = 1; if ($cond eq 'or') { last; } } else { if ($cond eq 'and') { $flag=0; last; } } }
>> 検索ワードを半角・全角の2回検索するということでしょうか。 正解。 そのスクリプトを見てないけど、検索する部分は [ループ(全登録データを見終わるまで)] 判定 [ループ終了] になってるはずだから、 ループ前に $search_word_hankaku $search_word_zenkaku のように検索ワードを用意、 判定の部分で この両方を検索判定する。 結果一覧のようなのを、データのID番号か文字そのもので配列とかに突っ込んでるだろうから、 両方の検索判定の結果をその中に含めるようにする。 # 当然、検索ワード自体が半角・全角の2パターンあるので、 # 検索ワードの用意のときにうまく処理しておく必要がある
799 :
nobodyさん :03/08/18 18:34 ID:k3ByntgP
なぜかわからないけど、できません。 検索ワードをforeachに入れるところが、 なぜか、できない。 foreachに入らない。不思議だな。
801 :
nobodyさん :03/08/18 19:03 ID:k3ByntgP
あと、全角小文字のabcが 2つずれて、cdeになっちゃう。
802 :
nobodyさん :03/08/18 19:32 ID:k3ByntgP
801 すんません。解決。自己レス。
803 :
nobodyさん :03/08/18 19:37 ID:k3ByntgP
foreachに入らない件 # 入力内容を整理 $word_han = $FORM{'word'}; $word_zen = $FORM{'word'}; # 入力内容を半角英数に変換しておく &jcode'tr(*word_han,'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz','0-9A-Za-z'); $word_han =~ s/ / /g; $word_han =~ s/\t/ /g; @pairs_han = split(/\s+/, $word_han); # 入力内容を全角英数に変換しておく &jcode'tr(*word_zen,'0-9A-Za-z','0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'); $word_zen =~ s/ / /g; $word_zen =~ s/\t/ /g; @pairs_zen = split(/\s+/, $word_zen);
なんじゃそのソース・・・ゲロゲロ
805 :
nobodyさん :03/08/18 22:47 ID:jGPgGxSp
バナー広告の張替えが面倒なので全ページSSIで表示させて 広告の張替えはSSIの本体ファイルを更新するだけでOK みたいな目論見で書いてみたわけですが、うまくいきません。 ファイル名 : ****.pl -------------------- #! /usr/local/bin/perl $banner = '<!-- 広告タグ -->'; print $banner; exit; -------------------- shtmlファイルの中に <!--#exec cmd="****.pl"--> いや、マジでネタじゃないんですが これじゃ間違ってますか?どなたかご教授していただけませんか・・ もちろんSSI使用可能な鯖でやってます。
807 :
805 :03/08/18 22:58 ID:???
こんな簡単な方法があったんでつか・・ サンクスコ。正直スマンかった。逝ってきます。
>>803 jcode.pl を読んでみましょうね。
jcode'h2z-xxx あたりとか。
809 :
803 :03/08/19 19:19 ID:x1TuweNX
これで変換はできています。 変換したあとがマズイと思うのですが… foreachできない
810 :
_ :03/08/19 19:22 ID:???
811 :
nobodyさん :03/08/19 19:23 ID:3+CrjX8n
AVではなくその辺を歩いていたら間違いなく女子校生で通用しそうなロリフェース。
にもかかわらず乱れる乱れる。しっかりビラビラ周りを剃りあげたオマンコにバイブが入っていく様子は圧巻です。
3Pシーンでも乱れまくり喘ぎまくりの菜月ちゃんです。
無料ムービーを観てね。
http://66.40.59.78/index.html
812 :
nobodyさん :03/08/19 20:03 ID:NU7yZadg
>>809 できていればそれでいいと思うようじゃアンタ向いてないよ
なんで細切れに小出しするの? 全文晒せばいいじゃん。
815 :
803 :03/08/19 23:27 ID:x1TuweNX
いじっていたらできますた。
おさわがせしますた。
$flag=0 なら2回目の検索するようにしていたのですが、
それがちがっていたような…。
foreachはできてました。
>>813 Jcode.pl ではこうすると書いてあったけど、
何がだめなの?
816 :
無料動画直リン :03/08/19 23:37 ID:auKHfoY3
817 :
nobodyさん :03/08/19 23:49 ID:dnLP1lQw
掲示板の上の所に、ランダムな挨拶みたいなのを表示させたいんですが、 ランダムに表示させたい挨拶文をログファイルみたいなのににたくさん入れておいて、 そこから随時呼び出す、みたいな方法をとって表示させるにはどうしたらいいでしょうか? 支離滅裂ですみません。
open FILE, "ファイルのパス"; rand($.) < 1 and $line = $_ while <FILE>; close FILE; これで、ファイルから1行ランダムに選択したものが$lineに入る。(by Perlメモ) あとはボディータグを探して、その後ろ付近に$lineを紛れ込ませればOKよ。
820 :
てつ :03/08/20 02:41 ID:???
http://www.k-collect.net/のCSV_DB.CGI ver1.00というCSV形式をデータベース化するスクリプト
を使用していますが、検索する際に英語の大文字小文字を区別してしまいます。
検索で大文字小文字を区別しない検索を実行したいのですがどのようにすればよいのか
わからず困り果てています。
どなたかお手数ですが教えていただけませんでしょうか。
宜しくお願い致します。
>>820 検索用語のうち英語の大文字を小文字に変換汁。
被検索用語のうち英語の大文字を小文字に変換汁。
ウマー
822 :
てつ :03/08/21 19:08 ID:???
>>821 返信ありがとうございます。
仕組みは分かりましたが、このCSV_DB.CGIをエディターで開き見ているのですが、
どの部分を修正したらよいのかわかりません。
恐縮ですが、その部分を教えていただけないでしょうか。
823 :
てつ :03/08/21 19:14 ID:???
追記 #------------------------------------------------------------------------ #デコード&変数代入 #------------------------------------------------------------------------ sub decode{ if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } @pairs = split(/&/,$buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; #タグ変換 $value =~ s/</</g; $value =~ s/>/>/g; #カンマ変換 $value =~ s/\,/,/g; &jcode'convert(*value,'sjis'); $FORM{$name} = $value; の編集でしょうか?
line:229 if ( index($a_row,$buf) >= 0 ) {$found = 1 ;last ;} ↓ if ( index(uc($a_row),uc($buf)) >= 0 ) {$found = 1 ;last ;} line:250 if ( index($a_row,$buf) < 0 ) {$found = 0 ;last ;} ↓ if ( index(uc($a_row),uc($buf)) < 0 ) {$found = 0 ;last ;} もの凄く強引(w それはさておき、sub decode 以外で正規表現を使っていないのは宗教的なモノなのだろうか。。。
825 :
てつ :03/08/22 01:13 ID:???
>>824 ありがとうございます。
ただいま、CSV_DB.CGIをWebにあげてTESTしたところ動作しました。
大文字小文字の問題もありません。
教えてくださって、本当にありがとうございます。
826 :
nobodyさん :03/08/22 02:25 ID:wl/Km5ym
828 :
nobodyさん :03/08/22 03:14 ID:wl/Km5ym
829 :
nobodyさん :03/08/22 21:10 ID:FlljWygK
>>828 このスクリプトの使い方がよくわからんのでテストできねー
# 今週のはじめの日(日曜日)を特定する(YYYYMMDD)
$w_start_date = &GetThisWeekFirst;
の下に
# 先週のはじめの日(日曜日)を特定する(YYYYMMDD)
$lastweek_start_date = $w_start_dateの7日前になるようなルーチンを作れ;
# 先週の終わりの日(土曜日)を特定する(YYYYMMDD)
$lastweek_end_date = $w_start_dateの1日前になるようなルーチンを作れ;
を追加
================================================
} elsif($MODE eq 'weekly') {
  next if(substr($date, 0, 8) < $w_start_date);
の下に
} elsif($MODE eq 'lastweekly') {
  next if(substr($date, 0, 8) < $lastweek_start_date and substr($date, 0, 8) >= $lastweek_end_date);
を追加
== 続く ==
} elsif($MODE eq 'weekly') {   print "<B>今週のランキング</B>\n"; の下に } elsif($MODE eq 'lastweekly') {   print "<B>先週のランキング</B>\n"; を追加 ================================================ if($MODE eq 'today') {   print "[今日のランキング] "; } else {   print "[<a href=\"$CGI_URL\?mode=today\">今日のランキング</a>] "; } の下に if($MODE eq 'lastweek') {   print "[先週のランキング] "; } else {   print "[<a href=\"$CGI_URL\?mode=lastweek\">先週のランキング</a>] "; } を追加
ソースをざっと見た限りではこれでいいんじゃないかな?
ただ、見てわかるようにこれはまだ未完成だよ。
漏れはヘタレだから、
「$w_start_dateのX日前になるようなルーチンを作れ」
って所に、効率のいい書き方が出来ねーの。
$w_start_date(YYYYMMDD)をtimeにして、X日分の秒数をひいてYYYYMMDDに汁って事しか思いつかん。
この部分は
>>828 の宿題にして漏れは寝る。
さらばじゃ。
いちばん最後に、 # 先週のはじめの日(日曜日)を特定する(YYYYMMDD) sub GetLastWeekFirst { my @dates = localtime(time - 604800 - (localtime(time))[6] * 24 * 60 * 60); $dates[5] = ($dates[5] > 1999) ? $dates[5] : ($dates[5] < 99) ? $dates[5] + 2000 : $dates[5] + 1900; $dates[4]++; return sprintf(qq{%04d%02d%02d},$dates[5],$dates[4],$dates[3]); } を追加。 line 186-187の間に、 if($MODE eq 'lastweek') { print "[先週のランキング] "; } else { print "[<a href=\"$CGI_URL\?mode=lastweek\">先週のランキング</a>] "; } を追加。 line 107-108の間に、 } elsif($MODE eq 'lastweekly') { print "<B>先週のランキング</B>n"; を追加。 line 54-55の間に、 } elsif($MODE eq 'lastweekly') { next if(substr($date, 0, 8) > $w_start_date && substr($date, 0, 8) < $lw_start_date); を追加。 line 33-34の間に、 # 先週のはじめの日(日曜日)を特定する(YYYYMMDD) $lw_start_date = &GetLastWeekFirst; を追加。 ってところでしょうか。。。 無駄に変数使っているような気がする。。。
>>833 s('lastweek')('lastweekly')g;
スマソ
835 :
826 :03/08/24 00:47 ID:uCCqg3HC
826です。 えらい大変な仕事からやっと帰ってきました。 皆様色々やってくだってありがとうございます。 明日にでも試してみようと思います。 本当にありがとうございます。 私はとても素人ですので、もし宜しかったら、 txtファイルでソースをアップして頂けると 本当に助かります。甘えてばかりで申し訳ないのですが、 もう一甘えさせて頂けますと嬉しいです。 どうか、宜しくお願い致します
それなら改造なんかするな!
>>835 要約すると、
「自分は初心者なうえとても多忙なので、理解なんてできなくていいから一発で動くソースキボンヌ」
ってことかい?
838 :
826 :03/08/24 02:53 ID:uCCqg3HC
>836さん、837さん いえ、ちょっとだけ誤解です。 と言うか、書き方が誤解を与えてしまったみたいで 申し訳ありません。 元ソースと改造ソースを比べて、どのようにしているのか をちゃんと確認してみたかったのです。 自分でソースに挿入すると変にしてしまいそうで 怖かったものですから・・・ とは言え、気分を損ねさせてしまった事、 大変申し訳なく思っています。本当にごめんなさい。
> 元ソースと改造ソースを比べて、どのようにしているのか
> をちゃんと確認してみたかったのです。
お前が元ソースと改造ソースを用意すればイイのこと。
「自分は初心者なうえとても多忙なので、理解なんてできなくていいから一発で動くソースキボンヌ」
ってことじゃないか!
> 自分でソースに挿入すると変にしてしまいそうで
それなら改造なんかするな!
依頼もするな!
というわけで、
>>836 、
>>837 は全く誤解してない事が判明。
>元ソースと改造ソースを比べて、どのようにしているのか >をちゃんと確認してみたかったのです。 >自分でソースに挿入すると変にしてしまいそうで >怖かったものですから・・・ 何を怖がる必要があるのか。 自分のPCでテストすれば、怖いことなんか無いはず。 まさか、サーバ上でいきなり動作させようと… 氏ねや。 てめぇなんかは、CGIどころかサーバを使う資格も無い。 結局自分で実験もしたくないほど、道楽したかったんだろうよ。 この糞野郎。
841 :
nobodyさん :03/08/24 18:35 ID:Vg687Gj0
んーやっぱり¥取った方がよいのかしらん(w
843 :
841 :03/08/24 23:36 ID:Vg687Gj0
>>841 自己レスです。
yybbs.js は投稿データ全てをまとめているようです。
CGIデータ(yybbs.cgi)をyybbs.jsに抽出してるってことですよね?
抽出の点を教えてください。よろしくお願いします。
>>843 ですよね?なんて書かれても誰も見てなくてわからんと思うが。
>>1 をよく読めば理由もわかるだろう。
とりあえず同意を求めようとするのは、最近の言葉遣いの傾向だから気にすんな。
846 :
nobodyさん :03/08/25 04:22 ID:OvXrBNMK
847 :
nobodyさん :03/08/25 04:49 ID:O5AQdQ5i
>>846 print文になってる「見つかりました」「見つかりませんでした」を
変数に入れて、表示したい部分のHTML書き出しを検索処理の後に
持って来ればどう?
848 :
nobodyさん :03/08/25 05:03 ID:O5AQdQ5i
849 :
nobodyさん :03/08/25 05:11 ID:O5AQdQ5i
# 結果を書き出す print "<HR>\n"; if ($found_count) { print "$found_count 件みつかりました。\n"; } else { print "1件もみつかりませんでした。\n"; } をsub search2 { の # 表示する $found_count++; の下にもってくるとかどう?
>>846 簡単にできるかと思ったら、意外と面倒だった……
以下手順。「コメントアウト」というのは行の先頭に # を書くことね。
--------
「ファイルの中身を検索する」というサブルーチンの中の「print 」をすべて
「$temp .= 」に置換する(デバッグ文という部分のみ置換不要)
185行目最後の\nを全角スペースに
187行目の「print "<HR>\n";」をコメントアウト
198行目「検索する」以下の<DL>のある2行をコメントアウト
206行目「結果を書き出す」直後の<HR>のある行をコメントアウト
「結果を書き出す」ブロックの直後(213行目から)に以下を挿入
print "<HR>\n<DL>\n$temp\n</DL>\n<HR>\n";
851 :
nobodyさん :03/08/25 05:16 ID:O5AQdQ5i
マテ。
>>849 でもだみだ。
後はエキスパートにまかせる。
ゴミ出してたばこ買ってきて寝ますわ。
852 :
850 :03/08/25 05:17 ID:???
ちょっと補足。print の置換だけど、$print_filename とかの変数は置換しないでね。 行の先頭が print になってるやつだけ置換。
>>847 さん
>>850 さん
どうもありがとうございましたm(_)m
>>850 で見事解決しました。
これを参考に改造を続けたいと思います。
それでは。
854 :
846 :03/08/25 05:46 ID:???
>>853 は自分です。名前入れ忘れ・・・すみません。
855 :
ふううう :03/08/25 10:18 ID:dnsV7r00
僕もとほほさんのwwwsrchなんですが、 検索対象フォルダと検索対象ファイル(拡張子指定) って書き込みかたがいまいちわかりません。 掲示板の検索に使いたいのですが、 iogにも使えるのでしょううか?
856 :
nobodyさん :03/08/25 10:32 ID:n4xaC30J
>>856 ぱっと見ただけだけど
if ($ips eq $ip){&html_list;return;}
これを消すかコメントにしてみたらどうだろう。
858 :
856 :03/08/25 11:28 ID:???
おおっ、テストしてみたらばっちり出来ました! ありがとうございました。
>>859 付け加えた部分が何で、何行目かくらい言えや
861 :
nobodyさん :03/08/25 16:01 ID:g3hKinF7
862 :
859 :03/08/25 16:01 ID:???
>>862 書き込んだメッセージが格納されてる変数は $com だから(232行目)、これをいじらないと意味がない。
でもって、$com が画面に出力されるのが 304行目。
だから、232行目から304行目の間に
if($taguse){
$com =~ s/</</g;
$com =~ s/>/>/g;
$com =~ s/"/"/g;
}
この処理を入れなければならない。
あとね、
#HTMLタグを有効にする(1)しない(2)
これは、普通 1 か 0 にするものだ。
しないのに「2」じゃあ
if($taguse){ }の処理通っちゃうよ。
356行目から数行も追加してるだろ 管理用passとURLは消しておけ、もう遅いが 変更部分を外せば書き込めるのか? あと書き込めないというのはエラーも出てないのか?
あぁ、うっかりしてた。 if($taguse){ $com =~ s/</</g; $com =~ s/>/>/g; $com =~ s/"/"/g; } ね
866 :
859 :03/08/25 17:32 ID:???
ありがとうございます。
はい。変更部分を外せば書き込めます。
すみませんでした。パスとURL消すの忘れてました・・・。
>>865 今からやってみます。
# ログファイル名 も変えておけよ
まあ本のまる写しなんだろうし最初は動かないだろうが、 エラーログの見方だけは覚えといたほうがいいぞ
>>855 ここは改造スレであって、使い方の指南をする場所じゃないぞ。
870 :
859 :03/08/25 20:57 ID:???
>>867 ># ログファイル名
>も変えておけよ
どういうふうに変えればいいのでしょうか?
>>870 おいおい大丈夫か?
他人に分からないようなファイル名にするんだよ。
872 :
859 :03/08/25 21:29 ID:???
あっそういうことですか。すみません。
u
874 :
859 :03/08/27 19:49 ID:???
>>874 改造個所 =~ s/$mes/$com/g;
876 :
874 :03/08/27 21:16 ID:???
>>875 どこに付け足せばいいのでしょうか?初心者です。すみません
初心者です、なんて言ったら逆効果 素直にわからんって言え
>>876 このスレの趣旨に反するがマジレスしておく。
おまい「教えていただいたとおりやったんですが」って言っておきながら、
>>865 のとおりに記述してねーじゃねーかー。
$mesなんて変数名誰が使えといった?
神のお告げか?
$mesを$comに痴漢する。全てだ。
>>876 教訓だな。
「言われたとおりにやったんですが」は信用するな。
881 :
874 :03/08/28 11:35 ID:???
>>881 そのエラーはログを見ないと解決は難しい
cgiの先頭で ヘッダを出してしまう手もあるが・・・
今の環境は何だ?どっかのレンタル鯖?
883 :
882 :03/08/28 13:54 ID:???
>>881 とりあえずそのソースで普通に掲示板動いたよ
環境わからんとなんともいえんね
SJIS使ってるようだが、漢字は無変換でかつアスキーモードで
サーバに送ってるか?
>>884 ここは改造スレ。
トラブルサポートの場所ではありません。
886 :
884 :03/08/30 00:07 ID:???
そうでしたね…。 なんせソース製作元ですら対策が出来ない話なので、難しいのかもしれませんね。 失礼しました。 。:゚(ノД`)゚:。
画像掲示板(ふたばタイプ)でBerryを弾く様なスクリプトってありませんか?
>>887 ここは改造スレ。
CGI探しの場所ではありません。
889 :
874 :03/08/30 10:43 ID:???
>>889 1 { }の書き忘れがないかチェックする
2 行末のセミコロンの書き忘れがないかチェックする
3 表やポなど、ダメ文字を使ってないかチェックする
基本に(・∀・)カエレ
あと、全角スペースがあるとエラーだす鯖もある
>>889 2行目あたりに、
open(STDERR, ">&STDOUT");
print "Content-Type: text/plain\n\n";
と追加して様子を見てみるとか。
893 :
889 :03/08/31 16:59 ID:???
本当にありがとうございました。 全角スペースがダメだったみたいで、エラーがでたみたいです。 消したところ、無事エラーが無くなりタグも使用可能になりました。 本当にありがとうございました。
>>893 ローカルでテストしないの?
>perl -wc honey.cgi
こーすりゃ全角スペースが入ってれば、エラーなんぞすぐわかる。
896 :
nobodyさん :03/09/05 21:47 ID:uNheDyla
フォームで入力したキーワードを勝手に別ファイルに蓄積するスクリプト 環境変数$keywordsで持っているとして #キーワード蓄積 use Socket; if (not $ENV{'REMOTE_HOST'}) { $address = inet_aton($ENV{'REMOTE_ADDR'}); $hostname = gethostbyaddr($address, &AF_INET); if($hostname){ $host = $hostname; }else{ $host = $ENV{'REMOTE_ADDR'}; } }else{ $host = $ENV{'REMOTE_HOST'}; } ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time); $yyyymmddJ = sprintf("%04d年%02d月%02d日", $year + 1900, $mon +1, $mday); $hhmmssJ = sprintf("%02d時%02d分%02d秒", $hour, $min, $sec); open(LOG, ">>log.dat"); print LOG "$keywords,$yyyymmddJ,$hhmmssJ,$host\n"; close(LOG); #終了 で、キーワード・年月日・時分秒・リモホが勝手にlog.datに記録されていく
strftime使わんのね
お願いします。
掲示板に荒しが来るので、
・NGワードを設定
・管理人以外の連続投稿を制限
を加えたいのですが、どのようにすればいいでしょうか?
使っている掲示板は
ttp://saya.kiy.jp/cgi/bbs.html のLight Bbs[v1.1019]です。
設置するだけで精一杯なので、ほとんど弄っていません。
(IPで弾くものだけ加えました。)
よろしくお願いします。
>>900 「荒らしは完全放置。すっころんでも泣かない。マターリ進行推奨。」
と表題にでも書いておく。
荒らしを構えば火に油を注ぐようなものだと思いますけれども。。。
(´-`).。oO(暗に見積りを出せといっているのだろうか?ここは「改造依頼」ではなくて「改造工房」なのに。。。)
>>903 えー、一言だけ。
自分で改造するだけの能力を持とうとする気がない奴はカエレ!
やり方が分からない人に教えるのがこのスレの役割。 決してやってもらうスレじゃないぞ。
(´-`).。oO(で、¥が入るんなら依頼を受けてもいーけれども。。。カーネークーレー...)
>>907 改造依頼スレでも作ってみたら?
結構依頼があるかも
¥出す奴はいないだろ…
2chみたいな▲▼でリンクの仕方 お願いします。
911 :
900 :03/09/08 22:21 ID:???
>>901 >>902 ありがとうございます。
荒しは反応せずにあぼーんの方針で。
902のリンク先、参考にやってみようと思います。
ホストで見えなくするような事もできるのですね〜
Perlが暗号にしか見えないので作れるなんて羨ましいわぁ
それにしても日に数人しか書き込みない掲示板を荒らして何が楽しいのやら。
>>913 >>911 本人のところだろ……。まあ、ネタだろうが。
「Perlが暗号にしか見えない」ってセリフは、
よくC言語使いが言うんだけどな。
>>911 は「Perlが」でなくて「プログラム言語は」と言った方が正確かと思う。
915 :
nobodyさん :03/09/10 01:39 ID:wDvOu58Q
>>915 ・jcode.pl に戻してみる。
・ソースの charset と ftp 送信時の charset が一致しているか確認してみる。
ぐらいかなぁ、、、
917 :
nobodyさん :03/09/10 11:04 ID:/amBXQNg
くだらん
>>917 無駄にファイルが多いような気がするなぁ。
2162 行あたりにとりつぷ回路を入れるといいのか。
でも、カナを使うと化けそうだねこれ。。。
920 :
915 :03/09/10 23:45 ID:wDvOu58Q
>916 ・jcode.plだと半角カナが化けて使えないので、半角カナ対応に特化した jcodeg.plを使いたいと思っています。なのでjcoeg.plを使用する事を前提に 考えて頂けたら幸いです。不躾ですみません。 ・ソースとFTP送信時のcharsetはどちらもShift-JISでした。 引き続き援助の程をお願いします。
>>920 まあ、考え方次第だと思うが……。
「援助の程をお願いします」とかって、なんか慇懃な印象を受けるよね。
だいたい、これに答えたってこっちにはリターンはないんだし。
# 半角使いたいとか言うのって、厨な印象が強いんだよなあ。
で、解決方法の一つだけど、
jcode.plを使用する理由はそもそも、
CGIが表示したHTMLと、そのHTMLに含まれるフォームから送られるデータで、
文字コードを変更するブラウザがあるからなんだよね。
(例:EUC-JPのページを表示したのに、送られてくるデータはShift-JISとか)
そのあるかどうかブラウザ依存の食い違いを吸収するために、
jcode.plを使って文字コードの統一を図っているわけだが、
そこで「文字コードの食い違いはない」と割り切ってしまえば、
そもそもjcode.plを使う必要はほとんどなくなる訳で。
それに、半角を全角に変更する気もないんなら、さらに使う必要はなくなる。
と、言うわけで、jcode.plを使わず、
文字コードに関する処理は全部コメントアウトしてしまうのも
一つの手段だと思うのですよ。
しかもこれなら、機能を削除するから、変更、追加に比べて作業も楽だしね。
ま、何でもそうだけど、自分が努力する気がないのに
他人にアドバイスとかを求めるのは失礼だよ。がんばってねー。
922 :
915 :03/09/11 02:22 ID:???
>921
文字コードのチェックをし、尚且つ半角カナをつかうには、と聞けば良かったですね。
私が言葉足らずだったようで申し訳無いです。
が、何もせずに援助を待っていたわけではありません。
>>915 の書き込みの後すぐに
文字コードをチェックする部分、半角→全角にする部分などのjcode.plを使うらしき部分
は何通りもコメントアウトして試してみましたが、やはり文字化けしました。
その事を
>>920 で書かなかった私が悪いのでこれについてもごめんなさい。
これ以上書き込むのもあれなので失礼します。あとは自分でどうにかやってみます。
アドバイス下さってありがとう御座いました。
最後に。
・慇懃≠慇懃無礼です。
・確かにネタで厨をやっている部分がありますので否定はしませんが、その部分を
こちらに持ち込んだつもりはありません。全く何もやってないのに聞いたという訳でも
ないのに「自分が努力する気がないのに」というのは逆に失礼かと思います。
ネタじゃなくて素で厨だなこりゃ
前にも援助してくださいっていって追い出されてた香具師がいたと思うが(w
おいおいかわいそうだからって釣られてあげるなよ スルーしてそーっとしといてやろうぜ
>>924 「前にも」の言葉で思い出したけど、
この板のどっかにhiddenのフォームから漢字を送らせて
文字コードを確定させるって手法が紹介されてたよな。
今回は、これ使えばよかったんじゃないか?
まあ、本人がいないんじゃどうしようもないし、
ソースに追加とか変更とか一切しないでコメントアウトだけすることを
「努力」と言い張るような奴じゃあ、
方法を教えてもどうしようもないんだろうけどな。
漏れは、submitボタンのvalueを「送信」とか日本語に しておいて、それでcharset判断してる。
922は香ばしいなぁ。
逆ギレしてる時点で(ry
>>926 それだけでも改造といえると思ってしまうほど
初 心 者 だったんだろうな。
>>927 それいいね。無駄がなくて。
<input type="submit" name="jcode" value="送信">
こんな感じか。
>>927 へぇー そのやり方はじめて知った。
今度応用してみよう。ありがとん。
931 :
nobodyさん :03/09/13 09:08 ID:xQetz2/h
どこで質問したらいいのか分からないので、ここに書かせてもらいます。 (改造版なもので、正規のサポート掲示板で質問も出来ず…) KentWebの「Joyful Note」を改造した画像アップロード掲示板を使っていますが、 文中のURLを自動リンクする機能が、突然働かなくなって困っています。 おかしくなる以前の書き込みでは自動リンクが有効なままで、 おかしくなった以降の書き込みでは自動リンクが無効になります。 無効になるならなるで、全部の書き込みで自動リンクが無効になるなら分かるのですが、 2つが混在しているので一体どういうことなのかなぁ、と。 おかしくなる前と後では、スクリプトを弄った覚えもなく、念の為にバックアップしていた スクリプトを再アップしてみてましたが結果は変わりませんでした。
>>931 改造した奴に責任がある。
おまえが改造したんなら、おまえ自身で解決しろ。
# ソースもさらさずに何が「一体どういうことなのかなぁ」だ。
# さらされても困るけどな。
933 :
931 :03/09/13 09:17 ID:xQetz2/h
改造してあるスクリプトをダウンロードしたんです。私には改造するような能力はありません。 joyful note を使ってる方で、こういう現象に遭遇した方はいらっしゃいますか?
>>933 日本語読めないの?
「改造した奴に責任がある」んだよ。
改造済みをダウンロードしたんなら、その改造をした奴に聞けって言ってるんだよ。
なんでそんなどこの馬の骨ともわからん奴が手を入れたものの世話をしなくちゃいかんのよ。
# だいたい、kentのスクリプトなんて汚くてまともな人間なら読まないっつーの。
935 :
931 :03/09/13 09:27 ID:xQetz2/h
もしかしたらご存じの方がいらっしゃるかな、と思って書き込みをしただけですから、
気に障るなら無視してください。
>>934 に世話して貰おうとは思ってません。
>>935 気に障るも何も、同じ障害が出てる奴をみつけてどうしようって言うんだ。
もし仮にそういう人間がいたとしても、その人間に何かやらせようとか考えてないか?
とにかく聞く順番が徹底的に間違ってるんだよ。
先に改造した人間に聞いて、それでも埒があかなかったら最後の手段で2chだろうが。
>
>>934 に世話して貰おうとは思ってません。
裏返せば、他の人間には世話して貰いたいわけだ。
つまり他力本願であると。カエレ!
937 :
931 :03/09/13 10:50 ID:xQetz2/h
>>937 うん、もう二度とこんなとこに来るなよ。
>>937 同じ現象が出てる奴らに聞いて、わからない物同士で、傷をなめあうわけだ。
何も考えてないんだね。こいつは。
>>938 グッジョヴ!
>>941 index.htmlを設置したいhtmlファイル名に読み替えてください。
943 :
942 :03/09/13 15:24 ID:???
>>KENT こんな説明でいいのかな shtmlじゃないとだめなところが多いと思うけど。
944 :
942 :03/09/13 15:25 ID:???
と思ったら下のほうに説明があった スマソ
946 :
941 :03/09/13 15:40 ID:???
947 :
nobodyさん :03/09/14 06:01 ID:Xh+iygUA
stlfbbs.cgiについて質問です。 トピック型掲示板のように書き込み一覧を表示し、見たい書き込みをクリックすると その書き込みへリンクするようにしたいのですが可能でしょうか? 掲示板を開いた時に ●書き込みA ●書き込みB ●書き込みC と表示し、書き込みAをクリックすると書き込みAへ・・・と。 それか通常、「書き込みした人の名前」と「書き込み内容」はstlfoput.htmlにまとめて表示されますが それぞれを別のファイル(例えば名前はstlfoput.html、内容はあらかじめ用意した別のファイル)に表示させるように出来るだけでも良いのですが。
949 :
947 :03/09/14 08:13 ID:???
950 :
nobodyさん :03/09/14 10:01 ID:j6T8X2t2
951 :
947 :03/09/14 11:26 ID:???
せっかくレスがついたと思ったら宣伝・・・。 さっきからいじってrけど出来ない。やっぱり無理なのだろうか。
>>951 改造するより1から作り直した方がよさげ。
>>947 CGI名でググってみたけど元が積み上げ式のBBSだな。
しくみはよくみてないけど、
レスタイトルや投稿者名、投稿日時とかをログから切り出して
それにリンク貼って一覧を作んなきゃなんないし、
レス単独表示の機能がなければレスを表示する処理も作んなきゃなんない。
そのCGIに思い入れがあるのかもしれんが素直に別のトピック式?を
探した方が幸せになれるんでないかい?
954 :
947 :03/09/14 13:58 ID:???
>>952 >>953 ありがとうございます。
やっぱり素直に別のを使った方が良いですか。
残念だけどそうします。
955 :
nobodyさん :03/09/14 14:56 ID:1Xlg9LW5
957 :
nobodyさん :03/09/14 17:19 ID:1Xlg9LW5
<!--#exec cgi= から呼ばれたのか、投票ボタンを押して呼ばれたのか 区別するってこと。すべてのケースで差し替えたら本体が表示されないでしょ type="submit" の部分に nameを追加してそのnameがパラメタに含まれていたら submitと判断すればいいのではないかな
よくわからなかったら、vote.cgiをコピーしてvote2.cgiを作り index.shtmlからはvote2.cgiを呼び出し、 vote.cgi の Content-type ・・・ を Location: に差し替え (Locationをprint したらexit;で抜ける)れば動作すると思う
結構初心者ですけど、 入力した文字を送信して その文字を表示させるのってどうやってやるの? 入力欄は名前やE-mailを入力する欄と同じに
(゚Д゚)What's!?
value="<?=$foo?>" とかの話しかね?
つか、スレ違い?
つか、マルチ。
965 :
955 :03/09/15 00:02 ID:iLw2WSof
>>958 意味はわかるのですが、具体的にどういう構文を組めばよいのでしょうか。
↓おそらく該当部分でつ。
#
# [ヘッダ表示]
#
sub hed_ {
print "Location:
http://redalart.hp.infoseek.co.jp/cgi-bin/anketo/index.shtml\n\n ";
print <<"_HTML_";
<html><head>
として、さらに、以下のsubmit部分にname=を付け加えるとのことですが、
}
print"<tr><td colspan=2 align=center><input type=\"submit\" value=\" 送信 \"></td></tr>\n";
print "</table></form>\n";
&foot_;
}
この部分はどうなりますか?
教えてクンでスンマソン・・・。
966 :
955 :03/09/15 01:06 ID:iLw2WSof
スンマソン・・・いろいろ試してみましたがだめなようです。
当方ではお手上げです。
CGI呼び出し投票>ログへ書き込み>結果表示
↑ ↑
│ ここでSHTMLへ飛ぶように指示
│
SSIから呼ばれたかsubmitから呼ばれたか判断
という構造なのでしょうか?具体的な改造方法を教えてくだちい・・。
>>958 >type="submit" の部分に nameを追加してそのnameがパラメタに含まれていたら
>submitと判断すればいいのではないかな
これはどういう構文を組めばよいのでしょうか。
968 :
955 :03/09/15 01:11 ID:???
ずれました。鬱
969 :
955 :03/09/15 01:14 ID:???
>>967 お返事
('・ω・')キターーーーーーーーーーーーーーーーーーーーー
早速やってみまつ!
>>965 >>959 のやりかたが簡単でよい(action=をいくつか書き換えるが)んだが・・・
あえてかえるなら、
<input type=\"submit\" name=\"vote\" value=・・・
とかやって、$FORM{"vote"} に値が入ってたらLocation、入ってなかったら Content-type
と切り替える。
973 :
955 :03/09/15 02:36 ID:???
さっそくやってみました。しかし、
#
# [ヘッダ表示]
#
sub hed_ {
if (exists $FORM{'submit'}) {
print "Location:
http://redalart.hp.infoseek.co.jp/cgi-bin/anketo/index.shtml\n\n ";
exit;
}
print "Content-type: text/html; charset=Shift_JIS\n\n";
print <<"_HTML_";
<html><head>
としてみたところ、
a [an error occurred while processing this directive]
というエラーが表示されてしまいます。何度もすいません・・・。
974 :
955 :03/09/15 02:38 ID:???
>970 具体的にどうやりますか?教えてもらえますか。おながいします
975 :
967 :03/09/15 02:59 ID:???
>>973 行頭の全角スペースは消すなりタブに変換するなりしてくれ
あと\n\nのあとのスペースは消したほうがいいかもしれん
976 :
955 :03/09/15 03:12 ID:???
>>967 やったーーーーできたヨーーーー!!
みなさんありがとん〜〜〜〜!
夜分遅くまでお世話様でした。
>>972 如何ほどのご予算で?
と、返しておく。
tu-ka放置すればよいのか。
あーくそ、過去スレ1.2見られないのか。
>>949 で上げられてるタイプの掲示板(stlfbbs?)の事を調べたかったのに。
979 :
955 :03/09/15 15:19 ID:???
昨日はサンクスでした。 さっそくサイトに仕込んでみましたが、 【フォルダA】 └index.shtml 【CGI-BIN】 ├vote.cgi └index.shtml CGI-BINフォルダのindex.shtmlよりCGIを呼び出すと正常に フォルダAのindex.shtmlへ飛ぶのですが、 フォルダAのindex.shtmlよりvote.cgiを飛び出すと 403 Forbidden 以下のような理由が考えられます。 iswebサイト以外からのCGI呼び出しは禁止されています。 ファイル、ディレクトリのパーミッションが不適切です。 CGIはcgi-binディレクトリに設置してください。 参照しようとしたユーザーディレクトリにはindex.htmlが存在しません。 といわれてしまいますが、どれも確認しましたが作動しません。 解決のヒントを。
>>979 そのエラーメッセージの中に答えは無いのかよ
少しは自分で考えるか、自分でどうやって呼び出してるか書けよ
1
982 :
955 :03/09/15 22:20 ID:???
>>983 "環境変数" "PATH_INFO"でググれ
>>982 そのエラーメッセージの中に答えは無いのか
少しは自分で考えるか、自分でどうやって呼び出してるか書いて
>>982 本物の馬鹿だろ、おまえ。
おまえの状況なんかどうでもいいんだ。
おまえはエラーメッセージを理解できない自分を問題にした方がいい。
「解決のヒントをおながいします」なんて言っても、
エラーメッセージの中にすでに十分なヒントは出ている。
だからみんな何も言わないんだ。
これだけ明白なヒントが出ているのにそれに気づかない程度なら、
むしろ、あきらめた方がこれからのおまえのため。いや、マジで。
at works のアクセス解析「access cgi ver.2.81」を使ってるんですが、 ログファイルの日本語表示部分(曜日)だけが文字化けしてしまいます。 FTPソフトでログファイルをダウンロードしてみると 漢字コードがCIS-JISになっていて、SHIFT-JISに変換してアップすると正常に表示されますが、 新たにアクセスがあった分はまた文字化けしてしまいます。 (やはりログがCIS-JISになってしまう) 同じものを別のサーバーでは問題なく使えていて、 ログファイルをダウンロードするとSHIFT-JISになっています。 一体どうやったら文字化けしなくなるんでしょうか?
*スクリプト print "<SCRIPT language=\"JavaScript\">\n"; print "<!--\n"; print "function OpenWin(){\n"; print " win=window.open(\"wwwlng.cgi?print+$file\",\"new\",\"width=100,height=100\");\n"; print "}\n"; print "// -->\n"; print "</SCRIPT>\n"; *エラーメッセージ Name "main::file" used only once: possible typo at tmp.pl line 1. tmp.pl syntax OK (一度だけ使用される名前「main::file」:tmp.pl 4行に可能な誤植。tmp.plシンタックスOK) 新しいウィンドウを開くJavascriptを入れて文法チェックしたのですが 上記のエラーメッセージが出て上手く行きません。 4行目を削ったり足したりしてチェックしてみたところ、「$file」がエラーの原因になってるようなんですが ここからどうやって修正したら良いか解らないんです。 target="_blank"なら上手く行きますが、サイズ指定や各種バーの設定も兼ねていまして。 他のウィンドウを開くJavascriptも試してみましたがやはり$fileが・・・。 対策方法をお願いします。
$file を \$file にしたらどうよ? そもそも $file ってどっから出てきたんだ・・・
990 :
988 :03/09/16 14:15 ID:???
>>989 ありがとうございます。
\を加えたところ、文法ミスが無くなりました。
良かった。
↑のスクリプト、とほほさんの所で配布してる物です。
お前、こんなところでもやってんのか
>>982 >>985-986 こいつは他の初心者系スレでも暴れてた厨房ですんで、
無視してやってください。そのうちいなくなりますから。
>>990 ""の中の変数($file)は評価されるからね
しかし、自分で書いといてなんだが、
これをエスケープしても本質的な解決にならんと思うぞ
993 :
988 :03/09/16 15:12 ID:???
>>992 はい、なりませんでした。
サーバーに上げてチェックしてみると、開いたウィンドウにラウンジエラー(ファイルが不正)。
やけになって全部$fileを\$fileにすると当然サーバエラー。
文法チェックに引っかかった\$fileを修正してもラウンジエラー。
今まではこの方法で通ってたのになぁ・・・。
ttp://tohoho.wakusei.ne.jp/cgi/wwwlng.cgi の掲示板のタイトルをクリックすると新しいウィンドウを開くようにしたいんですが、
ちょっと別の方法を考えてみようと思います。
>>993 この場合、OpenWin() に引数を設け、
呼び出し側の"・・OpenWin()・・" を "・・OpenWin($file)・・"とすればいいのでは
>>988 line: 946-947
print "<TD><A HREF=\"wwwlng.cgi?print+$file\" TITLE=\"$file\">";
print "$subject</A>($count件)</TD>\n";
を、
print qq{<TD><input type="button" value="新しいウィンドウで開く"};
print qq{ onclick="win=window.open(\"wwwlng.cgi?print+$file\",\"new\",\"width=100,height=100\");">$subject($count件)</TD>\n};
ってことかしらん?
よーわからん。
♪長すぎる行があります。って bbs.cgi に怒られた。。。
996 :
988 :03/09/16 17:03 ID:???
出来た!
>>994-995 ありがとうございます。
>>994 の言うように、呼び出し側に$fileを入れたら上手く行きました。
ちゃんと動くようになるまで少々手間取りましたけど。
やった・・・!
997 :
983 :03/09/17 01:04 ID:???
おはよう?
?
1000
1001 :
1001 :
Over 1000 Thread このスレッドは1000を超えました。 もう書けないので、新しいスレッドを立ててくださいです。。。