【 スクリプト改造工房 PART 5 】

#================================
# スレッドの説明
#================================

「スクリプトを改造したいけどやりかたわかんないよー」という人がいましたら
ここで聞いてください。ひょっとしたらアドバイス出来るかもしれません。

質問するときは以下の点に注意して書いて下さい

(1) そのスクリプトの内容と置いてある場所を明記する (txtファイルでUPすればなお良い)
(2) どんな風に改造して欲しいのか？ (完成イメージHTMLを用意すればなお良し)
(3) 出来るだけ詳しく書くこと。少しは自分で考えること。できれば御礼も言ったほうが良い

※答えてくれないからといって逆ギレする厨はお断り

#================================
# 過去のスレッド
#================================

【PART1】行方不明
【PART2】http://pc.2ch.net/test/read.cgi/perl/986986227/
【PART3】http://pc.2ch.net/php/kako/988/988808396.html (HTML化済み)

(　ﾟдﾟ)

乙ｶﾚｰ

【PART4】http://pc.2ch.net/test/read.cgi/php/1012839651

なぜスレ名に飾り付けたがるのか

確実に取れる5をGETしても面白くないな。

イマダ６ゲト

ズサーーーーーーーーーーーーーーーー

ぷうーあぶねー間に合ったぜ

Ruby━━━━━(ﾟ∀ﾟ)━━━━━!!!!

(　´_ゝ`）ﾌｰﾝ

>>1
お疲れさん

BOCOL

（・∀・）ｽｰﾝｽｰﾝｽｰﾝ♪
(ﾟдﾟ)ﾊｯ!
（・∀・）ｽｰﾝｽｰﾝｽｰﾝ♪
(´Д`)ｲｪｧｽｰﾝｽｰﾝｽｰﾝｽｰﾝ
（・∀・）ｽｰﾝｽｰﾝｽｰﾝ♪
(´Д`)ｲｪｲｪｲｪｧ
（・∀・）ｽｰﾝｽｰﾝｽｰﾝ♪
(´Д`)ｲｪｧｲｪｧｲｪｧｲｪｧｽｰﾝ
(ﾟдﾟ)ﾔ!　
（・∀・）ｽｰﾝｽｰﾝｽｰﾝ♪
(ﾟдﾟ)ﾔ!　
（・∀・）ｽｰﾝｽｰﾝｽｰﾝ♪
(´Д`)ｲｪｧﾓﾝﾓﾝ
(ﾟдﾟ)ﾔ!　
（・∀・）ｽｰﾝｽｰﾝｽｰﾝ♪
(´Д`)ｼｹﾀｼｹﾀ
(ﾟдﾟ)ﾔ!　
（・∀・）ｽｰﾝｽｰﾝｽｰﾝ♪
（・∀・）ｽｰﾝｽｰﾝｽｰﾝ♪
（・∀・）ｲｪｰｱ!
（・∀・）ｽｰﾝｽｰﾝｽｰﾝ♪
（・∀・）ｲｪｰｱ!　
(´Д`)ｽﾝﾍﾞｽﾝﾍﾞｿﾝｽﾝｽﾝﾊﾞ
（・∀・）ｽｰﾝｽｰﾝｽｰﾝ♪
(ﾟдﾟ)ﾌﾞﾍﾞﾗ!
(´Д`)ｽｰﾝｽｰﾝｽｰﾝ

ちなみにこのスレはWEBプログラミングに関する言語ならなんでもOKなんだよね？
Perlだけじゃないよな・・？

まぁ、そうだが、スクリプト中心で。

もちろんRubyもPythonもOKですよ
,,というよりPythonだれか教えて

鬼レスボードを
http://www.agz.jp/~pawa9/pawa9-bbs/bbs_sub.cgi
このように改造したいんですけど、どうすればいいんでしょうか？
ツリー型にしたいんです。
そこから書き込めるように。

鬼レスボードって何だ？
>>1をよく読んでくれ。

鬼レスボード　←ﾈｰﾐﾝｸﾞｾﾝｽがｲｲ（・∀・）!!

鬼即レスボードきぼん。

すいません。
鬼レスボードは、本来
http://www85.sakura.ne.jp/~cgilabo/sample/resbbs/bbs.cgi
このような形なんです。
ＤＬは
http://www85.sakura.ne.jp/~cgilabo/resbbs.html
で、やりたいのは、
http://www.agz.jp/~pawa9/pawa9-bbs/bbs_sub.cgi
のように、スレッド一覧から書き込みできるように。
書き込みしたら、スレッド一覧に戻るように。
したいんです。
悪くいえば、
http://www.agz.jp/~pawa9/pawa9-bbs/bbs_sub.cgi
と同じようなデザイン、
まんまコピーをしたいんです。
どなたかわかる人はいませんでしょうか？

２０だけど、鬼レスなんて始めて聞いたよ。

E-mail欄に
思わずsageって入れたら起こられた…。
ｶﾞｰﾝ（ｗ

