スクリプト改造工房 Part3

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

前スレ
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を用意すればなお良し）
を必ず明記しよう。

http://tako.2ch.net/test/read.cgi?bbs=perl&key=986986227&st=22&to=22&nofirst=true
$goukei=$ten01+$ten02
PRINT'合計点は$goukeiです';
じゃだめかい？

http://tako.2ch.net/test/read.cgi?bbs=perl&key=986986227&st=100&to=100&nofirst=true
だった

http://tako.2ch.net/test/read.cgi?bbs=perl&key=981947727&st=100&to=100&nofirst=true
だった。。。。

>>2-4
うーん、これだけの情報じゃ全然わかりませんよ。
その改造中のスクリプトの拡張子を".txt"に変えて
どこかにアップして、ここにURLを書いてください。

> $goukei=$ten01+$ten02
> PRINT'合計点は$goukeiです';
> じゃだめかい？


だめに決まってんじゃん（ｎ


┐(´ー｀)┌


┏━━━━━━━━━┓
┃（'Д'）y ─┛~~　┃
┃むぎ茶　　　　　　┃
┃[email protected]　　┃
┗━━━━━━━━━┛
むぎちゃんねる
http://aho0baka.virtualave.net/bbs/bbs.cgi
ﾒｲﾘﾝｸﾞﾘｽﾄ
http://www.freeml.com/ml_info.php?ml=bitvalley

$goukei=$ten01+$ten02;
print'合計点は$goukeiです';
じゃだめかい？

↑ではダメでした。。

>>7
シングルクォートをとってみるのはいかがなものか、、、

↑Internal Server Errorになりますが

>>7
マジレスしちゃうけど、シングルクォートをダブルクォートにするといいよ。

前スレ42のスクリプトだけど、43さんのその一の方法でやってみたら
うまくいったよ。
変更点は、451行の
@plines = <PD>;を
$pline = <PD>; に。
454-458行の
foreach $reline (@plines) {
    ($a,$b,$c,$d,$e) = split(/\,/,$reline);
$poi = "$a"*10 + "$b"*50 + "$c"*30 - "$d"*20 - "$e"*30 ;
$pnin = $a+$b+$c+$d+$e ;
}
のところを、
($a,$b,$c,$d,$e) = split(/\,/,$pline);
に。

↑ごめん。ちょっとまぎらわしかったかも。
下二行は変更なしだから、
($a,$b,$c,$d,$e) = split(/\,/,$pline);
$poi = "$a"*10 + "$b"*50 + "$c"*30 - "$d"*20 - "$e"*30 ;
$pnin = $a+$b+$c+$d+$e ;
に変更ってことね。

あと、463行の
print "<br>投票数 $pnin\n";
の後ろに
print "<br>内訳：とても良い $b 良い $c 普通 $a 良くない $d 最悪 $e\n";
を追加。

1380行と1386行の、@plines = <FD>;も、同じように
$pline = <FD>;
に変更。1395行の
foreach $pline (@plines) {
と
1397行の
}
を削除。
それと、1396行の($a,$b,$c,$d,$e) = split(/\,/,$pline);の次に、
$a=$a+0;$b=$b+0;$c=$c+0;$d=$d+0;$e=$e+0;
を追加。
1404行のunshift(@new,$value);を削除。
1407行のprint FD @new;を、
print FD $value;
に変更。

1398-1402行の、if ($FORM{'points'}=10) { $a++ ;}等は、=を==に変えて
if ($FORM{'points'}==10) { $a++ ;}
というふうに5行全部変えてね。

だいたいこれで全部だけど…
Netfirmsではなぜか環境変数の
$ENV{'REMOTE_HOST'}が空みたいだから、
スクリプトの中に
if ($host eq $addr) { $host = gethostbyaddr(pack('C4',split(/\./,$host)),2) || $addr; }
ってところが何か所かあるけど、ぜんぶ後ろに
$host or $host=$addr;
を付け加えて。このままだとちゃんと動かないよ。

あ、あと一個。
378行の
chop($host);
を削除して。

http://tako.2ch.net/test/read.cgi?bbs=perl&key=981947727&st=91&to=91&nofirst=true
>@ten01 = ('','1','2','3','4','5');
>@ten02 = ('','1','2','3','4','5');
これ、@ten01=(1..5);
とするといいよ。数字をクォートで囲むと文字列扱いになるから。

http://www.haide.net/~seirei/team.txt
これで、報告処理の所を片方が登録したらでは処理ではなく、
2人が報告しないと、処理をしないようにしたいのですが。

具体的に言うとこんな感じです。
１人が報告→ログに記録される。
もう１人が報告→ポイント換算などの処理をする。

いろいろ試したのですが、ダメでした。
よろしくおねがいします

>>17
「勝者-敗者」を一時的に記録する未決ファイルを作るとよいのでは。
報告処理は以下のようになる。
・未決ファイルを参照し、今回の「勝者-敗者」にマッチするデータが
　あれば、それを削除し、ポイント記録処理をおこなう。
・未決ファイルにまだデータがなければ、「勝者-敗者」データを
　未決ファイルに追加する。

>>11-15　Ｔ女の竹田さま
　出来ました！　本当にどうもありがとうございます。
　http://2chmoji.netfirms.com/cgi-bin/antho.cgi
　クレジットにお名前入れても良いですか？

>>16
@ten01=(1..5);とやってもダメでした・・・

>>19 @創作文芸板さま
動きましたか(^-^) よかった。

クレジットは、入れない方が…(^-^；) ちょっといじっただけなので。
ただ、変更点に関しての責任者という意味で、スクリプトのコメント
部分に、変更日時・変更箇所と併せて
「by Ｔ女の竹田＠Webプログラミング板」とでも書いておいてください。

また改造したい所や分からない所などあったら、いつでも聞いて
くださいね。

>>20
@ten=(1,2,3,4,5);
これならどうだ！　＋２するのをお忘れなく！

>>22
それでもダメでした。
私の書き方が間違ってるのかもしれないので
http://members.nbci.com/ixlbzo/petit.txt
↑に書きかけのスクリプトを上げておきました。

>>23
@ten01 = ("","1","2","3","4","5","6","7","8","9","10");
@ten02 = ("","1","2","3","4","5","6","7","8","9","10");
$goukei = $ten01 + $ten02;
ダブルクォーテーションで囲むと文字扱いになるから、まず外さないと駄目だと思うんだけど。
というか@ten01=
foreach(0 .. $#ten01) {
print "<option value=\"$ten01[$_]\">$ten01[$_]\n</option>"; }
こうする意味がないぞー。ここは普通に<select>でvalueを数字にセットしてnameをten01にすべきじゃないの？？

>>21
了解しました。本当にありがとうございました。
できるかぎり自分で努力した上で、つまったらまた聞きに来ます。

チャットのログ部分に　参加者とロムが表示されるようにしたいのですけど・・
こんなふうにしたいんです。↓
http://members2.tsukaeru.net/chibiske/chatking/konnano.html
スクリプトはこちらにおいてあります。↓　（.txtにしてあります。）
http://members2.tsukaeru.net/chibiske/chatking
宜しくお願いします。

http://www.net-easy.com/bbs/oneline.html
http://perl.gizo.net/download/bbs/oneline_cgi.txt

掲示板の発言をランダムに設定件数だけ表示させたいんですが。
改造宜しくお願いします。

また、発言をランダムソートできるスクリプトがあれば紹介してください。

>>27
とりあえず配列をランダムに並び替える方法
http://www.din.or.jp/~ohzaki/perl.htm#ArrayRandom

改造はしんどいんで俺はパス

http://www4.tkcity.net/~elmo/
↑脱走犬エルモさんのpetit board荒らし対策機能つきのやつに
http://dx.sakura.ne.jp/~fbrand/fifnel/
のfifnelさんの2ch型スレッド表示機能＆さげ機能をつけたいのですが、
どのようにすればいいのでしょうか・・・。
回答お願いいたします。

>>29
ソースどっかにｱﾌﾟしてよ

エルモさんのスクリプト（荒らし対策）
http://www4.tkcity.net/~elmo/accessory/petit213.zip

fifnelさんのスクリプト（2ch風）
http://dx.sakura.ne.jp/~fbrand/fifnel/app/yybbs_2ch_12.lzh

なお、手が加えてあるのはpetit.cgiだけだそうです。

>>29
・・落として解凍しろと？
そんなあなたは優しい人を待ちなさい。

＞http://www.net-easy.com/bbs/oneline.html
＞http://perl.gizo.net/download/bbs/oneline_cgi.txt
＞
＞掲示板の発言をランダムに設定件数だけ表示させたいんですが。
＞改造宜しくお願いします。

＞とりあえず配列をランダムに並び替える方法
＞http://www.din.or.jp/~ohzaki/perl.htm#ArrayRandom

分からないです。。。誰かお願いします。

>>33
ソースにリンクが張ってあったので、ちょっと見てみたよ。
ログを@DATAに読み込んだ直後に、ランダムな並べ替えを
すればいいような。。。　変更場所わかる？

分かりません詳しく教えてもらえないでしょうか？

>>35
うーん、まだその段階かあ。今は自力改造は無理っぽいから、
http://corn.2ch.net/test/read.cgi?bbs=php&key=988728069&st=2&to=2
このへんのリンク先を参考に、いろいろ勉強してみてください。

あっさりできました。

http://www.din.or.jp/~ohzaki/perl.htm#ArrayRandomを参考にしたら。
どうも。

ealis bbsを２ちゃんねる風にTOPにスレッド項目
（ex ［12］Perlを語ろう<12>）などを表示する場合
どう改造すればいいのでしょうか？誰か教えて下さい♪

http://kano.vis.ne.jp/erial/ealis/index.html

>>38
ここ>>32を読んでどうするか考えてみれ

[ルール追加]

圧縮されているスクリプトは解凍してからアップしよう。

あ、すまなんだ。

ealis cgi http://wakayama.cool.ne.jp/kome15/ealis.cgi.txt
ealis sub cgi http://wakayama.cool.ne.jp/kome15/ealis_sub.cgi.txt
ealis log cgi http://wakayama.cool.ne.jp/kome15/ealis_log.cgi.txt
ealis_wri.cgi http://wakayama.cool.ne.jp/kome15/ealis_wri.cgi.txt
ealis_cfg.pl http://wakayama.cool.ne.jp/kome15/ealis_cfg.pl.txt
ealis_let-std.pl http://wakayama.cool.ne.jp/kome15/ealis_let-std.pl.txt
あとは、ealis.log は空テキスト　jcode.pl　だけ。
EUCコードのCGIです。
ealis cgiのthreadモードをうまく改変すれば、
元のノーマルモードでなんとかなりそうなんですが、
素人のためわかりません。ほんとご迷惑おかけします。

ealis_let-std.pl だけHTML表示されちゃうみたいなのでソースみてください。

>>41
printが汚いなー。
「print "\t<meta http-equiv=\"content-type\" content=\"text/html; charset=euc-jp\">\n";」
改造を拒んでいるように見えるぞ俺には(;´Д`)

2ch風にしたいならそういうスクリプトを探したらどうだ？
デザインを変えれば雰囲気なんて全然違うものになるぞ。

age

>>43
汚いってのはヒアドキュメントじゃないからか?

なんとか下記のようにスレッド表示を別枠にしたんだけど、
やっぱりダメね。
&mode_thread2を付け足して、CGI読んでもスレッド表示きちんとでるんだけど
メインがズレてる。（笑）
たぶん、スレッドとメインが二つとも起動してズレテルと思うの・・・。
どうしたらいいんでしょう？
だれかあたしに愛の手をくださいぃ・・・

#■ ２ちゃんねる風スレッド表示モード-----------------------------------------------------------------
sub mode_thread2
{ print "\n<div id=\"msglist\"><ul>\n";
local($i,$showed_oya,$rescount,$parent,$flag);
while($line = <IN>){
if(substr($line,0,1) eq '*'){
if($start < $i){
$showed_oya++;
if($showed_oya > $show){ $flag = 1; last; }
&print_each2($parent);
$rescount = 0;
}
$i++;
$parent = $line;
}else{
if($start < $i){ $rescount++; }
}
}
($flag) || &print_each2($parent);
print "</ul></div>\n\n<div align=center>";
}
sub print_each2# $line,[0thread/1lapse]
{
my($seri,$num,$date,$name,$email,$subj,$com,$url,$ipaddr,$pwd,$color)= split("\t",$_[0]);

($subj) || ($subj = ((substr($seri,0,1) eq '-') ? ' (response) ' : '(無題)') );
# thread
if(!$_[1]){
print "\t<strong><a href=\"$INI{'scriptmain'}?#$showed_oya\">[$num]</strong><strong>$subj</strong> ($rescount)</a>　\n";
}
}
#------------------------------------------------------------------------------------------
これを書いて、あとは、４９行目に&sub_thread2;付け加える。
&header(undef,1);
&print_postform;
($start == 0) || &pager(undef);&mode_thread2;
&print_running(0);
&pager(undef);
}

ネカマ口調UZEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE!

http://www.mytools.net/cgitools/vote7.html
で、コメントなどの横にIPではなくホストを表示させたいのですが…
いじる場所はわかったものの、ホスト表示はどうすればいいのかわかりません。

>>48
ソースは見てないのですが、下のような定石があります。
$ip = $ENV{'REMOTE_ADDR'};
$host = gethostbyaddr(pack('C4',split(/\./,$ip)),2);

http://www.apple.com/webobjects/

5出たよ

すごい初心者の質問なんですけれどすみません。

http://www.rescue.ne.jp/cgi/2shot4/2shot.txt
の2チャットプログラムに
http://storm.prohosting.com/kyouju/
のような
〔Aについて〕〔Bについて〕〔Cについて〕〔Dについて〕
という項目を付け加えたいのだけれど
上手くいきません。

どうやってもエラーがでてしまいます。
よろしくお願いいたします。

>>51
項目の用途がよくわかりませんが・・・。
594〜595行目の$bodyとEOFの間に
<p>
<a href="〜">〔Aについて〕</a>
<a href="〜">〔Bについて〕</a>
<a href="〜">〔Cについて〕</a>
<a href="〜">〔Dについて〕</a>
</p>

>>52さん。

それだとInternal Server Errorが出てしまうんです。
普通の文字だけだといけるんですが、
<p> </p>などのタグをつけると
エラーが出てしまいます。

これってどういうことが考えられるのでしょうか？

\"

print <<EOF;
$body
<p>
</p>EOF

cosmo navi
http://www.kent-web.com/data/navi.html

で複数のログを検索させることは出来ますか？

↑

あほ。


┐(´ー｀)┌


┏━━━━━━━━━┓
┃（'Д'）y ─┛~~　┃
┃むぎ茶　　　　　　┃
┃[email protected]　　┃
┗━━━━━━━━━┛
むぎちゃんねる
http://aho0baka.virtualave.net/bbs/bbs.cgi
ﾒｲﾘﾝｸﾞﾘｽﾄ
http://www.freeml.com/ml_info.php?ml=bitvalley

だな

教えてちゃんですいませんが、「ＣＧＩ　ＲＯＯＭ」の「高機能検索専用
データーベース1.43」を使っています。（アドレスは　http://cgiroom.nu/）
これのスクリプト内にフロー制御構文を付け加えたいのですが、
どこに構文を書き加えればいいのかわからないです。
適当に書いてみたらエラーはでないけど、反映はされませんでした。

入れたい構文は↓
if($data[4]==1){
print'1R';
}else{
print'その他';
}
な感じです。
アドバイスよろしくお願いします。

.

>>59
付け加えたいところに付け加えればいいよ　どこよ

ここってもうアドバイスしてないんですか？

「chaBo」という伝言板をひとつのプログラムだけで
複数のログを使えるようにしたいのですが、どうすればよいですか？
アドバイス下さい。よろしくおねがいします。

http://www.kemokemo.com/products/chabo/index.html

.=

>>62
まだやってるよ。でも全員ものぐさなので
ソースを見るのに手間がかかりそうだと無視。
そうでない親切な人もいるが出現率は低し。

＞複数のログを使えるようにしたいのですが
ここがよくわからん
人にわかってもらう説明をするのが吉

しょぼいソースのcgiscriptがおおいから
いっそのこと最初から自分で作ったほうがいいんじゃないの?

$comment = &post_decode;
if($comment eq ""){$comment = "あいうえお"};

これって$commentの欄に何も記入しなければ、
あいうえおって表示されますよね。
これをランダムに"あいうえお"の他に"かきくけこ""さしすせそ"って
表示させるにはどうしたらいいんでしょうか？

>>68

$comment=&post_decode();
if($comment eq ''){
　　srand();
　　@commentDef=('あいうえお','かきくけこ','さしすせそ');
　　$comment=@commentDef[int(rand($#commentDef+1))];
}

>>69さん
ありがとうございます。
それから、もう一つお聞きしたいんですが
>>68の"あいうえお"のfontの色を変えるにはどうしたらいいんでしょうか？

>>70

$comment = "あいうえお";
↓
$comment = '<font color="red">あいうえお</font>';

>>71さん
ああ、やっぱりそうすればいいんですよね
なんかＣＧＩだと<と>が＆lt;、＆gt;になってしまい
タグそのままが表示されちゃうんです。。
どうしたらいいかわかりませんか？すみません、、、

ありゃタグ禁止してるからでした
すみません、、

$comment = &post_decode;
if($comment eq "あ"){$comment = '<font color="red">あいうえお</font>'};
$comment=~s/>/>/g;
$comment=~s/</</g;
これだと、$commentに"あ"と入れても<font>タグは弾かれちゃいますよね
上記のように特定の文字を入れたときのみタグを許すことってできないですか？

$comment = &post_decode;
$comment=~s/&gt;/>/g;
$comment=~s/&lt;/</g;
if($comment eq "あ"){$comment = '<font color="red">あいうえお</font>'};

タグのエスケープを先にすればいいだろ。無能か?

すみませんが、ここのCGIをｈｔｍｌに表示する方法がわかりません。
http://cgi-jp.virtualave.net/bookmark/index.html

こんな感じにしたいのですが・・・
http://inchiki.com/main.cgi

はじめまして、いきなりぶしつけで失礼かもしれませんが
誰か教えて下さい。↓下記サイトの画像掲示板を使っているのですが、
http://www2u.biglobe.ne.jp/~k-saka/img_get/#upload_bbs03

投稿された元記事に「レス」をつけると、元記事が最新（先頭）へ
あがって来ます。様は、2ちゃんねる板で言う「あげ」です。
この「あげ機能」を殺したいのです。
元記事にレスをつけても「あげ」にならない様にするには、この
スクリプトの何処をどのように改造すればいいのでしょうか？
お手数をお掛けいたしますが、どうか教えていただけたら幸いです。

↓スクリプトURL（テキストでアップしてあります）
http://www.dream-fact.com/bbs_cgi.txt

宜しくお願い致します！m（＿＿）m

うー見づらいソース…これでダメだったら別の人に頼んでくれ。
848行目の辺りをこんな感じに変えて。

$new_line_data = "$res_date,$res_img,$res_1,$res_2,$res_3,$res_4,$new_res_line,$res_agent,$res_addr,$res_host";
push (@new_lines,$new_line_data);
}
}
@DATA = @new_lines;
&data_save;
}

>>78さん！
出来ました！！
７８さん！どうも有り難う御座いました！！
本当、助かりました！！＾＾
>848行目の辺りをこんな感じに変えて。
あ、ちなみに９２８行目でした。（笑）

本当に有難う御座いました、７７さん大感謝です！！

　　ｍ（＿＿）ｍ

↑
>あ、ちなみに９２８行目でした。（笑）
・・・ＨＴＭＬいじってるから、行目が違うのは当たり前だった・・・
撃つ出し脳

７８さん大感謝！！

79の言動がめちゃめちゃで面白かったから気にするなよ。

>78さん
すいません、ケツに火がついてたもんで。（笑）
温かいお言葉有難うございます♪

>76
根本的にhtmlの勉強とperlの勉強をしなおしたほうがいい気がする。
CPANにあるText:Templateを使うとらくにcgi->html表記ができるようになるよ

templateクラスは複数の同類の型を持つ物の変換には
使用できなかったな。（例　bookmark1->{_name}, bookmark2->{_name}とか)
掲示板なら独自のクラスを作ってtemplateクラスと同じような機能を
持つものを作成したけどまだ開発途中だから公開しなくてもいいか

レスありがとうございます。
勉強してみます。(^-^;

CGIをさわり始めたばかりの厨房ですが、
http://www.kent-web.com/bbs/clip.html
を使って「画像付イベント告知掲示板」を作りたいと思っています。
イベントの日付を投稿フォームに追加して、
その日付を過ぎた場合に掲示板から自動的に削除したいのですが、
1009行〜1018行で
# 日時の取得
$ENV{'TZ'} = "JST-9";
$times = time;
($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime($times);

# 日時のフォーマット
@week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
$date = sprintf("%04d/%02d/%02d(%s) %02d:%02d",
$year+1900,$mon+1,$mday,$week[$wday],$hour,$min);
}
この後に追加すれば、できるような気がしますが、
何をどうやって、追加すればいいのか全く分かりません...
ひょっとしたら、全く見当違いかもしれません...
宜しくご教授願います

自動的にログから削除するのはちょっと面倒なんで単に表示しないように
するにしたらどうかな？
BBSのスレッドを表示するときにイベントの日付をチェックする
機能をつければいいんだと思う。

>>87さん
レスありがとうございます
やはり初心者にはムリですか...
手動で削除しか仕方ないですね
イベントの日付をチェックする機能とは検索機能を使うという事ですか？

>>88
削除機能があるなら、それを呼び出したらどうよ。

>>89さん
確かに削除の機能はあります。

712行〜746行に以下のような記述があります

# 削除処理
if ($in{'del'}) {

@DEL = split(/\0/, $in{'del'});

# ロック処理
if ($lockkey) { &lock; }

# 削除情報をマッチングし更新
open(IN,"$logfile") || &error("Open Error : $logfile","lock");
@lines = <IN>;
close(IN);

@new=();
foreach (@lines) {
$flag=0;
($no,$date,$name,$mail,$sub,
$com,$url,$host,$pw,$tail) = split(/<>/);
foreach $del (@DEL) {
if ($no eq "$del") {
$flag=1;
if (-e "$ImgDir$no$tail")
{ unlink("$ImgDir$no$tail"); }
last;
}
}
if ($flag == 0) { push(@new,$_); }
}
open(OUT,">$logfile") || &error("Write Error : $logfile",'lock');
print OUT @new;
close(OUT);

がこの記述をどのように呼び出せばいいのか、
素人考えなのですが、例えば

if ($date_1 < $date_now) {

の様な事を追加するのですか？
でもこの場合　$date_1　と　$date_nowはどうやって
決めればいいのですか？
全く分かりません。全然違うますかね..

元のスクリプトです

http://selfkkk.hypermart.net/clip.txt

よろしければ、アドバイスをお願いします

kentのscriptって改造するのを拒んでるような書き方してるよな。

>>92
だな。
処理ごとにサブルーチン化させてくれれば、
>>90のような事に答えるのがずっと楽になるのに…。

新たに素人考えですが


sub decode2 {

# 日時の取得
$ENV{'TZ'} = "JST-9";
$times = time;
($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime($times);

# 日時のフォーマット
@week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
$date = sprintf("%04d/%02d/%02d(%s) %02d:%02d",
$year+1900,$mon+1,$mday,$week[$wday],$hour,$min);

$date_now = ($mon + $mday);
$date_1 = ($mon_1 + $mday_1);
if ($date_now > $date_1){

if ($lockkey) { &lock; }

open(IN,"$logfile") || &error("Open Error : $logfile","lock");
@lines = <IN>;
close(IN);

$flag=0;
@new=();
foreach (@lines) {
($no,$date,$name,$mail,$sub,$com,$url,$host,$pw,$tail,$mon_1,$mday_1) = split(/<>/);
if ($in{'no'} eq "$no") { $flag=1; $PWD=$pw; $upfile="$no$tail" }
else { push(@new,$_); }
}


# 削除キーを照合
$match = &decrypt("$in{'pwd'}","$PWD");
if ($match ne 'yes') { &error("削除キーが違います","lock"); }

# ログを更新
open(OUT,">$logfile") || &error("Write Error : $logfile",'lock');
print OUT @new;
close(OUT);

# 添付ファイルがあれば削除
unlink("$ImgDir$upfile") if (-e "$ImgDir$upfile");

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

を追加すればいいですか?
$mon_1　はイベントの開催月
$mday_1　はイベントの開催日
の予定ですが、ムリかな...
ホントに素人でごめんなさい。

それが読み込みの度に実行されるんだったら、まともに動かないだろう。
削除記事番号も削除キーも送られてこない。
あと、開催年がないと年またぐときに困るぞ。

うーんと、イベントの日時をtime関数の形式に戻してから保存して、
その数字が現在の日時より小さかったら削除、てな感じになるのかなぁ。

やべ、すげー早起きしちゃったよ
改造を手伝おうと思ったけどkentのscriptは読むのがすげー疲れるんで勘弁して
ちなみに削除を面倒だといった理由は
1.ログから削除されると管理者からみてあとあとデータを解析するのに不便
2.ログを自動的に削除ということはできない（誰かがそのcgiを読み込まないと削除されない）
3.ファイルの更新は最小限にしたい（ログ破壊が防止）

まぁがんばってください。(-_-;;)

みなさんレス付けて頂き本当にありがとうございます。
もう少し頑張ってみようと思います。
kentさんのscriptではムリっぽいので
違う元ネタのscriptを探してみました。
http://selfkkk.hypermart.net/tboard002.txt

ちなみには完成イメージも作ってみました
http://selfkkk.hypermart.net/a.htm

> if($secg < 10){$secg = "0$secg";}
…とほほ(;´Д`)

