【 スクリプト改造工房 PART 5 】
http://www.big.or.jp/~talk/t-club/soft/mini_r6/imgboard_n.cgi
このあぷろだなんですが
CGIで表示した時にUPされたままの画像が表示されます
これはちょっと回線がつらいんで
UPされたら自動でサムネイルを作成させたいとおもうんですが
そういう改造って簡単にできますか？
このあぷろだなんですが
CGIで表示した時にUPされたままの画像が表示されます
これはちょっと回線がつらいんで
UPされたら自動でサムネイルを作成させたいとおもうんですが
そういう改造って簡単にできますか？
|
|
|
それかjpeg/gif/pngをリサイズして保存させる
ライブラリー無いでしょうか？
ライブラリー無いでしょうか？
289 ：nobodyさん：02/10/28 01:09 ID:7x9qSZkS
現在の閲覧者を得るにはどうすればいいの？
290 ：nobodyさん：02/10/28 01:59 ID:QQJw3Q/J
ちっこいウィンドウがいっぱい出てきて止まらなくなる奴教えて！
291 ：その3：02/10/28 10:32 ID:0jGJU7lS
>>288
RedHat Linux（i386）用ならCでコンパイルしたのがある。
RedHat Linux（i386）用ならCでコンパイルしたのがある。
>>288
http://fitness.s7.xrea.com/index3.php
からダウソしてjpegなら
$Sorce_File = "img-box/img123456789.jpg"; #元画像名
$Destination_File = "thumbnail/img123456789.jpg"; #縮小画像名
$Resize_Ratio = 0.5; #半分に縮小
system("./rejpeg $Sorce_File $IDestination_file $Resize_Ratio");
みたいに使う。
http://fitness.s7.xrea.com/index3.php
からダウソしてjpegなら
$Sorce_File = "img-box/img123456789.jpg"; #元画像名
$Destination_File = "thumbnail/img123456789.jpg"; #縮小画像名
$Resize_Ratio = 0.5; #半分に縮小
system("./rejpeg $Sorce_File $IDestination_file $Resize_Ratio");
みたいに使う。
>>290
立ち去れ
立ち去れ
>>291 292
どもありがとうございます。
できたみたいです。
あと同じCGIなんですが
投稿順にならべるっていうのがあるんですが
最新3つしか投稿順になりません
どこをいじれば全部にちゃんねるみたいな
最終投稿順になるんでしょうか？
どもありがとうございます。
できたみたいです。
あと同じCGIなんですが
投稿順にならべるっていうのがあるんですが
最新3つしか投稿順になりません
どこをいじれば全部にちゃんねるみたいな
最終投稿順になるんでしょうか？
295 ：nobodyさん：02/11/01 14:47 ID:OCxiXTU1
http://www.nurs.or.jp/~b3/
ここで配布してる
サンプル↓
http://www.nurs.or.jp/~b3/styx/styx/styx.cgi
ダウンロード↓
http://www.nurs.or.jp/~b3/cgi/txcount/dlcount.cgi
この掲示板cgiに串規制を入れたいのですが、
ソースをみたら沢山のファイルに分かれていて
どの辺に入れたら一番よいのかいまいちわかりません。
一応KENTのcgiは解説サイトとか見ながらいじったことありますが
このcgiは見たこと無い記述も多くて判りにくいです。
どの辺をいじればいいのかのヒントだけでも良いので教えてください。
お願いします。
それとこのcgiで良く出てくる::というのと、冒頭のuse vars、
この辺のがなんとなくわかりそうでわかりません。
検索して調べているのですが難解なサイトが多くて困ってます。
わかりやすい参考になるサイトとかあったら教えてください。
ここで配布してる
サンプル↓
http://www.nurs.or.jp/~b3/styx/styx/styx.cgi
ダウンロード↓
http://www.nurs.or.jp/~b3/cgi/txcount/dlcount.cgi
この掲示板cgiに串規制を入れたいのですが、
ソースをみたら沢山のファイルに分かれていて
どの辺に入れたら一番よいのかいまいちわかりません。
一応KENTのcgiは解説サイトとか見ながらいじったことありますが
このcgiは見たこと無い記述も多くて判りにくいです。
どの辺をいじればいいのかのヒントだけでも良いので教えてください。
お願いします。
それとこのcgiで良く出てくる::というのと、冒頭のuse vars、
この辺のがなんとなくわかりそうでわかりません。
検索して調べているのですが難解なサイトが多くて困ってます。
わかりやすい参考になるサイトとかあったら教えてください。
検索してたらPART1のキャッシュが見付かった
http://mimizun.mine.nu:81/2chlog/perl/tako.2ch.net/perl/dat/958370869.html
http://mimizun.mine.nu:81/2chlog/perl/tako.2ch.net/perl/dat/958370869.html
297 ：nobodyさん：02/11/04 07:28 ID:5+umhhBG
298 ：297：02/11/04 07:37 ID:5+umhhBG
>>295
でただ串規制といわれると読みこみも規制するのか
書き込みだけ規制するのかわからないけど、
普通に考えて書き込みだけ規制するとしたらpost.plのなかの
sub host_readのなかでいいんでない？串規制にもいろいろあるけど。
でただ串規制といわれると読みこみも規制するのか
書き込みだけ規制するのかわからないけど、
普通に考えて書き込みだけ規制するとしたらpost.plのなかの
sub host_readのなかでいいんでない？串規制にもいろいろあるけど。
>>289
http://isweb23.infoseek.co.jp/play/cardplay/cgi-lab.shtml
ｺｺに現在の訪問数を表示するCGIってのがあった。
しょうも無いｸｿみたいなﾔｼばっかしだったけどゴミ箱にはﾜﾗﾀ。
http://isweb23.infoseek.co.jp/play/cardplay/cgi-lab.shtml
ｺｺに現在の訪問数を表示するCGIってのがあった。
しょうも無いｸｿみたいなﾔｼばっかしだったけどゴミ箱にはﾜﾗﾀ。
>>298
この連休中でいろいろ調べてやってみてますた。
処理の流れがなかなかわからなくて、しらみつぶしに見ていって
多重投稿を禁止するルーチンがあったのでその辺からいじってみてます。
>>297
こーいうファイルがいくつにも分かれているcgiはどうするのが一番よいのでしょうか？
この連休中でいろいろ調べてやってみてますた。
処理の流れがなかなかわからなくて、しらみつぶしに見ていって
多重投稿を禁止するルーチンがあったのでその辺からいじってみてます。
>>297
こーいうファイルがいくつにも分かれているcgiはどうするのが一番よいのでしょうか？
301 ：あい：02/11/04 23:06 ID:G/C4foN1
携帯用のランキングCGIプログラムを捜しています。
何卒お願いします。
>301
ここにもいたか！
マルチはｳｻﾞｲんだよ！
ここにもいたか！
マルチはｳｻﾞｲんだよ！
303 ：冗談解らないnobodyさんへ：02/11/04 23:22 ID:G/C4foN1
携帯用のランキングCGIを捜しています。
何卒お願いします。
何卒お願いします。
304 ： ◆CxWBqy7wZQ ：02/11/05 18:29 ID:???
303>>CGIスクリプトを検索できるサイト、探せばいくつかあるよ。
いってみたら。
いってみたら。
携帯だぞ、携帯
ｱﾌｫじゃねぇのか？
マルチは無視しろよ。
ｱﾌｫじゃねぇのか？
マルチは無視しろよ。
306 ：nobodyさん：02/11/05 22:03 ID:5STybYDn
KENT WEBのチャットは、入室しているときのフレームと投稿フォームをローカルに保存してちょっと改造すれば、それを使って投稿できますよね（説明が下手ですみません）
その投稿フォームの中に書いてある
「<option value="#RRGGBB">」などを
「<option value="#000000 style=&"font-size:2em&"">」のようにすれば、CSSが使えてしまいます。
それができないようにしたいのですが、うまくいきません。
ワイワイチャット（ttp://kent-web.com/chat/yychat.html）を例に、改造方法を教えていただけないでしょうか？
その投稿フォームの中に書いてある
「<option value="#RRGGBB">」などを
「<option value="#000000 style=&"font-size:2em&"">」のようにすれば、CSSが使えてしまいます。
それができないようにしたいのですが、うまくいきません。
ワイワイチャット（ttp://kent-web.com/chat/yychat.html）を例に、改造方法を教えていただけないでしょうか？
ちょっと文字参照の使い方を間違えました…
> 「<option value="#000000 style=&"font-size:2em&"">」のようにすれば、CSSが使えてしまいます。
ではなくて
> 「<option value="#000000 style="font-size:2em"">」のようにすれば、CSSが使えてしまいます。
です。
よろしくお願いします。
> 「<option value="#000000 style=&"font-size:2em&"">」のようにすれば、CSSが使えてしまいます。
ではなくて
> 「<option value="#000000 style="font-size:2em"">」のようにすれば、CSSが使えてしまいます。
です。
よろしくお願いします。
310 ：nobodyさん：02/11/07 19:15 ID:wiJfESIx
質問させていただきます。宜しくお願いします。
ttp://www.kent-web.com/chat/robo.html
（スクリプト説明）
ttp://www.kent-web.com/chat/robo/robo.gif
（チャット画面サンプル）
↑この人工知能型チャットスクリプトを、フレーム表示ではなく、
一画面に発言フォームとログが出るように作り直したいんです。
簡単なHTMLなら書けるし、BBSの背景色を変える程度のCGI改造なら出来るので、
わかるかなーと思ってソースを見てみましたが、さっぱり分かりません。
どこをどう書き直したら、フレーム表示ではなく、一画面表示となるでしょうか？
ttp://www.kent-web.com/chat/robo.html
（スクリプト説明）
ttp://www.kent-web.com/chat/robo/robo.gif
（チャット画面サンプル）
↑この人工知能型チャットスクリプトを、フレーム表示ではなく、
一画面に発言フォームとログが出るように作り直したいんです。
簡単なHTMLなら書けるし、BBSの背景色を変える程度のCGI改造なら出来るので、
わかるかなーと思ってソースを見てみましたが、さっぱり分かりません。
どこをどう書き直したら、フレーム表示ではなく、一画面表示となるでしょうか？
311 ：310：02/11/07 19:21 ID:wiJfESIx
>>310
怪しいなと思っているのは、以下の部分なのですが、src以下がURLでは無いので、
フレームを解除した時にどう書くべきなのかが分からないんです。
#------------------#
# フレームを生成 #
#------------------#
sub frame {
# クッキーを取得
&get_cookie;
# クッキーにリロード時間／行数のない場合は初期値を代入
if ($ck{'retime'} eq "") { $ck{'retime'} = $re_sec; }
if ($ck{'line'} eq "") { $ck{'line'} = $line[1]; }
&header;
print <<"EOM";
<frameset rows="147,*">
<frame name="form" src="$script?mode=form&retime=$ck{'retime'}&line=$ck{'line'}">
<frame name="log" src="$script?retime=$ck{'retime'}&line=$ck{'line'}">
<noframes>
<body>
フレーム非対応のブラウザの方は利用できません
</body></noframes>
</frameset>
</html>
EOM
exit;
}
怪しいなと思っているのは、以下の部分なのですが、src以下がURLでは無いので、
フレームを解除した時にどう書くべきなのかが分からないんです。
#------------------#
# フレームを生成 #
#------------------#
sub frame {
# クッキーを取得
&get_cookie;
# クッキーにリロード時間／行数のない場合は初期値を代入
if ($ck{'retime'} eq "") { $ck{'retime'} = $re_sec; }
if ($ck{'line'} eq "") { $ck{'line'} = $line[1]; }
&header;
print <<"EOM";
<frameset rows="147,*">
<frame name="form" src="$script?mode=form&retime=$ck{'retime'}&line=$ck{'line'}">
<frame name="log" src="$script?retime=$ck{'retime'}&line=$ck{'line'}">
<noframes>
<body>
フレーム非対応のブラウザの方は利用できません
</body></noframes>
</frameset>
</html>
EOM
exit;
}
312 ：310：02/11/07 19:26 ID:wiJfESIx
とりあえず動けばいいって感じで
#============#
# 設定完了 #
#============#
$string = &decode;
&deny;
#if (!$string) { &frame; }-----------------削除またはコメントに
if ($mode eq 'form') { &form1; }
if ($mode eq 'into') { ®ist('into'); }#-----変更
if ($in{'comment'} && $mode eq 'msg') { ®ist('comment'); }
if ($mode eq 'bye') { &byebye; }
&form2;#---------------------------追加
&log_view;
#============#
# 設定完了 #
#============#
$string = &decode;
&deny;
#if (!$string) { &frame; }-----------------削除またはコメントに
if ($mode eq 'form') { &form1; }
if ($mode eq 'into') { ®ist('into'); }#-----変更
if ($in{'comment'} && $mode eq 'msg') { ®ist('comment'); }
if ($mode eq 'bye') { &byebye; }
&form2;#---------------------------追加
&log_view;
#----------------------------#
# フォーム2 : 発言フォーム #
#----------------------------#
sub form2 {
#®ist('into');-------削除またはコメント
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
print "発言自動消去</td></form></table>\n";#</body>\n</html>\n";--変更
#exit;--------------------削除かコメント
}
#--------------#
# 記事表示部 #
#--------------#
sub log_view {
#&header;----------------削除かコメント
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
以上
# フォーム2 : 発言フォーム #
#----------------------------#
sub form2 {
#®ist('into');-------削除またはコメント
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
print "発言自動消去</td></form></table>\n";#</body>\n</html>\n";--変更
#exit;--------------------削除かコメント
}
#--------------#
# 記事表示部 #
#--------------#
sub log_view {
#&header;----------------削除かコメント
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
以上
最初の入室時のみ
robo.cgi?mode=form
でアクセスしないといけない。
robo.cgi?mode=form
でアクセスしないといけない。
® = ® です。
317 ：bery：02/11/07 20:34 ID:jtBNkMoC
はじめまして、わからないことがあったので質問させて頂きます。
ttp://mo-mo.vis.ne.jp/1sample/t/ud_meisai/mo-erv002.cgi（設置例）
ttp://mo-mo.vis.ne.jp/cgiskin/bbs/mo-erv002pkm.htm(↑の説明)
この背景（画像）を表示を一個でスクロールしないようにしたいのです。
HTMLならできるんですが…CGIでやってみようにも全くわかりません。
コメント記入部の方（左）側の画像はフレームの中央部。
右のログ表示部分はフレームの左上部分に画像を表示したいんです。
CGIでは無理なのでしょうか…？
ttp://mo-mo.vis.ne.jp/1sample/t/ud_meisai/mo-erv002.cgi（設置例）
ttp://mo-mo.vis.ne.jp/cgiskin/bbs/mo-erv002pkm.htm(↑の説明)
この背景（画像）を表示を一個でスクロールしないようにしたいのです。
HTMLならできるんですが…CGIでやってみようにも全くわかりません。
コメント記入部の方（左）側の画像はフレームの中央部。
右のログ表示部分はフレームの左上部分に画像を表示したいんです。
CGIでは無理なのでしょうか…？
318 ：nobodyさん：02/11/07 21:51 ID:LYTlqOr8
319 ：bery：02/11/07 23:02 ID:jtBNkMoC
あ、そうなんですかすみません（^^;
そちらの方で質問してみます…
そちらの方で質問してみます…
320 ：310：02/11/07 23:56 ID:Tm6hHAQP
>>313-316
ありがとうございます！
すみません、確認させて頂きたいんですが、
書いて頂いたスクリプトの中の「?」はそのままでいいんでしょうか？
（例：>313の「$string=?」等）
それと、初心者で申し訳ないんですが、
>>316の意味が分かりませんでした。
頂いたスクリプトを、そのまま該当箇所にコピペしてみましたが、
internal server errorが出てしまいました。
ありがとうございます！
すみません、確認させて頂きたいんですが、
書いて頂いたスクリプトの中の「?」はそのままでいいんでしょうか？
（例：>313の「$string=?」等）
それと、初心者で申し訳ないんですが、
>>316の意味が分かりませんでした。
頂いたスクリプトを、そのまま該当箇所にコピペしてみましたが、
internal server errorが出てしまいました。
321 ：nobodyさん：02/11/08 03:36 ID:KKJBpaNF
皆様はじめまして、とほほさんのwwwserch.cgiについて質問させてください。
現在wwwserchを実際に稼動しているのですが、
データ量が多くなるにつれ表示件数が膨大になって困っています。
そこで表示結果を分割して表示させたいのです。
（10件ずつ表示して｢次へ｣のリンクで次の10件を表示といった感じで・・）
このような事は可能でしょうか？
可能なら何処をどのように改造すれば良いかお知恵を拝借させてください。。
なんとか自力でしようと頑張ってみたもののサッパリで・・
宜しくおねがいします。。
此方にソースをtxtでアップしてみました↓
http://www.geocities.co.jp/Milano-Kotto/1097/wwwsrch.txt
現在wwwserchを実際に稼動しているのですが、
データ量が多くなるにつれ表示件数が膨大になって困っています。
そこで表示結果を分割して表示させたいのです。
（10件ずつ表示して｢次へ｣のリンクで次の10件を表示といった感じで・・）
このような事は可能でしょうか？
可能なら何処をどのように改造すれば良いかお知恵を拝借させてください。。
なんとか自力でしようと頑張ってみたもののサッパリで・・
宜しくおねがいします。。
此方にソースをtxtでアップしてみました↓
http://www.geocities.co.jp/Milano-Kotto/1097/wwwsrch.txt
322 ：310：02/11/08 11:04 ID:By9No9AA
323 ： ：02/11/08 11:46 ID:???
これは本当らしいです。かなり選ぶのに参考になります。
ttp://isweb19.infoseek.co.jp/computer/atkinson/atkinson/osusume_book_ryouhou.htm
ttp://isweb19.infoseek.co.jp/computer/atkinson/atkinson/osusume_book_ryouhou.htm
>>322
何か&が参照されちゃって、もう一回
#============#
# 設定完了 #
#============#
$string = &decode;
&deny;
if (!$string) { &form1; }--------------------変更
#if ($mode eq 'form') { &form1; } ------------削除またはコメントに
if ($mode eq 'into') { ®ist('into'); }#-----変更
if ($in{'comment'} && $mode eq 'msg') { ®ist('comment'); }
if ($mode eq 'bye') { &byebye; }
&form2;#---------------------------追加
&log_view;
何か&が参照されちゃって、もう一回
#============#
# 設定完了 #
#============#
$string = &decode;
&deny;
if (!$string) { &form1; }--------------------変更
#if ($mode eq 'form') { &form1; } ------------削除またはコメントに
if ($mode eq 'into') { ®ist('into'); }#-----変更
if ($in{'comment'} && $mode eq 'msg') { ®ist('comment'); }
if ($mode eq 'bye') { &byebye; }
&form2;#---------------------------追加
&log_view;
あとフォーム２で
target="log"
を削除する。（リロードのたびにウィンドウが開くため）
とりあえずなのでHTMLは変です。（</head>が２個になったり）
target="log"
を削除する。（リロードのたびにウィンドウが開くため）
とりあえずなのでHTMLは変です。（</head>が２個になったり）
326 ：310：02/11/09 12:28 ID:oFTHMvgO
あの・・・マジで質問です
kent-webのaska.cgiにひみこーどをつけようと思うんですが
ほかの場所はうまくいったんですがここだけわからないんですよ
書き込み処理部分に
{ # 対フェイザーオンの場合は実際に発行されたコードかどうか照合
if ($FORM{'facheck2'} eq '') { &error('チェックコードエラー',"投稿コードが入力されてません(^^;;");
}
$dukecheck = $FORM{'facheck2'} . $FORM{'facheck3'};
if ( !open(DB,"$himicode_log") ) { &error('0'); }
@lines = <DB>;
close(DB);
$himikocheck=0;
foreach $line (@lines) {
chop($line);
if ($dukecheck eq $line) {
$himikocheck=1;
}
}
if ($himikocheck != 1) {
&error('x');
}
}
っていれたら、いくらひみこーどがあってても
チェックコードエラーってでてしまうんですよ
誰か教えてくれないでしょうか？
kent-webのaska.cgiにひみこーどをつけようと思うんですが
ほかの場所はうまくいったんですがここだけわからないんですよ
書き込み処理部分に
{ # 対フェイザーオンの場合は実際に発行されたコードかどうか照合
if ($FORM{'facheck2'} eq '') { &error('チェックコードエラー',"投稿コードが入力されてません(^^;;");
}
$dukecheck = $FORM{'facheck2'} . $FORM{'facheck3'};
if ( !open(DB,"$himicode_log") ) { &error('0'); }
@lines = <DB>;
close(DB);
$himikocheck=0;
foreach $line (@lines) {
chop($line);
if ($dukecheck eq $line) {
$himikocheck=1;
}
}
if ($himikocheck != 1) {
&error('x');
}
}
っていれたら、いくらひみこーどがあってても
チェックコードエラーってでてしまうんですよ
誰か教えてくれないでしょうか？
328 ：nobodyさん：02/11/09 22:58 ID:Y+NUqAmE
17氏スクリプトにdame処理を追加したいんですけど、
まったくわかりません…
どなたかやってみたことある方いらっしゃいますでしょうか？
…厨房質問なのでsage
まったくわかりません…
どなたかやってみたことある方いらっしゃいますでしょうか？
…厨房質問なのでsage
>>329
おんぷちゃんねる
おんぷちゃんねる
331 ：nobodyさん：02/11/12 06:24 ID:zpgICSVI
295のところにあったのですが
ttp://www.nurs.or.jp/~b3/scripts/proxy/
これを複数クライアント対応にできないでしょうか？
これを置いてあるところでは
数行書き換えるだけでできると書いてあるのですが
さっぱりわかりません・・・
これはperl串というものになるのですか？それともCGI串なのでしょうか。
ソースはリンク先に直接はってあります。
おながいします。
ttp://www.nurs.or.jp/~b3/scripts/proxy/
これを複数クライアント対応にできないでしょうか？
これを置いてあるところでは
数行書き換えるだけでできると書いてあるのですが
さっぱりわかりません・・・
これはperl串というものになるのですか？それともCGI串なのでしょうか。
ソースはリンク先に直接はってあります。
おながいします。
332 ：331：02/11/12 18:29 ID:kBSIdPWX
説明が足りなかったようなので書き直します。
http://www.nurs.or.jp/~b3/scripts/proxy/
ここにある、CGI proxy(?)についてです。
リンク先に、ソースがそのまま貼ってあります。
多分100行無いと思います。
これは、IPが一致した一人のクライアントしか受け付けないのですが
これを複数のクライアントが接続できるようにしたいです。
forkしたあと、クライアント受付をすればよいのかもという所までは
思いついたのですが、どうすればよいのかわかりません。
教えてください。お願いします。
http://www.nurs.or.jp/~b3/scripts/proxy/
ここにある、CGI proxy(?)についてです。
リンク先に、ソースがそのまま貼ってあります。
多分100行無いと思います。
これは、IPが一致した一人のクライアントしか受け付けないのですが
これを複数のクライアントが接続できるようにしたいです。
forkしたあと、クライアント受付をすればよいのかもという所までは
思いついたのですが、どうすればよいのかわかりません。
教えてください。お願いします。
334 ：331：02/11/13 03:44 ID:bEkh+4n6
自己責任でどうぞ。
kentさんのところのCGIなんですが
ttp://sugachan.dip.jp/img/imgboard.cgi
の一番下のように 10枚よりも多い場合は >>で最終ページに
飛ばせるようにするにはどうすればいいんでしょうか？
ttp://sugachan.dip.jp/img/imgboard.cgi
の一番下のように 10枚よりも多い場合は >>で最終ページに
飛ばせるようにするにはどうすればいいんでしょうか？
>>336
kentさんのところのCGIは、1個しかないの？
kentさんのところのCGIは、1個しかないの？
えっと もともとはJoyful NoteでもYYBBSでも
ページの枚数分だけ
出てきちゃいます
20ページ分のログがあったら
[1][2][3] ～～～～[18][19][20]
ログがたくさんあるとうっとうしいので
この表示そのものを消すことも考えたんですが
やっぱりあったほうが使いので
よろしくおねがいします
ページの枚数分だけ
出てきちゃいます
20ページ分のログがあったら
[1][2][3] ～～～～[18][19][20]
ログがたくさんあるとうっとうしいので
この表示そのものを消すことも考えたんですが
やっぱりあったほうが使いので
よろしくおねがいします
340 ：nobodyさん：02/11/16 17:56 ID:25GjLFjs
掲示板で、行頭に> があるとき、<blockquote>～</blockquote>で
囲む方法を教えてください。
なるべくなら行頭に>がある複数行をまとめてくくりたいのですが。
囲む方法を教えてください。
なるべくなら行頭に>がある複数行をまとめてくくりたいのですが。
$FORM{'comment'} =~ s/(<br>|^)(((＆gt;|＞)(?!＆gt;[0-9]).*?<br>)+)(?!(>|＞))/($_ = "$1<blockquote>$2") =~ s!^(.*)<br>$!$1!; "$_<\/blockquote>";/ge;
改行は既にbr,>は既に＆gt;になっていると仮定して。
2ch式の>>１とかいうのを引用にしないようにというのも考慮。
だれかもっとスマートな方法ないですか？
実体参照どうなるのか知らないので＆を大文字で書いておきました。
#なんかime.nuから飛んでくるし、うちのサイトにこの板のコピペでの書き込みが
#あったので見に来たら、これのスレに漏れのサイト載ってた・・・
改行は既にbr,>は既に＆gt;になっていると仮定して。
2ch式の>>１とかいうのを引用にしないようにというのも考慮。
だれかもっとスマートな方法ないですか？
実体参照どうなるのか知らないので＆を大文字で書いておきました。
#なんかime.nuから飛んでくるし、うちのサイトにこの板のコピペでの書き込みが
#あったので見に来たら、これのスレに漏れのサイト載ってた・・・
あ、一箇所>になっちゃってる、＆大文字にするの忘れた。
343 ：340：02/11/17 14:13 ID:NOOOaxSv
>>341さんthaxx!!
345 ：test ◆wSaCDPDEl2 ：02/11/18 00:06 ID:???
YYBBSにトリップ昨日をつけたいのですが・・・
挫折。
わかる方宜しくおねがいします...
挫折。
わかる方宜しくおねがいします...
>>345
どこかに書いてあった。
過去ログにもあるのでとりあえず読めと言いたいが、親切な漏れはその内容をコピペする。
$name = "名無し#hogehoge";
$name =~s/#(.*)$/trip($1)/eg;
print $name;
sub trip {
my $str = shift;
my $salt = substr($str, 1, 2);
$salt =~ tr/\x00-\x20\x7B-\xFF/./;
$salt =~ tr/\x3A-\x40\x5B-\x60/A-Ga-f/;
return ' </b>◆' . substr(crypt($str, $salt), -8) . '<b>';
}
後は自分で考えろ！ヴォケが！！
どこかに書いてあった。
過去ログにもあるのでとりあえず読めと言いたいが、親切な漏れはその内容をコピペする。
$name = "名無し#hogehoge";
$name =~s/#(.*)$/trip($1)/eg;
print $name;
sub trip {
my $str = shift;
my $salt = substr($str, 1, 2);
$salt =~ tr/\x00-\x20\x7B-\xFF/./;
$salt =~ tr/\x3A-\x40\x5B-\x60/A-Ga-f/;
return ' </b>◆' . substr(crypt($str, $salt), -8) . '<b>';
}
後は自分で考えろ！ヴォケが！！
348 ：test ◆wSaCDPDEl2 ：02/11/18 23:48 ID:???
345でつ。
過去ログ漁ってませんでした（汗
激しくｽﾏｿ。
あと、良かったらWebPatioの奴記事の表示部分なんですが
Page: [1] [2] [3]
とか普通に移動メンドイんですょ・・
全部とかつけたいんですけど Doすれば・・・・
過去ログ漁ってませんでした（汗
激しくｽﾏｿ。
あと、良かったらWebPatioの奴記事の表示部分なんですが
Page: [1] [2] [3]
とか普通に移動メンドイんですょ・・
全部とかつけたいんですけど Doすれば・・・・
349 ：test ◆wSaCDPDEl2 ：02/11/18 23:48 ID:???
あ、あげさせて下さい
350 ：nobodyさん：02/11/19 18:14 ID:/Dv7gUEP
もしがいしゅつでなければ教えてもらえる？
今日本屋で掲示板リデザインとかって新刊があって、
それにちらっと載ってた。
うろ覚えなんだけど、
$newtime = '60 * 60 * 24';
$newimg = '<img src=./gazou/new.gif>';
if ($newtime >= ($time - $xtime)) { $vnewimg = $newimg } else { $vnewimg eq '' }
で、$time エポック秒を入れて、投稿時間（秒）の $xtime との差が指定の $hewtime より
大きいか小さいかで表示の有無を決定するらしい。
問題はエポック秒と投稿時間（秒）をどうやって取得するか。
kentのpetitbordで親投稿とレスにそれぞれ新着マークを表示させたいと思ってるので
ヒマか、ヒマじゃなくても物知らずにちょっと教えてやっかと思う有志がいればお願い。
今日本屋で掲示板リデザインとかって新刊があって、
それにちらっと載ってた。
うろ覚えなんだけど、
$newtime = '60 * 60 * 24';
$newimg = '<img src=./gazou/new.gif>';
if ($newtime >= ($time - $xtime)) { $vnewimg = $newimg } else { $vnewimg eq '' }
で、$time エポック秒を入れて、投稿時間（秒）の $xtime との差が指定の $hewtime より
大きいか小さいかで表示の有無を決定するらしい。
問題はエポック秒と投稿時間（秒）をどうやって取得するか。
kentのpetitbordで親投稿とレスにそれぞれ新着マークを表示させたいと思ってるので
ヒマか、ヒマじゃなくても物知らずにちょっと教えてやっかと思う有志がいればお願い。
351 ：nobodyさん：02/11/19 18:17 ID:/Dv7gUEP
$newtime = '60 * 60 * 24';
ってのはたしか６０秒×６０で１時間、それに×２４で一日という設定。
ってのはたしか６０秒×６０で１時間、それに×２４で一日という設定。
petiboardのログに投稿時間がどういう形式で記録されているかですな。
あと
× eq
○ =
あと
× eq
○ =
354 ：nobodyさん：02/11/19 18:49 ID:/Dv7gUEP
>>352
えーと sprintf でフォーマットされてログに入るみたい。
このときフォーマットしない投稿時間（エポック秒）を一緒に非表示でログに記録して、
それとリアルタイムの比較するってのは無理かな？
＞× eq
＞○ =
指摘感謝。
えーと sprintf でフォーマットされてログに入るみたい。
このときフォーマットしない投稿時間（エポック秒）を一緒に非表示でログに記録して、
それとリアルタイムの比較するってのは無理かな？
＞× eq
＞○ =
指摘感謝。
355 ：nobodyさん：02/11/19 18:50 ID:/Dv7gUEP
epoch取得は
$hoge = time;
そういえばもう9桁じゃないんだね。。
$hoge = time;
そういえばもう9桁じゃないんだね。。
357 ：nobodyさん：02/11/20 03:03 ID:XwDH5ZL+
$newtime = '60 * 60 * 24';
$newimg = '<img src=./gazou/new.gif>';
$hoge = time;
if ($newtime <= ($hoge - $xtime)) { $vnewimg = $newimg } else { $vnewimg = '' }
あとは$xtime（ログのエポック秒）を取得出来ればいいということですか？
>>353のお話だと面倒なようですが、なにか手があったら教えて下さい。
$newimg = '<img src=./gazou/new.gif>';
$hoge = time;
if ($newtime <= ($hoge - $xtime)) { $vnewimg = $newimg } else { $vnewimg = '' }
あとは$xtime（ログのエポック秒）を取得出来ればいいということですか？
>>353のお話だと面倒なようですが、なにか手があったら教えて下さい。
>>354の方法が一番いいと思う
359 ：nobodyさん：02/11/20 12:42 ID:bO+exC+I
こういうこと？
use Time::Local;
$date = '2002/11/19 (火) 18:30';
($year, $mon, $mday, $hour, $min)= $date=~ m!(\d+)/(\d+)/(\d+)\D+(\d+):(\d+)!;
$year-= 1900; $mon--;
$xtime= timelocal(0, $min, $hour, $mday, $mon, $year);
$newtime = '60 * 60 * 24';
$newimg = '<img src=./gazou/new.gif>';
$hoge = time;
$vnewimg= $newtime <= $hoge - $xtime ? $newimg : '';
use Time::Local;
$date = '2002/11/19 (火) 18:30';
($year, $mon, $mday, $hour, $min)= $date=~ m!(\d+)/(\d+)/(\d+)\D+(\d+):(\d+)!;
$year-= 1900; $mon--;
$xtime= timelocal(0, $min, $hour, $mday, $mon, $year);
$newtime = '60 * 60 * 24';
$newimg = '<img src=./gazou/new.gif>';
$hoge = time;
$vnewimg= $newtime <= $hoge - $xtime ? $newimg : '';
361 ：nobodyさん：02/11/20 14:56 ID:bO+exC+I
エポック秒をログに書き込ものはたとえばpetitだから色変更機能を取っ払うつもりで
$colorのところに$xtime（投稿時間）を書き込んめばログに10桁のエポック秒が入って、
あとはそれをどうやって$xtimeの変数に戻して
if ($newtime >= ($hoge - $xtime)) { $vnewimg = $newimg } else { $vnewimg = '' }
を成立させるかってところですか？
$colorのところに$xtime（投稿時間）を書き込んめばログに10桁のエポック秒が入って、
あとはそれをどうやって$xtimeの変数に戻して
if ($newtime >= ($hoge - $xtime)) { $vnewimg = $newimg } else { $vnewimg = '' }
を成立させるかってところですか？
upload.s21.xrea.com/cgi-bin/upl/file/1037525517.txt
363 ：nobodyさん：02/11/20 16:55 ID:VyhcjvPU
upload.s21.xrea.com/cgi-bin/upl/file/1037525517.txt
upload.s21.xrea.com/cgi-bin/upl/file/1037525517.txt
365 ：nobodyさん：02/11/20 16:56 ID:VyhcjvPU
すみません、なぜか作業中で投稿できなくなってしまったので
いろいろ試している間に投稿されてしまいました。すみません(;´Д`)
いろいろ試している間に投稿されてしまいました。すみません(;´Д`)
book-iの様なURL転送サービスのスクリプトを探しているのですが、どこかのシェアウェアらしいと言うことが分かりました。
なので自作したのですが、どういう風にすればいいか分からなくなりました。
アドバイスをお願いできないでしょうか？
367 ：nobodyさん：02/11/20 17:05 ID:aDlw2kvx
368 ：nobodyさん：02/11/20 20:20 ID:DRRYVgUE
失礼致します。一度CGI探してますスレに書き込みましたが
反応が無いので思い切って自分でやってみる事にしました。
http://www.appleple.com/cgi/ で配布されている a-News
というスクリプトを完全なテンプレートにしたいのですが
どこを変えていいのか解りません。宜しければご教授下さい。
メインスクリプト
http://mad_berry.tripod.co.jp/a-news.txt
セットアップデータ
http://mad_berry.tripod.co.jp/setup.txt
テンプレート
http://mad_berry.tripod.co.jp/template.txt
反応が無いので思い切って自分でやってみる事にしました。
http://www.appleple.com/cgi/ で配布されている a-News
というスクリプトを完全なテンプレートにしたいのですが
どこを変えていいのか解りません。宜しければご教授下さい。
メインスクリプト
http://mad_berry.tripod.co.jp/a-news.txt
セットアップデータ
http://mad_berry.tripod.co.jp/setup.txt
テンプレート
http://mad_berry.tripod.co.jp/template.txt
369 ：test ◆wSaCDPDEl2 ：02/11/20 22:05 ID:???
>>347
#============#
# 設定完了 #
#============#
# メイン処理
&decode;
&make_trip;
&axs_check;
if ($mode eq "howto") { &howto; }
elsif ($mode eq "find") { &find; }
.............
&html_log;
..................
sub make_trip{
$name =~ s/◆/◇/g; #偽者対策
$k = substr($name,index($name,'#')+1);
$s = substr(substr($k,0,8).'H.', 1, 2);
$s =~ s/[^\.-z]/\./go;
$s =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$t = substr(crypt($k, $s), -8);
$name =~ s/#(\S+)/<\/b> ◆$t <b>/g;
}
#-----------------#
# URLエンコード #
#-----------------#
sub url_enc {
#============#
# 設定完了 #
#============#
# メイン処理
&decode;
&make_trip;
&axs_check;
if ($mode eq "howto") { &howto; }
elsif ($mode eq "find") { &find; }
.............
&html_log;
..................
sub make_trip{
$name =~ s/◆/◇/g; #偽者対策
$k = substr($name,index($name,'#')+1);
$s = substr(substr($k,0,8).'H.', 1, 2);
$s =~ s/[^\.-z]/\./go;
$s =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$t = substr(crypt($k, $s), -8);
$name =~ s/#(\S+)/<\/b> ◆$t <b>/g;
}
#-----------------#
# URLエンコード #
#-----------------#
sub url_enc {
370 ：test ◆wSaCDPDEl2 ：02/11/20 22:06 ID:???
YY-BBSがベースの掲示板に↑のようにやりましたが・・・。
テスト#test
などと投稿しても
そのままになってしまいます。
変数名などの変更する箇所とか挿入箇所が
間違ってますか？・・・
371 ：nobodyさん：02/11/20 23:32 ID:3WorW1PE
初心者ですみません。
ranklinkで
inページ、新着ページ等が作られていきますが
inページで順位の隣りに(位)と出したのですが
新着ページにも反映されてしまい、新着ですと
例＝11/20位
の様になってしまいます。
どうか先輩方お知恵を下さい。
ranklinkで
inページ、新着ページ等が作られていきますが
inページで順位の隣りに(位)と出したのですが
新着ページにも反映されてしまい、新着ですと
例＝11/20位
の様になってしまいます。
どうか先輩方お知恵を下さい。
373 ：nobodyさん：02/11/21 08:34 ID:Ht8hmAkY
>>367
http://www.google.com/search?num=1&q=book-i+jump
上記のサイトです。nifty等と同じで書き込み禁止の文字らしいので、
直接リンクが張れないのですが・・・
転送する部分は
ttp://upload.s21.xrea.com/cgi-bin/upl/file/1037525517.txt
このようにして、htmlファイルを作成しようと思っています。
ユーザ登録システムを作りたいのですが、これから何をしていいか
分からなくなってしまって・・・
http://www.google.com/search?num=1&q=book-i+jump
上記のサイトです。nifty等と同じで書き込み禁止の文字らしいので、
直接リンクが張れないのですが・・・
転送する部分は
ttp://upload.s21.xrea.com/cgi-bin/upl/file/1037525517.txt
このようにして、htmlファイルを作成しようと思っています。
ユーザ登録システムを作りたいのですが、これから何をしていいか
分からなくなってしまって・・・
375 ： ：02/11/21 17:27 ID:???
376 ：nobodyさん：02/11/21 21:21 ID:qQxlYNfm
皆様のお知恵をお貸しください。
ttp://genesis.vis.ne.jp/
こちらで配布されているCHAMELEON BOARDを、
レスが付いたら親記事ごと一番上に表示するようにしたいです。
お手数ですがご教授宜しくお願いいたします。
ttp://genesis.vis.ne.jp/
こちらで配布されているCHAMELEON BOARDを、
レスが付いたら親記事ごと一番上に表示するようにしたいです。
お手数ですがご教授宜しくお願いいたします。
378 ：nobodyさん：02/11/22 17:52 ID:JgWrpTOL
>>374
設定変更用のシステムとか作ればいいんじゃないの？
ていうか、自分がそういうサービスを利用する上でほしい機能を作っていけばいいじゃん。
あと表示だけじゃなくメールで設定情報は送ってあげたほうが親切かもな。
設定変更用のシステムとか作ればいいんじゃないの？
ていうか、自分がそういうサービスを利用する上でほしい機能を作っていけばいいじゃん。
あと表示だけじゃなくメールで設定情報は送ってあげたほうが親切かもな。
>>377
レスどうもです。
やっぱり駄目そうですか・・・。
素人考えで155行目からの
foreach (@lines) {
($no,$number,$title,$name,$mail,$url,$comment,$del,$date,$icon,$color) = split(/<>/,$_);
if ($number eq '0') { push(@line,"$_"); }
}
ここに追加すりゃなんとかなるかなと思い触ってたんですけど、
自分自身のperlの知識が浅すぎてどうにもならなくなってます。
レスどうもです。
やっぱり駄目そうですか・・・。
素人考えで155行目からの
foreach (@lines) {
($no,$number,$title,$name,$mail,$url,$comment,$del,$date,$icon,$color) = split(/<>/,$_);
if ($number eq '0') { push(@line,"$_"); }
}
ここに追加すりゃなんとかなるかなと思い触ってたんですけど、
自分自身のperlの知識が浅すぎてどうにもならなくなってます。
>>376
それってさ、RES投稿を確認してRES対象の親記事のNOが付いている親記事自身とその親記事に今までに付いたRES記事を取り出してその一番下にRES投稿の記事をくっつければいいんじゃないの？
で、取り出すときに関係ない他の記事は@oldかなんかに突っ込んどいて保存する時に新記事郡、旧記事郡の順で書けば実質一番上に来た事になるけど、プログラム自体を見てない漏れには解りません。
まぁ頑張れや。
それってさ、RES投稿を確認してRES対象の親記事のNOが付いている親記事自身とその親記事に今までに付いたRES記事を取り出してその一番下にRES投稿の記事をくっつければいいんじゃないの？
で、取り出すときに関係ない他の記事は@oldかなんかに突っ込んどいて保存する時に新記事郡、旧記事郡の順で書けば実質一番上に来た事になるけど、プログラム自体を見てない漏れには解りません。
まぁ頑張れや。
382 ：神さまおながいします：02/11/23 20:45 ID:???
kboardの話なのですが、この方の、
ttp://you-make.com/Mz-World/MAL/cgi-bin/cf/kboard.cgi
このタイプなんですが、全体のフォントの書式を変える事は出来ないのでしょうか？
グーグルで色々調べたのですが、素人全開のため良く分かりませんでした・・。
どうか御知恵を貸して頂けないでしょうか？宜しくお願いします。
一応テキストにしてUPさせていただきました。
http://members.tripod.co.jp/kamisamaonagaisimasu/onagaisimasu.txt
ttp://you-make.com/Mz-World/MAL/cgi-bin/cf/kboard.cgi
このタイプなんですが、全体のフォントの書式を変える事は出来ないのでしょうか？
グーグルで色々調べたのですが、素人全開のため良く分かりませんでした・・。
どうか御知恵を貸して頂けないでしょうか？宜しくお願いします。
一応テキストにしてUPさせていただきました。
http://members.tripod.co.jp/kamisamaonagaisimasu/onagaisimasu.txt
>>382
フォントの書式ってなんだ?
とりあえず、下の方の
body{
scrollbar-3dlight-color:$form_color;
scrollbar-arrow-color:$form_color;
scrollbar-base-color:$bg_color;
scrollbar-darkshadow-color :$bg_color;
scrollbar-face-color:$bg_color;
scrollbar-highlight-color:$bg_color;
scrollbar-shadow-color:$form_color;
}
ってところに好きなスタイル追加してみ。
フォントの書式ってなんだ?
とりあえず、下の方の
body{
scrollbar-3dlight-color:$form_color;
scrollbar-arrow-color:$form_color;
scrollbar-base-color:$bg_color;
scrollbar-darkshadow-color :$bg_color;
scrollbar-face-color:$bg_color;
scrollbar-highlight-color:$bg_color;
scrollbar-shadow-color:$form_color;
}
ってところに好きなスタイル追加してみ。
384 ：nobodyさん：02/11/23 22:07 ID:QZcZ5A23
YaBBにファイルアップロード機能を付けるにはどうしたらいいでしょうか？
http://www.yabbforum.com/
http://www.yabbforum.com/
385 ：ありがとうございますた：02/11/23 22:24 ID:???
386 ：nobodyさん：02/11/23 23:36 ID:B4pvccDx
http://mtbbs.tr-w.net/dl.html
の掲示板なのですが、HTML書き出しだとクッキーが使えないはずです。
でも、2chではHTML書き出しなのにクッキーが対応しています。
どうやって、対応させてるのでしょうか？
対応させる方法を教えてください。お願いいたします。
の掲示板なのですが、HTML書き出しだとクッキーが使えないはずです。
でも、2chではHTML書き出しなのにクッキーが対応しています。
どうやって、対応させてるのでしょうか？
対応させる方法を教えてください。お願いいたします。
387 ：nobodyさん：02/11/24 02:23 ID:DDSdv1W7
初心者でスイマセン。
いま使っているツリー型掲示板のレスがつくと記事を上にトップに上がる機能は
やはり掲示板によってプログラムは違ってくるのでしょうか？
共通のルーチンなどはないのでしょうか？
いま使っているツリー型掲示板のレスがつくと記事を上にトップに上がる機能は
やはり掲示板によってプログラムは違ってくるのでしょうか？
共通のルーチンなどはないのでしょうか？
>>376
>>388
&time;
$match=0;
@new2=();
@tmp=();
foreach (@lines) {
($kno,$knumber) = split(/<>/);
if ($number eq "$kno") {
$match=1;
push(@new2,$_);
}
elsif ($number eq "$knumber") {
push(@new2,$_);
}
>>388
&time;
$match=0;
@new2=();
@tmp=();
foreach (@lines) {
($kno,$knumber) = split(/<>/);
if ($number eq "$kno") {
$match=1;
push(@new2,$_);
}
elsif ($number eq "$knumber") {
push(@new2,$_);
}
elsif ($match == 1 && $number eq "$knumber") {
$match=2;
push(@new2,"$no<>$number<>$title<>$name<>$mail<>$url<>$comment<>$del<>$date<>$icon<>$color<>\n");
push(@tmp,$_);
}
else { push(@tmp,$_); }
}
if ($match == 1) {
push(@new2,"$no<>$number<>$title<>$name<>$mail<>$url<>$comment<>$del<>$date<>$icon<>$color<>\n");
}
push(@new2,@tmp);
open(LOG,">$log");
print LOG @new2;
close(LOG);
if (-e $lockf) { unlink($lockf); }
&management;
YYBBSからコピペ。これで一応できる。
$match=2;
push(@new2,"$no<>$number<>$title<>$name<>$mail<>$url<>$comment<>$del<>$date<>$icon<>$color<>\n");
push(@tmp,$_);
}
else { push(@tmp,$_); }
}
if ($match == 1) {
push(@new2,"$no<>$number<>$title<>$name<>$mail<>$url<>$comment<>$del<>$date<>$icon<>$color<>\n");
}
push(@new2,@tmp);
open(LOG,">$log");
print LOG @new2;
close(LOG);
if (-e $lockf) { unlink($lockf); }
&management;
YYBBSからコピペ。これで一応できる。
($kno,$knumber,$ktitle,$kname,$kmail,$kurl,$kcomment,$kdel,$kdate,$kicon,$kcolor) = split(/<>/,$lines[0]);
↓
($kno,$knumber,$ktitle,$kname,$kmail,$kurl,$kcomment,$kdel,$kdate,$kicon,$kcolor) = split(/<>/,$lines[1]);
↓
($kno,$knumber,$ktitle,$kname,$kmail,$kurl,$kcomment,$kdel,$kdate,$kicon,$kcolor) = split(/<>/,$lines[1]);
>>387
javascript で対応させていたのですか。。。。知りませんでした。ありがとう。
javascript で対応させていたのですか。。。。知りませんでした。ありがとう。
http://aji.s1.xrea.com/の Force264 BBS(ver.3.22A 連結GIFコード) と書いてある
スクリプトの改造についてお伺いします。（ファイルに直リンできません(^^;）
訪問時にHTTP_USER_AGENTに特定の文字列が入っていると指定のページに飛ばす
（たとえば"MSIE 4.0"を含む場合./deny.htmlに飛ばす）にはどうしたらいいでしょうか？
スクリプトの改造についてお伺いします。（ファイルに直リンできません(^^;）
訪問時にHTTP_USER_AGENTに特定の文字列が入っていると指定のページに飛ばす
（たとえば"MSIE 4.0"を含む場合./deny.htmlに飛ばす）にはどうしたらいいでしょうか？
398 ：nobodyさん：02/11/25 09:35 ID:TeZapJEO
>>397
スクリプトいじらんでも.htaccess使えばいい。
スクリプトいじらんでも.htaccess使えばいい。
>>398さん
ありがとうございます・・・しかし残念ながらうちのサーバーでは
SetEnvIfとErrorDocumentが使えないのでこういうことはできません。
やはりスクリプトそのもで制限するしかないんです。
SetEnvIf User-Agent "J-PHONE" UA
SetEnvIf User-Agent "DoCoMo" UA
Order Allow,Deny
Allow from all
Deny from env=UA
ErrorDocument 403 /~testtest/aaa/403.html
ありがとうございます・・・しかし残念ながらうちのサーバーでは
SetEnvIfとErrorDocumentが使えないのでこういうことはできません。
やはりスクリプトそのもで制限するしかないんです。
SetEnvIf User-Agent "J-PHONE" UA
SetEnvIf User-Agent "DoCoMo" UA
Order Allow,Deny
Allow from all
Deny from env=UA
ErrorDocument 403 /~testtest/aaa/403.html
400 ：初心者：02/11/25 17:49 ID:iBc9Rrdb
ＴＨＥ ＲＯＯＭの"ranklink"で質問があるのですが、
ランキングサイトを運営しているのですが、総合ランキング
のカテゴリを作りたいのですがどの様に各々のランキング
から引き抜いて総合ランキングが出来るのか分かりません。
何卒お教えて下さい。お願い致します。
ランキングサイトを運営しているのですが、総合ランキング
のカテゴリを作りたいのですがどの様に各々のランキング
から引き抜いて総合ランキングが出来るのか分かりません。
何卒お教えて下さい。お願い致します。
知る限りでは他2箇所でマルチか…
>>
による記事LINKをYY-BOARDに取り付けたいのですが
KENT-WEBのwebpatioを参考にやってみましたが
変数の違い等々より挫折・・。
良かったら、教えていただきたいのですが
判るかた。宜しくお願いします。
による記事LINKをYY-BOARDに取り付けたいのですが
KENT-WEBのwebpatioを参考にやってみましたが
変数の違い等々より挫折・・。
良かったら、教えていただきたいのですが
判るかた。宜しくお願いします。
403 ：nobodyさん：02/11/25 22:07 ID:rY+1ONaW
http://mtbbs.tr-w.net/dl.html
で配布してる掲示板なのですが、
サンプルでは、『全部読む 最新50 1-100 板のトップ リロード』って表示されてますが、
自分で設置すると『全部読む 最新50 1-100 板のトップ リロード』が表示されません。
で配布してる掲示板なのですが、
サンプルでは、『全部読む 最新50 1-100 板のトップ リロード』って表示されてますが、
自分で設置すると『全部読む 最新50 1-100 板のトップ リロード』が表示されません。
つくったﾔｼに聞け
http://zurubon.strange-x.com/uploader/
のアプロダをHTML書き出しにしたいのですが、どうすればできるのでしょうか？
のアプロダをHTML書き出しにしたいのですが、どうすればできるのでしょうか？
406 ： ：02/11/26 20:25 ID:???
407 ：nobodyさん：02/11/26 23:57 ID:GahKTPLA
http://herz.pobox.ne.jp/cyder/doc/script/rescue08/top.html
これをWindowsベースのApache1.3＋ActivePerlで動かしていたのですが、
Cookieが文字化けしてしまいます。
超初心者ですいません
改善できませんでしょうか、お手数ですがよろしくお願いします。
これをWindowsベースのApache1.3＋ActivePerlで動かしていたのですが、
Cookieが文字化けしてしまいます。
超初心者ですいません
改善できませんでしょうか、お手数ですがよろしくお願いします。
ヤフーオークションで、凄い人気商品、発見！！！
プランテック製の「 RX-2000Ⅲ 」を改造済み
にした、アイティーエス製の「 RX-2000Ⅲ 」↓
http://user.auctions.yahoo.co.jp/jp/user/neo_uuronntya#.2ch.net/
ヤフーオークション内では、現在、このオークション
の話題で、持ちきりです。
ヤフー ID の無い方は、下記のホームページから、
購入出来る様です↓
http://www.h5.dion.ne.jp/~gekitoku/#.2ch.net/
410 ：nobodyさん：02/11/27 01:11 ID:gzMOh9EH
KENTのpetitbordの過去ログ生成なんだけど、
行数で区切ってdat化するのがどうも気持ち悪いんだよね。
スレッド数（たとえば１０スレッド）で１datって感じに出来ないかな。
要するにこの部分の$log_file（行数）を別のものに置き換えればいいと思うんだけど。
# 規定の行数をオーバーすると次ファイルを自動生成
if ($#past > $log_line) {
$past_flag=1;
最近ようやくほんの少しづつ読めてきたかなぁという程度で、
じゃあ何と置き換えるのかって考えると混乱する一方。
なにかアイディアがあったら協力願います。
行数で区切ってdat化するのがどうも気持ち悪いんだよね。
スレッド数（たとえば１０スレッド）で１datって感じに出来ないかな。
要するにこの部分の$log_file（行数）を別のものに置き換えればいいと思うんだけど。
# 規定の行数をオーバーすると次ファイルを自動生成
if ($#past > $log_line) {
$past_flag=1;
最近ようやくほんの少しづつ読めてきたかなぁという程度で、
じゃあ何と置き換えるのかって考えると混乱する一方。
なにかアイディアがあったら協力願います。
411 ：nobodyさん：02/11/27 01:24 ID:gzMOh9EH
あと>>350でやっぱり俺が質問した件なんだけど、
なんとか自力で改造できたのでご報告。
シンプルなaska.cgiで実験を繰り返してたらなんとかなったよ。
configに
$now = time;
$newtime = '3600'; #１時間の場合
$newimg = '<img src=./gazou/new.gif>';
を書いて、
if ($newtime >= ($now - $xtime)) { $vnewimg = $newimg } else { $vnewimg = '' }
を記事の読み込み部分の$urlの処理の下あたりに入れる。
それでsplit(/<>/);のところに $xtime をやっぱり $url, の後ろに割り込ませておく。
そしたら新着画像を表示させたいところに $vnewimg を書き入れる。
sub get_time の一番最後に $xtime = $now; を入れる。
あとは書き込み部分でやっぱりsplit(/<>/)で見当をつけて $xtime を割り込ませる。
なんとなく並んでる変数とログファイルの中身を見比べてると、
あ、ここに割り込ませればいいのかな？ってカンが働くはず。
カナーリ初心者の俺が言うんだから間違いなし！
つーことで、レスくれた人たちありがとうでした。
なんとか自力で改造できたのでご報告。
シンプルなaska.cgiで実験を繰り返してたらなんとかなったよ。
configに
$now = time;
$newtime = '3600'; #１時間の場合
$newimg = '<img src=./gazou/new.gif>';
を書いて、
if ($newtime >= ($now - $xtime)) { $vnewimg = $newimg } else { $vnewimg = '' }
を記事の読み込み部分の$urlの処理の下あたりに入れる。
それでsplit(/<>/);のところに $xtime をやっぱり $url, の後ろに割り込ませておく。
そしたら新着画像を表示させたいところに $vnewimg を書き入れる。
sub get_time の一番最後に $xtime = $now; を入れる。
あとは書き込み部分でやっぱりsplit(/<>/)で見当をつけて $xtime を割り込ませる。
なんとなく並んでる変数とログファイルの中身を見比べてると、
あ、ここに割り込ませればいいのかな？ってカンが働くはず。
カナーリ初心者の俺が言うんだから間違いなし！
つーことで、レスくれた人たちありがとうでした。
412 ：nobodyさん：02/11/27 19:30 ID:BLcNdMdK
KENTさんのJoyful Note
http://www.kent-web.com/bbs/joyful.html
添付Fileを親記事は必須にして、返信は添付ファイル無しでもOK
という風にするにはどうすればいいでしょうか？
http://www.kent-web.com/bbs/joyful.html
添付Fileを親記事は必須にして、返信は添付ファイル無しでもOK
という風にするにはどうすればいいでしょうか？
Aikonさんのサイトで配布されてるGallery Noteを
二重投稿禁止にしたいのですが、改造方法を教えて下さい。
http://watson.milkcafe.to/download/dl2.html
KENTさんのJoyful Noteの改造版で画像アップロードも可能なので
出来れば画像の多重投稿も制限したいのですが＞＜
贅沢はいいません。。。レスの多重投稿制限を～～ぜひぃ( ´Д⊂ヽ
二重投稿禁止にしたいのですが、改造方法を教えて下さい。
http://watson.milkcafe.to/download/dl2.html
KENTさんのJoyful Noteの改造版で画像アップロードも可能なので
出来れば画像の多重投稿も制限したいのですが＞＜
贅沢はいいません。。。レスの多重投稿制限を～～ぜひぃ( ´Д⊂ヽ
なんとなく問題解決ぽ
KENTさんのCGI改造配布サイトに丁度良いスクリプトがあったので拝借。
いちお報告すると↓こんなかんじでバッチリでした。
#----------------#
# ログ書込処理 #
#----------------#
この項目の# 連続投稿チェックの次に
# 二重投稿チェック
$flag=0;
foreach (@lines) {
($no2,$reno2,$date2,$name2,$mail2,$sub2,$com2) = split(/<>/);
if ($in{'name'} eq $name2 && $in{'comment'} eq $com2) {
$flag=1; last;
}
}
if ($flag) { &error("二重投稿です。蹴りますが何か？"); }
KENTさんのCGI改造配布サイトに丁度良いスクリプトがあったので拝借。
いちお報告すると↓こんなかんじでバッチリでした。
#----------------#
# ログ書込処理 #
#----------------#
この項目の# 連続投稿チェックの次に
# 二重投稿チェック
$flag=0;
foreach (@lines) {
($no2,$reno2,$date2,$name2,$mail2,$sub2,$com2) = split(/<>/);
if ($in{'name'} eq $name2 && $in{'comment'} eq $com2) {
$flag=1; last;
}
}
if ($flag) { &error("二重投稿です。蹴りますが何か？"); }
>414
ログ全部から多重チェックするのか？
ログ全部から多重チェックするのか？
416 ： ：02/11/28 15:00 ID:???
>>414
for (@lines){
my(undef,undef,undef,$name,undef,undef,$com) = split(/<>/);
&error("二重投稿です。初心者の癖に浮き過ぎです。") if($in{'name'} eq $name && $in{'comment'} eq $com);
}
for (@lines){
my(undef,undef,undef,$name,undef,undef,$com) = split(/<>/);
&error("二重投稿です。初心者の癖に浮き過ぎです。") if($in{'name'} eq $name && $in{'comment'} eq $com);
}
い・・いけないの(ﾟДﾟ≡ ﾟДﾟ) 効率悪いですか！？
>414
精度は下がるけど配列の先頭の要素だけで検討するのがいいかと思ったり。
ログが多くなると死ねます。
my(undef,undef,undef,$name,undef,undef,$com) = split(/<>/,$lines[0]);
if($in{'name'} eq $name && $in{'comment'} eq $com){&error("二重投稿イッテヨシ");}
精度は下がるけど配列の先頭の要素だけで検討するのがいいかと思ったり。
ログが多くなると死ねます。
my(undef,undef,undef,$name,undef,undef,$com) = split(/<>/,$lines[0]);
if($in{'name'} eq $name && $in{'comment'} eq $com){&error("二重投稿イッテヨシ");}
YYBBSで指定レス以上になったら省略する機能は
どうやって足せばいいんでしょうか？
頭と最新5レスを表示したいのですが
どうやって足せばいいんでしょうか？
頭と最新5レスを表示したいのですが
420 ：nobodyさん：02/12/06 12:27 ID:q7PjCrzt
画像投稿型掲示板cgiのスクリプトなんですが、
サーバに保存するファイル名に、投稿された時間を反映させるには(img200212061220.jpgのように)、
複雑な改造が必要ですか？
サーバに保存するファイル名に、投稿された時間を反映させるには(img200212061220.jpgのように)、
複雑な改造が必要ですか？
複雑な改造はいらないと思う。
ファイル名に反映するだけなら。
多分記事のデータにファイル名も保存しているだろうから
つじつまあわせるようにしないといけないけど。
どの程度をもって複雑と言っているのかわからんし。
ファイル名に反映するだけなら。
多分記事のデータにファイル名も保存しているだろうから
つじつまあわせるようにしないといけないけど。
どの程度をもって複雑と言っているのかわからんし。
422 ：nobodyさん：02/12/06 16:55 ID:lbFI8Saa
２ちゃん型掲示板のCGIですが、最近設置しても使えないとこが増えてきました。
なぜか特定ディレクトリ内のファイルが動かなくなりました。
どなたか動くように改善していただけませんですか？
http://www.onpuch.jp/files/onpuch.zip ←スクリプトはここからﾀﾞｳｿできます
なぜか特定ディレクトリ内のファイルが動かなくなりました。
どなたか動くように改善していただけませんですか？
http://www.onpuch.jp/files/onpuch.zip ←スクリプトはここからﾀﾞｳｿできます
外国人の留学希望者相手に掲示板を設置してるんですが、
日本人の荒しに2byte文字のAA等を貼り付けられて
困っています。投稿から2byte文字を確実に蹴る正規表現って
どうやればいいんでしょうか。スペースとか"'などの記号
は使えるようにしておきたいです。
日本人の荒しに2byte文字のAA等を貼り付けられて
困っています。投稿から2byte文字を確実に蹴る正規表現って
どうやればいいんでしょうか。スペースとか"'などの記号
は使えるようにしておきたいです。
>>423
う・・・・
ちなみに、そのスクリプトの作者に聞いたところ、「サポートは一切しません」と返されますた。
今までも度々動かなくなることはあったけど、そん時は自分で何とかしてきました。
でも今回ばかりはまじでヤバイっす。
1point.jpとxreaではもうぜんぜん駄目。
う・・・・
ちなみに、そのスクリプトの作者に聞いたところ、「サポートは一切しません」と返されますた。
今までも度々動かなくなることはあったけど、そん時は自分で何とかしてきました。
でも今回ばかりはまじでヤバイっす。
1point.jpとxreaではもうぜんぜん駄目。
>>424
なんで荒らしが日本人だってわかったの？
なんで荒らしが日本人だってわかったの？
>430
糞単発してるよ･･･最近カスが多いね（´Д｀；）
糞単発してるよ･･･最近カスが多いね（´Д｀；）
＞＞４３０＝４３１＝尾瀬原皿仕上げ
434 ：nobodyさん：02/12/07 10:46 ID:AGlpmR8Q
YYBBSにふきだしをいれたいんだけどどうすればできるかな？
muri
marimo
ここのWebCalenderをTECHSIDEのに近い感じにしたいのですが教えていただけませんか？
http://www.aikis.or.jp/~s-suzuki/cgilabo/
一応センタリング、スケジュール追加ボタンの追加はできたのですが、
2つ目の予定を自動で改行と始めに入ってしまう半角スペースの削除ができません。
http://www.aikis.or.jp/~s-suzuki/cgilabo/
一応センタリング、スケジュール追加ボタンの追加はできたのですが、
2つ目の予定を自動で改行と始めに入ってしまう半角スペースの削除ができません。
アハンに選択式でアイコンを付けられるようにしようと思うんですが、
素人の付け焼刃では上手く動作しませんでつ。。
宜しければご教授お願い致します。
ttp://www.kokobbs.com/ahhan/
素人の付け焼刃では上手く動作しませんでつ。。
宜しければご教授お願い致します。
ttp://www.kokobbs.com/ahhan/
>>438
KENTさんとこのをそのままパクってみれ
KENTさんとこのをそのままパクってみれ
>>439
以前やってみたんですが、
スレ立てフォーム周りにアイコン部分を埋めてみるだけで宜しいのでしょうか。。
色々とスクリプト弄ってみたんですが力の限界です（ｗ
後一歩のところまでは来てるヨカンがするのですが。。
以前やってみたんですが、
スレ立てフォーム周りにアイコン部分を埋めてみるだけで宜しいのでしょうか。。
色々とスクリプト弄ってみたんですが力の限界です（ｗ
後一歩のところまでは来てるヨカンがするのですが。。
442 ：nobodyさん：02/12/09 17:14 ID:9ucXAnkG
THE ROOMのRANKRINKについて教えていただきたいのですが。
サイト登録時に追加でラジオボタンで選択したものをランキングに画像表示
させるようにしたいのですが、（Yomiサーチでいうと相互リンクの選択
みたいなかんじ）どのようにしたら良いのかお教え下さい。
また、ランキングページの左側にカテゴリーのテーブルをおきたいのですが
何度か挑戦してみましたが、うまくいきませんでした。よろしければ、
ご教授お願い致します。
サイト登録時に追加でラジオボタンで選択したものをランキングに画像表示
させるようにしたいのですが、（Yomiサーチでいうと相互リンクの選択
みたいなかんじ）どのようにしたら良いのかお教え下さい。
また、ランキングページの左側にカテゴリーのテーブルをおきたいのですが
何度か挑戦してみましたが、うまくいきませんでした。よろしければ、
ご教授お願い致します。
もれなくソース加えたはずなんですけどねぇ。。
う～ん・・・プログラムというのは難しいです。。
付け加え方を根本から間違ってるかもしれないです（ｗ
う～ん・・・プログラムというのは難しいです。。
付け加え方を根本から間違ってるかもしれないです（ｗ
プログラムの流れを理解していない香具師が、手に入れたソースを突っ込んだだけで動かせるはずがない。
黙って鮭定でも食ってろ！
黙って鮭定でも食ってろ！
447 ： ：02/12/14 06:43 ID:???
n a m a z u の
Current List: 1 - 3
Page: [1] [2] [3]
の"[1] [2] [3]"の部分を
<< Previous | Next >>
などと改造する方法を教えてください。
Current List: 1 - 3
Page: [1] [2] [3]
の"[1] [2] [3]"の部分を
<< Previous | Next >>
などと改造する方法を教えてください。
このへん？？
max = get_maxresult();
whence = get_listwhence();
for (i = 0; i < PAGE_MAX; i++) {
if (i * max >= n)
break;
if (is_htmlmode()) {
if (i * max != whence) {
printf("<a href=\"");
fputs(dn, stdout);
fputc('?', stdout);
print_query(qs, i * max);
printf("\">");
} else {
printf("<strong>");
}
}
printf("[%d]", i + 1);
if (is_htmlmode()) {
if (i * max != whence) {
printf("</A> ");
} else
printf("</strong> ");
}
if (is_allresult()) {
break;
}
}
}
max = get_maxresult();
whence = get_listwhence();
for (i = 0; i < PAGE_MAX; i++) {
if (i * max >= n)
break;
if (is_htmlmode()) {
if (i * max != whence) {
printf("<a href=\"");
fputs(dn, stdout);
fputc('?', stdout);
print_query(qs, i * max);
printf("\">");
} else {
printf("<strong>");
}
}
printf("[%d]", i + 1);
if (is_htmlmode()) {
if (i * max != whence) {
printf("</A> ");
} else
printf("</strong> ");
}
if (is_allresult()) {
break;
}
}
}
449 ： ◆Gv1Tk/KAZU ：02/12/14 21:18 ID:???
http://happy.honesto.net/cgi/download/fmdx.html
このフォームを使うと添付ファイルも送信可能のようですが
sendmail未対応のサーバーの場合送信不可能ですよね。
なので一時記録用フォルダーにファイルを常時残しておいて
時々FTPでDLしたり出来ないかと思ってます。
もしご教授頂ける方居ましたらお願いします。
このフォームを使うと添付ファイルも送信可能のようですが
sendmail未対応のサーバーの場合送信不可能ですよね。
なので一時記録用フォルダーにファイルを常時残しておいて
時々FTPでDLしたり出来ないかと思ってます。
もしご教授頂ける方居ましたらお願いします。
450 ：nobodyさん：02/12/16 22:07 ID:tbIe581B
掲示板にメール送信機能をつけてみたんですが、題名に日本語が使えず、
メッセージのところも改行が「・」で、「>」が＆ｇｔ；になったりしてしまいます。
どこをどう直すべきでしょうか?
>>451がソースです
メッセージのところも改行が「・」で、「>」が＆ｇｔ；になったりしてしまいます。
どこをどう直すべきでしょうか?
>>451がソースです
451 ：nobodyさん：02/12/16 22:07 ID:tbIe581B
#------------------メール送信機能-------------------------#
open(MAIL,"| /usr/sbin/sendmail -t") || &error("送信できません。");
print MAIL <<"_MAIL_";
From: xxx\@xx.xx
To: xxxxxx\@xxxx.ne.jp
MIME-Version: 1.0
Subject: 投稿がありました
X-Mailer: Sendmail
Content-type: text/plain; charset=ISO-2022-JP
Content-Transfer-Encoding: 7bit
投稿がありました。
名前：$name
題名：$subject
メールアドレス：$mail
ホームページ：$url
メッセージ：$msg
---------------------------------------
投稿者情報
IP：$ip
ホスト：$host
---------------------------------------
_MAIL_
close(MAIL);
#--------------------メール送信機能------------------------#
よろしくお願いします。
452 ：nobodyさん：02/12/16 22:28 ID:tbIe581B
掲示板にメール送信機能をつけてみたんですが、題名に日本語が使えず、
メッセージのところも改行が「・」で、「>」が＆ｇｔ；になったりしてしまいます。
どこをどう直すべきでしょうか?
>>750がソースです
メッセージのところも改行が「・」で、「>」が＆ｇｔ；になったりしてしまいます。
どこをどう直すべきでしょうか?
>>750がソースです
453 ：nobodyさん：02/12/16 22:30 ID:tbIe581B
あれ・・？
2重投稿ｽﾏｿ
2重投稿ｽﾏｿ
>>451
メール送るのにJISに変換しない厨房ﾊｹｰﾝ
メール送るのにJISに変換しない厨房ﾊｹｰﾝ
456 ：yani ◆saNSktNEdQ ：02/12/16 23:11 ID:/GE+8J7v
個人的にはMIME宣言してるメールはヘッダもMIMEにするのが筋だと
思うんだがどうだろう。
思うんだがどうだろう。
457 ：451：02/12/16 23:33 ID:tbIe581B
すいません。本当にわかんないんです。
教えてください
教えてください
だからさ、メール送る時は、そのまんま送っちゃいけないの。
どっか、メーラー機能付きのフリーの掲示板かなんかさがしてきて、
それがどんな風に送ってるのか調べてみろって。
ここはアドバイスをする場所であって、回答そのものを書く場所じゃあない。
どっか、メーラー機能付きのフリーの掲示板かなんかさがしてきて、
それがどんな風に送ってるのか調べてみろって。
ここはアドバイスをする場所であって、回答そのものを書く場所じゃあない。
459 ：yani ◆saNSktNEdQ ：02/12/16 23:50 ID:/GE+8J7v
ついでだからさっき書きかけた奴を投げてみる。
>>451
(1)スクリプト中の日本語がJISになってないか、
(2)またはsendmailが妙な面倒を見てくれているかどちらか?
いずれにせよ、個人的にはMIMEを宣言するならsubjectもBASE64エンコードするのが筋だと思う。
(1)だったらEUCで書いて、nkfとか、jcode.pl, Jcode.pmを使うのがいいのかな。
5.8だと pragma encodingがサポートされているけど。
(2)だったら、本文もヘッダもBASE64エンコードか。
>>451
(1)スクリプト中の日本語がJISになってないか、
(2)またはsendmailが妙な面倒を見てくれているかどちらか?
いずれにせよ、個人的にはMIMEを宣言するならsubjectもBASE64エンコードするのが筋だと思う。
(1)だったらEUCで書いて、nkfとか、jcode.pl, Jcode.pmを使うのがいいのかな。
5.8だと pragma encodingがサポートされているけど。
(2)だったら、本文もヘッダもBASE64エンコードか。
460 ：451：02/12/17 23:50 ID:gzYXlHgB
スクリプトはシフトJISでかかれてます。
EUCはエディタを持ってないんで…
BASE64等聞いたことはあるんですがやり方がよくわからんのです。
EUCはエディタを持ってないんで…
BASE64等聞いたことはあるんですがやり方がよくわからんのです。
462 ：451：02/12/18 00:28 ID:ZpDIFVLh
それもやってみたんですが・・・
変数が入り組んでてわからんのです
変数が入り組んでてわからんのです
464 ：マリモーマ ◆jbBCmetwgw ：02/12/18 06:29 ID:rjGaYRoU
サンプル
sub send{
if($mailon == 0){return;}
$m_url = "アドレス http://" . $url;
$m_cn = "件名" . $ken;
$m_name = "名前 " . $name;
$m_com = "コメント " . $te . "<br>" . $te2 . "<br>" . $te3;
$m_aiu = "アイコン" . $aiu;
&jcode'convert(*m_name,'jis');
&jcode'convert(*m_url,'jis');
&jcode'convert(*m_cn,'jis');
&jcode'convert(*m_com,'jis');
&jcode'convert(*m_aiu,'jis');
$mail_head .= "プログラム名 ：掲示板\n";
$mail_head .= "送信日 ：$date\n";
$mail_head .= "ＩＰアドレス ：$ENV{'REMOTE_ADDR'}\n";
$contents .= "名前 ：$m_name";
$contents .= "メッセージ ：\n\n$m_com\n";
open(MAIL,"| $sendmail $mail") || &error("メールが送れません");
print MAIL "From: $FORM{ma}\n";
print MAIL "Subject: $m_cn\n";
print MAIL "\n$m_name\n";
print MAIL "\n$m_url\n";
print MAIL "\n$m_aiu\n";
print MAIL "\n$m_com\n";
close(MAIL);
}
sub send{
if($mailon == 0){return;}
$m_url = "アドレス http://" . $url;
$m_cn = "件名" . $ken;
$m_name = "名前 " . $name;
$m_com = "コメント " . $te . "<br>" . $te2 . "<br>" . $te3;
$m_aiu = "アイコン" . $aiu;
&jcode'convert(*m_name,'jis');
&jcode'convert(*m_url,'jis');
&jcode'convert(*m_cn,'jis');
&jcode'convert(*m_com,'jis');
&jcode'convert(*m_aiu,'jis');
$mail_head .= "プログラム名 ：掲示板\n";
$mail_head .= "送信日 ：$date\n";
$mail_head .= "ＩＰアドレス ：$ENV{'REMOTE_ADDR'}\n";
$contents .= "名前 ：$m_name";
$contents .= "メッセージ ：\n\n$m_com\n";
open(MAIL,"| $sendmail $mail") || &error("メールが送れません");
print MAIL "From: $FORM{ma}\n";
print MAIL "Subject: $m_cn\n";
print MAIL "\n$m_name\n";
print MAIL "\n$m_url\n";
print MAIL "\n$m_aiu\n";
print MAIL "\n$m_com\n";
close(MAIL);
}
465 ：451：02/12/18 21:21 ID:ZpDIFVLh
つまりメール用に変数を書き換えるんですか？
$m_name = "名前 " . $name; のように？？
KENTのCGIですか・・・
JCODEなどの使い方がわからないんですよね・・
$m_name = "名前 " . $name; のように？？
KENTのCGIですか・・・
JCODEなどの使い方がわからないんですよね・・
466 ：マリモーマ：02/12/19 07:29 ID:82rcnvne
これは 僕の作った掲示板なんだ
sendmail用に jcode.plで 変換してるだけだよ
sendmail用に jcode.plで 変換してるだけだよ
468 ：nobodyさん：02/12/20 03:20 ID:fpLfXsGv
はじめまして。
>>310さんと同じKENTWEBさんのchat roboの改造なんですが、
このチャットは２人以上が入室するとロボットが黙るようになっています。
それを、２人以上入室しても喋るようにはできないでしょうか？
概要 www.kent-web.com/chat/robo.html
微妙な改造をしていますが、cgiのテキストファイル
http://jadore.jp/~sermot/robo.txt
よろしくおねがいします。
>>310さんと同じKENTWEBさんのchat roboの改造なんですが、
このチャットは２人以上が入室するとロボットが黙るようになっています。
それを、２人以上入室しても喋るようにはできないでしょうか？
概要 www.kent-web.com/chat/robo.html
微妙な改造をしていますが、cgiのテキストファイル
http://jadore.jp/~sermot/robo.txt
よろしくおねがいします。
469 ：nobodyさん：02/12/20 03:34 ID:XVaLbHjJ
470 ：マリモーマ：02/12/20 07:04 ID:rQl0YSG9
>467
まだ初心者なもんで あまりわかってないんだ
まだ初心者なもんで あまりわかってないんだ
471 ：nobodyさん：02/12/20 11:35 ID:sQRsVps7
２ちゃんねる VS ＴＩＭＥ・・・
その戦いの歴史は、まさに近代兵器の見本市だった
田代砲にはじまる数々のスクリプト兵器を経て到達した、９７式アラファトマシンガン
これはまさに最終兵器として、猛威を振るった
しかし、ついにＴＩＭＥはこれらの兵器全てを完膚無きまでに無効とする
パプリカの設置に成功した
武器を奪われた我々に残されたもの ・・・それは「チョップ！」
手動で一撃一撃叩き込む「チョップ！！」地味で威力も極限まで小さな「チョップ！！！」
ただそれだけと、なってしまった！
だが、チョップといえども決してバカには出来ないということを！
そしてこのような手段にまで出たＴＩＭＥを今一度！
我が２ちゃんねらーの総意を込めたチョップを以て、叩き壊したい！！
有志たちの参戦を、ひとりでも多くの戦士の挑戦を待つ！！！
http://live.2ch.net/test/read.cgi/festival/1040349157/
その戦いの歴史は、まさに近代兵器の見本市だった
田代砲にはじまる数々のスクリプト兵器を経て到達した、９７式アラファトマシンガン
これはまさに最終兵器として、猛威を振るった
しかし、ついにＴＩＭＥはこれらの兵器全てを完膚無きまでに無効とする
パプリカの設置に成功した
武器を奪われた我々に残されたもの ・・・それは「チョップ！」
手動で一撃一撃叩き込む「チョップ！！」地味で威力も極限まで小さな「チョップ！！！」
ただそれだけと、なってしまった！
だが、チョップといえども決してバカには出来ないということを！
そしてこのような手段にまで出たＴＩＭＥを今一度！
我が２ちゃんねらーの総意を込めたチョップを以て、叩き壊したい！！
有志たちの参戦を、ひとりでも多くの戦士の挑戦を待つ！！！
http://live.2ch.net/test/read.cgi/festival/1040349157/
472 ：468：02/12/20 13:35 ID:fpLfXsGv
>>469
ごめんなさい、どうも505エラーが出ます。
# 在室者が１名のとき、又は名前を呼ばれた時に返答する
if ($_[0] eq "comment" && $now_member <= 1) { $regist_flag=1; }
の、 if ($_[0] eq "comment" && $now_member <= 1) を
削除するということでしょうか？
ごめんなさい、どうも505エラーが出ます。
# 在室者が１名のとき、又は名前を呼ばれた時に返答する
if ($_[0] eq "comment" && $now_member <= 1) { $regist_flag=1; }
の、 if ($_[0] eq "comment" && $now_member <= 1) を
削除するということでしょうか？
473 ：nobodyさん：02/12/20 13:57 ID:ehxtG+cI
474 ：nobodyさん：02/12/20 13:58 ID:bSnvNs3j
475 ：468：02/12/20 14:37 ID:fpLfXsGv
476 ：nobodyさん：02/12/20 18:43 ID:Xm/IHOJS
始めまして。最近ＣＧＩをかじりだして、なんとか設置｢できる｣程度にはなったのですが、
KENT-WebさんのYY-BORDのアイコン登録機能をyy-chatに追加したいのですが、
自分で調べてもpup.cgiをどうやって連動させたらいいのかというところでつまずいてしまいました。
もし宜しければご指南いただけないでしょうか？
宜しくお願い致します。
KENT-WebさんのYY-BORDのアイコン登録機能をyy-chatに追加したいのですが、
自分で調べてもpup.cgiをどうやって連動させたらいいのかというところでつまずいてしまいました。
もし宜しければご指南いただけないでしょうか？
宜しくお願い致します。
477 ：nobodyさん：02/12/21 03:04 ID:p9M9wN14
初めまして。
このスレの職人さんにお力添えを頂きたく、図々しくも
やってきました。m（＿＿）m
↓このスクリプト
http://www.dd.iij4u.or.jp/~musume/test/imgboard.cgi.txt
を使っているんですが、アクセス制限がイマイチまどろっこしいので、
下記のスクリプトの長所を盛り込んで
バシッ！！と串制限したいのです。
http://www.dd.iij4u.or.jp/~musume/test/bbs.cgi.txt
どの辺をいじれば良いのでしょうか？
多分、簡単な事なのかもしれませんが、私の知識ではどうしたらいいのか
よくわかりません。
どうか教えて頂けたら嬉しいのですが。。。
このスレの職人さんにお力添えを頂きたく、図々しくも
やってきました。m（＿＿）m
↓このスクリプト
http://www.dd.iij4u.or.jp/~musume/test/imgboard.cgi.txt
を使っているんですが、アクセス制限がイマイチまどろっこしいので、
下記のスクリプトの長所を盛り込んで
バシッ！！と串制限したいのです。
http://www.dd.iij4u.or.jp/~musume/test/bbs.cgi.txt
どの辺をいじれば良いのでしょうか？
多分、簡単な事なのかもしれませんが、私の知識ではどうしたらいいのか
よくわかりません。
どうか教えて頂けたら嬉しいのですが。。。
478 ：nobodyさん：02/12/21 03:29 ID:hxR7EJif
479 ：479：02/12/21 06:12 ID:TCs+vCTx
お世話になります。
私はKENT-WEBというサイトの'LIGHT BOARD v6.1という掲示板スクリプトを設置しているのですが、
荒らし対策の為に掲示板にホストIPを表示させたいんです。
恥ずかしながら私はCGIの知識はほとんどないのでやはり、改造の段階でつまってしまいました。
・メインスクリプト
http://www2.csc.ne.jp/~nga/light.txt
・設定等のスクリプト
http://www2.csc.ne.jp/~nga/init.txt
まずinit.txt(本来のファイル名はinit.pl)の最後の方を見ると、
ホストやIPは取得しているようなので、ログにそれらを記述する為に、
local($no,$dat,$nam,$eml,$sub,$com,$url,$ho,$pw,$tim) = split(/<>/, $file[0]);
unshift (@file,"$no<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$pwd<>$time<>\n");
上記のような個所全てに$addrや$hostなどを追加し、
名前のあとに$addrや$hostと表示するようにしてみたのですが、
全ての書き込みに何故か自分のIPやホストが表示されるだけという結果でした。
詳しく説明した方がいいと思い長文になってしまいました申し訳ございません。
このスクリプトを配布しているサイトのサポート掲示板は改造に関する質問は禁止という事ですので、
こちらに質問させて頂いたのですが、どなたかご教授下さらないでしょうか？
宜しくお願いいたします。それでは失礼致します。
私はKENT-WEBというサイトの'LIGHT BOARD v6.1という掲示板スクリプトを設置しているのですが、
荒らし対策の為に掲示板にホストIPを表示させたいんです。
恥ずかしながら私はCGIの知識はほとんどないのでやはり、改造の段階でつまってしまいました。
・メインスクリプト
http://www2.csc.ne.jp/~nga/light.txt
・設定等のスクリプト
http://www2.csc.ne.jp/~nga/init.txt
まずinit.txt(本来のファイル名はinit.pl)の最後の方を見ると、
ホストやIPは取得しているようなので、ログにそれらを記述する為に、
local($no,$dat,$nam,$eml,$sub,$com,$url,$ho,$pw,$tim) = split(/<>/, $file[0]);
unshift (@file,"$no<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$pwd<>$time<>\n");
上記のような個所全てに$addrや$hostなどを追加し、
名前のあとに$addrや$hostと表示するようにしてみたのですが、
全ての書き込みに何故か自分のIPやホストが表示されるだけという結果でした。
詳しく説明した方がいいと思い長文になってしまいました申し訳ございません。
このスクリプトを配布しているサイトのサポート掲示板は改造に関する質問は禁止という事ですので、
こちらに質問させて頂いたのですが、どなたかご教授下さらないでしょうか？
宜しくお願いいたします。それでは失礼致します。
>>479
125記事展開
($no,$dat,$nam,$eml,$sub,$com,$url,$host,$pwd,$time,$addr) = split(/<>/);
133記事編集
"<b style=\"color:$subcol\">$sub</b> 投稿者：<b>$nam</b> <small>$addr</small> ",
218行目
# 二重投稿禁止
local($no,$dat,$nam,$eml,$sub,$com,$url,$ho,$pw,$tim,$addr) = split(/<>/, $file[0]);
245行目
$addr = $ENV{'REMOTE_ADDR'};
# ログを更新
$time = time;
$no++;
unshift (@file,"$no<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$pwd<>$time<>$addr<>\n");
行数一部ずれてるかも…
自分もへっぽこだからな(；´Д`)
125記事展開
($no,$dat,$nam,$eml,$sub,$com,$url,$host,$pwd,$time,$addr) = split(/<>/);
133記事編集
"<b style=\"color:$subcol\">$sub</b> 投稿者：<b>$nam</b> <small>$addr</small> ",
218行目
# 二重投稿禁止
local($no,$dat,$nam,$eml,$sub,$com,$url,$ho,$pw,$tim,$addr) = split(/<>/, $file[0]);
245行目
$addr = $ENV{'REMOTE_ADDR'};
# ログを更新
$time = time;
$no++;
unshift (@file,"$no<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$pwd<>$time<>$addr<>\n");
行数一部ずれてるかも…
自分もへっぽこだからな(；´Д`)
481 ：479：02/12/21 18:37 ID:TCs+vCTx
>>480
レスどうもありがとうございます。
ですが>480さんの言った通り改変してみましたが、
やはり投稿者のIPではなく、自分のIPが表示されてしまいます･･･。
245行目に $addr = $ENV{'REMOTE_ADDR'}; を追加する事は、
今まで試していなかったのでこれで出きると思ったのですが･･･
もう少し自分で試行錯誤してみます。
レスどうもありがとうございます。
ですが>480さんの言った通り改変してみましたが、
やはり投稿者のIPではなく、自分のIPが表示されてしまいます･･･。
245行目に $addr = $ENV{'REMOTE_ADDR'}; を追加する事は、
今まで試していなかったのでこれで出きると思ったのですが･･･
もう少し自分で試行錯誤してみます。
482 ：479：02/12/22 03:15 ID:IzGI9cL3
あれから色々やってみたのですがやはり出来ないです。
同じスクリプトの前のバージョンではこの方法で出来たのですが･･･
ログを見てみるとちゃんとIPもホストも残されているのですが、
名前の後に表示するとなると自分のIPとホストが表示されてしまいます･･･
どなたかご教授下さい。どうかお願いします。
同じスクリプトの前のバージョンではこの方法で出来たのですが･･･
ログを見てみるとちゃんとIPもホストも残されているのですが、
名前の後に表示するとなると自分のIPとホストが表示されてしまいます･･･
どなたかご教授下さい。どうかお願いします。
>>482
ログから記事を取り出しがうまく取れてないか、
もしくは表示するときにうまく表示できてないか、でしょ。
変数の名前が違ってる(ログから$adrで取ってるのに$addrをprintしてる)
とかじゃない？
ログから記事を取り出しがうまく取れてないか、
もしくは表示するときにうまく表示できてないか、でしょ。
変数の名前が違ってる(ログから$adrで取ってるのに$addrをprintしてる)
とかじゃない？
484 ：479：02/12/22 05:24 ID:IzGI9cL3
>>480 >>483
もう一度DLしなおし、>>480さんの言った通りに改変して見た所、無事出来ました！
何時間もいじっていたので、どこかのソースを少し変えたまま戻すのを忘れていたんだと思います。
手間かけてすみませんでした本当にどうもありがとうございました。
もう一度DLしなおし、>>480さんの言った通りに改変して見た所、無事出来ました！
何時間もいじっていたので、どこかのソースを少し変えたまま戻すのを忘れていたんだと思います。
手間かけてすみませんでした本当にどうもありがとうございました。
485 ：477：02/12/22 09:58 ID:4O+EjJim
486 ：479：02/12/23 05:07 ID:nzgwR1fc
昨日は本当にありがとうございました。
皆様に教えて頂いたおかげで、掲示板は順調に動作しているのですが、
もう一つ気になる個所がでてきてしまいました。
書き込みを削除する際に、1つチェックを入れる度に送信ボタンを押す為、
削除したい書き込みが複数ある場合には非常に効率が悪いんです。
同スクリプトの以前のバージョンは出来たのですが・・・
自力でやってみようと以前のバージョンと見比べて、
<input type=radio name=no value=\"$no\">
という個所の radio を checkbox に変えてみたのですが、
チェックは複数につけられるものの複数にチェックをして削除しようとしても
結局最初にチェックした書き込みしか削除されませんでした。
どなたか教えて頂けないでしょうか？
一昨日質問したばかりで申し訳ないですが、どうか宜しくお願いいたします。
ソースは↓です。（おそらくこのスクリプトを改造するだけで出来ると思うのですが・・・）
http://www2.csc.ne.jp/~nga/admin.txt
皆様に教えて頂いたおかげで、掲示板は順調に動作しているのですが、
もう一つ気になる個所がでてきてしまいました。
書き込みを削除する際に、1つチェックを入れる度に送信ボタンを押す為、
削除したい書き込みが複数ある場合には非常に効率が悪いんです。
同スクリプトの以前のバージョンは出来たのですが・・・
自力でやってみようと以前のバージョンと見比べて、
<input type=radio name=no value=\"$no\">
という個所の radio を checkbox に変えてみたのですが、
チェックは複数につけられるものの複数にチェックをして削除しようとしても
結局最初にチェックした書き込みしか削除されませんでした。
どなたか教えて頂けないでしょうか？
一昨日質問したばかりで申し訳ないですが、どうか宜しくお願いいたします。
ソースは↓です。（おそらくこのスクリプトを改造するだけで出来ると思うのですが・・・）
http://www2.csc.ne.jp/~nga/admin.txt
487 ：nobodyさん：02/12/23 12:12 ID:EkLX2nFl
それはUIの変更でしかない。
実際に選択された全てを削除する作業を改良付加しなきゃ。
実際に選択された全てを削除する作業を改良付加しなきゃ。
488 ：nobodyさん：02/12/23 15:32 ID:ylDWuCld
トップソートっていうんでしょうか。
レスのついたスレッドが一番先頭に上がるっていうやつですが
http://www.rocomotion.net/index2.html
ここの左のフレームでCGI＞BBSと入ったところにあるCGI配布の掲示板シリーズ。
これの一番下の「ROCO HOUSE BOARD 2」はCSSとiniとcgiでコントロールされています。
しかしこの掲示板、トップソートが初期設定でアリになっていて、これを解除（スレッド固定）にしたいのです。
ini（kboard.ini）とcgi（kboard.cgi）両方をワードパッド上で「topsort」と検索をかけてもヒットしません。
OKWEBでも初心者の私には詳しいことはわかりませんが不可能だろうと言うことでした。
ただし、これはKAISMさんのkboardがベースになっていて改造が施されたものですが
そのオリジナルであるkboardは初期でスレッド固定のようなので
プログラム自体が複雑に絡み合ってこうなっていると言うより、
何行かが書き加えられてこうなっていると考えるのが自然のように思えます。
どうにかなりますかねえ＾＾；
レスのついたスレッドが一番先頭に上がるっていうやつですが
http://www.rocomotion.net/index2.html
ここの左のフレームでCGI＞BBSと入ったところにあるCGI配布の掲示板シリーズ。
これの一番下の「ROCO HOUSE BOARD 2」はCSSとiniとcgiでコントロールされています。
しかしこの掲示板、トップソートが初期設定でアリになっていて、これを解除（スレッド固定）にしたいのです。
ini（kboard.ini）とcgi（kboard.cgi）両方をワードパッド上で「topsort」と検索をかけてもヒットしません。
OKWEBでも初心者の私には詳しいことはわかりませんが不可能だろうと言うことでした。
ただし、これはKAISMさんのkboardがベースになっていて改造が施されたものですが
そのオリジナルであるkboardは初期でスレッド固定のようなので
プログラム自体が複雑に絡み合ってこうなっていると言うより、
何行かが書き加えられてこうなっていると考えるのが自然のように思えます。
どうにかなりますかねえ＾＾；
489 ：nobodyさん：02/12/23 22:15 ID:ylDWuCld
改造された方からのお返事を今確認。
スクリプトが長くなり重くなるなどの理由からトップソートのみで書いていると言うこと。
こういうこともあるんですねえ。
スクリプトが長くなり重くなるなどの理由からトップソートのみで書いていると言うこと。
こういうこともあるんですねえ。
490 ：486：02/12/23 23:41 ID:nzgwR1fc
>>487
わざわざレスありがとうございます。
やはり特別な改良を行う必要があるのですか・・・
お手数とは思いますがその処理を教えては頂けないでしょうか？
ですが製作者様は今までのバージョンでは可能だったという事をあえて出来なくしたのですから
可能にする事により何かデメリットが出来てしまうんですかねぇ・・・
私のサイトは携帯用なので利用者どうしの喧嘩のようなものから、
よく荒らしに発展してしまうので複数チェックで削除出来れば大変便利なのですが。
わざわざレスありがとうございます。
やはり特別な改良を行う必要があるのですか・・・
お手数とは思いますがその処理を教えては頂けないでしょうか？
ですが製作者様は今までのバージョンでは可能だったという事をあえて出来なくしたのですから
可能にする事により何かデメリットが出来てしまうんですかねぇ・・・
私のサイトは携帯用なので利用者どうしの喧嘩のようなものから、
よく荒らしに発展してしまうので複数チェックで削除出来れば大変便利なのですが。
492 ：486：02/12/24 02:03 ID:7RBB/Grc
>>491
「プログラムは、セキュリティ対策を施したv5.7以降を必ずご使用ください」
という注意事項がかかれてあったので、以前の物を使用するのはちょっと･･･
それに以前のバージョンはもう公開していないみたいですし私もそれそのものはもってないんです。
セキュリティのどこが甘かったかといったような事はわからないのですが。
「プログラムは、セキュリティ対策を施したv5.7以降を必ずご使用ください」
という注意事項がかかれてあったので、以前の物を使用するのはちょっと･･･
それに以前のバージョンはもう公開していないみたいですし私もそれそのものはもってないんです。
セキュリティのどこが甘かったかといったような事はわからないのですが。
496 ：486：02/12/27 09:13 ID:ABvqt34o
>>496
これを参考にｼﾙ
# 削除情報を配列化
@del = split(/\0/, $in{'no'});
# スレッド内より削除記事を抽出
@new=();
open(IN,"log");
$top = <IN>;
($num,$sub2,$res,$key) = split(/<>/, $top);
while (<IN>) {
$flag=0;
($no,$sub,$nam,$em,$com,$da,$ho,$pw) = split(/<>/);
foreach $del (@del) {
if ($no == $del) { $flag=1; last; }
}
if (!$flag) {
push(@new,$_);
}
}
close(IN);
これを参考にｼﾙ
# 削除情報を配列化
@del = split(/\0/, $in{'no'});
# スレッド内より削除記事を抽出
@new=();
open(IN,"log");
$top = <IN>;
($num,$sub2,$res,$key) = split(/<>/, $top);
while (<IN>) {
$flag=0;
($no,$sub,$nam,$em,$com,$da,$ho,$pw) = split(/<>/);
foreach $del (@del) {
if ($no == $del) { $flag=1; last; }
}
if (!$flag) {
push(@new,$_);
}
}
close(IN);
>>494-495
全然面倒じゃないだろ、と釣られてみるﾃｽﾄ
48行あたり
# ロック開始
&lock if ($lockkey);
# 削除情報を配列化
@del = split(/\0/, $in{'no'});
# 削除記事抜き取り
@new=();
open(IN,"$logfile") || &error("Open Error : $logfile");
while (<IN>) {
$flag=0;
($no) = split(/<>/);
foreach $del (@del) {
if ($no == $del) { $flag=1; last; }
}
if (!$flag) {
push(@new,$_);
}
}
close(IN);
後は、radioをcheckboxにｶｴﾚ!
全然面倒じゃないだろ、と釣られてみるﾃｽﾄ
48行あたり
# ロック開始
&lock if ($lockkey);
# 削除情報を配列化
@del = split(/\0/, $in{'no'});
# 削除記事抜き取り
@new=();
open(IN,"$logfile") || &error("Open Error : $logfile");
while (<IN>) {
$flag=0;
($no) = split(/<>/);
foreach $del (@del) {
if ($no == $del) { $flag=1; last; }
}
if (!$flag) {
push(@new,$_);
}
}
close(IN);
後は、radioをcheckboxにｶｴﾚ!
500 ：477：02/12/29 17:36 ID:5O7Hg3I+
>>478さん
あれから色々試してみましたが、教えていただいたスクリプト
http://dream.lib.net/room/cgi/e_acsdeny.html
このスクリプト自体はちゃんと動くのですが
http://www.dd.iij4u.or.jp/~musume/test/imgboard.cgi.txt
に最初から搭載されている荒らし対策機能のせいか全く効果が
ありません。
それどころかこの掲示板、投稿者情報をホストで記録しているだけ
なので（本当はIPでも記録しているのでしょうが）、
デフォルトで搭載している荒らし対策機能が十分に活かされておりません。
（海外串やIPアドレスでの制限が出来ない、など）
ちょっといじるだけで解決する問題でしたら誠に恥ずかしいお願いなのですが、
今まで自分なりに調べたりしても判りませんでした。
どうかご指導して下さる方はいらっしゃいませんでしょうか・・・。
宜しくお願い致します。m（＿＿）m
あれから色々試してみましたが、教えていただいたスクリプト
http://dream.lib.net/room/cgi/e_acsdeny.html
このスクリプト自体はちゃんと動くのですが
http://www.dd.iij4u.or.jp/~musume/test/imgboard.cgi.txt
に最初から搭載されている荒らし対策機能のせいか全く効果が
ありません。
それどころかこの掲示板、投稿者情報をホストで記録しているだけ
なので（本当はIPでも記録しているのでしょうが）、
デフォルトで搭載している荒らし対策機能が十分に活かされておりません。
（海外串やIPアドレスでの制限が出来ない、など）
ちょっといじるだけで解決する問題でしたら誠に恥ずかしいお願いなのですが、
今まで自分なりに調べたりしても判りませんでした。
どうかご指導して下さる方はいらっしゃいませんでしょうか・・・。
宜しくお願い致します。m（＿＿）m
501 ：nobodyさん：02/12/29 17:55 ID:uoxci6sX
>>477
アダルトサイトの管理人には教えたくないです。
アダルトサイトの管理人には教えたくないです。
502 ：nobodyさん：02/12/30 03:32 ID:cfFttQy/
a
503 ：AY：02/12/30 21:38 ID:6Lg7oo1p
すごい初歩的なことなんですけど、
「KENT WEB」の「Joyful Note」に、投稿者の居住地をつれけるようにするには、
どこをどうすればいいのでしょうか。
プルダウンで選べるようにしたいのですが。
「KENT WEB」の「Joyful Note」に、投稿者の居住地をつれけるようにするには、
どこをどうすればいいのでしょうか。
プルダウンで選べるようにしたいのですが。
504 ：にんにん：02/12/31 02:48 ID:w7i1AXgj
&nsp;
>>498
先日はお世話になりました。
あの>498で教えてもらった通り改変した所、
無事、複数同時削除が出来るようになったのはお話しした通りなんですが、
それにより、どうやら修正が出来なくなってしまったようです。（気付くのが遅くてすみません）
私としましては書き込みを修正する機能は必然というほどではありませんので、
出来ればでいいのですがご教授頂けないでしょうか？
プログラムのソースは以前と同じくhttp://www2.csc.ne.jp/~nga/admin.txtです。
それでは失礼致します。
先日はお世話になりました。
あの>498で教えてもらった通り改変した所、
無事、複数同時削除が出来るようになったのはお話しした通りなんですが、
それにより、どうやら修正が出来なくなってしまったようです。（気付くのが遅くてすみません）
私としましては書き込みを修正する機能は必然というほどではありませんので、
出来ればでいいのですがご教授頂けないでしょうか？
プログラムのソースは以前と同じくhttp://www2.csc.ne.jp/~nga/admin.txtです。
それでは失礼致します。
すみません！修正出来なくなっていたのは私のミスでした！
修正出来ました。お騒がせして申し訳ございませんでした。
修正出来ました。お騒がせして申し訳ございませんでした。
>>486
もしかして、複数選んでなかった?
# 修正フォーム
} elsif ($in{'job'} eq "edit" && $in{'no'}) {
&error("複数修正はできません") if ($in{'no'} =~ /\0/);
これでも追加しれ
もしかして、複数選んでなかった?
# 修正フォーム
} elsif ($in{'job'} eq "edit" && $in{'no'}) {
&error("複数修正はできません") if ($in{'no'} =~ /\0/);
これでも追加しれ
ところでパスワード晒してない?
dimensionzってﾓﾛﾀﾞｼ━━━(ﾟ∀ﾟ)━━━!!!!
dimensionzってﾓﾛﾀﾞｼ━━━(ﾟ∀ﾟ)━━━!!!!
509 ：α ◆HCOpYnZA7c ：02/12/31 11:59 ID:mjoKt6Ws
510 ：α ◆HCOpYnZA7c ：02/12/31 12:02 ID:mjoKt6Ws
↑に追加１分以内ロムってる場合IP表示
511 ：nobodyさん：02/12/31 13:18 ID:qLQW6luA
>>509-510
ソースはテキスト形式で出してね。
ソースはテキスト形式で出してね。
512 ：α ◆HCOpYnZA7c ：02/12/31 14:56 ID:KGoFfbhM
このcgiはテキスト形式でやると汚くなるんですよ>>511
513 ：α ◆HCOpYnZA7c ：02/12/31 15:03 ID:KGoFfbhM
>>513
939行目
$a3 = "ROM：$rom_num人 ";
↓
$a3 = "ROM：$rom_num人 $rom_member ";
1179行目
$rom_num++;
↓
$rom_num++; $rom_member .= "($ip) ";
1187行目
$rom_num++;
↓
$rom_num++; $rom_member .= "($y2[1]) ";
1205行
$rom_num++;
↓
$rom_num++; $rom_member .= "($ip) ";
こんなんでいいの？
939行目
$a3 = "ROM：$rom_num人 ";
↓
$a3 = "ROM：$rom_num人 $rom_member ";
1179行目
$rom_num++;
↓
$rom_num++; $rom_member .= "($ip) ";
1187行目
$rom_num++;
↓
$rom_num++; $rom_member .= "($y2[1]) ";
1205行
$rom_num++;
↓
$rom_num++; $rom_member .= "($ip) ";
こんなんでいいの？
515 ：α ◆HCOpYnZA7c ：02/12/31 18:27 ID:NfjjwQzQ
１分以内ロムってる場合IP表示これが発動してないような
>１分以内ロムってる場合IP表示これが発動してないような
意味が分からないのですが
意味が分からないのですが
そういう機能つけるのむりっぽいのでいいですぅ。
後そのチャットに発言ランキングをつけたいのですが、どのようにすればいいんでしょうか？
後そのチャットに発言ランキングをつけたいのですが、どのようにすればいいんでしょうか？
518 ：nobodyさん：03/01/01 13:22 ID:SdsD4VAk
age
＞つけたいのですが
付いてるスクリプト探せば？
付いてるスクリプト探せば？
520 ：α：03/01/01 14:58 ID:SdsD4VAk
そこで配布されてるCGIがどうしてもつかいたいのです
「１分以内」じゃなくて「１分以上」でしょ。。。
＞αさん
教わる場合はもっと礼儀をしっかりしましょうよ・・・。
ここに人たちは純粋に善意で教えてるんだからさ・・・。
教わる場合はもっと礼儀をしっかりしましょうよ・・・。
ここに人たちは純粋に善意で教えてるんだからさ・・・。
女子は画像添付だよ
守れよ～
守れよ～
524 ：名無しさん＠お腹いっぱい。：03/01/02 01:56 ID:???
KENTさんのとこのプチ☆ボードにスレッドごと及びレス記事に番号つけてようは
ここの掲示板みたいなやつ。んでレスカット機能つけて全レス読むでread.cgiを
使って表示するという改造を（read.cgiは探してきます。）したいのですが・・・。
当方やっと本、片手にシンプルな掲示板が組めるようになった程度でスキルが
ありません。ご協力お願いします。
ここの掲示板みたいなやつ。んでレスカット機能つけて全レス読むでread.cgiを
使って表示するという改造を（read.cgiは探してきます。）したいのですが・・・。
当方やっと本、片手にシンプルな掲示板が組めるようになった程度でスキルが
ありません。ご協力お願いします。
>>524
鬼レスボードじゃだめ？
あれはPetitベースだけど・・・
って、見てきたら配布終了してたわ
代わりにeMzStyle Boardに同等の機能が在るとの事
ttp://mic.sites.cc/
鬼レスボードじゃだめ？
あれはPetitベースだけど・・・
って、見てきたら配布終了してたわ
代わりにeMzStyle Boardに同等の機能が在るとの事
ttp://mic.sites.cc/
526 ：α：03/01/02 12:32 ID:DP7C43xk
>>522スイマセン、今度からきおつけます。
527 ：α：03/01/02 16:01 ID:BNSxPHvc
そのチャットに発言ランキングをつけたいのですがどのように改造すればいいんでしょうか？
perl覚えてください
とミもフタもないことを言ってみるﾃｽﾄ
とミもフタもないことを言ってみるﾃｽﾄ
529 ：名無しさん＠お腹いっぱい。：03/01/02 18:58 ID:???
>>525
ありがとうございます。でもなんつ～か自力で（ここで聞いてる時点でそうでは
ないけど）改造したいんですよね。ただ設置するだけでは意味がないような気が
するんですよね。
自分で頑張ってみて自力で無理なとこ（ほぼ全部だけど・・・）はソース張るので
ご協力していただけたらと思います。
ありがとうございます。でもなんつ～か自力で（ここで聞いてる時点でそうでは
ないけど）改造したいんですよね。ただ設置するだけでは意味がないような気が
するんですよね。
自分で頑張ってみて自力で無理なとこ（ほぼ全部だけど・・・）はソース張るので
ご協力していただけたらと思います。
530 ：名無しさん＠お腹いっぱい。：03/01/02 21:06 ID:???
すみませんが協力してください。お願いします。
現在、PETIT BOARDを改造しています。というより機能削り？以下、詳細です。
ttp://www.geocities.co.jp/SiliconValley-SanJose/7269/petit1.txt
それで投稿フォームを別画面に表示する改造をしているんですがスクリプト自体は
動いていて投稿フォームのみエラーになるという現象が起きています。アドバイスお願いします。
ttp://www.geocities.co.jp/SiliconValley-SanJose/7269/petit.txt
現在、PETIT BOARDを改造しています。というより機能削り？以下、詳細です。
ttp://www.geocities.co.jp/SiliconValley-SanJose/7269/petit1.txt
それで投稿フォームを別画面に表示する改造をしているんですがスクリプト自体は
動いていて投稿フォームのみエラーになるという現象が起きています。アドバイスお願いします。
ttp://www.geocities.co.jp/SiliconValley-SanJose/7269/petit.txt
531 ：529：03/01/02 21:09 ID:fb82aWK0
>>530
ちなみに529です。名前変更するの忘れました。
ちなみに529です。名前変更するの忘れました。
532 ：515：03/01/03 14:01 ID:sga5e0Hj
自分なりにichatに発言ランキングいれようとしたけど、無理でした。
発言ランキング使けかたおしえてください
発言ランキング使けかたおしえてください
>>530
投稿フォームへのリンクを消せばいいだけだと思うが。
すっきりさせたいならsub newk{} とそれを呼び出している部分も消せばいい。
具体的には193行目と237行目とsub newk{}全体。
まあ機能削りなんかするくらいなら一から自分で作ったほうが良いとは思うがな。
投稿フォームへのリンクを消せばいいだけだと思うが。
すっきりさせたいならsub newk{} とそれを呼び出している部分も消せばいい。
具体的には193行目と237行目とsub newk{}全体。
まあ機能削りなんかするくらいなら一から自分で作ったほうが良いとは思うがな。
ちなみに #!/usr/local/bin/perl の下あたりに
use CGI::Carp qw(fatalsToBrowser);
と書いておくとブラウザにエラーが表示されるのでおすすめ。
use CGI::Carp qw(fatalsToBrowser);
と書いておくとブラウザにエラーが表示されるのでおすすめ。
535 ：nobodyさん：03/01/03 18:01 ID:Dyvox6wr
http://mtbbs.tr-w.net/
で配布してる掲示板なのですが、一番下の記事には
全部読む 最新50 1-100 板のトップ リロード
って表示されません。
http://mtbbs.tr-w.net/yy2ch.html
のサンプルにも表示されていません。
どうすれば表示されるようになりますか？
で配布してる掲示板なのですが、一番下の記事には
全部読む 最新50 1-100 板のトップ リロード
って表示されません。
http://mtbbs.tr-w.net/yy2ch.html
のサンプルにも表示されていません。
どうすれば表示されるようになりますか？
536 ：nobodyさん：03/01/03 18:14 ID:yYHPzW2l
初めまして、質問させていただきます。
.htaccessが設置できない鯖で、perlでホストによるアクセス制限をしたいと思っています。
例えば、"jp"と"hoge.com"をアクセス禁止にしたい場合は下記のようになると思うのですが
----
$host[0] = ".jp";
$host[1] = ".hoge.com";
local($match) = 0;
foreach (@host) {
if ($ENV{'REMOTE_ADDR'} =~ /$_/) { $match=1; last; }
}
if ($match) {
print "Content-type: text/html\n\n";
print "<html><body>アクセスできません</body></html>";
exit;
}
----
この逆で"jp"と"hoge.com"のみ許可したい場合の記述の方法が今ひとつ良く分かりません。
ご教授お願い致します。
.htaccessが設置できない鯖で、perlでホストによるアクセス制限をしたいと思っています。
例えば、"jp"と"hoge.com"をアクセス禁止にしたい場合は下記のようになると思うのですが
----
$host[0] = ".jp";
$host[1] = ".hoge.com";
local($match) = 0;
foreach (@host) {
if ($ENV{'REMOTE_ADDR'} =~ /$_/) { $match=1; last; }
}
if ($match) {
print "Content-type: text/html\n\n";
print "<html><body>アクセスできません</body></html>";
exit;
}
----
この逆で"jp"と"hoge.com"のみ許可したい場合の記述の方法が今ひとつ良く分かりません。
ご教授お願い致します。
537 ：515：03/01/03 18:15 ID:d+mRDn0L
教えてください
>>536
if ($match) を if (!$match) にするだけ。
それと余計なお世話かもしれないが、本当にやりたいことは
@host = ('\.jp$', '\.hoge\.com$');
なんだと思う。
if ($match) を if (!$match) にするだけ。
それと余計なお世話かもしれないが、本当にやりたいことは
@host = ('\.jp$', '\.hoge\.com$');
なんだと思う。
540 ：冬厨 ◆j0Oon93KwY ：03/01/03 18:53 ID:???
>>538-539
ご回答ありがとうございます！早速やってみます。
ご回答ありがとうございます！早速やってみます。
542 ：冬厨 ◆j0Oon93KwY ：03/01/03 18:54 ID:???
レスが遅くて被りまくり・・・。
>>冬厨様
ありがとうございます。
ありがとうございます。
先ほど質問させて頂いた536です。
教えて頂いた通りに記述してみたところ、ホスト名をIPアドレスで指定した場合は正常に動作しましたが、"jp"などドメイン名で指定すると上手くいきませんでした。
恐らくIPアドレスからホスト名の逆引きが上手く出来てないと思い、
if ($ENV{'REMOTE_ADDR'} =~ /$_/) { $match=1; last; }
を
if ($ENV{'REMOTE_HOST'} =~ /$_/) { $match=1; last; }
としたけどだめでした。
また、538さんが指摘して頂いた
@host = ('\.jp$', '\.hoge\.com$');
↑を使って記述したいいと思い色々弄ってみたのですが、私がやるとスクリプトエラーになってしまいます。
初歩的な質問で大変恐縮なのですが、改善策をご指導願えますか？
教えて頂いた通りに記述してみたところ、ホスト名をIPアドレスで指定した場合は正常に動作しましたが、"jp"などドメイン名で指定すると上手くいきませんでした。
恐らくIPアドレスからホスト名の逆引きが上手く出来てないと思い、
if ($ENV{'REMOTE_ADDR'} =~ /$_/) { $match=1; last; }
を
if ($ENV{'REMOTE_HOST'} =~ /$_/) { $match=1; last; }
としたけどだめでした。
また、538さんが指摘して頂いた
@host = ('\.jp$', '\.hoge\.com$');
↑を使って記述したいいと思い色々弄ってみたのですが、私がやるとスクリプトエラーになってしまいます。
初歩的な質問で大変恐縮なのですが、改善策をご指導願えますか？
>>544
まず本当にホストの逆引きができていないか $ENV{REMOTE_HOST} の内容を
表示して確認する。(printデバッグ)
IPアドレスが表示されるなら
$ENV{REMOTE_HOST} = gethostbyaddr(pack("C4", split /\./, $ENV{REMOTE_ADDR}), 2);
たぶんこれでいける。
スクリプトエラー云々は単なる記述ミスだと思うが…。
perl -cw なり >>534 の方法で確認。
まず本当にホストの逆引きができていないか $ENV{REMOTE_HOST} の内容を
表示して確認する。(printデバッグ)
IPアドレスが表示されるなら
$ENV{REMOTE_HOST} = gethostbyaddr(pack("C4", split /\./, $ENV{REMOTE_ADDR}), 2);
たぶんこれでいける。
スクリプトエラー云々は単なる記述ミスだと思うが…。
perl -cw なり >>534 の方法で確認。
546 ：名無しさん＠お腹いっぱい。：03/01/04 00:16 ID:3GL3mxm0
>>534
とりあえず軽量化するための苦肉の策として投稿フォームをhtmlで
吐き出すことにしました。名無し投稿が可能なので匿名投稿可というのをクッキーの
言い訳に・・・（ｗ 返信フォームではクッキーが有効なので大して問題もないですので
ご協力ありがとうございました。
とりあえず軽量化するための苦肉の策として投稿フォームをhtmlで
吐き出すことにしました。名無し投稿が可能なので匿名投稿可というのをクッキーの
言い訳に・・・（ｗ 返信フォームではクッキーが有効なので大して問題もないですので
ご協力ありがとうございました。
547 ：515：03/01/04 09:35 ID:KfYBPbca
AGE
発言ランキングどうやったらつけれるんですか？
発言ランキングどうやったらつけれるんですか？
>>547
入れようとして無理だったなら途中までのソース見せれ
入れようとして無理だったなら途中までのソース見せれ
>>538さん
教えて頂いた通りにしたら今度は上手くいきました！ご丁寧にご教授頂き本当に助かりました。有難うございました。
教えて頂いた通りにしたら今度は上手くいきました！ご丁寧にご教授頂き本当に助かりました。有難うございました。
550 ：515：03/01/05 13:38 ID:ApfC6Obw
age
newbbをi-mode用に改造しなさい
552 ：5：03/01/06 07:38 ID:Fttc1nxV
age
553 ：nobodyさん：03/01/06 11:40 ID:JetMYh6a
ttp://dream.lib.net/room/cgi/e_linebbs.html
の改造なんですが、
新しい投稿が上にくるようにしたいのですがどうすればいいでしょうか？
投稿が増えると最新の投稿を見るためにいちいち一番下までスクロールさせないといけないのです。
アドバイスお願いします。
の改造なんですが、
新しい投稿が上にくるようにしたいのですがどうすればいいでしょうか？
投稿が増えると最新の投稿を見るためにいちいち一番下までスクロールさせないといけないのです。
アドバイスお願いします。
ソース見るの面倒だからどっかにうｐくらいｼﾚ！
まぁ、これくらいなら大体分かるか…
ログを記録するところがunshiftになってると思うから
pushにしれば完了
まぁ、これくらいなら大体分かるか…
ログを記録するところがunshiftになってると思うから
pushにしれば完了
うわ！ほんとにできました！！！
天才かと思いました。俺、素人ですが。
ソースのアップすみませんでした。めんどくさいの忘れてました。
あああ。マジうれしい。ありがとうございました！！
天才かと思いました。俺、素人ですが。
ソースのアップすみませんでした。めんどくさいの忘れてました。
あああ。マジうれしい。ありがとうございました！！
556 ：nobodyさん：03/01/06 17:12 ID:mytKFvww
このスクリプトをhttp://asia.cnn.comの右下のQUICK VOTEにNOで答えるように
改造できないでしょうか？
<HTML><HEAD><TITLE lang="ja">ﾀｼｰﾛ砲</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=EUC-JP">
</HEAD><BODY>Interval<input type="text" name="ival" value="1">
<input type="button" value="攻撃開始" onClick="c();">
<script type="text/JavaScript">
var tid;var ta=
"ここに攻撃目標を入力"
;w=window.open(ta,'san','WIDTH=100,height=50');
function c(){
w.location=ta;
tid=setTimeout("c()",ival.value);
}
</script></BODY></HTML>
改造できないでしょうか？
<HTML><HEAD><TITLE lang="ja">ﾀｼｰﾛ砲</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=EUC-JP">
</HEAD><BODY>Interval<input type="text" name="ival" value="1">
<input type="button" value="攻撃開始" onClick="c();">
<script type="text/JavaScript">
var tid;var ta=
"ここに攻撃目標を入力"
;w=window.open(ta,'san','WIDTH=100,height=50');
function c(){
w.location=ta;
tid=setTimeout("c()",ival.value);
}
</script></BODY></HTML>
誰か発言ランキングのつけかたおしえてくださいよぉ
558 ：おしえてください：03/01/07 00:56 ID:9J/jFVqF
「劇空間ぱわふるリーグ２（改）」という野球のCGIゲームなんですが、ご教授ねがえないでしょうか？
このゲーム、投手２人制なんですが、増員したくて４人にする事には成功したんです。
が、試合後に投手全員の「調子」を変更してローテーションを回す部分が解らないんです。
http://ari-sin3.hp.infoseek.co.jp/cgi-bin/source3/No_0024.txt
↑実際に試合を行うスクリプトです。
この中の「投手データ更新」の項目の部分らしいんですが、
これだと、打順９（先発投手）が打順１２（控え）になって、打順１２の控え投手が次回先発の打順９になるだけで、他の控え１０と１１の投手は全く移動が無くて４人で上手くローテーションが回りません。
どうかお知恵をお貸しくださいませんでしょうか？
このゲーム、投手２人制なんですが、増員したくて４人にする事には成功したんです。
が、試合後に投手全員の「調子」を変更してローテーションを回す部分が解らないんです。
http://ari-sin3.hp.infoseek.co.jp/cgi-bin/source3/No_0024.txt
↑実際に試合を行うスクリプトです。
この中の「投手データ更新」の項目の部分らしいんですが、
これだと、打順９（先発投手）が打順１２（控え）になって、打順１２の控え投手が次回先発の打順９になるだけで、他の控え１０と１１の投手は全く移動が無くて４人で上手くローテーションが回りません。
どうかお知恵をお貸しくださいませんでしょうか？
559 ：nobodyさん：03/01/07 04:43 ID:zIfwbm71
>>558
そんなクソソース読む気がせん。が、
koushin_pitchの中の
}else{
$jun[$i][$k] = 9;
$kk = 8;
}
↓
#$jun[$i][$k] に打順が入っていると仮定
#$kkはその沿え字と仮定
↓
}else{
$jun[$i][$k] = $jun[$i][$k] - 1;
$kk = $kk-1;
}
で動く、かも。間違ってたらスマンということで。
そんなクソソース読む気がせん。が、
koushin_pitchの中の
}else{
$jun[$i][$k] = 9;
$kk = 8;
}
↓
#$jun[$i][$k] に打順が入っていると仮定
#$kkはその沿え字と仮定
↓
}else{
$jun[$i][$k] = $jun[$i][$k] - 1;
$kk = $kk-1;
}
で動く、かも。間違ってたらスマンということで。
560 ：vvv：03/01/07 05:43 ID:LnDaxIug
発言ランキングのつけかたおしえてください
>>561
どういったものを希望しているのかわからんが…。
名前ごとの発言回数を記録したいならこれでいけると思う。
sub rank($) {
my($name) = @_;
my $found = 0;
my @log;
open RNK, "+<", $rankfile or error("Can't open file:$rankfile");
eval "flock RNK, 2;";
while (<RNK>) {
chomp;
my($log_name, $log_count) = split /\t/;
if ($name eq $log_name) {
push @log, join("\t", $name, ++$log_count) . "\n";
$found = 1;
} else {
push @log, join("\t", $log_name, $log_count) . "\n";
}
}
if (!$found) {
push @log, join("\t", $name, 1) . "\n";
}
truncate RNK, 0;
seek RNK, 0, 0;
print RNK @log;
close RNK;
}
どういったものを希望しているのかわからんが…。
名前ごとの発言回数を記録したいならこれでいけると思う。
sub rank($) {
my($name) = @_;
my $found = 0;
my @log;
open RNK, "+<", $rankfile or error("Can't open file:$rankfile");
eval "flock RNK, 2;";
while (<RNK>) {
chomp;
my($log_name, $log_count) = split /\t/;
if ($name eq $log_name) {
push @log, join("\t", $name, ++$log_count) . "\n";
$found = 1;
} else {
push @log, join("\t", $log_name, $log_count) . "\n";
}
}
if (!$found) {
push @log, join("\t", $name, 1) . "\n";
}
truncate RNK, 0;
seek RNK, 0, 0;
print RNK @log;
close RNK;
}
(続き)
sub viewrank {
open RNK, "<", $rankfile or error("Can't open file:$rankfile");
eval "flock RNK, 1;";
my @rank = <RNK>;
close RNK;
# by perlメモ
@rank = map {$_->[0]}
sort {$b->[2] <=> $a->[2]}
map {[$_, split /\t/]} @rank;
hphead();
print qq[<h1>発言ランキング</h1>\n].
qq[<table border="1">\n].
qq[<tr><td>名前</td><td>発言回数</td></tr>\n];
foreach (@rank) {
chomp;
my($name, $count) = split /\t/;
print qq[<tr><td>$name</td><td>$count</td></tr>\n];
}
print qq [</table>\n];
hpfoot();
}
sub viewrank {
open RNK, "<", $rankfile or error("Can't open file:$rankfile");
eval "flock RNK, 1;";
my @rank = <RNK>;
close RNK;
# by perlメモ
@rank = map {$_->[0]}
sort {$b->[2] <=> $a->[2]}
map {[$_, split /\t/]} @rank;
hphead();
print qq[<h1>発言ランキング</h1>\n].
qq[<table border="1">\n].
qq[<tr><td>名前</td><td>発言回数</td></tr>\n];
foreach (@rank) {
chomp;
my($name, $count) = split /\t/;
print qq[<tr><td>$name</td><td>$count</td></tr>\n];
}
print qq [</table>\n];
hpfoot();
}
564 ：558：03/01/07 17:17 ID:sAGCj5os
>>559さん
見事にローテーション回りました♪
ありがとうございますm(_ _)m
>そんなクソソース読む気がせん。
やっぱり酷いスクリプトなんっすか？
もともとFFAの改造らしいですが。
「劇ぱわ」を改造したはる人の間ではわかりにくいと評判のようです(w
見事にローテーション回りました♪
ありがとうございますm(_ _)m
>そんなクソソース読む気がせん。
やっぱり酷いスクリプトなんっすか？
もともとFFAの改造らしいですが。
「劇ぱわ」を改造したはる人の間ではわかりにくいと評判のようです(w
565 ：名無しさん＠お腹いっぱい。：03/01/07 20:08 ID:???
>>564
スクリプトいじれもしねぇ～くせにガタガタ抜かしてんじゃねぇ～。この真性包茎が！
スクリプトいじれもしねぇ～くせにガタガタ抜かしてんじゃねぇ～。この真性包茎が！
566 ：nobodyさん：03/01/07 20:21 ID:2QX2iHj7
初めまして。
ご指導を仰ぎたく書き込ませていただきます。
>>34でも挙げられているエースさんの履歴風掲示板、
http://www.ace-cgi.jp/cgi/sch/005/index.html
（サンプル：ttp://www.ace-cgi.jp/cgi/sch/005/sample/sch005.cgi）を
サッカーチームの日程紹介に利用したいと思っていますが、
1月が一番上、12月が一番下と、これから来る月が
下方に表示されるようにしたいのですが、
どのようにアレンジすればよろしいでしょうか。
また、上のフレーム上部にタイトル画像を表示させたい場合はどの位置に
$titleを記入すればよいのでしょうか。
お手数をおかけして申し訳ございませんが、
ご回答いただければ幸いです。なにとぞよろしくお願いいたします。
ご指導を仰ぎたく書き込ませていただきます。
>>34でも挙げられているエースさんの履歴風掲示板、
http://www.ace-cgi.jp/cgi/sch/005/index.html
（サンプル：ttp://www.ace-cgi.jp/cgi/sch/005/sample/sch005.cgi）を
サッカーチームの日程紹介に利用したいと思っていますが、
1月が一番上、12月が一番下と、これから来る月が
下方に表示されるようにしたいのですが、
どのようにアレンジすればよろしいでしょうか。
また、上のフレーム上部にタイトル画像を表示させたい場合はどの位置に
$titleを記入すればよいのでしょうか。
お手数をおかけして申し訳ございませんが、
ご回答いただければ幸いです。なにとぞよろしくお願いいたします。
567 ：558：03/01/07 21:25 ID:sAGCj5os
568 ：名無しさん＠お腹いっぱい。：03/01/07 21:56 ID:0U86HUrj
569 ：名無しさん＠お腹いっぱい。：03/01/07 22:00 ID:???
570 ：558：03/01/07 22:05 ID:sAGCj5os
>>568
いや、真性包茎のほうでつが．．．＜なぜわかった！？
冗談はさておき、連勝中のチームでのローテが上手く回らない事が判明しました。(ToT)
症状をまとめるため、もう少し試合重ねてみます。
（今のところ、数連勝していると投手の打順が８や７になって、野手として試合参加してしまいます）
いや、真性包茎のほうでつが．．．＜なぜわかった！？
冗談はさておき、連勝中のチームでのローテが上手く回らない事が判明しました。(ToT)
症状をまとめるため、もう少し試合重ねてみます。
（今のところ、数連勝していると投手の打順が８や７になって、野手として試合参加してしまいます）
>>562-563それはどこにかけばいいんですか？
573 ：nobodyさん：03/01/08 19:58 ID:/YJAwlvJ
発言ランキングを表示するところをつくれば表示されますよね？
お邪魔します。
http://kano.feena.jp/erial/ealis2/
こちらで配布されている掲示板、ealisv2.59なんですが
一定のレス数を超えると古いレスから隠れるよう改造したいのです。
自分なりにいろいろやってみたとか言うつもりはありません
まったく知識はなくコピペしかできません。
>>1の注意事項(3)少しは自分で考えること。に違反してしまいますがどうか宜しくお願いします。
掲示板サンプル
http://kano.feena.jp/cgi/sample/e25/ealis.cgi
ソースはこちらに
http://henachoko.homeip.net/uploader/updata/20030108220620.txt
http://kano.feena.jp/erial/ealis2/
こちらで配布されている掲示板、ealisv2.59なんですが
一定のレス数を超えると古いレスから隠れるよう改造したいのです。
自分なりにいろいろやってみたとか言うつもりはありません
まったく知識はなくコピペしかできません。
>>1の注意事項(3)少しは自分で考えること。に違反してしまいますがどうか宜しくお願いします。
掲示板サンプル
http://kano.feena.jp/cgi/sample/e25/ealis.cgi
ソースはこちらに
http://henachoko.homeip.net/uploader/updata/20030108220620.txt
575 ：名無しさん＠お腹いっぱい。：03/01/09 00:34 ID:???
>>570
ずっとそのままなら手術だな（藁
ずっとそのままなら手術だな（藁
>>574
# ealis_cfg.cgi
以下の行を追加
$INI{'res_view'} = 5; # レスの表示数
# ealis_let-std.pl
sub lettering 内にあるif文を書き換える
if ($oyaflag) {
#この中はそのまま
} else {
if($flag != 2) { print "<br><hr width=\"95%\" size=1 class=r noshade>\n"; $flag = 2;}
$resflag = 1;
if (@res >= $INI{'res_view'}) {
shift @res;
}
push @res, join("\t", $name, $color, $ipaddr, $font, $comment, $date);
}
以下を追加
sub printres {
foreach (@res) {
my($name, $color, $ipaddr, $font, $comment, $date) = split /\t/;
print qq[\t<table border=0 cellspacing=0 cellpadding=0><tr><td nowrap valign=top>\n].
qq[\t<font color="$color"><b>$name</b><!-- $ipaddr --> ></font></td>\n].
qq[\t\t<td$font><font color="$color">$comment</font>\n].
qq[\t\t<span class="stamp">($date)</span></td></tr></table>\n];
}
$resflag = 0;
@res = ();
}
# ealis_cfg.cgi
以下の行を追加
$INI{'res_view'} = 5; # レスの表示数
# ealis_let-std.pl
sub lettering 内にあるif文を書き換える
if ($oyaflag) {
#この中はそのまま
} else {
if($flag != 2) { print "<br><hr width=\"95%\" size=1 class=r noshade>\n"; $flag = 2;}
$resflag = 1;
if (@res >= $INI{'res_view'}) {
shift @res;
}
push @res, join("\t", $name, $color, $ipaddr, $font, $comment, $date);
}
以下を追加
sub printres {
foreach (@res) {
my($name, $color, $ipaddr, $font, $comment, $date) = split /\t/;
print qq[\t<table border=0 cellspacing=0 cellpadding=0><tr><td nowrap valign=top>\n].
qq[\t<font color="$color"><b>$name</b><!-- $ipaddr --> ></font></td>\n].
qq[\t\t<td$font><font color="$color">$comment</font>\n].
qq[\t\t<span class="stamp">($date)</span></td></tr></table>\n];
}
$resflag = 0;
@res = ();
}
(続き)
# ealis.cgi
106行目あたりにある if($flag){ &reswindow($_[0]);} の上に
if($resflag) { printres(); }
を追加。119行目あたりにもあるので同様に。
# ealis.cgi
106行目あたりにある if($flag){ &reswindow($_[0]);} の上に
if($resflag) { printres(); }
を追加。119行目あたりにもあるので同様に。
>>576-577
すいませんファイルが足りなかったようで、ありがとうございます。
そのように書き換え・追加したのですが
記事が表示されなくなりました。
ealis_let-std.plのソース
http://henachoko.homeip.net/uploader/updata/20030109021601.txt
ealis.cgiのソース（追加した所以外省略）
http://henachoko.homeip.net/uploader/updata/20030109021527.txt
ealis_cfg.cgiに関してはこのように追加しました。
## ■システム設定
$INI{'allowtag'} =0;# タグの許可(0or1)
$INI{'res_sort'} = 1;# 返信がつくと親記事をトップへ移動 (0or1)
$INI{'autolink'} = 1;# 自動リンク (0or1)
$INI{'ipview'} = 0;# 現在のＩＰ表示(0or1)
$INI{'refcheck'} = 0;# 他サイトから投稿排除する時に指定 (0or1)
$INI{'show'} = 8;# １ページ当たりの記事表示数 (親記事)
$INI{'res_view'} = 5; # レスの表示数
#$INI{'gzip'} = '/bin/gzip';
なにか間違えてますでしょうか？
ご迷惑をおかけしますがよろしくお願いします。
すいませんファイルが足りなかったようで、ありがとうございます。
そのように書き換え・追加したのですが
記事が表示されなくなりました。
ealis_let-std.plのソース
http://henachoko.homeip.net/uploader/updata/20030109021601.txt
ealis.cgiのソース（追加した所以外省略）
http://henachoko.homeip.net/uploader/updata/20030109021527.txt
ealis_cfg.cgiに関してはこのように追加しました。
## ■システム設定
$INI{'allowtag'} =0;# タグの許可(0or1)
$INI{'res_sort'} = 1;# 返信がつくと親記事をトップへ移動 (0or1)
$INI{'autolink'} = 1;# 自動リンク (0or1)
$INI{'ipview'} = 0;# 現在のＩＰ表示(0or1)
$INI{'refcheck'} = 0;# 他サイトから投稿排除する時に指定 (0or1)
$INI{'show'} = 8;# １ページ当たりの記事表示数 (親記事)
$INI{'res_view'} = 5; # レスの表示数
#$INI{'gzip'} = '/bin/gzip';
なにか間違えてますでしょうか？
ご迷惑をおかけしますがよろしくお願いします。
KENTさんのとこのpatioにトリップつける改造が紹介されてたんですが
ttp://rightstuff.cool.ne.jp/test_site/patio/patio.cgi?mode=view2&f=44&no=10-11
同じほうほうでyybbsに組み込むことってできますかね？
ttp://rightstuff.cool.ne.jp/test_site/patio/patio.cgi?mode=view2&f=44&no=10-11
同じほうほうでyybbsに組み込むことってできますかね？
>>578
あー、スマン。書き方が悪かった。
sub printres はifの中じゃなくて、
ファイルの一番下にでも書いて欲しかった。ってことで
http://henachoko.homeip.net/uploader/updata/20030109021601.txt
の48-54行目を消せばいける。あと25行目の else の閉じ括弧が無いので
それもつけること。
あー、スマン。書き方が悪かった。
sub printres はifの中じゃなくて、
ファイルの一番下にでも書いて欲しかった。ってことで
http://henachoko.homeip.net/uploader/updata/20030109021601.txt
の48-54行目を消せばいける。あと25行目の else の閉じ括弧が無いので
それもつけること。
583 ：nobodyさん：03/01/09 19:18 ID:+NBXZYwN
>>562さんおしえて
>>583
そのトリップを付ける改造方法を紹介してるトコで聞いてみれば？
そのトリップを付ける改造方法を紹介してるトコで聞いてみれば？
同じスレで何度も質問して申し訳ございません。
この掲示板はユーザーがここの書き込みを削除したり、
編集したり出来るようにパスワードをうち込めるのですが、
そのパスワードを管理人用のマスターパスでも削除や編集が出来るようにしたいんです。
http://www2.csc.ne.jp/~nga/light.txt
http://www2.csc.ne.jp/~nga/admin.txt
http://www2.csc.ne.jp/~nga/init.txt
上記の3つがソースなのですが、
改造するのは一番上のメインスクリプトだけだと思いますので他は必要ないと思います。
管理者用パスはadmin.txtにしか設定されていませんので
light.txtの最初の方に$pass = '0123';をいれて、
記事削除の467行目あたりと記事修正の532行目あたりを
改良して色々試してみたのですがどうしてもうまくいきません。
わからないながらも簡単な改良のように思えるので、
またこのスレのお世話になりにきてしまい恥ずかしいかぎりです。
教えて頂ければ幸いです。
この掲示板はユーザーがここの書き込みを削除したり、
編集したり出来るようにパスワードをうち込めるのですが、
そのパスワードを管理人用のマスターパスでも削除や編集が出来るようにしたいんです。
http://www2.csc.ne.jp/~nga/light.txt
http://www2.csc.ne.jp/~nga/admin.txt
http://www2.csc.ne.jp/~nga/init.txt
上記の3つがソースなのですが、
改造するのは一番上のメインスクリプトだけだと思いますので他は必要ないと思います。
管理者用パスはadmin.txtにしか設定されていませんので
light.txtの最初の方に$pass = '0123';をいれて、
記事削除の467行目あたりと記事修正の532行目あたりを
改良して色々試してみたのですがどうしてもうまくいきません。
わからないながらも簡単な改良のように思えるので、
またこのスレのお世話になりにきてしまい恥ずかしいかぎりです。
教えて頂ければ幸いです。
>>507
レス遅くなりました。
複数修正チェック入れさせていただきました。
どんどん機能が増してきて凄く嬉しいです。ありがとうございました。
>>508
パス丸出しでしたw
念の為パスワード変えました。ご指摘ありがとうございました。
レス遅くなりました。
複数修正チェック入れさせていただきました。
どんどん機能が増してきて凄く嬉しいです。ありがとうございました。
>>508
パス丸出しでしたw
念の為パスワード変えました。ご指摘ありがとうございました。
>>585
大まかには理解しているようなのでヒントだけ。
sub decrypt はパスワードが正しければ1、そうでなければ0を
返すようになっている。これをパスワードが正しい、もしくは
管理パスと同じ場合に1を返すようにすれば良い。
大まかには理解しているようなのでヒントだけ。
sub decrypt はパスワードが正しければ1、そうでなければ0を
返すようになっている。これをパスワードが正しい、もしくは
管理パスと同じ場合に1を返すようにすれば良い。
588 ：nobodyさん：03/01/10 10:31 ID:a9CYRt8t
ワードラップ表示のない掲示板を設置しています。
改行を入れずに記入されると、表示がびよぉ～んと伸びて、ブラウザを右にスクロールしないと読めなくなります。
普通は、表示のほうでワードラップさせるのでしょうか。
そこで考えているのですが・・・。
掲示板書き込みの、内容チェックルーチンの後ろに、自動整形ルーチンを
持たすようにしたいんです。
昔のMS-DOSの時にあった fin という外部コマンドみたいな機能です。
付け加えたいのは、
.br といった、改行を入れる埋めこみコマンド（一つだけ）
禁則処理
引数で、桁を指定
引数で、インデント桁を指定（これで四角い文書になる）
引数のわたし方ですが、チェックボックスでも作るのがいいでしょうか？
こうした機能がすでに書かれたサブルーチンがどこかにあったら見てみたいのですが、
ご存じないでしょうか？
改行を入れずに記入されると、表示がびよぉ～んと伸びて、ブラウザを右にスクロールしないと読めなくなります。
普通は、表示のほうでワードラップさせるのでしょうか。
そこで考えているのですが・・・。
掲示板書き込みの、内容チェックルーチンの後ろに、自動整形ルーチンを
持たすようにしたいんです。
昔のMS-DOSの時にあった fin という外部コマンドみたいな機能です。
付け加えたいのは、
.br といった、改行を入れる埋めこみコマンド（一つだけ）
禁則処理
引数で、桁を指定
引数で、インデント桁を指定（これで四角い文書になる）
引数のわたし方ですが、チェックボックスでも作るのがいいでしょうか？
こうした機能がすでに書かれたサブルーチンがどこかにあったら見てみたいのですが、
ご存じないでしょうか？
589 ：bloom：03/01/10 10:51 ID:KGaolIdm
>>587
大まかには理解していると言っていただけて嬉しいです。
最初はほんとにさっぱりわからなくてHTML部分の改造以外できなかったのですが、
毎日わからないながらも試行錯誤していたら少しだけですがわかってきました。
だんだん覚えていくので凄く楽しいです。
>>590
パスを書かないのがif ($in{'pwd'} eq "")だったのでそこにパスを入れれば
「もしもパスが入力されていたら」になるかなぁと思って
それと同じような文を書いたんですけど、結局出来なかったんです。
惜しかったんでしょうか。
>>591(590)
その一行を追加しただけで出来ました！
簡単とは思ってはいましたが一行で済むとは思いませんでした凄いです！
私が考えていた所と全く焦点が違っていた事に驚いてます。
何度も質問したのでもう一度ここのお世話になるか凄く迷ったのですが、
質問してよかったです。（皆様にはお手数かけましたが）
本当にありがとうございました。m(_ _)m
大まかには理解していると言っていただけて嬉しいです。
最初はほんとにさっぱりわからなくてHTML部分の改造以外できなかったのですが、
毎日わからないながらも試行錯誤していたら少しだけですがわかってきました。
だんだん覚えていくので凄く楽しいです。
>>590
パスを書かないのがif ($in{'pwd'} eq "")だったのでそこにパスを入れれば
「もしもパスが入力されていたら」になるかなぁと思って
それと同じような文を書いたんですけど、結局出来なかったんです。
惜しかったんでしょうか。
>>591(590)
その一行を追加しただけで出来ました！
簡単とは思ってはいましたが一行で済むとは思いませんでした凄いです！
私が考えていた所と全く焦点が違っていた事に驚いてます。
何度も質問したのでもう一度ここのお世話になるか凄く迷ったのですが、
質問してよかったです。（皆様にはお手数かけましたが）
本当にありがとうございました。m(_ _)m
593 ：nobodyさん：03/01/10 17:57 ID:ViB4peHI
発言ランキングのつけかたおしえてください
>>593
>>1を読んでYO
質問するときは以下の点に注意して書いて下さい
(1) そのスクリプトの内容と置いてある場所を明記する (txtファイルでUPすればなお良い)
(2) どんな風に改造して欲しいのか？ (完成イメージHTMLを用意すればなお良し)
(3) 出来るだけ詳しく書くこと。少しは自分で考えること。できれば御礼も言ったほうが良い
※答えてくれないからといって逆ギレする厨はお断り
>>1を読んでYO
質問するときは以下の点に注意して書いて下さい
(1) そのスクリプトの内容と置いてある場所を明記する (txtファイルでUPすればなお良い)
(2) どんな風に改造して欲しいのか？ (完成イメージHTMLを用意すればなお良し)
(3) 出来るだけ詳しく書くこと。少しは自分で考えること。できれば御礼も言ったほうが良い
※答えてくれないからといって逆ギレする厨はお断り
発言ランキングの奴はcomchatの奴をつかいたいです。
comchatなんて、元々ゆいちゃっとからのパクりが多いから、全然OKだろう。
ネットサーフしててあるところの掲示板で見かけたのですが
掲示板の書き込みで
”＞”のような引用を使うとその一文の文字色が変わり
背景色がつけられて 目立つ
ようなのを見かけたのですが
どうすればできるのでしょうか？
背景色は外部スタイルシートでしょうか？
よろしくおねがいします
テキストは
ttp://www23.tok2.com/home/fura/yybbs.txt
です。
（トクトク仕様で見づらいですがソースで確認お願いします）
よろしくおねがいします
掲示板の書き込みで
”＞”のような引用を使うとその一文の文字色が変わり
背景色がつけられて 目立つ
ようなのを見かけたのですが
どうすればできるのでしょうか？
背景色は外部スタイルシートでしょうか？
よろしくおねがいします
テキストは
ttp://www23.tok2.com/home/fura/yybbs.txt
です。
（トクトク仕様で見づらいですがソースで確認お願いします）
よろしくおねがいします
601 ：背景中央っこ：03/01/11 23:15 ID:h7Wygp1p
perl掲示板の壁紙について質問があります。
現在、
{
print "<body background=\"背景イメージ" bgproperties=\"fixed\"
}
となっていて、壁紙はリピートになっているのですが、
この壁紙を「中央に１つだけ表示」するにはどうしたらよろしいのでしょうか？
CSSでいうと
.Wallpaper {
background-attachment: fixed;
background-image: url(背景イメージ);
background-repeat: no-repeat;
background-position: center center;
}
の様にしたいのです。
よろしくお願いします。
現在、
{
print "<body background=\"背景イメージ" bgproperties=\"fixed\"
}
となっていて、壁紙はリピートになっているのですが、
この壁紙を「中央に１つだけ表示」するにはどうしたらよろしいのでしょうか？
CSSでいうと
.Wallpaper {
background-attachment: fixed;
background-image: url(背景イメージ);
background-repeat: no-repeat;
background-position: center center;
}
の様にしたいのです。
よろしくお願いします。
>>600
そのyybbs.txtはそのままでも動作しているの?
同じエラーが沢山でていたが・・・トクトクでは動くのかな。。まぁぃぃゃ。。。
背景色を変える方法はスタイルシートやTABLEタグを使ったりすると思います。
アップしたyybbs.txtの
611行目に
$comment =~ /(^|(?:<br>))((>|＞)(?:(?!<br>).)*)/\1<FONT color=#ffffff style="background-color:#666666">\2<\/FONT>/g;
577行目
$com =~ /(^|(?:<br>))((>|＞)(?:(?!<br>).)*)/\1<FONT color=#ffffff style="background-color:#666666">\2<\/FONT>/g;
543行目
$comment =~ /(^|(?:<br>))((>|＞)(?:(?!<br>).)*)/\1<FONT color=#ffffff style="background-color:#666666">\2<\/FONT>/g;
を追加するようなやり方でも可能です。
そのyybbs.txtはそのままでも動作しているの?
同じエラーが沢山でていたが・・・トクトクでは動くのかな。。まぁぃぃゃ。。。
背景色を変える方法はスタイルシートやTABLEタグを使ったりすると思います。
アップしたyybbs.txtの
611行目に
$comment =~ /(^|(?:<br>))((>|＞)(?:(?!<br>).)*)/\1<FONT color=#ffffff style="background-color:#666666">\2<\/FONT>/g;
577行目
$com =~ /(^|(?:<br>))((>|＞)(?:(?!<br>).)*)/\1<FONT color=#ffffff style="background-color:#666666">\2<\/FONT>/g;
543行目
$comment =~ /(^|(?:<br>))((>|＞)(?:(?!<br>).)*)/\1<FONT color=#ffffff style="background-color:#666666">\2<\/FONT>/g;
を追加するようなやり方でも可能です。
>>602
ぉ！ 間違えてる。。
sも抜けてるし・・・
s/(^|<br>)((>|(?:＞))(?:(?!<br>).)*)/\1<FONT color=#ffffff style="background-color:#666666">\2<\/FONT>/g;
です。。
ぉ！ 間違えてる。。
sも抜けてるし・・・
s/(^|<br>)((>|(?:＞))(?:(?!<br>).)*)/\1<FONT color=#ffffff style="background-color:#666666">\2<\/FONT>/g;
です。。
>>601
そのprint文にスタイルシートを追加では
なにか問題があるのでしょうか?
print '<body background="背景イメージ" bgproperties="fixed" style="background-repeat: no-repeat; background-position: center center;">';
そのprint文にスタイルシートを追加では
なにか問題があるのでしょうか?
print '<body background="背景イメージ" bgproperties="fixed" style="background-repeat: no-repeat; background-position: center center;">';
605 ：nobodyさん：03/01/12 12:06 ID:eJ8Igs3E
今ホムペつくってるんですけど、a.htmというページがあるとしてそこに5人
きてるとします、それでその人数を、b.htmに表示したいんです。
それでhttp://shena.myako.net/strangelady/cgijs/imakoko/imakoko.html
っていうのをみつけたんですがこれはa.htmにきている人数をa.htmにしか表示できないみたい
なんです、このスクリプトを変更してb.htmにでも人数を表示するということはできませんか？
もしそういうことができるなら誰かアドバイスください★
きてるとします、それでその人数を、b.htmに表示したいんです。
それでhttp://shena.myako.net/strangelady/cgijs/imakoko/imakoko.html
っていうのをみつけたんですがこれはa.htmにきている人数をa.htmにしか表示できないみたい
なんです、このスクリプトを変更してb.htmにでも人数を表示するということはできませんか？
もしそういうことができるなら誰かアドバイスください★
>>605
以下のように書いてありますが、何か？日本語読めますか？
ＣＧＩファイルをサーバーにアップロードして、ページには１行書き加えるだけ
<script language="JavaScript" src="imakoko.cgi"></script>
以下のように書いてありますが、何か？日本語読めますか？
ＣＧＩファイルをサーバーにアップロードして、ページには１行書き加えるだけ
<script language="JavaScript" src="imakoko.cgi"></script>
タッキーズルームのpulinplinkに背景固定のスタイルシートを加えたいんだけど、
どのへんいじったらいいかわかりません。誰か教えてください。
どのへんいじったらいいかわかりません。誰か教えてください。
612 ：nobodyさん：03/01/12 13:19 ID:eJ8Igs3E
>>606
あ～今からお礼いいにいってきます！＆誘導されてきました。
んとぉ～b.htmに<script language="JavaScript" src="imakoko.cgi"></script>
をはると、b.htmを見てる人もカウントされてしまうんです。
a.htmみている人をb.htmに表示したいんです。
あ～今からお礼いいにいってきます！＆誘導されてきました。
んとぉ～b.htmに<script language="JavaScript" src="imakoko.cgi"></script>
をはると、b.htmを見てる人もカウントされてしまうんです。
a.htmみている人をb.htmに表示したいんです。
615 ：nobodyさん：03/01/12 13:31 ID:eJ8Igs3E
>>615
これ読んでおいて
http://pc3.2ch.net/test/read.cgi/hp/1042273042/123
躾けが行き届いてない厨を誘導してすみません
面倒見てやってください。＞スレ住人
これ読んでおいて
http://pc3.2ch.net/test/read.cgi/hp/1042273042/123
躾けが行き届いてない厨を誘導してすみません
面倒見てやってください。＞スレ住人
>>615
まずimakoko.cgiの88～90行目の
foreach $line(@out){
print "document.writeln(\"$line\");\n";
}
の行頭に#を挿入してコメントアウト。
次に48行目に以下をコピペ
if ($ENV{'QUERY_STRING'} eq 'b') {
@NEWDATA;
foreach $line(@DATA) {
($time,$host) = split(/\,/,$line);
if (($time_now - $tmax) < $time && $host ne $myhost){
push(@NEWDATA,$line);
}
}
$count = @NEWDATA;
@OUT = ("今hogeページに$count人の人がいます");
if ($font){
unshift(@OUT,$font);
push(@OUT,"</font>");
}
print "Content-type: text/plain\n\n";
print "<!--\n";
foreach $line(@OUT){
print "document.writeln(\"$line\");\n";
}
print "//-->\n";
exit;
まずimakoko.cgiの88～90行目の
foreach $line(@out){
print "document.writeln(\"$line\");\n";
}
の行頭に#を挿入してコメントアウト。
次に48行目に以下をコピペ
if ($ENV{'QUERY_STRING'} eq 'b') {
@NEWDATA;
foreach $line(@DATA) {
($time,$host) = split(/\,/,$line);
if (($time_now - $tmax) < $time && $host ne $myhost){
push(@NEWDATA,$line);
}
}
$count = @NEWDATA;
@OUT = ("今hogeページに$count人の人がいます");
if ($font){
unshift(@OUT,$font);
push(@OUT,"</font>");
}
print "Content-type: text/plain\n\n";
print "<!--\n";
foreach $line(@OUT){
print "document.writeln(\"$line\");\n";
}
print "//-->\n";
exit;
>>621
そして、a.htmlでは普通にスクリプトを呼び出して
b.htmlではimakoko.cgi?bのように?bを追加して読み込んでください。
<script language="JavaScript" src="imakoko.cgi?b"></script>
もっとスマートに改造できるのですが・・・とりあえずこれでも可能です。。
そして、a.htmlでは普通にスクリプトを呼び出して
b.htmlではimakoko.cgi?bのように?bを追加して読み込んでください。
<script language="JavaScript" src="imakoko.cgi?b"></script>
もっとスマートに改造できるのですが・・・とりあえずこれでも可能です。。
624 ：nobodyさん：03/01/12 14:24 ID:eJ8Igs3E
>>624
そうです。b.htmlでしたから、bとしてみただけです。他意はありません。。
49～59行目を以下で置き換えるだけでも同様です
こちらの方が少しはスマートです。。
if ($ENV{'QUERY_STRING'} ne 'b') {
@NEWDATA = ("$time_now\,$myhost\,\n");
}
foreach $line(@DATA) {
($time,$host) = split(/\,/,$line);
# if (($time_now - $tmax) < $time && $host ne $myhost){
if (($time_now - $tmax) < $time){
push(@NEWDATA,$line);
}
}
if ($ENV{'QUERY_STRING'} ne 'b') {
if (!open (DATA,">$logfile")) { &output("エラー！：ログファイルのパーミッションは６６６になってますか？");}
print DATA @NEWDATA;
close(DATA);
&output(undef);
exit;
}
そうです。b.htmlでしたから、bとしてみただけです。他意はありません。。
49～59行目を以下で置き換えるだけでも同様です
こちらの方が少しはスマートです。。
if ($ENV{'QUERY_STRING'} ne 'b') {
@NEWDATA = ("$time_now\,$myhost\,\n");
}
foreach $line(@DATA) {
($time,$host) = split(/\,/,$line);
# if (($time_now - $tmax) < $time && $host ne $myhost){
if (($time_now - $tmax) < $time){
push(@NEWDATA,$line);
}
}
if ($ENV{'QUERY_STRING'} ne 'b') {
if (!open (DATA,">$logfile")) { &output("エラー！：ログファイルのパーミッションは６６６になってますか？");}
print DATA @NEWDATA;
close(DATA);
&output(undef);
exit;
}
>>625
蛇足です。。コメントアウトしていたのを忘れていました。。
if ($ENV{'QUERY_STRING'} ne 'b') {
@NEWDATA = ("$time_now\,$myhost\,\n");
}
foreach $line(@DATA) {
($time,$host) = split(/\,/,$line);
if (($time_now - $tmax) < $time && $host ne $myhost){
push(@NEWDATA,$line);
}
}
if ($ENV{'QUERY_STRING'} ne 'b') {
if (!open (DATA,">$logfile")) { &output("エラー！：ログファイルのパーミッションは６６６になってますか？");}
print DATA @NEWDATA;
close(DATA);
&output(undef);
exit;
}
蛇足です。。コメントアウトしていたのを忘れていました。。
if ($ENV{'QUERY_STRING'} ne 'b') {
@NEWDATA = ("$time_now\,$myhost\,\n");
}
foreach $line(@DATA) {
($time,$host) = split(/\,/,$line);
if (($time_now - $tmax) < $time && $host ne $myhost){
push(@NEWDATA,$line);
}
}
if ($ENV{'QUERY_STRING'} ne 'b') {
if (!open (DATA,">$logfile")) { &output("エラー！：ログファイルのパーミッションは６６６になってますか？");}
print DATA @NEWDATA;
close(DATA);
&output(undef);
exit;
}
627 ：nobodyさん：03/01/12 15:01 ID:3kq2ylQl
おしえてください！発言ランキングのつけかた
KENTのところにあるCOMCHATの発言ランキングをつけたいです。
KENTのところにあるCOMCHATの発言ランキングをつけたいです。
>>624
imakoko.cgi?bって呼び出すのは適当すぎますし
imakoko.cgi?countって呼び出したページの人数をカウントして
imakoko.cgiだけで呼び出した時に人数を表示するほうが、より良いですね。
あと
@OUT = ("今このページに$count人の人がいます");
のメッセージも自分流に書き換える必要がありそうです。
無理に書き換える必要はありませんけれど、、
宿題として･･･？？ でわでわ！
imakoko.cgi?bって呼び出すのは適当すぎますし
imakoko.cgi?countって呼び出したページの人数をカウントして
imakoko.cgiだけで呼び出した時に人数を表示するほうが、より良いですね。
あと
@OUT = ("今このページに$count人の人がいます");
のメッセージも自分流に書き換える必要がありそうです。
無理に書き換える必要はありませんけれど、、
宿題として･･･？？ でわでわ！
629 ：nobodyさん：03/01/12 15:30 ID:z75wTlqT
ありがとうございます！早速やってみます！ありがとうございます！！
630 ：566：03/01/12 17:34 ID:0R5jZ1Nf
>>566にてエースさんのスクリプト改造について
アドバイスをお願いした者です。
>>569さん、行き届かず申し訳ありませんでした。
以下にスクリプトをテキストで上げましたので、
改めてご指導よろしくお願い申し上げます。
ttp://lipservice.tripod.co.jp/ace.txt
アドバイスをお願いした者です。
>>569さん、行き届かず申し訳ありませんでした。
以下にスクリプトをテキストで上げましたので、
改めてご指導よろしくお願い申し上げます。
ttp://lipservice.tripod.co.jp/ace.txt
>>630
ace.txtの70行目に
@DATA = reverse(@DATA);
タイトルは64行目の
print "</td>\n";
の後に
print "<td bgcolor=#CCCCCC align=center>$title</td>\n";
を挿入で表示できます。
ace.txtの70行目に
@DATA = reverse(@DATA);
タイトルは64行目の
print "</td>\n";
の後に
print "<td bgcolor=#CCCCCC align=center>$title</td>\n";
を挿入で表示できます。
>>631
っと、タイトルは画像でしたね。。
$titleを<img src="画像">に置き換えるか
57行目の
print "<table width=100% cellpadding=3 cellspacing=0 border=0><tr>\n";
後に
print "<td align=center><img src="画像"></td></tr><tr>\n";
とでも記入してください。。
っと、タイトルは画像でしたね。。
$titleを<img src="画像">に置き換えるか
57行目の
print "<table width=100% cellpadding=3 cellspacing=0 border=0><tr>\n";
後に
print "<td align=center><img src="画像"></td></tr><tr>\n";
とでも記入してください。。
>>631
@DATA = reverse(@DATA);
データを削除したり編集したりしている内に表示順がおかしくなるねぇ
reverse行は取り消して
73行目の
foreach $line (@DATA){
を
foreach $line (sort @DATA){
で解決かな?
@DATA = reverse(@DATA);
データを削除したり編集したりしている内に表示順がおかしくなるねぇ
reverse行は取り消して
73行目の
foreach $line (@DATA){
を
foreach $line (sort @DATA){
で解決かな?
635 ：nobodyさん：03/01/12 19:06 ID:/hVM4GRx
お絵かきけいじばんの、画像を保存するのを無理やりgifに変換するにはどうしたらいいのかを考えるすれに変わりました
>>602>>603
を元にできました。どうもでした。
ただ全角の引用の”＞”には対応するのですが
半角の”>”にも対応させるにはどうすればいいでしょうか？
半角を使う人もいるので・・・
よろしくおねがいします
を元にできました。どうもでした。
ただ全角の引用の”＞”には対応するのですが
半角の”>”にも対応させるにはどうすればいいでしょうか？
半角を使う人もいるので・・・
よろしくおねがいします
>>636
?ああ2chに書き込んだときに>に変換されてしまったのね。。
s/(^|<br>)((>|(?:＞))～
の>を＆ｇｔ；と半角で置き換えて。。
>>635
ttp://www.imagemagick.org/www/perl.html
?ああ2chに書き込んだときに>に変換されてしまったのね。。
s/(^|<br>)((>|(?:＞))～
の>を＆ｇｔ；と半角で置き換えて。。
>>635
ttp://www.imagemagick.org/www/perl.html
ttp://sugachan.dip.jp/download/joyful.php
ここのスクリプトのHTMLVerなんですが
1ページ目を0.htmlではなくindex.htmlで吐かせたいのですが
どこを変えればよいのでしょうか？
ここのスクリプトのHTMLVerなんですが
1ページ目を0.htmlではなくindex.htmlで吐かせたいのですが
どこを変えればよいのでしょうか？
641 ：背景中央っこ@601：03/01/12 22:42 ID:U7D7FDnd
644 ：nobodyさん：03/01/12 23:44 ID:HvHiIRir
◆◇◆◇◆最新情報◆◇◆◇◆
http://yahooo.s2.x-beat.com/linkvp/linkvp.html
http://yahooo.s2.x-beat.com/linkvp/linkvp.html
>>631-633さん、>>634さん
どうもありがとうございます！希望通りの表示になりました。
お時間を割いていただいて恐縮です。
たった1ワード入れるだけで変わるものなんですね。
何を勘違いしたのか数字を入れたりしていました...
いまはは曜日表示の追加と下部に表示される記事部分を
一番上の日付ぶんが最初に来るように調整してみています。
自分でスクリプトをすべて書けるようになったら
とても気持ちがよいでしょうね。がんばります。
どうもありがとうございます！希望通りの表示になりました。
お時間を割いていただいて恐縮です。
たった1ワード入れるだけで変わるものなんですね。
何を勘違いしたのか数字を入れたりしていました...
いまはは曜日表示の追加と下部に表示される記事部分を
一番上の日付ぶんが最初に来るように調整してみています。
自分でスクリプトをすべて書けるようになったら
とても気持ちがよいでしょうね。がんばります。
>>640
更新しておきますた
更新しておきますた
>>627
>>562-563を書いた者だが…。
「発言ランキングのつけかた」なんて漠然と言われても、
「発言ランキングとして動作するコードを書け」としか答えようが無い。
そしてできなかったのなら、自分でどこまでやったのかを書くこと、と
言われてるだろ…。全くPerlができないのなら最初に具体的な仕様を
書くこと。そうしていれば>>562-563のような無駄なコードは書かずに済んだわけで。
こっちだって時間を割いてスクリプトを書いてるんだから。
まぁ乗りかかった船だから一応教えるけどさ…。
>>562-563を書いた者だが…。
「発言ランキングのつけかた」なんて漠然と言われても、
「発言ランキングとして動作するコードを書け」としか答えようが無い。
そしてできなかったのなら、自分でどこまでやったのかを書くこと、と
言われてるだろ…。全くPerlができないのなら最初に具体的な仕様を
書くこと。そうしていれば>>562-563のような無駄なコードは書かずに済んだわけで。
こっちだって時間を割いてスクリプトを書いてるんだから。
まぁ乗りかかった船だから一応教えるけどさ…。
31行目あたりに
# 発言ランクファイル
$rankfile = './rank.dat';
# 発言ランクログ保存日数
$limit = 7;
を追加。
324行目あたりに elsif の閉じ括弧があるのでその下に更に
elsif ($act eq "ranking") {
viewranking();
}
を追加。
675行目あたりにある </tr> と </table> の間に
<tr><td> </td>
<td>
<form method="post" action="./ichat.cgi" target="frame2">
<input type="submit" value="発言ランキング" class="button">
<input type="hidden" name="act" value="ranking">
<input type="hidden" name="name" value="$name">
<input type="hidden" name="color" value="$color">
<input type="hidden" name="lines" value="$lines">
<input type="hidden" name="reloadtime" value="$reloadtime">
<input type="hidden" name="hrindi" value="$hrindi">
</form>
</td>
</tr>
を追加。
835行目あたりにある close (IO); の下に
ranking();
を追加。
# 発言ランクファイル
$rankfile = './rank.dat';
# 発言ランクログ保存日数
$limit = 7;
を追加。
324行目あたりに elsif の閉じ括弧があるのでその下に更に
elsif ($act eq "ranking") {
viewranking();
}
を追加。
675行目あたりにある </tr> と </table> の間に
<tr><td> </td>
<td>
<form method="post" action="./ichat.cgi" target="frame2">
<input type="submit" value="発言ランキング" class="button">
<input type="hidden" name="act" value="ranking">
<input type="hidden" name="name" value="$name">
<input type="hidden" name="color" value="$color">
<input type="hidden" name="lines" value="$lines">
<input type="hidden" name="reloadtime" value="$reloadtime">
<input type="hidden" name="hrindi" value="$hrindi">
</form>
</td>
</tr>
を追加。
835行目あたりにある close (IO); の下に
ranking();
を追加。
ファイルの一番下に
sub ranking {
my $rflag = 0;
my @new;
open RNK, "+<", $rankfile or error("Open Error : $rankfile");
eval { flock RNK, 2; };
while (<RNK>) {
my($r_name, $r_kaisu, $r_time) = split /<>/;
if (time - $r_time > $limit*24*60*60) { next; }
if ($r_name eq $name) {
$rflag = 1;
$r_kaisu++;
$_ = "$r_name<>$r_kaisu<>" . time . "<>\n";
}
push @new, $_;
}
if (!$rflag) { unshift @new,"$name<>1<>" . time . "<>\n"; }
truncate RNK, 0;
seek RNK, 0, 0;
print RNK @new;
close RNK;
}
sub ranking {
my $rflag = 0;
my @new;
open RNK, "+<", $rankfile or error("Open Error : $rankfile");
eval { flock RNK, 2; };
while (<RNK>) {
my($r_name, $r_kaisu, $r_time) = split /<>/;
if (time - $r_time > $limit*24*60*60) { next; }
if ($r_name eq $name) {
$rflag = 1;
$r_kaisu++;
$_ = "$r_name<>$r_kaisu<>" . time . "<>\n";
}
push @new, $_;
}
if (!$rflag) { unshift @new,"$name<>1<>" . time . "<>\n"; }
truncate RNK, 0;
seek RNK, 0, 0;
print RNK @new;
close RNK;
}
sub viewranking {
my %count;
hphead();
print qq#[<a href="./ichat.cgi?act=reload&name=$name&color=$color#.
qq#&lines=$lines&reloadtime=$reloadtime&hrindi=$hrindi">#.
qq#チャットに戻る</a>]\n#.
qq#<center>\n#.
qq#<h3>$title</h3>\n#;
open IN, "<", $rankfile or error("Open Error : $rankfile");
print qq[<P>- 以下は $limit日以内の発言を対象としたランキング一覧です -\n].
qq[<P><table border=1 cellspacing=0>\n].
qq[<tr><th>順位</th><th>おなまえ</th><th>発言回数</th></tr>\n];
while (<IN>) {
my($name,$count) = split /<>/;
$count{$name} = $count;
}
my $rank1 = 0;
my $rank2 = 1;
my $count_tmp = 0;
foreach (sort { ($count{$b} <=> $count{$a}) || ($a cmp $b)} keys(%count)) {
($count{$_} == $count_tmp) || ($rank1 = $rank2);
print "<tr><td>No\.<b>$rank1</b></td><th>$_</th><th>$count{$_}</th></tr>\n";
$count_tmp = $count{$_};
$rank2++;
}
print "</table></small></center>\n</body></html>\n";
exit;
}
を追加して終了。
ちなみにサブルーチンはKENTのやつからもってきただけ。
(ただ、無駄な部分は省いた。)
# 長くてスマソ... 今度からインデントやめます。
my %count;
hphead();
print qq#[<a href="./ichat.cgi?act=reload&name=$name&color=$color#.
qq#&lines=$lines&reloadtime=$reloadtime&hrindi=$hrindi">#.
qq#チャットに戻る</a>]\n#.
qq#<center>\n#.
qq#<h3>$title</h3>\n#;
open IN, "<", $rankfile or error("Open Error : $rankfile");
print qq[<P>- 以下は $limit日以内の発言を対象としたランキング一覧です -\n].
qq[<P><table border=1 cellspacing=0>\n].
qq[<tr><th>順位</th><th>おなまえ</th><th>発言回数</th></tr>\n];
while (<IN>) {
my($name,$count) = split /<>/;
$count{$name} = $count;
}
my $rank1 = 0;
my $rank2 = 1;
my $count_tmp = 0;
foreach (sort { ($count{$b} <=> $count{$a}) || ($a cmp $b)} keys(%count)) {
($count{$_} == $count_tmp) || ($rank1 = $rank2);
print "<tr><td>No\.<b>$rank1</b></td><th>$_</th><th>$count{$_}</th></tr>\n";
$count_tmp = $count{$_};
$rank2++;
}
print "</table></small></center>\n</body></html>\n";
exit;
}
を追加して終了。
ちなみにサブルーチンはKENTのやつからもってきただけ。
(ただ、無駄な部分は省いた。)
# 長くてスマソ... 今度からインデントやめます。
>>651
スクリプト改造お疲れさまです。
sortを使用した場合、ログデータをそのまま並び替えています。
デフォルトの状態では～.datファイルが
年<>月<>日<>タイトル<>本文<>
年<>月<>日<>タイトル<>本文<>
・・・
のフォーマットで保存されています。
曜日ごとに並び替えられてしまったのは
曜日<>年<>月<>日<>タイトル<>本文<>
みたいに曜日をデータの先頭に挿入しているため
曜日毎に並び替えてしまったのかな、と推察しています。
reverseの使用で対処できるとのことでなによりですが
reverseしてデータを表示するルーチンの後に
もう一度reverseして@DATAの内容を元に戻しておくことを勧めます。
もちろん問題がでていないようなら必要ありませんけれど。。
@DATAをreverseしたままの場合は
他のルーチンのロジックも少し弄る必要があるかも知れません。
あしからず。
スクリプト改造お疲れさまです。
sortを使用した場合、ログデータをそのまま並び替えています。
デフォルトの状態では～.datファイルが
年<>月<>日<>タイトル<>本文<>
年<>月<>日<>タイトル<>本文<>
・・・
のフォーマットで保存されています。
曜日ごとに並び替えられてしまったのは
曜日<>年<>月<>日<>タイトル<>本文<>
みたいに曜日をデータの先頭に挿入しているため
曜日毎に並び替えてしまったのかな、と推察しています。
reverseの使用で対処できるとのことでなによりですが
reverseしてデータを表示するルーチンの後に
もう一度reverseして@DATAの内容を元に戻しておくことを勧めます。
もちろん問題がでていないようなら必要ありませんけれど。。
@DATAをreverseしたままの場合は
他のルーチンのロジックも少し弄る必要があるかも知れません。
あしからず。
653 ：nobodyさん：03/01/13 17:17 ID:9dWOZyTE
>648のようにやりまして、エラーが発生しました
324行目あたりに elsif の閉じ括弧があるのでその下に更に
elsif ($act eq "ranking") {
viewranking();
}
っていうところなんですけど、elsif (($act eq "mainframe") || ($act eq "changeframe")){
の↓にかけばいいんですよね？elsif ($act eq "ranking") {viewranking();}{このように
324行目あたりに elsif の閉じ括弧があるのでその下に更に
elsif ($act eq "ranking") {
viewranking();
}
っていうところなんですけど、elsif (($act eq "mainframe") || ($act eq "changeframe")){
の↓にかけばいいんですよね？elsif ($act eq "ranking") {viewranking();}{このように
>>653
俺の言ってるelsifの閉じ括弧っつーのは
elsif (($act eq "mainframe") || ($act eq "changeframe")){
#元からあったコード
} ←これ。
なのでその下に追加すれば良い。
別に改行しなくてもいいんだけど、>>648で書いている行番号は
改造を行った後のものだから混乱するかも。
あとエラーが出たのならエラーメッセージを出せばなお良い。
俺の言ってるelsifの閉じ括弧っつーのは
elsif (($act eq "mainframe") || ($act eq "changeframe")){
#元からあったコード
} ←これ。
なのでその下に追加すれば良い。
別に改行しなくてもいいんだけど、>>648で書いている行番号は
改造を行った後のものだから混乱するかも。
あとエラーが出たのならエラーメッセージを出せばなお良い。
655 ：nobodyさん：03/01/14 00:48 ID:hZLDsUe8
kentwebのスレッド式掲示板webpatioのスレッド名の文字数制限をなくしたいのですが
どなたか方法をお教え願えませんでしょうか？
どなたか方法をお教え願えませんでしょうか？
# コメント文字数チェック
if (length($in{'comment'}) > $max_msg*2) {
&error("文字数オーバーです。<br>
全角$max_msg文字以内で記述してください");
}
if (length($in{'comment'}) > $max_msg*2) {
&error("文字数オーバーです。<br>
全角$max_msg文字以内で記述してください");
}
658 ：655：03/01/14 01:54 ID:hZLDsUe8
ここはSの依頼者とMの回答者が仲良く助け合うスレッドですか。
>>658
patio.cgiの464行目
<td><input type=text name=sub size=30 value="$resub" maxlength=30>
maxlengthの値を変えましょう
perlばかりみていたYO。。。
>>659
(≧∇≦)ﾌﾞｧｯﾊﾊ!
patio.cgiの464行目
<td><input type=text name=sub size=30 value="$resub" maxlength=30>
maxlengthの値を変えましょう
perlばかりみていたYO。。。
>>659
(≧∇≦)ﾌﾞｧｯﾊﾊ!
661 ：655：03/01/14 04:52 ID:hZLDsUe8
662 ：nobodyさん：03/01/14 05:52 ID:H5j11McP
663 ：nobodyさん：03/01/14 14:10 ID:VUdpm8ck
ttp://fitness.s7.xrea.com/index3.php
これをWinXPサーバで動かしたいのですが
rejpeg repng regifがどうもLinux専用らしいのです
Windows版 rejpeg repng regifってどこかにありませんか？
これをWinXPサーバで動かしたいのですが
rejpeg repng regifがどうもLinux専用らしいのです
Windows版 rejpeg repng regifってどこかにありませんか？
>>663
無い
無い
665 ：nobodyさん：03/01/14 18:31 ID:5gQYQZhs
http://csx.jp/~feger/ichat.txt
↑の奴やったんだけど５００エラーがでました
↑の奴やったんだけど５００エラーがでました
>>665
一行目は空白入れない
一行目は空白入れない
667 ：nobodyさん：03/01/14 20:44 ID:+oyPgr4P
1行目とは？
669 ：nobodyさん：03/01/14 21:11 ID:+oyPgr4P
ローカルで試せってどうやって？
>>665
これ見て勉強しなさい。
syntax error at line 308, near "$name "
Unmatched right curly bracket at line 321, at end of line
syntax error at line 321, near "}"
Execution of aborted due to compilation errors
これ見て勉強しなさい。
syntax error at line 308, near "$name "
Unmatched right curly bracket at line 321, at end of line
syntax error at line 321, near "}"
Execution of aborted due to compilation errors
おお、親切な>>670がエラーメッセージを出してくれたぞ。
これで意味がわからなければ>>665はもうプログラムいじるのやめろ。
これが理解できないようであれば、これから先他人に迷惑かけるだけだから。
これで意味がわからなければ>>665はもうプログラムいじるのやめろ。
これが理解できないようであれば、これから先他人に迷惑かけるだけだから。
>>665
なるほど、、ランキングを付けようとされてるのですね。
そのために追記された305行目の
elsif ($act eq "ranking") {viewranking();}{
}
のブラケット使い方、条件分岐の使い方が間違っています。
そこの部分を元に戻して
321行目の}の後に
elsif ($act eq "ranking") {viewranking();}
とでも入れてください。。
なるほど、、ランキングを付けようとされてるのですね。
そのために追記された305行目の
elsif ($act eq "ranking") {viewranking();}{
}
のブラケット使い方、条件分岐の使い方が間違っています。
そこの部分を元に戻して
321行目の}の後に
elsif ($act eq "ranking") {viewranking();}
とでも入れてください。。
>>600で
掲示板の書き込みで
”＞”のような引用を使うとその一文の文字色が変わり
背景色がつけられて 目立つ
ってのを教えてもらった者ですが
このＣＧＩ携帯からも閲覧＆書き込み可能なのですが
携帯から見た際には反映されていませんでした
携帯でアクセス際にも反映させるにはどうすればいいでしょうか？
それとも携帯からは無理でしょうかね？
一応ですが携帯でも<font color～>とかのタグには反応するので・・・
テキストは
ttp://www23.tok2.com/home/fura/yybbs.txt
です。
（トクトク仕様で見づらいですがソースで確認お願いします）
よろしくおねがいします
掲示板の書き込みで
”＞”のような引用を使うとその一文の文字色が変わり
背景色がつけられて 目立つ
ってのを教えてもらった者ですが
このＣＧＩ携帯からも閲覧＆書き込み可能なのですが
携帯から見た際には反映されていませんでした
携帯でアクセス際にも反映させるにはどうすればいいでしょうか？
それとも携帯からは無理でしょうかね？
一応ですが携帯でも<font color～>とかのタグには反応するので・・・
テキストは
ttp://www23.tok2.com/home/fura/yybbs.txt
です。
（トクトク仕様で見づらいですがソースで確認お願いします）
よろしくおねがいします
>674
携帯用のHTMLタグを勉強汁！！
携帯用のHTMLタグを勉強汁！！
（＾＾）
>>678
600以降のやり取りと674のテキストをみてマターリできるような香具師ははっきり言ってｷﾓｲ
600以降のやり取りと674のテキストをみてマターリできるような香具師ははっきり言ってｷﾓｲ
>674
よく分らないテキストはうっちゃっておいて。。
どのみちスタイルシートと同様で
全ての携帯向けに背景色を指定するのはできませんし
<FONT color=～で文字色にて目立たせるか
<B>などで強調して表示させるほうがベターなのではないでしょうか。
よく分らないテキストはうっちゃっておいて。。
どのみちスタイルシートと同様で
全ての携帯向けに背景色を指定するのはできませんし
<FONT color=～で文字色にて目立たせるか
<B>などで強調して表示させるほうがベターなのではないでしょうか。
お騒がせしてスマソ
テキストはこちらで
http://www23.tok2.com/home/fura/yybbs.bin
よく調べればできることでした。見苦しいものを見せてしまって申し訳。
>>680
おっしゃるとおりにしようと思います
背景色設定は無理ですね。
＞の引用を使った時に文字色を変えて目立たせようと思うのですが
携帯からの閲覧に反映するには教えてもらった
$commentと$com をどこに挿入すればよいかわからなくて…
たびたびすいませんがわかる方よろしくおねがいします。
テキストはこちらで
http://www23.tok2.com/home/fura/yybbs.bin
よく調べればできることでした。見苦しいものを見せてしまって申し訳。
>>680
おっしゃるとおりにしようと思います
背景色設定は無理ですね。
＞の引用を使った時に文字色を変えて目立たせようと思うのですが
携帯からの閲覧に反映するには教えてもらった
$commentと$com をどこに挿入すればよいかわからなくて…
たびたびすいませんがわかる方よろしくおねがいします。
>>681
お疲れさまです。
書き換え易いように下方の行から・・・
yybbs.binの1273行に
$com =~s/(^|<br>)～
を追加することで検索時にも強調されます。これは携帯用のではありません。
695行に
$comment =~s/(^|<br>)～
を追加。これが件の携帯表示用タグを指定します。
639行にある
$comment =~s/(^|<br>)～
は少し上の625行にでも移動した方が他の処理との都合上良い筈です。
600行の
$com =~s/(^|<br>)～
これも携帯用途です。577行に書き換えましょう。
566、567行はprint文よりも前に$commentを置き換えましょう。
$comment =~s/(^|<br>)～
print "$comment\n";
こんな感じにです。ここも携帯向けのタグを指定します。
とりあえずはこんな所だろうと思います。。
お疲れさまです。
書き換え易いように下方の行から・・・
yybbs.binの1273行に
$com =~s/(^|<br>)～
を追加することで検索時にも強調されます。これは携帯用のではありません。
695行に
$comment =~s/(^|<br>)～
を追加。これが件の携帯表示用タグを指定します。
639行にある
$comment =~s/(^|<br>)～
は少し上の625行にでも移動した方が他の処理との都合上良い筈です。
600行の
$com =~s/(^|<br>)～
これも携帯用途です。577行に書き換えましょう。
566、567行はprint文よりも前に$commentを置き換えましょう。
$comment =~s/(^|<br>)～
print "$comment\n";
こんな感じにです。ここも携帯向けのタグを指定します。
とりあえずはこんな所だろうと思います。。
684 ：621：03/01/15 17:35 ID:6md+W64o
>>673
elsif (($act eq "mainframe") || ($act eq "changeframe")){
}
elsif ($act eq "ranking") {viewranking();}
でいいってことですか？これでやったらまた５００えらーがでました
elsif (($act eq "mainframe") || ($act eq "changeframe")){
}
elsif ($act eq "ranking") {viewranking();}
でいいってことですか？これでやったらまた５００えらーがでました
>>684
行番号が表示できるエディタを使用していないの？
321行目ですよ。。
elsif (($act eq "mainframe") || ($act eq "changeframe")){
#入室時・変更時のみクッキー書きこみ
$name = $ip if $name eq "";
$color = $new_sel_color if $sel_color[$color] eq "" || $color eq "";
$icon = $new_icon_list if $icon_list[$icon] eq "" || $icon eq "";
$lines = $new_indicate_lines if $indicate_lines[$lines] eq "" || $lines eq "";
$reloadtime = $new_reload_time if $reload_time[$reloadtime] eq "" || $reloadtime eq "";
$hrindi = 0 if $hrindi != 0 && $hrindi != 1;
print "Set-Cookie:name=$name;expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie:color=$color;expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie:icon=$icon;expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie:lines=$lines;expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie:reloadtime=$reloadtime;expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie:hrindi=$hrindi;expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie:address=$address;expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
}
elsif ($act eq "ranking") {viewranking();}
全部書くとこうなります。。。
行番号が表示できるエディタを使用していないの？
321行目ですよ。。
elsif (($act eq "mainframe") || ($act eq "changeframe")){
#入室時・変更時のみクッキー書きこみ
$name = $ip if $name eq "";
$color = $new_sel_color if $sel_color[$color] eq "" || $color eq "";
$icon = $new_icon_list if $icon_list[$icon] eq "" || $icon eq "";
$lines = $new_indicate_lines if $indicate_lines[$lines] eq "" || $lines eq "";
$reloadtime = $new_reload_time if $reload_time[$reloadtime] eq "" || $reloadtime eq "";
$hrindi = 0 if $hrindi != 0 && $hrindi != 1;
print "Set-Cookie:name=$name;expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie:color=$color;expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie:icon=$icon;expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie:lines=$lines;expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie:reloadtime=$reloadtime;expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie:hrindi=$hrindi;expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie:address=$address;expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
}
elsif ($act eq "ranking") {viewranking();}
全部書くとこうなります。。。
688 ：nobodyさん：03/01/15 18:28 ID:6md+W64o
行番号表示するエディタもってません、
なんかいいやつありませんか？
なんかいいやつありませんか？
690 ：nobodyさん：03/01/15 19:23 ID:ZEY+vyxw
TeraPadをＤＬしましたが行番号のところやっても全然違うところぁ
なんかできない
なんかできない
>>690
わーお！！
速レスで分かりませんでしたか。。
ひょっとしてネタなんじゃ・・・いや、ネタでもマジでもいいのですけれどね。。
もう一度返答するのでしばしお待ちくださいませ。
夕飯に食べる物が無かったので外食してきます。
わーお！！
速レスで分かりませんでしたか。。
ひょっとしてネタなんじゃ・・・いや、ネタでもマジでもいいのですけれどね。。
もう一度返答するのでしばしお待ちくださいませ。
夕飯に食べる物が無かったので外食してきます。
>>663
ttp://sugachan.dip.jp/download/joyful.php
こういうのもある・・・
Winってことは自鯖だろうからPerlModuleくらい
やり方かいてあるし入れられるだろ
ttp://sugachan.dip.jp/download/joyful.php
こういうのもある・・・
Winってことは自鯖だろうからPerlModuleくらい
やり方かいてあるし入れられるだろ
>>690
元になったバージョンと比較をやらせて、書き直してあります。
ttp://ruffnex.oc.to/ipusiron/upload/1658.zip
適当なアップローダにアップしてみましたのでDLどうぞ。
ランキング機能は>>647氏のレスのとおりです。
他に自己的に書き換えたと思われる箇所を拝見した限りでは
エディタなどで戸惑うとは思えませんし
サーバに転送するだけでおそらく動作するハズの物ですので
試して見てくださいませ。。
>>647氏に感謝を忘れずに。。。
元になったバージョンと比較をやらせて、書き直してあります。
ttp://ruffnex.oc.to/ipusiron/upload/1658.zip
適当なアップローダにアップしてみましたのでDLどうぞ。
ランキング機能は>>647氏のレスのとおりです。
他に自己的に書き換えたと思われる箇所を拝見した限りでは
エディタなどで戸惑うとは思えませんし
サーバに転送するだけでおそらく動作するハズの物ですので
試して見てくださいませ。。
>>647氏に感謝を忘れずに。。。
696 ：nobodyさん：03/01/16 16:35 ID:HW8AcD+V
697 ：nobodyさん：03/01/16 19:41 ID:liMeeWq+
スンマセン、ﾁｮﾄ聞いていいっすか？
♪ｽｸﾘﾌﾟﾄをPATH_INFO対応にしようと思っていじってるんスけど、どうにもワカランところがあります。
bbs.cgi（778行目）とsubbbs.cgi（581行目）の↓が文法エラーになるっす。
$FORM{'MESSAGE'} =~ s/($check)>>([\d]+)-([\d]+)/$1<a href="..\/jikkou\/read.cgi?bbs=$FORM{'bbs'}&key=$FORM{'key'}&st=$2&to=$3&nofirst=true" target="_blank">>>$2-$3<\/a>/g;
$FORM{'MESSAGE'} =~ s/($check)>>([\d]+)([^-\d])/$1<a href="..\/jikkou\/read.cgi?bbs=$FORM{'bbs'}&key=$FORM{'key'}&st=$2&to=$2&nofirst=true" target="_blank">>>$2<\/a>$3/g;
$FORM{'MESSAGE'} =~ s/($check)>>([\d]+)-([^\d])/$1<a href="..\/jikkou\/read.cgi?bbs=$FORM{'bbs'}&key=$FORM{'key'}&st=$2&nofirst=true" target="_blank">>>$2-<\/a>$3/g;
よろしくっす。
♪ｽｸﾘﾌﾟﾄをPATH_INFO対応にしようと思っていじってるんスけど、どうにもワカランところがあります。
bbs.cgi（778行目）とsubbbs.cgi（581行目）の↓が文法エラーになるっす。
$FORM{'MESSAGE'} =~ s/($check)>>([\d]+)-([\d]+)/$1<a href="..\/jikkou\/read.cgi?bbs=$FORM{'bbs'}&key=$FORM{'key'}&st=$2&to=$3&nofirst=true" target="_blank">>>$2-$3<\/a>/g;
$FORM{'MESSAGE'} =~ s/($check)>>([\d]+)([^-\d])/$1<a href="..\/jikkou\/read.cgi?bbs=$FORM{'bbs'}&key=$FORM{'key'}&st=$2&to=$2&nofirst=true" target="_blank">>>$2<\/a>$3/g;
$FORM{'MESSAGE'} =~ s/($check)>>([\d]+)-([^\d])/$1<a href="..\/jikkou\/read.cgi?bbs=$FORM{'bbs'}&key=$FORM{'key'}&st=$2&nofirst=true" target="_blank">>>$2-<\/a>$3/g;
よろしくっす。
>>697
Syntax OK
Syntax OK
699 ：nobodyさん：03/01/17 16:33 ID:1khKuUwT
自分なりに改造というか流用を試みたのですが名無し投稿を可能にするぐらいしか
できませんでした。yybbsが吹き出し型・投稿フォームが別。という以外はほとんど
無改造のyybbsと変わりません。設定が別ファイルに分かれてます。
スクリプト
ttp://www.geocities.co.jp/SiliconValley-SanJose/7269/yybbs.txt
加えたい機能があるスクリプト
ttp://www.geocities.co.jp/SiliconValley-SanJose/7269/yy2ch.txt
[1] 投稿者：名無しさん 投稿日： ～
みたいな感じで投稿者の前に番号をつけたいんです。言いたいことはここを
みてもらえれば分かると思います。
ttp://uho.s7.xrea.com/cgi-bin/yy2ch/yy2ch.cgi
バージョンが同じなんですがいまいちわかりません。協力お願いします。
できませんでした。yybbsが吹き出し型・投稿フォームが別。という以外はほとんど
無改造のyybbsと変わりません。設定が別ファイルに分かれてます。
スクリプト
ttp://www.geocities.co.jp/SiliconValley-SanJose/7269/yybbs.txt
加えたい機能があるスクリプト
ttp://www.geocities.co.jp/SiliconValley-SanJose/7269/yy2ch.txt
[1] 投稿者：名無しさん 投稿日： ～
みたいな感じで投稿者の前に番号をつけたいんです。言いたいことはここを
みてもらえれば分かると思います。
ttp://uho.s7.xrea.com/cgi-bin/yy2ch/yy2ch.cgi
バージョンが同じなんですがいまいちわかりません。協力お願いします。
>>694
ttp://sugachan.dip.jp/download/joyful.php#win
Win用のﾊﾞｲﾅﾘ作って見たが・・・
GIFは読み出すにもLZW特許関連でめんどくさいんで
SusiePlug-inで対応
でもこうするとWinでPerlMagickｲﾝｽﾄｰﾙする意味がなくなるような:)
ttp://sugachan.dip.jp/download/joyful.php#win
Win用のﾊﾞｲﾅﾘ作って見たが・・・
GIFは読み出すにもLZW特許関連でめんどくさいんで
SusiePlug-inで対応
でもこうするとWinでPerlMagickｲﾝｽﾄｰﾙする意味がなくなるような:)
ところで誰か 動作報告くれないかな？
動いたサンプル数が自分の所含めて1～2のまま配るのはコワイ（ｗ
虹板のうｐろだスレのほうがいいかな？
動いたサンプル数が自分の所含めて1～2のまま配るのはコワイ（ｗ
虹板のうｐろだスレのほうがいいかな？
702 ：nobodyさん：03/01/17 20:56 ID:15DclOIz
http://sara.vis.ne.jp/sample/lettern/dkakikomitaipost.cgi
すみませんが、ご教授お願いいたします。
上記掲示板を、管理人のみレス付けができるように変更したいのです。
下記にTEXTを置いていますので、どこをどう変更したらいいのか教えて
頂けませんか。
よろしくお願い致します。
http://www.geocities.co.jp/Milano/3993/dkakikomitaipost.txt
すみませんが、ご教授お願いいたします。
上記掲示板を、管理人のみレス付けができるように変更したいのです。
下記にTEXTを置いていますので、どこをどう変更したらいいのか教えて
頂けませんか。
よろしくお願い致します。
http://www.geocities.co.jp/Milano/3993/dkakikomitaipost.txt
>>702
815:print "<td width=5> </td><td width=10%><INPUT TYPE=button VALUE=\"Res-Mode ON→OFF\" ";
816:print "onClick=\"location.href = \'$script\'\" class=BOT></td></form>\n";
↓
815:print "<td width=5> </td><td width=10%> ";
816:print "</td></form>\n";
1067:print "<input type=\"submit\" value=\"Res\" class=BOT>\n";
↓
1067:#print "<input type=\"submit\" value=\"Res\" class=BOT>\n";
dkakikomitaipost.cgiの修正前のレスのできるファイルもUPしておいて
修正後のファイルを公開、修正前のファイルは自分のレス用にする
こんなでどうかな？動作確認してないし、
漏れ初心者だから動かなかったらごめん。
815:print "<td width=5> </td><td width=10%><INPUT TYPE=button VALUE=\"Res-Mode ON→OFF\" ";
816:print "onClick=\"location.href = \'$script\'\" class=BOT></td></form>\n";
↓
815:print "<td width=5> </td><td width=10%> ";
816:print "</td></form>\n";
1067:print "<input type=\"submit\" value=\"Res\" class=BOT>\n";
↓
1067:#print "<input type=\"submit\" value=\"Res\" class=BOT>\n";
dkakikomitaipost.cgiの修正前のレスのできるファイルもUPしておいて
修正後のファイルを公開、修正前のファイルは自分のレス用にする
こんなでどうかな？動作確認してないし、
漏れ初心者だから動かなかったらごめん。
>>697のPATH_INFOにしようとしたんだけど、
$FORM{'MESSAGE'} =~ s/($check)>>([\d]+)-([\d]+)/$1<a href="..\/test\/read.cgi/$FORM{'bbs'}/$FORM{'key'}/$2-$3&nofirst=true" target="_blank">>>$2-$3<\/a>/g;
$FORM{'MESSAGE'} =~ s/($check)>>([\d]+)([^-\d])/$1<a href="..\/test\/read.cgi/$FORM{'bbs'}/$FORM{'key'}/$2-$2&nofirst=true" target="_blank">>>$2<\/a>$3/g;
$FORM{'MESSAGE'} =~ s/($check)>>([\d]+)-([^\d])/$1<a href="..\/test\/read.cgi/$FORM{'bbs'}/$FORM{'key'}/$2&nofirst=true" target="_blank">>>$2-<\/a>$3/g;
じゃ Scalar found where operator expected at bbs.cgi line 769 ていわれる・・・
どう改善すりゃいいんかね？？
$FORM{'MESSAGE'} =~ s/($check)>>([\d]+)-([\d]+)/$1<a href="..\/test\/read.cgi/$FORM{'bbs'}/$FORM{'key'}/$2-$3&nofirst=true" target="_blank">>>$2-$3<\/a>/g;
$FORM{'MESSAGE'} =~ s/($check)>>([\d]+)([^-\d])/$1<a href="..\/test\/read.cgi/$FORM{'bbs'}/$FORM{'key'}/$2-$2&nofirst=true" target="_blank">>>$2<\/a>$3/g;
$FORM{'MESSAGE'} =~ s/($check)>>([\d]+)-([^\d])/$1<a href="..\/test\/read.cgi/$FORM{'bbs'}/$FORM{'key'}/$2&nofirst=true" target="_blank">>>$2-<\/a>$3/g;
じゃ Scalar found where operator expected at bbs.cgi line 769 ていわれる・・・
どう改善すりゃいいんかね？？
すなおに0chでもつかってお（ｒｙ
０ちゃんねるは将来がたのしみなところ。
いまはまだ～ 16歳だかｒ
いまはまだ～ 16歳だかｒ
http://www.coolandcool.net/sample/cb/c_note.cgi
このスクリプトのフォーム部分を改造しようと思って色々やってみたんですが、
何度やってもエラーが出て表示が出来ません。
http://www.geocities.co.jp/SiliconValley-SanJose/3126/form.html
このようにしたいのですがどうしたら出来るのでしょうか。
http://www.geocities.co.jp/SiliconValley-SanJose/3126/cn-set.txt
スクリプトはこれです。御教授お願いします。
このスクリプトのフォーム部分を改造しようと思って色々やってみたんですが、
何度やってもエラーが出て表示が出来ません。
http://www.geocities.co.jp/SiliconValley-SanJose/3126/form.html
このようにしたいのですがどうしたら出来るのでしょうか。
http://www.geocities.co.jp/SiliconValley-SanJose/3126/cn-set.txt
スクリプトはこれです。御教授お願いします。
708 ：nobodyさん：03/01/18 14:25 ID:jS0nQcA8
>>709さん
http://www.coolandcool.net/service/power-cgi/cb/down.html
ここにあるファイルでいいみたいです。
セットの中のcgiはファイル毎にバージョンが違うみたいなんで。
メイン表示時のスクリプトのバージョンは4.6のままです。
http://www.coolandcool.net/service/power-cgi/cb/down.html
ここにあるファイルでいいみたいです。
セットの中のcgiはファイル毎にバージョンが違うみたいなんで。
メイン表示時のスクリプトのバージョンは4.6のままです。
あ、メイン表示じゃなくて設定ファイルだった。すんません。
ttp://www1.big.or.jp/~talk/t-club/soft/room01/ftp-box/imgboard_opera_cgi.txt
のimgboard.cgiに
ttp://sugachan.dip.jp/download/joyful.php
のWin版リサイズプログラムを組み込むように改造するのは
どうやればいいのでしょうか？
のimgboard.cgiに
ttp://sugachan.dip.jp/download/joyful.php
のWin版リサイズプログラムを組み込むように改造するのは
どうやればいいのでしょうか？
699なんですが・・・。どなたか答えていただけないでしょうか？
手間だということは分かっているんですが・・・。
手間だということは分かっているんですが・・・。
>>713
214行目にいきなり $num って変数でてきてるけど、>>699にアップしてるファイルは
自分で改造を試みた途中のもの？
それと設定ファイル別ですってそれないと確認のための動作テストもできないし。
レスつかないのも当たり前と思うが
とりあえず勘で。186行目から
if ($reno eq "") { $i++; $num=0;}
if ($i < $start) { next; }
if ($i > $end) { next; }
$num++;
214行目にいきなり $num って変数でてきてるけど、>>699にアップしてるファイルは
自分で改造を試みた途中のもの？
それと設定ファイル別ですってそれないと確認のための動作テストもできないし。
レスつかないのも当たり前と思うが
とりあえず勘で。186行目から
if ($reno eq "") { $i++; $num=0;}
if ($i < $start) { next; }
if ($i > $end) { next; }
$num++;
715 ：nobodyさん：03/01/19 23:00 ID:aB6Qct6i
KENTさんのweb patio という掲示板 http://www.kent-web.com/bbs/patio/patio.cgi
を携帯からもキレイに見れるようには出来ますか？？？
よろしくお願い致しますｍ（＿＿）ｍ
を携帯からもキレイに見れるようには出来ますか？？？
よろしくお願い致しますｍ（＿＿）ｍ
http://cgi.bookstudio.com/patio/patio.cgi
ここでは携帯対応のバージョンがレンタルできるんですが、
レンタル料が月に７００円。
自分が借りてるサーバー代より高いんで断念して、
色々試行錯誤はしてみたんですけどどうしも出来ませんでした…。
ここでは携帯対応のバージョンがレンタルできるんですが、
レンタル料が月に７００円。
自分が借りてるサーバー代より高いんで断念して、
色々試行錯誤はしてみたんですけどどうしも出来ませんでした…。
>>717
需要のあるスクリプトはだいたい以下のサイトで見つけられます。
http://bcp.jpnet.biz/
http://www.i-say.net/cgi/
携帯対応CGI配布サイトで有名なところ
CGIぽん
http://specters.net/cgipon/
The room
http://dream.lib.net/room/
需要のあるスクリプトはだいたい以下のサイトで見つけられます。
http://bcp.jpnet.biz/
http://www.i-say.net/cgi/
携帯対応CGI配布サイトで有名なところ
CGIぽん
http://specters.net/cgipon/
The room
http://dream.lib.net/room/
719 ：nobodyさん：03/01/20 01:58 ID:K3JQNvbX
>>714
動きました。ありがとうございました。$numがいきなりでてきてる理由は
仰る通りです。
それで最後にもうひとつ改造したいところがあるので協力お願いします。
スクリプト
ttp://www.geocities.co.jp/SiliconValley-SanJose/7269/yybbs.txt
上記スクリプトの設定ファイル
ttp://www.geocities.co.jp/SiliconValley-SanJose/7269/set.txt
それで追加したい機能なんですが一定件数に達したら（５件表示ぐらいで）
古いレスが隠されるようにしたいんです。（ようはここの掲示板みたいな感じです。）
そしてその格納されているレスを返信ボタンを押すと全部みれるようにしたいんです。
なんつ～か理由つけて結局、人まかせと思われても仕方ないと思いますけど
お願いします。
動きました。ありがとうございました。$numがいきなりでてきてる理由は
仰る通りです。
それで最後にもうひとつ改造したいところがあるので協力お願いします。
スクリプト
ttp://www.geocities.co.jp/SiliconValley-SanJose/7269/yybbs.txt
上記スクリプトの設定ファイル
ttp://www.geocities.co.jp/SiliconValley-SanJose/7269/set.txt
それで追加したい機能なんですが一定件数に達したら（５件表示ぐらいで）
古いレスが隠されるようにしたいんです。（ようはここの掲示板みたいな感じです。）
そしてその格納されているレスを返信ボタンを押すと全部みれるようにしたいんです。
なんつ～か理由つけて結局、人まかせと思われても仕方ないと思いますけど
お願いします。
>718
ありがとうございます。見てみます！
ありがとうございます。見てみます！
721 ：nobodyさん：03/01/20 22:51 ID:VXONO5Hx
凄く初歩的な質問ですみませんが、ご教授お願いいたします。
kent氏のYY-BOARDに、「年齢」や「仕事」などの質問項目を入れたいのですが、
どこを触ればいいのか、わかりません。
本当に申し訳ないですが、どなたか教えて下さい。
よろしくお願いいたします。
kent氏のYY-BOARDに、「年齢」や「仕事」などの質問項目を入れたいのですが、
どこを触ればいいのか、わかりません。
本当に申し訳ないですが、どなたか教えて下さい。
よろしくお願いいたします。
ここで質問する奴に言ってみたい。ていうか、ぜひ答えを聞かせて欲しい。
「身銭切って改造頼むのはなしなのか？」
いやさ、その方がどっちも幸せになれると思うんだよ。
「身銭切って改造頼むのはなしなのか？」
いやさ、その方がどっちも幸せになれると思うんだよ。
>>722
既存のスクリプトに機能を足すだけで身銭を切る必要があるのかが疑問。ただ単に
高機能な掲示板が欲しいとかだったらいくらでもフリーのものがあるわけだから
ここで聞いてる厨はスクリプトを自力でなんとかしようってしてるだけマシだと
思うが・・・。金、払っていいものできてもそれじゃあいつまでたっても自分じゃ
かけるようになれんしね・・・とマジレスしてみる。
既存のスクリプトに機能を足すだけで身銭を切る必要があるのかが疑問。ただ単に
高機能な掲示板が欲しいとかだったらいくらでもフリーのものがあるわけだから
ここで聞いてる厨はスクリプトを自力でなんとかしようってしてるだけマシだと
思うが・・・。金、払っていいものできてもそれじゃあいつまでたっても自分じゃ
かけるようになれんしね・・・とマジレスしてみる。
Perlのパの字も分からなくてさ、自分で改造する気もなくて
自分の使うのに都合良いスクリプトだけ欲しいから
全部ソース書いてくれってのも、たま～にいる気がする。
自分の使うのに都合良いスクリプトだけ欲しいから
全部ソース書いてくれってのも、たま～にいる気がする。
>>723
ここに書き込んでる時点で自分でなんとかしようとかいう気はないと思える。
>>721とか見てみろ。
>>1に
「(3) 出来るだけ詳しく書くこと。少しは自分で考えること。」
と明記されているにもかかわらず
「どこを触ればいいのか、わかりません。」の一言で努力の一切を放棄してる。
言語を学ぶ気がないなら、かわりに金で解決するのも立派な手段だと思う。
だけど、言語を学ぶ気もなく、金を払う気もないなら、
厨呼ばわりされたってしょうがなかろよ。
まあ、身銭ったってさ。
誰かが「アフターサービス一切なし、一項目の改造につき300円」とか言い出せば、
ここに書き込んでる連中はなんて反応するだろうね。
ここに書き込んでる時点で自分でなんとかしようとかいう気はないと思える。
>>721とか見てみろ。
>>1に
「(3) 出来るだけ詳しく書くこと。少しは自分で考えること。」
と明記されているにもかかわらず
「どこを触ればいいのか、わかりません。」の一言で努力の一切を放棄してる。
言語を学ぶ気がないなら、かわりに金で解決するのも立派な手段だと思う。
だけど、言語を学ぶ気もなく、金を払う気もないなら、
厨呼ばわりされたってしょうがなかろよ。
まあ、身銭ったってさ。
誰かが「アフターサービス一切なし、一項目の改造につき300円」とか言い出せば、
ここに書き込んでる連中はなんて反応するだろうね。
入会金が3000円で、年会費が12000円です。
確かに721ぐらいの改造なら知識なくてもG-Light辺りからパクってくれば
すみそうなもんだもんな。そもそも初歩的と分かってるなら自分でなんとかしろ
と思う。
関係ないけどパート１スレ
ttp://web.archive.org/web/20010530073959/tako.2ch.net/test/read.cgi?bbs=perl&key=958370869
まぁ「http://web.archive.org/web/*/」で呼び出しただけなんだけど。
すみそうなもんだもんな。そもそも初歩的と分かってるなら自分でなんとかしろ
と思う。
関係ないけどパート１スレ
ttp://web.archive.org/web/20010530073959/tako.2ch.net/test/read.cgi?bbs=perl&key=958370869
まぁ「http://web.archive.org/web/*/」で呼び出しただけなんだけど。
>>727
実は安くならない。マイクロソフトのサポート風にやるから。
たとえば、>>721を顧客とするなら、
「二項目なので600円いただきます」
追加されたフォームの位置が気に食わないとクレーム
「二箇所のフォームの位置変更ですのでさらに600円いただきます」
とできる。
アフターサービスはしないって明言してるしね。
動作確認（これは最後の良心）も含めて10分で1200円手に入るなら、御の字じゃねえ？
他にも、
>>719が顧客だったら、
「複数箇所をいじらなければならなかったので600円いただきます」
http://pc.2ch.net/test/read.cgi/php/1037222063/790-793 が顧客だったら
「FTPのアカウントとパスをいただければ300円で設置をします」
とかね。
実は安くならない。マイクロソフトのサポート風にやるから。
たとえば、>>721を顧客とするなら、
「二項目なので600円いただきます」
追加されたフォームの位置が気に食わないとクレーム
「二箇所のフォームの位置変更ですのでさらに600円いただきます」
とできる。
アフターサービスはしないって明言してるしね。
動作確認（これは最後の良心）も含めて10分で1200円手に入るなら、御の字じゃねえ？
他にも、
>>719が顧客だったら、
「複数箇所をいじらなければならなかったので600円いただきます」
http://pc.2ch.net/test/read.cgi/php/1037222063/790-793 が顧客だったら
「FTPのアカウントとパスをいただければ300円で設置をします」
とかね。
お前ら2chのスクリプト改造工房にいる以上は金の話はやめれ
734 ：真実事実をご覧ください。：03/01/23 06:30 ID:w3+JDQYa
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| マスター～2chの文字絵はAA(asciiart)ではなくJISアートだが
| なぜアスキーアートと嘘の情報が信じられているんですか。
| http://www1.ryucom.ne.jp/papa/asciiart.htm ←ココ文字絵理論
|＿＿＿＿ ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
V
＿＿_. ∧＿∧ ／￣￣￣￣￣￣￣￣￣￣￣
∧＿∧ / │ （´Д｀；）△ ＜ 2chの管理人に聞けや…
（ ･∀） / 凸 │ （ つ つ＼ 目＼＿＿＿＿＿＿＿＿＿＿＿
（ `つ日 凵 ｜ ││ │ .|＼凸./ |
┏（＿_ /.Ｙ │ （__（_＿）＼| .|＼| |
┗┳┳(___|￣￣￣￣'| ＼| | ｜
┃┃ | | ＼.| │
┻┻ | |
735 ：nobodyさん：03/01/23 07:00 ID:MK3OE1fp
★http://jsweb.muvc.net/index.html★
★こんなサイト見つけました★
★こんなサイト見つけました★
736 ：696：03/01/24 18:09 ID:/AgT52LQ
先日はichtに発言ランキングをつける改造を教えていただき誠に有難うございます。
ICHATはアイコンが使えます。
来る人来る人アイコンをチェックします。
だから掲示板みたいにアイコンを表示する機能の改造の仕方教えてください。
ICHATソース⇒http://csx.jp/~feger/ichat.txt
ICHATはアイコンが使えます。
来る人来る人アイコンをチェックします。
だから掲示板みたいにアイコンを表示する機能の改造の仕方教えてください。
ICHATソース⇒http://csx.jp/~feger/ichat.txt
738 ：696：03/01/24 18:27 ID:/AgT52LQ
おしえてください。
カカシさん、あなた一人で十分対処できます。
過去ログを見る限り、キリが無いので私はもうコメント致しません。
過去ログを見る限り、キリが無いので私はもうコメント致しません。
ttp://www.irao.com/irao/ir-i-bbs/
のBBSなんですが、
<BR><BR>を</P><P>に、
>のついてる一連の行を<BLOCKQUOTE>で括れるように改造できませんでしょうか？
イメージ的には
ttp://say.vis.ne.jp/script/picobbs/index.htm
ここの機能を搭載したいわけなんですが、こちらは携帯対応ではなかったので。
どうかお願いいたします。
のBBSなんですが、
<BR><BR>を</P><P>に、
>のついてる一連の行を<BLOCKQUOTE>で括れるように改造できませんでしょうか？
イメージ的には
ttp://say.vis.ne.jp/script/picobbs/index.htm
ここの機能を搭載したいわけなんですが、こちらは携帯対応ではなかったので。
どうかお願いいたします。
741 ：nobodyさん：03/01/26 16:02 ID:28lAB0x2
http://www.geocities.co.jp/Playtown-Spade/8161/index.html
ここ俺のサイト、みんなきてね。
ここ俺のサイト、みんなきてね。
引用の考え方としては、
>のある行の行頭に<BLOCKQUOTE>、
それ以降の>のない行の行頭に</BLOCKQUOTE>でいいんでしょうか？
>のある行の行頭に<BLOCKQUOTE>、
それ以降の>のない行の行頭に</BLOCKQUOTE>でいいんでしょうか？
まるちぽすとはやめれ！
>>744
散々放置しておいてそれか。
散々放置しておいてそれか。
放置って740からのカキコじゃないの？
まだ１日しかたってないじゃん
まだ１日しかたってないじゃん
イタイなー
えと、他のスレで聞いてきたらスレ違いでしたのでこちらの方に誘導されてきました。
本題です。
12chというスクリプトを使ってるんですけどmegabbsにある等幅チェックなるものを移植しようとしてます。
どなたか改造するポイントを教えてください。
因みに使っているバージョンは
ttp://mitinoku.jp/script/12ch_2.02.lzh
これです。
bbs.cgiというファイルを改造すればいいみたいです。
動作は、等幅チェックボタンをONにして書き込むと
<tt>「書き込み内容」</tt>
と、こんな風に<tt>タグでカキコの内容をはさむようにしたいです。
では、宜しくお願いいたしますです・・・。
megabbsでは等幅チェックの処理をこんな風にやってるみたいです
↓書き込みフォームの等幅チェック部分
等幅<input type=checkbox name=touhaba value=on>
↓$com(コメント)を<tt>ではさむ処理。
if ($email eq "haba" || $email eq "tohaba" ||$FORM{touhaba} eq "on"){$com="<tt>$com</tt>";$tt=1;}
12chのbbs.cgiのソース
http://www.geocities.co.jp/MusicHall-Horn/8887/bbs.txt
本題です。
12chというスクリプトを使ってるんですけどmegabbsにある等幅チェックなるものを移植しようとしてます。
どなたか改造するポイントを教えてください。
因みに使っているバージョンは
ttp://mitinoku.jp/script/12ch_2.02.lzh
これです。
bbs.cgiというファイルを改造すればいいみたいです。
動作は、等幅チェックボタンをONにして書き込むと
<tt>「書き込み内容」</tt>
と、こんな風に<tt>タグでカキコの内容をはさむようにしたいです。
では、宜しくお願いいたしますです・・・。
megabbsでは等幅チェックの処理をこんな風にやってるみたいです
↓書き込みフォームの等幅チェック部分
等幅<input type=checkbox name=touhaba value=on>
↓$com(コメント)を<tt>ではさむ処理。
if ($email eq "haba" || $email eq "tohaba" ||$FORM{touhaba} eq "on"){$com="<tt>$com</tt>";$tt=1;}
12chのbbs.cgiのソース
http://www.geocities.co.jp/MusicHall-Horn/8887/bbs.txt
>749
＞では、宜しくお願いいたしますです・・・。
ﾊｧ?（゜д゜）
俺はお前の下僕でもなけりゃお客様でもないんだよ！
なぁにが「では、お願いします」だ。
ｱﾌｫ化、自分の希望通りにしたかったら金払って改造してもらえｳﾞｧｶ！
こっちは有志だってこと忘れんなよ！
＞では、宜しくお願いいたしますです・・・。
ﾊｧ?（゜д゜）
俺はお前の下僕でもなけりゃお客様でもないんだよ！
なぁにが「では、お願いします」だ。
ｱﾌｫ化、自分の希望通りにしたかったら金払って改造してもらえｳﾞｧｶ！
こっちは有志だってこと忘れんなよ！
道に落ちてるもんでも食ったのかお前？
まあ、ここの連中は金に目がくらんで以降何にもしてないわけだが。
755 ：nobodyさん：03/01/27 23:10 ID:Wa/8lWRk
いろんな所で聞きまくりでもうしわけないのですが。
http://php.s3.to/bbs/bbs7.phpの自動受信のやりかた。
本ページで聞いても流されてしまうようです｡
どなたかわかりますか？？？
http://php.s3.to/bbs/bbs7.phpの自動受信のやりかた。
本ページで聞いても流されてしまうようです｡
どなたかわかりますか？？？
756 ：755：03/01/28 00:13 ID:CvJ+0lN2
あっ、なんか飛べないみたいですね。
http://php.s3.to/の写メールBBSについてです｡
http://php.s3.to/の写メールBBSについてです｡
なんかほんとこのスレ金の話がでてからダメだよな・・・
サンプルコード
http://archives.neohapsis.com/archives/vuln-dev/2002-q3/0472.html
このワームはどこぞのコピペ厨が作ったに一票。
http://www.st.ryukoku.ac.jp/~kjm/security/ml-archive/exploitcoding/2003.01/msg00066.html
http://www.st.ryukoku.ac.jp/~kjm/security/ml-archive/exploitcoding/2003.01/threads.html#00063
http://www.st.ryukoku.ac.jp/~kjm/security/ml-archive/incidents/2003.01/msg00119.html
http://www.digitaloffense.net/worms/mssql_udp_worm/
http://archives.neohapsis.com/archives/vuln-dev/2002-q3/0472.html
このワームはどこぞのコピペ厨が作ったに一票。
http://www.st.ryukoku.ac.jp/~kjm/security/ml-archive/exploitcoding/2003.01/msg00066.html
http://www.st.ryukoku.ac.jp/~kjm/security/ml-archive/exploitcoding/2003.01/threads.html#00063
http://www.st.ryukoku.ac.jp/~kjm/security/ml-archive/incidents/2003.01/msg00119.html
http://www.digitaloffense.net/worms/mssql_udp_worm/
>>758
みんなダルいんじゃない？金もらえないから。
みんなダルいんじゃない？金もらえないから。
763 ：nobodyさん：03/01/28 20:03 ID:NiVVWd4k
>>761
ファイルロックをちゃんとしろ。
ファイルロックをちゃんとしろ。
すみませーん
ずるぽんあぷろだをいじくって病上がり風にしたんですけれど
ちょっと下のページの
http://mint363.ddo.jp/slx/ulx.cgi ←ここ
真ん中らへんに
「アプするファィル(50000K) このファイルは....」
ってなってる所の上に一行隙間があいてるんです
この隙間を消したいんですけれど(今は一行開いている)どうすればいいんでしょうか
あぷろだのcgiスクリプトは
http://mint363.ddo.jp/sc.zip
です
もし暇があられたらよろしくお願いします
ずるぽんあぷろだをいじくって病上がり風にしたんですけれど
ちょっと下のページの
http://mint363.ddo.jp/slx/ulx.cgi ←ここ
真ん中らへんに
「アプするファィル(50000K) このファイルは....」
ってなってる所の上に一行隙間があいてるんです
この隙間を消したいんですけれど(今は一行開いている)どうすればいいんでしょうか
あぷろだのcgiスクリプトは
http://mint363.ddo.jp/sc.zip
です
もし暇があられたらよろしくお願いします
>>765
すみません今設定いじくりました
もしかしたら見れないかもしれないのでフリー鯖にcgi立てました
http://zall.bbzone.net/test/ulx.cgi
多分これで見られると思います、不都合が出てすみませんでした
それに>>764のcgiファイルですが一式をここに置きました
http://zall.bbzone.net/test/t.zip
ってかほんとすみません、確認を怠ってました
すみません今設定いじくりました
もしかしたら見れないかもしれないのでフリー鯖にcgi立てました
http://zall.bbzone.net/test/ulx.cgi
多分これで見られると思います、不都合が出てすみませんでした
それに>>764のcgiファイルですが一式をここに置きました
http://zall.bbzone.net/test/t.zip
ってかほんとすみません、確認を怠ってました
FORMタグがあると一行あくから、それじゃない？
<FORM>を問題ないところまで（？）上に持っていく、で大丈夫かな？
やってみてー
<FORM>を問題ないところまで（？）上に持っていく、で大丈夫かな？
やってみてー
>>766
マークアップが変。
・<form>の直前の <hr></p> を </p><hr>の順にする。
（p要素の中にブロックレベル要素であるhrが入るのは間違い）
・CSSに以下を追加
form { margin-top: 0 }
ついでに、body内にもstyle要素があるけど、headのほうにまとめたほうが
いいと思う。
マークアップが変。
・<form>の直前の <hr></p> を </p><hr>の順にする。
（p要素の中にブロックレベル要素であるhrが入るのは間違い）
・CSSに以下を追加
form { margin-top: 0 }
ついでに、body内にもstyle要素があるけど、headのほうにまとめたほうが
いいと思う。
770 ：nobodyさん：03/02/03 17:10 ID:5qWxw95W
ichatの入室メッセージ退室メッセージをランダムにしたいんですけど、どのような改造したらいいでしょうか
ソース⇒http://csx.jp/~feger/ichat.txt
教えてくださると幸いです。
ソース⇒http://csx.jp/~feger/ichat.txt
教えてくださると幸いです。
入室時及び退室時の挨拶
# NAME のところに挨拶する相手の名前が自動的に入ります。
$admin_entermsg = 'ランダム';
$admin_byemsg = 'ランダム';
これでなります。
# NAME のところに挨拶する相手の名前が自動的に入ります。
$admin_entermsg = 'ランダム';
$admin_byemsg = 'ランダム';
これでなります。
772 ：nobodyさん：03/02/03 18:03 ID:tT3xOrLs
775 ：nobodyさん：03/02/06 13:25 ID:mhsFcb8i
http://www.aikis.or.jp/~s-suzuki/cgilabo/webcalender/
ここのウェブカレンダーなのですが、今日の日付のが分かりやすいように
日付の左にイメージを貼り付けたいのですが分かりません。
メイン画面の表示のあたりをいじればいいと思うんですが、うまくいきませんでした。
どなたかご教授お願いします。
ｿｰｽです。
http://www.42ch.net/UploaderSmall/source/1044505347.txt
ここのウェブカレンダーなのですが、今日の日付のが分かりやすいように
日付の左にイメージを貼り付けたいのですが分かりません。
メイン画面の表示のあたりをいじればいいと思うんですが、うまくいきませんでした。
どなたかご教授お願いします。
ｿｰｽです。
http://www.42ch.net/UploaderSmall/source/1044505347.txt
ソースが流れると悪いのでこちらにあぷしました。
http://ofskkh.tripod.com/webcalen_cgi.txt
http://ofskkh.tripod.com/webcalen_cgi.txt
>>775
$str = ($year == $yy && $month == $mon && $i == $mday) ? qq(<IMG SRC="hoge.gif" ALIGN="absmiddle">) : '';
print qq( <TD ALIGN="right" BGCOLOR="$bg_col" NOWRAP> $str$i </TD>\n);
所定の1行を上の2行で置き換えると近い処理が出来るはず。
どこを書き換えるかは自分で探すべし。
$str = ($year == $yy && $month == $mon && $i == $mday) ? qq(<IMG SRC="hoge.gif" ALIGN="absmiddle">) : '';
print qq( <TD ALIGN="right" BGCOLOR="$bg_col" NOWRAP> $str$i </TD>\n);
所定の1行を上の2行で置き換えると近い処理が出来るはず。
どこを書き換えるかは自分で探すべし。
どうもありがとうございました。
こんなに早く回答していただけるとは思いませんでした。
おかげで無事設置できました。スタイルも自分の思ったとおりで満足です。
こんなに早く回答していただけるとは思いませんでした。
おかげで無事設置できました。スタイルも自分の思ったとおりで満足です。
メールでも記事が書き込めるようにする改造って簡単には出来ないですよね。。。
>779
独り言なら脳内に留めておいてくれ
あんた次第だよ
独り言なら脳内に留めておいてくれ
あんた次第だよ
.qmailを置いておけばOK
いや、独り言ではないです。
http://wws.cside.com/cgi-plant/diary/の切って出し日記に
そんな改造を施せないものかと思いまして。
ググってはみたんですが改造に関する事は特になかったので
難しいものなのかと。
http://wws.cside.com/cgi-plant/diary/の切って出し日記に
そんな改造を施せないものかと思いまして。
ググってはみたんですが改造に関する事は特になかったので
難しいものなのかと。
そうか、ググって見つからないのか。難しくて大変だったな。
>>782
メールの受信をキーにしてCGIを動作させるということは、普通できないものだと
認識すべし。
一定時間ごとにCGI実行というのも同様。
やろうと思えばできないこともないが、たいていは自宅鯖などでroot権限がないと
ダメなことが多い。プロバイダや共用サーバ利用者はまず不可能。諦めれ。
メールの受信をキーにしてCGIを動作させるということは、普通できないものだと
認識すべし。
一定時間ごとにCGI実行というのも同様。
やろうと思えばできないこともないが、たいていは自宅鯖などでroot権限がないと
ダメなことが多い。プロバイダや共用サーバ利用者はまず不可能。諦めれ。
まあ、（脳内で）できないわけじゃないけど……
ユーザがメールを送信する（手動）それを反映させるために、
１．他人が日記を開いたときに時刻チェックをする。
２．以前のチェックから数分時間が経過してたら
メールサーバに接続・データ受信。
３．その内容をHTMLに反映させる。
これでどう？IMAP関数とかあるからPHPなら簡単にできそうだけど……
問題点は、メールの送信元チェックとかしっかりしないと
誰でも書き込めるという罠があるかもしれない。
ユーザがメールを送信する（手動）それを反映させるために、
１．他人が日記を開いたときに時刻チェックをする。
２．以前のチェックから数分時間が経過してたら
メールサーバに接続・データ受信。
３．その内容をHTMLに反映させる。
これでどう？IMAP関数とかあるからPHPなら簡単にできそうだけど……
問題点は、メールの送信元チェックとかしっかりしないと
誰でも書き込めるという罠があるかもしれない。
786 ：本７ ◆HON7/awDa. ：03/02/09 13:19 ID:???
またまたお願いします。
http://hon7.hp.infoseek.co.jp/cgi-bin/test/bbs.txt
と
http://hon7.hp.infoseek.co.jp/cgi-bin/test/trip.txt
を組み合わせて掲示板にトリップ機能を付けたいんですがどこにどう入れたらいいのかわかりません。
またどいう加工とが必要でしょうか？
もし他に２ｃｈ仕様のトリップ付く方法があればそちらでも結構です。
よろしくお願いします。
http://hon7.hp.infoseek.co.jp/cgi-bin/test/bbs.txt
と
http://hon7.hp.infoseek.co.jp/cgi-bin/test/trip.txt
を組み合わせて掲示板にトリップ機能を付けたいんですがどこにどう入れたらいいのかわかりません。
またどいう加工とが必要でしょうか？
もし他に２ｃｈ仕様のトリップ付く方法があればそちらでも結構です。
よろしくお願いします。
>>786
そりゃそのまま挿入しても動かんな。
フォームデータが入ってるハッシュの変数名が違ってるし、無関係な処理も含んでる。
キーは同じみたいだけど、そもそもそのソースはどっから持ってきたんだ？
まあいいや。とりあえず $in → $FORM に直してから
#情報の修正（名前） とか書いてあるあたりに突っ込んでみれば？
先頭のほうに use CGI::Carp qw(carpout fatalsToBrowser); って書いておけば
エラーがブラウザで見れるから、あとはそれ見ながら自分で直せ。
そりゃそのまま挿入しても動かんな。
フォームデータが入ってるハッシュの変数名が違ってるし、無関係な処理も含んでる。
キーは同じみたいだけど、そもそもそのソースはどっから持ってきたんだ？
まあいいや。とりあえず $in → $FORM に直してから
#情報の修正（名前） とか書いてあるあたりに突っ込んでみれば？
先頭のほうに use CGI::Carp qw(carpout fatalsToBrowser); って書いておけば
エラーがブラウザで見れるから、あとはそれ見ながら自分で直せ。
788 ：本７ ◆HON7/awDa. ：03/02/09 13:52 ID:???
789 ：本７ ◆HON7/awDa. ：03/02/09 14:11 ID:???
>>786
http://hon7.hp.infoseek.co.jp/cgi-bin/test/bbs3.txt
にしてみましたが
元ソースの名無しさん処理が
unless（ , ）
とかいうユーザー関数呼び出してるんでトリップ処理も同じように呼び出してみる
必要があるんでしょうか？unless( , )がどんな処理をしてるのかよくわからいんで。
何度もすみません
http://hon7.hp.infoseek.co.jp/cgi-bin/test/bbs3.txt
にしてみましたが
元ソースの名無しさん処理が
unless（ , ）
とかいうユーザー関数呼び出してるんでトリップ処理も同じように呼び出してみる
必要があるんでしょうか？unless( , )がどんな処理をしてるのかよくわからいんで。
何度もすみません
>>789
ところどころ $$FORM になってるところがあるぞ。大丈夫か？
プログラムなんだから、１文字でも違ったら動かないよ。
あと、unlessは制御構文であって、ユーザー関数ではないんだが…。
Perlの基礎をこのスレで質問されても困る。自分で調べて学習すべし。
ところどころ $$FORM になってるところがあるぞ。大丈夫か？
プログラムなんだから、１文字でも違ったら動かないよ。
あと、unlessは制御構文であって、ユーザー関数ではないんだが…。
Perlの基礎をこのスレで質問されても困る。自分で調べて学習すべし。
791 ：本７ ◆HON7/awDa. ：03/02/09 14:42 ID:???
逝ってきます・・・ｼｮﾎﾞｰﾝ
792 ：nobodyさん：03/02/09 17:15 ID:FJkJ4b09
こんにちは、ちょっとアドバイス頂きたく参上しました。
現在Kent-Webさんの「ＭＴ－Board」という２ちゃんねる風の掲示板を
使っています。
http://www.trimmer-navi.com/cgi/mtbbs/mtbbs.cgi
http://www.trimmer-navi.com/mtbbs.txt (テキスト）
上記のプログラムなんですが、現段階では中段にある｛新着スレッド｝の
テーブルに現れるスレッド数と、それのテーブルの下にスレッドごとに
現れるテーブルの数が同じにしか設定できません。
２ちゃんねるの様に、「新着スレッドが表示されている数」と「その下に
続くテーブルの数」を変更できないものでしょうか・・
もしアドバイスいただけるようでしたら、よろしくお願いします。
現在Kent-Webさんの「ＭＴ－Board」という２ちゃんねる風の掲示板を
使っています。
http://www.trimmer-navi.com/cgi/mtbbs/mtbbs.cgi
http://www.trimmer-navi.com/mtbbs.txt (テキスト）
上記のプログラムなんですが、現段階では中段にある｛新着スレッド｝の
テーブルに現れるスレッド数と、それのテーブルの下にスレッドごとに
現れるテーブルの数が同じにしか設定できません。
２ちゃんねるの様に、「新着スレッドが表示されている数」と「その下に
続くテーブルの数」を変更できないものでしょうか・・
もしアドバイスいただけるようでしたら、よろしくお願いします。
お前等いいか！！
ラーメソだぞ！！ラーメソ！！！！！
俺は30分でどんぶり3杯も食えるんだぞ！！！
博多の冬は寒かったんだぜ。
ラーメソだぞ！！ラーメソ！！！！！
俺は30分でどんぶり3杯も食えるんだぞ！！！
博多の冬は寒かったんだぜ。
脳内妄想が俺の技だぜ
>>792
214行目、メニュー部表示の「#新着スレッド」内の以下の部分
if ($i >= $menu) { last; }
この$menuを、スレ一覧で出したい数にすればいいみたい。
テーブルの数は従来どおり、冒頭の$menuで設定。
例：if ($i >= 100) { last; }
テストしてないんでうまく動くか分からんけど。
214行目、メニュー部表示の「#新着スレッド」内の以下の部分
if ($i >= $menu) { last; }
この$menuを、スレ一覧で出したい数にすればいいみたい。
テーブルの数は従来どおり、冒頭の$menuで設定。
例：if ($i >= 100) { last; }
テストしてないんでうまく動くか分からんけど。
796 ：nobodyさん：03/02/09 17:44 ID:FJkJ4b09
798 ：nobodyさん：03/02/09 17:49 ID:FJkJ4b09
はい！よろしくお願いします。＞nobodyさん
>>796
わかった。たぶんこれでいいと思う。
すぐ下に「#スレッドリンク」ってのがあって、 foreach (@num) { っていうのが
２つあるよね。
この２番目のほうをこう書き換える。
for ($i = 0; $i < 10; $i++) {
10の部分が、テーブル表示数。スレ表示数は$menuで設定（さっきと逆）。
これでいいはずなんだけど……
わかった。たぶんこれでいいと思う。
すぐ下に「#スレッドリンク」ってのがあって、 foreach (@num) { っていうのが
２つあるよね。
この２番目のほうをこう書き換える。
for ($i = 0; $i < 10; $i++) {
10の部分が、テーブル表示数。スレ表示数は$menuで設定（さっきと逆）。
これでいいはずなんだけど……
800 ：nobodyさん：03/02/09 18:00 ID:FJkJ4b09
foreach (@num) { → for ($i = 0; $i < 10; $i++) {
に書き換えるのですか？
に書き換えるのですか？
801 ：nobodyさん：03/02/09 18:03 ID:FJkJ4b09
http://www.trimmer-navi.com/cgi/mtbbs/mtbbs3.cgi
書き換えたら上記のプログラムの様になりました。
下に続くテーブルの2段目からの文章が消えてしまいます。
書き換えたら上記のプログラムの様になりました。
下に続くテーブルの2段目からの文章が消えてしまいます。
803 ：nobodyさん：03/02/09 18:13 ID:FJkJ4b09
ちなみに $menu = 5 です。
804 ：nobodyさん：03/02/09 18:26 ID:FJkJ4b09
なんどもありがとうございます。
かなり理想に近いのですが・・今度は新着スレッドの中に謎の「（）（）（）」
なるものが表示されてしまいます。
http://www.trimmer-navi.com/cgi/mtbbs/mtbbs3.cgi
かなり理想に近いのですが・・今度は新着スレッドの中に謎の「（）（）（）」
なるものが表示されてしまいます。
http://www.trimmer-navi.com/cgi/mtbbs/mtbbs3.cgi
805 ：nobodyさん：03/02/09 18:40 ID:KhuXu5ko
nobodyさんへ
できました！本当に感謝します。ありがとうございました。
多分ＯＫだと思います。
できました！本当に感謝します。ありがとうございました。
多分ＯＫだと思います。
806 ：nobodyさん：03/02/09 18:49 ID:KhuXu5ko
すいません。８０５です。
少し問題が生じたのでよろしくお願いします。
スレッド一覧の部分で、下のテーブルに表示されている数の分はリンク
できているのですが、それ以上のリンクになると飛んでくれません。
どうでしょう？
少し問題が生じたのでよろしくお願いします。
スレッド一覧の部分で、下のテーブルに表示されている数の分はリンク
できているのですが、それ以上のリンクになると飛んでくれません。
どうでしょう？
>>804
よく見たら、スレ一覧でテーブルの出てないスレは、クリックしても無反応に
なっちゃってる。（アンカーが同じページ内のテーブルになってるせい）
こりゃCGIのもっと奥のほうから直さないとダメかもしれんね。
お役に立てずにすまんこ。
よく見たら、スレ一覧でテーブルの出てないスレは、クリックしても無反応に
なっちゃってる。（アンカーが同じページ内のテーブルになってるせい）
こりゃCGIのもっと奥のほうから直さないとダメかもしれんね。
お役に立てずにすまんこ。
>>806
これでなんとかなるんじゃないの。
# スレッドリンク
print "<table border=3 cellpadding=10 bordercolor=#FFCCCC bgcolor=#FFEEEE width=\"90%\"><tr><td>\n";
print "<b>- 新着スレッド ※他のスレッドは「スレッド一覧」の中です</b><P>\n";
$thread_count=0;
foreach (@num) {
($num,$sub,$res) = split(/<>/);
$thread_count++;
if ( $thread_count <= 10 ){
print "<a href=\"$script?mode=view&no=$num\">$thread_count:</a> <a href=\"\#$num\">$sub ($res)</a> \n";
} else {
print "<a href=\"$script?mode=view&no=$num\">$thread_count: $sub ($res)</a> \n";
}
}
print "<div align='right'>[<a href=\"$script?mode=alltree\">スレッド一覧</a>]</div>\n";
print "</td></tr></table><br>\n";
補足
if ( $thread_count <= 10 ){
にでてくる数字の 10 は 799 の書いた
for ($i = 0; $i < 10; $i++) {
の 10 ね。別の数字に変えてるなら合わせておいて
変数使って管理したほうがいいと思うが、そのへんは自分でなんとかしる
あと書籍添付スクリプトなんで、これで悩み事解決なら txt は削除したほうがよいと思われ
これでなんとかなるんじゃないの。
# スレッドリンク
print "<table border=3 cellpadding=10 bordercolor=#FFCCCC bgcolor=#FFEEEE width=\"90%\"><tr><td>\n";
print "<b>- 新着スレッド ※他のスレッドは「スレッド一覧」の中です</b><P>\n";
$thread_count=0;
foreach (@num) {
($num,$sub,$res) = split(/<>/);
$thread_count++;
if ( $thread_count <= 10 ){
print "<a href=\"$script?mode=view&no=$num\">$thread_count:</a> <a href=\"\#$num\">$sub ($res)</a> \n";
} else {
print "<a href=\"$script?mode=view&no=$num\">$thread_count: $sub ($res)</a> \n";
}
}
print "<div align='right'>[<a href=\"$script?mode=alltree\">スレッド一覧</a>]</div>\n";
print "</td></tr></table><br>\n";
補足
if ( $thread_count <= 10 ){
にでてくる数字の 10 は 799 の書いた
for ($i = 0; $i < 10; $i++) {
の 10 ね。別の数字に変えてるなら合わせておいて
変数使って管理したほうがいいと思うが、そのへんは自分でなんとかしる
あと書籍添付スクリプトなんで、これで悩み事解決なら txt は削除したほうがよいと思われ
あー、より2ちゃんっぽくスレタイトルの前に数字つけたけど、いやならこれで
if ( $thread_count <= 10 ){
print "<a href=\"\#$num\">$sub ($res)</a> \n";
} else {
print "<a href=\"$script?mode=view&no=$num\">$sub ($res)</a> \n";
}
if ( $thread_count <= 10 ){
print "<a href=\"\#$num\">$sub ($res)</a> \n";
} else {
print "<a href=\"$script?mode=view&no=$num\">$sub ($res)</a> \n";
}
俺もやってみたけど先を越されてしまったのでフォローだけ。
>>808-809 に加えて #スレッドリンク の少し上、@numを取得するところの
if ($i >= $menu) を if ($i >= 10) に、
スレッドを表示しているところの foreach (@num) { を
for (my $i = 0; $i < $menu; $i++) {
$_ = $num[$i];
とすればいけると思う。
>>808-809 に加えて #スレッドリンク の少し上、@numを取得するところの
if ($i >= $menu) を if ($i >= 10) に、
スレッドを表示しているところの foreach (@num) { を
for (my $i = 0; $i < $menu; $i++) {
$_ = $num[$i];
とすればいけると思う。
811 ：本７ ◆HON7/awDa. ：03/02/09 20:16 ID:???
おかげさまでなんとかトリップ機能が動きました。
でもまだ問題があってindexを開いた際にクッキー情報の名前もトリップ変換してしまい名前欄を
はみだしてしまいます。
396行の名無しさん処理のunless()のあとelse｛｝で398行～425行のトリップ処理を加えました。
これを何行目あたりに入れることでこのバグを回避できますか？
自分でも悩んでるんですどうも全体の流れがつかめないもので・・
こちらでソースは更新しました。
http://hon7.hp.infoseek.co.jp/cgi-bin/test/bbs3.txt
よろしくお願いします
でもまだ問題があってindexを開いた際にクッキー情報の名前もトリップ変換してしまい名前欄を
はみだしてしまいます。
396行の名無しさん処理のunless()のあとelse｛｝で398行～425行のトリップ処理を加えました。
これを何行目あたりに入れることでこのバグを回避できますか？
自分でも悩んでるんですどうも全体の流れがつかめないもので・・
こちらでソースは更新しました。
http://hon7.hp.infoseek.co.jp/cgi-bin/test/bbs3.txt
よろしくお願いします
>>811
マルチポストすんなぼけ！
マルチポストすんなぼけ！
814 ：本７ ◆HON7/awDa. ：03/02/09 20:52 ID:???
プログラムに慣れてる人でも、他人の書いたソースの流れをつかむのは一苦労なんだよ。
>>814
見出しだってちゃんとでてるのに。世話のかかる子ね。
これでなんとかならんか。試してないけど
クッキー発行の処理してからトリップ変換をする。
#==================================================
# 情報の修正（名前）
#==================================================
{
foreach $key ('FROM', 'MESSAGE', 'mail') {
$FORM{$key} =~ s/</</g;
$FORM{$key} =~ s/>/>/g;
$FORM{$key} =~ s/\"/"/g;
$FORM{$key} =~ s/\r\n|\r|\n/<br>/g;
}
}
(中略)
#==================================================
# クッキー発行 (440行目付近)
#==================================================
{
(中略)
}
#==================================================
# トリップ変換 (クッキーの処理終わった後に挿入)
#==================================================
見出しだってちゃんとでてるのに。世話のかかる子ね。
これでなんとかならんか。試してないけど
クッキー発行の処理してからトリップ変換をする。
#==================================================
# 情報の修正（名前）
#==================================================
{
foreach $key ('FROM', 'MESSAGE', 'mail') {
$FORM{$key} =~ s/</</g;
$FORM{$key} =~ s/>/>/g;
$FORM{$key} =~ s/\"/"/g;
$FORM{$key} =~ s/\r\n|\r|\n/<br>/g;
}
}
(中略)
#==================================================
# クッキー発行 (440行目付近)
#==================================================
{
(中略)
}
#==================================================
# トリップ変換 (クッキーの処理終わった後に挿入)
#==================================================
>>816の続き
#==================================================
# トリップ変換 (クッキーの処理終わった後に挿入)
#==================================================
{
my $trip = $name;
$FORM{'FROM'} =~ s/◆/◇/g;
if ($FORM{'FROM'} =~ /#(.+)/){
my $key = $1;
my $salt = substr($key."H.", 1, 2);
$salt =~ s/[^\.-z]/\./g;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$trip = ' ◆</b>' . substr(crypt($key, $salt), -8) . '<b>';
}
# トリップを名前に追加
$FORM{'FROM'} =~ s/#.+/$trip/ if ($trip);
}
#==================================================
# パス情報（名前）
#==================================================
#==================================================
# トリップ変換 (クッキーの処理終わった後に挿入)
#==================================================
{
my $trip = $name;
$FORM{'FROM'} =~ s/◆/◇/g;
if ($FORM{'FROM'} =~ /#(.+)/){
my $key = $1;
my $salt = substr($key."H.", 1, 2);
$salt =~ s/[^\.-z]/\./g;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$trip = ' ◆</b>' . substr(crypt($key, $salt), -8) . '<b>';
}
# トリップを名前に追加
$FORM{'FROM'} =~ s/#.+/$trip/ if ($trip);
}
#==================================================
# パス情報（名前）
#==================================================
818 ：本７ ◆HON7/awDa. ：03/02/09 22:09 ID:???
すんません。
恩にきります。何かこのスレに役立てるよう俺もがんがって覚えます。
恩にきります。何かこのスレに役立てるよう俺もがんがって覚えます。
819 ：本７ ◆HON7/awDa. ：03/02/09 23:39 ID:???
> まだｉｎｄｅｘで名前欄にトリップがめりこんで残ります。
フォームの名前欄に変換後のトリップが残ってるってこと？
「めりこんで残ります。」って表現の意味がわからないです。
実際に動いてるとこ見せてくれます？
それか元のスクリプトってどこで配布してるやつ教えてください。
どうなってるのか自分の目で見てみたい。
フォームの名前欄に変換後のトリップが残ってるってこと？
「めりこんで残ります。」って表現の意味がわからないです。
実際に動いてるとこ見せてくれます？
それか元のスクリプトってどこで配布してるやつ教えてください。
どうなってるのか自分の目で見てみたい。
すみませーん
取り込み中みたいですけれどスクリプトをいじくって貰いたく来ました
えーとこれです
http://mint363.ddo.jp/slx/ulx.cgi
このあぷろだのUPリストのコメント欄をブラウザの表示サイズに関係無く
スタイルシートみたいな物で固定する(サイズ固定)にはどうしたらいいのでしょうか
upロダのスクリプトはこれです
http://mint363.ddo.jp/so.txt
ついでにこれがうぷろだに必要な物+うぷろだ本体スクリプトです
http://mint363.ddo.jp/isiki.zip
ちなみにスタイルシートで文字サイズを固定しようとして1022行目にある
print "<td><b><MOMO><font size=2>$comment</font></td>\n" if($commente);
の<font size=2>を削ったら
スクリプトの155行目で(<BODY><TD>)指定してあるサイズになりました
それで1022行目のスクリプトから<td>を抜いて、他の文字列でサイズを指定しようとしたのですが
<td>を抜いた事によってうぷろだの表示がずれてしまいます
スタイルシートの方法じゃ無理なのでしょうか
話が脱線してしまいましたが
どうかもし暇な方が居られたら、よろしくお願いします
取り込み中みたいですけれどスクリプトをいじくって貰いたく来ました
えーとこれです
http://mint363.ddo.jp/slx/ulx.cgi
このあぷろだのUPリストのコメント欄をブラウザの表示サイズに関係無く
スタイルシートみたいな物で固定する(サイズ固定)にはどうしたらいいのでしょうか
upロダのスクリプトはこれです
http://mint363.ddo.jp/so.txt
ついでにこれがうぷろだに必要な物+うぷろだ本体スクリプトです
http://mint363.ddo.jp/isiki.zip
ちなみにスタイルシートで文字サイズを固定しようとして1022行目にある
print "<td><b><MOMO><font size=2>$comment</font></td>\n" if($commente);
の<font size=2>を削ったら
スクリプトの155行目で(<BODY><TD>)指定してあるサイズになりました
それで1022行目のスクリプトから<td>を抜いて、他の文字列でサイズを指定しようとしたのですが
<td>を抜いた事によってうぷろだの表示がずれてしまいます
スタイルシートの方法じゃ無理なのでしょうか
話が脱線してしまいましたが
どうかもし暇な方が居られたら、よろしくお願いします
822 ：nobodyさん：03/02/11 08:22 ID:R89Bia6B
>821
スクリプトじゃなくてhtmlの段階だと思うんだけど、
文字サイズじゃなくてテーブルの幅を固定したいってことで良いのかな？
print "<th>Comment [[[この↓部分です]]</th>\n" if($commente);
ってところの<th>を<th width=\"300\">とかにしたら良いんじゃない。
300の部分は勝手に変えるよろし。
スクリプトじゃなくてhtmlの段階だと思うんだけど、
文字サイズじゃなくてテーブルの幅を固定したいってことで良いのかな？
print "<th>Comment [[[この↓部分です]]</th>\n" if($commente);
ってところの<th>を<th width=\"300\">とかにしたら良いんじゃない。
300の部分は勝手に変えるよろし。
>>822
説明の仕方が悪くてすみせまん、テーブルの幅ではなく 文字サイズです
具体的に言うと
[[[この下の部分です]]]の下にある場所の
CNN スペースシャトル と表示されている場所の文字の大きさ(サイズ)を固定したいのです
えーとわかりやすくhtmlであぷしてみました
http://mint363.ddo.jp/test.html
これだとブラウザの表示サイズが「大きい」だとずれてしまうので
表示サイズ中で見て下さい
何がしたいのかというと
観覧者のブラウザに関係無く
どのブラウザで見ても上にupしたhtmlのように見せたいのです
長くなってすみせまんでした、助言頂けると幸いです
説明の仕方が悪くてすみせまん、テーブルの幅ではなく 文字サイズです
具体的に言うと
[[[この下の部分です]]]の下にある場所の
CNN スペースシャトル と表示されている場所の文字の大きさ(サイズ)を固定したいのです
えーとわかりやすくhtmlであぷしてみました
http://mint363.ddo.jp/test.html
これだとブラウザの表示サイズが「大きい」だとずれてしまうので
表示サイズ中で見て下さい
何がしたいのかというと
観覧者のブラウザに関係無く
どのブラウザで見ても上にupしたhtmlのように見せたいのです
長くなってすみせまんでした、助言頂けると幸いです
>>823
print "<td><b><MOMO><font size=2>$comment</font></td>\n" if($commente);
↓
print "<td class=\"comment\">$comment</td>\n" if($commente);
こうでもしといて147行目からの CSS の設定に
td.comment { font-size:13px ; font-weight:bold ;}
とか適当に追加
これでご要望どおりになると思う。ネスケだと変るけどね。これはブラウザの仕様。
どのブラウザで見ても上にupしたhtmlのように見せたい、そのために文字の大きさを
固定したいという考え方には言いたいことあるけど、そういうスレじゃないのでやめとく。
print "<td><b><MOMO><font size=2>$comment</font></td>\n" if($commente);
↓
print "<td class=\"comment\">$comment</td>\n" if($commente);
こうでもしといて147行目からの CSS の設定に
td.comment { font-size:13px ; font-weight:bold ;}
とか適当に追加
これでご要望どおりになると思う。ネスケだと変るけどね。これはブラウザの仕様。
どのブラウザで見ても上にupしたhtmlのように見せたい、そのために文字の大きさを
固定したいという考え方には言いたいことあるけど、そういうスレじゃないのでやめとく。
>>824
できました!
どうもありがとうございます!!
自分ではcgi作成(1から)の経験が無いので本当に助かりました
>どのブラウザで見ても上にupしたhtmlのように見せたい、そのために文字の大きさを
>固定したいという考え方には言いたいことあるけど、そういうスレじゃないのでやめとく。
やっぱりそうですよね
html勉強時代何処かで固定は良くないとかありました
けれどやっぱり自分のこだわった大きさで見てみたいなーと思ったり
何はともあれ教えてくれてありがとうございました
できました!
どうもありがとうございます!!
自分ではcgi作成(1から)の経験が無いので本当に助かりました
>どのブラウザで見ても上にupしたhtmlのように見せたい、そのために文字の大きさを
>固定したいという考え方には言いたいことあるけど、そういうスレじゃないのでやめとく。
やっぱりそうですよね
html勉強時代何処かで固定は良くないとかありました
けれどやっぱり自分のこだわった大きさで見てみたいなーと思ったり
何はともあれ教えてくれてありがとうございました
なんかさ、最近勉強する気がない覚える気が無いお願い厨が多い気がするんだが･･･。
ていうかWebProgじゃないよな…
828 ：nobodyさん：03/02/11 19:57 ID:DLCyWGmC
&get_date;
if(!$name){$name = "名無し";}
if(!$subject){$subject = "無題";}
if(!$pass){&error("削除パスが記入されていません");}
if(!$comment){&error("コメントが記入されていません");}
このようなエラーサブルーチンに投稿バイト制限を付けるにはどうやったらいいんでしょうか？
if(!$name){$name = "名無し";}
if(!$subject){$subject = "無題";}
if(!$pass){&error("削除パスが記入されていません");}
if(!$comment){&error("コメントが記入されていません");}
このようなエラーサブルーチンに投稿バイト制限を付けるにはどうやったらいいんでしょうか？
829 ：828：03/02/11 20:02 ID:DLCyWGmC
厳密には1KB以上の投稿を受け付けないようにしたいのですが。
830 ：本７ ◆HON7/awDa. ：03/02/11 20:05 ID:???
たびたびすんません。
ｃｇｉの生ログの閲覧禁止とパーミッションに関してはどこで質問したらいいですか？
ｃｇｉの生ログの閲覧禁止とパーミッションに関してはどこで質問したらいいですか？
832 ：本７ ◆HON7/awDa. ：03/02/11 20:14 ID:???
infoseekなんでかどうかわからないんですがパーミッションをｆｆｆｔｐでオーナーだけ実行できてグループとその他は
呼び出しだけにすると４０３なんですよ
呼び出しだけにすると４０３なんですよ
>>833
ありがとう、がんがります！
ありがとう、がんがります！
>>833
ちゃんと走りました、感謝の極み。
ちゃんと走りました、感謝の極み。
838 ：本７ ◆HON7/awDa. ：03/02/11 20:57 ID:???
>>835
すみません。
700、744、705、755、を試しましたがＣＧＩから書きこみができません。
サーバ規定的な問題みたいなんでレンタル板で手っ取り早く借りれる
無料ＣＧＩ鯖探してきます。それでまだだめならまた寄せてもらいますわ。
どうもありがとうございました。ペコリ
すみません。
700、744、705、755、を試しましたがＣＧＩから書きこみができません。
サーバ規定的な問題みたいなんでレンタル板で手っ取り早く借りれる
無料ＣＧＩ鯖探してきます。それでまだだめならまた寄せてもらいますわ。
どうもありがとうございました。ペコリ
842 ：初心者：03/02/12 14:44 ID:pNFQ2drR
①改造したいスクリプト
ttp:/www.abi-station.com/の会社型掲示板
②どう改造して欲しいか
toripodに対応させて欲しい。
色々なサイトで勉強しつつやってはいるのですが、何度やってもエラーが出てしまいます。
過去ログを使わない場合は消せば良いらしいのですが、よろしくお願いします。
ttp:/www.abi-station.com/の会社型掲示板
②どう改造して欲しいか
toripodに対応させて欲しい。
色々なサイトで勉強しつつやってはいるのですが、何度やってもエラーが出てしまいます。
過去ログを使わない場合は消せば良いらしいのですが、よろしくお願いします。
php(Aki-web ttp://aki.adam.ne.jp/)の「info board(ttp://aki.adam.ne.jp/php/samples/infoboard/infoboard.php)」というスクリプトを改造してるのですが、
別ウィンドウで取得した画像URLデータを表示させたいのですが、JavaScripを使うと
クロスサイトスクリプリングの問題で引っ掛かってしまいます。
取得したデータをジャバスクリプトに読み込むのには問題があるのですが、
データを取得する際に、
初めの文字７文字でhtmlかどうか判別（絶対URLでないと受け付けない）、終りの４文字で画像データかどうか判別、違った場合は受け付けないでエラーを返す。
表示する際にhtmlspecialcharsで特殊文字をHTMLエンティティ化、その後str_replace（文字列変換）で切り取り。
としているのですが、まだ問題があるでしょうか。
別ウィンドウで取得した画像URLデータを表示させたいのですが、JavaScripを使うと
クロスサイトスクリプリングの問題で引っ掛かってしまいます。
取得したデータをジャバスクリプトに読み込むのには問題があるのですが、
データを取得する際に、
初めの文字７文字でhtmlかどうか判別（絶対URLでないと受け付けない）、終りの４文字で画像データかどうか判別、違った場合は受け付けないでエラーを返す。
表示する際にhtmlspecialcharsで特殊文字をHTMLエンティティ化、その後str_replace（文字列変換）で切り取り。
としているのですが、まだ問題があるでしょうか。
ソースの一部は
======================ジャバスクリプト=====================
ヘッダー部分に
<script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
HTML表示部分
<form name=form1><input type=button name=hyousi2 value=見本を見る onClick=MM_openBrWindow(\"$mihon\",'hyousi','width=260,height=350')></form>
==========================================================
======================ジャバスクリプト=====================
ヘッダー部分に
<script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
HTML表示部分
<form name=form1><input type=button name=hyousi2 value=見本を見る onClick=MM_openBrWindow(\"$mihon\",'hyousi','width=260,height=350')></form>
==========================================================
===================================php====================
表示の時に
$mihon = htmlspecialchars($record_data[9], ENT_QUOTES);
$mihon = str_replace("&", "", $mihon);
$mihon = str_replace(" ", "", $mihon);
$mihon = str_replace("<", "", $mihon);
$mihon = str_replace(">", "", $mihon);
$mihon = str_replace(""", "", $mihon);
$mihon = str_replace("？", "", $mihon);
$mihon =str_replace(",", "", $url);
取得の時に（エラー表示時）
if($mihon!=""){if (substr($mihon, 0, 7) == "http://" || substr($mihon, 0, 8) == "https://") {
} else {
$string .="見本URLが間違っています<br>";
}
if (substr($mihon, -4) == ".jpg" || substr($mihon, -4) == "jpeg" || substr($mihon, -4) == ".png"|| substr($mihon, -4) == ".gif") {
} else {
$string .="見本URLが間違っています<br>";
}}
==========================================================
target=_blankにするしかないでしょうか？
新しくサイズ指定でウィンドウを開く方法他にありますでしょうか？
良い案がありましたらご意見お願い致します。
表示の時に
$mihon = htmlspecialchars($record_data[9], ENT_QUOTES);
$mihon = str_replace("&", "", $mihon);
$mihon = str_replace(" ", "", $mihon);
$mihon = str_replace("<", "", $mihon);
$mihon = str_replace(">", "", $mihon);
$mihon = str_replace(""", "", $mihon);
$mihon = str_replace("？", "", $mihon);
$mihon =str_replace(",", "", $url);
取得の時に（エラー表示時）
if($mihon!=""){if (substr($mihon, 0, 7) == "http://" || substr($mihon, 0, 8) == "https://") {
} else {
$string .="見本URLが間違っています<br>";
}
if (substr($mihon, -4) == ".jpg" || substr($mihon, -4) == "jpeg" || substr($mihon, -4) == ".png"|| substr($mihon, -4) == ".gif") {
} else {
$string .="見本URLが間違っています<br>";
}}
==========================================================
target=_blankにするしかないでしょうか？
新しくサイズ指定でウィンドウを開く方法他にありますでしょうか？
良い案がありましたらご意見お願い致します。
新語誕生ッ
http://mypage.naver.co.jp/momoco/readme_momoco4b.html
の掲示板にHP宣伝できるように投稿フォームにURLを登録できるように
改造してログにURLを書きこむのには成功したんですが
http://members.tripod.co.jp/bbscgi/log.txt
掲示板を開きトピック一覧は表示されるんですがトピックの内容が表示されないんです。
ログに書きこまれてるURLを消すと正常に表示されます。
何かいいアドバイスがありましたらお願いします。
スクリプト http://members.tripod.co.jp/bbscgi/momoco.txt
http://members.tripod.co.jp/bbscgi/topic.html
の掲示板にHP宣伝できるように投稿フォームにURLを登録できるように
改造してログにURLを書きこむのには成功したんですが
http://members.tripod.co.jp/bbscgi/log.txt
掲示板を開きトピック一覧は表示されるんですがトピックの内容が表示されないんです。
ログに書きこまれてるURLを消すと正常に表示されます。
何かいいアドバイスがありましたらお願いします。
スクリプト http://members.tripod.co.jp/bbscgi/momoco.txt
http://members.tripod.co.jp/bbscgi/topic.html
☆★☆★第３回２ちゃんねる全板合同迷惑メール業者訪問祭り！★☆★☆
シャットアウトしても送って来る未承諾メールにブチキレてるあなた！
何度も何度もしつこく送って来る非常識なメールにイライラしませんか！？
私達は今夜、そんな出会いサイトに「訪問｣(※注）する祭りを盛大に開催します！
２ちゃんねる全板合同です！是非とも皆様お誘い合わせの上、ご来場ください！
老若男女問いません！初心者大歓迎！一緒に彼氏・彼女をつくりましょう！！！
（↑本音とﾀﾃﾏｴ）
訪問開始予定時間 午後９時００分決行予定！
総本部ＵＲＬ http://jbbs.shitaraba.com/news/938/
(※注）あくまで「訪問」です。（笑）
物騒な事を書くと削除されちゃいますから。（←この意味わかります？）
それから「訪問」の主旨と無関係ですが、各種「訪問道具」も取り揃えております。（笑）
スレ汚し失礼しました。
シャットアウトしても送って来る未承諾メールにブチキレてるあなた！
何度も何度もしつこく送って来る非常識なメールにイライラしませんか！？
私達は今夜、そんな出会いサイトに「訪問｣(※注）する祭りを盛大に開催します！
２ちゃんねる全板合同です！是非とも皆様お誘い合わせの上、ご来場ください！
老若男女問いません！初心者大歓迎！一緒に彼氏・彼女をつくりましょう！！！
（↑本音とﾀﾃﾏｴ）
訪問開始予定時間 午後９時００分決行予定！
総本部ＵＲＬ http://jbbs.shitaraba.com/news/938/
(※注）あくまで「訪問」です。（笑）
物騒な事を書くと削除されちゃいますから。（←この意味わかります？）
それから「訪問」の主旨と無関係ですが、各種「訪問道具」も取り揃えております。（笑）
スレ汚し失礼しました。
エンティティ…（悶）
他にも間違いが…どうもすみません。
やっぱりJavaScriptは使わない事にしました。
お騒がせ致しました～とほほ
他にも間違いが…どうもすみません。
やっぱりJavaScriptは使わない事にしました。
お騒がせ致しました～とほほ
なんかむちゃくちゃだな・・・。
#タグの使用禁止
$value =~ s/</</g;
$value =~ s/>/>/g;
タグを禁止にして、特定のタグだけを使用可能にするにはどうすればいいんでしょうか？
$value =~ s/</</g;
$value =~ s/>/>/g;
タグを禁止にして、特定のタグだけを使用可能にするにはどうすればいいんでしょうか？
>851
$value =~ s/<//g; #タグを一度無効化
$value =~ s/font(.*)>(.*)\/font>/<font$1>$2<\/font>/ig; #FONTタグを復活
$value =~ s/([biu])>(.*)\/[biu]>/<$1>$2<\/$1>/ig; #B、U、Iタグを復活
漏れはこうしてるが？
一度<を全部消して、閉じタグ付きでちゃんと書かれてたら復活させる方法。（B、U、I、FONTのみ有効）
閉じ忘れで壊れるのも同時に防げます。
増やすならfontのとこの行をコピペで増やしてfontを別のに変えればいいと思うよ。
$value =~ s/a(.*)>(.*)\/a>/<a$1>$2<\/a>/ig;
こんな感じ、これはAタグを復活、後は自分で考えて。
$value =~ s/<//g; #タグを一度無効化
$value =~ s/font(.*)>(.*)\/font>/<font$1>$2<\/font>/ig; #FONTタグを復活
$value =~ s/([biu])>(.*)\/[biu]>/<$1>$2<\/$1>/ig; #B、U、Iタグを復活
漏れはこうしてるが？
一度<を全部消して、閉じタグ付きでちゃんと書かれてたら復活させる方法。（B、U、I、FONTのみ有効）
閉じ忘れで壊れるのも同時に防げます。
増やすならfontのとこの行をコピペで増やしてfontを別のに変えればいいと思うよ。
$value =~ s/a(.*)>(.*)\/a>/<a$1>$2<\/a>/ig;
こんな感じ、これはAタグを復活、後は自分で考えて。
http://ame.x0.com/upload.html
http://ame.x0.com/upload_script.txt
ファイル表示のないアップローダなのですけれど、最大登録件数と最大ファイルサイズを変更したいのですが、
どこを変更すればよいのかわかりません。
どなたか教えていただけませんか？
http://ame.x0.com/upload_script.txt
ファイル表示のないアップローダなのですけれど、最大登録件数と最大ファイルサイズを変更したいのですが、
どこを変更すればよいのかわかりません。
どなたか教えていただけませんか？
すみません、考えてもどうしてもわからなくて、また質問します。
#タグの無効化
$value =~ s/</</g;
$value =~ s/>/>/g;
#<del>の許可
$value =~ s/<del>(.*)<\/del>/<del>$1<\/del>/g; #<del>を許可
このように記述してみたんですが、この記述だと文章中のタグ一つしか変換しないみたいです。
何回も変換するようにするには、どうすればいいんでしょうか？
#タグの無効化
$value =~ s/</</g;
$value =~ s/>/>/g;
#<del>の許可
$value =~ s/<del>(.*)<\/del>/<del>$1<\/del>/g; #<del>を許可
このように記述してみたんですが、この記述だと文章中のタグ一つしか変換しないみたいです。
何回も変換するようにするには、どうすればいいんでしょうか？
857 ： ：03/02/21 12:55 ID:???
>851
#<del>の許可
$value =~ s/<del>([\w\d\s\t\+\*\.\,\(\)\!\"\#\$\%\'\=\~\`\@\{\[\^\]\}\:\;\/\\\_\>\<]*)<\/del>/<del>$1<\/del>/ig; #<del>を許可
これで一応は動くけど文中に&は使えなくなる。
何か一個全角に･･･「文中に&（半角）があったら＆（全角）にする。」っていう対策で一応はクリアできる臭い。
$value =~ s/\&/＆/g; #コレ
ゴメン漏れの力じゃ<を除外してマッチングさせるのは解らなかった･･･道場かどっかで聞いて･･･。
#<del>の許可
$value =~ s/<del>([\w\d\s\t\+\*\.\,\(\)\!\"\#\$\%\'\=\~\`\@\{\[\^\]\}\:\;\/\\\_\>\<]*)<\/del>/<del>$1<\/del>/ig; #<del>を許可
これで一応は動くけど文中に&は使えなくなる。
何か一個全角に･･･「文中に&（半角）があったら＆（全角）にする。」っていう対策で一応はクリアできる臭い。
$value =~ s/\&/＆/g; #コレ
ゴメン漏れの力じゃ<を除外してマッチングさせるのは解らなかった･･･道場かどっかで聞いて･･･。
ゴメン、&消すのが一番早いわ･･･。
つかなんか犠牲にしれ、もしくはエロイ人来るまでまってれ。
つかなんか犠牲にしれ、もしくはエロイ人来るまでまってれ。
すごい正規表現やね。。
単に>>854は最長マッチになってるだけなんぢゃ･･････
単に>>854は最長マッチになってるだけなんぢゃ･･････
あら、、>>856だったYO
かぶったな・・・
被ったままじゃいかんと思ったのでついでに、
複数のタグを許可するときは
$regexp = "(del|b|small|em|strong)";
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/<$regexp>(.*?)<\/$regexp>/<$1>$2<\/$3>/g;
複数のタグを許可するときは
$regexp = "(del|b|small|em|strong)";
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/<$regexp>(.*?)<\/$regexp>/<$1>$2<\/$3>/g;
>>854 ｽﾏｿ。ありがとう御座いました。
ついでにisoも追加汁
括弧と全角＆もw
868 ：nobodyさん：03/02/21 21:01 ID:/aoYgsJG
http://buyou.bbzone.net/comchat.dataこのスクリプトに
現在の状態というものを付けたいのですが。どうすればできるでしょうか？
例:健太@ROM
など、ﾖﾛｼｸお願いします。
現在の状態というものを付けたいのですが。どうすればできるでしょうか？
例:健太@ROM
など、ﾖﾛｼｸお願いします。
870 ：nobodyさん：03/02/22 16:58 ID:I8wQ3PSP
下のフレームです。
参加者(1）： 健太@ROM
参加者(1）： 健太@ROM
>>872は脳内あぼ～んしてくださいｗ
長いので少しずつ。
#まず、43行目から。状態の種類をここに入力。増やすことも可能
43: @status = ('@ROM', '@使用中','@離席中','@食事中','@すぐ戻ります');
#次に、状態を入力するプルダウンボックスを作る。
#240行目付近に「<b>名前</b>:」とあるので、その行のすぐ下から
237: HTML
238: print "<b>状態</b>：<select name=\"status_form\">\n";
239: print "<option value=\"\">(なし)</option>\n"
240:
241: foreach(@status){print "<option value=\"$_\">$_</option>\n";} #状態を選択するメニューを出力
242: print<<"HTML";
243: </select>
長いので少しずつ。
#まず、43行目から。状態の種類をここに入力。増やすことも可能
43: @status = ('@ROM', '@使用中','@離席中','@食事中','@すぐ戻ります');
#次に、状態を入力するプルダウンボックスを作る。
#240行目付近に「<b>名前</b>:」とあるので、その行のすぐ下から
237: HTML
238: print "<b>状態</b>：<select name=\"status_form\">\n";
239: print "<option value=\"\">(なし)</option>\n"
240:
241: foreach(@status){print "<option value=\"$_\">$_</option>\n";} #状態を選択するメニューを出力
242: print<<"HTML";
243: </select>
#最後にCGIに送られてきたデータを受け取る。
450行目付近に、「$name = $FORM{'name'};」
とある。これを、状態の情報を受け取るために
450: $nametemp = $FORM{'name'};
451: $status = $FORM{'status_form'};
452: $name = $nametemp.$status;
に入れ替える。
450行目付近に、「$name = $FORM{'name'};」
とある。これを、状態の情報を受け取るために
450: $nametemp = $FORM{'name'};
451: $status = $FORM{'status_form'};
452: $name = $nametemp.$status;
に入れ替える。
875 ：nobodyさん：03/02/23 11:23 ID:9SQ36OP6
>>873-874ありがとうございます、やってみます！
２ちゃんねるの記事を定期的にDLしてヘッドライン化して読めるようにするシステムみたいなものを作っています。
http://2ch.eucaly.net/monazilla/bbs/のread.cgiを読み専用に改造したのはいいのですが、
記事のアンカータグ(>>2など)が記事をDLした時点で既にリンクされてしまっているので、それを分解して<a href=#$st>>>番号</a>
のような感じに表示させたいのですが、何度やっても出来ません。
ちなみに、$stは記事番号です。説明が下手でｽﾏｿ・・。
どなたか教えて下さい。よろしくお願いします。
http://2ch.eucaly.net/monazilla/bbs/のread.cgiを読み専用に改造したのはいいのですが、
記事のアンカータグ(>>2など)が記事をDLした時点で既にリンクされてしまっているので、それを分解して<a href=#$st>>>番号</a>
のような感じに表示させたいのですが、何度やっても出来ません。
ちなみに、$stは記事番号です。説明が下手でｽﾏｿ・・。
どなたか教えて下さい。よろしくお願いします。
877 ：nobodyさん：03/02/23 20:22 ID:OjosXiHY
>>876
上から順番で。
#まず19行目に↓を挿入。同じく増やすことが可能です
19: @status = ('@使用中','@すぐ戻ります');
#次にデータ受け取りの部分。
262: $name = $text if $key eq 'name';
上を
262: $namet = $text if $key eq 'name';
263: $status = $text if $key eq 'status';
264: $name = $namet.$status;
に書き換える。
#いちいち連結するのは改造箇所を減らすためと思ってくらさい
上から順番で。
#まず19行目に↓を挿入。同じく増やすことが可能です
19: @status = ('@使用中','@すぐ戻ります');
#次にデータ受け取りの部分。
262: $name = $text if $key eq 'name';
上を
262: $namet = $text if $key eq 'name';
263: $status = $text if $key eq 'status';
264: $name = $namet.$status;
に書き換える。
#いちいち連結するのは改造箇所を減らすためと思ってくらさい
#最後に発言用フォームを改造。569行目付近の
569: <td nowrap bgcolor=$table_color_1 align=center>お名前</td>
のすぐ下、570行目付近から
570: <td bgcolor=$table_color_2 colspan=3>$name
571: <select name=status><option value="">(なし)</option>
572: EOD
573:
574: foreach (@status){ print "<option value=$_>$_</option>\n"; }
575: print "</select>";
576:
577: print<<"EOD";
578: </td></tr>
と記述。
#状態の言葉を長くしすぎると画面が激しく崩れます。
#まだまだ良い方法があるとは思いますが、とりあえず同じ処理をば。
569: <td nowrap bgcolor=$table_color_1 align=center>お名前</td>
のすぐ下、570行目付近から
570: <td bgcolor=$table_color_2 colspan=3>$name
571: <select name=status><option value="">(なし)</option>
572: EOD
573:
574: foreach (@status){ print "<option value=$_>$_</option>\n"; }
575: print "</select>";
576:
577: print<<"EOD";
578: </td></tr>
と記述。
#状態の言葉を長くしすぎると画面が激しく崩れます。
#まだまだ良い方法があるとは思いますが、とりあえず同じ処理をば。
>>879 訂正。
570: 「<td bgcolor=$table_color_2 colspan=3>$name」
のすぐ下（571行目くらい）から
571: <select name=status><option value="">(なし)</option>
::::::(略)
579: </td></tr>
と記述してくださいな。
570: 「<td bgcolor=$table_color_2 colspan=3>$name」
のすぐ下（571行目くらい）から
571: <select name=status><option value="">(なし)</option>
::::::(略)
579: </td></tr>
と記述してくださいな。
>>877自身の手による改造のために簡単に説明を。
@status = ・・・で状態を配列に代入しているが、これを使って後で
foreach ・・・でプルダウンメニューを作る。
メニューで選ばれた「状態」はCGIに送信されてくる。
それを名前を受け取る処理と同じように行い、名前と状態を連結して同じ変数Bに格納する。
で、もとの名前を表示する変数Aの代わりに変数Bを用いて、その後の処理を行う。
メリット：改造箇所が少ない。ログの形式が変わらない。
デメリット：フォームが増える。入力内容はメニューの内容に限られる。
@status = ・・・で状態を配列に代入しているが、これを使って後で
foreach ・・・でプルダウンメニューを作る。
メニューで選ばれた「状態」はCGIに送信されてくる。
それを名前を受け取る処理と同じように行い、名前と状態を連結して同じ変数Bに格納する。
で、もとの名前を表示する変数Aの代わりに変数Bを用いて、その後の処理を行う。
メリット：改造箇所が少ない。ログの形式が変わらない。
デメリット：フォームが増える。入力内容はメニューの内容に限られる。
882 ：nobodyさん：03/02/24 17:17 ID:EnulMF3R
>>881
@status = ('@ROM', '@使用中','@離席中','@食事中','@すぐ戻ります');
これはichatにいれる時は↑らたへんに貼っとけばいいんですよね？
foreach ・・・でプルダウンメニューを作る。
とは、foreach (@status){ print "<option value=$_>$_</option>でいいんですか？
□それを名前を受け取る処理と同じように行い、名前と状態を連結して同じ変数Bに格納する。
comchatgと同様に同じようなやつといったら
$status = $text if $key eq 'status';
$name = $namet.$status;
そのやつをichatにいれるには#データ読みこみというところのどこにいれればいいんでしょうか？
□で、もとの名前を表示する変数Aの代わりに変数Bを用いて、その後の処理を行う。
これは、どういう意味なんでしょうか？
質問ばかりですいませんが、宜しくお願いします。
@status = ('@ROM', '@使用中','@離席中','@食事中','@すぐ戻ります');
これはichatにいれる時は↑らたへんに貼っとけばいいんですよね？
foreach ・・・でプルダウンメニューを作る。
とは、foreach (@status){ print "<option value=$_>$_</option>でいいんですか？
□それを名前を受け取る処理と同じように行い、名前と状態を連結して同じ変数Bに格納する。
comchatgと同様に同じようなやつといったら
$status = $text if $key eq 'status';
$name = $namet.$status;
そのやつをichatにいれるには#データ読みこみというところのどこにいれればいいんでしょうか？
□で、もとの名前を表示する変数Aの代わりに変数Bを用いて、その後の処理を行う。
これは、どういう意味なんでしょうか？
質問ばかりですいませんが、宜しくお願いします。
＞で、もとの名前を表示する変数Aの代わりに
ってのは、受け取った名前の変数($namet)の値と状態の値($status)をくっつけて、
名前の変数($name)にまとめて入れる、ってこと。
こうすると改造箇所が無駄に増えるのを防げるなと思った。それだけ。
連ｶｷｽﾏｿ。鬱
ってのは、受け取った名前の変数($namet)の値と状態の値($status)をくっつけて、
名前の変数($name)にまとめて入れる、ってこと。
こうすると改造箇所が無駄に増えるのを防げるなと思った。それだけ。
連ｶｷｽﾏｿ。鬱
885 ：nobodyさん：03/02/24 19:59 ID:80HVp5Lh
ん、とてつもなく難しいぃ
困ったなぁこんな難しいとはおもってなかったぁ・・。
第一どこにどういれるかとかまったくわからないぃ。
困ったなぁこんな難しいとはおもってなかったぁ・・。
第一どこにどういれるかとかまったくわからないぃ。
886 ：nobodyさん：03/02/24 20:00 ID:RRWzLh+f
そうは思わない！
http://hkwr.com/
http://hkwr.com/
>>885
行数表示するエディタ使ってないの?
行数表示するエディタ使ってないの?
889 ：nobodyさん：03/02/25 17:07 ID:9GtyGnjs
変数とかってなんなんですか？
889の存在意義とかってなんですか？
>>892
http://web2000.kakiko.com/naruhodo/Obj.swf?InputStr=%81E%81E%81E%81E%81E%81B%81@%81@%81@%81@%81@%81@%81@%81@%81@%81@%81@%81@%83O%83O%83%8B%82%C8%82%E6w
http://web2000.kakiko.com/naruhodo/Obj.swf?InputStr=%81E%81E%81E%81E%81E%81B%81@%81@%81@%81@%81@%81@%81@%81@%81@%81@%81@%81@%83O%83O%83%8B%82%C8%82%E6w
http://www2s.biglobe.ne.jp/~cru/library/cgi/bbs.html
ここの投稿コード付き掲示板ですが、
桁数を増やすにはどうしたらいいでしょうか？
ヒントを頂けたら幸いです(;´Д`)
ここの投稿コード付き掲示板ですが、
桁数を増やすにはどうしたらいいでしょうか？
ヒントを頂けたら幸いです(;´Д`)
3桁の投稿コードを6桁位に増やしたいんです。
見た目的に荒らし防止になると思いまして・・・
見た目的に荒らし防止になると思いまして・・・
スクリプトをちらっと見たけど、一応、
なんか意味があって3桁にしてるみたいだね。
下手にいじる必要はないんじゃない？
なんか意味があって3桁にしてるみたいだね。
下手にいじる必要はないんじゃない？
898 ：nobodyさん：03/03/03 12:59 ID:VIdRJxPn
すいませんお力貸してください
http://www.web-purpose.com/PMC/
のwebmail_i.cgi
を改造しています。本文に送り主のメールアドレスが表示されてるのを消したいのですが
どのようにすればよいのでしょうか？
少し改造済み（改造とはいわないな(^ ^；）のソースです
http://210.143.102.80/upload/source/d/0945.txt
http://210.143.102.80/upload/source/d/0946.txt
945がスクリプトで946がフォーム用のＨＴＭＬです
http://www.web-purpose.com/PMC/
のwebmail_i.cgi
を改造しています。本文に送り主のメールアドレスが表示されてるのを消したいのですが
どのようにすればよいのでしょうか？
少し改造済み（改造とはいわないな(^ ^；）のソースです
http://210.143.102.80/upload/source/d/0945.txt
http://210.143.102.80/upload/source/d/0946.txt
945がスクリプトで946がフォーム用のＨＴＭＬです
すんません、どうも行き詰まってます。
BBS Note 7.xにトリップ機能を付け加えようとしてるんすけど、いい塩梅にいかねっす。
テキストはこれなんすけど、
http://mage.free-city.net/bbsnote.txt
この中の 書き込み処理全般 のとこにトリップ処理の記述を追加したところ、
トリップ変換そのものは上手くいくようになったものの今度は名前の表示が
マトモに出んようになりますた。
よろしくご指南おながいします。
BBS Note 7.xにトリップ機能を付け加えようとしてるんすけど、いい塩梅にいかねっす。
テキストはこれなんすけど、
http://mage.free-city.net/bbsnote.txt
この中の 書き込み処理全般 のとこにトリップ処理の記述を追加したところ、
トリップ変換そのものは上手くいくようになったものの今度は名前の表示が
マトモに出んようになりますた。
よろしくご指南おながいします。
900 ：899：03/03/03 22:54 ID:7VkorLNn
ちなみに追加した部分はこれっす。
#トリップ処理
{
$name =~s/◆/◇/g;
my ($key,$salt);
if($name=~/#(.+)/){
$key = $1;
$salt = substr($key."H.", 1, 2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$trip = substr(crypt($key, $salt),-11);
}
$in{'name'} =~ s/#.*//g;
if($trip){
$name=" "if($name);
$name=$trip;
}
$name =~ s/$trip/◆<\/b>$trip<b>/g;
}
#トリップ処理
{
$name =~s/◆/◇/g;
my ($key,$salt);
if($name=~/#(.+)/){
$key = $1;
$salt = substr($key."H.", 1, 2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$trip = substr(crypt($key, $salt),-11);
}
$in{'name'} =~ s/#.*//g;
if($trip){
$name=" "if($name);
$name=$trip;
}
$name =~ s/$trip/◆<\/b>$trip<b>/g;
}
訂正
誤 $trip = substr(crypt($key, $salt),-11);
正 $trip = substr(crypt($key, $salt),-10);
誤 $trip = substr(crypt($key, $salt),-11);
正 $trip = substr(crypt($key, $salt),-10);
★あなたのお悩み解決致します！！
●浮気素行調査
彼氏、彼女、妻、夫の浮気を調査致します！！
●盗聴器盗撮機発見
あなたの部屋に誰かが仕掛けているかも！！
●行方調査
行方不明になっている家族の消息を調査致します！！
●電話番号から住所割り出し
一般電話、携帯から住所を割り出し致します！！
●ストーカー対策
社会問題ともなっているストーカーを撃退致します！！
その他人生相談からどんなお悩みでも解決いたします！！
直通 ０９０－８５０５－３０８６
ＵＲＬ http://www.h5.dion.ne.jp/~grobal/
メール [email protected]
グローバル探偵事務局
●浮気素行調査
彼氏、彼女、妻、夫の浮気を調査致します！！
●盗聴器盗撮機発見
あなたの部屋に誰かが仕掛けているかも！！
●行方調査
行方不明になっている家族の消息を調査致します！！
●電話番号から住所割り出し
一般電話、携帯から住所を割り出し致します！！
●ストーカー対策
社会問題ともなっているストーカーを撃退致します！！
その他人生相談からどんなお悩みでも解決いたします！！
直通 ０９０－８５０５－３０８６
ＵＲＬ http://www.h5.dion.ne.jp/~grobal/
メール [email protected]
グローバル探偵事務局
>>898
本文ってどこー？
本文ってどこー？
>>900
$name =~ s/◆/◇/g;
my ($k,$s,$t,$n); # key salt trip name
$_ = $name;
if (/#(\S+)/){
$k = substr($name,index($name,'#')+1);
$n = substr($name,0,index($name,'#'));
$s = substr(substr($k,0,8).'H.', 1, 2);
$s =~ s/[^\.-z]/\./go;
$s =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$t = substr(crypt($k, $s), -10);
if ($n ne ""){
$name = "$n </b>◆$t <b>";
}else{
$name = "</b>◆$t <b>";
}
}
スキン
# 名前に項目を付けて表示する。
$LOG_name = ($LOG_name ne "") ? "<b>$LOG_name<\/b>" : '';
# 名前に項目を付けて表示する。
$RES_name = ($RES_name ne "") ? "<b>$RES_name<\/b>" : '';
$name =~ s/◆/◇/g;
my ($k,$s,$t,$n); # key salt trip name
$_ = $name;
if (/#(\S+)/){
$k = substr($name,index($name,'#')+1);
$n = substr($name,0,index($name,'#'));
$s = substr(substr($k,0,8).'H.', 1, 2);
$s =~ s/[^\.-z]/\./go;
$s =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$t = substr(crypt($k, $s), -10);
if ($n ne ""){
$name = "$n </b>◆$t <b>";
}else{
$name = "</b>◆$t <b>";
}
}
スキン
# 名前に項目を付けて表示する。
$LOG_name = ($LOG_name ne "") ? "<b>$LOG_name<\/b>" : '';
# 名前に項目を付けて表示する。
$RES_name = ($RES_name ne "") ? "<b>$RES_name<\/b>" : '';
>>903
メールの本文のところです
print SMAIL "Content-Transfer-Encoding: 7bit\n";
print SMAIL "Content-Type: text/plain; charset=iso-2022-jp\n\n";
print SMAIL "";
for (0..$formco) {
print SMAIL "$VADATE[$_]\n";
}
#print SMAIL "\n";
#print SMAIL "==============\n";
#print SMAIL "Time : $TIME\n";
#print SMAIL "Browser : $agen\n";
#print SMAIL "Host : $host\n";
#print SMAIL "---------------\n";
この辺があやしいと思ってるんですが(^ ^；
今のままだと$VADATEにメアドが文章として含まれちゃうんですよ
よろしくお願いします
メールの本文のところです
print SMAIL "Content-Transfer-Encoding: 7bit\n";
print SMAIL "Content-Type: text/plain; charset=iso-2022-jp\n\n";
print SMAIL "";
for (0..$formco) {
print SMAIL "$VADATE[$_]\n";
}
#print SMAIL "\n";
#print SMAIL "==============\n";
#print SMAIL "Time : $TIME\n";
#print SMAIL "Browser : $agen\n";
#print SMAIL "Host : $host\n";
#print SMAIL "---------------\n";
この辺があやしいと思ってるんですが(^ ^；
今のままだと$VADATEにメアドが文章として含まれちゃうんですよ
よろしくお願いします
906 ：poor：03/03/04 05:15 ID:pSR3aMdf
2箇所機能的に動かなくて困っています。
誰かPerlに詳しい方はおられますでしょうか？
直されましたら5000円お支払います。
ご連絡おまちしております。
誰かPerlに詳しい方はおられますでしょうか？
直されましたら5000円お支払います。
ご連絡おまちしております。
908 ：poor：03/03/04 11:30 ID:pSR3aMdf
では 正しく動くように改造してください。
メールアドレスを下さい。
添付でファイルを送ります
メールアドレスを下さい。
添付でファイルを送ります
>908
失礼な香具師だな。
金出せば動くと思ってるﾎﾞﾝﾎﾞﾝか？
正しく動くってなんだよ！
エラー出してるとこ一戸ずつ削ってｹや！
それで動いたら正しく動いてる。
失礼な香具師だな。
金出せば動くと思ってるﾎﾞﾝﾎﾞﾝか？
正しく動くってなんだよ！
エラー出してるとこ一戸ずつ削ってｹや！
それで動いたら正しく動いてる。
>899
sub trip {
my $str = shift;
my $salt = substr($str, 1, 2);
$salt =~ tr/\x00-\x20\x7B-\xFF/./;
$salt =~ tr/\x3A-\x40\x5B-\x60/A-Ga-f/;
return substr(crypt($str, $salt), -10) ;
}
呼び出し方
$name =~ s/#(.*)$/trip($1)/eg;
これでトリップが入った$nameが出来上がるが、これじゃ駄目？
sub trip {
my $str = shift;
my $salt = substr($str, 1, 2);
$salt =~ tr/\x00-\x20\x7B-\xFF/./;
$salt =~ tr/\x3A-\x40\x5B-\x60/A-Ga-f/;
return substr(crypt($str, $salt), -10) ;
}
呼び出し方
$name =~ s/#(.*)$/trip($1)/eg;
これでトリップが入った$nameが出来上がるが、これじゃ駄目？
911 ：poor：03/03/04 12:28 ID:pSR3aMdf
でわスクリプトを見てください
しかもマルチか。
913 ：nobodyさん：03/03/04 17:29 ID:jIWPHT84
YYCHATで、
発言毎に日時の右側にIPを表示するようにしたいのですが、
どうすれば良いのでしょうか？
発言毎に日時の右側にIPを表示するようにしたいのですが、
どうすれば良いのでしょうか？
すいません解決しました。
919 ：877：03/03/06 17:44 ID:qrKweJNz
前書き込みさせていただいたものですが。
ichatはアイコンサイズ指定になってるんですが、このサイズ機能をとりたいのですが、
どのようにすればいいんでしょうか？教えてください。
ソース⇒http://csx.jp/~lgyec/ichat.data
ichatはアイコンサイズ指定になってるんですが、このサイズ機能をとりたいのですが、
どのようにすればいいんでしょうか？教えてください。
ソース⇒http://csx.jp/~lgyec/ichat.data
921 ：nobodyさん：03/03/06 20:32 ID:z1LbRXdZ
コメントアウトというのはそれをけせってことですよね？
922 ：nobodyさん：03/03/06 20:33 ID:z1LbRXdZ
その@icon_size=(20,20);をけしたらアイコンなどつかえなくなりましたよ。
>>919
965行目の
print "<td><img src=\"$icon_list[$y1[2]]\" width=$icon_size[0] height=$icon_size[1]></td>";
これのwidth属性とheight属性を消してみたら？
print "<td><img src=\"$icon_list[$y1[2]]\"></td>";
965行目の
print "<td><img src=\"$icon_list[$y1[2]]\" width=$icon_size[0] height=$icon_size[1]></td>";
これのwidth属性とheight属性を消してみたら？
print "<td><img src=\"$icon_list[$y1[2]]\"></td>";
>>922
すまぬ、動作テスト忘れとった･･･鬱
すまぬ、動作テスト忘れとった･･･鬱
925 ：nobodyさん：03/03/07 18:01 ID:s5GMjGcA
>>923のとうりにしたらアイコンが消えました。ありがとうございます。
もう一つ改造したいことがあります。
そのichatに”自分の発言を消去”というボタンがあるんですけど、KENTWEBにあるような
発言を消したらメッセージを自動で書かれる奴にしたいのですが、どうすればよいでしょうか？
例えばその自動メッセージに”クリアメッセージ・・・。”こんなかんじのやつをつけたいのです。
説明不足ですが宜しくお願いします。
もう一つ改造したいことがあります。
そのichatに”自分の発言を消去”というボタンがあるんですけど、KENTWEBにあるような
発言を消したらメッセージを自動で書かれる奴にしたいのですが、どうすればよいでしょうか？
例えばその自動メッセージに”クリアメッセージ・・・。”こんなかんじのやつをつけたいのです。
説明不足ですが宜しくお願いします。
>>925
説明不足どころか意味不明。
説明不足どころか意味不明。
927 ：nobodyさん：03/03/07 18:30 ID:s5GMjGcA
>>926説明不足ですいませんでした。
KENTWEBにあるCOMCHATはclearとかけば文字がけせますよね？
その時に消したことを通知するメッセージを書きたいのです。comchatのように。
宜しくお願いします。
KENTWEBにあるCOMCHATはclearとかけば文字がけせますよね？
その時に消したことを通知するメッセージを書きたいのです。comchatのように。
宜しくお願いします。
929 ：nobodyさん：03/03/08 11:00 ID:MqKsAecY
>>927をよろしくおねがいします。
「comchatのように」っつったって、こっちはcomchatがどんなのか知らん。
Perlに精通＝CGIに精通、ってわけじゃないのよ。
Perlに精通＝CGIに精通、ってわけじゃないのよ。
931 ：nobodyさん：03/03/08 17:15 ID:Ee7k58Ji
すいませんでした、一応comchatのソースですみてください
comchatソース⇒http://csx.jp/~lgyec/comchat.data
comchatソース⇒http://csx.jp/~lgyec/comchat.data
932 ：nobodyさん：03/03/08 21:21 ID:b2yfloXL
お願いします。お知恵をお貸し下さい。
目的のスクリプトは、
２ｃｈ風の画像張付（返信にも画像投稿可能）掲示板なのですが、
記事の部分をＳＱＬを使ってデータベースに記録しています。
これをＳＱＬが使えないところで、使いたいので、
なんとか、テキストなりのファイルに記録するようにしたいのですが…
（ちなみに、ＸＲＥＡで設置してみましたが、
すこし、なおして動くようになりましたが、最初の１ページしか
表示されず、生成されたＨＴＭＬにアクセスできないという、
よくわからない状態になってしまいました。）
よろしくお願いします。
http://moe.homelinux.net/soft/rev708.zip
目的のスクリプトは、
２ｃｈ風の画像張付（返信にも画像投稿可能）掲示板なのですが、
記事の部分をＳＱＬを使ってデータベースに記録しています。
これをＳＱＬが使えないところで、使いたいので、
なんとか、テキストなりのファイルに記録するようにしたいのですが…
（ちなみに、ＸＲＥＡで設置してみましたが、
すこし、なおして動くようになりましたが、最初の１ページしか
表示されず、生成されたＨＴＭＬにアクセスできないという、
よくわからない状態になってしまいました。）
よろしくお願いします。
http://moe.homelinux.net/soft/rev708.zip
933 ：932：03/03/09 01:56 ID:jq/gPxKU
どうもすみませんでした。
自分でいろいろやってみたんですが、
あれから、全然進展しなくて。
それで、これの参考元をさがしたら…
ちょうど、自分の思ってたものがありました！
どうも、お騒がせしました。
ちなみに、「鏡のくに」ってとこのスクリプトです。（ｐｈｐ）
自分でいろいろやってみたんですが、
あれから、全然進展しなくて。
それで、これの参考元をさがしたら…
ちょうど、自分の思ってたものがありました！
どうも、お騒がせしました。
ちなみに、「鏡のくに」ってとこのスクリプトです。（ｐｈｐ）
934 ：nobodyさん：03/03/09 12:22 ID:57f77bEe
>>931よろしくおねがいします
935 ：nobodyさん：03/03/09 12:53 ID:hIa+sLU+
すいません、相談させてください。
今、
「日記を増やせるタイプ」
「左フレームに作者の日記タイトル、右に日記の内容」
「各日記ごとに感想をゲストが投稿できる」
「（できれば、一番最近に更新されたものがわかるようなものがいいです）」
上のような感じのものを探しているんですけど、見つかりません。（T^T)
http://www.t-okada.com/cgi/cgi_scripts/10_20_log.html
（サンプルは→ http://www.t-okada.com/sh1_diarys/
今の所、↑が一番イメージに近いので、これにレスがつけられたら最高なんですが、
そういう風にはできないでしょうか？
今、20人位の日記のホームページに私も参加しているんですけど、みんなで１つの
日記を使っているので、ゴチャゴチャしていて、とっても使いづらくて…。（T^T)
（1個の普通の掲示板を日記代わりにみんなで使っています ＾＾；）
あと上のは、最後に更新された日付が最初の左フレームに表示されてとても見やすいと思うので、これにレスをつけられたら最高だなぁ～って思うんですけど、どなたかお力をお貸しくださいませんでしょうか。
依頼で、すいません。
どうか、よろしくお願い致します。 m(__)m
今、
「日記を増やせるタイプ」
「左フレームに作者の日記タイトル、右に日記の内容」
「各日記ごとに感想をゲストが投稿できる」
「（できれば、一番最近に更新されたものがわかるようなものがいいです）」
上のような感じのものを探しているんですけど、見つかりません。（T^T)
http://www.t-okada.com/cgi/cgi_scripts/10_20_log.html
（サンプルは→ http://www.t-okada.com/sh1_diarys/
今の所、↑が一番イメージに近いので、これにレスがつけられたら最高なんですが、
そういう風にはできないでしょうか？
今、20人位の日記のホームページに私も参加しているんですけど、みんなで１つの
日記を使っているので、ゴチャゴチャしていて、とっても使いづらくて…。（T^T)
（1個の普通の掲示板を日記代わりにみんなで使っています ＾＾；）
あと上のは、最後に更新された日付が最初の左フレームに表示されてとても見やすいと思うので、これにレスをつけられたら最高だなぁ～って思うんですけど、どなたかお力をお貸しくださいませんでしょうか。
依頼で、すいません。
どうか、よろしくお願い致します。 m(__)m
937 ：934：03/03/09 13:27 ID:hIa+sLU+
>>936
早速のレス、ありがとうございます。＾＾
20人位で使おうと思っていて、できれば、
日記が個人別に分かれて欲しいと思っているからです。
個別に分かれていてレスがつけらて、各人の最終更新時間が一覧でわかれば
最高なんです♪
だから、934で書いたタイプにレスをつけられたらいいなぁ～って思っています♪
こういうタイプは見た事がないので、きっと無理なプログラムばんでしょうか…（T^T)
早速のレス、ありがとうございます。＾＾
20人位で使おうと思っていて、できれば、
日記が個人別に分かれて欲しいと思っているからです。
個別に分かれていてレスがつけらて、各人の最終更新時間が一覧でわかれば
最高なんです♪
だから、934で書いたタイプにレスをつけられたらいいなぁ～って思っています♪
こういうタイプは見た事がないので、きっと無理なプログラムばんでしょうか…（T^T)
938 ：934：03/03/09 13:29 ID:hIa+sLU+
すいません、訂正です
× プログラムばんでしょうか…
〇 プログラムなんでしょうか…
m(__)m
× プログラムばんでしょうか…
〇 プログラムなんでしょうか…
m(__)m
スレッド型掲示板で代用しる
940 ：nobodyさん：03/03/09 13:45 ID:57f77bEe
>>931よろしくおねがいいたします。
( ﾟДﾟ)ﾎﾟｶｰﾝ
942 ：934：03/03/09 18:22 ID:pZsxM+bP
>>939
レスありがとうございます。
スレッド掲示板ですか…。
それだと、あまり日記っぽくなくなってしまう気がするので…＾＾；
（わがままいってすいません）
色々機能を満たすのを探すのは、やっぱり難しいですよね… （T^T)
レスありがとうございます。
スレッド掲示板ですか…。
それだと、あまり日記っぽくなくなってしまう気がするので…＾＾；
（わがままいってすいません）
色々機能を満たすのを探すのは、やっぱり難しいですよね… （T^T)
943 ：940：03/03/09 18:29 ID:KwWbXhd4
よろしくおねがいします！！
944 ：場違いでごめんね。よかったら教えってね。：03/03/09 23:44 ID:2uGjMOlZ
フォームの送信ボタンを作り、それを押すと別のウインドウを開くようにしたいのですが、うまくいきません。
☆送信ボタンがあるページ →場所：C:\HOMEPAGE\template\hyouzyun\h_1
☆開きたいページ(tizu) →場所：C:\HOMEPAGE\template\hyouzyun\h_1
二つのページは同じフォルダに保存してあります。
送信ボタンは挿入→入力部品の送信ボタンを選択して作りました。
それからが問題なのですが、
その作成した送信ボタンを右クリック→イベントの設定をし、
★イベント ＝ ON CLICK
★スクリプト ＝var winwindow.open("tizu.html","tizu","width=100,height=50")
と、入力し、OKを押して、送信ボタンに上のスクリプトを割り当てたのですが
"tizu"のウインドウが開きません・・。やり方がまちがってるでしょうか？
宜しくご指導ください！お願いいたします。
☆送信ボタンがあるページ →場所：C:\HOMEPAGE\template\hyouzyun\h_1
☆開きたいページ(tizu) →場所：C:\HOMEPAGE\template\hyouzyun\h_1
二つのページは同じフォルダに保存してあります。
送信ボタンは挿入→入力部品の送信ボタンを選択して作りました。
それからが問題なのですが、
その作成した送信ボタンを右クリック→イベントの設定をし、
★イベント ＝ ON CLICK
★スクリプト ＝var winwindow.open("tizu.html","tizu","width=100,height=50")
と、入力し、OKを押して、送信ボタンに上のスクリプトを割り当てたのですが
"tizu"のウインドウが開きません・・。やり方がまちがってるでしょうか？
宜しくご指導ください！お願いいたします。
>>944
JavaScriptのことなら、Web製作板へどうぞ。
JavaScriptのことなら、Web製作板へどうぞ。
946 ：nobodyさん：03/03/10 14:41 ID:ZSUpGpYi
日記スクリプトの改造なのですが
↓このスクリプトだと
http://www.geocities.co.jp/Bookend-Ohgai/4692/tboard007.txt
↓このような表示になります
http://www.geocities.co.jp/Bookend-Ohgai/4692/moto.html
これを↓のような表示にするにはどうすればよいですか？
http://www.geocities.co.jp/Bookend-Ohgai/4692/kaihen.html
簡単に説明すると、現在 左=画像 右=本文 となってるレイアウトを
上=画像 下=本分 にしたいわけです。
よろしくご指導ください
↓このスクリプトだと
http://www.geocities.co.jp/Bookend-Ohgai/4692/tboard007.txt
↓このような表示になります
http://www.geocities.co.jp/Bookend-Ohgai/4692/moto.html
これを↓のような表示にするにはどうすればよいですか？
http://www.geocities.co.jp/Bookend-Ohgai/4692/kaihen.html
簡単に説明すると、現在 左=画像 右=本文 となってるレイアウトを
上=画像 下=本分 にしたいわけです。
よろしくご指導ください
948 ：nobodyさん：03/03/10 16:53 ID:+NULa64Y
# ロック処理 #
sub lock {
local($retry,$mtime);
# 1分以上古いロックは削除する
if (-e $lockfile) {
($mtime) = (stat($lockfile))[9];
if ($mtime < time - 60) { &unlock; }
}
# symlink関数式ロック
if ($lockkey == 1) {
$retry = 5;
while (!symlink(".", $lockfile)) {
if (--$retry <= 0) { &error('LOCK is BUSY'); }
sleep(1);
}
# mkdir関数式ロック
} elsif ($lockkey == 2) {
$retry = 5;
while (!mkdir($lockfile, 0755)) {
if (--$retry <= 0) { &error('LOCK is BUSY'); }
sleep(1);
}
}
$lockflag=1;
}
# ロック解除 #
sub unlock {
if ($lockkey == 1) { unlink($lockfile); }
elsif ($lockkey == 2) { rmdir($lockfile); }
$lockflag=0;
}
KENTさんのファイルロックのルーチンなのですが、これにflock関数のファイルロックをつけるにはどうすればいいのですか？
sub lock {
local($retry,$mtime);
# 1分以上古いロックは削除する
if (-e $lockfile) {
($mtime) = (stat($lockfile))[9];
if ($mtime < time - 60) { &unlock; }
}
# symlink関数式ロック
if ($lockkey == 1) {
$retry = 5;
while (!symlink(".", $lockfile)) {
if (--$retry <= 0) { &error('LOCK is BUSY'); }
sleep(1);
}
# mkdir関数式ロック
} elsif ($lockkey == 2) {
$retry = 5;
while (!mkdir($lockfile, 0755)) {
if (--$retry <= 0) { &error('LOCK is BUSY'); }
sleep(1);
}
}
$lockflag=1;
}
# ロック解除 #
sub unlock {
if ($lockkey == 1) { unlink($lockfile); }
elsif ($lockkey == 2) { rmdir($lockfile); }
$lockflag=0;
}
KENTさんのファイルロックのルーチンなのですが、これにflock関数のファイルロックをつけるにはどうすればいいのですか？
>>948
HTMLを勉強汁！
HTMLを勉強汁！
951 ：931：03/03/10 20:32 ID:wfQN1r0d
>>931ですが、その改造の仕方教えてください。
／:|. ／:|
／ .:::| ／ ::|
| ...:::|_ / :::|
i ￣￣⌒ﾞﾞ^――／ ::::::|
/ :::::::::＼
/|･＼ .／･> :::::::::＼
/ミ＼ ＼ ／ ／彡 i し.／:::::::＼
/ ミ＼.＼ヽ|||liiiii||/ ／.／彡 ﾉ (::::::::::::::::::＼
/ ミ＼＼|||iii||l／／彡 '~ヽ :::::::::::::::＼
／ ￣ ￣,,､ ／:::::::::::::::::.＼
ﾌｧﾋﾞｮ━━━━━／ ＼ / ,,__＿＿ _,／￣ ＼ ＼ ／::::::::::::::::::::::::::::＼━━━━━ｿ!!!!!
＼ |.. | ／└└└└＼../＼ ／:::::::::::::::::::::::::::::::::／
＼ ∨.|lllllllllllllllllllllllllllllllllllllllll| ／::::::::::::::::::::::::::::::::::／
＼ |.|llllllllllllllll;／⌒／⌒ | ::::::::::::::::::::::::／
＼ |.|llllllllll; ./ . . | :::::::::::::::::::／
/ |.|llllll|′ / . | | ::::::::／|
/ |.|llll| | .∧〔 / ::::::::::::::::＼
／ ｝.∧lll | ../ / ／ :::::::::::::::::＼
／ /| ＼┌┌┌┌┌/.／ ／::: :::::::::::::::::＼
／ ( ﾞﾞ^^¨^¨ﾞﾞ¨ ￣￣￣ ／::::::::::: ::::::::::＼
／ ヽｰ─￢ｰ～ｰ――― :::::::::::::
／ .:::| ／ ::|
| ...:::|_ / :::|
i ￣￣⌒ﾞﾞ^――／ ::::::|
/ :::::::::＼
/|･＼ .／･> :::::::::＼
/ミ＼ ＼ ／ ／彡 i し.／:::::::＼
/ ミ＼.＼ヽ|||liiiii||/ ／.／彡 ﾉ (::::::::::::::::::＼
/ ミ＼＼|||iii||l／／彡 '~ヽ :::::::::::::::＼
／ ￣ ￣,,､ ／:::::::::::::::::.＼
ﾌｧﾋﾞｮ━━━━━／ ＼ / ,,__＿＿ _,／￣ ＼ ＼ ／::::::::::::::::::::::::::::＼━━━━━ｿ!!!!!
＼ |.. | ／└└└└＼../＼ ／:::::::::::::::::::::::::::::::::／
＼ ∨.|lllllllllllllllllllllllllllllllllllllllll| ／::::::::::::::::::::::::::::::::::／
＼ |.|llllllllllllllll;／⌒／⌒ | ::::::::::::::::::::::::／
＼ |.|llllllllll; ./ . . | :::::::::::::::::::／
/ |.|llllll|′ / . | | ::::::::／|
/ |.|llll| | .∧〔 / ::::::::::::::::＼
／ ｝.∧lll | ../ / ／ :::::::::::::::::＼
／ /| ＼┌┌┌┌┌/.／ ／::: :::::::::::::::::＼
／ ( ﾞﾞ^^¨^¨ﾞﾞ¨ ￣￣￣ ／::::::::::: ::::::::::＼
／ ヽｰ─￢ｰ～ｰ――― :::::::::::::
953 ：931：03/03/11 17:24 ID:faQewhAO
>>949
既に解決しているだろうと思うけれど、念のためにカキコすると
flock関数はopen関数で指定されたファイルハンドルで使用するため
指定のルーチンをそのまま置き換えるには無理があるYO
実際はもっと簡単にできる
flock関数を使用している他のソースを調べましょう
既に解決しているだろうと思うけれど、念のためにカキコすると
flock関数はopen関数で指定されたファイルハンドルで使用するため
指定のルーチンをそのまま置き換えるには無理があるYO
実際はもっと簡単にできる
flock関数を使用している他のソースを調べましょう
956 ：872：03/03/11 18:47 ID:k4GIfrjV
>>949
$lockkey = '3';
#&lock内に追加
if ($lockkey == 3) {
for ($i; $i<=5; $i++) {
if (flock (FH, 2)) {
last;
} elsif ($i == 5){ &error('LOCK is BUSY'); }
sleep(1);
}
}
#同じく
sub unlock {
if ($lockkey == 1) { unlink($lockfile); }
elsif ($lockkey == 2) { rmdir($lockfile); }
elsif ($lockkey == 3) { flock(FH, 8);}
$lockflag=0;
}
$lockkey = '3';
#&lock内に追加
if ($lockkey == 3) {
for ($i; $i<=5; $i++) {
if (flock (FH, 2)) {
last;
} elsif ($i == 5){ &error('LOCK is BUSY'); }
sleep(1);
}
}
#同じく
sub unlock {
if ($lockkey == 1) { unlink($lockfile); }
elsif ($lockkey == 2) { rmdir($lockfile); }
elsif ($lockkey == 3) { flock(FH, 8);}
$lockflag=0;
}
957 ：872：03/03/11 19:18 ID:k4GIfrjV
>>955
すいませんでした。。
すいませんでした。。
皆さんレスありがとうございます。
>>956さん
試してみたんですが、LOCK is BUSYばかり出て書き込めませんでした。
>>955さん
とりあえず以下のように記述してみました。
open(IN,"$logfile") || &error("ログファイルが開けません");
flock( IN, 1 ); #ファイルを読み出しロック
@lines = <IN>;
flock( IN, 8 ); #ロック解除
close(IN);
open(OUT,">$logfile") || &error("ログファイルに書きこめません");
flock( OUT, 2 ); #ファイルを書き込みロック
print OUT @lines;
flock( OUT, 8 ); #ロック解除
close(OUT);
これで書き込めたんですが、あっているでしょうか？ ファイルロックができているかチェックする方法とかありませんか？
>>956さん
試してみたんですが、LOCK is BUSYばかり出て書き込めませんでした。
>>955さん
とりあえず以下のように記述してみました。
open(IN,"$logfile") || &error("ログファイルが開けません");
flock( IN, 1 ); #ファイルを読み出しロック
@lines = <IN>;
flock( IN, 8 ); #ロック解除
close(IN);
open(OUT,">$logfile") || &error("ログファイルに書きこめません");
flock( OUT, 2 ); #ファイルを書き込みロック
print OUT @lines;
flock( OUT, 8 ); #ロック解除
close(OUT);
これで書き込めたんですが、あっているでしょうか？ ファイルロックができているかチェックする方法とかありませんか？
flock( OUT, 2 ) || &error("失敗");
flock( OUT, 8 ); #ロック解除
はいらない
flock( OUT, 8 ); #ロック解除
はいらない
flock( OUT, 2 ) || &error("失敗");
？？
？？
>>959
あってるYO
ファイルロックのテストは、適当にfork関数で多数の子プロセス上で排他処理させるか
指定時刻にファイルの読み書きのループを一斉に開始するスクリプトなどで
気の済むまでやるしか無いでしょう
もちろん、後からでも正常に処理できたかは分るように、読み書きする内容はキチンとプログラムしましょう
あってるYO
ファイルロックのテストは、適当にfork関数で多数の子プロセス上で排他処理させるか
指定時刻にファイルの読み書きのループを一斉に開始するスクリプトなどで
気の済むまでやるしか無いでしょう
もちろん、後からでも正常に処理できたかは分るように、読み書きする内容はキチンとプログラムしましょう
あ・・・テストは自分のPC上でローカルでどうぞ
>>964
あなたは、随分と、偉そう、ですね？
あなたは、随分と、偉そう、ですね？
open(OUT,">$logfile") ←この時点でファイルはクリアされる
←ここで別プロセスがファイルを操作する危険も
flock( OUT, 2 );
print OUT @lines; ←この前までにプロセスが死んだらファイルは破損
flock( OUT, 8 );
←ここで別プロセスがファイルを操作する危険も
close(IN); ←実際の書き込みが行われるのはここ（オートフラッシュなしの場合）
←ここで別プロセスがファイルを操作する危険も
flock( OUT, 2 );
print OUT @lines; ←この前までにプロセスが死んだらファイルは破損
flock( OUT, 8 );
←ここで別プロセスがファイルを操作する危険も
close(IN); ←実際の書き込みが行われるのはここ（オートフラッシュなしの場合）
>>970
なるほど、open(FH, ">filename") でファイルを開いただけでは
ファイルは変更されていない状態だと思っていましたが・・・確かに危険ですね
">>filename"などでオープンして、turncateで0指定する方法をとるべきか・・・
良い事を教えてもらいました。ありがとうございます
失礼しました
なるほど、open(FH, ">filename") でファイルを開いただけでは
ファイルは変更されていない状態だと思っていましたが・・・確かに危険ですね
">>filename"などでオープンして、turncateで0指定する方法をとるべきか・・・
良い事を教えてもらいました。ありがとうございます
失礼しました
（＾＾）
>>954さんが言われたとうり自分でできるところまでやってみました。
改造した部分だけのソース⇒http://csx.jp/~lgyec/ichats.data
ichatのソース⇒http://csx.jp/~lgyec/ichat.data
こういう風にやっても、自分の発言を削除をクリックしても”クリアメッセージ”と自動的に発動しません。
援助お願い致します。
改造した部分だけのソース⇒http://csx.jp/~lgyec/ichats.data
ichatのソース⇒http://csx.jp/~lgyec/ichat.data
こういう風にやっても、自分の発言を削除をクリックしても”クリアメッセージ”と自動的に発動しません。
援助お願い致します。
975 ：名無し：03/03/15 16:35 ID:55qzOCkc
ＫＥＮＴさんの掲示板
http://www.kent-web.com/bbs/fantasy.html?
に、”タイトル”を入力する項目を追加したいのですが
いざやってみたら、上手くいきませんでした。
この場合、どこをどういじればいいのでしょうか？
http://www.kent-web.com/bbs/fantasy.html?
に、”タイトル”を入力する項目を追加したいのですが
いざやってみたら、上手くいきませんでした。
この場合、どこをどういじればいいのでしょうか？
976 ：ｳﾏｰ(ﾟДﾟ)＠Apw5yill☆2ch：03/03/15 16:39 ID:abzlUrYY
質問です。CGIで例えば、****.cgi?1111
みたいな、?1111を付け加えて表示させる物があります。そこで、
URL転送を使って、***.com/1111を入力すると、****.cgi?1111が表示
されるように、転送先を****.cgi?にしましたが無理でした。
なにかいい方法はありませんか？
みたいな、?1111を付け加えて表示させる物があります。そこで、
URL転送を使って、***.com/1111を入力すると、****.cgi?1111が表示
されるように、転送先を****.cgi?にしましたが無理でした。
なにかいい方法はありませんか？
タイトル入力するところあるぞぃ
# タイトル名
$title = "Fantasy Board";
ってやつが
# タイトル名
$title = "Fantasy Board";
ってやつが
>>973
while (<IO>){
if ($_ =~ /<>$ip/){
@y2=split(/<>/,$_);
if ($y2[6] ne $ip){
push(@log,$_);
}else{
push(@log,'All Clear (^-^)v');
}
}else{
push(@log,$_);
}
}
while (<IO>){
if ($_ =~ /<>$ip/){
@y2=split(/<>/,$_);
if ($y2[6] ne $ip){
push(@log,$_);
}else{
push(@log,'All Clear (^-^)v');
}
}else{
push(@log,$_);
}
}
>>976
転送先を****.cgi?1111
転送先を****.cgi?1111
980 ：ｳﾏｰ(ﾟДﾟ)＠Apw5yill☆2ch：03/03/15 16:58 ID:abzlUrYY
は、できたんですが、その他にも2222や3333とも指定したいのです。。
>>978さんのとうりにすると
sub deleteme{
#自分の発言消去
open (IO,"+<$logfile");
eval{flock(IO,2)};
while (<IO>){
if ($_ =~ /<>$ip/){
@y2=split(/<>/,$_);
if ($y2[6] ne $ip){
push(@log,$_);
}else{
push(@log,'All Clear (^-^)v');
}
}else{
push(@log,$_);
}
}
truncate(IO,0);
seek(IO,0,0);
print IO @log;
close (IO);
&reload2;
}
でいいですよね？そうしたらScript Errorがでました。
援助お願いします。
sub deleteme{
#自分の発言消去
open (IO,"+<$logfile");
eval{flock(IO,2)};
while (<IO>){
if ($_ =~ /<>$ip/){
@y2=split(/<>/,$_);
if ($y2[6] ne $ip){
push(@log,$_);
}else{
push(@log,'All Clear (^-^)v');
}
}else{
push(@log,$_);
}
}
truncate(IO,0);
seek(IO,0,0);
print IO @log;
close (IO);
&reload2;
}
でいいですよね？そうしたらScript Errorがでました。
援助お願いします。
984 ：nobodyさん：03/03/15 21:59 ID:6KH7Xn0j
,.´ / Vヽヽ
! i iﾉﾉﾘ）) 〉
i l l.´ヮ｀ﾉﾘ ＜先生！こんなのがありました！
l く/_只ヽ
|￣￣￣￣￣|
http://saitama.gasuki.com/aomori/
! i iﾉﾉﾘ）) 〉
i l l.´ヮ｀ﾉﾘ ＜先生！こんなのがありました！
l く/_只ヽ
|￣￣￣￣￣|
http://saitama.gasuki.com/aomori/
986 ：９７５：03/03/15 23:45 ID:MaN1zNKv
ここのスレッドとはどこのスレッドですかぁー？ｗ
988 ：nobodyさん：03/03/16 13:59 ID:t8L+n8I+
>>983全角スペースを半角かタブに置き換えたか？ ってどういう意味ですか？
>>988
意味も何も、そうしたかと聞いてる
意味も何も、そうしたかと聞いてる
990 ：nobodyさん：03/03/16 15:29 ID:vOOsWTxU
そのまま貼り付けたんですけど。
992 ：nobodyさん：03/03/16 17:44 ID:KSrtergb
新すれはどこですか?
993 ：nobodyさん：03/03/16 17:47 ID:WBb98oow
http://www.pink-angel.jp/betu/linkvp2/linkvp.html
★その目で確認すべし！！★超おすすめ★
★その目で確認すべし！！★超おすすめ★
>>992
ないから、いるなら立てて
ないから、いるなら立てて
995 ：nobodyさん：03/03/16 18:08 ID:vOOsWTxU
996 ：nobodyさん：03/03/16 18:15 ID:vOOsWTxU
↑の続きで
その自分の発言を削除を押した後発言をするとAll Clear (^-^)v > () が消えてしまいます。
その自分の発言を削除を押した後発言をするとAll Clear (^-^)v > () が消えてしまいます。
997 ：nobodyさん：03/03/16 18:16 ID:x5aWnNPV
いきなり乱入1000
998 ：nobodyさん：03/03/16 18:24 ID:MtdvS7v9
１０００！
999 ：nobodyさん：03/03/16 18:24 ID:MtdvS7v9
とう！
1000 ：nobodyさん：03/03/16 18:24 ID:MtdvS7v9
１０００げっとーーーーーーーーーーーーーーーズザァアア
1001 ：１００１：
このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。
もう書けないので、新しいスレッドを立ててくださいです。。。