スクリプト改造工房 Part3

**名無しさん＠お腹いっぱい。** · 2001/05/02(水) 21:59

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/03(木) 03:10

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

**名無しさん＠お腹いっぱい。** · 2001/05/03(木) 03:11

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

３ · 2001/05/03(木) 03:14

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

**名無しさん＠お腹いっぱい。** · 2001/05/03(木) 04:05

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

**むぎ茶** · 2001/05/03(木) 06:28

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

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

┐(´ー｀)┌

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

**向こうの91** · 2001/05/03(木) 11:00

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

↑ではダメでした。。

**名無しさん＠お腹いっぱい。** · 2001/05/03(木) 16:22

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

**名無しさん＠お腹いっぱい。** · 2001/05/03(木) 16:28

↑Internal Server Errorになりますが

**Ｔ女の竹田** · 2001/05/03(木) 16:32

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

**Ｔ女の竹田** · 2001/05/03(木) 18:25

前スレ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);
に。

**Ｔ女の竹田** · 2001/05/03(木) 18:30

↑ごめん。ちょっとまぎらわしかったかも。
下二行は変更なしだから、
($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";
を追加。

**Ｔ女の竹田** · 2001/05/03(木) 19:09

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;
に変更。

**Ｔ女の竹田** · 2001/05/03(木) 19:15

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;
を付け加えて。このままだとちゃんと動かないよ。

**Ｔ女の竹田** · 2001/05/03(木) 19:43

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

**名無しさん＠お腹いっぱい。** · 2001/05/03(木) 20:49

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);
とするといいよ。数字をクォートで囲むと文字列扱いになるから。

**22世紀を目指す名無しさん** · 2001/05/04(金) 22:11

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

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/04(金) 23:23

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

**@創作文芸板** · 2001/05/05(土) 17:06

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

**向こうの91** · 2001/05/05(土) 22:52

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

**Ｔ女の竹田** · 2001/05/05(土) 23:01

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

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/05(土) 23:18

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

**向こうの91** · 2001/05/05(土) 23:39

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

**774_Surver_Error** · 2001/05/06(日) 01:44

>>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にすべきじゃないの？？

**@創作文芸板** · 2001/05/08(火) 00:23

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

**ななしっこ** · 2001/05/13(日) 07:46

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

ぷれ · 2001/05/14(月) 00:13

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

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/14(月) 21:13

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/14(月) 22:17

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

**名無しさん＠お腹いっぱい。** · 2001/05/15(火) 10:32

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

29 · 2001/05/15(火) 22:07

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

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/15(火) 22:16

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

27 · 2001/05/15(火) 23:09

＞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

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

**名無しさん＠お腹いっぱい。** · 2001/05/16(水) 00:19

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

33 · 2001/05/16(水) 18:31

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

34 · 2001/05/16(水) 20:10

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

33 · 2001/05/16(水) 20:59

あっさりできました。

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

**どらみ** · 2001/05/17(木) 00:10

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/17(木) 00:40

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

**名無しさん＠お腹いっぱい。** · 2001/05/17(木) 10:25

[ルール追加]

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

**どらみ** · 2001/05/17(木) 14:55

あ、すまなんだ。

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モードをうまく改変すれば、
元のノーマルモードでなんとかなりそうなんですが、
素人のためわかりません。ほんとご迷惑おかけします。

**どらみ** · 2001/05/17(木) 15:01

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

**名無しさん＠お腹いっぱい。** · 2001/05/17(木) 18:53

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

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

**名無しさん＠お腹いっぱい** · 2001/05/19(土) 01:32

age

**名無しさん＠お腹いっぱい。** · 2001/05/19(土) 07:24

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

**どらみ＠℃素人** · 2001/05/20(日) 01:34

なんとか下記のようにスレッド表示を別枠にしたんだけど、
やっぱりダメね。
&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);
}

**sage職人登場！** · 2001/05/20(日) 11:42

ネカマ口調UZEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE!

**名無しさん＠お腹いっぱい。** · 2001/05/21(月) 22:25

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

**名無しさん＠お腹いっぱい。** · 2001/05/22(火) 02:01

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

**名無しさん＠お腹いっぱい。** · 2001/05/22(火) 18:00

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

5出たよ

**プログラ厨房** · 2001/05/24(木) 04:00

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

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

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

**名無しさん＠お腹いっぱい。** · 2001/05/24(木) 05:45

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