一応考えますが期待しないでください>>98

>>97さん
今になって>87の意味が分かりました...

ログを削除するのではなく、
日付の過ぎたイベントは記事表示部分には表示させないと言う事ですね
その方法でもOKです。確かにログを触らない方が良いですね
その場合の日付のチェック機能ですか..う〜〜ん

>>99さん
宜しくお願いします。
自分でも色々と試してみたいと思います

http://selfkkk.hypermart.net/tboard002.txt
の過去ログに移す機能をうまく使えば出来そうな気がしますが..
ダメですか..

素人考えというか
このスクリプトは会社の仕事じゃないのか？

残念ながら、お金は一切もらえません。
私が趣味で少しだけWEBをさわっている事を知っている
親が知人から頼まれた物です。
私としても勉強になるから、やってます。
でも仕事としてやったら、いくら位もらえる物なのかな〜
ココに書き込むのは仕事中ですけど...

現在このスクリプトを使用していて、
http://www15.freeweb.ne.jp/art/premacy/index.txt

アクセス解析を追加したいのですが、
このスクリプトの機能を追加する事はできるでしょうか。
http://www15.freeweb.ne.jp/art/premacy/raic.txt

http://selfkkk.hypermart.net/tboard002.txtの
752行から779行の所で

# 投稿記事のログを開く
open(IN,"$logfile") || &error("Can't open logfile");
@lines = <IN>;
close(IN);
}
$s = 0;
while($s<@lines){
($rdate,$rname,$remail,$rtitle,$rcom,$rurl,$rkey,$rmenu01,$rmenu02,$rmenu03,$rmenu04,$rmenu05) = split(/\t/,@lines[$s]);
if($FORM{'mode'} eq 'rewrite' && $FORM{'date'} ne $rdate){$s++;next;}
if($newdate && &newflag($date,$rdate)){
# 新着記事
$ncolor = $back19;
$nfont = $color20;
$tcolor = $back21;
$tfont = $color22;
$kcolor = $back23;
$kfont1 = $color24;
$kfont2 = $color25;
}else{
# 通常記事
$ncolor = $back12;
$nfont = $color13;
$tcolor = $back14;
$tfont = $color15;
$kcolor = $back16;
$kfont1 = $color17;
$kfont2 = $color18;
}

この部分で
$date_1をイベントの開催日（最終日）$date_1 = ($year_1 + $mon_1 * 100 + $mday_1 )として
$newdateを$newdate = ($year + $mon * 100 + $mday )とした場合に
$date_1と$newdate比較する命令文と
この通常記事を表示させない命令文が分かれば
出来る気がしますが、どうでしょうか？
ただ、命令文が全く分かりません...教えて頂けないでしょうか
毎度の事ながら、検討違いな事を言ってるかもしれません

>>105
概把握しましたが、このスクリプトを使えるようにするにはかなり面倒です。

１．パスワードが生のままログに書き込まれている。
　これにcryptをかけるのは簡単ですが、
　こんなスクリプトを配布するなど(以下自粛)

２．イベント日時をログに記録する必要がある。
　これ、考えてますか？
　別に私が付けても構いませんが。

可能なら、再度スクリプトを探すことをお勧めします。
その際はデザインではなく機能重視で探してください。
# 機能追加よりデザインを変える方が容易なので。

どうしてもこのスクリプトが必要なら、
手を加えたものを送るのでフリーのメールアドレスを取得しておいてください。

>>rubbish_listerさん、ありがとうございます
申し訳ありませんが、
＞イベント日時をログに記録する
も付けてお願いします
お手数ですが、下記アドレスまで宜しくお願いします
[email protected]

なるほど。
まぁデカイ口を叩いていますが、1週間音沙汰無ければ諦めてください。

それでは質問。

１．flockは使用できるか
２．色はCSSに任せて構わないか(CSSを自分で書けるか)
３．Perlのバージョンは幾つか
４．標準モジュールは使用可能か

答えてください。

>>rubbish_listerさん
ファイルのロックは使用
CSSスタイルは自分でやります。
Perlのバージョンは5.005_02
標準モジュールは使用可能です。

サーバーはどうやらコバルト？のようです
宜しくお願いします

お絵かき掲示板http://www16.cds.ne.jp/~ohno/
でコメント入力フォームでも他の人のコメントを表示させたいのですけれど、
抽出・繰り返し処理がうまくいかずに困っております。
http://suzuka.cool.ne.jp/wheats/picbbs.txt

コメント投稿フォーム(sub commentform)のところに掲示板の閲覧(sub viewlog)
を参考にしてコピペしてみたりしたのですが、案の定最新の絵のコメントが全部に
出てきてしまってます。

>>110
軽く見てみたけどソースは改造したものなのかそのままなのかわからん。
もし改造してるんなら場所わかるようにしてもらいたい。

表示部分が出せるのならログを行ごとに取捨選択するだけだろう。
($current, $mode, $pngfile, $commentno, $ownerpassword) = split(/\t/, $article);
で受け取ってる内、 $current がコメントの番号なので
表示させたい行ごとにこの番号が表示させたいものと同じかを見て、分岐入れればできると思う。
多分あってると思うが間違ってたらスマソ

ちなみに commentform 関数内なら
$basenum にコメントを入れる目標の画像の番号が入ってるはず。

>>110
すみません、そのままのものです。
とりあえず試してみます。ありがとうございます。

どうも一致がうまくいかなくて、全部表示されちゃったりするんですよね。とほ。

さっそくですがCGIの改造の仕方を教えてください。
The Room http://dream.lib.net/room/ の
ツリー掲示板 http://dream.lib.net/room/cgi/e_treebbs.html で
">"で引用色がでるのですが
">>"">>>"">>>>"と引用色を変えるにはどのようにしたらいいのでしょうか?

上のスレッドの事はごめんなさい
初心者で礼儀を知らずに･･･
許してください。

>>86
悪いけど諦め。
なんとかしたいのは山山ですが、
過去ログの書式から出力イメージまで変えるとなると、改造の範囲を超えてます。

# あれこれ振り回した挙句投げ出して本当に申し訳ない。

$temp1[8]="\a".$temp1[8];
if ($quotecolor eq ""){
$temp1[8] =~ s/\a/<br>/ig;
}else{
$temp1[8] .= "\a";
$temp1[8] =~ s/\a>([^\a]*)\a/\a<font color=$quotecolor>>$1<\/font>\a/ig; $temp1[8] =~ s/\a>([^\a]*)\a/\a<font color=$quotecolor>>$1<\/font>\a/ig;
$temp1[8] =~ s/\a/<br>/ig;
}
のところだと思うのですが、どのように応用したらいいのかわかりません。

お手数かけますがよろしくお願いします。

>116
このコードひどくないか？
なにがしたいんだかさっぱりわからないよ

>>116
３レベルまで色を変えるとして、
s/\a&gt;([^\a]*)\a/\a<font color=$quotecolor>&gt;$1<\/font>\a/ig;
↓
s/\a((?:&gt;){1,3})([^\a]*)\a/\a<font color=$colors{$1}>$1$2<\/font>\a/ig;

ただし、連想配列%colorsは、あらかじめ設定しておく。
my %colors = (
"&gt;" => "#666666",
"&gt;&gt;" => "#999999",
"&gt;&gt;&gt;" => "#cccccc",
);

＃"&gt;"がうまく書き込めてますように(ﾅﾑﾅﾑ

>>116
たぶん \a を一時的な改行にしているので、そう仮定すると、上の部分を

if( @qc ){
$temp1[8] =~ s/^(>+)([^\a]*)/<font color=$qc[length($1)]>$1$2<\/font>/ig;
$temp1[8] =~ s/\a(>+)([^\a]*)/\a<font color=$qc[length($1)]>$1$2<\/font>/ig;
}
$temp1[8] =~ s/\a/<br>/ig;

てな感じに直せばできます。配列 @qc には
@qc = ( >の色、 >>の色、 >>>の色 … );
というように、好きなだけ指定してください。

かぶった…（;´Д｀）
しかも間違い。 $qc[length($1)] ではなく $qc[length($1)-1] です。

できました。
皆さん本当にありがとうございました！！

あまりうまくいかなかったので、別の方向を模索することにしました。
>>111さん、ありがとうございました。

殺す

　　ﾊﾊﾊ
　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣
　（　＾∀＾）＜　　あほか 　この低脳が
　（ つ ⊂ ）　＼＿＿＿＿＿＿＿＿＿
　 .）　 ）　）
　（_＿）＿）　　　　　（＾∀＾）ｹﾞﾗｹﾞﾗ 　ｼﾈﾔ

仕事は自分の手でやろうな（ｗ

┏━━┳━━┳━━┳━━┳━━┳━━┳━━┳━━┳━━┓
┃国語┃算数┃理科┃社会┃英語┃体育┃音楽┃人格┃２ch ┃
┣━━╋━━╋━━╋━━╋━━╋━━╋━━╋━━╋━━┫
┃　 １ ┃　 １ ┃　 １ ┃　 １ ┃　 １ ┃　 １ ┃　 １ ┃　 １ ┃　 １ ┃
┗━━┻━━┻━━┻━━┻━━┻━━┻━━┻━━┻━━┛
　　　　　　　　　　　　　　　　　　　　　ﾐﾁｬﾀﾞﾒｰ
　　(´ﾌ｀) 　　　　　　　　　　　　　（ﾟДﾟ) ──
　□ー　　　　　　　　　　　　　　　＝│　　──
　　　ﾊ　　　　　　　　　　　　　 　 ┌┴┘＜86

86がどうかしたのか？欲輪嫁乱。

86は仕事で忙しいんだとさ。

簡易掲示板なんだけど、投稿日のところ、時、分、秒まで出ちゃうのを
やめたいです（´ー｀）
ようは年、月、日（曜日）だけにしたいんですがどうしたらいいか
教えてくだちい（´ー｀）ノ
http://www.makani.to/akutoku/bbs/upload/dat/226.txt

>>129
見えねーよ。
適当に「時」とか「分」で検索かけて、$hour時$min分……とか
いうところがあるだろうから、それを削りな。

先日はありがとうございました。
またまた質問で申し訳ないのですが
KENTWEBさんのCOMCHAT
http://www.kent-web.com/chat/comchat.html
に同封されている管理者用のchatmgr.cgiでログ
を消したり出来るのですが、ログを一括削除する
機能をつけたいと思っているのですがそれは容易
な事なのでしょうか？

他のスクリプトなどを参考にやってみたのですが
うまくいきませんでした。

どなたかよろしくお願いします。

かんたんだよ。
ログファイルを消去してから新しく作る
ルーチンを付ければいいじゃん？

ごめんなさい

CGIのプログラムについての知識がほとんどないんです・・・

そのやり方でいいので教えていただけないでしょうか？

スレ違いだったら誘導して下さい。コラムCGIをSSI使ってトップのHTMLに表示させたいです。
この時HTMLに書くコマンドと.htaccessについて質問です。
CGIがあるディレクトリにはCGIを許可する.htaccess、SSIを使うHTMLがある
ディレクトリにはSSIを許可する.htaccessでよろしいのでしょうか？
アドバイスよろしくお願いします。

>>134
>スレ違いだったら誘導して下さい。
.htaccess関係はこのスレでどうぞ。
http://corn.2ch.net/test/read.cgi?bbs=php&key=988800432&ls=50
あっちに移動したら、問題の.htaccessの中身もコピペしとくとよろし。

>>135さん
どうもありがとうございます。
コピペもしますね、アドバイスどうもです。

>>131
１：一括削除用キーワード対応のif文を作る
２：そのif文で実行させる一括削除用のサブルーチンを作る

つか、毎回カラのログファイルをftpすれば？

いまそうやってるのですが
FTPが繋がるのにえらい時間が掛かってるので・・・

>１：一括削除用キーワード対応のif文を作る
>２：そのif文で実行させる一括削除用のサブルーチンを作る

申し訳ないのですが
具体的にどのように書くか教えて頂けないでしょうか?

>ごめんなさい
>CGIのプログラムについての知識がほとんどないんです・・・
>そのやり方でいいので教えていただけないでしょうか？

どれくらいのことならわかるの？


改造を1から人に依頼するには
ソースコードをみたりして手間がかかってあまりに面倒だから（他人のソースコードをみて解析するの面倒なのよ）
このスレをみてる人はやりたがらない（無償で手間かかるのはやりたくない。金とか絡むならやってもいいけど）

基本的にやり方は教えるけど詳しい内容（ソースをみて書き換えたり）は
無償でやってくれる人は少ないと思うよ。
ある程度のことがわかってる相手じゃないと教えたくないのが本音かな。

設置とちょっとした言葉の追加ぐらいしか出来ません。

いまKENTさんの違うスクリプトの一括削除機能を埋め込もうとしましたが
何度やってもエラーが出ます。

やっぱり無償じゃ無理なのかな・・・

教えて君に対して甘すぎるかなと思いつつ
233行に

if ($in{'action'} eq 'all_del') {
        open(DB,">$logfile") || &error("Write Error : $logfile");
        close(DB);
        @lines = ();
}
print <<"_HTML_";
<form action="$script" method="$method">
<input type="hidden" name="color" value="$in{'color'}">
<input type="hidden" name="retime" value="$in{'retime'}">
<input type="hidden" name="pwd" value="$pwd">
<input type="hidden" name="mode" value="edit">
<input type="hidden" name="action" value="all_del">
<input type="submit" value="ログを全て削除">
</form>
_HTML_

を挿入
# 行はデフォルト。動作は非検証。ローカルで動作確認すること。

今回の収穫。相変わらずKentのCGIは（以下自粛）

教えて君に対して甘すぎるかなと思いつつ
233行に

if ($in{'action'} eq 'all_del') {
        open(DB,">$logfile") || &error("Write Error : $logfile");
        close(DB);
        @lines = ();
}
print <<"_HTML_";
<form action="$script" method="$method">
<input type="hidden" name="color" value="$in{'color'}">
<input type="hidden" name="retime" value="$in{'retime'}">
<input type="hidden" name="pwd" value="$pwd">
<input type="hidden" name="mode" value="edit">
<input type="hidden" name="action" value="all_del">
<input type="submit" value="ログを全て削除">
</form>
_HTML_

を挿入
# 行はデフォルト。動作は非検証。ローカルで動作確認すること。

今回の収穫。相変わらずKentのCGIは（以下自粛）

何で2重カキコに････。鬱

無事出来ました。

本当にありがとうございます！！

http://www.cj-c.com/sp/cbbs.cgi?mode=all&namber=6453&type=0&space=0

namber

http://perl.gizo.net/download/imode/ezimode_cgi.txt
↑（ソースです）のi-mode掲示板をつけました。
どうしても、ＥＺ−Ｗeｂからだと文字化けがおこります。
しかも、｢タイトル(＝dai)｣(フォームサブルーチンより)
の部分だけが…。

EZからだと、書き込み方式が違う(ＵＴＦ−８？？)
てのだけ、突き止めましたが、
それって↓
&jcode'convert(*dai,"sjis");
で対応するんですよね？でも、ダメです。

万策尽きてしまいました。
ぜひ、知識人の方々のお力を…。
お願いいたします。

(それとも、送信メソッドをＪ−ｓｋｙのためにＧＥＴ
にしたんですが、そのせいでしょうか？)

>>146
line 261
&jcode'h2z_sjis(*name);
&jcode'h2z_sjis(*dai);
&jcode'h2z_sjis(*cmt);

&jcode'convert(*name,"sjis");
&jcode'convert(*dai,"sjis");
&jcode'convert(*cmt,"sjis");

これを

jcode::convert(\$name,"sjis");
jcode::convert(\$dai,"sjis");
jcode::convert(\$cmt,"sjis");

jcode::h2z_sjis(\$name);
jcode::h2z_sjis(\$dai);
jcode::h2z_sjis(\$cmt);

とする。

本当にUTF-8なら、Jcode.pmを使うしかないですけどね。

ありがとござます。試してみます。

Ｊcode.pm 始めて聞きました。

・・・ダメでした。
name dai cmt　が入れ替わったりしてました。
J-SKYでやるとなんもないんですけどね…。

＞name dai cmt　が入れ替わったりしてました。
？？

文字化けはどうでした？

って、タイトルだけが文字化け？
HTMLのTITLEですか？
もう少し詳しく説明お願いします。

書き込まれた状態での「タイトル」（＝dai）が
（auからのかきこみで）化けるのです。

文字化けも直ってませんでした。

http://www.kent-web.com/chat/comchat.html?
の　COMCHAT-EX のログ表示をhtmlに出力するようにしたいんだけどさ
改造法ここにのってるとかこの本読めとかでもいーから教えてーー

>153

らくだ本よめ

>>141
ちょこっと訂正してみた。

<form action="$script" method="$method">
<input type="hidden" name="color" value="$in{'color'}">
<input type="hidden" name="retime" value="$in{'retime'}">
<input type="hidden" name="uid" value="$uid">
<input type="hidden" name="upw" value="$upw">
<input type="hidden" name="pwd" value="$pwd">
<input type="hidden" name="mode" value="edit">
<input type="hidden" name="action" value="all_del">
<input type="submit" value="ログを全て削除">

>>154
らくだ本てなによ？？

(ﾟДﾟ)ﾊｧ?

>>156
表紙にラクダの絵が描かれた本だ。
本屋に行って探して来い。

i-Mac零式さんで配布している掲示板に
メール配信機能（投稿があると管理者にメールする機能）を付けたいのです。
http://www.geocities.co.jp/HeartLand-Keyaki/4988/BBS.txt

メール配信機能付き掲示板って色々出てますが
i-Macさんトコの掲示板が気に入ってるのでこれに付けたいのです。
KENTさんのスクリプトやレスキューさんのスクリプトを参考にして
自分なりに追加してみたのですが、動作しませんでした・・・

sendmailは使えるプロバイダーなので（KENTさんの配信機能付き掲示板で確認済み）
ちゃんと記載できれば機能するはずなんですが・・・

どうか、よろしくお願いします。

ちなみに、
ここの方なら書かなくてもわかると思いますが
カール板の改造版です。

>>159
「書き込みがあったよヽ(´ー｀)ノ」とだけ判ればいいのか?
書き込み内容も全部、知りたいのか?

投稿者、投稿内容などはわからなくても全然かまいません。
投稿されたことがわかればそれで十分です。
宜しくお願いします。

http://corn.2ch.net/test/read.cgi?bbs=php&key=990609484&ls=50
みたいな投票とか、同ジャンルのサイトの投票とかできるような
ＣＧＩがあれば便利だと思うんだが、
http://www.mytools.net/cgitools/source/vote700/tvote-cgi.txt
を改造して、ＵＲＬ付きで投票結果を表示できるように
するにはどうすればいいだろ？

例えば、
http://www.mytools.net/cgi/test/vote7/tvote.cgi?event=test1
でいうと、「マルチネス（巨人）」をクリックすると
そのサイトに飛べるって感じ。
投票用フォームには「ＵＲＬ」の蘭も追加しときたい。

>>163
投票項目の奴のページにリンクはるってこと？

>>164
そういうこと。ＵＲＬに対する投票。
２ちゃんでよくある板のロゴ決めなんかの
時にも使えそうでしょ？

>>163
一応やってみた。
多分問題なく動作すると思う。
こういうのはどこにアップすればいいんだろう。

>>166 自分のプロバイダのウェブスペース（ｗ

http://corn.2ch.net/test/read.cgi?bbs=php&key=988777987&st=189&to=189&nofirst=true
http://corn.2ch.net/test/read.cgi?bbs=php&key=988777987&st=212&to=214&nofirst=true

>>166
折れもそれ使いたい。
手間だが、フリースペース借りてうぷしてくれ。

オリジナルのＣＧＩを書いた作者のところに
メールで送っても置いてくれるかもﾖ

http://www1.solid.ad.jp/~amezo/hp/010621074101.html

>>170
そういうのじゃなくて「投票」できるってことだろ

＞手間だが、フリースペース借りてうぷしてくれ

自分で垢も用意しない厨房に提供は不要。

>>158
らくだ本買ったけど、どこ読めばできるのかわかんないよぅ(；▽；)

>>173
Perlの基礎から勉強しろ、って琴だと思うが＜らくだ本推薦

ジオシティのアカウント取得に初挑戦。
もっと簡単かと思ってたらすごい面倒だった・・・
http://www.geocities.co.jp/SiliconValley-Cupertino/7616/tvote.tar.gz

再配布は http://www.mytools.net/regulation.html を見た感じ大丈夫かな？
不具合あったらごめんね。

良ＣＧＩage

配布スクリプトの掲示板など、パスワードを設定するものが
tok2では使えません。管理者パスワードの設定は、他の
サーバでしたんですが、投稿するときにエラーになります。

使えるようにすることはできるんでしょうか？

>>177
まずスクリプトの名前と配布場所書け。
全部のスクリプトでエラー起こるなら設置したいのを書け

再配布禁止 http://www.t-okada.com/cgi/rule1.html で、
ダウンロードも面倒 http://www.t-okada.com/cgi/s_downloader1/
なんですが、
shiromuku(t)BBS「Tree BBS（ファイルアップロード機能付き）」
というものです。

判りそうだったら協力してやるから
＞配布スクリプトの掲示板など、パスワードを設定するものが
の意味を教えれ。
ソースもあぷすれ。

ひょっとすると、設定の問題だけなのかもしれません。
tok2なんか特殊みたいで…。もうちょっとガンバってみます。
お騒がせしてすみません。

http://cgi18.plala.or.jp/downward/
ここにあるvedaという掲示板のCGIで、スレッドの下にあるレスを書くフォームを無くし、レスを付けるボタンを押した時に、フォームがあるページに移り、そこでレスを書けるように出来ないでしょうか？

出来るのではないでしょうか？

すいません・・
http://cgi18.plala.or.jp/downward/
このCGIで改造途中いきづまってしまいました。
サポートへはきけないのでだれかおしえてくださーいぃ

ここのスクリプトの表示部分のhtml.cgiに「$id」があります。
ちなみに$idの例をあらわすと
1-1とか1-2とかスレッドの番号です

この$idをveda.cgiの860行あたりにある
sub make_partial_message{
の部分で$idのショットカットをつかいたいんです。
どうすればつかえることができますか？
自分のめちゃくちゃな発想では
my $thread = shift;
ここを変えるとおもうのですが・・
どなたかどうかおしえてくださいぃ〜

今日の昼からずっと考えてトライしまくって無理でした・・
目が痛いです。だれかおしえて〜〜〜〜！

ショットカットっていいませんね・・すいません

↑
スマンがどのようにしたいのか想像できない。

あんま極秘にやりたくていいたくなかったんすけど
ええとぉ880行目ぐらいかなぁ
$Elems{comment} =~
s|≫([1234567890]+)|<a href="read.cgi?thread=$id&beg=$+&len=1">≫$+</a>|g;
これを追加して
≫数字　でリンクをとばしたいわけっすょ
そうそう2chみたいにＮＥ！
≫185
↑
こんなｶﾝｼﾞ。
だからあと問題は$idがveda側でつかえればすべてうまくいく
ってことなんですけど・・できそうですか？？

なんかﾑｶﾂｸﾅｧ

>>188
ん？それはオレに対する発言なんかな・・
鬱だ・寝よう・・

>>177
tok2はHTTPヘッダのいくつかを指定できないようになってるから
そのせいでCookie等ではパスワード保存できてない。
METAタグやJavaScript使ってなんとかできるが、
これについてはtok2のサポート掲示板の過去ログにあるはず。

調べる気力ないんで、もし別の問題だったらさっぱりわからんが。

>>184
ソ・ー・ス・だ・せ！

>>184の説明で>>187をやらせようと言う根性が気に入らん。

>>192
すいませんでした・・説明ヘタで・・

>>191
ソースです。
ttp://www.gobackstage.f2s.com/html.txt
ttp://www.gobackstage.f2s.com/veda.txt
説明は>>184 >>187
さっきからずっとチャレンジしまくってるのですが
やはり自分の力ではﾑﾘです。。どうか協力おねがいしますm(_ _)m

垢名はきにしないでください。垢がなかったもので

>>195
>>187のやりかたで方向性は間違っていないと思うが。
強いて言えば
s|≫([1234567890]+)|<a href="read.cgi?thread=$id&;beg=$+&;len=1">≫$+</a>|g;
↓
s|>>(\d+)|<a href="read.cgi?thread=$id&;beg=\$1&amp;len=1">&gt;&gt;$1</a>|g;
とでもしたほうがよかろうか（ブラウザで見れ。かちゅーしゃでは正確には表示されないはず）

とりあえず、Perlのs///;を調べろ。

んで$idだが、まずサブルーチン呼び出しの方法を調べろ。

↑
\$1 -> $1

おぉ、
s|>>(\d+)|<a href="read.cgi?thread=$id&beg=$1&len=1">>>$1</a>|g;
こう変更しときました〜

サブルーチン呼び出しの方法・・
本とかもってないんで・・そこらへんさっぱりです。、(ノ;´Д`)ノ
呼び出し・・

なぜか変換されていたのに今きずいた・・
＆→＆ａｍｐ；

やっぱ、著作権表示消したら、まずいですか？
皆さんどうしてます？
理由あって、表示させたくないんですが。。。
マジレスきぼーん

ちょいとWEBで解説ページさがして勉強してきます。
veda.cgiのsub add_to_thread
ここで$idがつかわれているのでなんかてがかりになるかなぁ

VEDAは消していいってかいてますね。
スクリプトにもよるとおもいますが、消さないことをおすすめします。
どうしても表示させたくないのならHPのＴＯＰやらにリンクをはるとか、
どうでしょうか？

呼び出しって
require $INIT_jcode;
&jcode::convert( \$value, 'euc' );
$Elems{comment} = $value;
この部分のことかな？厨房並にしらべてみたｮ
いやﾁｶﾞｳﾅ・・・・勉強してきます。

試しに861行目あたりのsub make_partial_messageに
$Elems{comment} =~ s|>>(\d+)|<a href="read.cgi?thread=$Form{page}-$Form{thread}&amp;file=current&amp;beg=$1&amp;len=1">&gt;&gt;$1</a>|g;
をつっこんでみれ〜
このままだと>>2-10はできないけど。

>>200
理由にかかわらず消すべきではないと思うナリー
どんなに改造しようが著作者の意向を尊重するべきナリー

うわぁ！！できぃたぁぁ〜　マジさんくす〜
>名無しさん＠お腹いっぱい。
>見習い君
二人とも長い間ありがとうです。
やっと目を休めれます〜
>>2-10
こういう機能は最初から求めていませんでした。
つかえたらうれしいけど
あーりーがーとーうー。ｵﾂｶﾚﾃﾞｼﾀ。

ぎゃ。。エラーが・・
>>1こういう風に普通にかくとリンクされていけるのですが
>1　風に記述するとエラーがでてしまいます。
解決法ありますか？？

たぶん<!--QC-->の>とかぶってるからとおもいました。
<!--QC-->のほうを＞(大文字)だけにするようにしたらエラーでなくなりました
解決したことにします。おさわがせしました

切れ切れに状況書くより結果をまとめてから書くほうが
見栄えがいいと思うがどうだろう？＞ＶＥＤＡさん

すいません。もう書く必要ないとおもってたもので・
今みたらかなり汚いレスになってしまいましたね・・
自分のは解決しました
どうか他の人のをみてやってください＞知識ある方々

>>210
オマエモナ

kentさんの所のCOMchatですが、半角カナを初めから書き込むと文字化けしてしまいます
全角空白を一つ置いて書き込むと問題無いようなのですが、これを利用して
文字化け対策する事は可能ですか?。
フォームから受け取る時に強制的に全角文字を追加して、書き出し時にそれを
取り去ればいいと思うんですが、
ﾏﾀｰﾘと書き込みたいのです。。

一応、kentさんのチャットです
www.kent-web.com/chat/index.html

勝手にアップして良いのかな?　(^ ^ )
後、サーバーに負担が掛かるようなら素直に諦めようと思ってるのですが、、
ローカルで色々やってみたのですが、壊してばかりです。
http://www.geocities.com/oyasuminikki/comchat.txt

あゆ板で生IPを抜きたいんですけど、、

何どもすいません、212です、勘違いしていました。
半角文字の組み合わせでどうしても化けてしまうみたいです。
ｻﾞﾝﾈﾝﾃﾞｽ　(^ ^ )sage

jcode.plを使わないってのはどうれす？sage

ttp://www.osk.3web.ne.jp/~ryui/index.htm

ここのホームページの笑点というＣＧＩをありがたくいただいたのですが、
そのＣＧＩに音をながしたり、表を真ん中にもってきたりするのは
ＣＧＩのどの部分をかきかえればよろしいでしょうか？
　管理人さんにも質問したのですが、なかなか答えてくださらない様子なので
ここで聞くことにしました。どなたかお詳しいかた、おしえてくださいませんか？
おねがいします

それってhtmlなのでわ?　てかアンケートがやだーよ　(^^；

レスありがとうございます。
htmlということはＣＧＩはエディタでいじらなくてもよいのですか？

落してみました、表を真中と言うのがよく分からないですが
レイアウトを変えると言う事ですか?
音を流すのは117と412行目辺りの<head>の後に<BGSOUND SRC="http://hogehoge/hoge.midi">
とか書けばいいです。

いやぁありがとうございます。ダメダメさん。
タイトルのしたにある表みたいのを真ん中に寄せたいとおもってるん
ですが、そのことです。説明不足ですいません。
〜行目というのはＣＧＩエディタでひらいたときのことですか？

やっぱりhtmlじゃ無いですか。。。。
表みたいなのって言うのは投稿部分の事かなぁ････
120行目の</center>を切り取って適当に下のほうにずらせば良いですけど　　

いやぁマジありがとうございます。
またわからないことがありましたらおおしえねがいます。
どうも！！

いや今度はWeb製作管理板逝ってくれ
頼むから

そこいったらここに来いっていわれました

質問がCGIとぜんぜん関係ないからだよ
ここに来いといった馬鹿も含めて逝け

逝くのはここに誘導した馬鹿だけでいいじゃん。
>>226
証拠を晒しageよう。

>>228
http://natto.2ch.net/test/read.cgi?bbs=hp&key=988822165&st=818&to=828&nofirst=true
あまりに質問の仕方が横柄なので放置していたら誘導レスがついてしまいました。
ご迷惑をおかけして申し訳ない。

プチ☆ボードの改造で分からない所があるので質問しようと思います。

プチボードで、レスが沢山付くととてもスレッド自体が長くなり、見にくくなると
常連の方から指摘を受け、自分でもその様に思い、改造してみました。

　プチボードの中でも、2ch風アレンジ版のfifnelさんのスクリプト
(http://www28.tok2.com/home/up2ch/petit.txt)を改造しようと思っています。
スレッド一覧にレス数を表示させるための変数$res_countを使って、一定数のレスが
付いたらスレッドに書き込めないようにして、レスフォームをそのスレッドから消すように
したいのですが、Force264の掲示板スクリプトを参考に改造してみましたが、失敗に
終わりました。
　どのように改造すればよいのか分からないので、レスお待ちしております。

>>230

＞レスフォームをそのスレッドから消すように

# レスフォーム表示するとこ
if ($res_count[$_] <= 10) {
print "<form action=\"$script\" method=$method>\n";
print "<input type=hidden name=hiroyuki value=\"$res_count[$_]\">\n"; # ←これ追加

〜〜〜〜〜〜〜省略〜〜〜〜〜〜〜

}



＞スレッドに書き込めないように

#--------------------#
# ログ書き込み処理 #
#--------------------#
sub regist {
if ($FORM{'hiroyuki'} + 1 >= 10) { &error("このスレッドには書けません！"); }

# 他サイトからのアクセスを排除
if ($base_url) {
$ref_url = $ENV{'HTTP_REFERER'};
$ref_url =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
if ($ref_url !~ /$base_url/i) { &error("不正なアクセスです"); }
}

〜〜〜〜〜〜〜省略〜〜〜〜〜〜〜



・・・こんな感じで如何でしょう。

あ・・・

if ($FORM{'hiroyuki'} >= 10) { &error("このスレッドには書けません！"); }

こうかも・・・

>>231さん、ありがとうございました。お陰で出来ました。
ただ、レスフォームを表示させない場合に、テーブルが次のスレッドとくっついてしまいますが。
それは自分でやってみます。ありがとうございました。

しょぼい質問ですぅ。"こんなスクリプト"スレでHTML出力型のBBSと
言うのが有って、僕も改造してみてます。
そこで質問なんですが、ファイルへの出力はprint文乱発するしか
無いでしょうか
今は....

open (FH,'>index.html');
print FH<<"HTML"
ズラズラっと
HTML
ifとか{
ここでprint文乱発
}
print FH<<"HTML"
またズラズラっと
HTML

こんな感じなのですが、ソースが大変な事になってきました。
2ch型スレの17さんのスクリプトも参考にさせて頂いたのですが。

　結局はprint文使うけど、設定ファイルでも作って、変数に読み込んでおけば？

#config.pl
$head = <<"HEAD"
ずら
HEAD

#bbs.cgi
require "./config.pl"
print $head;

KENTWEBさんのアスカボードに
２ｃｈタイプのようなキャップ機能を付けたいんですけど
どうすれば良いでしょうか

>>236
貴方はどれくらいPerlの知識がありますか？
それによって随分回答が違ってきます。

http://www.megabbs.com/program/index.html

redhat7.1を入れたのですが、入っているPHPは
国際化バージョンなのでしょうか。
またそうでなければ、どのようにすれば国際化
バージョンにできるでしょうか

>>239
思いっきりスレ違い。

redhat7.1に入ってるのが国際化されているかは知らないけど、

<?php
phpinfo();
?>

ってスクリプトで設定状況を確認できるから確かめろ。
で、国際化されていなかったら、phpのインストールし直し。

インストール方法はGoogleで「PHP 国際化 インストール」で
検索すりゃすぐ見つかるだろ。

>>235
なるほど！ 工夫すれば今よりずっとすっきりするような気がして
きました
後は、ずっと見てると慣れてくるかなー　　(^_^;)
ありがとうございます。頑張ります

>>236
どこかにキャップ機能つけたAskaを作ってたところがあるから探してみればどうよ。
配布はしてなかったけど。

>>236

付けてみたけどどうよ?
http://www.japu.org/tmp/aska211+cap.zip

うご!！

誰もJAPUたんが改造するとは思ってなかっただろう・・・

きっと現実逃避なんだよ…

たまには現実逃避することもあります。:)

どなたか知恵を貸してください。

http://sk.redbit.ne.jp/~tboard/cgiroom.html
こちらにある、TBOARD 006を改造して、画像と圧縮ファイルを2つアップし、
表示される画像をクリックすると、圧縮ファイルがDLできるようにしたいと
思うのですが、どのように改造すればよろしいでしょうか？
ずっとあれこれやってみても、失敗ばかりで前に進めません。

どうかよろしくお願いいたします！

CGIは、こちらです。
http://isweb2.infoseek.co.jp/~nanaco/test/tboard006.txt

よろしくお願いいたします。

んー？ソース見たけどどう改造したいのかよく判らない。
２つ一気にアップロードしたいってこと？

単純に、ブラウザで画像を左クリックした時にファイルの
保存画面を出したいんじゃ無いかな?　いや俺は248じゃ無いけどね

じゃなきゃjpgをgzipする意味って････

基本的には、画像貼り付け日記帳なのですが、ファイルが1つしかアップできない
のです。

改造したいのは画像ファイルと圧縮ファイルを2つ同時にアップして、表示
される画像ファイルをクリックすると、同時にアップした圧縮ファイルを
ＤＬできるようにしたいのです。
写真を1枚日記に見本として貼り付けて、その写真をクリックすると、一緒に
アップした何枚か圧縮した写真のzipファイルを落とせるようにしたいのです。

時間でファイル名が決まるらしいので（200108031649.jpgみたいに）、その辺を
いじって、何とか２つファイルをアップするところまではできたのですが、
そこから先に進めません･･･。

難しいでしょうか？

http://dream.lib.net/room/cgi/e_analize_f.htmlの
Flash Analyzerが読み込めるログを吐き出す
http://dream.lib.net/room/cgi/e_analize.htmlの
ACCESS ANALYZERを
ＳＳＩで利用できるようにしてもらえませんか？
テキストカウンター付きでおねがいします。

>>252
画像アップできたのならそのファイルに向けてリンクはるだけじゃない？

>>252
それができないんです･･･。
ただアップされて、終わりなんです。
$fileflagが関係しているのでしょうか？

>>255=248
ただアップされてって、どういうことよ？
じゃあ、リンクが間違ってるだけじゃないの？

ちゃんとソース見ようと思ったけど、Perlだから汚くて読みたくなかった。。。

何となく設置してみたけど、僕には難しいですぅ・・

1、転送されたファイル名はDATEで得た時間+拡張子になるので、出来ればファイル2つ
　を一気に上げた方が具合が良さそうです。
2、それが上手く行けば後は添付ファイル2の存在をチェックして、出力するHTMLを
　スイッチすれば上手く行くと思うです。

2は簡単だったけど、1が良く解らない、、、バイナリ転送かぁ・・
同じ転送ルーチンに投げれば良いのか、　んー　勉強不足ですぅ
ソースもごちゃってるぅぅ
256さまーー　　　(^^;)

一応出来たけど　とても人に見せる気にならない・・・(汗;;
穴もいっぱい有りそうだし、、だれか助けてーー

>穴もいっぱい有りそうだし、、だれか助けてーー
ソース見せないのに助けられるかって。

沢山のMIDIを取り揃えてお待ちしております。
その数★900曲★以上！　全部作者に無断で改変・転載でがんばってます！！
http://destiny.prohosting.com/kanzen/cgi-bin/bbs5/wforum.cgi
http://www.destiny.prohosting.com/J/
全部私のコレクション（笑い）です。
どんどんお持ち帰りくださいませ！
（JASRAC反対！　私は断固闘う所存です。
　みなさんのDLは強力なパートナーとなるのです。）

ファイルが時間（20010803164137.jpg）みたいに、秒までの名前で
決まるので、1つ目はそのまま、2つ目にアップするファイルは分までで
名前が決まるように（200108031641.zip）して、アップしてみたんです。
$r_dateをいじって。

名前が違うから、ファイルは上がるのですが･･･。

257様、穴があってもいいです、ぜひ見せてください･･･。（切実）

お勉強なんで変な所有ったら指摘願います、、(＿ ＿
http://www.geocities.com/uso8800/tboard006.txt
##########と
##########//////////で囲った所が、書き換え追加部分です

編集時に添付ファイルを削除出来ないのは仕様みたいです、
何か危ない気がするです、、元の状態より強度下がったりしたら最悪。。。

おぉ、ニアミスですね　(^^)　　僕はひよこなんでプロの人を待った方が
良いカモ･･･

>>257様
アップありがとうございます！今のところローカルで無事に動いているので
大丈夫みたいです！
すごく嬉しい。本当にありがとうございました！感謝です！

(^^)　←これ嫌い

>>265
俺はあんたが嫌い。

>>266
（・∀・）ｶｺｲｲ！

　。　　　　　　　　＿　　　。　　　　　　。
　　　 　 　 　 　／／￣＼　　　。
　　　　　　　　 |／　　； イヽ　゜　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　〜　　|＼／### ≫l　＜　　　＜　では_gunzipさんのマネっこで行くっすぅ・・
〜　　　　|／＼＿_＿＿_／　　　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

ログ見ると分かるんですが、ログファイルにpwdがモロ書きされます。
(意図は不明、多分自発言を消せるBBSとサブルーチンを共用してるからかと)
出力を殺すかログファイル名と過去ログ保存ディレクトリを変更しないと
いたづらされると思います。

http://www.haide.net/~seirei/bbs.txt
上のHTML表示の掲示板に最大記事件数越えたら古い記事から削除って機能つけたいんだけど、
どうもうまく行かないんです。
たぶん記事が<!--comment数字-->と<!--endcomment数字-->で囲まれているから
それを消せば良いんだろうけど、配列にはいってるから単純にs///;でやれないし・・。
だれか知恵を貸して下さいな。

>>269
出力はHTMLでも、データは別に持った方が簡単じゃないか?

>>270
我もそう思うニダ


>>269
で、一番最後のデータを消すだけだったら

pop(@html); とか…

$html[-1] = ""; とか…なんてどうでしょうか

>>269
Perl初心者コーナーでの解答では解決しないのかい？
まぁ配列加わると状況が違うんだろうが。(s修飾子）

>>269
Perl初心者コーナーでの解答では解決しないのかい？
まぁ配列加わると状況が違うんだろうが。(s修飾子）

解決しなかったです。
だから、中身見てもらった方がいいかなと思ってこっちにしました。

>>269
じゃあこんなんで。
(my $str = join '', @html) =~ s/<!--comment\d+-->.*<!--endcomment\d+-->//s;

>>275
一体どんな処理しているんですかね？やっぱり素人なんでわからないです。
ちょこっとだれか教えていただけないですか？意味不明なままだとせっかくの物か使えなさそうなんで。

>>276
そんな君にぴったりのサイトを紹介するよ
http://www.Google.com/

>>277
googleは先頭が大文字でもつながるのか(w

>>278
厨房発見！

KCatchでエラーを発見した時、特定のメールアドレスにエラーメッセージを送り、
画面には「エラーです」と表示するやり方を教えて。
ソース表示の、TEXT形式希望。　画面表示は505エラーでもいいです。

継承して、make_outputの最後でなんかして、use KCatch qw( source mode=plain);を
どっかに入れればいいと思うんですが、詳しいところがわかりません。

>>275
ありがとうございます。うまく行きました。

>>280
そのくらいなら
#!/usr/bin/perl
eval{

# スクリプト

} or do{
&mail_send($@);
# その他後始末
}
sub mail_send{
# ...
}
__END__
とでもしたほうがいいんじゃないか？

age

>>280
デバッグと通常試用とで大きな修正したくないんです。

継承というか関数の上書きをしたいんですが、やりかたがわかんないです。

ああっ、ただKCatch別名でコピーしてmake_outputでメールを送ればいい話でした・・・
いったい何をしようとして書き込んでいたんだろう＞俺
逝ってきます・・・

おお!　俺もそんな風にしたかったんで使わせてもらいます
最後にコピペする時間違えたりして鬱になってたんで　　　（汗

┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
┃　　ただいま、ラウンジで大盛り上がりのブラウザ戦争ゲーム！　.　 ┃
　　　　　　 　　　 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿　
　　　　　　　 　　‖|＊ENDLESS BATTLE@2ch＊|‖
　　　　　　　　　　￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　モナ―国総帥が覚醒しました　　　　 , o　　, o 　　∧∧∧∧
　　　　￣￣￣∨￣￣￣￣￣￣￣￣　　　／／ ／／　 　|捨て身で＞
　　　　　　∧ ∧ 　 ∧ ∧　　　　　　　　　　| |( ﾟДﾟ)|　　＜　要塞に　＞
　　　＿__（ _冂二冂(,,ﾟДﾟ)　　　　　　　　 ∩ >->_>->_　 　|当たる！＞
　∧⊂／￣|二|￣＼つ∧二ヽ　　　　　 ((_(∴ヽヽ＼(∴ 　∨∨∨∨
　ι匚|＿／＿＼＿匚i_|∪∪i］　　〜／oヽヽ ,>─>ヽ　.　　　　.
　＼／∠　／　／　＼_／二／　　　く｡◎◎)=)_＿/)=) 　　　　
　　　　　　　　　　　　　　　　　.　　　　　　　　　　　　　　　　　　
　　恨み！復讐！英雄の誕生！生身の人間とのどろどろした戦闘！
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
┃http://corn.2ch.net/test/read.cgi?bbs=entrance&key=997472675　.┃
┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛

KENTさんの「プチボード」をツリー表示にしたいのですが
どこをいじればよいのでしょうか？

初心者質問ですがよろしくお願いいたします。

>>288
ソース

えっと、一行掲示板のshortmessage
http://shortmessage.hypermart.net/
でIPかホストを取得してログファイルから参照できるようにしたいのだが、
どのような文をどこに注入したらよいのか教えてくれ。いや、教えてください。

50人くらいの名簿が Web 上で更新できる CGI を探しています。

あらすれ違いでした。

ソース必須を見落としてました。すみませんでした。
http://www.kent-web.com/bbs/index.html
よろしくお願いします。

>>290
まず「環境変数」を検索して調べる。話はそれから。

>>293
素直にツリータイプのスクリプトを使ったら良いんじゃないのか？
単に外観の問題なら知識なんぞなくても簡単に操作可能だぞ。

いやさすがにそれは外観を軽視しすぎだろ。
でも外観の問題は板違いだけど。

>>293
いやいや一応自分で色々検索したり他のスクリプトを参照しながら
やってみたのだが、さすがに門外漢には無理だったのだ。。。

>>296
295じゃないが、(CGI、Perlの)知識なんぞなくても・・・
っていうことじゃないかな？

>>290
161行目を
unshift(@readed,"$name\t$comment\t$date\t$ENV{'REMOTE_HOST'}\n");

環境変数を理解しても改造はできな・・・ハァハァ・・・

ツリー形式で一行レスを使いたかったもので
自分では探したんですが複数レス可能なツリーでわざわざ一行レス機能をつけてる掲示板なんてみあたらなかったのです。

探してますスレッドで聞いてみます。

>>301
それならツリー形式のやつを改造した方が簡単じゃない？
つーかなんでそんなわけわからんことを....

>>299
回答ありがとうございます。スバラシイです。できてしまいました。
おかげで、嫌がらせ書き込みにもなんとか対応できるようになりました

検索エンジンの登録欄にcookieで掲示板の新規投稿欄みたく
一度投稿すると必要事項(名前やURL等)を記憶して
次回から必要事項を記入しなくても済むようにしたいのですが
cookieの発行・取得は出来たのですがCGIに書きこんでも
↑のようになってくれません。一体どうしたらいいのでしょうか？
使用している検索エンジンCGIは
＜　http://www8.lunartecs.ne.jp/~arahan/　＞にある
簡易検索エンジン(wsearch)を使用させてもらってます。


sub set_ {
($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) = gmtime(time + 30*24*60*60);
$yearg += 1900;
if ($secg < 10) { $secg = "0$secg"; }
if ($ming < 10) { $ming = "0$ming"; }
if ($hourg < 10) { $hourg = "0$hourg"; }
if ($mdayg < 10) { $mdayg = "0$mdayg"; }
$month = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$mong];
$youbi = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$wdayg];
$date_gmt = "$youbi, $mdayg\-$month\-$yearg $hourg:$ming:$secg GMT";
$cook="yomi\:$yomi\,url\:$url\,user\:$user\,mail2\:$mail2\,pass\:$pass";
print "Set-Cookie: KEY=$cook; expires=$date_gmt\n";
}

sub get_ {
$cookies = $ENV{'HTTP_COOKIE'};
@pairs = split(/;/,$cookies);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ s/ //g;
$DUMMY{$name} = $value;
}
@pairs = split(/,/,$DUMMY{'KEY'});
foreach $pair (@pairs) {
($name, $value) = split(/:/, $pair);
$COOKIE{$name} = $value;
}
$c_yomi = $COOKIE{'yomi'};
$c_url = $COOKIE{'url'};
$c_user = $COOKIE{'user'};
$c_mail2 = $COOKIE{'mail2'};
$c_pass = $COOKIE{'pass'};

}

> if ($secg < 10) { $secg = "0$secg"; }
こんなダサいこと最初にやり始めたのは誰なんだ？
それともまさかPerl4時代はsprintf()は無かったのだろうか。

良く解らんけど
$c_yomi = $COOKIE{'yomi'};
$c_url = $COOKIE{'url'};
$c_user = $COOKIE{'user'};
$c_mail2 = $COOKIE{'mail2'};
$c_pass = $COOKIE{'pass'};
にデータが入ってるの?　だったらそれを突っ込むだけだと思うんだけど･･
>>↑のようになってくれません
この意味が良く解らない、
テキストだったらテキストエリアに突っ込んで
チェックボックスならselectedにすれば良いかと･･･
ソース見てないから変な事言ってるかもしれない

ソース見てみた。


････糞だ。糞すぎる。

つーか

http://www.imjnews.com/bcp/cgireqbbs2/wwwforum.cgi?id=14&az=msg&number=137&page=
http://www8.lunartecs.ne.jp/~arahan/cgi/wforum/wforum.cgi?no=45&reno=no&oya=45&mode=msgview&page=0

マルチポストうざい。

はは･･･　じゃ他にまかせた　　ｗ

KENTのJoyfulNoteなんですが、
投稿フォームの項目を５つ程追加したくて、

form name を tuika1〜tuika5

表示は

$tuika1<br>$tuika2<br>$tuika3<br>$tuika4<br>$tuika5<br>$comment

↑
こういう感じにしたいのですが、どうしてもうまくいきません。。
どなたか教えていただけませんでしょうか？

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

Joyful Note　http://www.geocities.com/hzhges/joyful.txt

どうしたいのか全然解んないよ、これ添付ファイル付けれる奴だと
思うんだけど、単にCommentみたいなテキストフィールドを追加したいの?
良く理解出来ないんで、大雑把に書いとく

投稿部分に変数名に合わせたフィールドを追加（comment2とか）
　　　　↓
$in{comment2} って感じで出てくるから記事表示部とログ書き込み部にそれを追加

> if ($secg < 10) { $secg = "0$secg"; }
こんなダサいこと最初にやり始めたのは誰なんだ？

KENT

　fifnel板（petit2ch風味）改造について230で質問させていただいた者です。
不躾ながら、又質問させていただこうと思いました。
プチボードは一行レスがつくとどうしても長くなる為、2chのように「レスを全部読む」機能
をつけて、ラスト10レスのみを表示させたいと思っています。
　こちらの機能も、自分で何とかやってみよう、と思い、2ch掲示板のスクリプトを参考に、
http://url/petit.cgi?mode=res&resno=$numの形式でレスを全て表示させようとしましたが、失敗しました。

心やさしい方、出来ましたら改造よろしくお願いいたします。
＃231さん、ありがとうございました。著作権表示に加えさせていただきました。
petit board 2ch風味 by fifnel　-> http://www28.tok2.com/home/up2ch/petit.txt

すいません、スクリプトはこちらで見てください。
トクトクって拡張子をtxtからjpgにして置くとちゃんとtxt表示されるんですね。
txtのままだと広告が入って見づらかったので、直しました。

http://www28.tok2.com/home/up2ch/petit.jpg

知らんかった

>>315-317 自動判別しないブラウザだと壊れた画像が表示される。

http://cgi4ever.netfirms.com/petit.txt
アップしなおしました。ソースを表示で見て下さい。
引き続きレスを全部読む、をお願い致します。

>>318
ありがとうございました。

何だか礼儀正しい人だとおもいました
で、設置してみたら レスがグチャグチャになっちゃうんで
一気に萎えちゃったよぅ　　（´Д｀；）

>>320さん
申し訳ありませんでした。昔私が改造し損ねたままにしておいたものをUPしてしまいました。
ファイル入れ替えました。今度は大丈夫かと。
http://members.tripodasia.com.hk/reach01r/petit.txt
http://www.dx.sakura.ne.jp/~fbrand/fifnel/bbs/　設置サンプルです。fifnelさんのメインBBSです。

レスを全部読む、機能と、petit.cgi表示時には末端10レスをスレッドに表示、が私の希望です。

--
まとめてみました。

http://www28.tok2.com/home/up2ch/petit.cgi
配布してあるものをそのまま設置。
fifnelさんの掲示板はアレンジしてあったので。

　お礼言われちゃったので少しやってみる。
未テスト。
　全レス表示はモード追加するか別ファイルで作るかせんといかんので
後日か、別の人か、自作かになる。

＞最新10レス
　446行あたりの
foreach $line (@lines) {
を
for(my $i = 0; $i < $表示レス数 and $line = $lines[$i]; $i++) {
にして、
　初めの『設定項目』あたりに
$表示レス数 = 10;
とかを追加する。
　変数名は適当なのに変えてくれ。

＞関係ないがバグ取り
　173行とかの色は000000でなく#000000と頭に#をつけるよろし。

ウーン、レス全てが表示されなくなってしまった。
>>318さんありがとうございました。
頑張ってみます。

>>324
ああっ、すみません！
スレごとのレス数じゃなくて板全ての発言数でやってました・・・

どれを落せば良いんだ　　（・∀・）?

んと　242行目の　@lines = reverse(@lines); これコメントあうち
で　446行目の　レスメッセージを表示の上に以下挿入

#######################################################
$cc = 0;
foreach $pair (@lines){
($rnumb,$rkb,$rdb,$rnameb,$remb,$rsubb,$rcomb,$rurlb,$rhob,$rpb,$rcb) = split(/<>/, $pair);

if ("$sing" ne "$rkb"){
$cc = 0;
}
if (("$num" eq "$rkb")&&($cc < $res_view)) {
unshift (@linesb,$pair);
$sing = $rkb;
}
$cc++;
}
#######################################################

んでもって448行目の@lines を@linesb にんでちょっとしたに
レスを全部読むをつける

ああインデントが　　　（-＿−
474行目にこれ挿入
#######################################################

print "<br><a href=\"./$script?mode=resview&thread=$num\">レスを全部読む</a>";
print "　<a href=\"#menu\">掲示板のトップへ</a> <a href=\"$script\">リロード</a>";

#######################################################

なんかゴチャゴチャするから放置スレに書こうか。。
http://corn.2ch.net/test/read.cgi?bbs=php&key=990300726&ls=50

うざいから　ここに上げた　　　（爆
一日で消すからよろぴく、、あんまり動作確認してないっす
配列こねくり廻してるから すげ遅そうッス

www2.makani.to/akutoku/upload/dat/999058833.txt

ああ。。。　　$res_viewって所今３になってるから適当にいじって
汚くコメント入ってるから適当に整理して、ほとんどコピペだから適当に

ファイルが無い〜（泣　１日経ってませんよね。。。
変だな〜＜www2.makani.to/akutoku/upload/dat/999058833.txt

んまっ、じゃこっちで。

http://home.kimo.com.tw/jhvnsqtpe/petit.txt
今気付いたけど、レスを読む画面にクレジット入れるの忘れてた。。
ちゃんと付けといて

ありがとうございます、無事出来ました。
マジ感謝です(T_T)

MiniBBS-EX1.18を初期設定のまま使ってますが、下記の様に設定を変更したいです。
どなたか教えていただけないでしょうか。

・投稿欄のＥメール欄の下にある「公開しないでメールを受けたい」
　および「公開する又は記入しない」の選択をなくし、Ｅメール欄に
　入力してもしなくてもよいようにしたい。
・記事の投稿者名を大きくしたい。
・記事への返信を不可能にしたい。

スクリプトの場所：　http://www.rescue.ne.jp/cgi/minibbs-ex/

yybbsで、レス記事にレス番号をつけたいのですが、何方かご教授願います。

15 名前:名無しさん

こんな感じに。インクリメントを理解してません。。

理解しろよ　　ｗ

line 416 $hoge = ();#---追加
line 420 if ($reno eq "") { $i++; $hoge = ();}#---修正
line 471 print "<td>$hoge</td><td><font color=\"$color\">$comment</font></td></tr></table>\n";#---修正
line 472 $hoge++;#---追加

プチボードの時は？＜レス番号つける

ﾊｧ?(ﾟДﾟ) プチボードって何?　　ｼﾗﾈｰﾖ

http://www.kent-web.com/のpetit boardです。

プチボードに、２ｃｈのような上位10スレなどのタイトルつけたいんだけど

>>340
http://dx.sakura.ne.jp/~fbrand/fifnel/app/#petit

＞yybbsで、レス記事にレス番号をつけたいのですが、何方かご教授願います。
＞15 名前:名無しさん
＞こんな感じに。インクリメントを理解してません。。
これをhttp://dx.sakura.ne.jp/~fbrand/fifnel/app/#petitの2ch風アレンジの複数行モードでもやりたいのですが、
どうすればいいでしょうか。
http://dx.sakura.ne.jp/~fbrand/fifnel/bbs2/のように
No.1 ふぃふ xx年yy月zz日
と、No.でレス記事番号をつけたいです。

http://www.sky-t.com/hf/cgi/woman.cgi
のようなレスのときパスワード記入、パスワードは管理人が任意に設定可能、
みたいな掲示板を探してます。
http://hp.bird.to/cgi-bin/bbsp4.cgi
↑ベースはこんな感じがいいのですがって全然違いますか？
上記のような機能がついていればこの掲示板でなくても可能です。
当方ＣＧＩはアップロードに苦労するほどの超初心者です。
どなたか知っていれば教えてください。お願いします

んー、スレ立ててないのに免じて答えてあげたいんだけども
そんなBBSは一杯有ると思うよ。
一応僕が尊敬してるKENTさんのBBSを紹介するよ　：-)

http://www.kent-web.com/bbs/sample/aska.cgi
http://www.kent-web.com/bbs/sample/yybbs.cgi
上(aska)は見た目が違う(テーブルじゃ無い)けど、機能は同じ、
下(yy)は見た目は同じ(テーブルとアイコン表示)だけど、機能が違う(レスが付けられる)。

どっちかを貰って改造すれば、良いと思うんだけど、もしかしたらaskaに
テーブル付けてタグをループに入れるのとかは結構大変かもしれないなあ。
後、ここのスクリプトは結構改造ものが有るから丁度いいのが有るカモ
しれないけど、僕は知らない。
上の方の検索とかで探してみると良いよ。どこのWEBでもサンプル設置
してあるからね。　もしかしたらその物ズバリってのが有るカモしれない。

ああ、改造してって言ってるのか　ｗ
取り合えず【こんなCGI探してます】スレの検索で色々探せば?
>当方ＣＧＩはアップロードに苦労するほどの〜〜
ならaskaを普通に設置してまずは動かしてみなよ。
ここのはFAQとか沢山有るから、みんなに大人気なんだ　（････

ＤＬ面倒なので誰かテキストアプしてくれよ＞ヘッドラインつけたい人々

＞yybbsで、レス記事にレス番号をつけたいのですが、何方かご教授願います。
＞15 名前:名無しさん
＞こんな感じに。インクリメントを理解してません。。
これをhttp://dx.sakura.ne.jp/~fbrand/fifnel/app/#petitの2ch風アレンジの複数行モードでもやりたいのですが、
どうすればいいでしょうか。
http://dx.sakura.ne.jp/~fbrand/fifnel/bbs2/のように
No.1 ふぃふ xx年yy月zz日
と、No.でレス記事番号をつけたいです。

そこに気付いてない奴多し、落して解凍して メンドイんだよ
無料ページにテキストも上げられない奴に、何教えても無駄無駄〜

配布している所：http://www2a.biglobe.ne.jp/~yama/cgi.html
txtのある場所ｗ：http://www.bekkoame.ne.jp/~yama1356/host_pl/host.pl.txt

これがうまく作動しません。ちょっと自力で

# リモートアドレスを取得
$addr = $ENV{'HTTP_X_FORWARDED_FOR'};

# HTTP_X_FORWARDED_FOR 対策
if($addr =~ /(.*)\.(.*)\.(.*)\.(.*)\, (.*)/) {
$addr = "$1\.$2\.$3\.$4";
} elsif($addr =~ /unknown\, (.*)\.(.*)\.(.*)\.(.*)/) {
$addr = "$1\.$2\.$3\.$4";
} elsif($addr =~ /(.*)\.(.*)\.(.*)\.(.*)\, unknown/) {
$addr = "$1\.$2\.$3\.$4";
}

# リモートホストに変換
$host = $addr;
$host = gethostbyaddr(pack('C4',split(/\./,$host)),2) || $addr;

こういうものを組み込んで見たら作動した・・・。
それが完全なものか分からないのでその部分だけ教えて下さい。

これは書き込む所が違ったかな？
一応改造なんですが・・・・・・。

えっと上手く行かないと言うのはリモホが取れないと言う事ですか?
$ENV{'HTTP_X_FORWARDED_FOR'};の値はREMOTE_ADDRやREMOTE_HOSTと
違ってクライアント（アクセス制限される人）が改竄出来ます。
だから普通は$ENV{'HTTP_X_FORWARDED_FOR'};は見ないんです。

あ、すみません、あの$addr = $ENV{'HTTP_X_FORWARDED_FOR'}・・・・
奴はｆ2ｓでリモートホストを取得させるのに使う奴なんです。
これはちゃんと取れるサーバーでやるんでアレは「埋め込んでみたらできた」
ってことで・・・・・。

んー、上手く言ってるのかなぁ?
これをrequireして
&host'teku_win;ってするとアクセス制限されるとエラー画面に
飛ばされるだけだよ。BBSのかの一行目に入れるとログも何も見れなく
なる。要はホスト=IP変換して、上の方の$pwd* と突きあわせてるだけ
だから、不安なら自分のHOST追加したりして確認してみれば?

他の理由だったらｺﾞﾒｿ。 ちょっと出ていくから
帰ったらまた読むよ。

あ、その正規表現自分で足したのか、、取り合えず(.*)だと甘くないかな。
ｽﾏｿ、また後で

良くこれを配る気になるもんだ　　（-＿-

一行目変えて#!usr/bin/perlの下にrequireと記述して掲示板にアクセスしたが失敗。
他に制限ファイルないですかね？(版違い?)
とりあえずproxyの排除ができればいいんですが・・・・・・。

全体に言いたい事が分からない　：-）
>一行目変えて#!usr/bin/perlの下にrequireと記述して掲示板にアクセスしたが失敗。
アクセス出来ませんでした。が出ておしまい、勿論ROMも出来ない。
上でも言ってるけど、逆引き出来てるかが分からないのなら制限HOSTに自分のHOSTを
追加して確認してみてくれ。
X_FORWARDED_FORに常にIPADDRESSが格納されてるなら

#!/usr/bin/perl
print "Content-type: text/plain\n\n";
$host = gethostbyaddr(pack('C4',split(/\./,$ENV{'HTTP_X_FORWARDED_FOR'})),2);
print "$host\n";

こんなのを入れて上手くいってるか確認してみればいい。
もし逆引きに失敗したら(そう言うサーバーも有る)
|| $addr;　
でIPADDRESSが入るから、制限HOSTにIPADDRESSを
指定してないと常に閲覧投稿可能な状態になる
それが嫌なら || の後ろからでもエラーに飛ばしてしまえ。
俺はf2sが良く解らんからこれくらいしかいえないよ

>>#／usrr／locls／bin／perrl
こんなの使いたくない　　(ｗ

む、言いたいことが分からないか・・・・・。
ＣＧＩはf2sに置かないことにしてますから普通にホストの取得はできます。
つまり正常な所でやってもそのhost.plは作動しないってことです。
自分のリモートホストでやってみましたが。。。。。
356さんは何もしないでもできたんですか？

>>357
俺も最初見てなんだこりゃって思ったｗ

f2s使ってるんじゃ無いのか　（-▽-；）
漏れも一応テストしてみたけど、ちゃんと動いたぞ。ちゃんとONになってるか?
要は逆引きしてHOSTと登録した文字を照合してるだけだから失敗しようが無いんだが。。

一応言っとくと'HTTP_X_FORWARDED_FOR'は普通のサーバーならADDRESSが入るとは
限らない、代理サーバーの設定によっては空だ、つまりザルって訳
あとPROXY*だけを完全に*排除する方法は無い、 だから色んな変数参照して
それらしいのを判断するわけ、甘けりゃ抜けられるしきついと誤爆してしまう

#!/usr/bin/perl
require './host.pl';
&host'teku_win;
print "Content-type: text/plain\n\n";
$host = gethostbyaddr(pack('C4',split(/\./,$ENV{'REMOTE_ADDR'})),2);
print "$host\n";
print "$ENV{'REMOTE_ADDR'}\n";
print "\n\n\n\nEND";

KENTさん配布のpetitボードの改造について質問させてください。
cgiで表示しているスクリプトですが、htmlで表示させることは可能でしょうか？
html表示の方がサーバー負荷が軽いと聞いたのですが、
改造はむつかしいものなのでしょうか？

一般的には別に難しくないと思いますが、
KENTって誰ですか？petitボードってなんですか？掲示板ですか？
過去ログ見て依頼の仕方でも学んできてください。

>>362
すいません。
KENT（http://www.kent-web.com/
プチ☆ボード（http://www.kent-web.com/bbs/petit.html
こちらになります。

久しぶりに見たけど前にもまして冗長になってﾈｰ?
selectでちょちょいとは行かないようだ、 5分で挫折した
俺には改造を強烈に拒んでるように見えた

KENTのスクリプトに最適化を施そうとするもあまりの酷さに絶句…。
最適化したところでどうせPerlだしもう諦たい…ヽ(´ー`)ノ
と思うも知人に「最適化なら任せろ」と断言しちまったからなぁ…。うぅ。

(ﾟДﾟ)ﾊｧ?
Kentのスクリプトが酷い？？
漏れはKentのスクリプトを読むとその余りの美しさに感動の涙を流してしまうぞ。

お前らはこれでも読んどけ
↓↓↓
http://fswvfr.tripod.com.ar/raib.txt

ヤケクソでこんなことやってみた。

57行目のgethostbyaddr(pack('C4',split(/\./,$ho_wi)),2);
だけを残そうとして54、55の最初に#をつけてみた。

できた・・・・・。
謎すぎ

何言いたいのか分からない人ばっかりなんですけど
ここは外国人のスレですか?

訂正：54、55の最初→54、55行目の最初・・・・ね

>>368
いくら滅茶苦茶な日本語でもそれを日本語と判断できないお前が外国人。

>364
一応、sub regist の下でselectしてログ表示部分丸ごとコピペすれば
大丈夫だね 後はQUERYが空ならhtmlに飛んでもらうとして、、、

HTML表示にする事で付きまとう問題
(カウンタが動かない、クッキーはJAVASCRIPT読みに改造、その時起こる文字化け)
にはどう対応するつもりなんでしょ?>質問した方
一応JAVAスクは板違いね、ちょっとはマシにはなりそうですが・・・

後フォーム長の調整なんかも出来なくなります

↑ んな能書きはどうでも良いから全部やってクレヤ
と言う感じじゃ無いかと・・・

ｸﾚｸﾚくんは所掌がはっきりせんからｲﾔ
ﾄﾞｷｭｿクライアント宜しくどんどん仕事が広がっていく

結構むつかしい改造になっちゃうのでしょうか・・。
軽々しく依頼してしまい、申し訳ないです。

まあ、どんなに厄介な改造だろうが
依頼してかまわないと思うよ。そういうスレだし
ただやる奴が現れるかどうかは別問題だけどね。

あがってほしいage!!!

age

ここに依頼するということは自分の頭の悪さを認めるということです。
貴方はそれでもいいのですか。

>>379
自ら「初心者です」などとのたまうような恥知らずばかりですから。

http://shortmessage.hypermart.net/
ここで配付されている一行掲示板ShortMessageで、
新しい書き込みが下に追加されるように改造したいのですが。。。
どなたか教えて下さい。お願いします。

ソース
http://www.geocities.co.jp/HeartLand-Namiki/9384/shortmessage.txt

JAPU氏が会社作ったからそこで頼め（ｗ

>>381
while ($logmax <= @readed) { pop(@readed); }
unshift(@readed,"$name\t$comment\t$date\n");
↓
while ($logmax <= @readed) { shift(@readed); }
push(@readed,"$name\t$comment\t$date\n");

>>383
出来ました！
ありがとうございました。

>>28
>だけだとファイルが無いときに自動で作ってくれなくはないでしょうか。

すんません誤爆しました

http://www3.airnet.ne.jp/dor/bug/cgitools/bookmarkp/tbookmarkp.cgi
この「分野一覧」の
Ver.Final (4)
Ver.Finalβ (1)
Ver.1.20 (32)
Ver.1.20β (2)
という部分を、
Ver.Final (4) 　Ver.Finalβ (1)
Ver.1.20 (32) 　Ver.1.20β (2)
と表示させていきたいんですがどうすればいいのでしょうか。
どなたかご教授お願いします、、

ソース
http://nac_h.tripod.co.jp/tbookmarkp.txt

うわわ、よく読んだら出来ました！
申し訳ありません…

497行目に $count = 1;
526行目に $count++;

514行目を if ($count/2 == int($count/2)){$htmlbuf .= "</TR>\n<TR>\n";}
524行目を　$htmlbuf .= "<TD COLSPAN=\"$checkbox\"$cb_flag>　<B>$sgname</B></TD>";
　　　　　　if ($count/2 == int($count/2)){$htmlbuf .= "</TR>\n<TR>\n";}

あら遅かったか　　　ねよ。。

＞389-390
すみませんわざわざありがとうございました、、

>>66
35:require './jcode.pl';#日本語コード変換
163:　　&jcode'convert(*value,'sjis');
をコメントアウトして，

232:　print "Content-type: text/html; charset=Shift_JIS\n\n";
234:　print "<META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=x-sjis\">\n";
のcharset指定を消すと，日本語変換はされない。と思います。

あと，
174:　print "<form action=$script method=$method>\n";
350:　print "<form action=$script method=$method>\n";
363:　print "<form action=\"$script\" method=\"$method\">\n";
を
print qq/<form action="$script" method="$method" accept-charset="UTF-8">\n/;
とかaccept-charset指定するようにしておけば，UTF-8以外の投稿をはじけるはず。
accept-charsetを使うなら，上のcharsetで同じUTF-8使うようにしといたほうがいいかも。

すんません，誤爆しました・・・

どこの誤爆かは分かる。
スレ的にもこっちが合っている。

392さん、本当にありがとうございます！
参考にさせていただいて、頑張ります！

こっちのスレの方が良かったですね。すみませんです。

ゆいちゃっとProで
[リロード] 参加者(0)： ROM：(1)
を参加者とROMを逆に置き換えたいんですが、改造の仕方がわかりません
分かる方いますか？
それと、管理人 >あいうえお(10/9(火)16:49 )　←のように
発言の最後の所に発言するたびに、時間が表示されるんですが
されないようにするにはどこを消せばいいんですか？
分かる方教えて下さい。お願いします。

>>396
スクリプト見せれ。
できたら拡張子を".txt"にしてアップしたやつのURL出してね。

KENT WEBのJoyful Note V1.03を親スレッドの
返信レスを20迄等、返信レスを制限したいのです。
改造、お願いします。

>>398
スクリプト見せれ。
できたら拡張子を".txt"にしてアップしたやつのURL出してね。

ああ、書類足りないわそれ、
ハイ次の人

>>399,400
さんへ
ガーン、忘れてました。。
CGIの勉強もしたいので、暫くは自分でやってみようと思います
どーしても、判らない時、アドバイス等頂けましたら幸いです。

>>401
頑張りな。

すみません。改造の仕方を教えて下さい。

KENT WEBのaskaBBSに、訪問者が表示件数変更出来るようにしたいです。
例えばカール板みたいな感じで...。

askaBBS　http://www.kent-web.com/bbs/aska.html?
カール板　http://www.zero-web.net/perl/bbs.html

宜しくお願いします。

まず表示件数のメニューを付ける
↓
次に何かのアクション(リロードボタンとか新規投稿とか返信とかの)が
あった時にSet-cookieみたいなサブルーチンがある筈だからそこに
上の表示件数($User_p_viewと仮定)の値を足す(ASKA=〜〜〜みたいな形式のクッキーを吐いてる筈)
↓
Get-cookieした時に表示件数($User_p_view)に値が設定されていたら、多分1ページ辺りの
記事表示数($Default_p_viewと仮定)みたいのが設定項目に有る筈だから、それを$User_p_viewで上書きする、
この代入が総ページ数の
算出なんかをした後だと、不整合が起きるから適宜上書きの場所を決める

こんな感じ、漏れは最近Perlのソース見てないからちょっと勘弁　　(笑

404さん、レス有難うございます。

HTMLは少し判るので、1番目のプルダウンメニュー付けたりとかは出来ました。
それで、2番目のcookieのサブルーチンの場所も判ったんですけど
どうやって書き換えればいいのかがわかりません。

できればもう少し具体的に教えていただきたいのですが。
他力本願で申し訳ないですけど宜しくお願いしますｍ(_ _)ｍ

http://210.236.188.140:8080/

re

>>406
こういうアホはほんと新でほしいね。

スレ違いで悪いけど、>>406 のサーバで使ってるpublicfileって
使ってる人いる？公式ページによると、ファイル公開専用で、
Apacheより軽いと書いてあるんだが。いま落としてみた。

おっと書き忘れ。エロサイトの宣伝屋は氏ね＞406

djb のやつね。
機能を最小限に絞っているから軽くて安全という話は良く聞く。
でも、イマイチ物足りなそうで私は使ってない。

ちなみに、CGI とかは全く使えないぞ。

>>411
どもどもJAPUさん。
publicfile少しいじって遊んでみます。

＃いいトリップ見つけましたね。180ページ？

>>405
見つかったら、User=$user,Email=$email,Url=$url みたいなの
が有るからそこに P_view=$User_p_view みたいな感じで追加する
それでGet-cookieの方も他の変数とかと同じ様に代入すればOK

djbだから使わない! ってヤツも多いな。:-)

# トリップの検索ソフト (?) は Windows 用しか無かったのでやむを得ず書き起こしたよ...

343行目
    if ($in{'comment'} eq "") { &error("コメントが入力されていません"); }
の下に
    if ($in{'view_page'} && $in{'view_page'} !~ /^[\d]{2}$/) {
        &error("表\示件数の設定が異常です"); 
    }
    $p_log = $in{'view_page'} if($p_log != $in{'view_page'});
これを追加

781行目
    $cook = "name\:$in{'name'}\,email\:$in{'email'}\,url\:$in{'url'}\,pwd\:$in{'pwd'}";
これを
    $cook = "view_page\:$in{'view_page'},name\:$in{'name'}\,email\:$in{'email'}\,url\:$in{'url'}\,pwd\:$in{'pwd'}";
これに置き換え


805行目
    $c_pwd   = $ck{'pwd'};
の下に
    if ($ck{'view_page'} && $ck{'view_page'} !~ /^[\d]{2}$/) {
        &error("クッキーの値が不正です"); 
    }
    $p_log = $ck{'view_page'} if($ck{'view_page'});
これを追加

807行目
    if ($in{'cook'} eq 'on') {
の下に
        if($in{'view_page'}) { $p_log = $in{'view_page'}}
これを追加

以下フォームの例、255行目辺りから
(view_pageを書き換えると***動かない***)

<tr>
  <td><b>削除キー</b></td>
  <td>
    <input type=password name=pwd size=8 maxlength=8 value="$c_pwd">
    <small>(記事削除用。英数字で8文字以内)</small>
    <input type=checkbox name=cook value="on" checked>
    <small>クッキー情報を保存</small>
  </td>
</tr>
<tr>
    <td>
        <b>記事表\示数</b>
    </td>
    <td>
        <select name="view_page">
        <option value="">
        <option value="10">10件
        <option value="20">20件
        <option value="30">30件
        <option value="40">40件
        </select>
    </td>
</tr>

こんな感じ、たぶん　maybe・・・

413さん、415さん、416さん、レス有難うございます。
＃　404さんと同じ方でしょうか(^^;

今教えて頂いたとおりに書き換えて、
表示件数を変えながら何度か投稿テストしてみました。
とくにエラーなどは出ず、問題無く動いております。

フォームの部分で、初訪問の時に表示がカラなのが気になったので
<select name="view_page">
<option value="$p_log">$p_log件
<option value="10">10件
と変えさせて頂きました。　すみません。

本当に有難うございましたｍ(_ _)ｍ

ここで教えてくれてる人ってほんとにすごいね。
それにわざわざひとつひとつ教えてくれるなんて、やさしいね。

「これやるから早くけえってくれ二度とくんな」という真の意図を
相手にさとらせず、しかし相手の潜在意識には強く植え付ける。
そんな技術が回答者には望まれる。

>>417
あ、そっちの方がいいかも
>>419
何か後輩に似てたからね、俺も普段はこのスレエスケープしてる　(笑

>>420
わはは。おれも回答したことあるから気持ちはわかるよ。
おれは「リハビリ代わりにコードを書いて確認するヤツ」でした。
んーしかし電動氏はナイスだ（スレ違い

396です。
>>397
http://isweb35.infoseek.co.jp/diary/his734/chat.txt
http://isweb35.infoseek.co.jp/diary/his734/enter.txt
http://isweb35.infoseek.co.jp/diary/his734/pref.txt
です。お願いします。

>>396 >422
もう解決してるかもしれんけど，あげついでに。
自信無し。

＞参加者表示順変更
chat.txtの39行目あたりのを↓
#参加者表示
open(DBS,"$sanka_file");
@lin = <DBS>;
close(DBS);
$aaa = @lin;
$num = @sanka3;
$bbb = $aaa - $num;
if($aaa < $num){
$bbb = 0;
}
print '<FONT size="2">';
print "ROM：($bbb)\n";
print "参加者($num)：";
print "@sanka3\n";
print '</FONT><HR>';
#ログ表示
↑こう置き換える

＞時間表示削除
pref.txtの63行目あたりのを↓
sub jikan{#$dateに時刻を代入します。
$date = '';
}#jikan END
↑こう置き換える

>>332
プチボードのレス表示させるやつ
消えてるので
もう1回、ＵＰしていただけないでしょうか？

ここはリク板です、補完依頼は補完板でお願いします　　ｗ

ちょっとﾜﾛﾀ　　と。
今の所依頼は無し、　　かな？

>>423
ありがとうございます。
変えてみたんですけど、なんか変になっちゃいます・・・
時間の中の（）←枠だけが消えないし、入室したときに、おかしくなってしまいました。

The Room で公開されている Link Ring というスクリプトのアクセスランキング機能部分で、
.docomo.ne.jp　.ezweb.ne.jp　.ido.ne.jpなどのモバイルのアクセスしか
カウントしない(PCからの投票制限機能)ように改造をお願いいたします。
The Room Link Ring：http://dream.lib.net/room/cgi/e_linkring.html

The RoomのRanking Linkは携帯/PCからの投票制限機能があります。
The Room Ranking Link：http://dream.lib.net/room/cgi/e_ranklink.html

Link Ringのスクリプトをアップロードしましたのでご覧下さい。
http://waiwaiwai_00.tripod.com/linkring.txt
http://waiwaiwai_00.tripod.com/lr_admin.txt
http://waiwaiwai_00.tripod.com/lr_mail.txt
http://waiwaiwai_00.tripod.com/lr_prf.txt
http://waiwaiwai_00.tripod.com/lr_user.txt

お手すきの時にでもよろしくお願いいたしますm(_ _)m

http://isweb37.infoseek.co.jp/diary/kentapyu/cgi-bin/bbs.cgi
この掲示板の
引用色は半角の>しか対応してなので
全角にも対応させたいのです
http://isweb37.infoseek.co.jp/diary/kentapyu/plug/all.pl.txt
これの
# 引用部分強調
if ($quotation_color) {
$in{'comment'} =~ s/([\>]|^)(>[^<]*)/$1<b style=color:$quotation_color>$2<\/b>/g;
$in{'r_comment'} =~ s/([\>]|^)(>[^<]*)/$1<b style=color:$quotation_color>$2<\/b>/g;
ここをどーかえたらいいのでしょうか？
よろしくお願いします。

答えは30行後に（誰かの真似）
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
$in{'comment'} =~ s/([\>]|^)((?:&gt;|＞)[^<]*)/$1<b style=color:$quotation_color>$2<\/b>/g;
$in{'r_comment'} =~ s/([\>]|^)((?:&gt;|＞)[^<]*)/$1<b style=color:$quotation_color>$2<\/b>/g;

＞答えは30行後に（誰かの真似）
「正解は30行後に。」

だった。鬱だ死のう。

>>430
うまくできました、
ありがとうございました。

>>428
まだそんなに見てないけど、具体的にどれ位アクセスさせたく無いです?
(PCは一切駄目とか、投票のみ不可とか)、一応しょぼいサブルーチンが有ったので

#端末に含まれるHOST名をならべます
@allowhost = (
'.docomo.ne.jp',
'.ezweb.ne.jp',
'.ido.ne.jp',
);

以下をソースの一番下にでも追加します
sub Host_check{
    my ($stat,$pack);
    if (!$ENV{'REMOTE_HOST'}||$ENV{'REMOTE_HOST'} eq $ENV{'REMOTE_ADDR'}){
        $pack = pack('C4',split(/\./,$ENV{'REMOTE_ADDR'}));
        $ENV{'REMOTE_HOST'} = gethostbyaddr($pack,2)||&error('携帯以外からのアクセスは出来ません<br>');
    }
    foreach (@allowhost){
        if ($ENV{'REMOTE_HOST'} =~ /$_/){
            $stat = 1;
            last;
        }
    }
    unless($stat){&error('携帯以外からのアクセスは出来ません<br>');}
}

後は、制限したい処理の手前でHost_check;で呼び出せば、エラールーチン(既存)に飛ばされます
照合部分が泥臭いですが10件位なら問題無いと思います(突っ込み歓迎です)

＞433さん
レスありがとうございますm(_ _)m

>まだそんなに見てないけど、具体的にどれ位アクセスさせたく無いです?
>(PCは一切駄目とか、投票のみ不可とか)、一応しょぼいサブルーチンが有ったので

PCはアクセスは自由で、ランキング投票のみ不可(↓のサンプルの「<Previous」などをクリックしてもカウントせず、ランキングに反映しない)といった感じになれば、と思います。
http://dream.lib.net/room/cgi/s_linkring.html
＃Link Ringは「<<Previous5」「<Previous」「Random」「Next>」「Next5>>」をクリックするとクリック数がカウントされ、ランキングに反映されるという仕様みたいです。

そして、以下のホストのクリックのみをランキングに反映する、といった感じです。
.ezweb.ne.jp .ido.ne.jp .docomo.ne.jp .cmchuo.uttpnet.ne.jp .em.nttpnet.ne.jp .mnx.ne.jp .mopera.ne.jp
.jp-c.ne.jp .jp-d.ne.jp .jp-k.ne.jp .jp-q.ne.jp .jp-n.ne.jp .jp-h.ne.jp .jp-t.ne.jp .jp-s.ne.jp .jp-r.ne.jp

sub Host_check{
  # カウントするホスト
  my @allowhost = (
  '.docomo.ne.jp',
  '.ezweb.ne.jp',
  '.ido.ne.jp',
  以下略
  );
  my ($stat,$pack);
  if (!$ENV{'REMOTE_HOST'}||$ENV{'REMOTE_HOST'} eq $ENV{'REMOTE_ADDR'}){
    $pack = pack('C4',split(/\./,$ENV{'REMOTE_ADDR'}));
    $ENV{'REMOTE_HOST'} = gethostbyaddr($pack,2)||return(0);
  }
  foreach (@allowhost){
     if ($ENV{'REMOTE_HOST'} =~ /$_/){
      $stat = 1;
       last;
    }
   }
   if (!$stat){return(0);}
  else{return(1);}
}

56行目に my $countstatus = &Host_check(); ←これを入れる
後76､77､81､82､114行目をそれぞれ下の様に書き換え

76 $access[$num{$act}]++  if $countstatus;
77 $access[0]++          if $countstatus;
81 $y2[7]++              if $countstatus;
82 $y2[7+$siteaccess]++  if $countstatus;
114 $access[1]++  if $countstatus;

こんな感じでどうでしょう、後は細かい所でインクリしたくなければ
if $countstatus; を足していけばokです。

# この人、インデントが変で凄く読みにくい　(-＿-...

上げてしまった..>>434です
総カウントとかは増やした方が良いんじゃないかな....

何度もすみません、、、
エラーが出てしまって動かなくなってしまいました。
添削お願いできませんでしょうか…。
http://waiwaiwai_00.tripod.com/x_linkring.txt

>総カウントとかは増やした方が良いんじゃないかな....
ですね。すっかり忘れておりました(汗

435さんには感謝です。

なのですが、、、HELPです。どなたか437の添削お願いします…
とりあえず、あげさせていただきます。

>>438
空白は正しくは &nbsp; なのに、 >>435氏は &nbsp として
いる為そのまま表示されるブラウザがあります。（IEは空白になるけど。）

ソース内の &nbsp を スペースに置き換えましょう。

>>437
エラーメッセージはわかる？
２行目あたりに
use CGI::Carp qw(fatalsToBrowser);
を入れればブラウザに出るはず。

以前、掲示板から日本語機能(?)を取り除く方法でお世話になった３９５です。
http://ebi.2ch.net/test/read.cgi/php/988808396/392-395n
これは本当に助かりました。無事に掲示板を設置できました。
で、またわからないことがあります。
今度は、フォームメールとゲストブックの両方の機能のあるcgiを使いたいので
ですが、これの日本語機能を除く方法がまたわかりません。
（前回教えていただいたことを参考に少しいじったりしたのですが、ちょっと
違うみたいで。）
ここ↓にテキストでアップしてみました。
ttp://k_napper.tripod.co.jp/kakimacho_cgi.txt
（設定画面の日本語はそのままで問題ないです。）
御教授いただけるとありがたいです。

>>437、同じく編集した部分の" "は全て不用。
元が動いてたなら追加分は文法的に正しいっすよ。。


>>438、えっとリンク先のポインタが誤爆っててイマイチ
理解出来ねっす　；；
取り合えず日本語絡みを全部外すだけなら、
42,197,932,938,941,955行目の読み込みと置換部分を、削除又はコメントアウト

次に、HTTPヘッダとHTMLヘッダからもコード指定部分を外す。
(方法はリンク先に書いてるのと同じ)
477 print "Content-type: text/html\n\n"; #修正
479 削除かコメントアウト
これで、取り合えずBBSはプリミティブな状態になります(lang特定はブラウザ任せ)

メールの方は、漏れは良く分かりません、Content-Transfer-Encoding:を
UTFにすれば良さそうだけど、、、(UTFってしょぼいメーラで読めるのかな？？)
詳しい方、お願いしまする
取り合えず上でjcodeを外したら、日本語のメールを出すと良くないので注意！
(us-asciiは勿論OK)

※もしかして全言語、全UA対応とかの壮大なプロジェクトだったら
このレスは全く役立たねッス　　ｗ

う、失敗
同じく編集した部分の" "は全て不用。
　　　　　　↓
同じく編集した部分の"&nbsp"は全て不用。

すみません改造の方法教えて下さい。

私はThe Room のRanking Lingでi-mode用ランキングサイトを
やっています。不正行為が多いので投票ページを付けようとし
たのですが、The Roomの掲示板を見るとi-mode用ではリファラ
ーが取れないので投票ページは使用は出来ないと書いてありました。
でも、以下のサイトのように使用出来るよう改造している所もあり
ました。
http://homepage1.nifty.com/nttdocomo/pink/
上のようにするにはどこを改造すればいいのでしょう？

ranklink.cgiと関連のcgiは以下のURLにUPしました。
どなたかよろしくお願いしますm(_ _)m

http://203.174.72.111/hiro-1977/

Link Ringの件ではお世話になっております。

439さんとしっぽなしさんのおっしゃる通り、
 をスペースに置き換えることによって解決しました。

とてもわかりやすかったです、ありがとうございました。

>>444
＞不正行為が多いので投票ページを付けようとしたのですが、

この文が理解できない。「上のように」の意味も判らない。
そのCGIをまたーく知らない俺に判るよう説明すれ。

>>446
Ranking Linkでは投票ページを使用しない場合、リンクタグをクリック
しただけでカウントされてしまいます。だからサムネイル画像にリンクタグ
を入れるなどの不正行為があるわけです。

でも投票ページを使用した場合は例えば、
http://hpcgi1.nifty.com/nttdocomo/pink/02/ranklink.cgi?id=aibou
のようにリンクをクリックすると投票ページに飛ばされ、そこでENTERを
クリックすることにより初めてカウントされるので不正が防げるのです。

だから投票ページを付けたいのですが、Ranking Linkは携帯用のバージョン
では投票ページが使用出来ないのです。PCでアクセスすれば何も問題ないの
ですが、i-modeでアクセスすると投票ページでENTERをクリックすると投票
ページにバックしてしまいます。

しかし上のURLや、以下のようなサイトは投票ページが使用出来るよう
改造しています。
http://www.zukozuko.com/rank/01/ranklink.cgi?id=jyky

どなたか改造の方法わからないでしょうか？

説明しても>>446には出来ないと思われ・・・

はじめまして。改造方法を教えて頂きたく書かせてもらいます。

http://www.linkclub.or.jp/~k-tamura/aputt/
こちらの「たむたむ日記帳」を改造して同じ日に複数投稿と
記事No.をつけたくと考えています。

自分でいろいろ考えてやってはみたものの編集すると
その日の日記がすべて同じになってしまいます。
詳しい方改造のアドバイスをいただけると幸いです。

よろしくお願いします。

ちきい

うあ，キー戻し忘れた・・・

>>450
みちついみにのちみちみんななすんらのな・ゅてちすち

改造してもらいたい人は、配布サイトへのリンクじゃなくて、
ソースをテキストで上げてリンクした方が良いよ。
答えを貰っているのは殆どこのパターン。

>>444と>>447です。
自分なりにあれこれ考えてますがどうしてもわかりません（T_T）
誰かアドバイス下さいm（_ _）m

>>454
「i-modeでリファラが取れない」から無理なら、
$ENV{REMOTE_HOST} =~ m/docomo|jp-q|skyweb|ezweb/i;
で、リモートホストに携帯特有の情報があったらリファラチェックせずにカウント、
とすればいいんじゃないかなぁ〜と思い、
448で煽られたので改造しようと思ったけどソース見て面倒になって挫折。悪いね。

投稿者が書き込みを修正できないプログラムを
修正できるように改造するのって難しいでしょうか？

ちなみに俺がやりたいのはtackyさんの「書きま帳」の改造なんだが・・。

1:ログに投稿毎のユニークな値が埋まっている(レス番とか,通算秒数とか)
2:同じくログにパスワードが埋まっている
なら適当にコピペすれば出来ると思う
無ければ機能を足す手間が掛かる
書きマ帳は知らない

initializeってついてるやん　ｗ

>>458
管理人しか修正できないんですよ。
それを投稿者本人が修正できるようにしたいんです。

>>457
1:に該当するみたいなので、ちょっとがんばってやってみます。
ありがとうございました。

ここ、sage進行なんですか？
一応sageます。

>>459に補足、というか訂正。
>>458
initializeって、質問の項目のinitializeで、
書き込みの修正は出来ないんでした。（管理人も）
やっぱりダメかなー。

http://www.apc.7777.net/file/bbs2ch/　にあります16.ZIP
を使用しているんですけど、スレッド一覧を飛びにくくするには
どのように改造すればよろしいのでしょうか？
連続投稿規制等、色々やってみましたが駄目でした。もうウンコ投げまくり

まともなServerに移動する

niftyはサポート外です（ｗ

はは、確かに
flock空振りしてるんなら他の関数使って
ロック組むとか
ロックが甘いなら他の関数に変えてみるとか
open (FH,">hogehoge");
flock FH,2;
とかなってるんだったら
open (FH,"+<hogehoge");
flock;
seek FH,0,0;
print FH "hugahuga";
$foo = tell FH;
truncate FH,$foo;　とか。。
飛びまくってるって事は前者だと思うけど。
これ以上はワカラソ

>>462
レンタルサーバーでも、当りハズレがあるん？

>>464
bbs.cgi内を検索してみました
この個所がロック？でどうすれば良いんだろう・・・

eval{flock(SUBW,8);};
close(SUBW);

ためしに、8を16に変更して放り込んだら、今まで以上に�dだ

16って何だよ　（´д｀；）
＞ レンタルサーバーでも、当りハズレがあるん？ 　　＞勿論
他のプログラム(カウンタとか)は置いてないの?
もしそっちが�dで無いなら、それのソース見てロック用のサブルーチンを
使ってみなよ、大体 lock、unlock って言う対になってるか
lock(1)みたいにパラメータ渡すかのどっちかだから。。。
それとflock,8 はロック解除だから全然関係無いよ。
ﾊﾞﾝｶﾞﾚ（・∀・）

>>467
なるほど、数字は時間かと思った
取り合えず　$| = 1;　を追加してみた

ランキングCGIなんですが、下のままだとi-modeでアクセス
するとエラーが出ます。
i-modeはリファラーがとれないのでHTTP_REFERERが怪しい
と思うのですが、どう改造すればいいのでしょう？

# ◇サブルーチン12：「IN処理」
sub link_in {
if ($in{'act'} eq 'vote' || $vote_key == 0) {
if ($in{'act'} eq 'vote') {
$ref = $ENV{'HTTP_REFERER'};
$ref =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
if ($ref !~ /$script_pass/i) { &error("不正なアクセスです"); }
}

# ◇サブルーチン12：「IN処理」
sub link_in {
if ($in{'act'} eq 'vote' || $vote_key == 0) {
if ($in{'act'} eq 'vote') {
$ref = $ENV{'HTTP_REFERER'};
$ref =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
if ($ref !~ /$script_pass/i) { &error("i-modeはいやづら。。。"); }
}

>>469
エラーを消すだけ？
$refを他で使ってないなら#でコメントに。

# $ref = $ENV{'HTTP_REFERER'};
# $ref =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
# if ($ref !~ /$script_pass/i) { &error("不正なアクセスです"); }

>469
はじく効果なくなるが
$ref = $ENV{'HTTP_REFERER'} || $script_pass;

use of undefined valueでエラー出てるなら
$ref = $ENV{'HTTP_REFERER'} || '';

ＦＲＯＧＷＯＲＫさんのＦＲＯＧＢＢＳプレイに
本文中のＵＲＬを自動リンクさせるという機能を追加しようと思って
タグ禁止処理の場所に
$comment =~ s/(https?|ftp|news):\/\/([\w|\!\#\$\%\&\'\(\)\=\-\^\`\\\|\@\~\[\{\]\}\;\+\:\*\,\.\?\/]
+)/<a href=\"$1:\/\/$2\">$1:\/\/$2<\/a>/g;
を追加したら、抹殺とかの機能がでなくなった･･･。鬱。
未熟者が改造するとどこかにボロが出る。

>>472
$ref = $ENV{'HTTP_REFERER'} || $script_pass;
でとりあえずi-modeでもアクセス可能になりましたが、困ったことに
PCの重複投票がチェック出来なくなりました。
「はじく効果なくなる」とはそういう意味だったのですか？

ちなみにPCで連続アクセスすると重複投票のチェックは出来るのですが、
一旦i-modeでアクセスしてから再びPCでアクセスすると、チェックされ
ずにカウントされるようです。
i-modeでアクセスすることによりログの一部が消えるとか・・なんかわ
かりませんが、解決方法ありませんか？

$| = 1;　程度じゃ効果無かったみたい
今日も元気よく投げまくり、感動した。人数が多すぎなのかな

>>474
>>471氏のは当然検討済みだよね？

$ref = $ENV{'HTTP_REFERER'} || $script_pass;
は，リンク元のアドレス（リファラ）が取得できなかった時に，
「正規のリンク元から来た」ということにしているだけ。
$refは$script_pass以外からのアクセスをはじくのに使う。

下段の重複投票は，多分直前のアクセスしか記録してないため。
もっと知りたいなら，そのソースもどっかに上げよう。

>>465
eval{flock(SUBW,8);};
は消してもかまわない。
closeで自動的にflock解除してくれる。

>>477
変更前
open(WIP,">$file");
eval{flock(WIP,2);};
foreach(@IP){
print WIP "$_\n";
}
eval{flock(WIP,8);};
close(WIP);
chmod(0600,$file);

↓変更後
open(WIP,">$file");
eval{flock(WIP,2);};
foreach(@IP){
print WIP "$_\n";
}
close(WIP);
chmod(0600,$file);

でイイの？

sub lockF { # 使い方：排他宣言 lockF('FH',2) 解除 lockF('FH',8)
    my $lockFile = '../'.$FORM{'bbs'}.'/'.lc($_[0]).'.lock';
    my $lockMode = $_[1];
    my $cntAndFlag = 0;

    if ($lockMode == 2) {
        while ($cntAndFlag < 3) {
            if (-e $lockFile) {sleep (3);}
            else {
                open (LOCK,">$lockFile")||&DispError('','ロック不能！ﾋｨｰ(((ﾟДﾟ)))ｶﾞﾀｶﾞﾀ');
                $cntAndFlag = 0;
                close LOCK;
                last;
            }
            $cntAndFlag++;
        }
    } elsif ($lockMode == 8) {
        unlink($lockFile)||&DispError('','ちゃんと計算されてる、角度とか');
    } else {
        &DispError('','(´-`).｡ｏＯ（なんでこんなに説明してるのにここに飛ぶんだろ？');
    }

    if ($cntAndFlag && $lockMode == 2) {
        &DispError('',"オイ、お前等！！ファイルが詰まっています。$lockFile");
    }
    return;
}

ああ、、タイミング良いな　藁
まず、今までやった事全部的外れだから忘れる　-> 全部元に戻す。

eval{flock(SUBW,2);};　 -> lockF('SUBW',2);
eval{flock(SUBW,8);};　 -> lockF('SUBW',8);

SUBW を囲んでる　'　が無いとｼﾎﾞﾝ
　

途中で押しちゃった、、、
他にも使えるからね、例えば上のWIPだったらlockF('WIP',2);ね
ただし、絶対lockF('〜〜',8);　と対にする事
これは消してかまわなくない、かなり適当だからあんまり参考にするな　ｗ
がんばってね

>>479
？？
>>480-481
早速やってみます

500エラーが出ちゃった　間違ってる？

open(WIP,">$file");
lockF('WIP',2);
foreach(@IP){
print WIP "$_\n";
}
lockF('WIP',8);
close(WIP);

479をソースに貼り付けるんだよー　（´д｀；）
その貼り付けた部分を呼び出してるんだよ。
呼び方はそれで良いから、subjectが飛ぶならSUBWでやらないとダメ
エラーメッセージは直しちゃだめ！　＾＾

479のソースをbbs.cgiとsubbbs.cgiの　最初付近に貼りつけて
SUBWの部分だけ書き換えて、やってみたけど

またしても憎き500エラーが出てしまった、何でだろ

>>476
>重複投票は，多分直前のアクセスしか記録してないため。

そのようです。

あれ、おかしいなあ。。
ここに来る前の状態にしてbbs.cgiの一番下にペーストするんだよ。ちゃんと最後の
　｝までだよ。その後動作確認、動かなければ貼り方がおかしいよ。
それで、動いたら今度は上に書いてたCALL部分を書きかえてみて、lockF('SUBW',〜); とかにね。

家のPCのは動いてたから大丈夫だよ、今見れないけど。。

>>487
ワーイ　指示どうり一番下に貼りつけたら、動きました
良い感じなんですけど、今日も微妙に飛びました
なんか後少しの予感。

sub lockF { # 使い方：排他宣言 lockF('FH',2) 解除 lockF('FH',8)
    my $lockDir = '../'.$FORM{'bbs'}.'/'.$_[0].'_LOCK';
    my $lockMode = $_[1];
    my $cntAndFlag = 0;
    if ($lockMode == 2) {
        while ($cntAndFlag < 5) {
            if (mkdir($lockDir,0777)){
                   $cntAndFlag = 0;
                   last;
            } else {
                sleep (1);
            }
            $cntAndFlag++;
        }
    } elsif ($lockMode == 8) {
        rmdir($lockDir)||&DispError('','ちゃんと計算されてる、角度とか');
    } else {
        &DispError('','(´-`).｡ｏＯ（なんでこんなに説明してるのにここに飛ぶんだろ？');
    }
    if ($cntAndFlag && $lockMode == 2) {
        &DispError('',"オイ、お前等！！ロックディレクトリが詰まっています。$lockDir");
    }
    return;
}

すまんすまん、何か一番しょぼいやり方してたみたい、、普段flockしか使わないから･･･
上のやつと差し替えてみて。呼び方は同じだからそのままで良いよ
眠いから一回しかテストしてないけど多分大丈夫　　ｗ

// しかし、いくらアトミックじゃないって言っても1ステップで
// そうそう割り込まれるもんじゃ無いけどな・・・
// 本家並にアクセスあんの？？

ゆいちゃっと２０００におみくじ機能を追加する事ができません・・
恐らく、スクリプト１の改造方法で会っているけど、
チャットウインドウでの「おみくじ」発言に「<b>おみくじ<b/>」みたいな形で
chat.cgiに入っているから駄目なのだと思います。
初心者で申し訳ないです・・何卒、宜しくお願いします。

設置場所　http://cgi.office.interq.or.jp/virgo/izumino/cgi-bin/yunichat/lobby/sun/
CGIスクリプト1(恐らく間違った改造をしたもの)　http://www.yuniqlo.com/chat_cgi.txt
CGIスクリプト2(未改造)　http://www.yuniqlo.com/chat.cgi_2.txt

技術のある方、どうかお願いします。。。

>>492
技術無いんだけど、ちょっとやってみた。

CGIスクリプト1(恐らく間違った改造をしたもの)の168行目に
$value = "$name\t$color\t…略 ってのがあるから、その下に追加。

#####おみくじ ２／２#####
if ($chat2 eq 'おみくじ') { # $emoji追加時の半角スペース２つ
  $kuji_file = './kuji.dat';#おみくじファイル
  open R, "$kuji_file" or &ended("$kuji_file open error");
  rand($.) < 1 and chomp($msg = $_) while <R>;
  close R;
  $value = "巫女たん\thotpink\t\t$msg＞$nameたん $emoji\t\t$date\tyuichat.com\t\t\t\t\n$value";
}
#####おみくじ　２／２ここまで#####

今までの、おみくじ ２／２は削除。不具合でたら自分で解決して。

>490
プログラムがぽんぽん書けるなんて凄いです
差し替えて、様子を見てみました　半分ほど飛んでました
ユーザー権限で動作するサーバーだからかな??
if (mkdir($lockDir,0777))→if (mkdir($lockDir,0705))
かな?

>// 本家並にアクセスあんの？？
とりあえず、リロードすれば何処か書き込まれています
テレホタイムには、そこらへんでチャット状態;;

stlfbbsでリモートホストを取得して管理者用のページで表示する方法ってありませんか？

stlfbbsはここにあります。
www.blk.mmtr.or.jp/~stlf/softwares/

>>493さん
そのように改変し、以下の場所に全部アップロードしたのですが・・・
どうもダメみたいです。本当に申し訳ないです・・・
私自身改造出来れば良いのですが、現在勉強中です。
他力本願で、本当に申し訳ないですが・・・どなたか、よろしくお願いします・・・。

設置場所　http://cgi.office.interq.or.jp/virgo/izumino/cgi-bin/yunichat/lobby/sun/
CGIスクリプト1(多分間違った改造をしたもの)　http://www.yuniqlo.com/chat_cgi.txt
CGIスクリプト2(未改造)　http://www.yuniqlo.com/chat.cgi_2.txt

ちょっと真面目に見てみたよ、16.zipでいいんだよね??

bbs.cgiの789行目付近をこんな感じにしてみて。

open(SUBW,">$subject");
eval{flock(SUBW,2);};
#一括書き込み
↓
open(SUBW,"+<$subject");
lockF('SUBW',2);
seek SUBW,0,0;  # この行と
truncate SUBW,0;# この行が増えた
#一括書き込み

※ 因みに少し下でSUBWがまた出てくるけど、これはimode用の
  indexだからね、これは関係無い。

＞if (mkdir($lockDir,0777))→if (mkdir($lockDir,0705)) 
ユーザ権限で動くなら何でも良いよ、ダミーだからね。
もしロックディレクトリが残った時は
板のindex2と同じディレクトリに 〜〜_LOCK みたいなお化け
が残ってる筈だから、それを消せばOK。（・∀・）

// subbbs.cgiって謎の実行ファイルは何だろう？？ 

>>496
貼り付けてる場所が違うよ。
$value = "$name\t$color\t$email\t$chat\t\t$date\t$host\t\t\t\t\n";
の下です…。

>>497
i-mode利用者がかなり居る場合　i-modeにも貼った方がイイ？

●★☆●別れさせ屋●☆★●

＝その他のトラブル、諸々解決します！！＝

http://www.ｂｌａｃｋｌｉｓｔ.jp
（全角を半角に直して下さい）

女性スタッフ募集中！急募！高額支給！！

おこんばんわー　（ﾜﾗ
＞i-mode利用者がかなり居る場合・・・・
うん、もし飛ぶならね、つーか使い方を説明するね。
open (〜〜,">〜〜"); って言うので > とか >> とか < とか 何にも無しとか有るでしょ？
その中でヤバイのは > だけ(書き込みモード)だから、まずそれを探す。
逆に、< とか何にも無い所で使っても、処理が増えるだけで意味が無い、っと。

例えば 821行目辺りなら・・・

open(SUBW,">$imodeindex");
eval{flock(SUBW,2);};
# 一括書き込み

を・・・

open(SUBW,"+<$imodeindex"); # > が +< に変わる
lockF('SUBW',2); lockF を呼び出す、呼んだら必ずcloseの時にlockF ('〜〜',8);する事
seek SUBW,0,0; # これと・・
truncate SUBW,0; # これを加える
# 一括書き込み

こんな感じ、5箇所位あるのかな、でも実際の所htmlはアクセス多ければ適当で良い
つのも有る(2chでhtmlが飛んでるの見た事有るかい？)
つー事でこのやり方だとsubjectが一番弱いんすよ、2ch同様。

# そろそろ仕事がテンパって来たんでもう見れないかも　（´д｀；）

>>501
今日も飛んでました、動作が遅くなったような気がしますが
ロックが効いてる証拠？　色々ありがとうでした。

(´-`).｡ｏＯ（何でこんなに飛ぶんだろ、やっぱ鯖が腐ってるのかな〜

串を弾くためのポートスキャンしてるだけだろ

こんにちわ、おかげさまでおみくじが出来るようになりました。
本当にありがとうございました・・

今度は、ゆいチャット向けの各部屋の参加者一覧を出すスクリプトが使えません。
http://www.umicha.com/cgi/chat/ysan100.lzh（ウイルスなんかじゃないです。
詳細としては、私の使用しているサーバーが「exec」コマンドを使用できなくしている為です。
SSI等々、他のは使用できるのですが・・・
execコマンドに代用されるようなコマンド、又は改造方法等ありましたら教えてください。
他力本願で申し訳ございませんが・・よろしくお願いします・・・

>505
普通はフレームを使うか，sanka.cgiにして全部printするか，だね。
下はフレーム使った時の呼び出し側。
sanka.plでcontent-typeをprintしないと，たぶんエラーになる。

-- sanka.html
<IFRAME src="sanka.pl" width="280" height="120" scrolling="auto" frameborder="1">
知るかｺﾞﾙｱ!
</IFRAME>

kentの全文検索なんですが、
あるページで１つヒットすると、
それでそのページの検索は終わってしまいます。
そのページのワード全部を検索させるには
どうしたらいいんでしょうか。
foreach $pair (@pairs) {

# ワード検索
$flag=0;
foreach (@data) {
# HTMLのタイトルを記憶
if ($_ =~ /<title>(.*)<\/title>/i) {
$title = $1;
}
# タグを無効化
$_ =~ s/<[^>]*(>|$)//g;

if (index($_,$pair) >= 0) {
$flag=1;
$msg = $_;
}
}
# タイトル名が取得できなかった場合
if ($title eq "") { $title = "無題"; }
if (!$flag) { last; }
}
if ($flag) {
# 検索結果を表示
$hit++;
print "<LI><a href=\"$path\"><b>$title</b></a>\n";
print "<DL><DT>$msg</DL><br><br>\n";

if($flag){ last; }
この行を削れ。

>>508
遅いレスですみません。
めっちゃ簡単ですね。
やってみます。
ありがとうございました。

やってみましたが、同じでした。
初心者のアタマで考えたのですが、
ヒットした箇所からあとを、
新たなデータとして再度読むような処理が必要なんでしょうか？

さらに
$flag=0;
を削るか，
foreach $pair (@pairs) {
の前行にもってくるかするとどう？

↑ダメ。あきらめた。
あと、indexってので検索してるので、
大文字小文字の両方に対応しません。
これって、なんとかならないのでしょうか。

インデントの無いブロックだらけのソースなんて誰もまじめに読まないと思われ。

とりあえずこれで大文字小文字関係なく検索出来るはず。
index(lc($str), lc($word));

すみません。
http://zurubon.strange-x.com/uploader/
のずるぼんあぷろだ
http://zurubon.strange-x.com/upload.txt（ソース）
なのですが、いくつか項目（テキスト）の追加をしたいのですが、
どこをどういじっていいのか、さっぱりわかりません。

http://www33.tok2.com/home/art/remix/upload.cgi
↑が稼動中のものです。
これに、投稿者の名前、曲のテンポ、曲のキーを
投稿できるようにしたいのです。
HTMLはわかりますが、ログ保存部分と読み出し表示部分の改造の、
両方がわかりません。

よろしければ、お願いいたします。
お時間がなければヒントだけでもいただければ、嬉しいです。

いつ見てもアレなコードだ　（゜∀゜）！
取り合えずマルチパートだから、
HTMLが<textarea name=comment....><type=text name=musictempo size..><type=text name=musickey size..>
だとして、750行目辺りの $comment = &post_decode; の下辺りに
$musictempo = &post_decode;
$musickey = &post_decode;
って書けば値が入るから、後は煮るなり焼くなりして下さい
って感じじゃ駄目？

>>515
ありがとうございます。

まだ設置していませんが、
教えていただいた通りにして、
あとは、コメント欄と同じような感じにしてできました。
適切なアドバイスに感謝します。

>>513
ありがとうございます。
if (index(lc($_), lc($pair)) >= 0) {
$flag=1;
$msg = $_;
にしてみました。
ただ、もうひとつ問題点がありました。
検索結果のところで　$msg　を表示するようになっています。
日本語ページの場合は、短文が表示されるのですが、
英文ページの場合、なぜかページの全文が表示されてしまいます。
（むっちゃ長いので使いもんにならん。これはＫＥＮＴさんの元のやつでもそうなる）
初心者のアタマで考えると、
なんで日本語の場合、短文表示されるのかも不思議なんですが・・・。

>>501
subject読み込みの段階からロックしないと、
書き込んでる最中に次のプロセスが読み出そうとしたとき飛ぶ。
それかrenameを使うか。

↑ ﾊｧ(ﾟДﾟ)？？

>>519
なんか間違ったこと言ってる?
http://www2.kiwi-us.com/~j_n/perl/flock.html#01

飛ぶってのは0バイトになる事でしょ？
だったら読み込みなんてロックしなくても飛ぶ訳ないじゃん
renameってのも謎だし・・・

あ、同期取れなくなる可能性はあるよ、そりゃ当然
スピードとのトレードオフでしょ？

プロセスAがsubjectを書き込みopen
↓
プロセスAがsubjectをtruncate(サイズ0バイトになる)
↓
プロセスBがsubjectを読み込みopen
↓
プロセスBがsubjectから読み込み(0バイト)
↓
プロセスAがsubjectの更新終了
↓
プロセスBがsubjectを更新(0バイトになる)
↓
(+д+)ﾏｽﾞｰ

なんか間違ってる? つーか>>520のリンク先見てもここまで
説明しないと分からない馬鹿ぞろい?
rename使ったやり方はtako時代のperl板のどっかにあったから探して。

Perlメモにもあるね。

ああ〜　ちょっとデンパってる？　（・∀・）
＞subject読み込みの段階からロックしないと、
これに対して発言したんですが？
あなたのOSはroでファイル開けても0バイトになるんですか？
いや、私の勉強不足かも知れませんが　（笑
書き込みにロックしなくて何処にロックするんでしょう？？
symlinkでもmkdirでもrenameでもAtmicなシステムコールなら
問題無いと思いますが?
つーか上の方のレス読まずに血管ﾋﾟｸﾋﾟｸさせて書いてそうですねあなた。
発言する前に話の流れを理解しましょ

ああ、ちょっと解ったよ
昨日Perlメモ読んで誰かに教えたかったんだね、うんうん解るよ
そうかロックすればいいのか凄いね、ダブルファイルだねｼﾊﾟカウンタだね
ゴメン、消えるわそう言うのはちょっと勘弁。　

うわ、思いっきり煽ってるし>>525は僕じゃ無いよ。
えっとどうでも良いんだけど、523は>>501には当てはまらないよ
どこで0バイトになるのか得意のフローチャートで良く考えてみよう。
それとリンク貼るのは良いけど、こんな簡単なこと位自分で考えて
書いて欲しいと思った

誰でも知ってる様な事わざわざ間違えた挙句人を馬鹿扱いしてるってのも微笑ましいね
http://pc.2ch.net/pcqa/

こんにちわ。
先日質問スレで書いたのですがこちらの方が適してると思ったので
質問させていただいてもよろしいでしょうか。

KENT WEBのpetit boardを使っています。
プルダウンで地域名、年齢の設定項目を追加しました。
ところが、地域名の方は問題ないのですが、年齢の方が
クッキーがずれるというか･･･
例えば、２０才を選んで投稿すると次回からは選ばなくても
２０才を選んだ状態のになってるはずなんですが、
投稿後、プルダウンメニューは未設定に戻っているんです。
そのまま今度は２２才で投稿すると、投稿後の画面では
プルダウンメニューは２０才を選んだ状態になっています。ずれてますよね。
ここでリロードすると、２２才を選んだ状態になってくれるんですが。

一応、ちゃんと投稿内容にはその時の設定内容がちゃんと反映されてるし
項目も年齢なので毎回変えて投稿するようなものでもないのですが
やっぱり気になります。

その部分のソースはこんな感じです。

<select name=area onFocus=\"this.style.backgroundColor='#000066'\" onBlur=\"this.style.backgroundColor='#000000'\" class=\"form\">
EOM
# 居住地の選択フォームを表示
if ($c_area eq "") { $c_area = '0'; }
foreach (0 .. $#areas) {
if ( $c_area eq "$areas[$_]") {
print "<option value=\"$areas[$_]\" selected>$areas[$_]\n";
} else { print "<option value=\"$areas[$_]\">$areas[$_]\n"; }
}
print "</select>　　 \n";

# 年齢の選択フォームを表示
print "<b>Age</b> <select name=nen onFocus=\"this.style.backgroundColor='#000066'\" onBlur=\"this.style.backgroundColor='#000000'\" class=\"form\">";
if ($c_nen eq "") { $c_nen = '0'; }
foreach (0 .. $#nens) {
if ( $c_nen eq "$nens[$_]") {
print "<option value=\"$nens[$_]\" selected>$nens[$_]\n";
} else { print "<option value=\"$nens[$_]\">$nens[$_]\n"; }
}
print <<"EOM";
</select>

>>529
フォームから送られた値（が有る時は）そっちを使えば？

>>525
>ああ〜　ちょっとデンパってる？　（・∀・）

真性のｳﾞｧｶですか?

>＞subject読み込みの段階からロックしないと、
>これに対して発言したんですが？

そんなことは分かってますが?

>あなたのOSはroでファイル開けても0バイトになるんですか？

その前にプロセスAがtruncateしてるから0バイトになるんですが?

>書き込みにロックしなくて何処にロックするんでしょう？？

書き込みにロックしないなんて誰も言ってませんが?

>symlinkでもmkdirでもrenameでもAtmicなシステムコールなら
>問題無いと思いますが?

いくら書き込みだけをatomicなシステムコールによるロックで囲っても
意味がないと言ってるんですが?

>つーか上の方のレス読まずに血管ﾋﾟｸﾋﾟｸさせて書いてそうですねあなた。
>発言する前に話の流れを理解しましょ

461から全部読んでいますが?
あなたこそ発言する前にレスの内容くらい理解しましょ

>>527
>えっとどうでも良いんだけど、523は>>501には当てはまらないよ
思いっきり当てはまりますが何か?
>発言する前に話の流れを理解しましょ

>どこで0バイトになるのか得意のフローチャートで良く考えてみよう。
あなたが考えてください。

>>531
すいません、perlのことなど全然良く分からないんです、
フォームから送られた値を使うって言うのはどういうことなんでしょうか？

>>534
if ($c_nen eq "") { $c_nen = '0'; } ってのを、
if ($c_nen eq "") { $c_nen = $in{'nen'} || '0'; }
に変える。たぶん。

すいません、質問なんですが
トリップを使えるように改造しようとして

# トリップ________________________________________
{
$FORM{'name'} =~s/◆/◇/g;
$FORM{'name'} =~s/★/☆/g;
$FORM{'name'} =~s/削除/"削除"/g;
$FORM{'name'} =~s/sakujyo/"sakujyo"/g;
$FORM{'name'} =~s/管理人/"管理人"/g;
$FORM{'name'} =~s/管直人/"管直人"/g;
$FORM{'name'} =~s/菅直人/"菅直人"/g;

# トリップ
my ($key,$salt);
if($FORM{'name'}=~/#(.+)/){
$key = $1;
$salt = substr($key."H.", 1, 2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$FLAG{'trip'} = substr(crypt($key, $salt),-8);
}

$FORM{'name'} =~ s/#.*//g;
$FORM{'mail'} =~ s/#.*//g;

if($FLAG{'trip'}){
$FORM{'name'}.=" "if($FORM{'name'});
$FORM{'name'}.="<trip>";
$tripper = 1;
}

$FORM{'name'} =~ s/<trip>/◆<\/b>$FLAG{'trip'}<b>/g;
}

と書いたんですが、
コレだとトリップの値までクッキーされてしまいました。
フォームの値から#以降を取り除けばいいと思うんですが
どうすればいいんでしょうか？お願いします。

クッキーされるってどう言う意味??
トリップってここの◆cryptedword　ってやつだよね
クッキーに書きたいなら先に書けば良いんじゃ無いの？
嫌なら別の変数にいれるとか　

＞537
いや、ネームの値に#tripperとか書くとそれが
トリップに変換されて名前のクッキーに
トリップの変換後の値も含まれてしまうんです。

で、変換前の値、もしくは#以降を削った値を
クッキーしたいんです。

だから変換前に退避すりゃいいだろが
$plaincookiename = $FORM{'name'};
# トリップ________________________________________
.....
クッキーする?所で$plaincookiename を使え
そんなの書けて何で分からんのか

>>534
ごめん。何時でもフォーム優先なら、
if ($c_nen eq "") { $c_nen = '0'; } ってのを、

$c_nen = $in{'nen'} if $in{'nen'};
if ($c_nen eq "") { $c_nen = '0'; }
の二行に変える。($in{'nen'}に入ってれば)

>>538
539の人が言うようにいったん退避させてから#以降を除けば？
$plaincookiename =~ s/(.*)#[^#]+/$1/;
こんな感じ?で。

＞539-540
あ、そうか。
すみません。勉強中なんで。
ありがとうございます。

やっぱ出来ないからあきらめました（ﾄﾎﾎ

>>540さま
ありがとうございます。しかし、やってみたのですが
やっぱり年齢だけselectedが、１つ前の投稿のに
ずれちゃいます。

実際書いて、見てもらった方が早いかもしれません。
よかったら見てみて下さい。まだ何にも公開してないページですので
自由にテスト投稿していただいて構いません。
http://www.chel-c.f2s.com/cgi-bin/b1/bbs.cgi

>>543
テスト投稿じゃ分かんないよ…。
select name=nen だから勘で答えちゃった。ごめん。
スクリプトをテキストでアップしてリンクを張れば、
もっと沢山の人が見てくれると思うよ。

初めて投稿します。
http://www.cs-w.com/~escort/estimation.txt
これを
http://www.nakagawachi.co.jp/cgi-bin/b8.cgi
のようにしたいと思います。

>>545
勝手にしろや

>>546
おいおい、冷たいやつだな。
そんな対応してるから人が居なくなるんだよ。

>>545
そうか、頑張れ！
応援してるからな！

>>547
勝手に応援しろや（ｗ

>>544
そうですよね、尋ね方が曖昧ですいません!!
というわけでアップしてみました。
http://www.geocities.co.jp/Stylish/6116/bbs.txt
です。私もよく分からずになるべく変に触わらぬようにはしましたが
むりやり他のスクリプトを組み合わせるように改造したので
とんでもない文法になってるかもしれませんが、ご容赦を･･･

もしよければ見てみてください。

あと、テスト投稿してくれた方がいて気付いたのですが
ホスト名が皆、127.0.0.1(localhost)になるのは
何故なのでしょうか。無知で全く申し訳ないです。

BBSにアドバイス書いてるじゃん、、
全部元にもどして
# ログ書き込み処理 #
の一番下に
print "Location: http://www.chel-c.f2s.com/cgi-bin/b1/bbs.cgi\n\n";
って書け、
どうせそのうち、リロードすると二重投稿になって困ってます！！！って言うんだから

ごめんなさい（涙
BBSのアドバイスありがとうございました。すごいありがたかったのですが
しかし私の理解が追いつかなくて何と答えていいものかわからないだなんて
申し訳なくて穴があったら入りたい勢いです･･･

全部元に戻すというのは、>>540のレスなどを参考に書き直した箇所を
元に戻せばいいんでしょうか？
リロードは、二重投稿になっちゃうので「READ ME→掲示板に戻る」とかで
やってるので大丈夫です（見当違いなレスでこれまた申し訳ないっす･･･）

>>551
ソース見たよ。%inじゃなくて%FORMだったんだね。
いやあ申し訳ない。で、手直し。

348行目に入れた、
$c_nen = $in{'nen'} if $in{'nen'};
を削除。これで元通りになるよね。

次に1466行目の
if ($FORM{'nen '}) { $c_nen = $FORM{'nen'}; }
これを↓こう変える。
if ($FORM{'nen'}) { $c_nen = $FORM{'nen'}; }

違いは$FORM{'nen'}に半角スペースが入っているかどうか。
これで望み通りになるよ。

あれから色々やったけど　ついに
飛ばなくなったぞーーーーーー！！　これまで溜まっていた便が大放出！！
すっきりした　感動した！

すいません、「こんなcgi探してます」スレで聞いたんですが
なんだか幽霊みたいなスレなんでこっちで聞かせて下さい。

ttp://www.alived.com/blue/
このサイトのTOPページにある簡易投票cgiとほぼ同様のものが欲しいです。
このサイトで使われているcgiを拝借してスクリプトを覗いたところ
著作権表示など無かったのでここの管理人さん独自に作成したものだと思います。
パクるのは良くないのでこれと同じものがフリーで配布していればいいのですが。
仕様の条件は、上記のサイトのようにhtmlの中の一部に表示できて
cgiを飛ばしても今のhtmlページは再読み込みしない。
自分でも今探しています。御願いします。

削除やスレッド移動等したら、大部分のファイルが消えてしまう事が
あるんですけど、削除スクリプトも例のあれをコピペして書き換えないと駄目？
よくわからんです。

あ、４６１たんだ
つーか久しぶりに来たらえらい騒ぎになってる（汗；
ゴメンねー、結構大きいファイルと思ったからまさかオンメモリにしてるとは
思わなかったよ(;´ω`)　慣れない事するもんじゃ無いね、反省してます。
ちゅう事で518氏は正しいので、反論されてる方は確認されたし
スレッドが消えるのは困ったねー、また話に乗ろうか？（笑

>>556
あれ以来飛ばなくなって、すっきりしてたんですけど
複数スレッド削除したり移動したりすると、datファイルが
サーバー上からほとんど消えて、スレッド一覧には同じ個所に複数リンク
する状態になります

seek SUBW,0,0;
truncate SUBW,0;
これは、ない方が良いのかな？無い方が調子良いような・・・・
それともサーバーが中途半端に、バグってるのかな？

ぼっとチャットでデザインや機能が気に入る物がないので
普通のチャットにぼっとを入れたいのですが

ttp://www.ct.sakura.ne.jp/~e_e/yuichat/yui.shtml
ttp://dream.lib.net/room/cgi/e_lchat.html

Light chat にゆいぼっとを組み込みこもうとしたんですが
皆目見当がつきません。

識者の皆様私はどうしたらいいでしょうか
よろしくお願いいたします

お絵かき掲示板の改造について詳しいことが書いてあるスレなどありますか？

というのは、お絵かき掲示板で絵にタイトルをつけたいんですが
なかなかうまくいく方法が見つかりません。

>>558
ttp://dream.lib.net/room/cgi/s_lchat.html
見た目がこんな感じでぼっとを入れたいってことですか？
だったらゆいちゃっとをこういうデザインに改造した方が
よっぽど楽だと思いますけど･･･

>>560さん

ありがとうございます。デザインだけなら良いのですが
ROMがわかるようにしたり、「こっそり入室」の機能を取り入れたりしたいです。
削るだけならともかく　機能を付け足すのができないので模索中です。

ゆいぽすと、ゆいぼーど
がほしいのですが、お持ちの方ゆずっていただけませんか？
お願いします。

>>562
配布中止／配布元不明スクリプトが欲しい人はダウンロード板へ
http://pc.2ch.net/download/

>fifnelさんのスクリプト（2ch風）
>http://dx.sakura.ne.jp/~fbrand/fifnel/app/yybbs_2ch_12.lzh

のYYBBS改造版を使用してレス数に制限を付けるにはどうしたらいいでしょうか？
レス数が50（例えば）になったらそのスレッドは書き込めなく・・みたいな感じです。
よろしくお願いします。

if($rescnt < $maxresnum) {&disp_resform}
else {print "このスレッドには書けません";}
って感じ?

>>565
ちょっと分からないです（いや漏れがアホでｗ）
返信フォームの
＞while (<IN>) {
内に追加すればいいのかなと言うくらいしか分からないです。
すんません。
この場合レス数を別途格納（rescntに？）しておく必要があるのでしょうか？

http://www.geocities.co.jp/Bookend-Ryunosuke/5174/yybbs.txt
テキストをageました。
どうぞよろしくお願いします。

>>564
(1)「レス」ボタン自体表示させないのか
(2)レスを送信したときに書き込めないってエラーを出すのか
どっちの仕様で？

(2)ならregistの中で
if ($in{'reno'} > $max) { &error("これ以上レス出来ません無理"); }
とかで弾けそう

(1)ならhtml_logでこんな感じ？
$maxはどっかで決めといてね

# ﾃｰﾌﾞﾙ表示するﾙｰﾌﾟ
foreach(@data){
　# 略
　if($reno eq ""){
　　if($topic_num){
　　　$res_count_list{$topic_num} = $res_count; # <= 追加
　　　print "<a href=\"#topic_$topic_num\">[<b>$topic_num</b>] : $topic($res_count)</a>　\n";
　# 略
}
$res_count_list{$topic_num} = $res_count; # <= 追加
print "<a href=\"#topic_$topic_num\">[<b>$topic_num</b>] : $topic($res_count)</a>　\n"
　if($topic_num);

# ｽﾚ表示するﾙｰﾌﾟ
foreach(@data){
　# 略
　if (!$reno) {
　　if ($res_count_list{$no} <= $max) { # <= 追加
　　　print "<form action=\"$script\" method=$method>\n";
　　　print "<input type=hidden name=mode value=res>\n";
　　　print "<input type=hidden name=no value=$no>\n";
　　　print "<input type=submit value='返信'></td></form>\n";
　　}
　}
　# 略
}

>>568
あ、タグ削っちゃったかも
適当に直してください

>>567
（１）の仕様の方が良さそうなのでそっちでやってみました。
んで、無事レス数を制限することが出来ました。
Thanks！
マジ感謝っす。

tackyさんの日記帳を
tackynote2をトクトクで使ってます。
右の日記表示フレームでバナー広告を使い、
左のフレーム（カレンダー側フレーム）の広告を
popupにしたいのですができますか？

>>571
>>1を読んで出直してきたほうがいいよ。

>>572
スレ違いですか？
もしこのスレでいいなら
これからスクリプトをアップしようと思っていますが。

トクトクに聞いてください

ものすごい初歩的な質問だったらすいません。
ＫＥＮＴさんのYYBBSのレスや親記事などの文字のサイズを変更したいのですができますでしょうか。
よろしくお願いします。

全然面白くないから帰っていいよ　０てん
じゃっ

じゃっ

>575
yybbs.cgiをメモ帳で開いて、編集→置換を選択
上の欄に
<center>
下の欄に
<center><font size=7>
と入れて「すべて置換」をクリックすればよい

前時代的なメモ帳には置換機能がありません

前時代的なメモ帳って何？

＞580
エンピツやらでしか書けないメモ帳だろ

578さんありがとうございます。
でさっそく試してみたのですがメモ帳に置換機能がなかったのでviviを使って置換してみました。
ですが、上部にあるリンクなどの文字は小さくなったのですが、レスや親記事の文字は変化がありませんでした。
やはりメモ帳でなければいけないんでしょうか？
レス頂けると嬉しいです。

>>582
# 本文の文字大きさ（ポイント数:スタイルシートで有効）
$b_size = '10pt';
↑この数字を変える。

と言うか、ネタは他でやって欲しい…。

583さんレスありがとうございます。
調べてみてやっと意味が判ってきました、最新バージョンにはちゃんと文字の大きさを変える設定があるんですね。
すいません確認すべきでした、ネタじゃないです。

本来ならそれにすべきなんでしょうが、バージョン4,5以前のｙｙＢＢＳの文字をどうしても変えたいんです、バージョン4,5には文字の大きさを変える設定部分がないんです。
無理でしょうか？

4.5に変えれば良いじゃん
HTMLは分かる?、だったらBBSを表示してfontタグ入れたい辺りを
適当にコピーして、ソースからその部分を検索してタグを入れれば良いよ
" を書きたい時は \" と書こう。

>>584
無理じゃない。でもソースが無いと具体的に答えられる人は居ないだろう。

585さん何とかできました、まだまだ変な所の文字が小さくなってしまい研究課題が多いですが、とりあえずありがとうございました。
あとその改造をした場合過去ログの生成とかに重大な問題とか発生しませんよね？、ちょっと怖くて。

586さん用意してみます。
txtをアップできる場所を探してきますね。

ttp://www.videoch.f2s.com/source/166.txt

アップしました、これの親記事とレスの文字のサイズだけを変えたいんです、どうしてもこのバージョンがいいのです。
よろしくお願いします。

KENTさんとこのYYBBSに掲示板ヘッドラインを付けたいのですが
これだけ書き加えれば大丈夫みたいなソースは無いでしょうか？
また、それを外部HTMLファイル（例：index.shtml）に呼び出すことは可能でしょうか？

教えてちゃん系になってることは十分承知なのですが過去ログ見てもさっぱりわからなかったので
お願いできませんか？
一応yybbs.cgiの初期設定状態でのファイルをtxtにして上げておきます。
http://web-ryuu.virtualave.net/yybbs.txt

宜しくお願いします。

>>590
＞ヘッドラインを付けたいのですが
「>>566」のソース見てみ
まだ消してないみたいだし

>>575
こういう時は直リンでいいと思う。。
「html_log」で2箇所変更

foreach ($page .. $page_end) {

　print "<table border=0 cellspacing=0><tr>\n";
　print "<td>[<b>$num</b>] <font color=$sbj_color><b>$sbj</b></font></td>\n";
　print "<td width=10></td><td>投稿者：<font color=$link><b>$name</b></font></td>\n";
　print "<td><small>投稿日：$date</small></td><td>$url</td></tr></table>\n";
　print "<blockquote><font color=\"$color\" style=\"font-size: 10pt;\">$com</font></blockquote>\n"; # <= 変更

　## レスメッセージを表示
　$flag = 0;
　foreach $line (@lines) {

　　print "<table border=0 width=100% cellspacing=0><tr>\n";
　　print "<td><font color=$rc><b>$rname</b> ＞ <span style=\"font-size: 10pt;\">$rcom</span>"; # <= 変更
　　print "<small>($rd)</small></font></td></tr></table>\n";

　}

}

>>590
有り難うございます。
何とかやってみます。

すいません　これをいじりたいんですが

ttp://dream.lib.net/room/cgi/e_lchat.html

名前を入れないで入室するとIPが名前の代わりに表示されますよね
これを　名前もアドレスも入れないとエラーで入れないようにしたいんですが
どうしたらいいでしょうか。
よろしくおねがいします！

>>594
あんたもしかして、ささ？

そういう名前で呼ばれたことは無いです...。

＞拡張子".txt"でアップすればなお良し

592さん、できました、どうもありがとうございました。
なんだが感動だなー２ｃｈでこんなに優しくされた事ないです。
できるなら何か御礼がしたい気分です

>>461
漏れのスクリプトの修正個所を教えておくれ

もうケーブラーを弾くぐらいのproxy排除スクリプトを教えてくれませんか？

タグ使用不可のｉモードのチャットがあるんですが。。
タグをつかえるようなわざはありますか？

>>461
さんざん答えてもらってるじゃん？
まだ未解決ならその部分を教えてくれ
イチイチ話追ってらんないし

ゆいちゃっと2000で、ROMさんがいたら、
ソースの中にコメントとして表示させたいのですが、どうやってやるのか教えてください。

In article >>603, 名無しさん＠お腹いっぱい。/603 wrote:
>ゆいちゃっと2000で、ROMさんがいたら、
>ソースの中にコメントとして表示させたいのですが、どうやってやるのか教えてください。

どこの方言でしょうか？　ねこみみです:)

ねこみみ？

ここにも来やがった　（´д｀；）

>>1
『改造クン』とかいう引きこもり精神病の電波小僧
(現在2ﾁｬﾝﾈﾗｰ)が運営している最低なHPスペースです。
ユーザーの事など全く考えずに、こづかい稼ぎだけが目的で営利主義に走ってやがります。
天罰を与えてやりましょう！！
イタズラ登録をしまくって下さい。悪用しちゃってもいいですよ！！
鯖に負荷かけまくって責任とらせるってのも面白いかも(ﾌﾟ

http://k-server.org/　http://k-server.org/　http://k-server.org/
http://k-server.org/　http://k-server.org/　http://k-server.org/
http://k-server.org/　http://k-server.org/　http://k-server.org/
http://k-server.org/　http://k-server.org/　http://k-server.org/


この文章のコピー・転載を歓迎いたします。

ふーん

ttp://www.geocities.co.jp/Bookend-Soseki/5601/random.txt

↑はランダムにテキストを表示するスクリプト（入手先失念）なのですが、
.docomo.ne.jp等の携帯からのアクセスにだけ動くようにするにはどのようにすれば良いでしょうか？
ご教授願います。

こう書くと携帯のとき$mobileが「1」になるから
それを使って分岐
他の携帯はどっかでuser-agent調べて追加してね

$mobile = 0;
$agent = $ENV{'HTTP_USER_AGENT'};
if ($agent =~ /^DoCoMo/i) { # i-mode
  $mobile = 1;
} elsif ($agent =~ /^J-PHONE/i) { # J-SKY
  $mobile = 1;
} elsif ($agent =~ /^UP\.Browser/i) { # EZweb
  $mobile = 1;
}

>>610さん　レスありがとうございます。
早速試してみた所　無事動かす事ができました。感謝してます。

ttp://www.midnightroam.org/text/kai1_23.txt

↑のスクリプトなんですが、レスでageないようにするにはどうしたらいいでしょう？
個人のHPに使うので、ageなくても良いんですよ

あっそー

「res」の後ろの方

# foreach (0..@lines) {
# 　my($mno,$mnum,$mres_num,$mdate,$mname,$msubject...（後略）
# 　if ( ($res_num eq $mnum) and ($mres_num eq '') ) {
# 　　splice(@lines, $_, 1);
# 　　unshift (@lines,"$new_code<>$regist_num<>$oya_num<>$res_name<>\n...（後略）
# 　}
# }

上の部分を消して（一応コメント化）、次を追加

unshift(@lines, "$new_code<>$regist_num<>$oya_num<>$res_name<>\n");

で逝けるような

http://pc.2ch.net/test/read.cgi/php/1000804655/
このスレから来たのか（ｗ

米塩の広告であったようなウィンドウみたいなものをページの中に作って動かしたり最小化させたりしたいのですが、
その、米塩の広告のあるページが見つかりません。
どなたかご存知ですか？

ﾊｧ？何星人だおまえ

バルタン星人

http://pc.2ch.net/test/read.cgi/php/992473384/107
↑の107です。

自分のIPアドレスは記録無視して来客のIPアドレスだけログ取るのって出来るんでしょうか？
そういう機能の付いたアクセス解析もあるそうなんですけど、今のとても気に入ってるんで
改造してそういう機能を付加していただけないでしょうか、お願いしますm(__)m

ソースは↓です、at-worksさんという方の作でこれの源流はKENTさんのやつらしいです。

ttp://www.din.or.jp/~himura/at-works/access/download/access.lzh
----------------------------------------------------------------

#!/usr/local/bin/perl

#=====================================================================
# access cgi アクセス情報取得ファイル report.cgi (2001/12/11)
#---------------------------------------------------------------------
# Original Script
# Access Report v2.0 (2001/04/01)
# アクセス解析システム
# Copyright(C) Kent Web 2001
# [email protected]
# http://www.kent-web.com/
#---------------------------------------------------------------------
# modified by himura
# access cgi ver.1.90 (2001/12/11)
# mail： [email protected]
# site： http://www.din.or.jp/~himura/at-works/
#---------------------------------------------------------------------
# ログデータ構造："NO , DATE , REF , USER_AGENT , PIXEL , HOST , ADDR , DOC , "
# データログ構造："DATES , ACCESS , "
#=====================================================================
# 環境設定

# 設定ファイル
require './access.ini';

# チェック用リスト
require $checkpl;

JavaScriptのアクセス解析なら、ブラウザの機能切っとけば集計には入らないとか？
http://pc.2ch.net/test/read.cgi/php/992473384/3

いまめっちゃ長いことに気づいたんですけどこのまま貼っていって良いのかなぁ・・・もし気に障ったなら途中で止めますんで一言お願いします
-------------------------------------------------------------------------------------------------------------------------
#=====================================================================
# UserAgent 情報を取得

$user_agent = $ENV{'HTTP_USER_AGENT'};
$user_agent =~ s/</</g;
$user_agent =~ s/>/>/g;

# UserAgent のチェック
if ($user_agent) {
foreach (@killua) {
if ($_ eq '') { next; }
$_ =~ s/\./\\./g;
$_ =~ s/\?/\\?/g;
$_ =~ s/\+/\\+/g;
$_ =~ s/\*/\.\*/g;
if ($user_agent =~ /$_/) { &putimage; }
}
}

#---------------------------------------------------------------------
# cookie チェック

if ($cookie_check) {

&cookie_get;
$co_check = time - $cookie_check * 60;
if ($get{$cookie_name} > $co_check) { &putimage; }

}

>>620は何をやりたいんだか

>>622
いいかげんにしろ。圧縮してどっかのあぷろだに上げればいいだろが。

>>621
出来ればCGI側の機能で取らないようになってたらありがたいです。
素人考えですけど↓の部分じゃないのかなぁとか思ってるんですが・・・
-------------------------------------------------------------
#---------------------------------------------------------------------
# ホスト情報を取得

unless ($x_forwarded) {
$host = $ENV{'REMOTE_HOST'};
$addr = $ENV{'REMOTE_ADDR'};
} else {
$host = '';
$addr = $ENV{'HTTP_X_FORWARDED_FOR'};
}

if ($get_remotehost) {
if ($host eq '' || $host eq $addr) {
$host = gethostbyaddr(pack('C4', split(/\./, $addr)), 2);
}
}

if ($host eq '') { $host = $addr; }

# 除外 host のチェック
foreach (@myhost) {
if ($_ eq '') { next; }
$_ =~ s/\./\\./g;
$_ =~ s/\*/\.\*/g;
if ($host =~ /$_/) { &putimage; }
}

>>623-624
あ、やはりそうなんですか。すいません。出直してきますm(__)m

圧縮っつうか問題のソースだけ拡張子.txtで上げてくれるとベスト
ソースが複数あるとか、どれなのか判断できないならアーカイブでもいいけど。。

本当にすいませんでしたm(__)m
全部読み返したら本当に恥ずかしい。

ソースは配布元のリンク一応張ってたんスけど
ttp://www.din.or.jp/~himura/at-works/access/download/access.lzh

他スレhttp://pc.2ch.net/test/read.cgi/php/992473384/108の
108さんが教えてくれたのですこし自分で考えてみようかなと
分からなかったらまた来ます、マジすんませんでした。

（　´�D｀）ノ＜ばっちこーい

ttp://www.rescue.ne.jp/cgi/i-sho/にある
姓名相性診断スクリプトttp://www.rescue.ne.jp/cgi/i-sho/i-sho.txtで
占った名前のログをとるようにすることってできますか・・・？

>630
できます・・・！

>>631
どうやればできますか・・・？

萌え萌えお宝画像満載♪
http://muvc.net/taron/index.html

友人を引っ掛けてやりたいんです。

ファイル入出力ぐらい勉強してやれ

>>635
すいません。
分かりやすいサイト等ありましたらぜひお教え下さい。

このスレの1から読んでみよう
http://pc.2ch.net/test/read.cgi/php/1003900311/

>>566が上げていたヘッドライン付きYYBBSってどこかにないですか？

＞「こういうふうにスクリプトを改造したいけどやりかたわかんないよー」
＞という人がいましたらここで聞いてください

AskaBBSをツリー表示にするやり方を教えてください。
http://www.kent-web.com/bbs/aska.html?
こんな掲示板です。お願いします。

>>640
素直にツリー型の掲示板を使おうYO!

>>640
アドバイス有り難う御座います。
ですが、ツリー型のものと現行のものを使い分けたいという理由と
ログをどうしてもリセットしたくないという理由がありまして...。

ログのフォーマット変えなきゃツリー型には出来ない

>>643
いや、出来るね。そこまで面倒なことしたくないから作らないけど。
INDEXの表示しだいじゃないの？デザインっていうのか（藁

参考になりそうなプログラムがあがってきそうな予感がするのでage

出来ないって、
バカ？

６４４＝ﾊﾟｶ

ﾊﾟｶ＞＝６４４＝ﾊﾟｶ

できなくは無いと思うが・・・

すまん。よくみたらログにはコメント先の発言番号は残ってないのね・・
だから re:[XX] をパースしてログを変換しないとダメだった。
それだったら他のツリー形式の掲示板にログを変換するのと
あまり手間が変わらない気もするね。

KENTのPetitBoardに新記事のマークを付けるにはどうしたらようのでしょうか？？

えっと、自分で言っといてアレだけど出来ない事は無いけど
簡単には出来ないよ、と言いたかっただけ
ツリー状にするなら深さにしても幅にしてもターミネータ入れたり
しなきゃなんないから、最悪ログ２つ作れば良いんだけど
きっぱり否定すれば>>644みたいな人が現れて、改造してくれるかな
と思ったから言ってみた　(笑)
６４４は僕じゃ無いよ、煽りはいやん

６４４は僕じゃ無いよ、煽りはいやん
　　↓
６４５は僕じゃ無いよ、煽りはいやん

間違えた・・・

あっそー

>>650
ソースうｐすれ

うｐって何すか？　うぴ？

ソースが長すぎて。。。

６５５はｷﾁｶﾞｲ　藁

だれかきちがいから抜け出させてくれ♪
キャラがｷﾂｸﾃしょうがない。

ﾋﾞｮｳｲﾝﾆｶｴﾚ!!（・∀・）

よしよしモナーがかわいいね。

うんうん

この板って10人くらいしかいないのかなぁ？常連さん。
なのにみんな不機嫌そうだよね。
きっともうすぐ正月休みも終わっちゃうのに結局なんにもできなくって
いらいらしているんだね。

世の中にはいろんなﾊﾟｸﾘｶがある。
デザイン。キャラクター。毛つげの処理方法教えれ。
よし俺が教えてやる。

これは実話にそって説明していくのでリアルタイムにやればいい。

鏡を床に(畳)等に置く。
そっと自分の肛門を見る。

ここまではいいだろう。ここからが問題だ。。。

まず。剃るとアナルまで剃り落としてしまう危険がありますから、
鼻毛切りバサミなどを用意して構える。

鏡越しに丁寧に１本ずつ切っていく。

これをものすごい眼力と集中力でやりとげる。
似たような方法で毛抜きを使う手があるがあれは非常に痛いのでやめておいた方のがいい。

以上_____________

おれは20歳だ。etc...

休み中は仕事中にやってる人が減って学生とかが増えるからねぇ

ﾊｧﾊｧそうですね。

666。

>>650
これか？
http://www.kent-web.com/bbs/petit.html

で、新記事のマークって何よ？

Cookieに最終訪問日時食わしておいて毎回新しい記事を
表示させるのか？　めでてーな。

あ、あのーそれで教えて頂けるのでしょうか。。。

カネ次第かな

地獄の金も沙汰次第。

ふーん。

>>668
ていうか、どっかでこれと全く同じ質問に対する回答を見たよ。
どこだっけな？(笑)

バカじゃねぇのだれが気にするか。

で、なにこの糞レスの山
恥ずかしくないの？

>>674
過去は振り返らないタイプ。

http://www.torworld.com/ ここにある振り分けCGIってのを設置する際
CGIにアクセスするのではなく　index.htmとかに貼り付けて自動で実行する方法をおしえてください。

最近のI-modeに対応するべくページは作ったけど
今までのIndex.htmで検索エンジンとかに登録してしまったので自動で振り分けをhtmへの記述でできないかなぁと。
そのほかの方法もいくつか試しては見たけれどうまくいかなくって；；

無知すぎるじぶんがイタイ。。

>>676
index.htmはリフレッシュタグで一瞬にして振り分けcgiへ飛ぶ。
振り分けcgiから、携帯用、PC用の各ページにいってもらう(自動的に)
そこの掲示板で聴けばいいのに。

>>676
念のため。

<META HTTP-EQUIV="Refresh" CONTENT="1">
とか、そういう感じね。

ttp://211.10.20.35/~01/surface/の掲示板スクリプト(apeboardと同じようなスキンタイプ）に
画像アップロードの機能を付加させる事は出来ますでしょうか。
http://www.geocities.co.jp/SiliconValley-SanJose/3126/surface.txt←スクリプトのソース
http://www.geocities.co.jp/SiliconValley-SanJose/3126/design.html←メインのスキン

age

なんとかすれば　できるのですね。　ありがとうございます。
あとは　自分で調べて　だめだったらあそこのHPででもきいてみます。

と思ったら、　I-modeからだとリフレッシュタグがちゃんと動かないんですが
私の間違いでしょうか？ 「指定サイトが移動しました」っていってきちんと飛ばないんです。

<META HTTP-EQUIV="Refresh" CONTENT="1;URL=http://www.yyy.ne.jp/~xxx/furiwake.cgi">

あってるかだけでもいいんで　教えてください。

>>682
うはっ。ﾏｼﾞﾃﾞｽｶ。
それ以外の方法はないと思うよ。

一つだけ、htmをcgiとして.htaccessに登録する方法あるけど、
(ふつうのhtmlは、拡張子.htmlを使う)
そこまでしてやる必要があることなの？

.htaccess 使えるなら Redirect で良いだろ

>>684
そうだった(笑)

joyfulnoteの添付ファイルをコメント
の下部に持ってくるためにはどこを書きかえれば
良いかご存知の方おりましたら教えて下さいませんか？

Error:回答する人間に必要な情報が足りません。
Global symbol "joyfulnote" requires explicit package name at /php/988808396/ line 686.

http://www.kent-web.com/support/wforum.cgi?mode=allread&no=6414&page=0

これを、PATH_INFO形式に対応させて欲しいのですが、
どなたかお願いします。

#!/usr/local/bin/perl

if ($ENV{'REQUEST_METHOD'} eq 'GET'){
$url = $ENV{'QUERY_STRING'};
}elsif ($ENV{'REQUEST_METHOD'} eq 'POST'){
read(STDIN, $url, $ENV{'CONTENT_LENGTH'});
}else{
print "Content-type: text/plain\n\n";
print "エラー";
exit;
}

print "Content-type: text/html\n\n";

print qq!<HTML>!;
print qq!<HEAD><META HTTP-EQUIV="Refresh" CONTENT="0;URL=$url"></HEAD>!;
print qq!<BODY> ジャンプ : $url</BODY></HTML>!;

@path = split(/\//,$ENV{PATH_INFO});

これで@pathに入るから後はご自由に。

うー、うまく逝かない・・・
できればもう少しヒントを・・

>>691
まぁお前みたいなヤツはJavaScriptでも使ってなさいってこった。
usage : ttp://hogehoge.com/jump.html?http://www.2ch.net/

jump.html
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<Script Language="JavaScript">
BITPATH = location.search.substring(1, location.search.length);
document.write("<META HTTP-EQUIV=\"Refresh\" CONTENT=\"1; URL=" + BITPATH + "\">");
</Script>
<TITLE>転送!!</TITLE>
</HEAD>
<BODY>
ジャンプ！
</BODY>
</HTML>

え・・Javascriptは勘弁してください・・・

<A href="next.cgi/dir/path_info.cgi">ホットテキスト</A>なら
$ENV{'PATH_INFO'}の値は /dir/path_info.cgi になり、
JavaScriptを使わないなら必ず$ENV{'PATH_INFO'}はGET送信されるので
($url= $ENV{'PATH_INFO'})=~ s/^\///;

現在、KENT-WEBのYY-BOARD湯一路改造バージョンを改造しているのですが、↓のURLのようにするには何を変えれば良いんでしょうか？
ttp://ffact.com/bbs/yybbs.cgi

質問の仕方

質問です。
リモホを２つ前から取りたい場合は、どこを改造すればよいのですか？
教えてください　お願いします！

$remote_host = $ENV{'REMOTE_HOST'};
$remote_addr = $ENV{'REMOTE_ADDR'};
if($get_host_mode && ($remote_host eq '' || $remote_host eq $remote_addr)){ $remote_host = gethostbyaddr(pack('C4',split(/\./,$remote_host)),2); }
if($remote_host eq ''){ $remote_host = $remote_addr; }
foreach (@deny_host){
if($_ ne '' && $remote_host =~ /$_/){ &put_image(); exit(); }
}

２つ前ってどう言う意味
どうせ飛んでも無い事考えてるんだろ、やめとけ

>>694
どうもありがとうです。
動作しました。

>>698
２つ前ってなんだろうね？(笑)
とか思いつつ700。

「トップとメニューのどちらでもリンク可」にしているので、
どちらのアクセスでも必ず通るメニューにアクセス解析を置くとなると、
１つ前（リンク元）ではトップも含まれてしまうので、２つ前から取れればいいな〜と思っただけです。
笑うようなことだったのですか・・・ハァ。
でも２つ前からリンク元のログ取れる奴発見したので、とりあえずありがとうございました。ぐーぐる。

それはHTTP_REFERERとかじゃ無いかい？
それと2つ前のリンク元を送る変数はIEやNCには無いと思うよ。
・・・・って
>でも２つ前からリンク元のログ取れる奴発見したので

んー、それはクラッ・・ﾓｺﾞﾓｺﾞ　

板ちがいだったので
http://pc.2ch.net/test/read.cgi/php/1009331505/l50
からこちらに来ました。

Yomi-search ver4.19なんですが、
ランキングとかをＳＳＩで１部だけ表示することは可能らしいんですが、
初心者なのでどう記載すればいいかわかりません。

どなたかご教授ください。

age

>>703
>>1参照のこと。

ttp://ice.prohosting.com/pinkbook/cgi-bin/file/yomi.cgi
完成イメージは
ttp://www.click2k.net/
の新着表示のような感じです。

デザイン抜いてです。

txt形式でなんとなくと言う感じのファイルをアップしておきました。
ttp://ice.prohosting.com/pinkbook/cgi-bin/txt/

まだ必要なファイルがあればすぐにアップします。
よろしくお願いします。

705には無理だと思う。

また追加しました。
http://ice.prohosting.com/pinkbook/cgi-bin/txt/log/
と
http://ice.prohosting.com/pinkbook/cgi-bin/txt/template/
です。

ちょっと待て、全然意味が分からんぞ
まず普通CGIの出力からSSIを呼ぶ事はしない(と言うか出来ない)
そのYOMI何とかがhtmlを生成して、そのhtmlでSSIを使う様に改造したいのか
自分の書いたhtmlにYONI〜〜を埋めたいのか
もうちょっと分かりやすく書いてくれ
意味が分かったらやってやる

http://www.kent-web.com/data/navi.html?
↑のURL登録検索システムをＵＲＬの記入場所を<input type=file>にして圧縮ファイルを添付できるようにしたいのでが、やり方がよくわかりません。（いちお。添付ファイルを保存するためのフォルダ作っときました。）

▽サンプル画面
http://www.kent-web.com/pubc/navi/sample.cgi
▽text
http://www.geocities.co.jp/Bookend-Hemingway/6045/navi.txt

>>709
えーと。
Yomi-searchはtop.html
と言うファイルをTemplateファイルとして読み込んでいます。

そこで、そのtop.htmlにSSIを埋め込むのは無理でしょうか？
イメージは
http://ice.prohosting.com/pinkbook/cgi-bin/
です。

もし無理でしたら、
トップページをHTML形式で表示できるますので、
１度HTML形式で保存した後にSSIを呼び出すと言う感じで
やりたいと思っています。

トップページをHTML形式で表示できるますので、
すいません。間違えました。
トップページをHTML形式で表示できますので、
でした。

>>712
ちょっと設置してみたけど、それなら改造しなくて良いんじゃないか
SSIで呼ぶのは全然関係無いCGIなんだよな??
それなら、管理画面でトップページをHTML吐き出しにして
次に、テンプレートファイルの編集、でtop.htmlを書き換えればいい
例えばranking.cgiを呼びたいなら、適当な位置に
<!---exec cmd="./ranking.cgi"---> と入れてやれば良い

ちょっと気になったが、こいつはファイル書き換えや新規作成の成否
を見てないから、更新しました→実際は更新されてない、となる
可能性が有る。
その手のトラブルは９９％パーミッションだから、甘めにしてテストするか
出来たらsuidなサーバでやってみれ

HTMLが派生しまくってるんで、まともに読んでないが、
改造するより、色々やって使い方理解した方が良いんじゃないか

2ch猛威を振るう宣伝業者の書き込みを撲滅すべく活動し
ております。Q2接続プログラムの解析、関係団体へのメール等、ランキングクリックに
よる宣伝業者へのアクセス数減少と人手はまだまだ必要です。
現在、悪徳業者の掲示板のしぶとさに困っております。
WEBプログラム板の皆さんの技術を貸していただけないでしょうか。

下記のスレをご覧の上で、ご協力戴ければ幸いです。
「■ 悪徳宣伝業者の画像や動画をばらまくスレ２ ■」
http://wow.bbspink.com/test/read.cgi/ascii/1010876229/

>>713
ありがとうございます。
お手数お掛けしました。

やはりそうですか。
なんとなく思い浮かんだのでそれを１度試してみます。

kentwebのcomchatの最新バージョンなんですけど、
これの参加者表示機能って以前の物とは違ってて
従来のＲＯＭ人数表示機能の改造方法ではだめなんですよね・・・。
なにかうまいやり方ありませんか？

う〜ん・・・・

http://www.big.or.jp/~talk/t-club/soft/index.html の
imgboard v1.22.Rev6なんですが、
拡張子と中身が違うファイルをアップできないように改造できないでしょうか。

アップされたファイルの頭数バイト読み込んでヘッダ見れば可能
GIFならGIF89a
PNGなら臼NG
JPEGならJFIだっけ？

ああ、それじゃ偽装できるか。
&error("それ何のファイル?") if 0 <= index($data,"script");
scriptという文字列がファイルの中に出てきたら胡散臭いからエラーとか。

データファイルにメールアドレスが数十件入ってます。
掲示板に投稿があった時、それを読み込みBccにセットして
メール送信する場合、アドレス何件くらいまでなら、問題なく
送信可能でしょうか？100件くらいなら大丈夫？
ちなみに共用サーバではないです。

>721
3000件くらいだったらやったことある。　
掲示板のサポートメールで。

http://www.kent-web.com/bbs/joyful.html
KENTのJoyful-Noteで、親記事最大10とかに設定しても、そこまでいかないうちに消えちゃいます。
なんかレス記事もカウントされてるような感じなんですけどどこが悪いのかわかりません。
なんとかなりませんか。

＞なんとかなりませんか。

そんなのKENTに言えよ・・・

>>722
そんな数まで大丈夫ですか？
ちょっと恐いですな・・・

>>723
ﾌﾟｯ

これですね。なにかいい改造の仕方、ありませんか？
sub member {
open(IN,"$memfile") || &error("Open Error : $memfile");
@data = <IN>;
close(IN);

$member="";
@new=();
$flag=0;
$flag2=0;
foreach (@data) {
($time2,$name2,$host2) = split(/<>/);
# 60秒以上発言のない者は削除
if ($times-60 > $time2) { next; }
elsif ($host2 eq "$host") {
# 退室者は削除
if ($_[0] eq 'bye') { next; }

# ホスト名が同一であれば時間と名前を更新
$_ = "$times<>$in{'name'}<>$host<>\n";
$name2 = $in{'name'};
$flag=1;
}

# 更新用配列 @new に追加
if ($name2 ne "$host2") {
push(@new,$_);

# 参加者表示用文字列を作成
if (!$flag2) { $member .= "$name2◇"; $flag2=1; }
else { $member .= "$name2◆"; $flag2=0; }
}
}
# 新規参加者を追加
if (!$flag && !$bye) {
if ($in{'name'} ne "$host") {
push(@new,"$times<>$in{'name'}<>$host<>\n");
if (!$flag2) { $member .= "$in{'name'}◇"; }
else { $member .= "$in{'name'}◆"; }
}
}
# 参加者数を認識
$num = @new;

# ファイル更新
if ($mode || $in{'retime'}) {
open(OUT,">$memfile") || &error("Write Error : $memfile");
eval "flock(OUT,2);";
truncate(OUT,0);
seek(OUT,0,0);
print OUT @new;
close(OUT);
}
}

>725
そうでもないよ。
スクリプトの仕事は、
１）sendmailコマンド呼び出して、メールアドレスを引数として渡す
２）メールのヘッダと本文を送り出してあげる
これだけだもの。
あとは、sendmail(もしくはqmail)の責任。
分散したかったら、スクリプト内部でカウントして一定件数毎に送り出してやればいいし、
どっちにしてもcgiの責任範囲ではないよね。
ま、気が弱くて心が狭いくせに正義感や自己保全ばかりに気を使う管理者とかだと、
文句いってくるかもしれないけど、「それはsendmailのチューニングの問題です」
ていってやればいいよ。そんなもんがあればの話だけど(笑)

>>729
なるほど。
専用サーバーなんで、文句は言われないですけど
ちょと心配だったので。

＞ま、気が弱くて心が狭いくせに正義感や自己保全ばかりに気を使う管理者とかだと、

自己中で、知識なんか何も無いくせに、あほな理論で糞ったれな行為を正当化する糞ユーザよりはマシ。

>>730
専鯖ならお好きにどうぞ。

http://dream.lib.net/room/cgi/e_ps.html
ここのPower Searchというサーチエンジンなのですが
キーワード検索で検索をした場合、linkdata.datに書き込まれている
すべての内容から検索してしまうので、サイト名、コメント、キーワードのみで
検索したいのですが、どのようにしたらいいのか教えてください。

>731
どうしてもいいたい。いわせてくれ・・・・・

ﾂﾚﾀ!!（・∀・）

つーか俺的にも釣れたんだが（ｗ

>734
今時（ｗだの藁だのいってる藁藁小僧のまねごとですか？
なにがどううまくないとか、そういうスクリプトやるんだったらこういう内容にして欲しいとか
そういう発展的なこともいえずに、ただ単語反応的に脳髄反射でレスするあなたが、
なにを釣れるのかどうか知らないけど、なに釣ったの？

あほな理論でくそったれな行為は結構だけど、なにがどう糞ったれな行為なのか書けないあたりが
気が弱くて心が狭いくせに正義感や自己保全ばかりに気を使う管理者なんだって気づいて欲しいね。

KENT WEBさんのClip Boardに
博多弁翻訳をつけたしたいんですが
どう記述すればいいのかわかりません。
教えてください

736です。
ちなみに博多弁ファイルはmentai.dicと言うのを頂いて来ました。

Yomi-search Ver4.19でサーチエンジンの選択をする時の
外部検索エンジンを増やす方法ってどこを改造すればいいのか
ご存知の方がおられました。

教えて頂きたいです。

>738
お前ナニ人だよ？

あっ。
738さん解ります？

>>738ﾜﾗﾀ

>>738
何故過去形?　　＾＾;
この前どっかのスレで改造してくれって言ってたんで設置してみたけど
多分管理メニューで出来るよ(多分知ってて聞いてると思うけど)
折角色々実装してくれてるんだから、自分で色々試してみよう
それで駄目なら付属のhtmlからユーザの広場BBSみたいなに飛んで
***状況と目的を簡潔に*** 説明してみよう

>>1-742
ありがとうございます。

サポートBBSとか結構イソガシソウデふネ。

過去ログ読みましたけど、質問の答えがないじゃねぇか!ｺﾞﾙｧ!!!
そこでー、どなたか親切な方がおられましたら。
ご教授ください。

>>742
以前,SSIの事でお世話になってます。
あの時はどうもありがとうございます<(_ _)>
結局ModeがHardっぽかったのでやめました。
鯖が第一にはぁ。。。

はあ。。。

age

なぜ743はこんなに阿呆なんですか？

アホですが、できてしまいました。
ありが�d♪

日付を旧2chから新2chのようにするにはどうすればいいでしょか？
2001/06/18→02/01/19

printf("%04d/%02d/%02d %02d:%02d",
$year+1900,$mon+1,$mday,$week[$wday],$hour,$min;
ｵｼｴﾃｸﾀﾞｻｲﾏｾ。

>748
printf("%04d
を、%02dに変えてみたりしたりした？

超初心者です。教えてください。
>>735はどうしてあんなに必死なんですか？

>750
なんかあったんじゃない？さばかんさんと。

>>749
%02dにかえてみて今確認しましたが、無理でした。
どうしたらできるんでしょか・・

>>750
>>735はただのキチガイだから気にしなくてよし。

>>752
%04d
↓
%02d

$year+1900
↓
$year-100

>>753
すげぇよ！できた。
ありがと

二度と来るなよ

またこいよ

あめぞう2000ヘッドラインスクリプト(http://dr.st88.arena.ne.jp/ageru/ageru.html)を
定めた取得範囲の中からリンク（<A HREF="任意のURL">任意の文字列</A>）だけを
切り取るように改造していただけませんか。

http://www.makani.to/akutoku/nneewwss/ のような感じにしたいのですが・・・
取得部分のソースは http://www.geocities.co.jp/SiliconValley-Bay/4472/sock.txt です。

みにふろで配布してあるやつならそういう機能うも付いていると思った
http://www.miniflo.com/

infohandsさんレス有り難うございます
リンク先のグングニール？は配布されているものなのですか？
配布場所が見つからなかったのですが・・・

http://mtg.s3.xrea.com/search.txt
の全文検索のCGIなんですけど、これを複数の単語で検索できるように
するにはどうすれば出来ますでしょうか？

KENT WEBさん⇒http://www.kent-web.com/　の、
JOYFUL NOTE⇒http://nyanko.s6.xrea.com/x/joyful.txt　に、
YY-BOARD⇒http://nyanko.s6.xrea.com/x/yybbs.txt　の様な
アイコンモードを付けたいのですがどうしてもできません。
改造できるならお願いします

>>761
どのようにできないかを書いたら？

見た感じでは、YY-BOARDにClip Boardの機能を付けるだけでしょ。

>>762
761ですが、どのようにできないか。
YY-BOARDにClip Boardの機能を表す部分をコピペしたらできるかと
甘く考えていたんですが、やっぱり中身は似ている様で全然違うので
どこにどの部分をコピペすればいいやらわからないのです。

Perlを使って、それまでhtmlで表示していたページを、CGIで提供しようとしています。
たとえば、[http://test.com/message1000.html]であれば
[http://test.com/message.cgi?number=1000]という風に読み出して表示しています。
ところが、この方法になりますと、いくつかの検索エンジンがクロールしてくれなくなってしまいます。
そこで、新しい２ちゃんねるのread.cgiのように、
[http://test.com/message.cgi/1000/]という風にしたいと思うのですが、
どのようにしたらよいのかわかりません。
これを実現する方法、または、方法が記されているWebなどの情報をお教え下さい。