スクリプト改造工房 Part3
レス数が900を超えています。1000を超えると表示できなくなるよ。
0001名無しさん＠お腹いっぱい。
2001/05/02(水) 21:59ID:nr93n3doという人がいましたらここで聞いてください。
ひょっとしたらアドバイス出来るかもしれません。
前スレ
Part1 http://tako.2ch.net/test/read.cgi?bbs=perl&key=958370869
Part2 http://tako.2ch.net/test/read.cgi?bbs=perl&key=986986227
＃板移動に伴い「CGI改造工房」→「スクリプト改造工房」に改名
なお、質問するときは
1）そのスクリプトのある場所（URL必須、拡張子".txt"でアップすればなお良し）
2）どんな風に改造して欲しいのか？ （完成イメージHTMLを用意すればなお良し）
を必ず明記しよう。
0830名無しさん＠お腹いっぱい。
02/01/27 17:06ID:???0831819
02/01/27 17:08ID:???画像アップできる掲示板なんですが、レスにも親記事と同様に
画像のアップロード機能を付けたり、返信タイトルを変えれるように改造したいのですが
どうすればよいでしょう。
下の２つが関与していることが分かりました。
www12.tok2.com/home/azsx4/bbs.txt
www12.tok2.com/home/azsx4/bbs_eng.txt
0832名無しさん＠お腹いっぱい。
02/01/27 17:19ID:???めんどくせー
0833名無しさん＠お腹いっぱい。
02/01/27 17:39ID:???るせんだよお前
馬鹿は引っ込んでろって
0834名無しさん＠お腹いっぱい。
02/01/27 18:04ID:???>>822-823
をご覧下さい。
>>827は、>>826へのお返事です。
m(_ _)m
0835819
02/01/27 19:04ID:???以前２チャンネルに直リンクしたところ、アカウントを抹消されましたので
こり方法を採らせて頂きました。申し訳有りませんが、これで宜しくお願いします。
0836名無しさん＠お腹いっぱい。
02/01/27 19:08ID:???0837名無しさん＠お腹いっぱい。
02/01/27 19:47ID:???引っ込めゴミ屑
0838名無しさん＠お腹いっぱい。
02/01/27 19:57ID:???だいたい、833の方がクズっぽいじゃんｗ
0839838
02/01/27 20:08ID:???$cmd の汚染チェック
$which = "/usr/bin/which";
if($cmd){
$s = `$which $cmd`;
if($s ne ""){
print " $s\n";
} else {
print " 無い\n";
}
} else {
print "入力して\n";
}
うちのサーバーでは動くよ。
0840名無しさん＠お腹いっぱい。
02/01/27 20:24ID:c8vNEx+4>839
ありがとうございます。おかげさまでPerlのパスは表示できるようになりました。
原因がよくわからないのですが、/usr/bin/whichとフルパスにしたところ、
今までちゃんと表示されなかったsendmail perlについても、
パス表示で出力されました。
ありがとうございました。
0841名無しさん＠お腹いっぱい。
02/01/27 20:49ID:???大体PerlのパスはPerlで調べられないでしょう (笑
て冗談は置いといて
コマンドパス(ここではwhich)もshの方があらかじめ通ってる可能性が高いよ
0842名無しさん＠お腹いっぱい。
02/01/27 20:55ID:c8vNEx+4PerlのパスをPerlで調べる、というのは、結果が出せなくてムキに
なってやってた面があります(笑)。おっしゃるとおりだと思います。
（ただ、表示させることは出来たので「できない」と言い切るわけにも行きませんが）
＞コマンドパス(ここではwhich)もshの方があらかじめ通ってる可能性が高いよ
そうなのだと思いました。
> which which
which: shell built-in command.
これを実行して、そのことに気づきました。
shスクリプトについては、ブラウザから実行できないケースがありますので、
なんとか、CGI(Perl)でやりたかったというのが真相です。
0843名無しさん＠お腹いっぱい。
02/01/29 14:08ID:wmSGxJCChttp://www.botan.sakura.ne.jp/%7Ewcs/perl/download.htm
ここのbbsnote7.17を使いたいのですが、
画像サイズは任意ではなく
ポップアップメニューで
よこ100・たて200
よこ200・たて300
よこ300・たて400
といったふうに予め指定ができるようにしたいのですが
スクリプトをどう変えるべきなのでしょうか。
心当たりのあるファイルをみっつアップしてみましたが
的外れなようでしたら追加致します。
どうぞ宜しくお願い致します。
http://members.tripod.co.jp/goldenzombie/bbsnote.txt
http://members.tripod.co.jp/goldenzombie/skin.txt
http://members.tripod.co.jp/goldenzombie/config.txt
0844名無しさん＠お腹いっぱい。
02/01/29 17:13ID:???えーとねぇ、多分出来たんだけど、
こういう掲示板使った事ないからよく判んないんで自分で変な所探してみてくれる？
isweb36.infoseek.co.jp/computer/perldev/cgi-bin/upload/source/027.lzh
0845名無しさん＠お腹いっぱい。
02/01/29 17:31ID:???0846名無しさん＠お腹いっぱい。
02/01/29 18:10ID:???ありがとうございます！
config.cgiにエラーがあったみたいなんですが
頂いたスクリプトをお手本に動くまでやってみます。
何から初めていいかすらわからなかったので勉強になりました。
0847名無しさん＠お腹いっぱい。
02/01/29 19:55ID:ugS9E7RW途中でバグが発生して原因が分からなくなってしまいました。
スクリプトを直接手直ししてやってもいいぞ、という方いらっしゃいませんか。
お時間があるときでよいので宜しくお願いできませんでしょうか。
バグの内容：
１．投稿時、文字色の指定を「#」にして投稿後、フォームの体裁が崩れる。
２．レスフォームの画像のアップロードが出来ない。
３．投稿文字色を「#」で指定したときの、投稿前に選んだアイコンが反映されない。
スクリプトは下記に纏めて置いておきます。
spamkill.hoops.ne.jp/bbs.lzh
0848名無しさん＠お腹いっぱい。
02/01/29 22:03ID:???ごみんね
0849名無しさん＠お腹いっぱい。
02/01/29 23:51ID:???人様の為に無料でやれと書かれてモナー。
ソース見た後にバグチェックだって。
馬鹿？
0850名無しさん＠お腹いっぱい。
02/01/30 00:26ID:???出来ない人の煽り禁止、負け犬程良く吠える
ここは出来ない人を助けてあげるスレです
0851850
02/01/30 00:29ID:???取り敢えず3の問題はbbs.cgiの1596行目に
<input type=hidden name="icon" value="$in{'icon'}">
を追加すればOKだと思いますよ。たぶんですけど。
残りの問題は私より詳しい人を待ちましょう。
0852とても初心者
02/01/30 02:34ID:H16YxSpOそのページの検索が終わります。これを、
すべての言葉でヒットするように改造したいのですが、
うまくいきません。
現在、全言葉がヒットしてしまいます。
なぜでしょうか？
foreach $data (@data) {
# HTMLのタイトルを記憶
if ($data =~ /<title>(.*)<\/title>/i) {
$title = $1;
}
# タグを無効化
$data =~ s/<[^>]*(>|$)//g;
if (index(lc($data), lc($pair)) >= 0) {
$flag=1;
}
# タイトル名が取得できなかった場合
if ($title eq "") { $title = "無題"; }
if ($flag) {
# 検索結果を表示
if ($h eq 0) {
$h =1 ;
$hit++;
print "<LI><a href=\"$path\"><b>$title</b></a>\n";
print "<DL><DT>$data</DL><br><br>\n";
}
else {print "<DL><DT>$data</DL><br><br>\n";}
}
}
0854名無しさん＠お腹いっぱい。
02/01/30 03:03ID:???エラーメッセージ位書かないと
頭の不自由な人と思われるよ
0855とても初心者
02/01/30 03:05ID:H16YxSpO0856とても初心者
02/01/30 03:13ID:H16YxSpO最初の１ヒット目で ＄h=1
にしてタイトルも表示、
＄h=1 ならタイトルなしにしています。
いちおう表示されますが、これでいいのでしょうか？
0857とても初心者
02/01/30 03:32ID:H16YxSpO全文検索をテストしてみたら、
２０ページぐらいのＨＴＭＬの検索で
３秒以上かかります。（ローカル）
これは、ちょっとまずいでしょうか？
0858847
02/01/30 05:08ID:???>>850さん、ありがとうございます。その改変でバッチリでした。
あとの問題を解決していただける方を待つことにします。どうぞ宜しくお願いします。
一応エラーが出た後のHTMLを用意してみました。
http://spamkill.hoops.ne.jp/error.html
08599450
02/01/30 05:10ID:vwtucaqbhttp://ice.prohosting.com/pinkbook/cgi-bin/linkv.txt
このスクリプトのNEWマークの他におすすめマークと相互リンクマークをつけて
さらに、それぞれのカテゴリーに説明文をつけるにはどう改造すれば宜しいのでしょうか？
どなたかご教授ください。
0860名無しさん＠お腹いっぱい。
02/01/30 12:53ID:???kENTに聞け。
0861名無しさん＠お腹いっぱい。
02/01/30 13:28ID:NWpy8wW6KENTさんは改造に対する質問を断っています。
それにしてもてめぇみてぇな奴には始めっから聞いてねぇんだよ。
>>850を読め。
0862名無しさん＠お腹いっぱい。
02/01/30 13:42ID:jvP4y3Zo>860とのやりとりがどんなやりとりであったとしても、
＞それにしてもてめぇみてぇな奴には始めっから聞いてねぇんだよ。
＞>>850を読め。
人にものを尋ねる態度でないよね、これは。
0863名無しさん＠お腹いっぱい。
02/01/30 13:47ID:???人にものを尋ねる態度でないよね、これは。
(ﾟДﾟ)ﾊｧ?
KENTに聞けとか偉そうな事書いてる
>>860
に対してレス付けたんだぞ
仮にもあんたが850だとしたらとんだ口だけの人間だね？
ただ怒らないだけ。意味ないじゃん。カッコだけ？
0864名無しさん＠お腹いっぱい。
02/01/30 13:53ID:???CGIの質問に答えるのは遅いくせにクレームは早いのか？
0865名無しさん＠お腹いっぱい。
02/01/30 13:54ID:jvP4y3Zoこの板、ただでさえ人が少ないからねぇ・・・・
たぶん、その発言の後で、君に教えようって思う人はいないと思うよ。
CGI-MLでもいって聞いた方がいいと思うよ、たぶん
ここではもう回答は得られないと思う。
0866名無しさん＠お腹いっぱい。
02/01/30 13:56ID:???0867名無しさん＠お腹いっぱい。
02/01/30 13:57ID:???君？かっこつけんなよ。
ハンドルネーム変えてから又こよ。
0868名無しさん＠お腹いっぱい。
02/01/30 14:25ID:???同意。
ハンドル変えても、内容でわかるから、ここでは無理です。
煽りは無視して待つのがよかったと思う。
と書くと、煽られるんだろうけど。ｗ
0869名無しさん＠お腹いっぱい。
02/01/30 14:35ID:???アホかおまえ ﾜﾗ
0870とても初心者
02/01/30 16:05ID:H16YxSpOひとつ教えてください。
検索で、ローカルで３秒もかかったら、
サーバーで実際には使わないほうがいいでしょうか？
0871名無しさん＠お腹いっぱい。
02/01/30 16:10ID:jvP4y3Zoやってみないとわかんないし、スクリプト全体見ないと
わかんないし、君のローカル環境がわかんないし
設置するサーバの環境がわからないとわかんない。
だからレスがつかないんだと思うよ。
0872名無しさん＠お腹いっぱい。
02/01/30 16:26ID:???0873名無しさん＠お腹いっぱい。
02/01/30 16:51ID:???おまえもな。
0874名無しさん＠お腹いっぱい。
02/01/30 16:54ID:???0875名無しさん＠お腹いっぱい。
02/01/30 17:14ID:???・・・・！！
0876名無しさん＠お腹いっぱい。
02/01/30 17:47ID:???0877名無しさん＠お腹いっぱい。
02/01/30 18:42ID:???0878名無しさん＠お腹いっぱい。
02/01/30 20:39ID:ggX8Tpx7自分なりに出来る箇所はやってみたつもりなんですが全然できません･･･
どうか手助けお願いします・・・
アイコン掲示板
http://nyanko.s6.xrea.com/x/yybbs.txt
辞書変換機能付き掲示板
http://nyanko.s6.xrea.com/x/hagure.txt
自分なりにやってみたやつ
http://nyanko.s6.xrea.com/x/henkan.txt
0879名無しさん＠お腹いっぱい。
02/01/30 21:44ID:???で配布されているCOSMO-NAVI(自動リンク集CGI)で、
登録したサイトの名前とURLだけでなく、サイト管理人の名前も表示させるように
したいのですが、ご助力願えませんでしょうか？
登録画面ではサイト管理人の名前も登録させる仕組みになっているのですが
登録されたサイトの一覧を表示させても各サイトの管理人は表示されない
仕様なので困っています…
宜しくお願いします。
0880名無しさん＠お腹いっぱい。
02/01/30 22:02ID:???そんなURLのページはないそうだぞ。
0881名無しさん＠お腹いっぱい。
02/01/30 22:13ID:???あと、表示ルーチンを書き出してここに貼ってくれ。
読むの面倒くさい。
0882名無しさん＠お腹いっぱい。
02/01/30 22:29ID:???それと改造の仕方も教えてくれ。
俺も分からんから。
0883名無しさん＠お腹いっぱい。
02/01/30 22:53ID:???sub search {
のなかの
foreach ($in{'page'} .. $page_end) {
($no,$part,$sub,$hp,$name,$email,$pw,$msg,$dt,$ts,$rec)
= split(/<>/, $new[$_]);
$sub = "<font size=4><a href=\"http://$hp\" target=\"_top\">$sub</a></font>\n";
$times = time;
# 結果を表示
print "<b>$sub</b> ";
&icons;
print "分類：<a href=\"$script?mode=part&part=$part\">$parts[$part]</a>\n";
print "<P>$msg<hr>\n";
}
このぶぶんな。
0884名無しさん＠お腹いっぱい。
02/01/30 22:56ID:???print "<b>$sub</b> ";
を
print "<b>$sub</b> 管理人：$name ";
とかにするんだな。
0885名無しさん＠お腹いっぱい。
02/01/31 01:11ID:???>>861
>>863
教授ください。
ﾌﾟ
0886名無しさん＠お腹いっぱい。
02/01/31 01:33ID:???全然面白くないﾖｫｫｫｰｰｰ!!
0887名無しさん＠お腹いっぱい。
02/01/31 03:14ID:???板自体も随分と荒れてる気が。。。
0888名無しさん＠お腹いっぱい。
02/01/31 03:20ID:???出来ない人は出来ないなりの態度があるんじゃないの？
２ちゃんだからって好き放題言いたい放題はけっこうだけど、
そうすればこうなるってのは分かり切ったことだよね？
教えてもらって、お礼もなにもいわない奴もけっこういるしね。
そもそも、CGI-MLやPerlなんかっていう老舗もあるし、
(あっちも荒れるけどね)
どうしても知りたくて、でもマナーよくできないって奴は
好きにやったらいいんだよ。
あと、荒れてるっていうけど、じゃぁ、モー娘。の狼や
ニュース速報と比べてどうなんだよ？
っていったら、ぜんぜん問題ないくらいにここは居心地いいし、
みんな程々にやっていると思うね？
0890名無しさん＠お腹いっぱい。
02/01/31 03:26ID:???なんだ、君か。
0891名無しさん＠お腹いっぱい。
02/01/31 05:44ID:???推奨マークをつけたサイトをカテゴリごとにリストにして１ページで
まとめて表示させるには、どうしたら良いのでしょうか？
サイトの抽出は if ($rec == 1) で何とか呼びだせたのですが
その後の処理が分かりません。ヒントだけでもどうかお願いします。
0892名無しさん＠お腹いっぱい。
02/01/31 06:30ID:???0893名無しさん＠お腹いっぱい。
02/01/31 08:02ID:57SsbVSr0894あぼーん
NGNG0895名無しさん＠お腹いっぱい。
02/01/31 11:00ID:???ここでは、もう教えてもらえないって
0896879 ◆ft.iktHc
02/01/31 11:29ID:vSGm7NHA>>881-884さん、解説ありがとうございました。
早速試してみたのですが、ローカルサーバで実行すると
無効な要求が行われました といった内容のエラーメッセージが
返されてしまいました…
度々申し訳無いのですが、実際に弄ったtxt全文をupしましたので
最後にもう一度だけ力を貸してください、どうかお願いしますm(__)m
今txtをupしているサーバーはジオですが（^^;
実際に使うときはCGI可能な場所に置きなおします。
ローカルサーバで使っているのはunhttpdです。
0897名無しさん＠お腹いっぱい。
02/01/31 11:39ID:d+VyXV4Oまんこマークのアイコンを登録したらいいんじゃないのか？
0898名無しさん＠お腹いっぱい。
02/01/31 11:40ID:d+VyXV4Oなんでこいつアクセス制限にならないんだろう。
余談でした。
0899名無しさん＠お腹いっぱい。
02/01/31 11:43ID:d+VyXV4Oほかの部分もいじってないか？
俺が書いた変更の部分では、そういうエラーは出ない。
0900896 ◆ft.iktHc
02/01/31 12:41ID:ADMI85c9確認ありがとうございます。
もう一度自宅に帰ったらチェックします、お手数かけました…
これで卒研間に合います...
0901878
02/01/31 13:37ID:HFi6HUD60902名無しさん＠お腹いっぱい。
02/01/31 13:46ID:d+VyXV4O見てあげたい気もするけど、なんか面倒くさそうなので・・・・
話を聞いている限りでは、上手にやればちゃんと出来るよ。
がんばれ！
0903878
02/01/31 13:52ID:HFi6HUD6励まし有難うございます＜(_ _)＞
やはり面倒ですよねぇ。
今の所エラーなどは出て無いのですが、変換させる記述が
さっぱりわからないのですよ。。。
辞書変換のtextをコピペしたらエラー出るし
自分なりに書くって言っても変換させる記述がわからないので
さっぱりです。。。
いろいろ調べてがんばってみます！
0904名無しさん＠お腹いっぱい。
02/01/31 13:58ID:d+VyXV4Oうん、わかんない部分だけここに記述してごらん？
ソースはリンクしてあるから、必要だったら参照できるし。
この辺がわかりません、ってかんじで。
そういう感じで質問すると、かなりイイカンジの答えがもらえるところだよ。
ここは。
0905名無しさん＠お腹いっぱい。
02/01/31 14:38ID:HFi6HUD6アイコン掲示板にアイコン選択と同じ様な辞書変換機能を付けたいのですが、記事表示部分に
if ($comvert) {
print "<td nowrap><b>辞書変換</b></td><td><selectname=henshin>\n";
print "<optionvalue=noselected>変換無し\n";
print "<optionvalue=99selected>ランダム\n";
foreach(0 .. $#dicfile) {
if ($c_henkan eq "$dicfile[$_]") {
print "<option value=$_>$dicname[$_]\n";
}
}
と記述しましたが、cgiを実行してみたらアイコンの様な選択肢が表示されません。
そのすぐ下に#記事を展開と言うのを記述している所があるのですが、
そこにアイコンモードが記述されているので、辞書モードと言う形で
記述しなければいけないのか、またどう記述するのかで悩んでいます。
↓自分で書いたソース
http://nyanko.s6.xrea.com/x/henkan.txt
参考にしている辞書変換機能のついた掲示板のソースを見ていたら、
ログ表示と言う部分に
print " ";
print "$regdate</font>\n";
if ( $convert == 1 && @dicfile > 1 ) {
print "<font size=-1>";
print " \n";
print "($dicname[$conv])\n" if ( $conv ne 'no' );
print "(変換無し)\n" if ( $conv eq 'no' );
print "</font>\n";
}
と記述されていたので、それをコピペしてみたらエラーで表示されなくなってしまいました。
↓辞書変換機能の付いた掲示板ソース
http://nyanko.s6.xrea.com/x/hagure.txt
わかりにくい説明になってしまったかも知れませんが手助けして頂けないでしょうか？
0906905です
02/01/31 14:43ID:HFi6HUD6もし返事をして頂ける方がいらっしゃったら、帰宅してすぐに
見て返答させて頂きます(6:30は過ぎると思われます)
宜しくお願い致します
0907名無しさん＠お腹いっぱい。
02/01/31 15:00ID:NGd+gL/Mでは早速。
気になるのは、コンバート開始のフラグが
$convert = 1;
になってるのに、そこのif文が
if ($comvert) {
になっていること。
これでは始まらないよな？if文の{ }が。
0908905です
02/01/31 18:57ID:jR/jMhMW早くに返答して頂けてたんですね、すいません。
if ($comvert) {
になっていては始まらない･･･
if ($comvert == 1) {
ですか・・・？(不安)
0909名無しさん＠お腹いっぱい。
02/01/31 19:03ID:NGd+gL/Mいいえ。
スペルミスです。
0910905です
02/01/31 19:35ID:jR/jMhMWはっ！恥すぎる！！･･･ちょっとやってみたんですが・・・
ランダムと無変換はアイコン選択みたいな形で出てきてるんですが、
辞書ファイル名が出てきません。
新しく書き直したソースです↓
if ($convert) {
print "<tr><td nowrap><b>辞書変換</b></td><td><select name=henkan>\n";
print "<option value=noselected>変換無し\n";
print "<option value=99selected>ランダム\n";
foreach(0 .. $#dicfile) {
if ($c_henkan eq "$dicfile[$_]") {
print "<option value=\"$dicfile[$_]\" selected>$dicname[$_]\n";
print "<option value=\"$dicfile[$_]\">$dicname[$_]\n";
}
}
print "</select>\n";
print "</td></tr>\n";
}
0911名無しさん＠お腹いっぱい。
02/01/31 20:04ID:jR/jMhMW$dicfile = ('***.dic')
$dicname = ('***辞書')
って書いてました。
頭は @ なんですよね。出てきました！
0912名無しさん＠お腹いっぱい。
02/01/31 20:09ID:NGd+gL/Mよかったよかった。
0913名無しさん＠お腹いっぱい。
02/01/31 20:12ID:jR/jMhMWそして・・・出てきたはいいんですが変換される所か
記事を投稿したら変換選択肢も消えています(T_T)
多分記事を展開する記述のあたりをいじらないとダメなんでしょうね。
ちょっと自分でやってみてまた挫折したらやってきます。
お相手と返答有難うございました！
0914891
02/02/01 05:07ID:???http://lightning.prohosting.com/~greeny/navi.txt
sub recommendで推奨マークのついたデータは出るのですが
カテゴリごとに並べるには、どうしたら良いのでしょうか？
しつこくてすみません。アタマ悪くて情けないっす。
0915名無しさん＠お腹いっぱい。
02/02/01 05:43ID:HXUzAz60$ptがカテゴリだろ？そうじゃなかったとしても、カテゴリの入っているものがどっかにあるだろ？
そいつをキーにして、
１）ソートする
もしくは、
２）$noだけを納める配列をカテゴリごとに作り、逐次読み出す
の、いずれかの方法で可能だ。
２）の方法だと、新規登録順でさらにソートが可能だ。
ま、１）の方法でも出来ることは出来るが。
たとえば、
@sort = sort { $b <=> $a } @sort;
というような方法だな。
0916878
02/02/01 13:48ID:wZ8UcjT+どうにも行き詰まってしまいました。
>>190-911で書いた様に、アイコンの様に辞書を選択させる項目を
作るのには成功しているんですが、記事を投稿すると普通のアイコン掲示板に戻ってしまいます。
どこに何を記述すればいいかすらわからなくなってしまいました。。。
どなたか協力して頂ける方はいませんか？
↓一応辞書の選択項目は出来たtxt↓
http://nyanko.s6.xrea.com/x/henkan.txt
0917追記
02/02/01 13:53ID:wZ8UcjT+$dicfile = ('***.dic','+++.dic');
$dicname = ('***辞書','+++辞書');
の部分を
# 辞書を定義
@dicfile = ('***.dic','+++.dic');
@dicname = ('***辞書','+++辞書');
に直したテキストをアップし忘れてますが直してあります。(今は外なのでアップできません)
0918ハゲ
02/02/01 13:55ID:NjUzO3xG普通に<hr size="1">とか入れてもエラーになりますよね？
それで<hr size=\~1\">にすると正常に起動するんですけど、<hr size=1>といれても起動するんです。
本当は見やすいし軽い<hr size=1>がいいんですけど<hr size=1>は勝手に自分で試したら出来たんで
何かブラウザのバージョンによっては起動しなかったりしなそうで…
問題ありませんか？
0919ハゲ
02/02/01 13:58ID:NjUzO3xGperl→○
0920名無しさん＠お腹いっぱい。
02/02/01 14:05ID:tDsyJk1fほとんど問題ありません。
0921ハゲ
02/02/01 14:12ID:NjUzO3xGおぉそうですか！
はやいレスありがとうございました！
0922914
02/02/01 14:19ID:???あれから何とか目的の表示は出来るようになりまして
下記はどう見てもアタマ悪そうなソース恥ずかしいですが
ここはこうしろ！というツッコミありましたら皆様お願いします。
$flag = 0;
open(IN,"$logfile") || &error("Open Error : $logfile");
$i=0;
while (<IN>) {
$i++;
local($no,$part,$sub,$hp,$banner,$name,$email,$pw,$msg,$dt,$ts,$rec) = split(/<>/);
if ($rec == 1) {
$flag = 1;
if ($part == 0) {
print "<table width=\"100%\"><tr><th bgcolor=\"#CCFFCC\">\n";
print "<div align=\"left\">◆ $parts[0]</div</th></tr></table><br>\n"; # カテゴリを表示
&list; # バナー・サイト名・コメントを表示
}
中略
if ($part ==5) {
print "<table width=\"100%\"><tr><th bgcolor=\"#CCFFCC\">\n";
print "<div align=\"left\">◆ $parts[5]</div</th></tr></table><br>\n";
&list;
}}}
close(IN);
if (!$flag) {
print "<hr size=2 color=\"$obi_color\">\n";
print "<div align=\center\">＊＊＊ 現在ブックマークされている登録はありません ＊＊＊</div>\n";
}
0923ハゲ
02/02/01 15:55ID:NjUzO3xG0924NANASEA
02/02/01 23:05ID:+P0IlRhwこの掲示板を
管理人以外スレをたてられない。
名無しじゃあ書き込めない。
ように改造したいのですが よろしくお願いしますm(＿)m
0925第三中継可能 cc.sookmyung.ac.kr
02/02/02 00:19ID:???< 220-InterScan Version 3.6-Build_1166 $Date: 04/24/2001 22:13:0052$: Ready
< 220 cc.sookmyung.ac.kr ESMTP Sendmail 8.9.3/8.9.3;
> HELO rlytest.nanet.co.jp
< 250 cc.sookmyung.ac.kr Hello localhost [127.0.0.1], pleased to meet you
> MAIL FROM:< http://www.nanet.co.jp/rlytest/[email protected] >
< 250 < http://www.nanet.co.jp/rlytest/[email protected] >... Sender ok
> RCPT TO:<[email protected]>
< 250 <[email protected]>... Recipient ok
> QUIT
< 221 cc.sookmyung.ac.kr closing connection
問題あり：不正な中継を受け付けます。
(203.252.201.4)
ORDB database...登録されています。注意注意注意！
maps realtime blackhole list...登録されていません。
0926 １０００!!!!!取り合戦開始！
02/02/02 02:55ID:???0927名無しさん＠お腹いっぱい。
02/02/02 03:18ID:???まだはええよ、この板では。
0928NANASEA
02/02/02 23:58ID:dhP/lfU50929名無しさん＠お腹いっぱい。
02/02/03 00:07ID:+IXT+7Wc新規投稿フォームを撤去するだけで大抵の奴にはスレッドが建てられない。
さらに、書き込み用CGIからも新スレッドを立てるルーチンを削除してしまえば効果満点。
管理者だけが使えるディレクトリかCGIを用意して、改めてそこに新規投稿用のフォームを設置する。
以上。
なお、名無しを弾くのは、
if ($name eq "") { $msg = "名前を記入して下さい"; }
といったルーチンを加えればよい。
レス数が900を超えています。1000を超えると表示できなくなるよ。