**プログラ厨房** · 2001/05/24(木) 20:20

>>52さん。

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

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

**まさか・・・** · 2001/05/24(木) 21:39

**名無しさん＠お腹いっぱい。** · 2001/05/24(木) 21:49

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

**名無しさん＠お腹いっぱい。** · 2001/05/27(日) 07:50

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

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

**むぎ茶** · 2001/05/27(日) 08:21

↑

あほ。

┐(´ー｀)┌

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

**名無し** · 2001/05/27(日) 22:56

だな

**名無しさん** · 2001/05/28(月) 15:25

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

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

**...................................** · 2001/06/09(土) 03:40

**名無しさん＠お腹いっぱい。** · 2001/06/09(土) 03:56

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

**名無しさん＠お腹いっぱい。** · 2001/06/09(土) 19:52

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

**名無しさん＠お腹いっぱい。** · 2001/06/09(土) 19:55

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

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

**名無しさん＠お腹いっぱい。** · 2001/06/09(土) 20:00

**名無しさん＠お腹いっぱい。** · 2001/06/09(土) 20:58

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

**名無しさん＠お腹いっぱい。** · 2001/06/10(日) 00:28

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

**名無しさん＠お腹いっぱい。** · 2001/06/10(日) 03:05

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

**名無しさん＠お腹いっぱい。** · 2001/06/10(日) 04:47

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

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

**名無しさん＠お腹いっぱい。** · 2001/06/10(日) 05:40

>>68

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

**名無しさん＠お腹いっぱい。** · 2001/06/10(日) 15:28

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

**名無しさん＠お腹いっぱい。** · 2001/06/10(日) 15:47

>>70

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

**名無しさん＠お腹いっぱい。** · 2001/06/10(日) 16:12

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

72 · 2001/06/10(日) 16:28

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

**名無しさん＠お腹いっぱい。** · 2001/06/10(日) 19:40

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

**名無しさん＠お腹いっぱい。** · 2001/06/10(日) 19:42

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

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

**名無しさん** · 2001/06/10(日) 22:22

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

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

**名無しさん＠お腹いっぱい。** · 2001/06/11(月) 18:47

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

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

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

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

**名無しさん＠お腹いっぱい。** · 2001/06/11(月) 20:55

うー見づらいソース…これでダメだったら別の人に頼んでくれ。
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;
}

77 · 2001/06/11(月) 21:40

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

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

　　ｍ（＿＿）ｍ

77 · 2001/06/11(月) 21:44

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

７８さん大感謝！！

78 · 2001/06/11(月) 22:40

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

77 · 2001/06/12(火) 00:03

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

**(-_-** · 2001/06/12(火) 04:54

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

**(-_-** · 2001/06/12(火) 05:10

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

76 · 2001/06/13(水) 00:09

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

**名無しさん＠お腹いっぱい。** · 2001/06/13(水) 14:34

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);
}
この後に追加すれば、できるような気がしますが、
何をどうやって、追加すればいいのか全く分かりません...
ひょっとしたら、全く見当違いかもしれません...
宜しくご教授願います