改造したいスクリプト
　→kent-webのウェブパティオという掲示板http://www.kent-web.com/bbs/patio/patio.cgi
希望　→投稿内容を増やしたい。デフォルトでは名前やコメントだけだが、
年齢と性別、出身地等を記入できるようにしたい。(クッキー保存は無くて構いません）

$logder$in{'no'}\,cgiと$nowfileへの書き込みを中心に変更したのですがうまくいきません。
よろしくお願いします。

コードが長いので面倒だが少しずつ。。

patio.cgiの400行目あたりに

<table cellspacing=1 cellpadding=5 width="100%">
<tr bgcolor="$col2">
<td bgcolor="$col2" width=80>題名</td>
<td><input type=text name=sub size=30 value="$resub" maxlength=30></td>
</tr>
<tr bgcolor="$col2">
<td bgcolor="$col2" width=80>名前</td>
<td><input type=text name=name size=30 value="$cname" maxlength=30></td>
</tr>
<tr bgcolor="$col2">
<td bgcolor="$col2" width=80>E-Mail</td>
<td bgcolor="$col2"><input type=text name=email size=30 value="$cmail"></td>
</tr>

ってところがある。そこを

<table cellspacing=1 cellpadding=5 width="100%">

<tr bgcolor="$col2"><td bgcolor="$col2" width=80>題名</td>
<td><input type=text name=sub size=30 value="$resub" maxlength=30></td></tr>

<tr bgcolor="$col2"><td bgcolor="$col2" width=80>名前</td>
<td><input type=text name=name size=30 value="$cname" maxlength=30></td></tr>

<tr bgcolor="$col2"><td bgcolor="$col2" width=80>E-Mail</td>
<td bgcolor="$col2"><input type=text name=email size=30 value="$cmail"></td></tr>

<tr bgcolor="$col2"><td bgcolor="$col2" width=80>年齢</td>
<td bgcolor="$col2">

<select name="age">
<option value="10">10歳代
<option value="20">20歳代
<option value="30">30歳代
</select></td></tr>

のように年齢用プルボックスを付け加える
（書き方が上と下ではちょっと違うがどっちでもOK）

性別や出身地については同じように

<select name="sex">
<option value="boy">男
<option value="girl">女
</select></td></tr>

<select name="from">
<option value="hokkaido">北海道
<option value="tokyo">東京
<option value="okinawa">沖縄
</select></td></tr>

注意するのは<select name="age"　などの　name="〜"の〜は重複しないようにする
valueも分かりやすいように重複させないこと

↑

<tr bgcolor="$col2"><td bgcolor="$col2" width=80>年齢</td>
<td bgcolor="$col2">

が抜けてた。自分で付け足してね

次にinit.cgiの215行目あたりに

$mode = $in{'mode'};
$p = $in{'p'};
$in{'no'} =~ s/\D//g;
$in{'res'} =~ s/\D//g;
$i_nam = $in{'name'};
$i_sub = $in{'sub'};
$i_com = $in{'comment'};

ってのがあるからそこを

$mode = $in{'mode'};
$p = $in{'p'};
$in{'no'} =~ s/\D//g;
$in{'res'} =~ s/\D//g;
$i_nam = $in{'name'};
$i_sub = $in{'sub'};
$i_com = $in{'comment'};
$i_age = $in{'age'};
$i_sex = $in{'sex'};
$i_from = $in{'from'};

にする。

連続書き込み制限？

次にregist.cgiの40行目あたりに

# 投稿内容チェック
if ($i_com eq "") { &error("コメントの内容がありません"); }
if ($i_nam eq "") {
if ($in_name) { &error("名前は記入必須です"); }
else { $i_nam = '名無しのゴンベエ'; }
}
if ($in_mail && $in{'email'} eq "") { &error("E-Mailは記入必須です"); }
if ($i_sub eq "") { &error("タイトルは記入必須です"); }

ってあるからそこを

# 投稿内容チェック
if ($i_com eq "") { &error("コメントの内容がありません"); }
if ($i_nam eq "") {if ($in_name) { &error("名前は記入必須です");}
else { $i_nam = '名無しのゴンベエ'; }}

if ($in_mail && $in{'email'} eq "") { &error("E-Mailは記入必須です"); }
if ($i_sub eq "") { &error("タイトルは記入必須です"); }
if ($i_sex eq "boy") {$i_sex = "男";} else {$i_sex = "女";}
if ($i_from eq "hokkaido") {$i_from = "北海道";}
elsif ($i_from eq "tokyo") {$i_from = "東京";}
elsif ($i_from eq "okinawa") {$i_from = "沖縄";}
$i_age = "$i_age歳代";

ってな感じにする

コラコラ、◆adminSE さんは答えられる実力なんてないんだからさぁ。

>>30

んじゃあとはよろしくね

>>◆adminSE
ありがとうございます。これから試してみます。
>>30
´_ゝ`

>>32

あ、まだ↑のだけじゃ動かないからね。
修正するところいっぱいあってけっこう時間かかる

お初です。
↓エースさんのスケジュール（履歴風）を、進行管理に使いたいのです。
http://www.ace-cgi.jp/cgi/sch/005/index.html

具体的には　・・・　一行に書き込む数を増やす。
　　　　　　・・・　進行状況によって、該当行の書き込みが変えられる。

改造が簡単そうに見えたのですが、日付管理しているらしく、
同じ日付の書き込みができない。というところにぶち当たってしまいました。
管理を時・分・秒まで細かくすれば…とか思ってやってみたのですが、
だんだんとおかしなシステムになってしまいました＾＾；
書き込みを編集すると、別スレになる。削除ができない。といった不都合が
でてしまい、もうだめです…

お力をお貸しください。

ソースを挙げておきますので、改造のご指導お願いします。
改造後：http://isweb9.infoseek.co.jp/play/otenba/sample/after.lzh

じつは今gzip圧縮のＣＧＩをいじってるんですが
うちのサーバーではgzipに対応していないのです
自分でもいじったんですがうまくいきませんでした
どなたかgzipの記述を見つけて削除してもらえませんでしょうか？
アドレスは
http://x-wing.tsukaeru.jp/t/
です
まことにずうずうしくてごめんなさい

>35
2行目に
undef($ENV{'HTTP_ACCEPT_ENCODING'});

不具合出たら知らないｗ

>>36
そういう問題じゃ無いとおもわれ。

あ、そういう解決もあるか。すまん>>36

えっとすいません>>36さん
詳しくおしえていただけませんでしょうか？
すいません

できましたぁ本当にありがとうございます♪

はじめまして。
CGI-StationさんのＡｎｓ．Ｑ（http://www7.big.or.jp/~jawa/cgi-bin/ansq/ansq.cgi）なんですが、
ソースにＩＰアドレスを出さないようにしたいのです。
しょうもない質問ですが、ぜひとも教えて頂けると有り難く思います。
よろしくお願いします。

219行目の<!--$ipad $rhost-->を消せ。

>>42様
早速の解答有り難う御座いました。
やってみたのですが、投稿した人のＩＰアドレスは消えたのですが、
答えた人のＩＰアドレスはやはりソースに残ります。
答えて頂いたのに申し訳ありませんが、今一度どこをいじればいいか
教えて頂けないでしょうか。
すみません。

投稿した人のIPはもともと出ないはずだが？

>>44様。
そうですよね。それが、４２様の言われた部分を削除すると、
投稿者のＩＰアドレスは消えて、回答者のＩＰアドレスが載るように
なってしまったのです。
後いじるところといえば、どこかわからなくて・・・
本当に申し訳ないです。

＞投稿者のＩＰアドレスは消えて、回答者のＩＰアドレスが載るように
だから、投稿者のIPはもともと出ないってば。

http://www7.big.or.jp/~jawa/cgi-bin/ansq/ansq.cgi
↑だって、回答者しか出てないし。

>>46様。
大変大変失礼しました。
私の勘違いでした（汗）
ＩＰアドレス消えました。
お手数おかけしてすみません。
有り難う御座いました！！！

sage

新しい質問なんですけど、kent-web（http://www.kent-web.com/）
のyycahtを使っているんですけど、トップから入室者を表示させる方法はありますか？
もし、ありましたらお教え下さい。

>>50
期待するなよ。
このスレは質問ばかりで答えは少ないから。

>>50

トップページってindex.htmlの画面の中に表示させたいの？
それだったらSSIつかえば出来るよ。それかインラインフレームの中に
CGIファイルを表示させるとか。

それか参加者一覧みたいので別ウィンドウでCGIファイル開いて表示とか

どっち？

<form method="$method" action="$script" target="form" name="ponny">
<input type=hidden name=mode value="into">
<table border=2 cellspacing=0>
<tr><th colspan=2><font color="$t_color" size=5><b style="font-size:$t_size">$title</b></font></th></tr>
<tr><td><b>おなまえ</b> <input type=text name=name size=20></td></tr>
<tr><td>リロード <select name=retime>
EOM
$in{'retime'} = $retime;
foreach (@retime) {
if ($in{'retime'} == $_) { print "<option value=$_ selected>$_秒\n"; }
else { print "<option value=$_>$_秒\n"; }
}
print "</select> 文字色 <select name=color>\n";
foreach (0 .. $#COLORS) {
print "<option value=\"$COLORS[$_]\">$IROIRO[$_]\n";
}

print <<"EOM";
</select></td></tr></table>
<table cellpadding=0 cellspacing=0><tr>
<th><input type=submit value="入室する"></th></form>
<th><form action="$homepage" target="_top"><input type=submit value="もどる"></th>
</form></tr></table>
<SCRIPT LANGUAGE="JavaScript">
<!-- self.document.ponny.name.focus(); //-->
</SCRIPT>

これをHTML仕様にしてトップにはっつけれ

>>53
有り難う御座います。(^^
助かりました。

>>52
一応、index.htm内の事です。
５３さんのお陰でなんとかなりそうですが。(^^;

imgboard v1.22.Rev6f http://www1.big.or.jp/~talk/t-club/soft/mini_r6/index.cgi に
2chみたいなｽﾚ一覧表示機能を実装する方法はありますか？
ありましたらどなたかお教え下さい

>>55
> ｽﾚ一覧表示機能
具体的にどんなのだ？
↑にあるようなやつか？

>>56

1: IDにPerlが出た奴は神！PHPがでたらDQN (552)　2: こんなCGI探してますスレッド Ver6 (754)　3: 【 スクリプト改造工房 PART 5 】 (56)　
・・・
スレッド一覧はこちら

みたいな漢字でおながいします

はじめまして。
http://zurubon.strange-x.com/upload.txt　ずるぼんあぷろだ
なのですがひとつひとつのファイルに返信できるように改造できませんか？
希望としてはDATEの横にRESというものを作ってそのRES押すとRES投稿欄
と下に投稿された返信コメントを表示されるようにして欲しいのですが
返信できたら良いです。どうかお願いします

>>58
ttp://fafa.page.ne.jp/idol/file.html
こんな感じか？

>>59の所のように全ページHTML表示にできますでしょうか？

よろしくお願いします。

「Ａｋｉａｒｙ」（http://www.hi-ho.ne.jp/yakira/akiary/）という日記スクリプトなんですが、
過去日記を、目次（例えば○月×日「タイトル」・○月△日「タイトル」スタイルに
変更することは、ムズカシイことなんでしょうか？
（現在は、過去日記の目次は月毎で、月ボタンを押すとその月がずらずらっと
全て現れる状態です）
あまりPealの知識がなく、どこをいじればいいか皆目検討が尽きません。
申し訳ありませんが、アドバイスをお願いいたします。

ハケーソ！
http://ja2kai.hoops.livedoor.com
これはなんだ？

>>61
漏れもPealは知らないな。
誰か知ってる奴にでも教えてもらえ。（ｗ

>>63さん。
間違ってました。ごめんなさい。Perlですね・・・。
本当にすみません。

>>59
遅れてすいません。はい。そういう感じで良いです！
それは配布してないでしょうか？

*** 殺伐スレにほのぼのキャンペーン ***

http://www.gassan.co.jp/s.es.tasiro/
田舎の寂れた田代小学校のHPを、１００万アクセスの
超人気サイトにしてあげる、夏休み特別企画です。

（現在ここがターゲットです）

どんどんコピペして他の板にまいてください

#●レス書き込み
#####################
sub reswrite{
&datacheck;
my (@lines,@tmp,$inflag,$lastmsg,$xno,$pastpage, $mcount,$insert,$msum,$mdata);
my ($lasttime,$lot,$rflag,$xres) = (0,0,0,0);
my $momy = "";
my @xnew = ();
my $crypted = &encrypt($delkey);
&lock;
open (IN,"$logfile") || die &error("Open Error : $logfile");
my ($xno,$pastpage, $mcount,$msum) = split(/<>/,scalar(<IN>));

while(<IN>){
#書き込み処理
open(WR,">$logfile") || &error("Write Error : $logfile");
#一行目
print WR "$xno<>$pastpage<>$mcount<>$msum<>\n";
print WR "$mlist[0]<>m<>$mlist[2]<>$mlist[3]<>$mlist[4]<>
$mlist[5]<>$mlist[6]<>$mlist[7]<>$mlist[8]<>$mlist[9]<>
$mlist[10]<>$mlist[11]<>$mlist[12]<>$resize<>$name<>$today<>$mlist[16]<>$mlist[17]<>$mlist[18]<>\n";
print WR @xnew;
print WR "$xno<><>$vine<>$xres<>$today<>$name<>$mail<>
$url<>$crypted<>$subject<>$msg<>$addr<>$host<><><><>$color<>$icon<>$admark<>\n";
print WR @lines;
close (WR);
&unlock;
&setcookie;

これではどうしても返信すると親記事が上がってしまうんです
どうしたら、あがらないようにできるのでしょうか？
ご教授願えたら、幸いです

>>67
何のソースだよ？
というか一部省略してないか？

>>65
配布はしていないと思われます。
なんか見つけただけですね。すみません。

CGIの呼び出しが設置しているサイト内のリンク以外からだったら
お断りするロジックを追加したいのですが…

HTTP_REFERER を？？？良く判りません。宜しくお願いします。

$myurl = 'http://hogehoge.com.';
if ( $ENV{'HTTP_REFERER'} !~ /^$myurl/ ) {
exit;
}

適当に。

>71さん

ありがとうございます。やってみます。

2chに書き込みさせるスクリプトを作っているのですがうまく投稿できないみたいです。
どなたか見ていただけませんか？
http://kari.to/upload/source/4464.txt

test

55行目の
print $sock "Host: $HostAddr\r\n";
を
print $sock "Host: $hostaddr\r\n";
にしたら74のように投稿できますた。
perl -cwでSyntax checkしたら一発でわかりましたが。

>>75
あ、一回手直ししたときにコピー元から直してなかったのか。。
うまくできました。どうもです

日記風の掲示板なのですが
タグを使用できるようには何とか改造できたのですが
オートリンク？を切ることができません。
色々調べたりしていじってみたのですが結局ダメでした。
オートリンクって設定の命令がないと機能しない物ですよね？

タグで直接
<font><a href="http:ほにゃらら">テスト</a></font>
と書き込むと

　　http://ほにゃらら">テスト
と表示され、httpを書くとプログラムで自動的につくのかと抜いて書くと
見た目は成功してるのですが　リンク先が

cgiの設置場所URL/http://ほにゃらら　　
と設置場所のURLがくっついてきてしまいます。

なんとかできないでしょうか？

配布元はもう無くなってしまっています

スクリプトを以下にUPしました。
http://www.geocities.co.jp/SiliconValley-Bay/5767/dr.txt

分かり難い文で申し訳ないです。よろしくお願いします。

168行目

１６８行目って言うと
print "<DIV ALIGN=center><NOBR><SMALL>";

の部分ですか？？
それとも１６８行目以降という意味？？

えと、78さんの仰る通りですが、
レスに http が書いてあった場合は自動リンクで良いのかな？
それも外したければ 176行目もコメントアウトです。
クドイでしょうが、以下、そのへんの当たりの付けかた ↓↓↓

http が含まれている文字列を <A HREF="http文字列">http文字列</A> に変える
必要が有るのだから、スクリプト中で 置換命令 ( =~ s/なんとか/かんとか/ ) が
書かれてあって、なおかつ A HREF= も書かれて有れば、その行に見当をつけます。

で、168行目が正にその通りで、
　$hb_txt =~ s/((http|ftp):\/\/[\w]*\.[\w\/\.\?\-~=&#]*[\w\/\?])/<A HREF=\"$1\">$1<\/A>/g;
となっていますから 行頭に # をつけてコメントアウトします。
# $hb_txt =~ s/((http|ftp):\/\/[\w]*\.[\w\/\.\?\-~=&#]*[\w\/\?])/<A HREF=\"$1\">$1<\/A>/g;
説明が下手ですみません。 私は初心者ですのでご勘弁を。

>>79
http://pc.2ch.net/test/read.cgi/php/1028052835/l50

>>80
ありがとうございました。
なんとか出来たようです。
行番号がずれてたみたいで折角ヒント頂いたのに
生かせなくてもうしわけありません、78さん。
この辺もいじってたんですがいじりが足りなかったようですね(^^;

本当にありがとうございました〜

http://sound.jp/idm/sch003.txt

↑なんですが、置いてるサーバがアメリカのせいで、
日付が狂ってしまいます。日本時間に直すにはどこを
どういじったらいいんでしょうか。
いろいろ見てみたんですが、わかりませんでした。。
よろしくお願いします。。

上のほうに
$ENV{'TZ'} = 'JST-9';
を書き加えてみたら？

#---- 現在日付 ----#
の下に加えたらいいよ

>>84 >>85

できますた！ありがとうございますた！
たった一行の追加でOKだったなんて、、、。
ほかにもいろいろ時間の狂ったCGIが置いてあるので
これから片っ端から試してみます。おかげさまで
これでやっと日本時間に日記更新できます（;´3｀）

２ちゃんに自動書き込みのできるスクリプト探してます。

以下のようなホームページ上から、感想などを送ってもらうsendmailを利用した
プログラムなんですが、簡単な素材などを提供して貰う為、
ファイルも添付できるように改造したいです。どうすればいいでしょうか？

------------------------------------------------------------------

@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {

($name,$value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;

&jcode'convert(*name,'sjis');
&jcode'convert(*value,'sjis');

if ($name eq 'to') { $to = $value; }
if ($name eq 'from') { $from = $value; }
if ($name eq 'subject') { $subject = $value; }
if ($name eq 'body') { $body = $value; }

}

# cheack
if ($from eq "") { $from = "unknown\@."; }
if ($from eq " ") { $from = "unknown\@."; }


# send mail
&jcode'convert(*from,'jis');
&jcode'convert(*subject,'jis');
&jcode'convert(*body,'jis');
if (!(open(MAIL,"| $sendmail -t"))) { &error('システムエラー','メールの送信に失敗しました。'); }
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n";
print MAIL "Content-Type: text/plain; charset=iso-2022-jp\n";
print MAIL "$body\n";
close(MAIL);

# view html
&jcode'convert(*from,'sjis');
&jcode'convert(*subject,'sjis');
&jcode'convert(*body,'sjis');
$body =~ s/\r\n/\r/g;
$body =~ s/\n/\r/g;
$body =~ s/\r/<BR>/g;

既存のファイルも添付できるのを使え。

>>88
mime

すみません。
KENT-WEB（http://www.kent-web.com/の)YY-BOARDを使っているのですが、
アイコンの選択のところで、ランダムを選択してアイコンをランダムに表示するには
どうすればいいのでしょうか？
くだらない質問かもしれませんが、よろしくお願いします。

＞＞９２
ごめん、やりたいことの意味がよく把握できないので、とんちんかんな返事かも？
とりあえず、お書きだったリンクから 'YYBBS v4.6' を入手してテストしてみました。

前準備：
rand.gif という名前でアイコンを作って img/ の中へ入れておきます。

スクリプト修正：
８５行目当たりの…

　　# アイコンを定義（上下は必ずペアで）
　　@icon1 = ('bear.gif','cat.gif','cow.gif','dog.gif','fox.gif','hituji.gif',
　　　　'monkey.gif','zou.gif','mouse.gif','panda.gif','pig.gif','usagi.gif');
　　@icon2 = ('くま','ねこ','うし','いぬ','きつね','ひつじ',
　　　　'さる','ぞう','ねずみ','パンダ','ぶた','うさぎ');

…に、【ランダム】の項目を付け足すために ↓ のように書き足します。
　　−−(改行が多すぎますって怒られて書けないので) 続きは次へ−−

　　# アイコンを定義（上下は必ずペアで）
　　@icon1 = ('bear.gif','cat.gif','cow.gif','dog.gif','fox.gif','hituji.gif',
　　　　'monkey.gif','zou.gif','mouse.gif','panda.gif','pig.gif','usagi.gif','rand.gif');
　　@icon2 = ('くま','ねこ','うし','いぬ','きつね','ひつじ',
　　　　'さる','ぞう','ねずみ','パンダ','ぶた','うさぎ','ランダム');


１４２９行目当たりの…
　　# 管理アイコンのチェック
　　if ($my_icon && $in{'icon'} eq $my_gif) {
　　　　if ($in{'pwd'} ne $pass) { &error("管理用アイコンは管理者専用です"); }
　　}

…の下にでも ↓ を書き足します。
　　if( $in{'icon'} eq 'rand.gif' ){
　　　　$in{'icon'} = $icon1[ int( rand( $#icon1 ) ) ];
　　}

十分なテストを行ったわけではありませんから動作は未保証です、すみません。
http://you.s16.xrea.com/b/
へ置いてみましたので、チェックしてみてくださいネ。

>>93>>94
できました！ありがとうございます！
欲を言えば、クッキーにランダムを覚えさせておきたいんですが…
クッキーの発行辺りをいじればよさそうなんですが、書き方が分からないもので。
それと、rand.gifを用意するということは、ランダム表示の際に、rand.gifが表示されることもあるのでしょうか？
質問続きですみません。

９２さん、ご報告、ありがとうございました。
無事に動きましたか、良かったです。 これからも改造、頑張ってくださいね。

＞ それと、rand.gifを用意するということは、ランダム表示の際に、
＞ rand.gifが表示されることもあるのでしょうか？
いえ、rand.gif は表示されませんが、ダミーとして入れておかないと、
【画像イメージ参照】をクリックした時に ×印(画像が無いって意味)が表示されて
エレガントじゃ無いですから、その対処として、rand.gif を入れてあるだけです。

＞ 欲を言えば、クッキーにランダムを覚えさせておきたいんですが…
はい、対応できるように考えてみます。
でも、今からちょっと仮眠タイムですので、明日になっても良いですか？ ごめんね。
それでは、また明日にでも…。 (って、どなたかが対応してくだされば嬉しいのですが。)

>>96
rand.gifは表示されないんですね。分かりました。
クッキーの件については、
お忙しい中、申し訳ありませんがよろしくお願いします。

もう少し勉強せねば…

う〜ん、う〜ん、思ってた以上に難しくって、、、９２さん、すみません。
なんとかクッキ対応にしたかったのですが、私のチカラ不足です。
とりあえずのサンプル と 説明は → http://you.s16.xrea.com/b2/

と、いう訳なので、どなたかにバトンタッチ！ お願いします。

>>98
とんでもないです。朝早くからわざわざページまで作ってくださって
感謝感謝です。
自分の思ってたほど処理が簡単じゃなかったんですね。
この機能はあったら便利だけど、なくて困るようなものじゃないので…
しばらくこのままで使ってみます。

ほんとにありがとうございました。

１００ゲト！
＞＞９９
９２さん、レスをありがと！
お役にたてなくて ＆ 中途半端にしゃしゃり出て すみませんでした。
私も今後、精進に励みますので、どうかご勘弁ください。

ここはこーだろ？ って、どなたかが教えてくださればありがたいのですが…。
どうぞよろしくお願いします＞ 分かるかた

＞１００ゲト！















（　´,_ゝ`） ﾌﾟｯ

ｯﾁﾓﾆ。

>>100
クッキーにはそのまま$in{icon} = rand.gifで記憶させとけ。いじる必要無し。
変なとこで変換しないで書き込む直前でのみ変換させれ。
具体的には

sub regist{
の

# パスワードを暗号化
if ($in{'pwd'} ne "") { $ango = &encrypt($in{'pwd'}); }

の下辺りに

$in{'icon'} = $icon1[int(rand( $#icon1))] if($in{'icon'} eq 'rand.gif');

を置けば事は済むだろ。試しとらんけど。

>>102
おいおい、ｯ が余計だろ

＞１０３
どうもありがとうございます、試してみます。

１００さんへ
早速、試してみましたが、うまく動きません。 残念です。
投稿、返信、と移ったときにはクッキは効いてますが
返信、投稿、と戻った時にはクッキが【ランダム】では無くなります。
それと、表示されちゃ困る rand.gif が表示されちゃいます。
テスト結果は → http://you.s16.xrea.com/b2/yybbs.cgi でした。

>>ビギナー
ならこうしてみ。試したら出来た。

# パスワードを暗号化
if ($in{'pwd'} ne "") { $ango = &encrypt($in{'pwd'}); }

if($in{'icon'} eq 'rand.gif'){
$rand_icon = 1;#フラグを立てる
$in{'icon'} = $icon1[int(rand( $#icon1))];
}else{$rand_icon = 0;}


〜

書き込み処理

〜


if($rand_icon){$in{icon} = 'rand.gif';}#書き込み終わったので戻す

# ロック解除
if ($lockkey) { &unlock; }

>>107
92ですが、107さんのようにすればできました。
ビギナーさん、103さん、107さん、ありがとうございました！
あと、rand.gifを表示しないようにするには、アイコンの定義のところで

@icon1 = ('bear.gif','cat.gif','cow.gif','dog.gif','fox.gif','hituji.gif',
　　　　'monkey.gif','zou.gif','mouse.gif','panda.gif','pig.gif','usagi.gif','rand.gif');
@icon2 = ('くま','ねこ','うし','いぬ','きつね','ひつじ',
　　　　'さる','ぞう','ねずみ','パンダ','ぶた','うさぎ','ランダム');

#rand.gifを除く
@icon3 = ('bear.gif','cat.gif','cow.gif','dog.gif','fox.gif','hituji.gif',
　　　　'monkey.gif','zou.gif','mouse.gif','panda.gif','pig.gif','usagi.gif');

という風に、icon3を付け加えて、ランダム処理の記述を

$in{'icon'} = $icon1[int(rand( $#icon3))];

にすればrand.gifは表示されなくなりました。（多分）
合ってるかどうか分かりませんが、とりあえず問題なく動いてます。

107さん、 92さん、ありがとうございました。
順を追って試してみたのですが…。

う〜ん、やっぱり rand.gif が表示されちゃいます
投稿、返信、修正、とやってるうちで クッキの件は解決されましたが
rand.gif が表示されちゃう件は未解決です
修正で【ランダム】を選択すると ↑ の現象が起こります

自分が去年書いたコードでは、
unshift (@icon1,"rand.gif");
unshift (@icon2,"ランダム");
を
foreach(0 .. $#icon1) {
前に加えて

sub regist{
# パスワードを暗号化
if ($in{'pwd'} ne "") { $ango = &encrypt($in{'pwd'}); }
の下辺りに

if ($in{'icon'} eq 'rand.gif'){
# アイコンにランダムが選択されたときの処理
$in{'icon'} = "$icon1[int(rand($#icon1))]";
}
という風にやっています。

もっと、うまい方法があるだろうけど、
これによって、ランダムを選択したときrand.gifが表示される事は無いと思う。

まずは、99行目の# アイコンモード
の下に
# ランダムアイコンモード (0=no 1=yes)
$rand_icon = 1;
と付け加えてください

357行目と745行目に# 管理者アイコンを配列に付加
とあるので、その上に
　# アイコンをランダムにする配列を付加
　if ($rand_icon) {
　　unshift(@icon1,"random");
　　unshift(@icon2,"ランダム");
　}
と付け加えてください
　
541行目に# クッキーを発行
とあるので、
　# ランダムアイコンかチェック
　if ($in{'icon'} eq "random") {
　srand;
　$r_icon = int(rand(scalar @icon1));
　$in{'icon'} = $icon1[$r_icon];
　　}
こんなの拾った。試してはないけど

前記のビギナーですが、、、１１０さん、１１１さん、どうもありがとう。
教えていただいた方法を今度、試してみます。

１７氏スクリプトの改造なんですけど
スレッドを立てた１だけのリモホを、表示させるには
どうすれば良いの？？

↓書き込みスクリプト
http://band.lib.net/2ch/bbs.txt

ちっとは自分で試行錯誤してから
質問しろやボケ

>>113　同さ未確認ですが何か?
288行目に追加
$threadtate_ip = $ENV{'REMOTE_HOST'};

897行目を変更
print OUT "$FORM{'FROM'}<>$FORM{'mail'}<>$DATE $threadtate_ip <> $FORM{'MESSAGE'} <>$FORM{'subject'}\n";

>>114
ここは殺伐としたインターネットですね

>>115
ありがとうございます、早速やってみます。

サーバーエラーになっちゃった
print OUT "$FORM{'FROM'}<>$FORM{'mail'}<>$DATE<> $threadtate_ip <> $FORM{'MESSAGE'} <>$FORM{'subject'}\n";
にしても、エラー

http://band.lib.net/2ch/16a.zip

>>117
$threadtate_ipの宣言と受け渡ししてないだろ。
よくわからないなら3行目の use strict; は消しとけ。そうすりゃ
いつでもどこでも勝手に変数使えるから。

>>117
どうしてサーバエラーになるのかくらい調べなさい。

少しは自分の脳みそ使えやボケ

KENT-WEB（http://www.kent-web.com/の)YY-BOARDの改造について質問なのですが
記事に返信する場合に、記事を上に上げるか上げないかは初期設定で行うようになっているのですが、
それをネット上で実際に返信する人が選べるようにしたいのですが、そういう設定にするにはどうしたら良いのでしょうか？

>>121
上げたくないときは、メール欄にsageと書くのじゃ

結構簡単そうなんだけどな。

>>121

103行目の $topsort を削除する

# 返信がつくと親記事をトップへ移動 (0=no 1=yes)
# $topsort = 1;


ログ書き込み処理のとこを変更
593行目

# レス記事の場合：トップソートあり
elsif ($in{'reno'} && $in{'topsort'} eq "age") {


返信フォームのとこにソートするかしないか追加(とりあえず730行目あたりにでも)

<tr>
  <td nowrap><b>ＵＲＬ</b></td>
  <td><input type=text name=url value="http://$c_url" size=$url_wid></td>
</tr>
<tr>
  <td nowrap><b>ソ\ート</b></td>
  <td>
  <select name=topsort>
    <option value="age">スレッドをあげる</option>
    <option value="sage">スレッドをあげない</option>
  </select>
  </td>
</tr>
EOM

ラジオボタンなら
<INPUT type=radio name=topsort value=1 checked>age
<INPUT type=radio name=topsort value=0>sage
とか

>>125の場合は
eq "age"
は要らないです

みなさんどうもありがとうございます。
早速やってみたのですが、一回目は失敗しました。
もう一度やってみます。
できたら報告します。

それとちょっとお聞きしたいのですが、
ディフォルトが記事を上げない設定で
チェックを入れたときだけ記事を上げる設定にする場合が
一番良いのでその記述方法を可能でしたら教えて下さいませ。
厚かましくて申し訳ありません。

<input type="checkbox" name="topsort" value="1">あげる

私も、KENT氏のMT-BOARDの改造についての質問なのですが。
改造したい部分は、メール欄に書き込んだ時に表示色を
変えたいのですが他のスクリプトと見比べてもわかりませんでした・・・
どなたかご教示下さい。お願いします。

>>130
つーかHTMLの改造で簡単に済むかと思われ
この板で聞く質問ではない。

>>130
「何の」表示色よ？本文？画面全体？
つーかMT-BOARDってどこにあんのよ。
KENTのサイト探してそのスクリプト探して該当部分探して答え教えろと？

http://www.big.or.jp/~talk/t-club/soft/index.html
ここにある画像アップロード掲示板を
http://fafa.page.ne.jp/bbslog/imgboard.cgi
ここのように2chみたいにして貰えませんか？

>>133
大改造が必要です。
自分で改造してください。

>>130
MT-BOARDって書籍収録でしょ？
スクリプトが簡単に手に入らないのにどうやって改造するのさ

ｽｸﾘﾌﾟﾄ見直し解決しました。
ｱﾎな質問してすみませんでした。

ブラクラを防止する方法
結構役に立つ
Enter押して個人情報防止+ブラアクラ防止のテクに行く

http://kobe.cool.ne.jp/sowin/

<age>-><sage>

KENTさんの所のアンケート（投票）のスクリプトです。
http://www.kent-web.com/data/enq.html?
inputボタンの文字のサイズを10pxにしたいのですが、全然できません。
普通に<head>で始まってるものならできるけれど
これの「enq.cgi」だと「&header」とか「print」とかわからないのばかりで
どこにどう書いたらいいのか・・・。
色々試したけれど、ダメでした。

あともう一つ。連続投票をすると「ERROR!」と出るページがあるんですが
その文字のスタイルも変えたいです。
これは「&error」というのをどうにかするのでしょうか？
どうか教えてください！お願いします。

>>139
>>1
＞(1) そのスクリプトの内容と置いてある場所を明記する (txtファイルでUPすればなお良い)
いちいちDLしてくれる人は少ないぞ、と。

>>139
ソースを「HTMLヘッダ」で検索した先にHEAD要素の出力があります。
後は御自由に。

140&141さん、こんな時間にありがとうございます。
で・・・でき・・・できました！大感謝です。嬉しいよー

http://www.kentweb.jp/
の掲示板のYY-BOARDで半角カタカナを使用できるようにしたいんですけど、
どこをどのように改造すればいいでしょうか？
よろしくおねがいします。

>>143
# 文字コードをシフトJIS変換
&jcode'convert(*value, "sjis", "", "z");
↓
&jcode'convert(*value, "sjis", "", "");

>>144
修正したけど無理でした‥
なぜですか？

# 文字コードをシフトJIS変換
&jcode'convert(*value, "sjis", "", "z");
↓
&jcode'convert(*value, "sjis");

>>143
jcode.plじゃ入力文字コードも指定しないと無理。
jcodeg.plを拾ってきて使うか自前でコード判別して
&jcode'convert(*value, 'sjis',"$判別した入力コード");
とするか。

(ﾉﾟοﾟ)ﾉ ｵｵｵｵｫｫｫｫｫｫ-
できました!!!
>>147さん
こんな朝っぱらから初歩的な質問に答えていただきありがとうございます!!!!!
感謝感激雨あられ

レッツPHPのスクリプトの改造で悩んでいます。
同一ホストからの連続投稿に時間制限を設けたいのですが(例えば一度書き込んだら
その後30分は書き込みできないようにする)、どこに何を書き込めば解決するでしょうか。
ソースは下記のものになります。
ちなみにPHPのバージョンは4.2です。

http://php.s3.to/simple/#short

http://dream.lib.net/room/cgi/e_ps.html
↑このパワーサーチという検索エンジンを改造したいです！
後から登録したサイトが上位に表示されるのを
下に表示したいです！seek(ファイルハンドル,0,0)
を変えてもファイルの末尾に書き込んでくれません。
リンクを書き込むファイルlink.datを先頭からではなく
後ろに追加していくにはどうしたらいいでしょう？
ps_user.cgiがネックだと思うんですが・・・。正直誰かに助けられたい。
依存心なさやかです。

>>150
ソース見てないけど、seek(ファイルハンドル,0,0)ってのは、
書き込み位置をファイルの先頭にもって行ってるんだ。
だから後ろに書き込むには、そいつをカットしちゃえばいい。

>>150 のさやかさんが困ってるみたいですよ〜。
　　さやかさんは、ファイルに書き込む時にポインタを先頭に
　　あわせる、すると表示される時に後から登録したやつが
　　上に表示されるのがいやらしいです。助けてあげようよ〜。

>>150
ps_admin.cgiの251行目と252行目を入れ替えれば良いんじゃない？

>>150
>> むこうの 325
> seek(ファイルハンドル,0,0)
> これを0→2にしてもだめだったです

その直前の truncate(IO,0) が何をしてるか理解してる?
それが分かれば seek(IO,0,0) を seek(IO,0,2) にしても
無駄だと分かる筈だよ。

> 登録するときにlinkdata.dat　に書き込みますよね

というのが分かっているなら、
linkdata.dat に何を書き込んでいるかを調べるべきだ。

612: seek(IO,0,0);
613: print IO @site;
614: close(IO);

ココだよね? では @site の中身はどこで作られている?

>>152
最後まで付き合うからそういうのはやめようね。

>>152
IDって知ってる？書き込み時刻の後ろについてるの。
困ってるのはわかるけど自作自演は止めよう。

609行目のunshiftをpushにするだけじゃないのか

面倒なんで余り見てないが

書き忘れたが、admsg.datには今まで通り書き込まれます
これも追加如に下段に追加するなら、pushに

すごい！できました！>>156さん！！！嬉しいです。
私も勉強してがんばります！>>156さん！ささやかなお礼です↓






　　　　　　　　　　　　　　　（*´∀｀*)（*＾ε＾*）チュ♪

なんというか･･･、ﾎﾟｶｰﾝ(ﾟДﾟ)

―終了―
―再開―

up

http://php.s3.to/online.phps

上はオンライン中の人数をカウントするphp scriptなんですけど
これにUSER AGENTもチェックする処理を追加させたいです。
phpのスキルある方知恵を貸して下さい、お願いしますm(__)m

>>162
カウントするだけならIPだけで十分だと思うけど。

163さんレスありがとです。

PCサイトならIPだけで充分なんですけど、
自分のサイトは携帯からのアクセスがあるのでUAもチェックさせないと
うまくカウントしてくれないと思うんです。
それでも携帯だと来た人が違くてもIPとUAが一緒だとカウント
してくれないですけど、それはしょうがないので我慢します。
UAチェックのscript改造お願いしますm(_ _)m

>>162
携帯だとアクセスの度にIPアドレスが違うけどいいの?

>>165さん
はい、構わないです。
IPとUA両方をチェックさせたほうがIPだけよりかは
まだ正確ではないですけど携帯ユーザーの実際のオンラインの
数に近くなると思うので是非お願いしますm(_ _)m

ttp://ugug.virtualave.net/uub/board.cgi（認証：1234）
ここにあるCGIの板を下記のようにして欲しいのですが良かったら
どなたかアドバイスお願いします。

http://snow.prohosting.com/kvvwpyt/test.html
お礼数の追加。カウントさせる。
http://snow.prohosting.com/kvvwpyt/test2.htm
お礼するにチェックをするとカウントさせる。

ソースのDL場所は、
ttp://ugug.virtualave.net/uub/readme.html#source
です。お願いします。

犯罪者は部落から出て来るなよ
臭いんだよ

>>167
僕の犯罪のお手伝いをして貰えませんか？
ってことでしょうか？

http://sound.jp/idm/cabinet.txt

のsub find実行時に件数を一気にださないで
数件ずつ表示するようにしたいんですが、
どうしたらいいでしょうか。

sub view実行時には件数を限定できるんですが、その部分を
コピって$pfind = 7;みたいな変数を作って$pviewの部分を
書き直してもムリでした。

よろしくお願いします。

>>170
テキトーだけどこんな感じ

# 結果を表示
$i++;

↓

# 結果を表示
$i++;
next if($i < $in{gaisyutu});
if($i > 数件){
print "<a href="URL?gaisyutu=$i&検索条件色々">次</a>"
last;
}

訂正
×if($i > 数件){
○if($i > 数件+$in{gaisyutu}){

>>172
即レスありがとうございます。
>>171の方で試してみたんですが、だめでした。。

sub find 時にどういう変数が引き渡されてるか分からないので、
sub view時の

if ($i == 0) { print "<DT><該当する登録内容はありません>\n"; }
else {
$next = $page + $pview;
$back = $page - $pview;
print "<table><tr>\n";
if ($back >= 0) {
print "<td><form action=\"$script\" method=\"POST\">\n";
print "<input type=hidden name=mode value=\"view\">\n";
print "<input type=hidden name=area value=\"$in{'area'}\">\n";
print "<input type=hidden name=cate value=\"$in{'cate'}\">\n";
print "<input type=hidden name=page value=\"$back\">\n";
print "<input type=submit value=\"前の$pview件\"></td></form>\n";
}
if ($next < $i) {
print "<td><form action=\"$script\" method=\"POST\">\n";
print "<input type=hidden name=mode value=\"view\">\n";
print "<input type=hidden name=area value=\"$in{'area'}\">\n";
print "<input type=hidden name=cate value=\"$in{'cate'}\">\n";
print "<input type=hidden name=page value=\"$next\">\n";
print "<input type=submit value=\"次の$pview

の部分に何を入れたらいいのか分かりません。

つづく

訂正
×print "<a href="URL?gaisyutu=$i&検索条件色々">次</a>"
○print qq(<a href="URL?gaisyutu=$i&検索条件色々">次</a>");

ザルだな俺

すいません、私は>>170でした。

ちなみにサンプルは
ttp://www.kent-web.com/pubc/cabinet/cabinet.cgi
です。

つづき
sub viewのときは条件が単一なので、
（mode=view&area=0&cate=2のような感じで）
次何件というのが表示できるのは分かるんですが、

上記コピペのmode=viewをmode=find,に下場合、
複数条件を指定したときにどういう風な形で
変数が渡されるのかが分かりません。

てんぱってるので変な文章ですいません、、。
よろしくお願いします。

sub findはviewを通らずにexitしてるが。

>>174

ありがとうございます。
厨質問ですいませんが、gaishutuっていうのはそのままでいいんですか？
それともこちらの環境に合わせて何か書き直さないといけないんでしょうか？

また>>175に書いたとおり、
”検索条件色々”の際に渡される変数の形が分からずに困っております。

何度もすいません。。よろしくお願いします。。

gaisyutuはそのままでも何でもいいよ。
検索条件はこんな感じかなぁ。

$in{'word'} =~ s/([\W])/sprintf("%%%02X",unpack("C",$1))/ge;
print qq(<a href="URL?gaisyutu=$i&area=$in{'area'}&cate=$in{'cate'}&word=$in{'word'}">次</a>);

すいません、レスありがとうございます。
出先だったので今から試してみます。
ほんとに、助かります。
ありがとうございます。

>>178
うーん、せっかく書いていただいたのに、だめっぽいです。。
単一条件指定のときにはうまくいくんですが、 area,cateを複数指定すると、
area,cateそれぞれ１つ目の 条件以外が無視されてしまいます。。
>>176
ややこしい書き方ですいません。
>>173のはsub view時のものをsub findのところに
コピったということです。検索結果処理の前に
# 検索情報を整理
@fa = split(/\0/, $in{'area'});
@fc = split(/\0/, $in{'cate'});
$in{'word'} =~ s/　/ /g; @wd = split(/\s+/, $in{'word'});
という処理をしてるので
mode=find&area=@fa&cate=@fc&next=$page
みたいな感じだとは思うんですが、変数が２つ以上渡された時、
URL的には どうなっているんでしょうか？
例えば、$pageが9で、areaが1と2,cateが1と3見たいな時は
mode=find&area=1,2&cate=1,3&next=9
みたいな感じなんでしょうか。

>>180
URLには&area=1&area=2…って並ぶ。
それはそうと自分でもやってみた。一応平気みたいだけどまだ問題ある？

# 結果を表示
$i++;
next if($i < $in{gaisyutu});
if($i > 10 + $in{gaisyutu}){
$in{'word'} =~ s/([\W])/sprintf("%%%02X",unpack("C",$1))/ge;
$in{'area'} = '';foreach(@fa){$in{'area'} .= "&area=$_"}
$in{'cate'} = '';foreach(@fc){$in{'cate'} .= "&cate=$_"}
print qq(<a href="$script?gaisyutu=$i&mode=find&cond=$in{cond}$in{'area'}$in{'cate'}&word=$in{'word'}">次</a>);
last;
}

>>181

出来ました！！！まじでありがとうです！！！
うれしいいいいいい！！ほんとに感謝してます！！

ああ、、、なんてお礼をしたらいいんだろう、、。
ほんとに会ってお礼を言いたいくらいです、、、。
2ch見はじめて以来の感動です。
マジで助かりました。
こんなに長々付き合って頂いてほんとに感謝します。
ありがとうございました！

#上のコードとほとんど変わってないってことは
#僕のやり方がやっぱりおかしかったんですね、、。
#お手数かけましてほんとにありがとうございます。
#いやあ、、うれしい、、、！！

>>182
気にすんな。おつかれ(w

>>182
いやあ、、、一昨日くらいからずっと悩んでいたのでほんとにうれしいです（涙）。
しつこいですけど、ほんとにありがとうございました。

間違えました
>>182 じゃなくて >>183　でした。
じゃあ、逝ってきます！

http://uho.s7.xrea.com/cgi-bin/yy2ch/
なんだけど、
>>各スレッドから1-100を表示する みたいな感じにできないのですか？
>>一つのスレに 最大いくつまで書き込めるかも設定できるようにしてほしいです。
の機能、漏れもつけたいと思って自分で改造しようとしたけど何処をいじったらいいのか
わからない…。
何方か教えてくださいませ…。

>http://pc.2ch.net/test/read.cgi/php/1032704121/83

sub frame の
&header; を
&header(1); に変更、

sub header を以下のように。

if($_[0]){$doctype = 'Frameset';}
else{$doctype = 'Transitional';}
print "Content-type: text/html\n\n";
print<<"EOM";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 $doctype//EN">
<html>…


質問がスレ違いなのでこっちに書いとく。

誰か教えて〜〜〜〜〜〜〜。
無理なら、2chで使われてるのに一番近い機能がある板を教えてください。
お願いいたします。

>>188
やっぱ、メガビだろ？
http://www.megabbs.com/

ゆいちゃっとを改造したら発言自動消去が効かなくなってしまいました。
どなたか診てください。おねがいします。

http://www.geocities.co.jp/HeartLand-Cosmos/4228/enter.txt
http://www.geocities.co.jp/HeartLand-Cosmos/4228/chat.txt

http://www.gamehayappari.com/

Webプログラミング板の皆様、こんばんは。
この度は皆様にスクリプト改造のお願いがあって参りました。不束者ですがどうぞ宜しくお願い致します。

早速お願いに入りますが、http://xxx.vis.ne.jp/a/ealis.cgiに設置した掲示板

・スクリプト配布元『http://kano.feena.jp/erial/ealis2/』
・スクリプトの改造版レタリングエンジン配布元『http://www85.sakura.ne.jp/~cgilabo/cgi.html』
★レタリングエンジンのソース『http://xxx.vis.ne.jp/a/ealis_let-topic_icon.txt』

…について、特定のスレッドに対してのレスが１００件に達すると返信フォームが無くなって、これ以上返信不可能になるように改造していただきたいのです。
具体的には１００件に達すると返信フォームの部分を、以下のHTML文に変換するようにしていただきたいのです。
↓↓↓
<TABLE border="0" cellpadding="10" cellspacing="1" bgcolor="#000000"><TBODY><TR>
<TD bgcolor="#ffffff"><B>レス数が１００を超えたためこのスレッドには投稿できません。<BR>
必要に応じて新しいスレッドを立ててください。</B></TD></TR></TBODY></TABLE>
↑↑↑
そう機能するにはどのように改造すれば宜しいでしょうか？ご教授くださいませ。
どうか宜しくお願い致します。

if ($no =100) {print $over)
else
{$resform}

全く見てないけど。

>>193
==。

全く見てないけど。

>>193-194様
ご回答どうもありがとうございます。感謝しております。

とりあえず$noの部分を$numberに変えてちょっといじってみましたが全然出来ませんでした。
力不足で申しわけありません…。
もし宜しければ、詳しくご指導お願いできないでしょうか？
あつかましい願いで申しわけありません。宜しくお願いいたします。

これどう？

if($number >= 100){
print "レス100新スレ立てれ";
}else{
print "レスつけろ。";#通常の表示するものなぞ。
}

$numberはスレッドのナンバー。
レスは$tres[$number]。
sub reswindow
{
if($tres[$number] == 100) {
print "書けませんよニヤリッ";
}

こんにちは。ご回答どうもありがとうございます。感謝です。

>>196様のと>>197様のを両方やってみました。

しかし、色々いじってみましたがそれをどうやって組み込むのか全然分かりません。
力不足で本当に申し訳御座いません。
Normal modeとDynamicHTML modeの両方で使用したいのですが、
具体的に何行目にそれらを組み込めば宜しいのでしょうか？教えてくださいませ。
また、（大変失礼で申しわけありません）>>196様のと>>197様のではどちらが正しいのでしょうか？
お手数かけてすみません。どうか宜しくお願いいたします。

全く見てないけど。

> 色々いじってみましたが

どういじってみたのかを示してみれば？

この掲示板のパスワード入力を不可にしたいんですが、
どうすればいいでしょうか？
あと投稿語に「ありがとうございました」ってでるので
それも表示させたくないんですけど…やりかた教えてください。
http://www.cgi-down.com/cgi/imodebbs.html

>>199様
はい。
えっと、いじったと言うか…ただコピペして放り込んだだけなんですが、
>>196様や>>197様の書いたのを154行目の周辺、187行目の周辺に放り込んで
何回か試してみましたがいずれも上手くいかなかったんです…。
他には全然分からないのです。
…どこにどういう形で入れるのか教えてくださいませ。
教えて君で申しわけありません。どうぞ宜しくお願いいたします。

消すだけじゃダメなんか？

>>201 コピペならコピペと正直に書かないと

っつーかコピペじゃ無理だろ
if 文を知らないってことか？

>>203様
ゴメンなさい…。バカみたいで書けませんでした。ゴメンなさい。
if文とかそう言うのなんにも分からないです。HTMLしか分からないです。
本当に申しわけないです。どうかご教授ください…。

先頭付近に
----------------------------------
# １スレッドあたりに書き込めるレス件数
$max_res = "100";
----------------------------------

----------------------------------
sub reswindow
{
#追加
if($tres[$number] <= $max_res) {
------------------------------------

----------------------------------
&footer_menu;
print "\t</Td></Tr></Table>\n";
print "\t</TD></TR></TABLE>\n";
print "<br>\n";
}
#ここから
}else {
print "\t</td></tr>\n</table>\n\n";
print '<TABLE border="0" cellpadding="10" cellspacing="1" bgcolor="#000000"><TBODY>';
print '<TR><TD bgcolor="#ffffff"><B>レス数が'.$max_res.'を超えたためこのスレッドには投稿できません。<BR>必要に応じて新しいスレッドを立ててください。</B></TD></TR></TBODY></TABLE>';
&footer_menu;

print "\t</Td></Tr></Table>\n";
print "\t</TD></TR></TABLE>\n";
print "<br>\n";
}
#ここまで追加
}
sub footer_menu
--------------------------------
以上

>>200

ダウンロードして解凍して読めってか？
氏んでくれ。

全く見てないけど、多分、

if ($pass != ""){&error}

みたいなところがあったらそこをエスケープしる。
書き込み後のは
「ありがとうございました」
をファイル内から検索してそこをlocationでトップに飛ばすようにしる。

>>205-207様
有り難う御座いました！！出来ました♪
レスが何件でも出来るようにアレンジまでして頂いて、本当に感謝のきわみです。
嬉しいです！！本当に有り難う御座いました！！

でも一つおかしいところがありました…。（汗）
えっと、通常のはいいんですが、『レスを全部読む』をクリックすると、
そっちの方は限界をすぎても正常どおり返信フォームが現れてしまうのです。（汗）

これを直すことは出来ませんでしょうか？
再三にわたりお手数をかけて申しわけありません。
どうか、宜しくお願いいたします。

↓改造後レタリングエンジン
http://xxx.vis.ne.jp/a/ealis_let-topic_icon2.txt
↓掲示板
http://xxx.vis.ne.jp/a/ealis.cgi

>>◆9G12fmecqU
>>1読んだか？
ここは一から十まで全て人任せで改造してもらえる便利な場所ってわけじゃ
ないんだけどな。

#================================
# スレッドの説明
#================================

「スクリプトを改造したいけどやりかたわかんないよー」という人がいましたら
ここで聞いてください。ひょっとしたらアドバイス出来るかもしれません。

>>210様
た、大変もうしわけ御座いません。
改造していただけて、うれしくて調子にのってしまいました。

本当にゴメンなさい…。
これからはこのようなこと無いように気をつけます。
お気を悪くさせてしまい、本当に申し訳御座いませんでした。

考えていただいた全ての皆様、本当に有り難う御座いました。


では失礼します…。

10桁トリップの生成コードってどこかな？

>>212
１０桁も８桁も生成コードは同じだろ

>>211
自分でやってみてわからない所を聞く。
…なら歓迎なんだけどね。

自分でやる気が無い奴に答えてたらそんな奴ばかりが
集まるようになって大変な事になるのよ。

>>213
同じだった。すまんこ。

書き込みログが残って邪魔なんです。。
思い当たる所はいじってみたんですが変わりませんでした。
ちなみにフレーム解除画面では残りません。
いじったのはtableやstyleなど外観だけです。
どの辺が原因かだけでも(クッキー関係かautoclear関係か)
教えてください。

>>190==216
発言消去にクッキーは使ってない。
それにHTMLやJavaScript等のクライアントサイドの問題だから
板違いじゃない？

if($DQN == "190"){&error("itteyoshi");}

でいけるんじゃないかな。

ごめんなさい。200です。
一応設置してみましたけど、中身みてもよくわかんないです。
パスワード入れなくても書き込みできるのと、
書き込み後のありがとうございましたを表示しなくするの教えてください。
http://www.385ch.tv/cgi/i-modebbs/imodebbs.cgi

>>200

パスワードのチェック
328行目
if ($FORM{'pwd'} !~ /^[0-9a-zA-Z]+$/) { &error("削除キーは半角英数字で入力して下さい。"); }
を削除

投稿後のお礼表示
445行目の
&html_ok($flag);
を
print "location: $cgifile\n\n";
に変更する。
でも多分i-modeからの投稿だと駄目かもしれない。

検証がPCでしか出来なかったから後は自分でなんとかしてちょ。

中途半端な返答でｽﾏｿ

>>220
ありがとうございます。出来ました。
あと、投稿を表示してる画面で、ＰＣの画像やケータイの画像の
非表示したいのでがうまくいかないです。画像非表示にするかわりに、
文字で機種表示したいのですが…お手数かけます。

あと、ｉモードから投稿したのですが、
無効なデータを受信しましたってエラーがでます＞＜

>>200
i-mode対応
445行目を元に戻して　&html_ok($flag);

450行目の &html_header;　を削除する。
453行目の
print "登録ありがとうございました。<br><br>\n";
print "<a href=\"$cgifile\">『掲示板へ戻る』</a><br>\n";
を　&html_view;　に変える。

456行目　print "<div align=\"center\"><br><br><br><br>\n";　の上に
&html_header;　を入れる。

460行目を
print "location: $cgifile\n\n";
exit;
に変える。

記事を変更修正したときのメッセージも飛ばすのなら
458行目も同じ上の460行目に書いたものと同じものに変える。

以上の改造でi-modeで投稿しても確認画面の表示はしないはずです。
確認画面は　sub html_ok　で行われていますのでそこを重点的に改造するということです。
サブルーチン中にif文が幾つかありますが、先頭の　if (index($agent, "DoCoMo/") == 0 || index($agent, "J-PHONE/") == 0)　でi-modeか否かを判定しているようなので、
yesなら真下の命令をnoなら次のelseの中へと誘導されています。
しかし、if文の上に&html_headerで生成されるhtml（画面）の上部が呼び出しがかけれら生成されていますので生成（呼び出）されるタイミングをずらします。
これで必要に応じて呼びにいくような形になりました。

iconの変更はかなりお手間がかかりそうなのでパスさせてください。
機種を判別してそれを数値で記録しているようなので数値に対応したメッセージを出すように改造すればいいです。
どこかに数値に対応した配列が格納されていると思いますのでその中身をメッセージにして呼び出しているところの周りが恐らくimgタグで囲まれていると思います。
ですので、それぞれのポイントをimgタグではなくただの文章として表示（imgタグを抹消）することで解決できると思います。

私が出来るのはここまでです。
一応解りやすいよう解説も書きましたが、あくまで暇なので丁寧にしただけであって常にこのような対応が受けられると思わないほうがいいです。
それと、もう少し基礎というか少しでも勉強してください。
常識で考えれば「パスが無くても投稿出来る」ということは、パスが無いときはエラーのメッセージを出しているところが怪しいと考えるはずです。
ですから、エラー時のメッセージをCGIプログラム中から探し出してそこから流れの逆を辿っていくということくらいは出来るでしょう。

i-modeでまたエラーが出たら言ってください。
参考程度に改造付近のプログラムはこうなります。

$COOKIE{'mail'} = $FORM{'mail'};
$COOKIE{'hpurl'} = $FORM{'hpurl'};
&html_ok($flag);
}
# ++++++++++++++
# [登録完了ページ表示]
sub html_ok {
$change = $_[0];
if (index($agent, "DoCoMo/") == 0 || index($agent, "J-PHONE/") == 0) {
&html_view;
print "登録ありがとうございました。<br><br>\n";
print "<a href=\"$cgifile\">『掲示板へ戻る』</a><br>\n";
} else {
print "<div align=\"center\"><br><br><br><br>\n";
if($change) {
print "記事の変更を受け付けました。<br><br><br><br><br><br>\n";
} else {
print "location: $cgifile\n\n";
exit;
}
print "<a href=\"$cgifile\">『掲示板に戻る』</a><br>\n";

それじゃまた。

（丸写しでもいいだけどね（汗（気づくかな？））

>>200
私も相当な暇人だよな。

OSイメージの非表示
212行目の中の　<img src=\"$os_gif\" align=\"absmiddle\" width=\"$os_wid\" height=\"$os_hei\" border=\"0\">　を削除する。

機種名はブラウザ（OS）として出てるでしょ？
そういうのは駄目かな？

>>200
ｺﾞﾒｿ嘘書いちまった。（汗

アイコン表示

184行目付近で投稿内容のデータを見て判別しているので

if ($magent !~ "DoCoMo/" && $magent !~ "J-PHONE/") {
print "PC<img src=\"$spa_gif\" width=\"$spa_wid\" height=\"$spa_hei\" border=\"0\">\n";
} elsif($magent =~ "DoCoMo/" && $magent !~ "J-PHONE/") {
print "DoCoMo<img src=\"$spa_gif\" width=\"$spa_wid\" height=\"#spa_hei\" border=\"0\">\n";
} else {
print "J-PHONE<img src=\"$spa_gif\" width=\"$spa_wid\" height=\"#spa_hei\" border=\"0\">\n";
}

に変えてください。
2,3行増えてますがJ-PHNEとi-modeとを区別すために増やしました。

いい加減疲れたよ、これでいいかいな？

みなさんありがとうございます。
こんなにいっぱい変えられるんですね…感動しました！
教えてくれた皆さんホントにありがとうです。
いまチクチクいじってますが、また質問するかも…シツコイですね・・＞＜

>>225
書き込むと
エラーでちゃいます。

きちんと動いているが？
いじりしくじっただけだろ。

>>230
224のやつをいれると書き込み後エラーがでてしまうのです…
設定エラーとかで

i-modeでエラーが出るの？
一応ねどうんな状況でエラーが出たか書いてもらわないときついです。

で、バグあったから直したの書いときます。
sub html_ok {
$change = $_[0];
if (index($agent, "DoCoMo/") == 0 || index($agent, "J-PHONE/") == 0) {
&html_view;
} else {
if($change) {
print &html_header;
print "<div align=\"center\"><br><br><br><br>\n";
print "記事の変更を受け付けました。<br><br><br><br><br><br>\n";
} else {
print "location: $cgifile\n\n";
exit;
}
print "<a href=\"$cgifile\">『掲示板に戻る』</a><br>\n";
print "</div>\n";
}
&html_footer;
exit;
}
&html_header;　と　もう一行の位置が変わりました。
かえとかないと修正した後の画面で変になりまする。
詳しく教えてくれるならもうちょっと付き合ってもいいよ。

何となく解った･･･。
漏れのミスだ。(汗

&html_view;
を
&html_view;exit;
にしてちょうだい。

スレ使いまくってｽﾏｿ･･･皆さん。

>>200

&html_view;exit;

の前に

@DATA = &read_file($datafile);
$agent=$ENV{'HTTP_USER_AGENT'};
$agent =~ s/\,//g;
&read_form;

を書かないと駄目な仕組みになっている模様。

>>234
動きました！@DATA = &read_file($datafile);
$agent=$ENV{'HTTP_USER_AGENT'};
$agent =~ s/\,//g;
&read_form;
↑入れないとダメって？？

>>200
設定エラーってさ･･･属性の変更し忘れとかの鯖エラーでしょ･･･。
まぁいいや。

それいれとかないと新規投稿が見えない状態で表示されます。
投稿はされてるんだけどね。
って勝手に推測。
やっとくに越したことは無いと思うけど、ちゃんと動いてるならやらなくていいよ。
i-modeの環境が無いもんでね。
検証出来んのだわ。
すまんね。

@DATA = &read_file($datafile);
&read_form;

この2行だけでｲｲっぽい見た感じ。

>>220
こんな初心者につきあってくれてありがとうございます。
また現われます！
その前にもうちょっと勉強してきますね！

>>200
逝ってらっさい。

漏れもヘタレだから大したことは出来ないけど、勉強してきます。


今携帯持ってきて動かしてみたけど上のレスの追加2行はいらんみたいね。
んじゃそういうことで乙彼さん。

なんとなく許せない200がいるスレはここですか？

>>239 同士発見

ｳﾌ♥

http://goa.cside.to/review/momoco.cgi?btype=docomo&mode=tp&ord=new&page=1&file=20021005044342

この掲示板の投稿フォームで<select></select>の中から選んだ内容を
コメント本文に書き込ませたいんですけどうまくできませんでした…

本文には
raiting:<改行>
★★★★<改行>
コメント内容

というような感じにしたいんですけど、
これはフォームをいじるだけではダメで
スクリプトも変えなきゃダメですか？

そ

>>242

そんなこともできないで商売ができると思うな

商売って？してないすけど。。

逆切れかよ。

ごめんなさい、スレ違いかも知れないんですけれど、
http://ayu.csidenet.com/
こちらの
http://ayu.csidenet.com/cgi/whiteforum.html?
ここで配布されているWhite Forumに文字色選択機能を付けたいのです。出来れば、それぞれのフォーラムに別々の色を最低でも10コくらいで選べるようにしたいんです。ラジオボタンで選ぶ形だとだと凄く嬉しいんですけど。
でもちょっと見てみたんですけれど、なんだかplとかがいっぱいあって、設置するのは出来たんですが改造するには私には難しいんじゃないかと思って…。
私はほんとに、簡単な改造くらいしか出来ないんです。
こういうのって、お仕事として改造して下さるところとかあるんでしょうか？

age

KENT-WEBのYY-CHATにJavaの記述を施して
「新規発言のみを読み込む機能」を付けたいのだけれど
何でもいいのでアドバイスいただけませんか?

もうkentの見た目改造はいいよ・・・

あげ

ttp://kensaku.s13.xrea.com/tosbbs_1.8.zip　
TOS BBSにアイコン機能をつけたいのですが。。

http://yahooo.s2.x-beat.com/

>>252
勝手に付けてくれ。

なら携帯対応板にtosbbsのID機能をhttp://www.url-battle.com/cgi/で交付されてる板に移植したいのですが

>>255
勝手に移植してくれ。

あげ

アンケートに答えても結構ですよ
http://www31.tok2.com/home/sanche/cgi-bin/ankeet/enq.cgi?

>>258
グロいな

DSFBOARDに昇進機能を付ける方法を教えれ！
これ→http://rpg-center.net/bbs/dsfbbs/yybbs.cgi

http://cuo.press.ne.jp/cgi/b07_1.html
この方法は通用しませんでした。

それわ残念でした。

ealisっていう掲示板に2ch風のトリップ機能とアイコンウプロダ付けたいんですが
詳細ｷﾎﾞﾝﾇ

URL くらい書けや。

>>262
そういえば、昔
ttp://www.prologue.info/web/
で、そういうの再配布してたな。
ちょっとオリジナル版作者とのいざこざがあって配布やめているらしいが。

ealisっていう掲示板に2ch風のトリップ機能とアイコンウプロダ付けたいんですが
詳細ｷﾎﾞﾝﾇ
スクリプト配布場所↓
http://kano.feena.jp/erial/

自分で書けや。

とりっぷなんて　３分でできるだろ。

楽しいｻ〜ﾊﾞ〜ｴﾗｰで配布されている、
http://www2u.biglobe.ne.jp/~micky/saver/dl/docum.htm
このｽｸﾘﾌﾟﾄを連続登校可能にしたいのですが、
どこをどう削ったら良いのか解りませんでした。
お手数ですが、どの辺を削れば良いか教えて下さい。
よろしくお願いします。

そこの管理人さん恐いので聞けませんでした。

>>268　以下の２行をコメントしすればいいかも

    if ($ip eq $ips)
        { &html_list; &html_main; exit; }

追記：
５１・５２行目

>268=270
うまくいきました！
今、テストして動作も確認しましたが、問題ナシです。
教えて下さってありがとうございました。

ealisっていう掲示板に2ch風のトリップ機能とアイコンウプロダ付けたいんですが
詳細ｷﾎﾞﾝﾇ
スクリプト配布場所↓
http://kano.feena.jp/erial/

はい、次〜

>>272
ソース落とすのめんどくさいんでどっかにテキストで上げれ。

トリップ部分のサブルーチンはこんなんで。
デコードの後ろあたりに変数名変えて入れりゃいいかと。
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;
}

粘着にマジレスか。おめでてぇな。

The RoomさんのCGIにkentさんのCGIのようなメール送信機能をつけたいんですが何処をどうすればいいか教えてください。
今のログを残したいのでこのCGIに送信機能をつけたいんです。
http://www.starcity.ne.jp/~ars/cgi-bin/0test/treebbs.txt←ソースです

よろしくお願いします。

http://www.geocities.co.jp/SiliconValley-Sunnyvale/9694/ にあった、
pastlog.cgiというスクリプトを使っています。
表示対象外の拡張子や表示対象外のブラウザは設定できるようになって
いるのですが、対象外のIPを設定できません。
元ソース↓
http://www.geocities.co.jp/SiliconValley-Sunnyvale/9694/pastlog.html

#対象外IP
@extip = ('211.xxx.xx.xx','219.xx.xxx.xx','216.xxx.x.xxx');
は埋め込んでみたのですが、どこで対象外を判断したらいいものか
判りません。
アドバイスお願いします。

>>276
print "<div align=center><br>以下の記事を書き込みました。〜
の近く(少し前とか少し後とか)で&adminmalを呼んでください。超適当だけど。

sub adminmail
{
$sendto = '[email protected]'; # 宛先
$sendmail = '/usr/sbin/sendmail';# sendmailのパス

if (open(MAIL,"| $sendmail -t"))
{
print MAIL "To: $sendto\n";
print MAIL "Subject: [mail from treebbs]\n";
print MAIL "MIME-Version: 1.0\n";
print MAIL "Content-type: text/plain; charset=ISO-2022-JP\n";
print MAIL "Content-Transfer-Encoding: 7bit\n";
print MAIL "-----------------------------------\n";
print MAIL "TIME : $nowtime\n";
print MAIL "NAME : $name\n";
print MAIL "SUBJECT : $subject\n";
print MAIL "MAIL : $mail\n";
print MAIL "URL : $url\n";
print MAIL "DELKEY : $delkey\n";
print MAIL "A3 : $a3\n";
print MAIL "IP : $ip\n";
print MAIL "HOST : $host\n";
print MAIL "MESSAGE :\n";
print MAIL "$msg\n";
close(MAIL);
}
}

できました〜ありがとうございました。

>>277
表示対象ログ抜き出し
のあたりじゃないかな。

試してないけど。

280さん、レスありがとうございます。
PartGet(表示対象ログ抜き出し) の中にロジックを追加してみたのですが、
　　if ( $brw =~ /$exip/ )
のところで、何を指定したらIPになるのか、どうも判りません。

#対象外IP
@exips = ('211.xxx.xx.xx','219.xx.xxx.xx','216.xxx.x.xxx');

sub PartGet{
for ($i = $lnum; $i < $lognum; $i++){
　$rec = @inrec[$i];
　my @ldata = split(/\"/,$rec);
　my ($method,$file) = split(/ /,@ldata[1]);　# メソッド,アクセスファイル
　my ($dmy,$cd) = split(/ /,@ldata[2]);　# apacheのコード
　my $brw = @ldata[5];　# ブラウザ

　# 指定IPアドレスを無視を無視　※ここから追加※
　$flg = 1;
　foreach $exip (@exips){
　　#※↓ $brwじゃなくて、何を指定していいのかわかりません　※※
　　if ( $brw =~ /$exip/ ){
　　　　$flg = 0; # 対象外IP
　　　　last;
　　}
　}
　if ( $flg == 0 ) { next;}

オリジナルソース　http://www.geocities.co.jp/SiliconValley-Sunnyvale/9694/pastlog.html

>>281
@exips= (); ←このリストに指定したいIPを追加するんじゃない？

一応、以下の行は変更したほうがいいのでは？
if ( $brw =~ /$exip/ ){　⇒　if ($brw=~ /^\E$exip\Q$/){

逆だった

if ($brw=~ /^\Q$exip\E$/){

282さん、レスありがとうございます。
$brwにはブラウザが入ってしまうので、（ソースのコメントに
書いてありました)
$brwの換わりに別な変数を作って比較元のIPを入れなければ
ダメなようです。でもそこがわからない・・・。
正規表現については、勉強し直します。

>>284
あー、そういうことか・・・

$brw の代わりに $ENV{'REMOTE_ADDR'}　でどう？

282さん、うまく説明できなくて申し訳ありません。
お付き合いありがとうございます。

$ENV{'REMOTE_ADDR'}はCGIにアクセスした人のIPですよね。
apacheの生ログから必要な行だけ取り出すCGIなので、現在CGIにアクセス
したIPじゃなくて既にログに記録されてるIPを取り出そうというところで
混乱しているところです。
apacheの解説のサイトに逝ってきます。

http://www.big.or.jp/~talk/t-club/soft/mini_r6/imgboard_n.cgi
このあぷろだなんですが
CGIで表示した時にUPされたままの画像が表示されます
これはちょっと回線がつらいんで
UPされたら自動でサムネイルを作成させたいとおもうんですが
そういう改造って簡単にできますか？

それかjpeg/gif/pngをリサイズして保存させる
ライブラリー無いでしょうか？

現在の閲覧者を得るにはどうすればいいの？

ちっこいウィンドウがいっぱい出てきて止まらなくなる奴教えて！

>>288
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");

みたいに使う。

>>290
立ち去れ

>>291 292
どもありがとうございます。
できたみたいです。

あと同じCGIなんですが
投稿順にならべるっていうのがあるんですが
最新3つしか投稿順になりません
どこをいじれば全部にちゃんねるみたいな
最終投稿順になるんでしょうか？

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、
この辺のがなんとなくわかりそうでわかりません。
検索して調べているのですが難解なサイトが多くて困ってます。
わかりやすい参考になるサイトとかあったら教えてください。

検索してたらPART1のキャッシュが見付かった
http://mimizun.mine.nu:81/2chlog/perl/tako.2ch.net/perl/dat/958370869.html

>>295
だから

ダウンロードしなくても済むようにテキストでソースうｐして張れと何度言ったら判るんだぁこのバカチンがぁ！

>>295
でただ串規制といわれると読みこみも規制するのか
書き込みだけ規制するのかわからないけど、
普通に考えて書き込みだけ規制するとしたらpost.plのなかの
sub host_readのなかでいいんでない？串規制にもいろいろあるけど。

>>289
http://isweb23.infoseek.co.jp/play/cardplay/cgi-lab.shtml
ｺｺに現在の訪問数を表示するCGIってのがあった。
しょうも無いｸｿみたいなﾔｼばっかしだったけどゴミ箱にはﾜﾗﾀ。

>>298
この連休中でいろいろ調べてやってみてますた。
処理の流れがなかなかわからなくて、しらみつぶしに見ていって
多重投稿を禁止するルーチンがあったのでその辺からいじってみてます。

>>297
こーいうファイルがいくつにも分かれているcgiはどうするのが一番よいのでしょうか？

携帯用のランキングCGIプログラムを捜しています。
何卒お願いします。

>301

ここにもいたか！
マルチはｳｻﾞｲんだよ！

携帯用のランキングCGIを捜しています。
何卒お願いします。

303>>CGIスクリプトを検索できるサイト、探せばいくつかあるよ。
いってみたら。

携帯だぞ、携帯
ｱﾌｫじゃねぇのか？

マルチは無視しろよ。

KENT WEBのチャットは、入室しているときのフレームと投稿フォームをローカルに保存してちょっと改造すれば、それを使って投稿できますよね（説明が下手ですみません）
その投稿フォームの中に書いてある
「<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=&quot;font-size:2em&quot;">」のようにすれば、CSSが使えてしまいます。
です。

よろしくお願いします。

>>306
最新バージョンでは使えないんじゃない。
s/&/&amp;/

>>308さん
ありがとうございます。
> s/ //g
> s/&/&/g
で解決したようです（これを、上下逆にしてしまったらいけませんけど）

質問させていただきます。宜しくお願いします。

ttp://www.kent-web.com/chat/robo.html
（スクリプト説明）

ttp://www.kent-web.com/chat/robo/robo.gif
（チャット画面サンプル）


↑この人工知能型チャットスクリプトを、フレーム表示ではなく、
　一画面に発言フォームとログが出るように作り直したいんです。

簡単なHTMLなら書けるし、BBSの背景色を変える程度のCGI改造なら出来るので、
わかるかなーと思ってソースを見てみましたが、さっぱり分かりません。
どこをどう書き直したら、フレーム表示ではなく、一画面表示となるでしょうか？

>>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;
}

>>310
スクリプトのtxt版はここにあります。

ttp://www.devicestyle.co.jp/robo.txt

よろしくお願いします……

とりあえず動けばいいって感じで
#============#
# 設定完了 #
#============#

$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;----------------削除かコメント

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
以上

最初の入室時のみ
robo.cgi?mode=form
でアクセスしないといけない。

® = &reg です。

はじめまして、わからないことがあったので質問させて頂きます。

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では無理なのでしょうか…？

>>317
それはCGIの改造ではなくCSSだろ？

あ、そうなんですかすみません（^^;
そちらの方で質問してみます…

>>313-316
ありがとうございます！

すみません、確認させて頂きたいんですが、
書いて頂いたスクリプトの中の「?」はそのままでいいんでしょうか？
（例：>313の「$string=?」等）

それと、初心者で申し訳ないんですが、
>>316の意味が分かりませんでした。

頂いたスクリプトを、そのまま該当箇所にコピペしてみましたが、
internal server errorが出てしまいました。

皆様はじめまして、とほほさんのwwwserch.cgiについて質問させてください。
現在wwwserchを実際に稼動しているのですが、
データ量が多くなるにつれ表示件数が膨大になって困っています。
そこで表示結果を分割して表示させたいのです。
（10件ずつ表示して｢次へ｣のリンクで次の10件を表示といった感じで・・）
このような事は可能でしょうか？
可能なら何処をどのように改造すれば良いかお知恵を拝借させてください。。
なんとか自力でしようと頑張ってみたもののサッパリで・・
宜しくおねがいします。。

此方にソースをtxtでアップしてみました↓
http://www.geocities.co.jp/Milano-Kotto/1097/wwwsrch.txt

>>313-316
このスクリプトを書いて下さった方、まだ見てらっしゃいますか？

>>320
の質問にお答え頂けると助かります……
厚かましくてすみません。

これは本当らしいです。かなり選ぶのに参考になります。
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') { &regist('into'); }#-----変更
if ($in{'comment'} && $mode eq 'msg') { &regist('comment'); }
if ($mode eq 'bye') { &byebye; }
&form2;#---------------------------追加
&log_view;

あとフォーム２で
target="log"
を削除する。（リロードのたびにウィンドウが開くため）
とりあえずなのでHTMLは変です。（</head>が２個になったり）

>>324-325
四苦八苦しながらやってみたら、一画面で動きました！
とりあえず使う分には問題なさそうなので、HTMLの変な所は気にしないことにします。
どうもありがとうございました！

あの・・・マジで質問です
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');
}
}
っていれたら、いくらひみこーどがあってても
チェックコードエラーってでてしまうんですよ
誰か教えてくれないでしょうか？

>>327
ウザイ
自分で考えろや豚野郎
二度と書き込むなボケ

17氏スクリプトにdame処理を追加したいんですけど、
まったくわかりません…
どなたかやってみたことある方いらっしゃいますでしょうか？


…厨房質問なのでsage

>>329
おんぷちゃんねる

295のところにあったのですが
ttp://www.nurs.or.jp/~b3/scripts/proxy/
これを複数クライアント対応にできないでしょうか？
これを置いてあるところでは
数行書き換えるだけでできると書いてあるのですが
さっぱりわかりません・・・

これはperl串というものになるのですか？それともCGI串なのでしょうか。
ソースはリンク先に直接はってあります。
おながいします。

説明が足りなかったようなので書き直します。
http://www.nurs.or.jp/~b3/scripts/proxy/
ここにある、CGI proxy(?)についてです。
リンク先に、ソースがそのまま貼ってあります。
多分100行無いと思います。

これは、IPが一致した一人のクライアントしか受け付けないのですが
これを複数のクライアントが接続できるようにしたいです。
forkしたあと、クライアント受付をすればよいのかもという所までは
思いついたのですが、どうすればよいのかわかりません。

教えてください。お願いします。

>>331
何に使うわけ？
ただ「串」という言葉に惹かれてるだけっぽいが。ｗ

>>333
そういうCGIを見つけたのは初めてなのでやってみたいだけという気持も大きいですけどｗ
ircで使えるみたいなので使おうかと。

自己責任でどうぞ。

kentさんのところのCGIなんですが
ttp://sugachan.dip.jp/img/imgboard.cgi
の一番下のように　10枚よりも多い場合は >>で最終ページに
飛ばせるようにするにはどうすればいいんでしょうか？

>>336
kentさんのところのCGIは、1個しかないの？

えっと　もともとはJoyful NoteでもYYBBSでも
ページの枚数分だけ
出てきちゃいます
20ページ分のログがあったら
[1][2][3] 〜〜〜〜[18][19][20]
ログがたくさんあるとうっとうしいので
この表示そのものを消すことも考えたんですが
やっぱりあったほうが使いので
よろしくおねがいします

>>336
ところでそのURL
本当にKENTのなのか？

掲示板で、行頭に> があるとき、<blockquote>〜</blockquote>で
囲む方法を教えてください。
なるべくなら行頭に>がある複数行をまとめてくくりたいのですが。

$FORM{'comment'} =~ s/(<br>|^)(((＆gt;|＞)(?!＆gt;[0-9]).*?<br>)+)(?!(>|＞))/($_ = "$1<blockquote>$2") =~ s!^(.*)<br>$!$1!; "$_<\/blockquote>";/ge;

改行は既にbr,>は既に＆gt;になっていると仮定して。
2ch式の>>１とかいうのを引用にしないようにというのも考慮。
だれかもっとスマートな方法ないですか？

実体参照どうなるのか知らないので＆を大文字で書いておきました。

#なんかime.nuから飛んでくるし、うちのサイトにこの板のコピペでの書き込みが
#あったので見に来たら、これのスレに漏れのサイト載ってた・・・

あ、一箇所>になっちゃってる、＆大文字にするの忘れた。

>>341さんthaxx!!

>>332
串ならそこら辺に売ってますが？
そんことも解らないスキルで串なんてほざくんじゃねぇ。

YYBBSにトリップ昨日をつけたいのですが・・・
挫折。
わかる方宜しくおねがいします...

>>345

>>274のサブルーチンを一番下にでも追加。
あとは書込処理の所に
&make_trip;
とフォーム入力チェックの下にでも追加すればできると思われ。

>>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>';
}

後は自分で考えろ！ヴォケが！！

345でつ。
過去ログ漁ってませんでした（汗
激しくｽﾏｿ。

あと、良かったらWebPatioの奴記事の表示部分なんですが
Page: [1] [2] [3]
とか普通に移動メンドイんですょ・・
全部とかつけたいんですけど　Doすれば・・・・

あ、あげさせて下さい

もしがいしゅつでなければ教えてもらえる？
今日本屋で掲示板リデザインとかって新刊があって、
それにちらっと載ってた。
うろ覚えなんだけど、

$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';

ってのはたしか６０秒×６０で１時間、それに×２４で一日という設定。

petiboardのログに投稿時間がどういう形式で記録されているかですな。
あと
×　eq
○　=

>>350
KENTのログは
$date = '2002/11/19 (火) 18:30';
みたいにして記録されてるから処理がめんどくさいな

>>352
えーと　sprintf　でフォーマットされてログに入るみたい。
このときフォーマットしない投稿時間（エポック秒）を一緒に非表示でログに記録して、
それとリアルタイムの比較するってのは無理かな？

＞×　eq
＞○　=
指摘感謝。

>>353
>>354みたいなのはダメかな？
素人考えなんで問題外だったらスマソ。

epoch取得は
$hoge = time;
そういえばもう9桁じゃないんだね。。

$newtime = '60 * 60 * 24';
$newimg = '<img src=./gazou/new.gif>';
$hoge = time;

if ($newtime <= ($hoge - $xtime)) { $vnewimg = $newimg } else { $vnewimg = '' }

あとは$xtime（ログのエポック秒）を取得出来ればいいということですか？
>>353のお話だと面倒なようですが、なにか手があったら教えて下さい。

>>354の方法が一番いいと思う

>>358
了解です。

問題はどうやって比較するかなんですが、
この時点で俺の知識は限界です。
アイディアを出してくれる方がいたらお願いします。

こういうこと？

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 : '';

エポック秒をログに書き込ものはたとえばpetitだから色変更機能を取っ払うつもりで
$colorのところに$xtime（投稿時間）を書き込んめばログに10桁のエポック秒が入って、
あとはそれをどうやって$xtimeの変数に戻して
if ($newtime >= ($hoge - $xtime)) { $vnewimg = $newimg } else { $vnewimg = '' }
を成立させるかってところですか？

upload.s21.xrea.com/cgi-bin/upl/file/1037525517.txt

upload.s21.xrea.com/cgi-bin/upl/file/1037525517.txt

upload.s21.xrea.com/cgi-bin/upl/file/1037525517.txt

すみません、なぜか作業中で投稿できなくなってしまったので
いろいろ試している間に投稿されてしまいました。すみません(;´Д`)

book-iの様なURL転送サービスのスクリプトを探しているのですが、どこかのシェアウェアらしいと言うことが分かりました。
なので自作したのですが、どういう風にすればいいか分からなくなりました。
アドバイスをお願いできないでしょうか？

>>366
book-iってどこよ？
でURL転送サービスのスクリプトってのは転送する部分がほしいのか？
それとも転送サービスを受け付ける(ユーザ登録)システムがほしいのかどっちだ？

失礼致します。一度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

>>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 {

YY-BBSがベースの掲示板に↑のようにやりましたが・・・。
テスト#test
などと投稿しても
そのままになってしまいます。
変数名などの変更する箇所とか挿入箇所が
間違ってますか？・・・

初心者ですみません。
ranklinkで
inページ、新着ページ等が作られていきますが
inページで順位の隣りに(位)と出したのですが
新着ページにも反映されてしまい、新着ですと
例＝11/20位
の様になってしまいます。
どうか先輩方お知恵を下さい。

>>371

とりあえず市ね

>>370
KENTのForm デコードは
$in{'hogehoge'}
だよ。

>>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ファイルを作成しようと思っています。

ユーザ登録システムを作りたいのですが、これから何をしていいか
分からなくなってしまって・・・

>>374
スキルが足りないね。
書籍買って読めよ。

皆様のお知恵をお貸しください。
ttp://genesis.vis.ne.jp/
こちらで配布されているCHAMELEON BOARDを、
レスが付いたら親記事ごと一番上に表示するようにしたいです。
お手数ですがご教授宜しくお願いいたします。

>>376
ちょっと見ただけだから分からんけど
かなり改造しないと駄目だと思うよ

>>374
設定変更用のシステムとか作ればいいんじゃないの？

ていうか、自分がそういうサービスを利用する上でほしい機能を作っていけばいいじゃん。
あと表示だけじゃなくメールで設定情報は送ってあげたほうが親切かもな。

>>377
レスどうもです。
やっぱり駄目そうですか・・・。
素人考えで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かなんかに突っ込んどいて保存する時に新記事郡、旧記事郡の順で書けば実質一番上に来た事になるけど、プログラム自体を見てない漏れには解りません。


まぁ頑張れや。

>>375
>>378
一応できましたが、無駄がかなり多そうです。
本買ってみます。

kboardの話なのですが、この方の、
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;
}
ってところに好きなスタイル追加してみ。

YaBBにファイルアップロード機能を付けるにはどうしたらいいでしょうか？
http://www.yabbforum.com/

>>383さん。
ありがとうございます。出来ました。
マジで感謝です。
これで何とか年を越せそうです。

http://mtbbs.tr-w.net/dl.html
の掲示板なのですが、HTML書き出しだとクッキーが使えないはずです。
でも、2chではHTML書き出しなのにクッキーが対応しています。
どうやって、対応させてるのでしょうか？
対応させる方法を教えてください。お願いいたします。

>>386
javascript
よって板違い。ソースでも読んで来い。

初心者でスイマセン。

いま使っているツリー型掲示板のレスがつくと記事を上にトップに上がる機能は
やはり掲示板によってプログラムは違ってくるのでしょうか？
共通のルーチンなどはないのでしょうか？

>>388
特には無いと思うけど？
更新された部分だけを抜き出して一番上にするだけ

>>384
ｹﾝﾄんﾄｺのスクリプトでも移植ｼﾚ
あそこは分かりやすい(無駄が多いけど

>>376
そいつのｿｰｽ汚くて読む気になんねぇー
FlashCGIのminiThreadってﾔﾂはキレイだったな(´-`)

>>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,$_);
}

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からコピペ。これで一応できる。

($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]);

>>387
javascript で対応させていたのですか。。。。知りませんでした。ありがとう。

>>392
無知な私にご教授ありかとうございます。
今すぐにでも試したいのですが、前の書き込みの後に急遽入院しちゃいまして（汗
退院か外泊時にでも試したいと思います。ありがとうございました。

http://aji.s1.xrea.com/の　Force264 BBS(ver.3.22A 連結GIFコード)　と書いてある
スクリプトの改造についてお伺いします。（ファイルに直リンできません(^^;）

訪問時にHTTP_USER_AGENTに特定の文字列が入っていると指定のページに飛ばす
（たとえば"MSIE 4.0"を含む場合./deny.htmlに飛ばす）にはどうしたらいいでしょうか？

>>397
スクリプトいじらんでも.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

ＴＨＥ ＲＯＯＭの"ranklink"で質問があるのですが、
ランキングサイトを運営しているのですが、総合ランキング
のカテゴリを作りたいのですがどの様に各々のランキング
から引き抜いて総合ランキングが出来るのか分かりません。
何卒お教えて下さい。お願い致します。

知る限りでは他2箇所でマルチか…

>>
による記事LINKをYY-BOARDに取り付けたいのですが
KENT-WEBのwebpatioを参考にやってみましたが
変数の違い等々より挫折・・。
良かったら、教えていただきたいのですが
判るかた。宜しくお願いします。

http://mtbbs.tr-w.net/dl.html
で配布してる掲示板なのですが、
サンプルでは、『全部読む 最新50 1-100 板のトップ リロード』って表示されてますが、
自分で設置すると『全部読む 最新50 1-100 板のトップ リロード』が表示されません。

つくったﾔｼに聞け

http://zurubon.strange-x.com/uploader/
のアプロダをHTML書き出しにしたいのですが、どうすればできるのでしょうか？

>>405
http://www.geocities.co.jp/SiliconValley-Bay/4472/script/download.html

http://herz.pobox.ne.jp/cyder/doc/script/rescue08/top.html

これをWindowsベースのApache1.3＋ActivePerlで動かしていたのですが、
Cookieが文字化けしてしまいます。

超初心者ですいません
改善できませんでしょうか、お手数ですがよろしくお願いします。

あう、ごめんなさい

http://herz.pobox.ne.jp/cyder/doc/script/ori04/top.html

こちらでした

ヤフーオークションで、凄い人気商品、発見！！！

プランテック製の「 RX-2000�V 」を改造済み
にした、アイティーエス製の「 RX-2000�V 」↓
http://user.auctions.yahoo.co.jp/jp/user/neo_uuronntya#.2ch.net/

ヤフーオークション内では、現在、このオークション
の話題で、持ちきりです。

ヤフー ID の無い方は、下記のホームページから、
購入出来る様です↓
http://www.h5.dion.ne.jp/~gekitoku/#.2ch.net/

KENTのpetitbordの過去ログ生成なんだけど、
行数で区切ってdat化するのがどうも気持ち悪いんだよね。
スレッド数（たとえば１０スレッド）で１datって感じに出来ないかな。
要するにこの部分の$log_file（行数）を別のものに置き換えればいいと思うんだけど。

# 規定の行数をオーバーすると次ファイルを自動生成
if ($#past > $log_line) {
$past_flag=1;

最近ようやくほんの少しづつ読めてきたかなぁという程度で、
じゃあ何と置き換えるのかって考えると混乱する一方。
なにかアイディアがあったら協力願います。

あと>>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　を割り込ませる。
なんとなく並んでる変数とログファイルの中身を見比べてると、
あ、ここに割り込ませればいいのかな？ってカンが働くはず。
カナーリ初心者の俺が言うんだから間違いなし！

つーことで、レスくれた人たちありがとうでした。

KENTさんのJoyful Note
http://www.kent-web.com/bbs/joyful.html

添付Fileを親記事は必須にして、返信は添付ファイル無しでもOK
という風にするにはどうすればいいでしょうか？

Aikonさんのサイトで配布されてるGallery 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("二重投稿です。蹴りますが何か？"); }

>414
ログ全部から多重チェックするのか？

>>414
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("二重投稿イッテヨシ");}

YYBBSで指定レス以上になったら省略する機能は
どうやって足せばいいんでしょうか？
頭と最新5レスを表示したいのですが

画像投稿型掲示板cgiのスクリプトなんですが、
サーバに保存するファイル名に、投稿された時間を反映させるには(img200212061220.jpgのように)、
複雑な改造が必要ですか？

複雑な改造はいらないと思う。
ファイル名に反映するだけなら。

多分記事のデータにファイル名も保存しているだろうから
つじつまあわせるようにしないといけないけど。

どの程度をもって複雑と言っているのかわからんし。

２ちゃん型掲示板のCGIですが、最近設置しても使えないとこが増えてきました。
なぜか特定ディレクトリ内のファイルが動かなくなりました。
どなたか動くように改善していただけませんですか？

http://www.onpuch.jp/files/onpuch.zip　←スクリプトはここからﾀﾞｳｿできます

>>422

動くようにって･･･、それは頼りすぎじゃないか？（´Д｀；）

外国人の留学希望者相手に掲示板を設置してるんですが、
日本人の荒しに2byte文字のAA等を貼り付けられて
困っています。投稿から2byte文字を確実に蹴る正規表現って
どうやればいいんでしょうか。スペースとか"'などの記号
は使えるようにしておきたいです。

>>423
う・・・・

ちなみに、そのスクリプトの作者に聞いたところ、「サポートは一切しません」と返されますた。
今までも度々動かなくなることはあったけど、そん時は自分で何とかしてきました。
でも今回ばかりはまじでヤバイっす。
1point.jpとxreaではもうぜんぜん駄目。

>>424
なんで荒らしが日本人だってわかったの？

>>426
charsetをshift_jisにして見たら
2chそのままのAAでした。

>>425
じゃ今度も自分でなんとかすれ

>>424
つか、削ったら？

>>424
http://www.din.or.jp/~ohzaki/perl.htm#JP_Exist

>>423
やっぱり厨(;´Д`)
http://pc.2ch.net/test/read.cgi/php/1039165841/l50

>430
糞単発してるよ･･･最近カスが多いね（´Д｀；）

>>428
まあそういわずに

>>430-431
（･∀･）

＞＞４３０＝４３１＝尾瀬原皿仕上げ

YYBBSにふきだしをいれたいんだけどどうすればできるかな？

muri

marimo

ここのWebCalenderをTECHSIDEのに近い感じにしたいのですが教えていただけませんか？
http://www.aikis.or.jp/~s-suzuki/cgilabo/
一応センタリング、スケジュール追加ボタンの追加はできたのですが、
2つ目の予定を自動で改行と始めに入ってしまう半角スペースの削除ができません。

アハンに選択式でアイコンを付けられるようにしようと思うんですが、
素人の付け焼刃では上手く動作しませんでつ。。
宜しければご教授お願い致します。

ttp://www.kokobbs.com/ahhan/

>>438
KENTさんとこのをそのままパクってみれ

>>439
以前やってみたんですが、
スレ立てフォーム周りにアイコン部分を埋めてみるだけで宜しいのでしょうか。。
色々とスクリプト弄ってみたんですが力の限界です（ｗ
後一歩のところまでは来てるヨカンがするのですが。。

>>440

あとはsplitとpushの部分に$iconを入れないとだめだろう。
全く見てないので全くあてずっぽうだけど。

その一山を超えるとぐっと面白くなるから、がんばってみ。

THE ROOMのRANKRINKについて教えていただきたいのですが。
サイト登録時に追加でラジオボタンで選択したものをランキングに画像表示
させるようにしたいのですが、（Yomiサーチでいうと相互リンクの選択
みたいなかんじ）どのようにしたら良いのかお教え下さい。
また、ランキングページの左側にカテゴリーのテーブルをおきたいのですが
何度か挑戦してみましたが、うまくいきませんでした。よろしければ、
ご教授お願い致します。

もれなくソース加えたはずなんですけどねぇ。。
う〜ん・・・プログラムというのは難しいです。。
付け加え方を根本から間違ってるかもしれないです（ｗ

プログラムの流れを理解していない香具師が、手に入れたソースを突っ込んだだけで動かせるはずがない。

黙って鮭定でも食ってろ！

失敗が人間を強くするんですYO

>>443
ソースの一部貼り付けたら誰か見てくれるかも

自分で色々いじったんですが、>>444の通り、
素人が簡単に改造できるようなものじゃないですねぇ（笑）
スッパリとあきらめてver.up待ちます。
ご助言くださった方ご迷惑をおかけ致しますた〜

n a m a z u の

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;
}
}
}

http://happy.honesto.net/cgi/download/fmdx.html

このフォームを使うと添付ファイルも送信可能のようですが
sendmail未対応のサーバーの場合送信不可能ですよね。

なので一時記録用フォルダーにファイルを常時残しておいて
時々FTPでDLしたり出来ないかと思ってます。

もしご教授頂ける方居ましたらお願いします。

掲示板にメール送信機能をつけてみたんですが、題名に日本語が使えず、
メッセージのところも改行が「・」で、「>」が＆ｇｔ；になったりしてしまいます。
どこをどう直すべきでしょうか?

>>451がソースです

#------------------メール送信機能-------------------------#
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);
#--------------------メール送信機能------------------------#

よろしくお願いします。

掲示板にメール送信機能をつけてみたんですが、題名に日本語が使えず、
メッセージのところも改行が「・」で、「>」が＆ｇｔ；になったりしてしまいます。
どこをどう直すべきでしょうか?

>>750がソースです

あれ・・？
2重投稿ｽﾏｿ

>>449
送信不可能なんだろ？何がしたいんだ？
ずるぼんでも使ってファイル一覧表示しないようにしたらいいだろ

>>451
メール送るのにJISに変換しない厨房ﾊｹｰﾝ

個人的にはMIME宣言してるメールはヘッダもMIMEにするのが筋だと
思うんだがどうだろう。

すいません。本当にわかんないんです。
教えてください

だからさ、メール送る時は、そのまんま送っちゃいけないの。
どっか、メーラー機能付きのフリーの掲示板かなんかさがしてきて、
それがどんな風に送ってるのか調べてみろって。

ここはアドバイスをする場所であって、回答そのものを書く場所じゃあない。

ついでだからさっき書きかけた奴を投げてみる。

>>451
(1)スクリプト中の日本語がJISになってないか、
(2)またはsendmailが妙な面倒を見てくれているかどちらか?
いずれにせよ、個人的にはMIMEを宣言するならsubjectもBASE64エンコードするのが筋だと思う。
(1)だったらEUCで書いて、nkfとか、jcode.pl, Jcode.pmを使うのがいいのかな。
5.8だと pragma encodingがサポートされているけど。
(2)だったら、本文もヘッダもBASE64エンコードか。

スクリプトはシフトJISでかかれてます。
EUCはエディタを持ってないんで…

BASE64等聞いたことはあるんですがやり方がよくわからんのです。

>>451
自力でできないなら、すでにあるものをパクってこいって言ってるだろ。

それもやってみたんですが・・・
変数が入り組んでてわからんのです

>>451
もしKENTのスクリプトですらわからんとか言うなら、諦めろ。
いやマジで。

サンプル
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);
}

つまりメール用に変数を書き換えるんですか？
$m_name = "名前 " . $name; のように？？
KENTのCGIですか・・・
JCODEなどの使い方がわからないんですよね・・

これは　僕の作った掲示板なんだ
sendmail用に　jcode.plで　変換してるだけだよ

>>464
サンプルったって……
何故Perl4を意識した組み方なのかそこんところを作った人間に聞いてみたい。

はじめまして。
>>310さんと同じKENTWEBさんのchat roboの改造なんですが、
このチャットは２人以上が入室するとロボットが黙るようになっています。
それを、２人以上入室しても喋るようにはできないでしょうか？

概要　www.kent-web.com/chat/robo.html
微妙な改造をしていますが、cgiのテキストファイル
http://jadore.jp/~sermot/robo.txt

よろしくおねがいします。

>>468
# 在室者が１名のとき、又は名前を呼ばれた時に返答する
の直下のifブロックを撤去して
$regist_flag=1;
にしたらいいんじゃない？

>467
まだ初心者なもんで　あまりわかってないんだ

２ちゃんねる　VS　ＴＩＭＥ・・・
その戦いの歴史は、まさに近代兵器の見本市だった
田代砲にはじまる数々のスクリプト兵器を経て到達した、９７式アラファトマシンガン
これはまさに最終兵器として、猛威を振るった
しかし、ついにＴＩＭＥはこれらの兵器全てを完膚無きまでに無効とする
パプリカの設置に成功した
武器を奪われた我々に残されたもの　・・・それは「チョップ！」
手動で一撃一撃叩き込む「チョップ！！」地味で威力も極限まで小さな「チョップ！！！」
ただそれだけと、なってしまった！
だが、チョップといえども決してバカには出来ないということを！
そしてこのような手段にまで出たＴＩＭＥを今一度！
我が２ちゃんねらーの総意を込めたチョップを以て、叩き壊したい！！
有志たちの参戦を、ひとりでも多くの戦士の挑戦を待つ！！！
http://live.2ch.net/test/read.cgi/festival/1040349157/

>>469
ごめんなさい、どうも505エラーが出ます。
# 在室者が１名のとき、又は名前を呼ばれた時に返答する
if ($_[0] eq "comment" && $now_member <= 1) { $regist_flag=1; }
の、 if ($_[0] eq "comment" && $now_member <= 1) を
削除するということでしょうか？

>>472
&& $now_member <= 1
を取れ。それ以上は君には無理っぽい。

>>472
if ($_[0] eq "comment" && $now_member <= 100) { $regist_flag=1; }
ここの数字大きくするだけでもいいと思われ。　↑

>>473さん、>>474さん、レスありがとうございます。
474さんの方法でやってみました。うまくいったくさいです。
無知で申し訳ないです……ありがとうございました。

始めまして。最近ＣＧＩをかじりだして、なんとか設置｢できる｣程度にはなったのですが、
KENT-WebさんのYY-BORDのアイコン登録機能をyy-chatに追加したいのですが、
自分で調べてもpup.cgiをどうやって連動させたらいいのかというところでつまずいてしまいました。
もし宜しければご指南いただけないでしょうか？
宜しくお願い致します。

初めまして。
このスレの職人さんにお力添えを頂きたく、図々しくも
やってきました。m（＿＿）m

↓このスクリプト
http://www.dd.iij4u.or.jp/~musume/test/imgboard.cgi.txt
を使っているんですが、アクセス制限がイマイチまどろっこしいので、
下記のスクリプトの長所を盛り込んで
バシッ！！と串制限したいのです。
http://www.dd.iij4u.or.jp/~musume/test/bbs.cgi.txt

どの辺をいじれば良いのでしょうか？
多分、簡単な事なのかもしれませんが、私の知識ではどうしたらいいのか
よくわかりません。
どうか教えて頂けたら嬉しいのですが。。。

>>477
http://dream.lib.net/room/cgi/e_acsdeny.html
とかどう？

使ったことないけど。

お世話になります。
私は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");

行数一部ずれてるかも…
自分もへっぽこだからな(；´Д`)

>>480
レスどうもありがとうございます。
ですが>480さんの言った通り改変してみましたが、
やはり投稿者のIPではなく、自分のIPが表示されてしまいます･･･。

245行目に $addr = $ENV{'REMOTE_ADDR'}; を追加する事は、
今まで試していなかったのでこれで出きると思ったのですが･･･
もう少し自分で試行錯誤してみます。

あれから色々やってみたのですがやはり出来ないです。
同じスクリプトの前のバージョンではこの方法で出来たのですが･･･

ログを見てみるとちゃんとIPもホストも残されているのですが、
名前の後に表示するとなると自分のIPとホストが表示されてしまいます･･･

どなたかご教授下さい。どうかお願いします。

>>482
ログから記事を取り出しがうまく取れてないか、
もしくは表示するときにうまく表示できてないか、でしょ。

変数の名前が違ってる(ログから$adrで取ってるのに$addrをprintしてる)
とかじゃない？

>>480 >>483
もう一度DLしなおし、>>480さんの言った通りに改変して見た所、無事出来ました！
何時間もいじっていたので、どこかのソースを少し変えたまま戻すのを忘れていたんだと思います。
手間かけてすみませんでした本当にどうもありがとうございました。

>>478
それでちょっと試してみます！
ありがとう御座いました。

昨日は本当にありがとうございました。
皆様に教えて頂いたおかげで、掲示板は順調に動作しているのですが、
もう一つ気になる個所がでてきてしまいました。

書き込みを削除する際に、1つチェックを入れる度に送信ボタンを押す為、
削除したい書き込みが複数ある場合には非常に効率が悪いんです。
同スクリプトの以前のバージョンは出来たのですが・・・

自力でやってみようと以前のバージョンと見比べて、
<input type=radio name=no value=\"$no\">
という個所の radio を checkbox に変えてみたのですが、
チェックは複数につけられるものの複数にチェックをして削除しようとしても
結局最初にチェックした書き込みしか削除されませんでした。

どなたか教えて頂けないでしょうか？
一昨日質問したばかりで申し訳ないですが、どうか宜しくお願いいたします。

ソースは↓です。（おそらくこのスクリプトを改造するだけで出来ると思うのですが・・・）
http://www2.csc.ne.jp/~nga/admin.txt

それはUIの変更でしかない。
実際に選択された全てを削除する作業を改良付加しなきゃ。

トップソートっていうんでしょうか。
レスのついたスレッドが一番先頭に上がるっていうやつですが

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は初期でスレッド固定のようなので
プログラム自体が複雑に絡み合ってこうなっていると言うより、
何行かが書き加えられてこうなっていると考えるのが自然のように思えます。
どうにかなりますかねえ＾＾；

改造された方からのお返事を今確認。
スクリプトが長くなり重くなるなどの理由からトップソートのみで書いていると言うこと。
こういうこともあるんですねえ。

>>487
わざわざレスありがとうございます。
やはり特別な改良を行う必要があるのですか・・・
お手数とは思いますがその処理を教えては頂けないでしょうか？

ですが製作者様は今までのバージョンでは可能だったという事をあえて出来なくしたのですから
可能にする事により何かデメリットが出来てしまうんですかねぇ・・・

私のサイトは携帯用なので利用者どうしの喧嘩のようなものから、
よく荒らしに発展してしまうので複数チェックで削除出来れば大変便利なのですが。

>>490
その掲示板だかなんだかの、昔のバージョンはないのかね？
複数削除が可能だった頃の使えば？

>>491
「プログラムは、セキュリティ対策を施したv5.7以降を必ずご使用ください」
という注意事項がかかれてあったので、以前の物を使用するのはちょっと･･･
それに以前のバージョンはもう公開していないみたいですし私もそれそのものはもってないんです。
セキュリティのどこが甘かったかといったような事はわからないのですが。

>>492
じゃあ、作った本人に改造してもらったら？

作った本人が面倒くさいって言ってるくらいだから、
他人がいじるのはもっと面倒くさいな。

>>493
それじゃこのスレの意味ねぇだろアフォ！
しかもKENTは面倒くさいなんて言ってないだろ？
どこで言ってたの？まぁ俺は面倒くさいから嫌だがね。

>>492
それかなりめんどうだよ。
スクリプト全体に手を入れないといけないからね。
むしろ以前のバージョンにセキュリティ対策施した方が楽かも。

レス遅くなって申し訳御座いません。

>>495
そうなんですかか大掛かりな改良が必要なんですね。
特に致命的な問題ではないですし、諦めてこのまま設置致します。
レスくれた皆様ありがとうございました。

>>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);

>>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にｶｴﾚ!

>>498
神様の言う通りやってみたらあっさり出来ました！
凄く嬉しいです！この掲示板に書き込みしてほんとによかったです！
お世話になりましたありがとうございました！

>>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

>>477
アダルトサイトの管理人には教えたくないです。

a

すごい初歩的なことなんですけど、
「KENT WEB」の「Joyful Note」に、投稿者の居住地をつれけるようにするには、
どこをどうすればいいのでしょうか。
プルダウンで選べるようにしたいのですが。

&nsp;

>>498
先日はお世話になりました。
あの>498で教えてもらった通り改変した所、
無事、複数同時削除が出来るようになったのはお話しした通りなんですが、
それにより、どうやら修正が出来なくなってしまったようです。（気付くのが遅くてすみません）
私としましては書き込みを修正する機能は必然というほどではありませんので、
出来ればでいいのですがご教授頂けないでしょうか？

プログラムのソースは以前と同じくhttp://www2.csc.ne.jp/~nga/admin.txtです。

それでは失礼致します。

すみません！修正出来なくなっていたのは私のミスでした！
修正出来ました。お騒がせして申し訳ございませんでした。

>>486
もしかして、複数選んでなかった?

# 修正フォーム
} elsif ($in{'job'} eq "edit" && $in{'no'}) {
&error("複数修正はできません") if ($in{'no'} =~ /\0/);

これでも追加しれ

ところでパスワード晒してない?
dimensionzってﾓﾛﾀﾞｼ━━━(ﾟ∀ﾟ)━━━!!!!

http://dream.lib.net/room/で配布されてる
Icon Chat by The Room ココのチャットのIchat
でrom者のIPを表示する機能のつけかたをおしえてください

↑に追加１分以内ロムってる場合IP表示

>>509-510
ソースはテキスト形式で出してね。

このcgiはテキスト形式でやると汚くなるんですよ>>511

http://dream.s17.xrea.com/s/ichat.txt>>511

>>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) ";

こんなんでいいの？

１分以内ロムってる場合IP表示これが発動してないような

>１分以内ロムってる場合IP表示これが発動してないような
意味が分からないのですが

そういう機能つけるのむりっぽいのでいいですぅ。
後そのチャットに発言ランキングをつけたいのですが、どのようにすればいいんでしょうか？

age

＞つけたいのですが
付いてるスクリプト探せば？

そこで配布されてるCGIがどうしてもつかいたいのです

「１分以内」じゃなくて「１分以上」でしょ。。。

＞αさん
教わる場合はもっと礼儀をしっかりしましょうよ・・・。
ここに人たちは純粋に善意で教えてるんだからさ・・・。

女子は画像添付だよ
守れよ〜

KENTさんのとこのプチ☆ボードにスレッドごと及びレス記事に番号つけてようは
ここの掲示板みたいなやつ。んでレスカット機能つけて全レス読むでread.cgiを
使って表示するという改造を（read.cgiは探してきます。）したいのですが・・・。
当方やっと本、片手にシンプルな掲示板が組めるようになった程度でスキルが
ありません。ご協力お願いします。

>>524
鬼レスボードじゃだめ？
あれはPetitベースだけど・・・
って、見てきたら配布終了してたわ
代わりにeMzStyle Boardに同等の機能が在るとの事
ttp://mic.sites.cc/

>>522スイマセン、今度からきおつけます。

そのチャットに発言ランキングをつけたいのですがどのように改造すればいいんでしょうか？

perl覚えてください




とミもフタもないことを言ってみるﾃｽﾄ

>>525
ありがとうございます。でもなんつ〜か自力で（ここで聞いてる時点でそうでは
ないけど）改造したいんですよね。ただ設置するだけでは意味がないような気が
するんですよね。

自分で頑張ってみて自力で無理なとこ（ほぼ全部だけど・・・）はソース張るので
ご協力していただけたらと思います。

すみませんが協力してください。お願いします。

現在、PETIT BOARDを改造しています。というより機能削り？以下、詳細です。
ttp://www.geocities.co.jp/SiliconValley-SanJose/7269/petit1.txt

それで投稿フォームを別画面に表示する改造をしているんですがスクリプト自体は
動いていて投稿フォームのみエラーになるという現象が起きています。アドバイスお願いします。
ttp://www.geocities.co.jp/SiliconValley-SanJose/7269/petit.txt

>>530
ちなみに529です。名前変更するの忘れました。

自分なりにichatに発言ランキングいれようとしたけど、無理でした。
発言ランキング使けかたおしえてください

>>530
投稿フォームへのリンクを消せばいいだけだと思うが。
すっきりさせたいならsub newk{} とそれを呼び出している部分も消せばいい。
具体的には193行目と237行目とsub newk{}全体。
まあ機能削りなんかするくらいなら一から自分で作ったほうが良いとは思うがな。

ちなみに #!/usr/local/bin/perl の下あたりに
use CGI::Carp qw(fatalsToBrowser);
と書いておくとブラウザにエラーが表示されるのでおすすめ。

http://mtbbs.tr-w.net/
で配布してる掲示板なのですが、一番下の記事には
全部読む 最新50 1-100 板のトップ リロード
って表示されません。
http://mtbbs.tr-w.net/yy2ch.html
のサンプルにも表示されていません。
どうすれば表示されるようになりますか？

初めまして、質問させていただきます。

.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"のみ許可したい場合の記述の方法が今ひとつ良く分かりません。
ご教授お願い致します。

教えてください

>>536
if ($match) を if (!$match) にするだけ。
それと余計なお世話かもしれないが、本当にやりたいことは
@host = ('\.jp$', '\.hoge\.com$');
なんだと思う。

>>536
単純に
if(!$match){
じゃダメなの？

>>536
if($match)
を
if(!$match)
にするだけで、$matchじゃなかったら「書き込めません」と出るようになります。

>>538-539
ご回答ありがとうございます！早速やってみます。

レスが遅くて被りまくり・・・。

>>冬厨様
ありがとうございます。

先ほど質問させて頂いた536です。

教えて頂いた通りに記述してみたところ、ホスト名を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 の方法で確認。

>>534
とりあえず軽量化するための苦肉の策として投稿フォームをhtmlで
吐き出すことにしました。名無し投稿が可能なので匿名投稿可というのをクッキーの
言い訳に・・・（ｗ　返信フォームではクッキーが有効なので大して問題もないですので

ご協力ありがとうございました。

AGE
発言ランキングどうやったらつけれるんですか？

>>547
入れようとして無理だったなら途中までのソース見せれ

>>538さん
教えて頂いた通りにしたら今度は上手くいきました！ご丁寧にご教授頂き本当に助かりました。有難うございました。

age

newbbをi-mode用に改造しなさい

age

ttp://dream.lib.net/room/cgi/e_linebbs.html
の改造なんですが、
新しい投稿が上にくるようにしたいのですがどうすればいいでしょうか？
投稿が増えると最新の投稿を見るためにいちいち一番下までスクロールさせないといけないのです。
アドバイスお願いします。

ソース見るの面倒だからどっかにうｐくらいｼﾚ！








まぁ、これくらいなら大体分かるか…
ログを記録するところがunshiftになってると思うから
pushにしれば完了

うわ！ほんとにできました！！！
天才かと思いました。俺、素人ですが。
ソースのアップすみませんでした。めんどくさいの忘れてました。
あああ。マジうれしい。ありがとうございました！！

このスクリプトを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>

誰か発言ランキングのつけかたおしえてくださいよぉ

「劇空間ぱわふるリーグ２（改）」という野球のCGIゲームなんですが、ご教授ねがえないでしょうか？
このゲーム、投手２人制なんですが、増員したくて４人にする事には成功したんです。
が、試合後に投手全員の「調子」を変更してローテーションを回す部分が解らないんです。

http://ari-sin3.hp.infoseek.co.jp/cgi-bin/source3/No_0024.txt

↑実際に試合を行うスクリプトです。
この中の「投手データ更新」の項目の部分らしいんですが、
これだと、打順９（先発投手）が打順１２（控え）になって、打順１２の控え投手が次回先発の打順９になるだけで、他の控え１０と１１の投手は全く移動が無くて４人で上手くローテーションが回りません。
どうかお知恵をお貸しくださいませんでしょうか？

>>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;
}

で動く、かも。間違ってたらスマンということで。

◆◇◆◇◆最新情報◆◇◆◇◆
http://yahooo.s2.x-beat.com/linkvp/linkvp.html

発言ランキングのつけかたおしえてください

>>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 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();
}

>>559さん

見事にローテーション回りました♪
ありがとうございますm(_ _)m
>そんなクソソース読む気がせん。
やっぱり酷いスクリプトなんっすか？
もともとFFAの改造らしいですが。
「劇ぱわ」を改造したはる人の間ではわかりにくいと評判のようです(w

>>564
スクリプトいじれもしねぇ〜くせにガタガタ抜かしてんじゃねぇ〜。この真性包茎が！

初めまして。
ご指導を仰ぎたく書き込ませていただきます。
>>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を記入すればよいのでしょうか。

お手数をおかけして申し訳ございませんが、
ご回答いただければ幸いです。なにとぞよろしくお願いいたします。

>>565

なっ、なぜわかった！？

>>567
最もらしい顔して書き込んでればみんな職人さん！ってわけではないのだよ。
ソース以前にこんなスクリプト使う奴の気がしれん。ネパワでよくみかけるが。

>>566
なぜソースをあげないのかと小一時間・・・。34のファイルはすでに消えているし
あったとしても圧縮ファイルじゃほとんどの人は読まないよ。君がtxtで
うｐしなよ。

>>568

いや、真性包茎のほうでつが．．．＜なぜわかった！？

冗談はさておき、連勝中のチームでのローテが上手く回らない事が判明しました。(ToT)
症状をまとめるため、もう少し試合重ねてみます。
（今のところ、数連勝していると投手の打順が８や７になって、野手として試合参加してしまいます）

>>562-563それはどこにかけばいいんですか？

>>571
取り敢えず最終行で良いんじゃねぇの？
てか、これ位も判らないんじゃ話にらん
少しはPerl勉強して出直してこい

発言ランキングを表示するところをつくれば表示されますよね？

お邪魔します。

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

>>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.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';

なにか間違えてますでしょうか？
ご迷惑をおかけしますがよろしくお願いします。

KENTさんのとこのpatioにトリップつける改造が紹介されてたんですが
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 の閉じ括弧が無いので
それもつけること。

>>579
まずは自分でやってみる。上手くいかなかったら、はじめてここで質問する。

自分で出来ること（チャレンジ）を端折るな。じゃなきゃ、いつまでたっても
質問廚だぞ。

>>580
すいません理解力に乏しくて。
48-54を削除し閉じ括弧を付けましたところ
うまく行きました。
感謝します、ありがとうございました。

>>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行目あたりを
改良して色々試してみたのですがどうしてもうまくいきません。
わからないながらも簡単な改良のように思えるので、
またこのスレのお世話になりにきてしまい恥ずかしいかぎりです。
教えて頂ければ幸いです。

>>507
レス遅くなりました。
複数修正チェック入れさせていただきました。
どんどん機能が増してきて凄く嬉しいです。ありがとうございました。

>>508
パス丸出しでしたw
念の為パスワード変えました。ご指摘ありがとうございました。

>>585
大まかには理解しているようなのでヒントだけ。
sub decrypt はパスワードが正しければ1、そうでなければ0を
返すようになっている。これをパスワードが正しい、もしくは
管理パスと同じ場合に1を返すようにすれば良い。

ワードラップ表示のない掲示板を設置しています。
改行を入れずに記入されると、表示がびよぉ〜んと伸びて、ブラウザを右にスクロールしないと読めなくなります。

普通は、表示のほうでワードラップさせるのでしょうか。

そこで考えているのですが・・・。
掲示板書き込みの、内容チェックルーチンの後ろに、自動整形ルーチンを
持たすようにしたいんです。
昔のMS-DOSの時にあった fin という外部コマンドみたいな機能です。
付け加えたいのは、
.br といった、改行を入れる埋めこみコマンド（一つだけ）
禁則処理
引数で、桁を指定
引数で、インデント桁を指定（これで四角い文書になる）

引数のわたし方ですが、チェックボックスでも作るのがいいでしょうか？

こうした機能がすでに書かれたサブルーチンがどこかにあったら見てみたいのですが、
ご存じないでしょうか？

http://www.agemasukudasai.com/bloom/

>>587
管理パスは平文でスクリプトに書いている。
sub decryptは通さないでそのまま比較すればいい。
if ($in{'pwd'} eq $pass)

>>486,585
sub decrypt {
local($inp, $log) = @_;
の下に
if ($inp eq $pass) {return(1);}
を追加したらどうやろ

>>587
大まかには理解していると言っていただけて嬉しいです。
最初はほんとにさっぱりわからなくてHTML部分の改造以外できなかったのですが、
毎日わからないながらも試行錯誤していたら少しだけですがわかってきました。
だんだん覚えていくので凄く楽しいです。

>>590
パスを書かないのがif ($in{'pwd'} eq "")だったのでそこにパスを入れれば
「もしもパスが入力されていたら」になるかなぁと思って
それと同じような文を書いたんですけど、結局出来なかったんです。
惜しかったんでしょうか。

>>591(590)
その一行を追加しただけで出来ました！
簡単とは思ってはいましたが一行で済むとは思いませんでした凄いです！
私が考えていた所と全く焦点が違っていた事に驚いてます。
何度も質問したのでもう一度ここのお世話になるか凄く迷ったのですが、
質問してよかったです。（皆様にはお手数かけましたが）
本当にありがとうございました。m(_ _)m

発言ランキングのつけかたおしえてください

>>593

>>1を読んでYO

質問するときは以下の点に注意して書いて下さい

(1) そのスクリプトの内容と置いてある場所を明記する (txtファイルでUPすればなお良い)
(2) どんな風に改造して欲しいのか？ (完成イメージHTMLを用意すればなお良し)
(3) 出来るだけ詳しく書くこと。少しは自分で考えること。できれば御礼も言ったほうが良い

※答えてくれないからといって逆ギレする厨はお断り

>>593は少々イジけているんだろ。
すんなり誰も教えて（改造して）くれなかったから。

自分でドコまでやったのか
それを示せばいい答えが返ってくるかも知れないぞ

>>593はPerl判らないから全部コピペで完全に動作する所まで説明しないと判らないんだろう
って、言うかどう言うのを希望なのかHTMLすら出さないから
HTMLもタグ打じゃ書けないﾖｶｰﾝ

発言ランキングの奴はcomchatの奴をつかいたいです。

>>597
KENT氏のCOMCHATについている発言ランキングを
自作のスクリプトに使用したいってことか?

・・・勝手に使えばいいぢゃないかYO

comchatなんて、元々ゆいちゃっとからのパクりが多いから、全然OKだろう。

ネットサーフしててあるところの掲示板で見かけたのですが

掲示板の書き込みで

”＞”のような引用を使うとその一文の文字色が変わり
背景色がつけられて 目立つ

ようなのを見かけたのですが

どうすればできるのでしょうか？
背景色は外部スタイルシートでしょうか？

よろしくおねがいします

テキストは
ttp://www23.tok2.com/home/fura/yybbs.txt
です。
（トクトク仕様で見づらいですがソースで確認お願いします）

よろしくおねがいします

perl掲示板の壁紙について質問があります。
現在、
　{
　　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;

を追加するようなやり方でも可能です。

>>602
ぉ！ 間違えてる。。
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;">';

今ホムペつくってるんですけど、a.htmというページがあるとしてそこに5人
きてるとします、それでその人数を、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>

>>605
a.htmlを見ていると思われる人数を
b.htmlに表示することは可能です
マルチポストなので私は改造しませんけれど

>>605
おまえね、誘導されてきたなら元スレにお礼言ってから
こっちでも誘導されてきましたって挨拶するべきでしょ？

タッキーズルームのpulinplinkに背景固定のスタイルシートを加えたいんだけど、
どのへんいじったらいいかわかりません。誰か教えてください。

>>609
>1読んでURL晒せ

>>609
420行目にbodyタグのCSSとかが在るからそこを書き換え
てか、次からはCGIのテキストをUPするか最低限配布場所のURLを明記しましょう。

>>606
あ〜今からお礼いいにいってきます！＆誘導されてきました。
んとぉ〜b.htmに<script language="JavaScript" src="imakoko.cgi"></script>
をはると、b.htmを見てる人もカウントされてしまうんです。
a.htmみている人をb.htmに表示したいんです。

>>609
タッキーズルームへ逝ったけどpulinplinkというタイトルのＣＧＩ見つからなかった
pulinplinkでgoogleで検索しても見つからなかった

>>613
試しにみてみたら・・・あるじゃん
ぷりんぷりんく pulinplink.cgi って。。

>>607
すみません。マルチポストってマナー違反ってしりませんでした。
すみませんがおしえてもらえませんか？どうしてもしたいんです。
おねがいします。もぉ、おこっちゃったかなぁ…

>>614
ありがとう

>>615
板違い
どっか初心者板へ逝って

>>611
ありがとうございます。
いろいろやってみたけどできなかったです。もうちょっとやってみます。

>>614
説明わかりにくくてすいません

>>615
ん? 607・・・って私ですか(笑
全然怒ってはいないですよ。昼飯食べてくるからその後で・・・よければ。

>>615
これ読んでおいて
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;

>>621
そして、a.htmlでは普通にスクリプトを呼び出して
b.htmlではimakoko.cgi?bのように?bを追加して読み込んでください。

<script language="JavaScript" src="imakoko.cgi?b"></script>

もっとスマートに改造できるのですが・・・とりあえずこれでも可能です。。

>>621
あ、exti;の後にもう1つ}がいります。。
exit;
}

>>622ほんとですか！やってみます！こんなやつにわざわざありがとうございます。
あ！このbってのはb.htmだからbなんですか？
それともなんかの。。。

>>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;
}

>>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;
}

おしえてください！発言ランキングのつけかた
KENTのところにあるCOMCHATの発言ランキングをつけたいです。

>>624
imakoko.cgi?bって呼び出すのは適当すぎますし
imakoko.cgi?countって呼び出したページの人数をカウントして
imakoko.cgiだけで呼び出した時に人数を表示するほうが、より良いですね。

あと
@OUT = ("今このページに$count人の人がいます");
のメッセージも自分流に書き換える必要がありそうです。
無理に書き換える必要はありませんけれど、、
宿題として･･･？？ でわでわ！

ありがとうございます！早速やってみます！ありがとうございます！！

>>566にてエースさんのスクリプト改造について
アドバイスをお願いした者です。
>>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";
を挿入で表示できます。

>>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";

とでも記入してください。。

>>632
失礼、、画像タイトルは55行目を以下のように変更です。
print qq{<center><img src="画像"></center>\n};

>>631
@DATA = reverse(@DATA);
データを削除したり編集したりしている内に表示順がおかしくなるねぇ
reverse行は取り消して

73行目の
foreach $line (@DATA){
を
foreach $line (sort @DATA){
で解決かな?

お絵かきけいじばんの、画像を保存するのを無理やりgifに変換するにはどうしたらいいのかを考えるすれに変わりました

>>602>>603
を元にできました。どうもでした。
ただ全角の引用の”＞”には対応するのですが
半角の”>”にも対応させるにはどうすればいいでしょうか？
半角を使う人もいるので・・・

よろしくおねがいします

>>636
?ああ2chに書き込んだときに>に変換されてしまったのね。。

s/(^|<br>)((>|(?:＞))〜
の>を＆ｇｔ；と半角で置き換えて。。

>>635
ttp://www.imagemagick.org/www/perl.html

>>637
>って言っても
<br>はそのままだYO
念のため

>>637
できますた。
どうもでした

ttp://sugachan.dip.jp/download/joyful.php
ここのスクリプトのHTMLVerなんですが
1ページ目を0.htmlではなくindex.htmlで吐かせたいのですが
どこを変えればよいのでしょうか？

>>604さんへ

できました！
あたしはperlは無知なので助かりました。
簡単な質問にも丁寧に回答していただいてありがとうございました！

>>640
2･3日待って貰えば
ﾕｰｻﾞｰの方でﾌｧｲﾙ名設定できるようにします.

>>641
PerlつーよりHTMLだわな。

◆◇◆◇◆最新情報◆◇◆◇◆
http://yahooo.s2.x-beat.com/linkvp/linkvp.html

>>631-633さん、>>634さん

どうもありがとうございます！希望通りの表示になりました。
お時間を割いていただいて恐縮です。
たった1ワード入れるだけで変わるものなんですね。
何を勘違いしたのか数字を入れたりしていました...

いまはは曜日表示の追加と下部に表示される記事部分を
一番上の日付ぶんが最初に来るように調整してみています。
自分でスクリプトをすべて書けるようになったら
とても気持ちがよいでしょうね。がんばります。

>>640
更新しておきますた

>>627
>>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();
を追加。

ファイルの一番下に
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のやつからもってきただけ。
(ただ、無駄な部分は省いた。)
# 長くてスマソ... 今度からインデントやめます。

>>645で報告させていただきましたが、
sortを記入すると曜日ごとにソートされまとまって表示されるのに気づき、
reverseを記入してみたらうまくゆきました。

>>651
スクリプト改造お疲れさまです。

sortを使用した場合、ログデータをそのまま並び替えています。
デフォルトの状態では〜.datファイルが
年<>月<>日<>タイトル<>本文<>
年<>月<>日<>タイトル<>本文<>
・・・

のフォーマットで保存されています。
曜日ごとに並び替えられてしまったのは
曜日<>年<>月<>日<>タイトル<>本文<>

みたいに曜日をデータの先頭に挿入しているため
曜日毎に並び替えてしまったのかな、と推察しています。

reverseの使用で対処できるとのことでなによりですが
reverseしてデータを表示するルーチンの後に
もう一度reverseして@DATAの内容を元に戻しておくことを勧めます。
もちろん問題がでていないようなら必要ありませんけれど。。

@DATAをreverseしたままの場合は
他のルーチンのロジックも少し弄る必要があるかも知れません。
あしからず。

>648のようにやりまして、エラーが発生しました
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で書いている行番号は
改造を行った後のものだから混乱するかも。
あとエラーが出たのならエラーメッセージを出せばなお良い。

kentwebのスレッド式掲示板webpatioのスレッド名の文字数制限をなくしたいのですが
どなたか方法をお教え願えませんでしょうか？

# コメント文字数チェック
if (length($in{'comment'}) > $max_msg*2) {
&error("文字数オーバーです。<br>
全角$max_msg文字以内で記述してください");
}

>>655
>>656
init.cgiに
# コメント入力文字数（全角換算）
$max_msg = 800;

・・・スレッド名の文字数じゃなくてコメントの文字数なのかYO

>>656-657氏
コメントの文字数ではなくてスレッドの題名の文字数です。
宜しくお願いします。

ここはSの依頼者とMの回答者が仲良く助け合うスレッドですか。

>>658
patio.cgiの464行目
<td><input type=text name=sub size=30 value="$resub" maxlength=30>
maxlengthの値を変えましょう
perlばかりみていたYO。。。

>>659
(≧∇≦)ﾌﾞｧｯﾊﾊ!

>>660氏
無事改造できました。いやー助かりました。
どうもありがとうございました。

http://www6.ocn.ne.jp/~endou/index2.html

ttp://fitness.s7.xrea.com/index3.php
これをWinXPサーバで動かしたいのですが
rejpeg repng regifがどうもLinux専用らしいのです
Windows版 rejpeg repng regifってどこかにありませんか？

>>663
無い

http://csx.jp/~feger/ichat.txt
↑の奴やったんだけど５００エラーがでました

>>665
一行目は空白入れない

1行目とは？

>>665
使い古されたアレだが、500だけじゃ何がエラー原因か絶対にわからん。
ローカルで試してエラーメッセージを確認してから出直して来い。

ローカルで試せってどうやって？

>>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

おお、親切な>>670がエラーメッセージを出してくれたぞ。
これで意味がわからなければ>>665はもうプログラムいじるのやめろ。
これが理解できないようであれば、これから先他人に迷惑かけるだけだから。

>>669
ＡｃｔｉｖｅＰｅｒｌとＡｐａｃｈｅを入れる。
詳しくは、ググル

>>665
なるほど、、ランキングを付けようとされてるのですね。
そのために追記された305行目の
elsif ($act eq "ranking") {viewranking();}{
}

のブラケット使い方、条件分岐の使い方が間違っています。
そこの部分を元に戻して
321行目の}の後に
elsif ($act eq "ranking") {viewranking();}

とでも入れてください。。

>>600で
掲示板の書き込みで
”＞”のような引用を使うとその一文の文字色が変わり
背景色がつけられて 目立つ

ってのを教えてもらった者ですが

このＣＧＩ携帯からも閲覧＆書き込み可能なのですが
携帯から見た際には反映されていませんでした
携帯でアクセス際にも反映させるにはどうすればいいでしょうか？
それとも携帯からは無理でしょうかね？
一応ですが携帯でも<font color〜>とかのタグには反応するので・・・

テキストは
ttp://www23.tok2.com/home/fura/yybbs.txt
です。
（トクトク仕様で見づらいですがソースで確認お願いします）

よろしくおねがいします

>674
携帯用のHTMLタグを勉強汁！！

（＾＾）

>>674
なんだあ、このテキスト？
トクトク仕様で見難いんぢゃなくて
お前の脳内仕様だからダメなんだよ
教えた香具師も報われないな（ｗ
暇だったから覗いてみたが、時間の無駄

>>677

マターリいこうぜ。
煽って文句言うだけなら誰でもできるぞ

>>674
気にするな

>>678
600以降のやり取りと674のテキストをみてマターリできるような香具師ははっきり言ってｷﾓｲ

>674
よく分らないテキストはうっちゃっておいて。。
どのみちスタイルシートと同様で
全ての携帯向けに背景色を指定するのはできませんし
<FONT color=〜で文字色にて目立たせるか
<B>などで強調して表示させるほうがベターなのではないでしょうか。

お騒がせしてスマソ
テキストはこちらで
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";
こんな感じにです。ここも携帯向けのタグを指定します。

とりあえずはこんな所だろうと思います。。

>>682
丁寧な説明でわかりやすかったです。
無事できました。
どうもありがとうございました。

最後に自分のせいで
お騒がせして申し訳ありませんでした。

>>673
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();}

全部書くとこうなります。。。

>>663
JPEGのみですが作りました。
http://fitness.s7.xrea.com/index3.php

>>685
これでも表示できないようなら
jcode.plを同じディレクトリに設置し忘れていないかを確認してください。

行番号表示するエディタもってません、
なんかいいやつありませんか？

>>688
そうですねーエディタを人に勧めるのは難しいのですけれど。。
メモ帳を使用しているのなら・・・同じようにシンプルでクセの無い
TeraPad を勧めておきます。

TeraPadをＤＬしましたが行番号のところやっても全然違うところぁ
なんかできない

>>690
設定がおかしいんだろ？
できること全部やってから弱音吐け。
たった一時間でそのエディタの全部がわかったとか言うなよ？

>>690
わーお！！
速レスで分かりませんでしたか。。
ひょっとしてネタなんじゃ・・・いや、ネタでもマジでもいいのですけれどね。。
もう一度返答するのでしばしお待ちくださいませ。
夕飯に食べる物が無かったので外食してきます。

>>684
use CGI::Carp qw(carpout fatalsToBrowser);
２行目あたりに入れて実行してみ

>>663
ttp://sugachan.dip.jp/download/joyful.php
こういうのもある・・・
Winってことは自鯖だろうからPerlModuleくらい
やり方かいてあるし入れられるだろ

>>690
元になったバージョンと比較をやらせて、書き直してあります。
ttp://ruffnex.oc.to/ipusiron/upload/1658.zip
適当なアップローダにアップしてみましたのでDLどうぞ。

ランキング機能は>>647氏のレスのとおりです。
他に自己的に書き換えたと思われる箇所を拝見した限りでは
エディタなどで戸惑うとは思えませんし
サーバに転送するだけでおそらく動作するハズの物ですので
試して見てくださいませ。。

>>647氏に感謝を忘れずに。。。

>>695どうもありがとうございます
>>647どうもありがとうございます

スンマセン、ﾁｮﾄ聞いていいっすか？
♪ｽｸﾘﾌﾟﾄを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

自分なりに改造というか流用を試みたのですが名無し投稿を可能にするぐらいしか
できませんでした。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ｲﾝｽﾄｰﾙする意味がなくなるような:)

ところで誰か 動作報告くれないかな？
動いたサンプル数が自分の所含めて1〜2のまま配るのはコワイ（ｗ
虹板のうｐろだスレのほうがいいかな？

http://sara.vis.ne.jp/sample/lettern/dkakikomitaipost.cgi

すみませんが、ご教授お願いいたします。
上記掲示板を、管理人のみレス付けができるように変更したいのです。
下記に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しておいて
修正後のファイルを公開、修正前のファイルは自分のレス用にする
こんなでどうかな？動作確認してないし、
漏れ初心者だから動かなかったらごめん。

>>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　ていわれる・・・
どう改善すりゃいいんかね？？

すなおに0chでもつかってお（ｒｙ

０ちゃんねるは将来がたのしみなところ。
いまはまだ〜　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
スクリプトはこれです。御教授お願いします。

>>703さん

教えて下さって有り難うございました。
出来そうです！！！