**(-_-** · 2001/06/13(水) 16:59

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

86 · 2001/06/13(水) 17:26

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

**名無しさん＠お腹いっぱい。** · 2001/06/13(水) 18:13

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

86 · 2001/06/13(水) 19:23

>>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はどうやって
決めればいいのですか？
全く分かりません。全然違うますかね..

86 · 2001/06/13(水) 19:33

元のスクリプトです

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

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

**名無しさん＠お腹いっぱい。** · 2001/06/13(水) 20:12

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

**名無しさん＠お腹いっぱい。** · 2001/06/13(水) 20:20

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

86 · 2001/06/13(水) 21:56

新たに素人考えですが

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　はイベントの開催日
の予定ですが、ムリかな...
ホントに素人でごめんなさい。

**名無しさん＠お腹いっぱい。** · 2001/06/13(水) 23:05

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

**名無しさん＠お腹いっぱい。** · 2001/06/14(木) 00:25

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

**(-_-** · 2001/06/14(木) 05:39

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

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

86 · 2001/06/14(木) 12:04

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

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

**rubbish_lister** · 2001/06/14(木) 12:23

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

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

86 · 2001/06/14(木) 14:27

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

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

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

86 · 2001/06/14(木) 21:11

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

**名無しさん＠お腹いっぱい。** · 2001/06/15(金) 07:23

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

**名無しさん＠お腹いっぱい。** · 2001/06/15(金) 12:03

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

**名無しさん＠お腹いっぱい。** · 2001/06/15(金) 16:56

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

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

86 · 2001/06/15(金) 18:07

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比較する命令文と
この通常記事を表示させない命令文が分かれば
出来る気がしますが、どうでしょうか？
ただ、命令文が全く分かりません...教えて頂けないでしょうか
毎度の事ながら、検討違いな事を言ってるかもしれません

**rubbish_lister** · 2001/06/15(金) 20:41

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

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

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

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

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

86 · 2001/06/15(金) 21:11

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

**rubbish_lister** · 2001/06/15(金) 21:29

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

それでは質問。

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

答えてください。

86 · 2001/06/15(金) 23:11

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

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

**名無しさん＠お腹いっぱい。** · 2001/06/16(土) 10:45

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

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

**名無しさん＠お腹いっぱい。** · 2001/06/16(土) 12:58

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

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

**111** · 2001/06/16(土) 13:00

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

**名無しさん＠お腹いっぱい。** · 2001/06/16(土) 13:15

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

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

**アルトキング** · 2001/06/16(土) 14:39

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

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

**rubbish_lister** · 2001/06/16(土) 15:21

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

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

**アルトキング** · 2001/06/16(土) 17:38

$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;
}
のところだと思うのですが、どのように応用したらいいのかわかりません。

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

**名無しさん＠お腹いっぱい。** · 2001/06/16(土) 18:02

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

**名無しさん＠お腹いっぱい。** · 2001/06/16(土) 18:26

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

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

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

S · 2001/06/16(土) 18:40

>>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 = ( >の色、 >>の色、 >>>の色 … );
というように、好きなだけ指定してください。

S · 2001/06/16(土) 18:42

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

**アルトキング** · 2001/06/16(土) 20:00

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

**110** · 2001/06/16(土) 22:56

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

**名無しさん＠お腹いっぱい。** · 2001/06/16(土) 23:19

殺す

86 · 2001/06/17(日) 14:56

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

**名無しさん＠お腹いっぱい。** · 2001/06/17(日) 15:44

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

**名無しさん＠お腹いっぱい。** · 2001/06/17(日) 17:45

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

**名無しさん＠お腹いっぱい。** · 2001/06/17(日) 17:49

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

**sage** · 2001/06/17(日) 18:33

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

**名無しさん＠お腹いっぱい。** · 2001/06/18(月) 07:02

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

**名無しさん＠お腹いっぱい。** · 2001/06/18(月) 12:14

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

**アルトキング** · 2001/06/18(月) 20:07

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

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

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

**名無しさん＠お腹いっぱい。** · 2001/06/18(月) 20:15

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

**アルトキング** · 2001/06/18(月) 20:19

ごめんなさい

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

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

**名無しさん＠お腹いっぱい。** · 2001/06/18(月) 21:29

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

**名無しさん＠お腹いっぱい。** · 2001/06/18(月) 21:47

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

**134** · 2001/06/18(月) 22:16

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

**名無しさん＠お腹いっぱい。** · 2001/06/18(月) 23:00

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

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

**アルトキング** · 2001/06/19(火) 15:56

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

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

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

**名無しさん＠お腹いっぱい。** · 2001/06/19(火) 16:16

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

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

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

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

**アルトキング** · 2001/06/19(火) 16:38

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

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

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

**antique** · 2001/06/19(火) 16:56

教えて君に対して甘すぎるかなと思いつつ
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は（以下自粛）

**antique** · 2001/06/19(火) 16:57

教えて君に対して甘すぎるかなと思いつつ
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は（以下自粛）

**antique** · 2001/06/19(火) 16:59

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

**アルトキング** · 2001/06/19(火) 17:40

無事出来ました。

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

**名無しさん＠お腹いっぱい。** · 2001/06/19(火) 20:01

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

namber

**限界です。** · 2001/06/19(火) 20:11

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

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

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

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

**rubbish_lister** · 2001/06/19(火) 20:23

>>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を使うしかないですけどね。

**限界です。** · 2001/06/19(火) 22:39

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

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

**限界です。** · 2001/06/19(火) 23:38

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

**名無しさん＠お腹いっぱい。** · 2001/06/19(火) 23:39

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

文字化けはどうでした？

**rubbish_lister** · 2001/06/19(火) 23:47

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

**名無しさん＠お腹いっぱい。** · 2001/06/20(水) 16:47

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

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

**名無しさん＠お腹いっぱい。** · 2001/06/22(金) 00:30

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

**名無しさん＠お腹いっぱい。** · 2001/06/22(金) 16:26

>153

らくだ本よめ

**名無しさん＠お腹いっぱい。** · 2001/06/23(土) 02:40

>>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="ログを全て削除">

**名無しさん＠お腹いっぱい。** · 2001/06/23(土) 03:13

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

**名無しさん** · 2001/06/23(土) 22:08

(ﾟДﾟ)ﾊｧ?

**名無しさん＠お腹いっぱい。** · 2001/06/24(日) 14:55

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

**名無しさん＠お腹いっぱい。** · 2001/06/24(日) 17:00

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

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

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

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

**159** · 2001/06/24(日) 17:01

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

**名無しさん＠お腹いっぱい。** · 2001/06/24(日) 17:35

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

**159** · 2001/06/24(日) 17:39

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

**名無しさん＠お腹いっぱい。** · 2001/06/28(木) 02:03

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
でいうと、「マルチネス（巨人）」をクリックすると
そのサイトに飛べるって感じ。
投票用フォームには「ＵＲＬ」の蘭も追加しときたい。

**名無しさん＠お腹いっぱい。** · 2001/06/28(木) 04:15

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

**163** · 2001/06/28(木) 05:01

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

**164** · 2001/06/28(木) 12:36

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

**名無しさん＠お腹いっぱい。** · 2001/06/28(木) 12:52

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

**名無しさん＠お腹いっぱい。** · 2001/06/28(木) 15:32

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

**名無しさん＠お腹いっぱい。** · 2001/06/28(木) 16:45

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

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

**名無しさん＠お腹いっぱい。** · 2001/06/28(木) 17:23

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

**名無しさん＠お腹いっぱい。** · 2001/06/28(木) 19:53

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

**sage** · 2001/06/28(木) 19:55

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

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

**156** · 2001/06/29(金) 00:01

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

**名無しさん＠お腹いっぱい。** · 2001/06/29(金) 01:07

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

**164** · 2001/06/29(金) 13:28

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

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

**名無しさん＠お腹いっぱい。** · 2001/06/29(金) 22:40

良ＣＧＩage

**名無しさん＠お腹いっぱい。** · 2001/06/30(土) 04:04

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

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

**名無しさん＠お腹いっぱい。** · 2001/06/30(土) 07:21

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

**177** · 2001/06/30(土) 10:18

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

**名無しさん＠お腹いっぱい。** · 2001/06/30(土) 15:37

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

**177** · 2001/06/30(土) 20:52

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

**名無しさん＠お腹いっぱい。** · 2001/07/02(月) 22:30

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

**名無しさん＠お腹いっぱい。** · 2001/07/03(火) 01:15

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

**VEDA** · 2001/07/07(土) 22:25

すいません・・
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;
ここを変えるとおもうのですが・・
どなたかどうかおしえてくださいぃ～

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

**VEDA** · 2001/07/07(土) 22:29

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

**名無しさん＠お腹いっぱい。** · 2001/07/07(土) 22:56

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

**VEDA** · 2001/07/07(土) 23:06

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

**2chだからと言えばそれまでだが** · 2001/07/08(日) 00:07

なんかﾑｶﾂｸﾅｧ

**VEDA** · 2001/07/08(日) 00:14

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

**名無しさん＠お腹いっぱい。** · 2001/07/08(日) 08:57

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

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

**名無しさん＠お腹いっぱい。** · 2001/07/08(日) 09:52

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

**名無しさん＠お腹いっぱい。** · 2001/07/08(日) 10:38

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

**VEDA** · 2001/07/08(日) 11:17

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

**VEDA** · 2001/07/08(日) 11:27

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

**VEDA** · 2001/07/08(日) 11:28

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

**名無しさん＠お腹いっぱい。** · 2001/07/08(日) 14:16

>>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&len=1">>>$1</a>|g;
とでもしたほうがよかろうか（ブラウザで見れ。かちゅーしゃでは正確には表示されないはず）

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

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

**名無しさん＠お腹いっぱい。** · 2001/07/08(日) 14:17

↑
\$1 -> $1

**VEDA** · 2001/07/08(日) 14:55

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

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

**VEDA** · 2001/07/08(日) 15:03

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

**名無しさん＠お腹いっぱい。** · 2001/07/08(日) 15:09

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