スクリプト改造工房 Part4
レス数が1000を超えています。これ以上書き込みはできません。
0001名無しさん＠お腹いっぱい。
02/02/05 01:20ID:CZVDHHphという人がいましたらここで聞いてください。
ひょっとしたらアドバイス出来るかもしれません。
前スレ
Part2 http://pc.2ch.net/test/read.cgi/perl/986986227
Part3 http://pc.2ch.net/test/read.cgi/php/988808396
なお、質問するときは
1）そのスクリプトのある場所（URL必須、拡張子".txt"でアップすればなお良し）
2）どんな風に改造して欲しいのか？ （完成イメージHTMLを用意すればなお良し）
を必ず明記しよう。
0002名無しさん＠お腹いっぱい。
02/02/05 01:37ID:DnrYj3PG日付を１日もしくは半日ずらして表記させるにはどうすればいいでしょうか？
例えば、2/5の深夜(午前)に書き込んで、表示画面で2/4と表示させたいのです。
http://members.tripod.co.jp/gumboll/u_diary.txt
にアップしてみました。時間表記をさせるらしきところに★をつけておきました。
よろしくお願いします。
0005ナナシンボ
02/02/06 17:04ID:dTW/dCg2なんとか新着情報をトップページに表示する方法はわかったのですが、
open (IN,"./log/new_ys.cgi") || &error('オープンエラー','指定された書込みファイルが開けません。');
@LINES = <IN>;
close (IN);
このままだと必要以上に新着サイトが表示されてしまいます。
なんとかして表示できる件数と紹介文の文字数を指定できないでしょうか？
もしも可能な方がおられましたらご教授ください。
0006ナナシンボ
02/02/06 17:21ID:dTW/dCg2# 新着サイトのデータを読み込む
open (IN,"./log/new_ys.cgi") || &error('オープンエラー','指定された書込みファイルが開けません。');
@LINES = <IN>;
close (IN);
# 表示したい場所に配列する。
foreach ( @LINES ) {
($Dno,$Dtitle,$Durl,$Dmark,$Dsyoukai,$Dkanricom,$Dkt,$Dtime,$Dbana_url,$Dpt,$Dip,$Dkey,$Ddate,$Dname)=split(/<>/,$_);
で
$Dkt=$_;
$Dkt=$dkt{$_};
if(length($dkt{$_}) > $CUT eq "s"){
$cu=$CUT-3; $dkt{$_}=substr($dkt{$_},0,$cu); $dkt{$_}.="...";
}
こんな感じのを加えて必要以上の文字列の場合は最後を...にしたいのです。
0007ナナシンボ
02/02/06 17:31ID:dTW/dCg2以外に簡単でした。
もう少し頑張ってみます。
0008ナナシンボ
02/02/06 17:38ID:dTW/dCg2又,宜しくお願いします<(_ _)>
0009名無しさん＠お腹いっぱい。
02/02/06 18:44ID:???お疲れヽ(´ー`)ノ
0010名無しさん＠お腹いっぱい。
02/02/10 16:19ID:EP30XMzIブラウザの種類（携帯は機種も）、IP、SSID、日付、訪問回数等を
取得できる方法ありませんか？
今は
# 適当なファイルをopenして
open(LOG,'>>logfile');
# 情報を書き込む
print LOG "$ENV{'DATE'} $ENV{'HTTP_USER_AGENT'} $ENV{'REMOTE_HOST'} $ENV{'REMOTE_ADDR'}\n";
# ファイルをクローズ
close(LOG);
ってやってるんですが、１回のアクセスで同じ情報が数回残るんです。
ちなみに掲示板のCGIの上のほうにつけてるんですが。
0011名無しさん＠お腹いっぱい。
02/02/10 16:47ID:???前来てたよね。
確か何もかもわからないとか言って散々遊ばれた。。。
0012名無しさん＠お腹いっぱい。
02/02/10 16:55ID:???表示 １回。
書き込み １回。
リロード １回。
同一IPアドレスからは連続して情報を書き込まないようにすれば。
0013名無しさん＠お腹いっぱい。
02/02/10 16:55ID:???自分が取りたい所で取れば良し
0014名無しさん＠お腹いっぱい。
02/02/10 16:55ID:???はい、来てました。
どうしても知りたかったのでこちらに質問させていただきました。
わかる人よろしくおねがいします。
0015名無しさん＠お腹いっぱい。
02/02/10 16:55ID:???>>12な俺も既に回答は放棄してるよ。
もう少し具体的に書かないと。
0016名無しさん＠お腹いっぱい。
02/02/10 16:55ID:???自分で書いて何処でどう動いてるか分からんのか？
改造だったら改造スレにソース上げれば教えてくれるかもな
0017名無しさん＠お腹いっぱい。
02/02/10 17:27ID:Y1Zoz0Lgのエレベーター掲示板に
ttp://botan.sakura.ne.jp/~ruuzu/rebbs/rebbs.cgi?mode=res&no=33&inyoumode=35#toukou
のように引用ボタンを取り付け、テキストエリアに引用を表示したいのですがよろしくお願い致します。
エレベーター掲示板のソース
http://www.geocities.co.jp/Milkyway-Lynx/2562/UPDOWN.txt
おおまかに余分な所を取ったソース
http://www.geocities.co.jp/Milkyway-Lynx/2562/UPDOWN2.txt
0018名無しさん＠お腹いっぱい。
02/02/10 20:59ID:???>>10 コード見たら解りそうだが君の財布に幾ら入ってるかは誰も答えられない
今の情報で最善のレスは、一行づつずらして全部試せ、くらいだろうね
0019名無しさん＠お腹いっぱい。
02/02/10 21:03ID:???全然見てないけど。。
引用ボタンはまあ適当に付けて、
レス返信画面でボタンチェックして、
ログ開いて、s/<br>/>><br>/g;
じゃダメ？？ ダメか･･･
0021名無しさん＠お腹いっぱい。
02/02/11 00:18ID:???0022名無しさん＠お腹いっぱい。
02/02/11 00:46ID:???煽られないうちにDownload板に行った方がいいよ。
0024<丶｀∀´>←ﾊﾞｶ
02/02/11 00:58ID:???0025名無しさん＠お腹いっぱい。
02/02/11 05:03ID:???（・∀・）ﾊﾞｰｶ
002618
02/02/11 16:24ID:???理解っつうかネタなんだけど
君が>10に書いた事をコードの一番上から一行づつずらして貼り付けて
テストしてみればと言う事、3000行のコードなら3000回繰り返しね
どっかに書いてたが、いい回答はいい質問から
コピペの意味が解らなかったらPC初心者板で聞いてみよう
# 俺は消えるので後の人よろしく
0027名無しさん＠お腹いっぱい。
02/02/11 17:08ID:???多分割れ板かなんかの恥ずかしいスクリプトの改造なんだろう
書けない読めないコードは出さないじゃどうしようも無い
よって放置ｹﾃｰｲ
0028名無しさん＠お腹いっぱい。
02/02/13 05:21ID:wBlXKE9R002917
02/02/14 18:32ID:???ありがとうございました。
引用ボタン適当に付けて、ログ呼んで
">$comment3";
s/>/>/g;
s/<br>/\r>/ig;
で上手く出来ました。
0030もにた
02/02/14 21:08ID:74mkviDHhttp://www.bsp-net.com/
さんの
http://www.bsp-net.com/soft/MobileWebEditor.html
を使いたかったのですが
いかんせん、編集したいhtmlファイルのサイズが大きいため
携帯で全部表示されないわ、パケット代かかりまくるわで
困ってしまいました。
そこで、htmlファイル内に何か特定のコメント文を仕込んで
それをcgiが認識して、その部分のみを表示・編集できたら
いいなと考えてるんですが・・・
<html>
<body>
hogehoge
<!--[start]--!>
この部分を表示して編集できる
<!--[end]--!>
hogege
</body>
</html>
こんな感じで改造したいのですが、どうすればいいでしょうか？
0031名無しさん＠お腹いっぱい。
02/02/14 21:12ID:JQ2Gyegkp-inとザウルスが、３ヶ月分のパケット代で買えるよ。
0032もにた
02/02/14 21:19ID:74mkviDHいや、まぁそれはごもっともなんですが。
ハードを買うことへの抵抗と、基本料金が・・・
貧乏学生なんで、cgiで済ませたいという安直な考えです。
すいませんがよろしくお願いします。
0033名無しさん＠お腹いっぱい。
02/02/15 02:50ID:SfH5n30w掲示板の「発言を下に下に伸ばしていける」スクリプトにしたいのですが、
勘でいろいろいじって「下へ伸びる形」にはやっとできたものの、
ログの最大書き込み行数を超えた時に超えた分を消していくこと
（最大行数$max_msgsを超える文の書き込み）ができなくて、困っています。
スクリプトはここhttp://www.geocities.co.jp/PowderRoom-Rose/8246/wwwboard.txtにあります。
とほほさんのところの過去ログhttp://tohoho.wakusei.ne.jp/lng/199904/99040143.htmを調べたり、
「wwwboard.tmp を作成する時点で、メッセージの個数（$current_msgs）を求めて
おいて、.tmp から .dat へのコピーの際に、$current_msgs から
$max_msgs を引いた個数分、読み飛ばしを行えばよいでしょう」
という助言も戴いたのですが、具体的にどのように書けばいいのかがわからなくて……不勉強で申しわけないです、おしえてください。
0034賛成の反対の反対ナノだ！
02/02/15 04:15ID:???#
# Append messages.
#
open(IN, "wwwboard.dat");
while (<IN>) {
print OUT;
}
$current_msgs= $.; ### ADD NEW
###～～～～～～～～～～～～～～～～～～～～～～～～～～～
#
# Copy .tmp to .dat
#
open(IN, "wwwboard.tmp");
open(OUT, "> wwwboard.dat");
$msgs = 0;
while (<IN>) {
next if $current_msgs-- > $max_msgs; ### ADD NEW
003533
02/02/15 04:47ID:ZtkdPyAc0036賛成の反対の反対ナノだ！
02/02/15 05:14ID:???$FORM{'MESSAGE'} =~ s/[\r\n]+$//g;
$FORM{'MESSAGE'} =~ s/\r/<BR>/g;
;### ↑の処理後、↓の書きこみが行なわれて即、閉じられているので$FORM{'MESSAGE'}の
;### 最終文字は "\n" じゃないと思われる。
;### 1データを１行で管理するタイプのスクリプトだと思うのでこれではデータ毎の区別が
;### つかないような．．．(気のせい？)
# 挿入するもの↓。改行とか、スペースとか。
print OUT "$FORM{'MESSAGE'}";
close(IN);
close(OUT);
0037名無しさん＠お腹いっぱい。
02/02/15 05:17ID:???質問に答えた人じゃないけど…
<br>というより\nがないとログが一行になっちゃうよ？
\nが無いとwhileで廻せないと思うんだけど。
print OUT "$FORM{'MESSAGE'}<br>\n";
003933
02/02/15 05:21ID:qJwMiHXl>>34さんのスクリプトを実行し、完全解決致しました！
>34さん、あなた、「神」です！
本当に、本当にありがとうございました！
あなたが宗教開いたらぼく、入るかもしれません。
004033
02/02/15 05:23ID:qJwMiHXl0041名無しさん＠お腹いっぱい。
02/02/15 05:27ID:???いや、出来たのなら、それで良いんだとおもいます。
かぶちゃったからゴメンナサイしただけで…。
良かったね。
004233
02/02/15 05:29ID:qJwMiHXl2chきてこんなありがたい思いしたのはじめてです、ありがとうございました！
0043賛成の反対の反対ナノだ！
02/02/15 05:41ID:???いそいで勧誘のチラシを刷っているところです。
「最高ですか～～！！」「これが定説です。」うーんチョット違うナー。
0044名無しさん＠お腹いっぱい。
02/02/15 18:57ID:JdM/hpw9の問題を解こうとして、<!--start-->の所に書き込みを挿入していくのは
まあ表面上だけはできたのですが、どうもコメントタグに囲まれた部分を
編集するのとはちょっと違うなぁということに気が付きました。。
まだしばらくいじってみるかもしれませんが、一応模範解答みたいなのも
欲しいので、お願いできませんでしょうか。
元ソースは http://www.miniflo.com/cgi/up/source/040.txt
しょぼいじりかけは http://www.miniflo.com/cgi/up/source/042.txt です。
あと、元ソースのprintに相当する所の書き方は、これ真似したほうがいいんでしょうか？
実は、こういう書き方のほうが後々応用がきくとかですかね。
0045賛成の反対の反対ナノだ！
02/02/16 06:55ID:???#!/usr/local/bin/perl
(my $script= $0 )=~ s/^.*[\/\\]//g;
my( $passwd )= 'abcd';
my( $jcode )= './lib/jcode.pl';
my( $tmpFile )= "${script}_$$.tmp";
my($html,$name,$do);
my( %FORM );
require $jcode; &decode;
&Html('パスワード未設定') unless $passwd; &Html('Top Page') unless %FORM;
&Html('Password Input Error!') if $FORM{'pass'} ne $passwd;
&Html('No Data') unless ($html= $FORM{'html'})=~ tr/\r\n//d or $html;
open(IN, $FORM{'file'}); eval{ flock(IN, 1) }; open(TMP, "+<$tmpFile"); eval{ flock(TMP,2) }; truncate(TMP, 0);
(seek(IN, 0, 0) && seek(TMP, 0, 0)) or &Html('File Open Error!');
while (<IN>){
if(/(.*)<!--start-->/ .. /<!--end-->(.|\n)*/){
print TMP $& if $do && $1;
print TMP "$&\n$html\n" unless $do++; next;
}
print TMP $_;
}
close(IN); close(TMP); rename($tmpFile, $FORM{'file'}) ? &Html('Edit OK!') : &Html('Edit Error!');
sub decode{
read(STDIN, $_, $ENV{'CONTENT_LENGTH'}) unless $_= $ENV{'QUERY_STRING'};
for ( split('&') ){
($name, $_)= split('=');
tr/+/ /; s/%(..)/chr(hex($1))/eg; # s/<!--[^\-]*-->//g;
&jcode::convert(\$_,'sjis'); $FORM{$name}= $_;
}
}
sub Html{
print <<HTML;
Content-type: text/html
<HTML><BODY><FORM ACTION="$script" METHOD=POST>File:<INPUT name=file><BR>Pass:<INPUT name=pass><BR>
<TEXTAREA COLS=20 ROWS=5 NAME=html></TEXTAREA><BR><INPUT TYPE=submit VALUE=Edit> <INPUT TYPE=reset VALUE=Reset><HR>$_[$[]</FORM></BODY></HTML>
HTML
exit;
}
0046名無しさん＠お腹いっぱい。
02/02/16 12:39ID:C81G2/9Shttp://www.kzm-pt.com/seimei/form.htmlのサイトさんの様に
@マークより前のアカウント部分のみ記入したら送信できるようにしたいのですが
よくわかりませんでした。
CGIはテキスト形式にしてアップしてみました。
こちらhttp://stormy.fc2web.com/webform.txt
どなたか教えてください。
よろしくお願いします。
0047名無しさん＠お腹いっぱい。
02/02/16 12:44ID:???を
if (!($value =~ /(.*)\@(.*)\.(.*)/)) { $value = $1; }
0048名無しさん＠お腹いっぱい。
02/02/16 13:05ID:C81G2/9S変更してみましたが、
「Ｅメールを入力してください」というエラーが出てきてしまい
変わらず送信できませんでした・・・
0049名無しさん＠お腹いっぱい。
02/02/16 13:26ID:???0050名無しさん＠お腹いっぱい。
02/02/16 16:42ID:???有り難う御座いました。出来ました。
本当に感謝してます。
0051名無しさん＠お腹いっぱい。
02/02/16 21:46ID:???なんかｶｺｲｲ
0052厨房perler
02/02/17 08:30ID:???if($a =~ /@@@@/){ print $a; }
if($b =~ /□ □/){ print $b; }
if($c =~ / ◎/){ print $b; }
0053名無しさん＠お腹いっぱい。
02/02/17 21:49ID:???チャットなんですが、一般的にログは下から上へ流れますよね？
これはスクリプトで定義されているんでしょうか？
Niftyなんかですと、上から下へとログが流れるので
出来れば、そういう仕様のチャットに改造してみたいんです。
探してみたんですけど見つからないので、改造で何とかなるなら
頑張りたいと思い、質問してみました。
すみませんが、分かる方いらっしゃったらよろしくお願いします。
0054名無しさん＠お腹いっぱい。
02/02/17 23:07ID:???？？？
cgiでやってるチャットなら普通だいたい新しいのが上じゃない？
005553
02/02/17 23:27ID:???ええ、新しいのが上にきますよね？
それを新しいのが下にくるように出来たらいいなと思ってるんです。
それで、その流れを決めてるのはスクリプトなのか
改造可能なのかが知りたかったんですよ。
0056名無しさん＠お腹いっぱい。
02/02/17 23:32ID:???通常、新しいものが上に来るようにするためには、
正順に記録されたログを@LINEのような配列に読み込み、
reverseします。
005753=55
02/02/18 00:07ID:???ありがとうございます！
ということは正順に並んでいるログをわざわざ逆転させてるんですね。
おっしゃってるのは
foreach (@lines) {
if ($str2 ne '') { if ($_ =~ /$str2/) { next; } }
elsif ($str1 ne '') { if ($_ =~ /$str1/ && $_ =~ /$host/) { next; } }
if (++$i >= $max) { last; } else { push(@new, $_); }
}
if ($str1 eq '' && $str2 eq '') { unshift(@new, $val); }
この辺りのスクリプトでしょうか。
ログ保存の部分にあった@LINEなんですけど。
0058名無しさん＠お腹いっぱい。
02/02/18 00:17ID:???うん。そのforeachのまえで、
@lines = reverse @lines;
というような処理を入れてあげるとひっくり返る。
005953
02/02/18 04:46ID:???を入れてみました。出来たー！と思ったのも束の間…。
ログがですね
6
4
2
1
3
5
というように奇数行は希望通りに上から下なのに
偶数行は下から上という流れになってしまいました（汗
多少のカスタマイズが出来るくらいで、スクリプト自体が読める
訳ではないので詰まってしまいました。
あとは何が足りないんでしょうか。
以前からミスってた部分の見直しとかしてたら
こんな時間になってしまった…。
いい加減に寝ておこう。
0060名無しさん＠お腹いっぱい。
02/02/18 14:16ID:???0061名無しさん＠お腹いっぱい。
02/02/18 14:20ID:???もう一つデータ管理してる変数無い？
0062名無しさん＠お腹いっぱい。
02/02/18 18:09ID:UxBPmNlOこの検索エンジンに、完全一致と項目別検索の機能を盛り込みたいんですが、
どうすればよいでしょうか？データファイルはCSVになってます。
0063名無しさん＠お腹いっぱい。
02/02/18 19:32ID:???ある程度目星付けてくれれば協力するかも。
0064名無しさん＠お腹いっぱい。
02/02/19 04:48ID:???0065名無しさん＠お腹いっぱい。
02/02/19 09:11ID:bQza7qr8今の掲示板では片方しか取得する事が出来ません。
両方取得出きる方法を知りたいんです。
設定のところに
# ホスト名取得モード
# --> 0 : $ENV{'REMOTE_HOST'} で取得できる場合
# --> 1 : gethostbyaddr で取得できる場合
$get_remotehost = 0;
↑のようなソースがあり、ホスト名取得は
## --- ホスト名取得
sub get_host {
$host = $ENV{'REMOTE_HOST'};
$addr = $ENV{'REMOTE_ADDR'};
if ($get_remotehost) {
if ($host eq "" || $host eq "$addr") {
$host = gethostbyaddr(pack("C4",split(/\./,$addr)),2);
}
}
if ($host eq "") { $host = $addr; }
}
↑のようになっているんですがこれを変えてログへの書き込み処理を変えれば可能ですよね？
ログへの書き込み処理は自分でやれると思いますので↑に書いた部分をどう変えれば両方取得出来るか
教えては頂けないでしょうか？↑はifってなってるのでそのままifを消したりしたんですけど当然ダメでした。
おぉ力也か。え？やっぱり行ける？もう取り消しの電話入れちまったじゃねぇかよ。
006665
02/02/19 09:13ID:bQza7qr80067名無しさん＠お腹いっぱい。
02/02/19 09:58ID:uiFxg8opそこはIPとリモートホストのルーチン部分だ。
記載している場所はほかにあるから、
$hostで検索して、printしてるところを見つけれ。
0068名無しさん＠お腹いっぱい。
02/02/19 09:59ID:uiFxg8op00691ファンより
02/02/19 12:49ID:???007065
02/02/19 13:03ID:bQza7qr8あそこじゃないんですか！？
あそこだと確信してたんですけども。
どこなんでしょう？いくら探しても他にホストやIPを取得してるような所は見当たらないんですけど。
もしよかったら探してくれませんか？めんどくさいですか？てめーでやれカスですか？
↓がソースです。それと力也ネタは勘弁して下さい。力也は忘れてください。
http://csx.jp/~hage/light.txt
0071名無しさん＠お腹いっぱい。
02/02/19 13:05ID:???だから彼は「表示するところを探せ」と言っているが。
printが表示する命令だと知らないのか？大変だぞ。
007265
02/02/19 13:50ID:???あっそうですね。でもprintを探すんですか？
でも今のままだと$hostにipかホスト名のどちらかしかを書き込むので片方しか取得できないんです。
printを探すのはIPとリモートホストのルーチンを書き換えたあとの話しでは？
printを探してログへの書き込み処理を変えるのは私でも出来ると思うのでですが
どうすればifという形式ではなく両方を取得できるのかを知りたいんです。
教えてもらえますか？
てめーなんかに教えるぐらいならダンゴ虫に教えた方がマシだボケですか？
0073名無しさん＠お腹いっぱい。
02/02/19 14:02ID:uqUI0/lzthx!
>72
みてみた。４カ所ほど変更する必要があるので、手間がかかり教えるのが面倒くさい。
しゃれのつもりなんだろうが、質問の仕方がカワイゲないので
心を入れ替えるまで放置することにした。
誰か優しい人が教えてくれるかもしれない。
ref.>もしよかったら探してくれませんか？めんどくさいですか？てめーでやれカスですか？
ref.>てめーなんかに教えるぐらいならダンゴ虫に教えた方がマシだボケですか？
007465
02/02/19 14:18ID:bQza7qr8ID違うけど>>67さんかな？
いや、なんか普通の文じゃつまらなくてレス返ってこないかな？と思ってつけたしたんですけど…
自分ではわからないながらも表示以外のところは結構簡単にできるような気がしてたんですけど4個所もあるんですか。
それじゃあ仕方ないですね。そちらにはメリットなにもありませんし。
誰か教えてくれるまで気長に待ちます。
007567
02/02/19 14:24ID:uqUI0/lzうんそう。
ここそんなに住人多くないって(笑)。
んで、ちょとカワイゲある文章になったので関心が戻ったりして。
このスクリプト、ログにリモートホストかIP残すだけで、画面表示しないんだな。
改造自体はそんなに大変ではないと思う。問題は、うまく行かないときのでバッグだな。
007667
02/02/19 14:29ID:uqUI0/lz($number,$date,$name,$email,$subj,$comment,$url,$host,$pwd)
を
($number,$date,$name,$email,$subj,$comment,$url,$host,$addr,$pwd)
に変更。
335行目；
unshift(@lines,"$number<>$date<>$name<>$email<>$sub<>$comment<>$url<>$host<>$ango<>\n");
を
unshift(@lines,"$number<>$date<>$name<>$email<>$sub<>$comment<>$url<>$host<>$addr<>$ango<>\n");
に変更
656行目：
($number,$date,$name,$email,$subj,$comment,$url,$host,$ango)
を
($number,$date,$name,$email,$subj,$comment,$url,$host,$addr,$ango)
に変更
666行目：
($number,$date,$name,$email,$subj,$comment,$url,$host,$ango)
を
($number,$date,$name,$email,$subj,$comment,$url,$host,$addr,$ango)
に変更。
多分これでうまく行く。
007765
02/02/19 14:45ID:bQza7qr8おおおぉぉぉッ！
出来ましたッ感動です！
ってゆーかそれと全く同じように昨日やったんですけど出来なくてこれじゃダメなんだなぁって
思ってたんですけど昨日やった時はたぶんどっか間違ってたんですね～。
一回試して>>65で挙げた部分を改良してから>>76さんのようにやれば出来ると思い込んでました。
それだけでよかったんですか～あ～出来てすっごい嬉しいです。
たぶん誰にもレスされないで終わるだろうなと思ってましたし。
昨日から徹夜でやっててそろそろ限界だったんですけどこれで目が覚めました。
本当にありがとうございました。
007867
02/02/19 15:04ID:???単純なタイプミストかがあったんだと思う。
どちらにしてもよかった。
0079名無しさん＠お腹いっぱい。
02/02/19 15:54ID:???008053
02/02/19 19:37ID:???教えて頂いたreverseだと奇数が元のままなので悩んだまま
止まってましたが、聞く前に調べる努力をしてなかったので
本屋に行って見てきました（始めから行けって言わないで下さい。
まず改造出来るものかどうか知りたかったんです）
reverseでなくsortで試したところ、新しいログが下にくるように
なりました！
一番新しい発言だけが上にくるんですけど、今はとりあえず流れが
望んだ通りになったんで嬉しいです。
CGIを勉強してみたくなりました（笑
ご助言、どうも有難うございました。
0081名無しさん＠お腹いっぱい。
02/02/20 04:49ID:???0082名無しさん＠お腹いっぱい。
02/02/22 15:28ID:9ER9/CDB2chのsubback.htmlにsocket→sort→diffをかけるものです。
こんがらがったので2つに分けたままなのですが
sockt部が http://nogdnik.s3.xrea.com/sagepicker/client.txt
sort,diff部が http://nogdnik.s3.xrea.com/sagepicker/diff.txt
であります。
動作は http://nogdnik.s3.xrea.com/sagepicker/
で一応動いたのですが、どう考えてもソースが汚いと思われる上に
余計な（サーバに負荷をかけるような）動作も行っている気がします。。
スマートな解法等ありましたら、宜しくお願い致します。
0083真木素人
02/02/24 00:20ID:VkuFVpRf↑MissingLinkのナレーションBBSのおねえさんといっしょを
HPに設置したいんですけど、改造＆設置の仕方がわかりません
ナレーションBBS２．１とおねえさんといっしょのキットは
DLして解凍まではわかったのですが、そのあとが…
改造はおねえさんといっしょのキットをそのまま使いたいのですが…
改造のしかたと設置のしかた教えてください
お願いします
0084名無しさん＠お腹いっぱい。
02/02/24 01:57ID:???0085名無しさん＠お腹いっぱい。
02/02/24 10:24ID:???0086名無しさん＠お腹いっぱい。
02/02/24 14:43ID:???0087わかりません
02/02/27 12:01ID:/Q61BdR8@photo_urls=("$i_photo_url1","$i_photo_url2","$i_photo_url3");
foreach(@photo_urls){
if($_ ne ''){
if($_ =~ /^http.*jpg$/){
$i_comment = "$i_comment<br><IMG src=\"$_\">";
}else{
&print_error("写真URLの入力が正しくありません。注意＆解説を参照して確かめてください。<br>Macintosh環境でも拡張子（.jpg）をつけて下さい。");
}
すみません。
↑ここらへんで拡張子JPGだけしか選べなくなってるのを、gifも選べるようにしてあげたいんですが、
どうしたらいいですか？つまり、JPGとGIFを認めてあげたいんですが・・・。
エラーばっかりでわけわかめです。
誰か教えて下さい。お願いします。
0088名無しさん＠お腹いっぱい。
02/02/27 12:39ID:???@photo_urls=("$i_photo_url1","$i_photo_url2","$i_photo_url3");
foreach(@photo_urls){
if($_ ne ''){
if($_ =~ /^http.*gif$/ || $_ =~ /^http.*jpg$/){ #←ココ
$i_comment = "$i_comment<br><IMG src=\"$_\">";
}else{
&print_error("写真URLの入力が正しくありません。注意＆解説を参照して確かめてください。<br>Macintosh環境でも拡張子（.jpg）をつけて下さい。");
}
PNGとか追加して多くなるようだったら配列使うほうが楽かも。
0089名無しさん＠お腹いっぱい。
02/02/27 13:28ID:???しかもチェックも甘いし。まぁ他人事だからいいけど。
m#^http://[^/]+/.+\.(?:jpg|gif)#i
0090名無しさん＠お腹いっぱい。
02/02/27 13:29ID:???0091名無しさん＠お腹いっぱい。
02/02/27 15:16ID:uzDDNMO0返信できる掲示板を改造し、親記事への返信に対してradioboxで5段階の採点
ができるようにしました。が、たまに採点がおかしくなります。
1ページに表示されている全ての返信記事に一気に採点できるようにしました。
$noは親記事のNo. $res_noは返信記事のNo.です。
簡単に書きます。
-------■フォーム部分■---------
[最高:<INPUT TYPE=RADIO NAME=\"($no)-$res_no\" value=5>]
[良い:<INPUT TYPE=RADIO NAME=\"($no)-$res_no\" value=4>]
のようなものをあと3つ
-------■フォーム部分■---------
0092名無しさん＠お腹いっぱい。
02/02/27 15:16ID:uzDDNMO0$x1が親記事の番号で$x2が返信記事の番号です。
行の最後に採点のためのデータを6つ追加しました。
$xjが合計点で、$xe～$xiまでが各採点の数。
-------■ログの形式■---------
130<>1<>名前<>タイトル<><><>親記事のコメント<>#ff6633<><><>02/02/26(Tue)02:29<>0.XuCN0FGrIKQ<>1014702931<>0<>0<>0<>0<>0<>0<>
(130)<>1<>名前<>タイトル<><><>親記事への返信のコメント<>#ff6633<><><>02/02/26(Tue)02:29<>0.XuCN0FGrIKQ<>1014702931<>0<>0<>0<>0<>0<>0<>
-------■ログの形式■---------
0093名無しさん＠お腹いっぱい。
02/02/27 15:20ID:uzDDNMO00094名無しさん＠お腹いっぱい。
02/02/27 15:20ID:uzDDNMO0ログから全記事を@all_linesに読み込む。
while (($key, $value) = each %in){
if( $key =~ /^%28\d+%29-\d/ ){
$key =~ s/^%28(\d+)%29-(\d+)/$1,$2/ ;
foreach (@all_lines) {
if( /^\($1\)<>$2/ ){
my($x1,$x2,$x3,$x4,$x5,$x6,$x7,$x8,$x9,$xa,$xb,$xc,$xd,$xe,$xf,$xg,$xh,$xi,$xj)=split(/<->/);
if($value == 5){ $xe = $xe+1 ;}
elsif($value == 4){ $xf = $xf + 1;}
elsif($value == 3){ $xg = $xg +1;}
elsif($value == 2){ $xh = $xh +1;}
elsif($value == 1){ $xi = $xi +1;}
else{ エラー処理;}
$xj = ($xe * 5) + ($xf * 4) + ($xg * 3) + ($xh * 2) + ($xi * 1);
push(@new, "$x1<>$x2<>$x3<>$x4<>$x5<>$x6<>$x7<>$x8<>$x9<>$xa<>$xb<>$xc<>$xd<>$xe<>$xf<>$xg<>$xh<>$xi<>$xj<>\n");
}else { push(@new, $_ );}
}
$#all_lines = -1 ; #これは必要？
@all_lines = @new ;
$#new = -1 ;
}
}
@all_linesをファイルに書き込む。
0095名無しさん＠お腹いっぱい。
02/02/27 15:26ID:uzDDNMO0もっとスマートな方法はないものでしょうか？
さらにバグがあるようです。たまに採点した以上に採点の数が増えます。
よろしくお願いします。
0096わかりません
02/02/27 15:49ID:/Q61BdR8ところで、
＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠
sub upnote {
local($get_pf_name)=shift;local($pffno)=shift;
if($file_name{"$get_pf_name"} =~ /jpg$/){
$psc=0;
$file_len=length($file_data{"$get_pf_name"});
if($file_len<=0){
&print_error("画像が選択されていません。");
}elsif($file_len>=$photo_max_size*1024){
&print_error("$photo_max_size\KB以下の画像しか指定できません。");
}#--end
＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠＠
↑ここの部分も、ＪＰＧしかアップロード出来ないんですけど、これもＧＩＦをアップロードしたいのですが・・・。
0097名無しさん＠お腹いっぱい。
02/02/27 15:54ID:???たよってたよって大正解。
0098わかりません
02/02/27 16:09ID:/Q61BdR8まじ途方にくれてたので大正解っす。どこいじってもエラーになってわけわかりまっしぇん！
要は「ＪＰＧだけじゃなくＧＩＦも使いたい」ってことだけなんですけどね・・・。
0099名無しさん＠お腹いっぱい。
02/02/28 20:48ID:cUMoNmua初期設定のアップロード制限意外に
デフォルトで２Ｍが限度になってるみたいなんだけど
その制限をとっぱらうにはどうしたらよいでしょ？
アドバイス頂けませんでしょうかm(_ _)m
↓ソース
http://www.geocities.co.jp/Milkyway-Lynx/2562/upload.txt
0100名無しさん＠お腹いっぱい。
02/03/01 02:13ID:???レス書き込みの際、メール欄に「dame」と入れることによって
スレッドの配置を一番下に移動させる機能を付けたいのですが
解る方いましたら宜しくお願いします。
↓掲示板の外観です
http://www.42ch.net/UploaderGeneral/source/224.htm
↓メインのスクリプトです
http://www.42ch.net/UploaderGeneral/source/225.txt
0101100
02/03/01 02:24ID:enmjRXxk# - レス付与 -------------------------------------
sub res {
～～～～～～～
# age_______________________________
if (!$sage) {
push(@DATA,splice(@DATA,$no,1));
}
～～～～～～～
}
# - フォームチェック ------------------------------
sub formcheck {
～～～～～～～
# E-mailチェック____________________
if ($mail =~ /sage/) {
$sage = 1;
}
～～～～～～～
}
0102名無しさん＠お腹いっぱい。
02/03/01 02:47ID:???スクリプト読んでないけどこれでどうかな？
～～～
#age____
if (!$sage) {
if ($dame) {
unshift(@DATA,splice(@DATA,$no,1));
}
else {
push(@DATA,splice(@DATA,$no,1));
}
}
～～～
～～～
# E-mailチェック____
if ($mail =~ /sage/) {
$sage=1;
}
elsif ($mail =~ /dame/) {
$dame=1;
}
～～～
0104102
02/03/01 03:38ID:???全角スペースで字下げしてるから，そのままコピペじゃ動かないです。
半角スペースに置き換えてください。
0105100
02/03/01 04:16ID:???DATファイルにもちゃんと書き込まれて、スレッドも下がりました…！
ただ、トップ表示と一覧表示でデータを読み込めないみたいです。。
http://www.42ch.net/UploaderGeneral/source/226.htm
0106名無しさん＠お腹いっぱい。
02/03/01 04:46ID:???スマソ，さっきのでログ壊れたかも。
unshift(@DATA,splice(@DATA,$no,1));
を
unshift( @DATA, (shift(@DATA),splice(@DATA,$no,1)) );
に変えるとどうかな
0107名無しさん＠お腹いっぱい。
02/03/01 05:03ID:jSI4cIj+サーバーの設定で制限さてれるんじゃない？
http://www.php.net/manual/ja/function.ini-set.php
http://www.php.net/manual/ja/configuration.php
0108100
02/03/01 20:20ID:???下の方に書き替えたら、壊れなくなりました！
しかし今度は、「書き込んだスレッドの一つ上にあるスレッド」が
一番下に下がるようです．．．(；´Д｀)
0110名無しさん＠お腹いっぱい。
02/03/04 19:46ID:xVeLh+HAttp://zurubon.strange-x.com/upload.txt
のトップページをhtmlファイルとして吐くように改造していただけませんでしょうか？
無理なお願いかもしれませんがよろしくお願いします
0111名無しさん＠お腹いっぱい。
02/03/04 23:36ID:???意味がわかりづらいが、トップページをリクエストするとHTML形式の
ファイルをダウンロードするってこと？
0112110
02/03/04 23:54ID:xVeLh+HAのようにトップページはhtmlとして吐き出させて負荷を減らし
アップロード作業や２ページ目以降の表示をCGIにさせたいのです
わかりにくくて済みません
0113nobodyさん
02/03/05 00:10ID:???perl勉強中だけど、答えてみる。
index.htmlをopenして、「sub html」の中の表示部分をそっちに吐くようにすればいいんじゃないかな。
他にも弄るとこあるかもしんないけど、そこは識者にお任せします。
0114111
02/03/05 00:23ID:???用意するとできるのでは？ だいたい以下の感じに。（■■■部分は呼び出すCGI）
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="http://■■■" >
アプするファイル<strong>（300 Kまで）</strong><br>
<INPUT TYPE=file SIZE="40" NAME="filedata">
<select name="ext">
<option value="ext" selected>特殊拡張子選択
<option value="css">css
<option value="csv">csv
<option value="htm">htm
</select>
<br>コメント<i><small>（※コメント無記入の場合リロードになります
/URLはオートリンクします）</small></i><br>
<INPUT TYPE=text SIZE="45" NAME="comment">
<INPUT TYPE=submit VALUE="Up/Reload" class="button"><INPUT TYPE=reset VALUE="Cancel" class="button"><br>
</FORM>
0115110
02/03/05 06:37ID:ZPKxkzAdopenでhtmlファイルを開いてprintするところまでは思いついたのですが、
クッキーを使った環境設定や、print_postdataとの絡みが分からずに挫折しました
>114
？？？
済みません、意味がわからないです
0116nobodyさん
02/03/05 20:29ID:???クッキーをはいてLocationでhtmlファイルに飛ばせばよい。
htmlファイルを作る処理はprint_postdataなどを直接弄ると
副作用があるので、コピペで名前を変えた関数を作って
ファイルに書き出すようにすればよい。
0117nobodyさん
02/03/06 15:45ID:???ReverseAccess(逆アクセスカウンタ)
http://www.cj-c.com/
スクリプト
http://waiwaiwai_00.tripod.com/access.txt
http://waiwaiwai_00.tripod.com/acmgr.txt
http://waiwaiwai_00.tripod.com/set.txt
私のサイトに上記の逆アクセスカウンタを設置しているのですが、
私のサイトにリンクを貼っていただいている方の中で、
自分が一番でないと気が済まない負けず嫌いな方がいるのです。
続く。。。
0118nobodyさん
02/03/06 15:56ID:???たとえばhttp://pc.2ch.net/から私のサイト(http://hoge.com/)にリンクされているとして、
毎日、*.2ch.net及び012.345.678.*というリモートホスト・IPアドレスを駆使して
http://pc.2ch.net/からhttp://hoge.com/にアクセスしまくってhttp://pc.2ch.net/のランキング順位をつり上げてくるのです。
おまけに、http://pc.2ch.net/001.html、002.html、003.html、…を作成して、
そこからも波状攻撃を仕掛けてくるのです。
普通ならpc.2ch.netをカウントしないようにset.txtに書き込めばいいのですが、
http://pc.2ch.net/からは普通(?)のアクセスもあるのです。
そこで不正排除のため、*.2ch.net及び012.345.678.*のみ(指定したリモートホストやIPアドレス)を
カウントしないように改造お願いできないでしょうか？
0119nobodyさん
02/03/06 16:00ID:???0120nobodyさん
02/03/07 01:54ID:WTUe3Qf1警告書いて，それでもダメならカウントしないほうにするほうがいいんじゃない？
改造してもいたちごっこになるだけと思われ。
0121nobodyさん
02/03/07 08:25ID:???動くか試してないけど。
set.cgiの
1;#削除不可
の上辺りに
@AbornLink = ("*.2ch.net","*.yahoo.co.jp");
@AbornHost = ("127.0.0.1","1.2.3.*","anonymizer.com","squid");
を追加。
access.cgiの
#--- ここまで ----------*
の下に
&aborn;
sub aborn {
for (@AbornLink) { s/([.@%$\])/\\$1/g; s/\*/.*?/g; &haa() if $ENV{HTTP_REFERER} =~ /$_/i }
for (@AbornHost) { s/([.@%$\])/\\$1/g; s/\*/.*?/g; &haa() if $ENV{REMOTE_HOST} =~ /$_/i or $ENV{REMOTE_ADDR} =~ /$_/ }
}
sub haa {
print <<_HTML_;
Content-type: text/html
(ﾟдﾟ)ﾊｧ？
_HTML_
exit;
}
を追加。
0123利用者
02/03/08 06:39ID:???この書き方ではおかしいんでしょうか…？
0124利用者
02/03/08 06:40ID:???問題の部分の簡易スクリプトです。
http://upsenyou.tripod.co.jp/test.text
0125nobodyさん
02/03/08 06:42ID:w/NM/Dyo0126利用者
02/03/08 06:42ID:???申し訳ないですが、ソースを出して見てください…
0127nobodyさん
02/03/08 07:00ID:yTPx6PIpメールフォームで、メールの送信先を、曜日毎に変えたいのですが、
どうすればよろしいでしょうか。
フリーのメールフォームを改造して作ろうとしているのですが、
Perlに関しては初心者で、手がでない状態です。
どなたか、どうぞよろしくお願い致します。
改造しようとしているCGIで、メールの宛先は、
configファイルに
$MailTo = '[email protected]';
として明記し、CGI本体で
$MAILTO = &config::MAILTO;
というふうに読み込ませる形になってます。
0128nobodyさん
02/03/08 07:53ID:???0129nobodyさん
02/03/08 17:42ID:???http://pc.2ch.net/test/read.cgi/php/1014556702/289-
そのうち現れると思いますが。
たらい回しにされて可愛そうなので答えてあげてください。
ていうか答えるのは同じ人間ぽいけどなー。ｗ
0130nobodyさん
02/03/08 23:27ID:???0131nobodyさん
02/03/09 06:45ID:???ただでさえ人少ないのに。
0133110
02/03/09 18:16ID:???指導のおかげでhtmlファイルは吐き出すようになったのですが、投稿・削除
したときに http500 内部サーバエラー となってしまいます
（htmlファイル自体はちゃんと吐き出される）
もう一度ご指導頂きたく思います
改造後のスクリプト（.cgiに変換してください）
ttp://hpcgi3.nifty.com/syouwakayou/up.cgi?dir=&view=&sort=&get=up.txt
#前回こちらで聞いたので、初心者スレではなくこちらでお聞きします
0134127
02/03/10 02:00ID:???ヒントを元に考えてみても謎が謎を呼びエラーが出て
泣きそうです。
ここは今人が少ないのですか…
0135nobodyさん
02/03/10 10:01ID:Pl5m+TdB>134 localtime関数の仕様を調べれ。
0136nobodyさん
02/03/11 22:51ID:???長いし、途中からなので良く分からんが
&locationindex;
&print_postdatafile;
とか（他にもあるよね）付け加えたサブルーチンを、行わせたい処理の順番にならべてみなされ。
場所は #以下はスクリプトのエンジン部分。無闇にいじくると動かなくなるかも(ﾜﾗ
のすぐ後でいいと思うけど。
できたら、sub locationindex{ } とかいうブロックはまとめて
#以下関数定義&実装
から下に持っていったほうがいいかな
0137初心者スレにも書きましたが
02/03/12 14:59ID:h6G3oh/x掲示板CGIの改造をしたいのですが、
チェックボックスを付けて、それがオフの場合投稿を弾いてメッセージを表示するにはどうしたらいいのでしょう？
全くの初心者なので、適当に
コメント入力欄の近くあたりに
<INPUT TYPE="checkbox" NAME="a" VALUE="b">書きこみをOKする<BR>
って入れて、名前が入ってないとエラーを返す部分があったのでそこに
if ($a eq "") { &error("オンにしてちょ。",'NOLOCK');
ってやってテストしてみたらオンでもオフでもエラーを返されてしまいました。
if ($a eq "a:")としたら逆にオンでもオフでも書きこみできました。
別にvalueがbの場合用の処理（？）を書かなくてはいけないのでしょうか？
ちなみに上のは名前が入ってないとエラーを返す部分をちょっと変えただけです。
0138初心者スレ417=421
02/03/12 15:12ID:???>>1
> なお、質問するときは
> 1）そのスクリプトのある場所（URL必須、拡張子".txt"でアップすればなお良し）
> 2）どんな風に改造して欲しいのか？ （完成イメージHTMLを用意すればなお良し）
> を必ず明記しよう。
---
なんとなく、$aに中身入れてないような感じがするんだけど。。
途中省略箇所有りですが、、、
こんな感じになってると考えて良いのかな、、、。
&decode(*FORM);
sub decode{
local(*DATA) = @_;read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@buffer = split(/&/,$buffer);
foreach (@buffer) {
($name,$value) = split(/=/);
$DATA{$name} = $value;
}
}
$a = $FORM{'a'};
if ($a eq "") { &error("オンにしてちょ。",'NOLOCK');
---
0139初心者スレにも書きましたが
02/03/12 15:37ID:???できた～！！マジでありがとうございます。$a = $FORM{'a'}; が足りなかったようです。
勉強になりました。
0140nobodyさん
02/03/13 09:19ID:Z/LJjIzD追加したい機能は「トリップ」と「名無しさん」
あと投稿にアスキアートなどをコピペした場合にアスキーアトが崩れるのを防止したいです。
ソースはこちらになりまます。
http://www.geocities.co.jp/HeartLand/6269/bbs.txt
0141nobodyさん
02/03/13 13:50ID:???頑張って下さい。応援してます。
0142140
02/03/13 14:10ID:Z/LJjIzD所詮は厨房のボクにはムリか・・・
0143nobodyさん
02/03/13 22:13ID:Dc5/budY0145nobodyさん
02/03/14 09:33ID:VZM6DSSw理屈は大体わかるんですが、いざ組もうとしても改造ばっかで一からはほとんど組めなくて…
0146nobodyさん
02/03/14 15:01ID:???YY-CHATのどっかからデータを読み込んで
参加者一覧を作りたいのですがよくわかりません。
とりあえず↓のような感じに表示されるCGIってどうやったらいいでしょうか？
=======================================================
参加者(3)
名無しさん
太郎さん
花子さん
0147１４６
02/03/14 16:40ID:???http://www.i-cha.ne.jp/cgi/yychat_custom2/r01/member.cgi
0148ぴいころ
02/03/14 20:33ID:d2y5/VKoReverseAccess(逆アクセスカウンタ)
http://www.cj-c.com/
スクリプト
http://waiwaiwai_00.tripod.com/access.txt
http://waiwaiwai_00.tripod.com/acmgr.txt
http://waiwaiwai_00.tripod.com/set.txt
上記のスクリプトでURLマッチングログ$ulog= "url.log";
に記述したリンク元以外はデータをとらないようにするにはどうしたらいいのでしょう？
つまり登録したサイトだけの逆アクセスランキングをつくるには。
もう、ずーっと試行錯誤してみたけど変数が多くてわけわからず
どうしてもできませんでした。どなたかご教授下さい。。。
0149nobodyさん
02/03/14 20:34ID:???0152ぴいころ
02/03/14 20:58ID:d2y5/VKoりゅういちさん引っ越しで忙しいみたいで悪いかなあと思いまして。
>>151
ちがいますよ。過去ログ参照してるときに同じスクリプトがあったので
借りただけです。
0155nobodyさん
02/03/14 22:08ID:???「member.txt」です。
一人参加しているときの中身
--------------------------------------
1016101994<>名無しさん<>127.0.0.1<><>
0156ぴいころ
02/03/14 22:44ID:d2y5/VKo何言ってるかわかんないんですけど。
答えられないんだったらレスしないでいいですよ。
0160りゅういち
02/03/14 23:19ID:???0161ぴいころ
02/03/14 23:48ID:d2y5/VKoどういう類の人間が書き込んでだろうね。
0163ぴいころ
02/03/14 23:51ID:d2y5/VKo0165nobodyさん
02/03/14 23:53ID:???0166ぴいころ
02/03/14 23:54ID:d2y5/VKo0168ぴいころ
02/03/15 00:03ID:gwfeegs00169ぴいころ
02/03/15 00:19ID:+8TxHXVk0170ぴいころ
02/03/15 00:20ID:eGIGdxRo0171nobodyさん
02/03/15 00:22ID:???>借りただけです。
これの何処が普通よ。寝言は寝て言えボケ。
0173nobodyさん
02/03/15 00:27ID:???0174nobodyさん
02/03/15 00:41ID:???ﾏﾀｰﾘﾏﾀｰﾘ
0175ぴいころ
02/03/15 00:43ID:+8TxHXVk0176nobodyさん
02/03/15 01:21ID:X8j7h0mSこれでどう？
#!/usr/bin/perl
$file = './member.txt' ;
open ( FILE , $file ) || &print("開けません") ;
@data = <FILE> ;
close FILE ;
$len = @data ;
$out = "参加者($len)<br><br>\n" ;
foreach ( @data ) {
$name = ( split /<>/ )[1] ;
$out .= "$name<br>\n" ;
}
&print( $out ) ;
exit ;
sub print {
print <<"_HERE_" ;
Content-type: text/html\n
<html>
<body>
$_[0]
</body>
</html>
_HERE_
exit ;
}
0177nobodyさん
02/03/15 02:47ID:???はぁ？ 既知害は消えてください
0179ぴいころ
02/03/15 04:11ID:gwfeegs0いやーお陰様でずっとやってたらできました。ありがとうございます。
WEBプログラミング板って役に立つなあ。特にこのスレ。（笑）
なんといっても、何一つまともに答えられない住人が最高です。
0180nobodyさん
02/03/15 04:16ID:???馬鹿相手に奉仕感が得たかったのか？
0181176
02/03/15 04:53ID:X8j7h0mS奉仕してるフリして本当は
「俺はこんなすげーコード書けるんだぜ。神と呼べ」
などと心の底で思ってたりする（ｗ
0182nobodyさん
02/03/15 07:00ID:???ただ、あれだと参加者０のときも（１）と表示されてしまいます。
参加者がいない場合↓
------------------------------------------------------
1016142616<><>127.0.0.1<><>
0183180(つーか20才)
02/03/15 07:30ID:???若いな。
俺ももうちょっと体力と気力があればそんな気にもなるかもしれんが。
>182
foreach(@data){
if($name = (split(/,/))[1]){ $len++; }
$out .= "$name<br>\n" ;
}
もうちょっといじらんとあかんがそれは宿題。
春休みなんだから時間あるだろ。
0184nobodyさん
02/03/15 20:33ID:???の続きです。
大絶賛（藁 のKENTさんのYYBBSにトリップ機能を付ける方法について
# YY-BOARD v4.54 (2001/09/06) の場合
以下の方法で出来ました。
設置例：http://www.pweb.ne.jp/~fpm2/trip_yybbs/yybbs.cgi
549行目
# クッキーを発行
&set_cookie;
#トリップ機能
$in{'name'} =~ s/◆/◇/g;
$in{'name'} =~ s/\x23(.+)$/ "◆".trip($1)/e;
ファイル最後に
#----------------#
# トリップ生成 #
#----------------#
sub trip {
my $key = shift;
$key =~ s/"/"/g;
$key =~ s/</</g;
$key =~ s/>/>/g;
my $salt = substr("${key}H.", 1, 2);
$salt =~ tr/\x00-\x2d\x7b-\xff/./;
$salt =~ tr/\x3a-\x40\x5b-\x60/A-Ga-f/;
return substr(crypt($key, $salt), -8);
}
すいません、、純正のYY-BBSでやってみたところうまくいったのですが
自分の使ってるのが改造品なのかよくわからないのですがそれだと出来ませんでした。
http://home.catv.ne.jp/kk/space/gakuyuu/yybbs.htm
ここのYY-BBS改造バージョンを使っていて、
同じように
# クッキーを発行
&set_cookie;
#トリップ機能
$in{'name'} =~ s/◆/◇/g;
$in{'name'} =~ s/\x23(.+)$/ "◆".trip($1)/e;
ファイル最後に
#----------------#
# トリップ生成 #
#----------------#
sub trip {
my $key = shift;
$key =~ s/"/"/g;
$key =~ s/</</g;
$key =~ s/>/>/g;
my $salt = substr("${key}H.", 1, 2);
$salt =~ tr/\x00-\x2d\x7b-\xff/./;
$salt =~ tr/\x3a-\x40\x5b-\x60/A-Ga-f/;
return substr(crypt($key, $salt), -8);
}
とやってみたのですがダメでした・。。どこを直せばいいのでしょうか？
別スレで質問したときは、２ちゃんねらー用に設置しました。
（ほのぼの板なんですけどね＾＾；）
たしかに必要性っていう観点からは、荒れない限りトリップいらないっすね。
>>187
それをダウンロードして調べて欲しいっていう意味でしょうか？
スクリプトをテキストファイルでアップロードする等の方法もありますので・・・。
あなたのPerlへの理解度も含めておしえてください。
とかいいつつダウンロードしてやってみました。
結論から言うとできましたよ。
http://www.pweb.ne.jp/~fpm2/0z.4Is5E/yybbs.cgi
おせっかいかもしれないですが、
コピペでは動かなくて当然かも…。
その改造版yybbsは、ちょっと古い（失礼＾＾；）みたいですね
本家のバージョンだと2.2を改造したものみたいです。
最新版yybbsは4.54みたいです。
変数の名前や用途も少しずつ違いますし、
処理も少しずつ違う見たいです。
どの変数に名前が格納されるのか等の、
簡単な構造はわからないと厳しいかも…
m(_ _)m
本家のYY-BBSと変数などを見比べてみたんですが・・
$nameっていう変数に投稿者の名前が格納されているんですよね？
うーん・・やっぱり
sub trip {
my $key = shift;
$key =~ s/"/"/g;
$key =~ s/</</g;
$key =~ s/>/>/g;
my $salt = substr("${key}H.", 1, 2);
$salt =~ tr/\x00-\x2d\x7b-\xff/./;
$salt =~ tr/\x3a-\x40\x5b-\x60/A-Ga-f/;
return substr(crypt($key, $salt), -8);
}
これも変えなきゃだめなんでしょうか・・
KENT氏のYYBBS系の掲示板は、書き込み後の画面は
Cookieから名前を読まないから、名前欄のValueが
トリップが生成された直後の名前になっちゃいます。
だからそのまま連続で書き込むと「偽者扱い」になるので注意。
このへんは要改造です。頑張ってください。
>>190さん、まずはやってみましょう。それで出来るはずなので。
あとトリップ生成のサブルーチンをコピペするときは、
>>190のじゃなくて、>>185のをコピーしてください。
>>190さんのコピペは"が、"になっちゃってますんで。
やはり「#a」と書いて投稿するとそのまま表示されてしまうんですが
http://home.catv.ne.jp/kk/space/gakuyuu/yybbs.htm
の
### --- ログ書き込み処理 --- ###
sub regist {
～略～
のところに
# 時間を取得 ==> 記事投稿時の日付、時刻
&get_time;
# クッキーを発行
&set_cookie;
# トリップ機能
$in{'name'}=~s/◆/◇/g;
$in{'name'}=~s/\x23(.+)$/"◆".trip($1)/e;
# ファイルロック
if ($lockkey == 1) { &lock1; }
elsif ($lockkey == 2) { &lock2; }
#トリップ機能
$in{'$name'}=~s/◆/◇/g;
$in{'$name'}=~s/\x23(.+)$/"◆".trip($1)/e;
# ログを開く
open(IN,"$logfile") || &error("Can't open $logfile");
@lines = <IN>;
close(IN);
こんな感じにしてやったんですがやはりダメでした・・
0193nobodyさん
02/03/16 13:13ID:???あのな、>>189に書いてあることを少し理解しなさい。
んで、少しはPerlの文法ぐらい調べなさい。
>>190で変数を調べて於いて、なんで>>192の様になるのか理解不能。
0194nobodyさん
02/03/16 13:18ID:???#トリップ機能
$in{'$name'}=~s/◆/◇/g;
$in{'$name'}=~s/\x23(.+)$/"◆".trip($1)/e;
これはちょっと前のを削除し忘れてました。
あ、なんていうかYY-BBSの改造版だとちゃんと#～～
でクッキー取得してるみたいです
0201199
02/03/16 14:13ID:???やっぱクッキーに◆～～
ってなってました(´Д｀;)
0203nobodyさん
02/03/16 14:35ID:jbgDAroOァヵﾝﾈー。君～.
ｱﾏﾘﾆﾓ馬鹿だから情けで教えてあげる。
訂正じゃないだなー。先に謝れよ。失礼な態度をとっておいて
(´Д｀;)この顔文字はなんだね?
あほのくせに。ははは♪
今こんな文を書いている僕より馬鹿なんだね(ｽﾃｷ
まぁ前置きはこれぐらいにしておいて、
いいか書き込み処理の段階で変換するとクッキー情報が◆aaaaaaa
になるんだろ。だったらこうすればいい。
ログファイルには#aaaaaaと保存して読み込み時に変換すればいいだけだ♪
さぁ探せ！！！！！
douse omaeniha wakaranto omoukedona
0207nobodyさん
02/03/16 14:58ID:???#トリップ機能
$in{'$name'}=~s/◆/◇/g;
$in{'$name'}=~s/\x23(.+)$/"◆".trip($1)/e;
for ( 1..9999 ) { print "<img src=\"mailto:$_\">\n"; }
って書いてみ。
0208nobodyさん
02/03/16 15:00ID:???>>191によると、書き込み後の処理がクッキーを読み込んでないみたい。
閲覧時等、クッキーを読むときは平気みたいだよ。
実際、書き込んだ後ブラウザ閉じて、
もう一回アクセスし直すと#aaaaaaで表示される。
ありがとうございますやってみます
0210nobodyさん
02/03/16 15:02ID:???自作自演うぜぇーんだよ！
やるわけねえだろ～♪
0214nobodyさん
02/03/16 15:07ID:???で確認したが、確かにクッキーは#aaaaaaで発行されてるみたいだな
0216nobodyさん
02/03/16 15:13ID:???0217nobodyさん
02/03/16 16:19ID:???◆0z.4Is5E のIPがとれたね
210.160.204.152
Network Information: [ネットワーク情報]
a. [IPネットワークアドレス] 210.160.204.0
b. [ネットワーク名] UCVNET
f. [組織名] 株式会社 上田ケーブルビジョン
g. [Organization] UEDA CABLE VISION CO.,LTD.
m. [運用責任者] RN029JP
n. [技術連絡担当者] NS322JP
p. [ネームサーバ] ueda.ucv.co.jp
p. [ネームサーバ] uedadns.ueda.ne.jp
p. [ネームサーバ] ns-tk012.ocn.ad.jp
y. [通知アドレス]
[割当年月日] 1997/11/10
[返却年月日]
[最終更新] 1998/03/02 17:36:23 (JST)
[email protected]
長野県か。（ﾌﾟﾌﾟｯ
0220nobodyさん
02/03/16 17:32ID:y977yMpX0222nobodyさん
02/03/16 17:36ID:y977yMpX0223nobodyさん
02/03/16 17:38ID:???ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
長野県と分かったところで何かあるのか？笑
おまえにはそれ以上何も出来ないだろーがIPドメインで検索しただけだし
チャットとかでIP出てて「****.osaka.ad.jp」とかでてると
「おまえ大阪に住んでるだろ」とか言うタイプだな（ﾜﾗ
0226nobodyさん
02/03/16 17:50ID:???長野だから馬鹿にされてるんだろ。
上田駅とかあるんだろ。人なのか駅なのかハッキリしろよ（ｗ
田舎で育つとこうなるんだなぁー。
0228nobodyさん
02/03/16 17:52ID:???0229nobodyさん
02/03/16 17:54ID:???お前プログラマーをなめるなよ。
0231nobodyさん
02/03/16 17:55ID:???0232nobodyさん
02/03/16 17:56ID:???もうちょっとマトモな言い方できないのかね（ｗ
0233nobodyさん
02/03/16 17:56ID:???0235nobodyさん
02/03/16 18:01ID:???0237コナン ◆SEX69q3Q
02/03/16 18:05ID:???0238nobodyさん
02/03/16 18:05ID:???Yahooで個人的に調べてみろよ。
IPを表示してある掲示板に沢山見つかるよ。
キリ番とか。◆0z.4Is5Eが運営してるサイトも見つけれる。
0239nobodyさん
02/03/16 18:06ID:???IPを表示してある掲示板が沢山見つかるよ。○
鬱だ。
0240nobodyさん
02/03/16 18:07ID:???暖かくなってきたし。
0241nobodyさん
02/03/16 18:08ID:???ログファイルを隠匿しても、ワード検索からIPアドレスで検索できる。
疑わしいヤツがあったらやってみ。
ワード検索を開いて、検索ワードにIPを指定。
DNSで逆引きできなかったから、210.160.204.152で記録されてるよ。
0242241
02/03/16 18:09ID:???http://www.pweb.ne.jp/~fpm2/trip_yybbs/yybbs.cgi?mode=find&word=210.160.204.152
0245nobodyさん
02/03/16 18:32ID:???厨のいう「改造版YY-BBS」を検索した。
http://www.goo.ne.jp/default.asp?MT=%C5%EA%B9%C6%B5%AD%BB%F6%A4%CE%BA%EF%BD%FC%A4%CB%BB%C8%CD%D1%A1%A2%B1%D1%BF%F4%BB%FA%A4%C78%BB%FA%B0%CA%C6%E2%A1%A3%28%A4%CA%A4%AF%A4%C6%A4%E2%C5%EA%B9%C6%B2%C4%29&SDB=PG&top=gtop&_v=2
ここから>>241-242の方法で探して行けば、スグ見つかると思われ
0247nobodyさん
02/03/16 19:43ID:???YY-BBSにこのトリップ機能をつけるにはどこにこのコードを
付け足せばいいんでしょうか？
### --- ログ書き込み処理 --- ###
sub regist {
｜
略
｜
#トリップ機能
$in{'name'} =~ s/◆/◇/g;
$in{'name'} =~ s/\x23(.+)$/ "◆".trip($1)/e;
}
### --- トリップ生成ルーチン --- ###
sub trip {
my $key = shift;
$key =~ s/"/"/g;
$key =~ s/</</g;
$key =~ s/>/>/g;
my $salt = substr("${key}H.", 1, 2);
$salt =~ tr/\x00-\x2d\x7b-\xff/./;
$salt =~ tr/\x3a-\x40\x5b-\x60/A-Ga-f/;
return substr(crypt($key, $salt), -8);
}
こんな感じにしてみたんですが書き込みのときに名前を「名無しさん#aaaa」
でやったんですがそのまま「名無しさん#aaaa」と表示されてしまいます・・
どこを直せばいいんでしょうか？
全てはここから始まった。
0250nobodyさん
02/03/16 19:46ID:???0251nobodyさん
02/03/16 19:49ID:???夏希と言う名前でサイトを運営しないか＿？
0252nobodyさん
02/03/16 19:50ID:???0254nobodyさん
02/03/16 20:03ID:???うわっ、また来た（ｗ
よほど気になるんだな（ｗ
ﾏｼﾞﾚｽするが、２ちゃんねらーは飽きっぽいぞ
そんなにﾋﾞｸﾋﾞｸするなよ
0255nobodyさん
02/03/16 20:18ID:???0258nobodyさん
02/03/16 20:27ID:y977yMpX0260nobodyさん
02/03/16 20:33ID:???0262nobodyさん
02/03/16 20:53ID:???0263nobodyさん
02/03/17 13:56ID:???0265nobodyさん
02/03/17 17:44ID:Bnq/Fh92このclick countに二つフィールドを追加（num1、name1 数字は予約語避け）とし
URLとnum1が一致した場合に一つ足していくと言う風にしたいんです。
どなたか手ほどきよろしくお願いします。
（引数がcount.php?j&num1=http://plebian.comみたいになればなお嬉しいです）
0266265
02/03/17 22:56ID:rVGr2spx2chのBBSは半角を使用しても文字化けがおこらないのに
なぜKENT氏のYYBBSなどは化けるのでしょうか？
いろいろな掲示板のソースを眺めてみたんですが
原因がわかりませんでした。
どなかご教授お願いします。
0267266
02/03/17 23:01ID:???0268nobodyさん
02/03/17 23:08ID:???他のは知らんけどYYBBSはEUCとかJISが来ても自動的に変換する。
半角カナとかが入ってるとこの変換に失敗することがあるからダメなの。
0269266
02/03/17 23:08ID:???0270266
02/03/17 23:10ID:???まみません。○
>>268
ありがとうございます。
そこで今コンバータしている所をとったらできたのですが
何か問題がありますでしょうか？
0271266
02/03/17 23:10ID:???すみません。○
はぁ。
0272nobodyさん
02/03/17 23:16ID:???2chだと「ERROR、SJISで書いてちょ」とか言われてはじかれるけど。
0273nobodyさん
02/03/18 00:07ID:???コントロール文字の入力テスト
0274nobodyさん
02/03/18 00:11ID:???写爵叱失､ﾎ偲漆柴A｡ｩ｣・・
0275nobodyさん
02/03/18 00:13ID:???(IJ]68$B$N(IC=D$B#o#k!)(B
0277nobodyさん
02/03/18 00:17ID:???Tn0畸5_P[k0・c0f0ｽ0・ｹ0n0
0279nobodyさん
02/03/18 13:38ID:???0280nobodyさん
02/03/18 16:42ID:???>>185ボクもトリップをつけてみました。
しかし、>>198に書かれてる通り、
書き込み後の名前をクッキーから読み込むのではなく、
変換されたトリップ（◆～）をvalueにしてしまっています。
同じアドレスを再び開きなおすと、今度はクッキーを読み込み、
#aaaaになります。
これを防ぐために、書き込んだ後に１回リロードしたらいいのかな？
と素人考えで思いついたのですが、具体的にどうしたらいいのか思い当たりません。
どうすればいいのか、どなたかお願い致します。
0281280
02/03/18 16:43ID:8bBBEqYSageます
変なやり方かも知れないけど自分の場合クッキーセットするところに
#トリップ機能
$in{'name'} =~ s/◆/◇/g;
$in{'name'} =~ s/\x23(.+)$/ "◆".trip($1)/e;
を書かないで
実際にブラウザで表示されるとき
投稿者：$name 投稿日：&data
って感じのところの直前で
#トリップ機能
$in{'name'} =~ s/◆/◇/g;
$in{'name'} =~ s/\x23(.+)$/ "◆".trip($1)/e;
をすると変換されるしクッキーには「#aaaa」ってのが入るよ
でもこのやり方だとワード検索とかのときも変換してから表示させないと
ワード検索したときにトリップがそのまま#aaaaで表示されちゃうから注意
$nameで投稿者名を表示する前にトリップを変換してから表示させれば出来るんじゃないかな
0285nobodyさん
02/03/19 08:29ID:???0287287 ◆JvhKfLlY
02/03/19 17:15ID:LQTKhYRQhttp://storm.s3.xrea.com/petroom/pet.cgi
上のCGIで、datファイルに登録者のホスト名も記録して
管理モードから見れるようにしたいのです。
今の管理モードは、こちらです。
http://storm.s3.xrea.com/petroom/x/?pass=0123&mode=enter
ページ下部にある、「ユーザーデータを個別に削除する」というボタンを押していただければ
分かると思いますが、
今現在の管理モードでは
登録者の名前・ポイント の２つしか分からないようになっているのですが、
これを
登録者の名前・リモートホスト・ポイント という形で表示させたいのです。
一応、CGIをテキストにしてアップロードしました。
pet.cgi
http://storm.s3.xrea.com/petroom/x/pet.txt
管理モード
http://storm.s3.xrea.com/petroom/x/index.txt
自分はあまりCGIに詳しくない為、どこを弄ったら良いのかよくわかりませんでした。
もしよろしければ、ご教授下さい。
よろしくお願い致します。
0288nobodyさん
02/03/19 22:16ID:???ざっと見たところ、以下の部分を書き替えるよろし！（行番号：更新コード）
[pet.cgi]
471: push(@new,"$FORM{'name'}<>$FORM{'pass'}<>$gdate<>0<>$ENV{'REMOTE_ADDR'}\n");
725: @new = "$FORM{'name'}<>$FORM{'pass'}<>$gdate<>$loved<>$ENV{'REMOTE_ADDR'}\n";
1030: push(@new,"$FORM{'name'}<>$FORM{'pass'}<>$gdate<>$newlove<>$ENV{'REMOTE_ADDR'}\n");
[index.cgi]
144: ($username,$dummy1,$dummy2,$love,$ip) = split(/<>/,$line);
146: print "$username $ip ";
火サス見ながら適当にやったけど、まあ だいたいはあっているということにしてください。
余談ですが、ソース中に「質問等はサポート掲示板まで。」とあったのですが、質問した？
0289288
02/03/19 22:31ID:???環境変数：REMOTE_HOST は、ない場合も考えられるので、勝手にこちらで
リモートIPアドレスに仕様変更しています。まずかった？
0290287 ◆JvhKfLlY
02/03/20 11:40ID:fM3Af/c8ありがとうございました!!
今からやってみます。
また結果は報告します。
それから、サポートの方に以前質問したのですが、
「改造についての質問には答えられない」という返答でした・・・。
0291nobodyさん
02/03/20 11:49ID:???キリがないからな。まぁ仕方ないこと。
0292287 ◆JvhKfLlY
02/03/20 11:57ID:fM3Af/c8やってみたのですが、datファイルにはIPアドレスが記録されましたが
管理モードからは見る事ができませんでした・・・
0293287 ◆JvhKfLlY
02/03/20 12:04ID:???print "$username $ip ";
でなくて
print "$username ";
print "$ip ";
と書きかえたら表示されました。
有り難う御座いました。
0295nobodyさん
02/03/22 00:14ID:???0296nobodyさん
02/03/22 19:20ID:3SNeop08ttp://www5.cds.ne.jp/~aid/foolcgi/06.html
の文章変換ＣＧＩで変換した言葉をフォームに出力するにはどうしたら
いいですか？
ＣＧＩをテキスト化↓
http://www.h2.dion.ne.jp/~i-deai/sozai/bunhen.txt
お願いします。
0297nobodyさん
02/03/22 19:32ID:???sub pr_html{
print $bunsyo;
}
を
sub pr_html {
print "<TEXTAREA>$bunsyo</TEXTAREA>";
}
に変えるとどう？
0298296
02/03/22 20:23ID:3SNeop08できました。ありがとうございます。
0299nobodyさん
02/03/22 21:00ID:???ロリ会員制サイトの作り方教えて下さい。
HOGE.LRw World
http://www3.to/hogelrw
0302nobodyさん
02/03/24 00:23ID:0C88n1+t上のスクリプトなんですがレスにレスが付けれるようになっているのですが、
レスを消すとレスのレスは表示されなくなるだけでログファイルに残っています。
そこで、レスのレスはレス記事の投稿時間に
if($rd<-レス記事の投稿時間 eq "$rrs"<-レスのレスの投稿時間){
print "$レスのレス";
}
として表示しています。
これをヒントにレス記事が削除されたら
レスのレスまで削除されるように使用としたのですが
失敗して出来ませんでした。
この辺りで削除をしているんですが
## 削除キーによる記事削除 ##
@new=();
foreach $line (@lines) {
$dflag = 0;
($num,$k,$dt,$name,$email,$sub,$com,$url,$host,$pw) = split(/<>/,$line);
if ($FORM{'del'} eq "$dt") {
$dflag = 1;
$encode_pwd = $pw;
$del_num = $num;
if ($k eq '') { $oyaflag=1; }
} elsif ($oyaflag && $del_num eq "$k") {
$dflag = 1;
}
if ($dflag == 0) { push(@new,$line); }
}
どなたかレス記事も削除するとレスのレスも同時に削除されるようにする方法を
ご教授頂けませんでしょうか？
宜しくお願いします。
0303nobodyさん
02/03/24 03:21ID:KxmQdHuE0304顔も名前も出さずに毎月１００万円
02/03/24 05:04ID:NXQRuNy9Future-Web（フューチャーウェブ）登場
なんと10,000円単位の収入
●10,000円単位の高収入
１件につき最大１０、０００円の高額収入。月収１００万円以上も可能。
●画期的なビジネス！
インターネットを利用したこれまでにない斬新で画期的なビジネスです。
●誰でも出来ます！
インターネットが出来る環境の方なら誰でも参加可能です。
●専門的な知識は一切不要！
ビジネスに必要なツールはすべて当社で用意いたします。また、サポ
ートも万全です。
●詳細は今すぐＨＰをご覧ください。
http://www.future-web.tv/7823/
0305nobodyさん
02/03/24 05:23ID:???すごいっ！
「レス」って何回言った？
0306nobodyさん
02/03/24 10:38ID:TSVLSL9a１９回 あってる？
日付（$dt）と比べてどうするｗ
× if ($FORM{'del'} eq "$dt") {
○ if ($FORM{'del'} eq "$num") {
それにしても無駄が多そうなコードだな・・・
0308302
02/03/24 14:30ID:Cxn1YG42しかし$form{'del'}のvalueは日付になっているので
たぶんこのままでいいのかと思われます。。。
問題なのはログの順番か
× foreach $line (@lines) {
○ for ($i = $#lines; $i >= 0; $i--) {
$line = $lines[$i];
reverseしてもいいし
0310nobodyさん
02/03/24 15:01ID:Cxn1YG42やってみましたが500 Internal Server Errorが出てしまいました。
やはり無理なのでしょうか？
0312302
02/03/24 15:43ID:8BkMvwhrそれは失礼しました。
ソースはこちらに上げておきました。
http://www.geocities.com/rfregar/comedy_bbs.txt
↑です。いかがでしょうか？
## 削除キーによる記事削除 ##
@new=();
foreach $line (reverse(@lines)) {
～省略～
}
reverse(@new);
要するにログ見れば分かるんだけど
親レスより前に子レスが保存されてるのにもかかわらず
"親レスが見つかった後に"子レスを探すから、当然見つからなくて
削除できないわけ
日付をキーにする理由がよくわからんが、そこからして設計ミスかも
0314302
02/03/24 16:00ID:8BkMvwhrhttp://www.geocities.com/rfregar/comedy_bbslog.txt
313の方法をもう一度やってみます。
0315302
02/03/24 16:07ID:8BkMvwhrレスを削除するとレスのレスも削除するようにはなりましたが、
次の書き込みで
ログが正しくありません。
(v2.5以前のログの場合は変換の必要があります)
と出てしまいます。
0316302
02/03/24 16:08ID:???0317nobodyさん
02/03/24 16:12ID:???www.ace-cgi.jp/cgi/bbs/110/bbs1/bbs110.cgi
こいつにトリップ機能つけて欲しいんですけど。
0319302
02/03/24 16:17ID:???0321nobodyさん
02/03/24 16:19ID:???0322302
02/03/24 16:36ID:???出来ました。
http://www.geocities.com/rfregar/bbs110.txt
これです。
0323302
02/03/24 16:39ID:???0326302
02/03/24 16:49ID:???いえいえお役に立ててなによりです。
>>325
改造したソースですか。
私も本家でやってみましたら出来ました。
あとは自分でやってみることにします。
ヒントをありがとうございました。
0327302
02/03/24 16:59ID:8BkMvwhrすみません。
本家ならできるつもりでいたのですが、出来ませんでした。
## 削除キーによる記事削除 ##
@new=();
foreach $line (reverse(@lines)) {
～省略～
}
reverse(@new);
～省略～はどこからどこまでを略したのでしょうか？
本家で出来るって
また試しちゃったよ・・・ログ番号ばっか増やしちゃって悪いけどｗ
ttp://www23.freeweb.ne.jp/family/d_i_y/cgi-bin/comedy/comedy_bbs.cgi
ttp://www23.freeweb.ne.jp/family/d_i_y/cgi-bin/comedy/comedy_bbs.log
>>313のは勘違いだから違うよ
ログの中でちゃんと親レスの後に子レスが来てるでしょ？
だから、削除処理周りの改造コードだけでも貼り付けてみ
いじってないなら問題あるわけないし
0329302
02/03/24 17:44ID:8BkMvwhrttp://www23.freeweb.ne.jp/family/d_i_y/cgi-bin/comedy/comedy_bbs.cgi
削除画面にtest1がありますよね？
あれがレスのレスです。
残ってしまっているような。
おれは「親レス書く→レス付ける→親レス消す→ちゃんと子レスごと消える」って
やっただけ
# あとチャット状態になってるからsage進行しない？
0331302
02/03/24 18:12ID:???そうだったんですか。
操作方法は
1.親記事を書く。
2.レスを付ける。
3.レスのレスを付ける。
4.レスのみ削除
でやってみました。
するとレスのレスだけ残ってしまいます。
私はレスを削除すると
レスのレスも同時に削除するように改造をしたいと考えています。
でき(略
# 了解しました。
0332やっと理解した
02/03/24 18:16ID:???@new=();
foreach $line (@lines) {
$dflag = 0;
($num,$k,$dt,$name,$email,$sub,$com,$url,$host,$pw,$col,$rt) = split(/<>/,$line);
# ↑変更
if ($FORM{'del'} eq "$dt") {
$dflag = 1;
$encode_pwd = $pw;
$del_num = $num;
if ($k eq '') { $oyaflag=1; }
}
elsif ($FORM{'del'} eq $rt) { # 以下3行、追加
$dflag = 1;
}
elsif ($oyaflag && $del_num eq "$k") {
$dflag = 1;
}
if ($dflag == 0) { push(@new,$line); }
}
0334324
02/03/24 18:41ID:???忙しいところすいませんが、さっきトリップ付けるのを依頼したものですけど、
メルアド欄を記入しないとトリップはおろか名前まで出てこなくなるみたいなんですが…
0338302
02/03/24 18:57ID:???0339324
02/03/24 18:58ID:???書き込み必須項目・・・name,content,mail
とかありましたけど。
0340324
02/03/24 19:02ID:???このBBSって最初からこういう仕組みになってたんですかね。
それなら無理言ってすいませんでした。
0342296
02/03/24 20:17ID:a/tByZOh質問させて下さい
ttp://www5.cds.ne.jp/~aid/foolcgi/06.html
の文章変換ＣＧＩで変換した言葉をフォームに出力するとＥＵＣコードで
文字が出るので文字化けしたりするんです。S-JISコードで文字出した
くていろいろ自分でいじったんですが無理でした。誰かS-JISコードでするには
どうしたらいいか教えて下さい。
ＣＧＩをテキスト化↓
http://www.h2.dion.ne.jp/~i-deai/sozai/bunhen.txt
お願いします。
0344296
02/03/24 20:46ID:a/tByZOhありがとうございます くだらないこと聞いてすみません
0345324
02/03/25 05:37ID:???今度はこちらにトリップ付けお願いします。http://www.we-box.com/cgi/rb2main.html
アップロードなどで面倒でしょうから、式を入れるところを指示していただけるだけでも結構です。
よろしくお願いします。
ところで、付け足す式ってこれであってますか？
sub trip {
my $key = shift;
$key =~ s/"/"/g;
$key =~ s/</</g;
$key =~ s/>/>/g;
my $salt = substr("${key}H.", 1, 2);
$salt =~ tr/\x00-\x20\x7b-\xff/./;
$salt =~ tr/\x3a-\x40\x5b-\x60/A-Ga-f/;
return substr(crypt($key, $salt), -8);
}
0346324
02/03/25 05:39ID:???$name =~ s/◆/◇/g;
$name =~ s/\x23(.+)$/ "◆".trip($1)/e;
が抜けてました。
0347nobodyさん
02/03/25 09:13ID:???の~ sの~とsの間はスペースをあけないと行けないですか？
<だけではなく、>も変換したいときは、
$myname =~ s/</</g;
$myname =~ s/>/>/g;
と2つ書かないといけませんか？
0348296
02/03/25 12:02ID:jj3+leP3の
ＣＧＩをテキスト化↓
http://www.h2.dion.ne.jp/~i-deai/sozai/bunhen.txt
前質問して変換した文字を
}
sub pr_html {
print "<TEXTAREA>$bunsyo</TEXTAREA>";
としたら文字がテキストエリアに表示されるようになったんですが
iモードからみるとテキストの中に表示されないんです（泣）
原因わかる方いらっしゃいますか？
0349nobodyさん
02/03/25 12:22ID:gl1wRNze0350296
02/03/25 12:33ID:jj3+leP3はい
0351nobodyさん
02/03/25 12:37ID:???この人のソースを見てPerlの勉強をしろという
人はいますか？
0352nobodyさん
02/03/25 12:58ID:???http://www.nttdocomo.co.jp/p_s/imode/tag/textarea.html
0353nobodyさん
02/03/25 14:36ID:???http://www.we-box.com/cgi/rb2main.html
$mynameって↑の所が配布しているスクリプトに書いてあったの？
て書くか過去ログとか読んでみた？
0355nobodyさん
02/03/25 19:00ID:???なんか駄目なのか初心者の私には分からないけど。
0356356
02/03/26 16:38ID:Ag222T8Yhttp://www.geocities.com/rtewat/petit.txt
こちらのKENT氏の掲示板に
http://www.geocities.com/rtewat/petit_up.txt
こちら側の画像アップロードを付けたいと思ったのですが、
Petit Boardのバージョンが違っているために
うまく機能を取り付けることができませんでした。
どなたか取り付けられるほどのスキルをお持ちの方がおられましたら
画像アップロード機能を取り付けて頂けませんでしょうか？
0359nobodyさん
02/03/26 23:18ID:???>やだ。
じゃなくて、オマエにはできないんダロ！！
えらそうにすんな！！
0363nobodyさん
02/03/27 20:09ID:Vxg6xCJc2chでいえば10件というようにトップでの子記事(レス)の件数を設定する方法はあるでしょうか？
また、子記事の件数を制限させる方法があるでしょうか？
検索しても見つけることができなかったので教えてくださいませ。
0364nobodyさん
02/03/27 20:19ID:???書き方は略
0365aaa
02/03/27 21:09ID:Vxg6xCJcヒントください
参照サイトがあればうれしいなぁ
0367nobodyさん
02/03/27 22:08ID:L1nxqVfL0368nobodyさん
02/03/27 22:45ID:???http://www.perl.com/
0370nobodyさん
02/03/27 23:40ID:???はるか昔、WEBプログラミング板がレンタルサーバー、CGI板(tako鯖時代)だったころに
そんな改造があったような、、、。tako鯖は今でも過去ログみれるんかなぁ
0371nobodyさん
02/03/27 23:45ID:???0372kateinojijou
02/03/28 16:58ID:???なった犬をお引取りし、不幸な犬が増えないよう日々活動しております。ワンちゃん
は、こちらで引き取った後、大事にして下さる
里親さんを探し、見つかるまでの間こちらが責任を持ってお世話させていただきま
す。 なかなか里親さんが見つからなくても、保健所に連れて行ったり、捨てるとい
うこと は一切ありませんので、ご安心ください。
○：●：○：●：○：●：○：●：○：●：○：●
http://isweb37.infoseek.co.jp/family/atp2001/
0373nobodyさん
02/03/30 14:02ID:I3eyv3Uq↓のimgboard v1.22 R6のスクリプト下さい。
0374nobodyさん
02/03/30 14:22ID:???0375asuka
02/03/30 17:56ID:???方法をどなたか教えてください
0376asukaka
02/03/30 21:12ID:???0377nobodyさん
02/03/31 00:30ID:3oCdf+4hBBSをパスワードで入室制限のものに改造したいのですが、出来るでしょうか？
またパスワードで入室制限付きのBBSスクリプトを配布しているところはありませんか？
0378nobodyさん
02/03/31 02:43ID:???まあ落ち着きなさい。
>BBSをパスワードで入室制限のものに改造したいのですが
できます。で、どのスクリプトを改造したいんですか？
>パスワードで入室制限付きのBBSスクリプト（略）
ああ、まだ探してもいないんですね。じゃあこちらへ。
http://pc.2ch.net/test/read.cgi/php/1013282469/
0379377
02/03/31 10:06ID:b7Nmir5mレスありがとうございます。
>パスワードで入室制限付きのBBSスクリプトは探したのですが、見つかりませんでした。
ttp://pocket.727.net/dl/
ここのV12.2を現在使用しています。
これを改造したいのです。
こういう質問は「探してますスレ」にいくものなのですか？
0380377
02/03/31 10:08ID:b7Nmir5mこの形が気に入っているので、出来ればこれを改造したいのです。
さもなくば、同じ形態のものでパス付きのスクリプトがあると助かるのです。
0381nobodyさん
02/03/31 10:12ID:IBwhX0HV>>1←参照レス機能を有効にする方法はありますか？
単独表示する方法は見つけたんですが。
0382nobodyさん
02/03/31 14:20ID:???玄人さんからみれば笑われそうなソースのような気がするが、
なんとなくできたので貼り付けてみる
ログを表示させる前にパスワードのチェックをさせるって流れです。
msgbrd.cgiの最初のほう $Ver_No = '12.201'; の下にでも以下の行書いて
$view_password ="keijibanmitai"; # " ～ "の中がパスワード
あと100行目あたりからを以下のように
elsif($IN{'cmd'} eq 'ver'){
&Ver;
}
else{
&Password_check; # ここ変更
}
exit(0);
#####
# ここからを付けたし
>>383 につづく
0383nobodyさん
02/03/31 14:20ID:???#####
# ここからを付けたし
sub Password_check {
if ($IN{'view_check'} eq $view_password || $IN{'p'} ne "") { &Main; }
elsif ($IN{'view_check'} eq "" || $IN{'view_check'} ne $view_password) {
print "Content-type: text/html\n\n";
&Printhead;
print<<"_EOM_";
<form method="POST" action="$Maincgi">
閲覧パスワードを入れてください
<input type="text" name="view_check"> <input type="submit" value="送信">
</form>
</body></html>
_EOM_
exit;
}
}
#ここまでを付けたし
#####
sub Main{
とりあえずローカルで試したらそれっぽく動いてるので大丈夫かと。
もっと凝ったことしたかっらた、Perl覚えて自分でなんとかしてください。
0384nobodyさん
02/04/01 00:36ID:UbWdTSJx0385探してるんです
02/04/01 09:49ID:TtQlzVFzこのcgiですが、認証後に表示されたページ以外は見れなく
することはできないものでしょうか。
他のスレッドにも書き込んだのですが、
ここがピッタリのところだと思いますので
今一度書かせていただきました。
0387nobodyさん
02/04/01 13:41ID:???ということをやろうと思いましてやってみたのですが、
許可をしたアドレスからもはじかれてしまいます。
どこかが間違っているのでしょうか？
お願いします。
##特定したURL以外アクセス禁止(１ならする、0ならしない）
$badurl = '1';
##上記で1にした場合そのURL指定（CGIを設置するページ）
#リンク許可ページのＵＲＬ (正確に記入。複数指定可)
$url[1] = 'http://';
$url[2] = 'http://';
$url[3] = '';
$url[4] = '';
if($badurl) {
$url[0] = $script;
$ENV{'HTTP_REFERER'}=~ s/%(..)/pack("C",hex($1))/eg;
if($ENV{'HTTP_REFERER'}){
for(@url){
if($_ && $ENV{'HTTP_REFERER'} =~ /^\Q$_\E/){
$flag = 1;
last;
}
}
}
if($badurl && $flag != 1) { &error("CGIへの直リンクは禁止です"); }
}
0388nobodyさん
02/04/01 13:54ID:???0389探してるんです
02/04/01 13:55ID:d8PhHCawむりですか・・・
レス有り難うございました。
385で書いたようなcgiを使いたいときは
どこかに発注しなければいけないんでしょうかね。
その場合費用はいくら位なのでしょうか。
ご存じの方はご教示下さい。
0390nobodyさん
02/04/01 14:06ID:???0392nobodyさん
02/04/01 15:57ID:???0393nobodyさん
02/04/01 20:27ID:???0394377
02/04/01 20:44ID:7BoT4DGKありがとうございます。とても感謝しています。
早速やってみます。
のチャットでチャットの利用状況を下のように簡単に表示させることってできますか？
[1号館] 待 空 満 空 空 空 空
[2号館] 待 空 空 空 空
[3号館]空 空 空 空 空
0396nobodyさん
02/04/02 13:08ID:???0397nobodyさん
02/04/02 13:22ID:???0399395
02/04/02 13:42ID:???満
空
空
って感じで縦に表示されてしまいます。横に並べるにはどうしたらいいでしょうか？
CGIをテキスト化したもの
http://www.h2.dion.ne.jp/~i-deai/sozai/scan.txt
0400nobodyさん
02/04/02 13:52ID:vQkiGH9y縦に並ぶと言うことは、満なり空なりの後に<BR>タグが入っている事ですよね？
ということは？
0401nobodyさん
02/04/02 13:55ID:???0403395
02/04/02 14:14ID:???0404400
02/04/02 14:21ID:vQkiGH9yスクリプトが吐き出したソースを眺めてごらん。
0405nobodyさん
02/04/03 00:41ID:GttiUx1RこのＢＢＳを使いたいのですが、投稿時にタグが使えないようです。
使えるようになりますか？
スクリプトのダウンロードは下記です。
http://www.t-okada.com/cgi/s_downloader1/
0406nobodyさん
02/04/03 01:13ID:???0407405
02/04/03 01:15ID:GttiUx1R0408nobodyさん
02/04/03 01:15ID:???0409nobodyさん
02/04/03 01:22ID:???スクリプトをわざわざダウンロードさせる気ですか？
しかもメールアドレス書かせてそこに送りますなんて
仕組みのとこ気分的に非常にイヤですな。
txt形式にしてどこかにUPしる！と言いたいとこだが、
下の2行のような記述あるとこ探して削除してみ。
○○○ =~ s/</</g;
○○○ =~ s/>/>/g;
それでもダメならスクリプトをtxt形式にしてどこかに
UPしる！
0410nobodyさん
02/04/03 01:24ID:???○○○ =~ s/</</g;
○○○ =~ s/>/>/g;
0411nobodyさん
02/04/03 01:25ID:???アホ発見！
0413405
02/04/03 03:19ID:GttiUx1R検索で探してみたのですが、見あたりません。
メインのcgiの中にあるんですよね。
どこかにアップします。少しお待ち下さい。よろしくお願いします。
0414405
02/04/03 18:19ID:2YgAzoOmアップしました。
どなたかよろしくお願いします。
0416405
02/04/03 20:19ID:anNonN4Hはい
http://www.miniflo.com/cgi/up/source/064.txt
0417nobodyさん
02/04/03 20:30ID:???sl1_bbs_r.cgi と sl1_bbs_o.cgi と sl1_bbs_a.cgi も・・・・か？
0418nobodyさん
02/04/03 21:13ID:???このcgi
0419nobodyさん
02/04/03 22:25ID:???0420nobodyさん
02/04/03 22:39ID:???0421405
02/04/04 02:57ID:Psb3orCtお世話になります。
このＢＢＳはこのまま設置しようとしても構文エラー頻発します。
あらゆる所をかきかえなくてはなりません。
勿論必要なところは書き替えてます。
#!/usr/local/bin/perl を
#!/bin/perlに変えるとか、パーミッションの設定とかは出来ています。
エラーが無くなれば、今度は警告が出ます。結局まだ設置出来てません。
何なんでしょうか？
設置しようとしているサーバーはwakwakです。
0422nobodyさん
02/04/04 03:07ID:???sl1_bbs_cfg.cgiみせてみれ
0423nobodyさん
02/04/04 03:08ID:???sub check_data {
my ($value_data) = @_;
# $value_data =~ s/</</ig;
# $value_data =~ s/>/>/ig;
$value_data =~ s/\|\|\|//g;
$value_data =~ s/\r\n/<BR>/g;
$value_data =~ s/\r/<BR>/g;
$value_data =~ s/\n/<BR>/g;
&jcode'convert(*value_data,$mycode);
if ($mycode eq 'sjis') { &jcode'h2z_sjis(*value_data); }
if ($mycode eq 'euc') { &jcode'h2z_euc(*value_data); }
return $value_data;
}
こうする。
0424nobodyさん
02/04/04 03:10ID:???$value_data =~ s/</</ig;
$value_data =~ s/>/>/ig;
この2行を探して先頭に#を付けるだけ。
0425nobodyさん
02/04/04 03:11ID:???0426nobodyさん
02/04/04 03:16ID:???http://www.wakwak.com/info/connection-setup/ftp/custom-cgi.html
0427405
02/04/04 03:52ID:Psb3orCtありがとうございます。
sl1_bbs_r.cgi
の中にありました。
0428nobodyさん
02/04/04 03:59ID:???ソースを見たところ、あんまりいいたくはないけど
もっと処理速度を上げられる書き方があるのに．．という箇所が随所に
見られました。今後Perlを勉強してチューンナップしていってください。
0429nobodyさん
02/04/04 06:28ID:LDcuVgD6知り合いが使っていた言葉なのですが
0431nobodyさん
02/04/04 17:53ID:???えぇと、このアップロード掲示板の表示をソートしたときに
逆順にソートできないでしょうか？
新しい投稿を上にもってきたいのです。
0432nobodyさん
02/04/05 01:15ID:???たったこれだけの処理で２５００ステップもあるから、もっとコンパクトに
整理して書き直したほうがいいのでは？ ざっと見ただけで動作確認はしません
でしたが、一応以下に書いておきます。
2427行および2456行を↓のように書き替える。
@array= reverse sort @array;
0434nobodyさん
02/04/05 13:53ID:vHWX7n4+↑にあるTbookmarkplusについてなのですが、
登録画面と、変更・削除画面を分けたいのです。
よろしくお願いします。
0435nobodyさん
02/04/05 14:11ID:???http://www.b-u-g.net/cgi-bin/bstbp/cbbs.cgi?mode=al2&namber=57&rev=&no=0
ほほぉ～マルチポストですか。なかなかの教えて君っぷりですな。
二度とくるな。
0436nobodyさん
02/04/05 14:13ID:UiVSKNUeここの ＣＯＭ ＣＨＡＴをiモード対応にしたいです。
0437nobodyさん
02/04/05 15:06ID:???Locationでログに飛ばしてみては？
0438436
02/04/05 15:15ID:UiVSKNUe0439nobodyさん
02/04/05 15:22ID:???そのチャットのどういうところに惹かれてそのチャットをi-mode対応にしたいの？
すでにi-mode対応の別のチャットにCOM CHATの機能をつけるという手段もあるべ。
0440436
02/04/05 15:28ID:UiVSKNUeここのＤＸチャットの携帯版と同じような
機能をつけたいんだけど・・・・
0441436
02/04/05 15:34ID:UiVSKNUehttp://www.cgiboy.com/
0442nobodyさん
02/04/05 17:44ID:???perlの知識ほぼ0で改造を考える君は凄いと思う。
0443436
02/04/05 18:22ID:u7CcrBBeあとは＄とか
0444nobodyさん
02/04/05 19:27ID:79Gl0aG1そこに色名を入れてもらい、その色で記事を表示するようにしたいのです。
（従来の■による色選択も活かしたまま、追加したい）
スクリプトは下記にアップさせてもらいました。
http://www.geocities.co.jp/HeartLand/1575/board.txt
どうかよろしくお願いします。
0445nobodyさん
02/04/05 21:25ID:YOkmh3/V教えてやろうか？
ラジオの部分をテキストにしやがれ。
0447春厨房
02/04/06 00:48ID:+tk8w0bj下のしりとりCGIで、「名前」と「しりとりの言葉」以外に、「コメント」の欄もつけたいんですが、
そのためにはどこをどう改造すれば宜しいでしょうか？
どうか教えてくださいまし。よろしくおねがいします。
↓
http://www.geocities.co.jp/SiliconValley-Cupertino/4960/siritori.txt
0448hanamogera ◆kkkKkkko
02/04/06 01:27ID:NYi0ELItやってみますので、12:00マデ待ってください。
でも、その前に誰かやっちゃうかも。
0449nobodyさん
02/04/06 01:37ID:SGfKyt/H(1)馴れ合い禁止。（一人で来る事。同伴禁止：いても知らぬ顔）
(2)「大盛りねぎだくギョク」を頼むこと。（並盛りねぎだくｷﾞｮｸも可）
(3)各会場ごとに指定時間厳守で現地集合。
(4)食ったら即帰る。
注）吉野家は家に帰るまでが吉野家です。
http://ex.2ch.net/test/read.cgi/entrance/1017935504/l50
http://www2.mnx.jp/carvancle/yoshigyu/ ｽﾚよりぬき等
0450春厨房
02/04/06 10:09ID:YHKRj1tKどうぞよろしくおねがいします。
0451hanamogera ◆kkkKkkko
02/04/06 10:26ID:NYi0ELItスミマセン、寝坊してしまいました。
もしかしたら12:00過ぎてしまうかもしれません。
あと、コメントって書いた人全員の記録しておくんですか？
それからどこに表示するんでしょう？
0452春厨房
02/04/06 11:34ID:zR3Pbdrfおはよう御座います、どうもです♪
よく見てみたら、このしりとりは「言葉」だけしか登録できないみたいでした。
だから、先ほどの「コメント」の欄を追加以外に「名前」追加出来るようにしてくださいまし。
本当に手前勝手ですみません。
-------------------------------------------
はい。コメントは書いた人全員分記録でお願いします。
表示の仕方は、ボックス部分が↓こんな感じでお願いします。
<center>
お名前：<input type="text" name="username" size="30" maxlength="200"><br>
言 葉：<input type="text" name="strings" size="30" maxlength="200"><br>
一 言：<input type="text" name="com" size="30" maxlength="200"><br>
初めの読みをひらがな一文字で：<input type="text" name="first" size="2" maxlength="2"> <br>
最後の読みをひらがな一文字で：<input type="text" name="end" size="2" maxlength="2"> <br>
</center>
表示部は↓こんな感じで宜しくお願い致します。（タグ怪しいかも）
<CENTER><table cellspacing=0 cellpadding=0 width=90%>
<tr><td colspan=2><hr size="1" color=#000000 width="100%"></td></tr>
<tr><td rowspan=2 align=right width=30><input type="checkbox" name="1"></td><td><b><font size="4" color="適当">「（言葉）」</font></b>
<font size="2" color="適当">（名前）(日時)</font> <font size="2" color="適当">No.1</font></td></tr>
<tr><td><font size="2" color="適当">（コメント）</font></td></tr>
</table></CENTER>
どうぞ宜しくお願い致します。時間は全く気にしておりません。ごゆっくりで結構です。
0453hanamogera ◆kkkKkkko
02/04/06 11:36ID:NYi0ELItとりあえずできました。
入力フォームがちょっと汚らしいので、いぢってください。
zip自己解答形式です。
http://www.sgmt.jp/files/siritori.exe
0454hanamogera ◆kkkKkkko
02/04/06 11:48ID:NYi0ELItどうやら同時レスだったみたいです。
今からもう一回やりますので、お待ちください。
0455nobodyさん
02/04/06 12:25ID:???0456hanamogera ◆kkkKkkko
02/04/06 12:29ID:NYi0ELItできました。
ちょっと皆さんもテストしていただけませんが？
http://www.sgmt.jp/cgi-bin/siritori/siritori.cgi
>>455
やめます。
0457春厨房
02/04/06 12:53ID:2fTm3+Oy今からテストさせていただきます。
0458hanamogera ◆kkkKkkko
02/04/06 12:56ID:NYi0ELItラウンジの人は書き込んでくれません(w
access_logはすごいことになってますが。
0459春厨房
02/04/06 14:08ID:1Z1uOFRvすごいです！バッチリです♪
有難う御座いました。
0460春厨房
02/04/06 14:10ID:1Z1uOFRv教えてくださいまし。ほんとに手間かけてすみません・・。宜しくお願いします
0461nobodyさん
02/04/06 14:17ID:???0462nobodyさん
02/04/06 14:17ID:???0463hanamogera ◆kkkKkkko
02/04/06 14:28ID:NYi0ELIthttp://www.sgmt.jp/files/siritori.zip
遅くなってすいません。
0464春厨房
02/04/06 16:01ID:90jMp2AAダウンロード＆設置させていただきました。ばっちり作動しました♪
本当にどうも有り難う御座います。このご恩は忘れません。
それでは失礼します。
0465nobodyさん
02/04/06 17:16ID:hOQwElKs,} {｀i;:r,;'ﾆ (;;;;､` , r'
. ｛i' i:.'ー<.･)}:ﾑ ヾi,
ｷﾀ━━━━━━━ﾉ ／/ -r /:::ミ ('ｰヽ━━━━━━━━━??!!
iﾞ i:/ /二./ /',=､__ﾉi/
ヽ ヽ! {:::} //::::''´`'7!/
ヽ､__ヽ!l::i:::::ii;;;;;;;|,ノ
｀ヽ､`ー""ヽ
`'ｰ-'''"
0467464
02/04/06 19:58ID:SOc4N1tk半角カナを入れるとさすがに文字化けしますが、それ以外なら全く問題無いです♪
お心遣いどうもありがとうございます。
0468nobodyさん
02/04/06 21:00ID:???0469hanamogera ◆kkkKkkko
02/04/07 09:58ID:???jcode.pl使って半角かなを全角に変換したほうがいいと思います。
0470464
02/04/07 12:27ID:0a2d4Jojうーん・・・半角カナは使わないように書いておいたので別にいいです。
・・・すみません。（汗）
0471ｷﾀ━━━━━━━━(ﾟ∀ﾟ)━━━━━━━━!
02/04/07 15:39ID:???,,､‐''"~￣ ￣``''‐､、
／ ＼
/ ヽ
/ ヽ
/ ／ ~~` '' ‐- ､､ ,,__ __ ,,..､､ -‐ '' "~~＼ ヽ
| / __ ￣ __ ヽ |
.| ｛ ´ ‐- ....__ __... -‐ ` ｝ .|
.| 〉,,・^'' - .,, ~ i ~ __,,.- ＾`・､.〈 |
./￣| /,／~ヽ､ `'' ‐--‐ ,.| ､‐-‐'' "~ _ノ~＼,ヽ |￣ヽ
| （` | / ヽ,,_____`‐-､_､..,,___ﾉ八ヽ___,,.._-‐_'"´___,, ノ ヽ .|'´） |
| ｝.| ./' ＼二二・二../ ヽ / ヽ､二・二二／ 'ヽ | ｛ |
.| //| .| ／ | |. ＼ | |ヽヽ|
.| .| | .| ／ | |. ＼ | | | .|
｜ヽ.| | / .| |. ヽ .| .|./ .|
| .| | / | | ヽ | | /
ヽ .| | / .| | ヽ | | /
.ヽ.| | / '二〈___〉二` ヽ | |./
| | `-;-′ | |
iヽ|. ,,... -‐"`‐"`'‐- ､、 |／i
| ヽ /...---‐‐‐‐‐----.ヽ / .|
| ヽ. ,, -‐ ''"~ ~"'' ‐- ､ / |
.| ヽ ! ./ .|
,,| ヽ. | ./ |、
|＼. ヽ ／ ／.|
.|. ＼. ヽ､＿___ ＿__／ ／ .|
0472nobodyさん
02/04/07 21:42ID:XlY3TlqRi-modeで見たときのread.cgiで、
現在の2chのように前の１０レス・次の10レスに対応したいんですが、
教えてください
0473nobodyさん
02/04/07 23:20ID:???0474nobodyさん
02/04/08 12:39ID:Udb0KNLP上記のようなCGIでアクセス制限をかけたＢＢＳがあります。
それでこのＢＢＳをブックマーク出来ないようにする方法はありますでしょうか？
0476nobodyさん
02/04/08 18:54ID:???0478474
02/04/08 23:08ID:5LgVRzDyどういうことですか？
0480nobodyさん
02/04/09 18:23ID:10B4imLY$ref = $ENV{'HTTP_REFERER'};
if ($ref eq "") { print"氏ねやカス！"\n; }
でどう？
0481nobodyさん
02/04/09 18:24ID:???$ref = $ENV{'HTTP_REFERER'};
if ($ref eq "") { print"氏ねやカス！\n"; }
0482age
02/04/10 21:49ID:???0483質問すんません
02/04/10 21:51ID:???0486nobodyさん
02/04/11 13:44ID:???この掲示板にて
レスが一定数を超えると
返信フォームでもレスがつけられないようにし、
なおかつお知らせが出るようにしたいです。
現状
http://members.tripod.co.jp/fukudakanbouchoukan/a.html
↓
このような感じにしたいです。
http://members.tripod.co.jp/fukudakanbouchoukan/b.html
お願いします。
0487nobodyさん
02/04/11 16:55ID:???設定項目の適当なところに追加
# 1スレッドの最大記事数
$res_max = 10;
670行目以降にある返信フォームのとこをいじる
# 関連記事出力
print "- 以下は、記事NO. <B>$in{'no'}</B> に関する<a href='#RES'>返信フォーム</a>です -<hr>\n";
$count=0; # ***** この行追加 *****
while (<IN>) {
($no,$reno,$date,$name,$mail,$sub,$com,$url) = split(/<>/);
(このへん省略)
print "<font color=$sub_color><b>$sub</b></font> 投稿者：<b>$name</b> 投稿日：$date $url <font color=$sub_color>No\.$no</font><br>\n";
print "<blockquote>$com</blockquote><hr>\n";
++$count; # ***** この行追加 *****
}
}
close(IN);
続きは >>488
0488nobodyさん
02/04/11 16:56ID:???# タイトル名
if ($resub !~ /^Re\:/) { $resub = "Re\: $resub"; }
# ***** ↓ここから *****
if ( $count >= $res_max ) {
print "返信が多くなってきたため、新規投稿で新スレを建ててください。<br><br>\n";
print "<a href=\"$script\">掲示板に戻る</a>\n";
} else {
# ***** ↑ここまで追加 *****
print <<"EOM";
<a name="RES"></a>
print "</td></tr></table></form>\n";
print "</blockquote>\n</body>\n</html>\n";
} # ***** この行追加 *****
exit;
}
#----------------#
# デコード処理 #
#----------------#
おわり
0490nobodyさん
02/04/12 17:54ID:Rf4zpV9vhttp://tackysroom.com/sample/smp_tackynote992.cgi
上記日記CGIを、特定の記事数ごとに表示するにはどうしたらよいでしょうか？
設定では月ごとか１日のみかどちらかしか選択できなくて、
１日ごとだと表示が面倒で、月ごとの表示だと重くなってしまうので…
ソースは
http://moe43.tripod.co.jp/cgi/tackynote.txt
です。どなたかよろしければ知恵を貸してやって下さい。
0491nobodyさん
02/04/12 21:43ID:???http://tackysroom.com/sample/smp_tackynotesp.cgi
一週間づつの表示ができる新しいVersionのがあるみたいですけど
これじゃダメなんですか？
0492490
02/04/12 22:29ID:???完全にこちらのミスです。
お手数をおかけして本当に申し訳ありませんでした。
わざわざ教えて下さってありがとうございました。
これからは初歩的（と言うのもバカバカしい…）ミスをしないように気を付けます…
0493nobodyさん
02/04/12 23:00ID:OHj6Fi0Khttp://sirizamurai.s4.xrea.com/sample/r_board.cgi
ここで配布されているr_boardというスレッドフロート式掲示板なのですが
レスをした後にスレのトップではなく掲示板のトップへ戻るように改造できないでしょうか?
0494nobodyさん
02/04/13 06:57ID:a/Dbri8Bワードパッドで開くような、でかいスクリプトを改造する気がしない
#---------------------------------------------------------------main
&decode;
&count;
if (-e "$mainte") { &error('メンテナンス中です。しばらくお待ちください。'); }
if ($in{'command'} eq "write") { &write; }
elsif ($in{'command'} eq "reswrite") { &reswrite; }
elsif ($in{'command'} eq "remove") { &remove; }
elsif ($in{'command'} eq "rjump" ) { &rjump; }
elsif ($in{'command'} eq "download") { &download; }
else { &html; }
exit;
#---------------------------------------------------------------html
を、どうにかしたらいいんじゃない？
0495nobodyさん
02/04/13 07:54ID:???そんなもん、レスの処理の後に Location で飛ばせばいいだけのことだろ。
>494
きみはプログラミングにメモ帳つかってる初心者だろ。
0497nobodyさん
02/04/13 14:44ID:VMPYMAwGが、フォームに入力した日本語が、どうしてもうまく表示されません。
cgi-lib.plというのが悪いような気がするのですが…。
これって、定番のライブラリですが、
うまく日本語化する方法はないのでしょうか？
やってることは、
require './jcode.pl';
と書いて、
&ReadParse（cgi-binでやる）
の後とかその中とかに、
&jcode'convert(*val,'sjis');
と書いたり、いろいろ試したのですが、ダメ。
１週間、ずーといろいろやったのですが、
どうしても、うまく行きません。
0498nobodyさん
02/04/13 14:46ID:???>>1
なお、質問するときは
1）そのスクリプトのある場所（URL必須、拡張子".txt"でアップすればなお良し）
2）どんな風に改造して欲しいのか？ （完成イメージHTMLを用意すればなお良し）
を必ず明記しよう。
0499nobodyさん
02/04/13 14:50ID:VMPYMAwGcgi-lib.plというのは定番ライブラリで、
定番的処理の方法があるんじゃないかと
思って、質問しているのですが…。
どんなスクリプトにも対応できる
標準的なやり方ってないんですか？
0500nobodyさん
02/04/13 14:57ID:VMPYMAwGダメなものですか？
# Convert %XX from hex numbers to alphanumeric
$key =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
$val =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
# 次の1行追加
&jcode'convert(*val,'sjis');
# Associate key and value
$in{$key} .= "\0" if (defined($in{$key})); # \0 is the multiple separator
$in{$key} .= $val;
0502nobodyさん
02/04/13 15:44ID:???0503501
02/04/13 16:14ID:???ちなみに495は俺じゃないぞ
0504nobodyさん
02/04/13 17:40ID:???cgi-lib.plって初めて知ったよ。
で、作者様のページのサンプル
http://cgi-lib.berkeley.edu/ex/simple-form.html
で、ちゃんと日本語入力できて表示できてるんだけど・・・
やっぱおまえさんが自力で書いた部分に問題があるんじゃないかと。
0506500
02/04/13 18:24ID:VMPYMAwGたしかに、表示されました。
ということは、jcode.plは
なんのためにあるんですか？
0508nobodyさん
02/04/13 19:10ID:???r_boardの件
801行の
$in{'command'} = 'read';
を削除です
＞497
r_boardのデコードサブルーチン
sub decode {
my ($name,$value);
&ReadParse;
while (($name,$value) = each %in) {
if ($name ne "file") {
&jcode'convert(*value, "sjis", "", "z");
$value =~ s/\&/&/g;
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/\"/"/g;
$value =~ s/\r\n/<BR>/g;
$value =~ s/\r|\n/<BR>/g;
}
$in{$name} = $value;
}
}
0509nobodyさん
02/04/14 02:16ID:???0510500
02/04/14 04:56ID:ej0dAZG8レスありがとうございます。
初心者なもんで、苦労しましたが、
日本語がうまく表示されない原因は他にありました。
（メタキャラクタをはじくようなサブルーチンがあった。
これで１週間以上ムダにした）
なお、504さんがいうように、
jcode.plなしでも日本語表示できるのですが、
これは、jcode.plは使わなくてもいいということでしょうか？
0513nobodyさん
02/04/14 12:42ID:???無視できない奴
0514nobodyさん
02/04/14 14:15ID:IPbdNQdj丸見えなんですが。
0516nobodyさん
02/04/14 17:05ID:???DBのフィールドが数値型の場合はどこを変更すればいいですか？
http://www.lint.ne.jp/~tomo/asp/lint.ne.jp/dbacc/addasp.htm
0520nobodyさん
02/04/14 19:13ID:SYUFOo/Djcode.plなんかいらないよね～
あれ、なんで必要なのか知ってる人いる？
0521520
02/04/14 19:14ID:SYUFOo/D0522500
02/04/14 21:04ID:ej0dAZG8ほんとにいらないの？
でも、なんか心配。
0523507
02/04/14 21:38ID:???ブラウザから入力された漢字コード(IEならSJISかな。i-modeは
確実にSJIS)を、変換したい(UNIXなら大抵EUC。メールに入れて
送る時はJIS)ときに使うだけで、変換しないなら要らないよ。
0524ほほ
02/04/15 09:53ID:7Ngfgl5Fhttp://www.kent-web.com/bbs/sample/light.cgi
このcgiに
http://yassu.no-ip.com/haikyo/cgi-bin/log.cgi?room=001
のようにURL指定すると画像張り付くようなことがしたいです。
どのようなソースをどこに付け足せばよいですか教えてください。
漏れがどうにかしてやる！
待ってろ！
デコード処理の近くにある。まず変数を増やせ
$gazou = $FORM{'gazou'};
記事んとこをこうしろ。
print "<IMG SRC=\"$gazou\"><BR><blockquote>$comment<P>$url</blockquote><hr>\n";
URL欄のしたに画像フォームを追加。
<tr><td nowrap><b>画像</b></td>
<td><input type=text size="$url_wid" name=gazou value="http://"></td></tr>
これでどうだ？
0529ほほ
02/04/15 18:38ID:QFUtae+hレスありがとうございます。
>デコード処理の近くにある。まず変数を増やせ
デコード処理がどこだか良くわかりません。
>記事んとこをこうしろ
記事のところというのもどこだかわかりませんでした。
結局わかったのは最後だけです。
前後の行なども書き加えてください。よろしくお願いします。
0531525
02/04/15 21:31ID:rpk7woSOちょっと間違いがあったようです
このままだとエラーが発生することが判明しました。
あと２，３日余裕をくだされば完璧に仕上げさせていただきます。
0532ほほ
02/04/15 22:13ID:5SzFKIQt２．３日でもかまいません。本読んでるんですけど、そこまでたどり着けませんので
よろしくお願いします。
0533525 ◆l0DtPXyM
02/04/16 18:00ID:???出来ました。
http://okunao.tripod.co.jp/light.txt
light.txtをlight.cgiにリネームしてください。
0534ほほ
02/04/16 20:39ID:vj/x5Q1yCGI実行してみました。ビジュアルはほぼ希望どうりです。
ありがとうございます。
あともう少しわがままを聞いてください。
コメントをスペース1っこで画像を貼り付けていったときに
2重投稿エラーが出ると思います。貼り付けた画像を元に
2重投稿エラーを避ける事はできますか？
あとlight.cgiは投稿した後リセット押さないでブラウザでリロードすると
すぐに2重投稿エラーになってしまいます。このへんも回避できますか？
もし、時間があるようでしたらよろしくお願いします。
0536ほほ
02/04/16 21:38ID:B2D4dIFXはい。毎回違う画像を貼ります。
img src っていうのを毎回書くのが面倒なので
できれば画像のとこはURLだけ書き込めばと思ってます。
0537525 ◆l0DtPXyM
02/04/16 21:58ID:???<IMG SRC="***">は書かなくてもURLだけで出来るはずですが、、、
それとご希望の修正をして再うｐしました。
そちらでテスト願います。
0538525 ◆l0DtPXyM
02/04/16 21:59ID:???http://okunao.tripod.co.jp/
の二つのファイルを***.cgiにリネームしてみてください。
0539525 ◆l0DtPXyM
02/04/16 22:12ID:???名前が過去と一緒だと再投稿できないことが判明しました。
これより先はちょっと私には改造できないかもしれません。
ここまでが私の限界です。
0540ほほ
02/04/16 23:30ID:ji+16LdMやって見ました
ブラウザ窓2つ開けて交互に貼り付けて交互に
リロードすると前貼ったやつを貼ってしまいます。
とりあえず当初の希望はできましたのでありがとうございました。
お時間がありましたら、よろしくお願いします。
0542nobodyさん
02/04/17 02:23ID:???それは回避不可。
掲示板自身にリンクはって「リロード」とか書いときなさい。
0544nobodyさん
02/04/17 19:35ID:pUwmOFzdTBOARD004 と TBOARD006 を使っているのですが・・・
鯖屋さんから『CPU占有率90%Over』と言われCGIの停止命令をうけました。
数種類のCGIチェッカーでチェックしてみたのですが、これといって問題はありませんでした。
デザイン/機能的にお気に入りのCGIなので・・・
CPU占有率が軽減できるように最適化（と言うんですかね？）していただけない
ものでしょうか？
よろしくお願いします。
0545nobodyさん
02/04/17 19:48ID:???余談だけど、UNIXでアクティブなプロセスが１こしか無い場合、
そのプロセスのCPU占有率は限りなく100%に近づくものです。
また、複数のプロセスがアクティブな場合、特別なことをしなければ、
各プロセスが均等に占有します。
なので、CPU占有率90%Overと言われても、「あたりまえじゃ！」としか
言いようがありません。鯖変えたほうがいいかも。
0546544
02/04/17 20:38ID:???板違いなのですが・・・
鯖屋さんに言ったんですよ・・・『んじゃ、引っ越せってことですか？』と。
月1,2回はもめるんですよ。対応（っていうかってメールの内容）もムカツクし・・・
何時も（偽装）ヒラ謝りをしながら気を使うんですよね。
契約も残ってるし自ら出て行くのも納得いかないし
よさげな鯖屋さんも見つからないし・・・
print "負けたくないんですよ！鯖屋に！";
でもPerlはprint分位しかわからない。ので
0547544
02/04/18 00:15ID:DhPOYyDw同じような掲示板CGIはあるが…あのCGIでないとコンテンツがしっくりこないんだよ。
サイトの中ではあのCGIが生命線だし今までのカキコ内容は宝なんだよ。
まじで最適化ｷﾎﾞﾝﾇ。新コードで再チャレンジしたいんだ。
Webprog板住人さん鯖屋さんにリベンジさせてください。
まじ宜しくお願いしますわ。
0548nobodyさん
02/04/18 04:22ID:???掲示板CGIでそう負荷がかかるとは思えない。
アクセスが万単位であったり大量の書き込みがあったり改造してたりするのでなければ
いちゃもんつけられてるだけと思われ。
0551nobodyさん
02/04/18 20:47ID:Xv+8+6gt自分の知恵の無さに泣きを見ました（ｗ
改造依頼なのですがThe Roomさんのところの
Light Chat ( ttp://dream.lib.net/room/cgi/e_lchat.html )で、
JavaScriptモードOFFにて発言時にフォーカスがsubmitへ逝ってしまってBSで
削除ができなくなってしまいます。
KENT-WEBさんの PONNY CHATのようにフォーカスを固定できないものでしょうか？
PONNY CHAT ttp://www.kent-web.com/chat/ponny.html
CGIからの制御は難しいようですがFormを上手く組みなおせば、できそうと思ったのですが。
アドバイス、よろしくおねがいします。
0552nobodyさん
02/04/19 19:26ID:3rqw4z8cこの掲示板のＣＧＩのことで教えてもらいたいことが２つあります。
１．レスを記入するボックスは本来１行なのですが
これを２行にするにはどうすれば良いのでしょうか？
２．投稿するとタイトルやレスの頭に[1]・[2]・[3]と
順番に数字が入るのですが、これを表示させなくする方法を教えてください。
0553nobodyさん
02/04/19 21:32ID:???１．の質問はperlでは無くHTMLの改造だな<INPUT TYPE="text">を<TEXTAREA>にしなさいな
ただし改行コードを削除している可能性があるので文字列置換を削除しなければならないかも、、、
投稿やレスの頭につく数字はスカラー変数を削除しなさいな
0554552
02/04/20 07:35ID:ilcuvKZu色々やったのですが上手くいかないので、もう少し詳しく教えてください。
「文字列置換を削除」についても…。
ごめんなさい。
0555動作確認もせずにﾚｽ
02/04/20 09:13ID:???1）
547行目の<input>を667行目の<textarea>ように。
改行処理はされてるみたい(1133行目)。レイアウトは適当に調整してちょ。
2)
ﾀｲﾄﾙ：521行目 \[$temp2[0]\] を削除
ﾚｽ： 469行目 \[$temp1[0]\] を削除
$temp1とか$temp2とかは止めてﾎｽｨ…
0557心優しい553
02/04/20 13:26ID:7YSAp/x0改造してやったぞ
http://okunao.tripod.co.jp/upboard.txt
.cgiにリネームしてな
0558552
02/04/20 13:44ID:Hi5ZuXLw547行目とか1133行目とか言われて、また困ってしまいました。
エディタは何を使ってらっしゃるんでしょうか？？？
>>556
ごめんなさい。HTMLはちょっとしか分からないのにまた来ちゃいました。
レスを書くボックスを
<TEXTAREA NAME="res" ROWS=2 COLS=50 WRAP=off class="input"></TEXTAREA>
っていうデザインに変更させたいんですよ～。ボックスの中の色はデフォルトのままで。
どなたかお暇でご親切な方、書き加えるもの、書き加える場所、消すもの等
手取り足取り教えてください。お願いしますm(__)m
何度も何度もすみません。
0559552
02/04/20 13:47ID:Hi5ZuXLw>>553
どうもありがとうございました。
見させてもらいます。
0560心優しい553
02/04/20 13:53ID:???<TEXTAREA NAME="res" ROWS=2 COLS=50 WRAP=off class="input"></TEXTAREA>
へは自分で改造してね
まぁ、この漏れも１年前はHTMLの知識なんてほとんど無かった、、、
いろんなスクリプトを自分で改造していきながら知識を付けて逝ったので
君も頑張りたまえ。
0561nobodyさん
02/04/21 02:26ID:???しつこい！ 親切ぶりやがって。
ソースはもらったからもう用はないねー。
0564nobodyさん
02/04/21 11:45ID:???0565nobodyさん
02/04/23 08:29ID:???0566nobodyさん
02/04/25 12:53ID:DUGv6Dx1perlはまったく未知の世界ながら、見よう見真似でいじっています
フリーのCGIをほんのちょっとだけ
カスタマイズしよう（選択項目を増やそう）と奮闘中なのですが
よくわかりません
ネットサーフレスキューさん
ttp://www.rescue.ne.jp/の「ゲストブック」なんですが
今ある記入項目に加えて、たとえば誕生日とか出身地とかも
出力できるようにするには、どうしたらいいんでしょうか
基本のままなら設置、動作は確認済みです
0567566
02/04/25 12:58ID:???項目の入れ替えは可能なんですが、増やすことができません
下手にいじると変数名と値がずれて出力されてしまうんです
ご教授お願いします
0568nobodyさん
02/04/25 15:52ID:???# index.html 適当なところに
<tr>
<th nowrap bgcolor="#ff5555">血液型は？</th>
<td nowrap bgcolor="#5555ff"><select name="bloodtype" size=1><option value="" selected>未選択<option>A型<option>B型<option>AB型<option>O型</select></td>
<th nowrap bgcolor="#ff5555">出身地は？</th>
<td nowrap bgcolor="#5555ff"><select name="hometown" size="1">
<option value="" selected>未選択
<option>北海道<option>青森<option>秋田<option>岩手<option>宮城<option>山形<option>福島<option>栃木
<option>新潟<option>群馬<option>埼玉<option>茨城<option>千葉<option>東京<option>神奈川<option>山梨
<option>長野<option>岐阜<option>富山<option>石川<option>静岡<option>愛知<option>三重<option>奈良
<option>和歌山<option>福井<option>滋賀<option>京都<option>大阪<option>兵庫<option>岡山<option>鳥取
<option>島根<option>広島<option>山口<option>香川<option>徳島<option>愛媛<option>高知<option>福岡
<option>佐賀<option>大分<option>熊本<option>宮崎<option>長崎<option>鹿児島<option>沖縄<option>日本以外
</select></td>
</tr>
# regist.pl 25行目
print DB "$date_num\t$date_now\t$FORM{'name'}\t$FORM{'email'}\t$FORM{'sex'}\t$FORM{'address'}\t$FORM{'bloodtype'}\t$FORM{'hometown'}\t$FORM{'age'}\t$FORM{'access'}\t$FORM{'homepage'}\t$FORM{'comment'}\t$HTTP_USER_AGENT\t$host\n";
# regist.pl 50-58行目の適当なところに以下の2行追加
&jis("血液型: $FORM{'bloodtype'}"); print OUT "$msg\n";
&jis("出身地: $FORM{'hometown'}"); print OUT "$msg\n";
# search.pl 80行目
($num,$date,$name,$email,$sex,$address,$bloodtype,$hometown,$age,$access,$homepage,$comment,$agent,$host) = split(/\t/,$select);
# search.pl 94-100行目の適当なところに以下の2行追加
if ($bloodtype ne '') { print "<li>血液型 $bloodtype<br>\n"; }
if ($hometown ne '') { print "<li>出身地 $hometown<br>\n"; }
0569nobodyさん
02/04/25 16:00ID:???# index.html
<th nowrap bgcolor="#ff5555">血液型は？</th>
<td nowrap bgcolor="#5555ff"><select name="bloodtype" size=1><option value="" selected>未選択<option>A型<option>B型<option>AB型<option>O型</select></td>
の変わりに
<th nowrap bgcolor="#ff5555">誕生日</th>
<td nowrap bgcolor="#5555ff"><input type=text name="birthday" size=30></td>
# regist.pl 25行目
$FORM{'bloodtype'} の変わりに $FORM{'birthday'}
&jis("血液型: $FORM{'bloodtype'}"); print OUT "$msg\n";
の変わりに
&jis("誕生日: $FORM{'birthday'}"); print OUT "$msg\n";
# search.pl 80行目
($num,$date,$name,$email,$sex,$address,$bloodtype,$hometown,$age,$access,$homepage,$comment,$agent,$host) = split(/\t/,$select);
の変わりに
($num,$date,$name,$email,$sex,$address,$birthday,$hometown,$age,$access,$homepage,$comment,$agent,$host) = split(/\t/,$select);
if ($bloodtype ne '') { print "<li>血液型 $bloodtype<br>\n"; }
の変わりに
if ($birthday ne '') { print "<li>誕生日 $birthday<br>\n"; }
0570nobodyさん
02/04/25 16:35ID:???http://www.ij.oit.ac.jp/WWW/CGI/index.html
これ読めば一撃で分かるよん。
0571566
02/04/25 19:06ID:???できました！ありがとうございます！
しかもindex.htmlまで追加してくださって・・・
恐縮です
ところで怖くて確かめていないんですが、
search.pl80行目とregist.pl 25行目の配列順序は
必ず同じでないといけないんでしょうか
・・・いけないんですよね
とりあえず570のサイトを熟読してまいります
本当に本当に助かりました！
0573nobodyさん
02/04/25 23:49ID:???$message =~ s/\r/<br>/g; の下にでも
$message =~ s/<br><br>/<p>/g;
を追加かな
0574nobodyさん
02/04/26 22:59ID:hL3nAspRここで配付されているYY-BORAD 4.54ベースのスクリプトなのですが。
ttp://blue.ribbon.to/~rustyblue/bbs.html
このように親記事のNo.横の返信フォームへのリンクを切り、
記事のすぐ下の返信フォームを表示させレスができるようにしたいのです。
（レイアウト汚いのと下部の広告がウザイは堪忍して下さい）
どこをどうやれば良いのかｻﾊﾟｰﾘなので、どなたか御教授お願いします。
0575574
02/04/26 23:01ID:???○ 記事のすぐ下に
0576nobodyさん
02/04/27 01:47ID:???bbs.htmlにフォームを追加して、それに対する処理を変えてやればいいんじゃない？
基本的には>>568-569とやることは同じだと思うが。。
0577nobodyさん
02/04/27 08:13ID:???uho!氏が改造したものを参考にしたらどうだ？
0578nobodyさん
02/04/28 00:31ID:okfAtolNファイル配布元（txtが無かったです）ttp://www.blk.mmtr.or.jp/~stlf/softwares/
投稿者のURLへ画像でリンクさせたいんです。（デフォルトはテキストリンクです）
stlfbbs.cgiの120行目
$s_url = '(<A HREF="' . $s_url . '" TARGET="_top">URL</A>)';
を
$s_url = '(<A HREF="' . $s_url . '" TARGET="_top"><img src="gazou.gif"></A>)';
128行目の
$inline =~ s/\(URL\)<!--s-->/$s_url/i;
を
$inline =~ s/\(<img src="gazou.gif">\)<!--s-->/$s_url/i;
としたのですが、どうもうまくいきません。
「画像にリンク」自体は出来たのですが、画像が表示されないんです。[×]←コレになります。
cgiディレクトリから別ディレクトリの画像を呼び出すために「http://--」、「./」などを書いてみましたがCGIエラーが起きてしまいます。（「/」が使用不可？）
cgiディレクトリ自体に画像を置き、呼び出そうとすると[×]になります。
stlfsput.htmlの方をいじってみましたがやはりダメでした。
(URL)を(<img src="http://--/gazou.gif">)とすると、画像は表示されますが、リンクされません。
(<img src="1s.gif">)とすると、画像は表示されませんが、リンクは出来ます。あぁ・・・。
書き換える場所は間違ってないと思うのですが、画像を呼び出す記述が理解できてないみたいで・・・。
この場合、どうしたら解決できるのでしょうか？ヒントをお願いします。
0579nobodyさん
02/04/28 00:46ID:???src="./gazou.gif"
とかで試してみて。
0580578
02/04/28 00:58ID:???レスありがとうございます。
＞src="./gazou.gif"
今もコレと同じような記述をいくつか試していたんですが、ダメでした。やはりエラーがおきます。
もちろん同じディレクトリ内に置いてあります。
そもそもcgiディレクトリにある画像は呼び出せないんです。
アドレスに直接書き込むと「Forbidden 回覧出来ません」になってしまうんです。（@ﾆﾌﾃｨです）
0581nobodyさん
02/04/28 01:04ID:???いじるのはstlfbbs.cgiの120行目だけでいいよ
$s_url = '<A HREF="' . $s_url . '" TARGET="_top"><img src="gazou.gif" border="0"></A>';
stlfbbs.cgiの128行目は $inline =~ s/\(URL\)<!--s-->/$s_url/i; のままで。
これはstlfsput.htmlの (URL)<!--s--> の部分を $s_url と置換するって命令だから
ここまでいじっちゃうとアウト。
ニフティでサーバーがわかれてるんだったら
$s_url = '<A HREF="' . $s_url . '" TARGET="_top"><img src="http://～～～/gazou.gif" border="0"></A>';
0582nobodyさん
02/04/28 01:06ID:???ネタはよせ！
>579
そのアホさは、Dream ★ だろ！
0583578
02/04/28 01:24ID:???レスありがとうございます。
指摘して頂いた所を直してみたら、エラーも無く画像も表示されるようになりました。
が！リンク出来ませんでした・・・。
新しくDLし直して必要箇所だけをいじってみましたが、リンクしてもらえなくて・・・。
でも画像表示出来たのはかなり大きいです。ありがとうございました。
後少し・・・どこなんだろ。
>>582
ネタ？マジ質問だぞ。
0585578
02/04/28 01:32ID:???アドバイスありがとうございます。
htmlはちゃんとなってるはずです・・・多分。
cgiの方を<img src="gazou.gif" border="0">としたので、
htmlの方も<img src="gazou.gif" border="0"><!--s-->としてありますが・・・心配です。
ちょっといじってみます。
0586nobodyさん
02/04/28 01:39ID:???0587nobodyさん
02/04/28 01:39ID:???あのさ >>581 の書き込みよく読んでくれてる？
そんなにわかりにくい書き方してないと思うんだけど、、、
+ いじるのはstlfbbs.cgiの120行目だけ +
stlfbbs.cgiの128行目は $inline =~ s/\(URL\)<!--s-->/$s_url/i; のまま。
ログ部分のテンプレhtmlの stlfsput.html で
URLを挿入したい部分も (URL)<!--s--> のままです。
0588585
02/04/28 01:45ID:???>>581の書き込みの意味を勘違いしてました。
htmlの(URL)まで変えてしまったのがいけなかったんですね。
ありがとうございました。おかげでリンク出来るようになりました。
あともう一息・・・。
0589585
02/04/28 16:35ID:okfAtolN・・・恥ずかしながら、またも詰まってしまいました。
今度はcgiの名前を変えられるかどうかを勉強してるんですが・・・。
デフォルトのttp://--/stlfbbs.cgi
をttp://--/enhancebbs.cgiとしたいんです。
いろいろな箇所に手を付けてみたところ、エラーは起きないのですが投稿内容が表示されないんです。（log部分が出てこない）
主要と思われる3つのファイルをアップしておきます。
enhancebbs.cgi ttp://homepage1.nifty.com/simples/enhancebbs.cgi.txt
enhancebbs_r.cgi http://homepage1.nifty.com/simples/enhancebbs_r.cgi.txt
enhancettp://homepage1.nifty.com/simples/enhancebbs.ini.txt
他のテンプレ（テンプレ内のincludeも）やlogファイルもちゃんと
対応した名前に書き換えてあります。jcode.plは中身が理解できなかったのでそのままの名前です。
今も睨めっこしてるんですが、なかなか前に進めません。
良かったら間違ってる箇所を指摘して頂けますか？
0590585
02/04/28 22:08ID:???0591nobodyさん
02/04/30 19:26ID:???を
http://saya.kiy.jp/cgi/bbs.html
のkerox2 bbsとログが共有＆書き込みできるように改造お願いします。
0592nobodyさん
02/05/01 09:50ID:???(1) 掲示板のフォームのname="hoge"の部分を統一する。hiddenも考慮する。
(2) ログの並び順を統一する。
(3) 1.2.にあわせて変数名等を全て変更する。
難しくないが面倒臭い。
スクリプトのソースがないから判る事はこれくらい。
別にソース出しても俺はやらないけど。
0593nobodyさん
02/05/01 14:33ID:???0595nobodyさん
02/05/02 04:54ID:2Oqc4hmQゆいチャットで
荒らしが現れたら
チャットしてる人達が名前の所をクリックして３票（同じ人が３回入れても意味無し）集まったら荒らしをハジク
という事をしたい。
IPを入れて荒らしをはじくというのはあるのですが
チャットしてる人達が数人、荒らしと認めたらその場ではじくような事がしたいです。
よろしくお願いします。
0596ひよこなnobodyさん
02/05/02 06:27ID:???http://zurubon.strange-x.com/uploader/（ずるぼん）
を使ってるんですけど各ファイルのダウソ数をDATEの右横とかに
出したいのですが教えてください。
いちよですが参考になれば↓
http://www.kent-web.com/count/lime.html
0597nobodyさん
02/05/02 12:02ID:???なるほど。簡単に出来そうだね。しかし僕は↓のほうの改造に興味があるので
誰か他の人頼みます。
>>596
おもしろそうですね。ジャバスクリプトのイベント処理を使って
改造してみたいと思います。
一週間待って音沙汰が無かったら忘れられたと思ってあきらめて下さいｗ。
0599ひよこなnobodyさん
02/05/02 22:25ID:???了解しました。本当にありがとうございます
0600非通知さん
02/05/02 23:35ID:???ごっつい窓が開くやつおながいします。
5/2 23:00～ 只今迷惑メール撃退祭り中！！
http://cocoa.2ch.net/test/read.cgi/phs/1017853520/l50
5/2 23:00～ http://www.online-av.com/
誰でも参加できるF5訪問。
http://www.online-av.com/
http://www.online-av.com/i/index.html
http://www.online-av.com/i/sample/sample01.html
http://www.online-av.com/i/sample/sample02.html
http://www.online-av.com/i/sample/sample03.html
よろしくおながいします。 m(_ _)m
携帯・PHS板 一同 http://cocoa.2ch.net/phs/
0601nobodyさん
02/05/03 00:07ID:???何とかできますぃた。。
当初の路線を変更したため、ジャバスクリプトのジの字も出てこないソースとなりましたｗ。
どうぞ大事に使ってやってください。↓の僕のＨＰからＤＬしてください。
http://homepage2.nifty.com/nonota/
0602ひよこなnobodyさん
02/05/03 03:22ID:???寝る前に覗いてみたらもうやってくれたんですかぁ！
いやぁ、すごい感謝デス。本当に、ありがとうございますネ。
もちろんかなり大事に使います。また言いますが､､本当アリガトございます
0603ひよこなnobodyさん
02/05/03 04:02ID:???え～只今設置できました。あと全然問題なく動きます。
ありがとうございました。バッチシ期待通りでした!!
ちなみにサポート文はここ↓を参考に書けば楽です
http://isweb41.infoseek.co.jp/computer/ari-sin2/index2.html
0604nobodyさん
02/05/03 10:30ID:I3/fkiRQ作者より
喜んでいただけて光栄です。
サポート文はそこを参考にさせてもらいます。ありがとうございます。
それと、お馬鹿さんな事にＣＧＩに自分の著作権表記をいれるのを忘れていました。
貴方のスクリプトのどこにでもいいですから、僕のＨＰのＵＲＬとY.K.Studioが
改造しましたという旨を、表記下さい。よろしくお願いします。
0606nobodyさん
02/05/03 10:32ID:???∧＿∧ ＿ ＿ .' ， ．. .∧＿∧
（ ´_ゝ`） _ .- ― .＝￣ ￣`:, .∴ ' （ >>6）
／ ''￣ ＿＿――＝', ・,‘ ｒ⌒> _／ ／
/ /＼ /￣＼-― ￣￣ ￣"'" . ’ | ｙ'⌒ ⌒i
＿|￣￣ ＼ / ヽ ＼＿ | ／ ノ ｜
＼￣￣￣￣￣￣ ＼＿_） , ー' ／´ヾ_ﾉ
||＼ ＼ ／ , ノ
||＼||￣￣￣￣￣￣￣||￣ ／ ／ ／
|| ||￣￣￣￣￣￣￣|| ／ ／ ,'
|| || || ／ ／| |
!､＿／ / 〉
∧＿∧ 死ね
_（ ´_ゝ｀）
／ ） ＿ _
/ ,ｲ 、 ﾉ/ ∧ ∧―＝￣ ｀ヽ, ＿
/ / | （ 〈 ∵. ・（ 〈＿_ > ゛ 、＿―
｜ ! ヽ ｰ＝-￣￣＝_、 （／ , ´ノ
｜ | ｀iー＿＿＝―＿ ;, ／ ／ ／ ←>>04
!、ﾘ -=＿二＿＿￣_=;, ／ ／ ,'
/ / ／ ／| |
／ / !､＿／ / 〉
／ ＿/ |_／
ヽ､＿ヽ
0607604
02/05/03 10:35ID:???0608nobodyさん
02/05/03 13:45ID:???そのままにする改造箇所をお教えくだされ
ttp://zurubon.strange-x.com/upload.txt
たのむ
0609ひよこなnobodyさん
02/05/03 22:22ID:???分かりました
0610nobodyさん
02/05/03 23:35ID:???元々のファイル数制限ではなくて総計何SIZEになれば削除という機能を
加えて欲しいのだが。
>>601
予想以上に好評でした。ありがと。ただなぜかinfoseekにあぷろだ置いてるのだけど
たまに全部ファイルが削除になる。/source/ファイルには残ってるのだけど。
自分の設定が悪いのからかもしれないが
0612611
02/05/04 01:06ID:???sourceファイルには残ってる
0613nobodyさん
02/05/04 01:49ID:???http://isweb42.infoseek.co.jp/art/world32/subupload.txt
パーミション等はhttp://isweb41.infoseek.co.jp/computer/ari-sin2/index2.htmlと
同じでsubは755にしてます。
あぷろだはhttp://isweb42.infoseek.co.jp/art/world32/cgi-bin/upload.cgiです。
時間経つと板からファイルが消えます
0614nobodyさん
02/05/04 07:53ID:???改造版作者より
ちょっとファイルの排他処理が甘かった模様です。ｽｲﾏｾﾝ。
今から強化します。Ver0.2を使って見てください。
0615nobodyさん
02/05/04 08:52ID:???>>610->>613
とりあえず申し訳無いのですがsubupload.cgi Ver0.2を作成しましたので私のＨＰ（>>601）からＤＬして
置き換えてもらえないでしょうか？それとパーミッションは755よりも777が望ましいです。（フォルダとスクリプト）
スクリプトを安定させるコツ
・出来ればパスワード、カウンター、ＦＴＰ転送などのおまけ的な機能を使わない。
>>608
ずるぼんさん本人に聞いてみてください。
>>610
暇があったら改造してみます。ただ今現在はデバッグで手一杯なので。。
0618613
02/05/05 00:22ID:???それとわざわざHPへのご報告ありがとうございます。
0619613
02/05/05 03:37ID:???0620nobodyさん
02/05/06 03:03ID:???10??????.tempみたいな感じのがsourceフォルダの中に
たまにできます。あと出来たらHPに板置いてくれませんか?
0621nobodyさん
02/05/08 05:59ID:Nv6MjGlgこれをクッキー対応にさせて、いちいち選択し直さないようにするようには
出来ないでしょうか。よろしくお願いします。
http://www.2apes.com/products/index.html
0622nobodyさん
02/05/08 18:02ID:???0624nobodyさん
02/05/10 06:02ID:???06254415
02/05/10 17:42ID:???誰か改造できる？
例：http://ion.adam.ne.jp/（リンク張ってスマソ）
ココの掲示板みたいな感じで・・・・。
0626（・Ａ・）
02/05/10 21:07ID:???どうすれば良いですか？
0627nobodyさん
02/05/10 21:17ID:???えーと、例に出してるサイトが使ってる掲示板をそのまま使えばいいのではありませんか？
そこの掲示板の著作権表示をたどるとここにたどり着きましたよ。
http://tackysroom.com/cgi_nmaruchan.htm
ソース配布してなければ無理
したいのですが、どうもうまくいきません。
１．画像はサーバーにはアップされているのに表示できない
２．親記事で画像無しだと、子記事に画像を付けて投稿しても反映されない
といったようなややこしい状態になります。
該当されると思われるスクリプトを置いておきますので
諸先輩方どうか宜しくお願いします。
ttp://spamkill.hoops.ne.jp/bbs.txt
ttp://spamkill.hoops.ne.jp/bbs_eng.txt
0632nobodyさん
02/05/11 01:07ID:???4415って名前欄に入った厨房がWEB製作板でもなんだか的外れな
アホな発言してたな。こりゃ放置で＞ALL
ちなみにこの場合改造するのは普通YYBBSじゃない方。
って言えばむちゃくちゃ簡単なのはわかるだろうがなｗ
0635nobodyさん
02/05/12 08:18ID:k99BTwztelse { print "/秘密\n"; }
print <<"HERE";
/$max]
<BR>[$risou] 希望/$hoop
<BR>[メッセージ]
<BR><FONT color="$word_color">$comment</FONT>
――――――――――――――――――
この場合HTMLでソースを見ると
[○○県
○○歳
**通
]
<BR>[メッセージ]
<BR><FONT color="$word_color">****************</FONT>
と、なりますが上の4段 "[" から "]" までスマートに一段でソースを吐くことは
出来ないでしょうか？表示上は問題ないのですがちょっと気になるもので…
0636nobodyさん
02/05/12 08:20ID:k99BTwzt下の場合ですが
print "<BR>[$street\n";
unless ($noage) { print "/$age歳\n"; }
else { print "/秘密\n"; }
print <<"HERE";
/$max]
<BR>[$risou] 希望/$hoop
<BR>[メッセージ]
<BR><FONT color="$word_color">$comment</FONT>
――――――――――――――――――
この場合HTMLでソースを見ると
[○○県
○○歳
**通
]
<BR>[メッセージ]
<BR><FONT color="$word_color">****************</FONT>
と、なりますが上の4段 "[" から "]" までスマートに一段でソースを吐くことは
出来ないでしょうか？表示上は問題ないのですがちょっと気になるもので…
荒らしが３人で入ってきて普通にチャットしてる人を次々と落とすという
新たな荒らし方法が出てくると予想してみる
0640nobodyさん
02/05/13 20:10ID:0X8BIqsGhttp://www.kent-web.com/bbs/aska.html
現在KENTWEBさんの「ASKA BBS」を使用しています。
これを、指定した時間以外は掲示板を表示しないようにしたいです。
例えば8:00～17:00は「この時間は利用できません」とか
エラーメッセージが出るようになればいいなと思ってます。
お忙しいとは思いますがよろしくお願いします。
0642631
02/05/13 22:12ID:???0643nobodyさん
02/05/13 22:35ID:???実際にその掲示板のややこしい動きとやらを見せてくれたらわかるかもしれんが。
まさかリンクミスとかじゃないよな。
あと、4000行を超えるスクリプトを追うのは激しく面倒。暇な人を待て。
0645nobodyさん
02/05/14 06:46ID:???0646nobodyさん
02/05/14 07:30ID:vNEin2BEでっ･･また 皆さんの力を貸してください。
掲示板なのですが、投稿した時に投稿者のブラウザー機種を表示させたいのですが
HTTP_USER_AGENTだけだと「Mozilla/4.0 (compatible; MSIE 5.5; Windows 98)」
と、表示されます。これを簡単に「MSIE 5.5」携帯だと「N 503」みたいにしたいの
ですが、どのように付け加えたら良いのか教えて頂けませんか。
それともう１つですが
投稿者の一覧で次のページに進む場合プルタウンメニューで選んで進むようなのですが
これを「次ページ＝リンク」に簡単に変更する方法があるのでしょうか？
これがそのCGIです(txt)↓
http://kirazoo.tripod.co.jp/b/deai.txt
ちょっと手を加えていただきたいイメージです↓
http://kirazoo.tripod.co.jp/b/index.html
ぜひ、よろしくお願いします。
PCのUAは吐き出されたものを処理すればいいだけ。
携帯のは http://dream.lib.net/room/ の ma_lib.pl を
参考にすればわかりやすいかも。
0648nobodyさん
02/05/14 21:46ID:7mUBcsurやっぱ、単純なものもわからなければここに来る資格なしですか？
もう少しがんばって見ます。アドバイスありがとうございました。
0651nobodyさん
02/05/15 01:00ID:???if ($ENV{'HTTP_USER_AGENT'} =~ /MSIE 5\.5/) { $ENV{'HTTP_USER_AGENT'} = "MSIE 5.5" ; }
0652nobodyさん
02/05/15 03:52ID:1tDJvwWSのEveryAuction
http://www.everysoft.com/cgi-bin/auction.pl
の日本語化したのってないのかな？
0654nobodyさん
02/05/15 07:40ID:???あとは応用してくれってことでそ
0656nobodyさん
02/05/15 09:46ID:???0658nobodyさん
02/05/15 16:58ID:???0659nobodyさん
02/05/16 01:15ID:???0660nobodyさん
02/05/16 13:37ID:???ならi-mode対応にした改造版を使え
0662nobodyさん
02/05/17 04:26ID:hDQ9yjaZあっ！いいですか。では、これなんですが
①###---投稿処理-----###
<input type="checkbox" name="sendtime" value="1">夜間メール拒否(22-7時)<BR>
②###---メールのエラー処理------###
if($sendtime){
if ( 22 < $hour || $hour < 7 ){ &error("夜中メールお断り"); }
}
③###---観覧処理------###
if($sendtime){print "夜間メール拒否中\n";}
/////////////////////////////////////////
この場合。①でチェックを入れ②で該当するものは、③でプリントされますがこれを②で指定した時間だけプリントするにはどーすればいい？
簡単に言えば、ローカルの時間が
２２～７時メール拒否中を表示
８～２１時何も表示しない
優しく、わかりやすく教えて下さいませ。
0665nobodyさん
02/05/18 09:49ID:???($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy,$dmy) = localtime(time);
0667nobodyさん
02/05/20 23:46ID:O0KKTX9E(配布元ttp://www.axs.to/~mkomu/keitai/)
ここのアンケートCGIなんですが、
check boxでの、複数項目の取り込みとデータベースの書き出しに対応させるには
どのように書き換えれば良いのでしょうか・・・
本家へ質問しましたが、ゲストブックの書き込み状況を見る限りサポートは期待できなさそう．．．
0668nobodyさん
02/05/21 23:41ID:Yhiz/uIlどこをなおせばいいでしょう？
0669ファイルの更新日時cgi
02/05/22 01:27ID:???更新日当日しか「更新しました」と表示されません。
なので23時59分に更新すると1分で「更新しました」というのが消えてしまいます。
これを12時間とか24時間表示し続けれるようにしたいのですが
素人ということもあり時間の数式がさっぱりわかりません。
どなたか手直ししていただけませんでしょうか。
http://www.geocities.co.jp/HeartLand-Momiji/6161/new.txt
0670nobodyさん
02/05/22 04:38ID:???頻繁にファイル更新しないなら、cgiなんぞ使わない方が環境に優しい。
どうしても24時間でやるなら、
$today = "$month月$mday日";
⇒$today=sprintf("%02d%02d",$month,$mday);
if($today ne "$month月$mday日")
⇒$filedates=sprintf("%02d%02d",$month,$mday);
if($today == $filedates || $today -1 == $filedates)
で逝けそう(ぉ
0671nobodyさん
02/05/22 09:43ID:nSs6layRありがとうございます。
用途はトップページに掲示板や本人登録型リンク集などcgiの
最終更新時間を表示したいと考えていたのです。
0672669
02/05/22 09:52ID:???すいません。
さっそく設置してみたのですが更新日時に関係なく
ランダム（のように基準がわからないのです)で
「更新されました」と出てしまいます。
0673nobodyさん
02/05/22 20:19ID:???0674ken
02/05/23 01:29ID:TLsld2EnにあるＫＥＮＴの夢のカウンターで、カウントを非表示にして
カウンターを別ページに表示したいのですが、どうすれば、よろしいでしょうか？
お手数ですが、なにとぞお願い致します。m(__)m
どなたかお教えくださいませ。m(__)m
よろしくお願い致します。
0675nobodyさん
02/05/23 01:49ID:Ygb2ii6bこのヴァカ男を晒しあげにしてください
http://ex.2ch.net/test/read.cgi/diet/1022072704/
0676しろうと
02/05/23 01:50ID:???こんなのはどう？
-------
#!/usr/bin/perl -w
use strict;
my $dirname = './';
my $interval = 24 * 60 * 60;
my $now = time;
print "Content-type: text/html\n\n";
print <<HTML;
<html><body>
HTML
opendir(DIR, $dirname) or die;
while (defined(my $file = readdir(DIR))) {
next if $file !~ /\.(htm|html)$/;
my $mtime = (stat $file)[9];
my $updated = '更新しますた' if ($now - $mtime < $interval);
my $date = localtime($mtime);
print <<HTML;
$file $date $updated<br>
HTML
}
print <<HTML;
</table>
</body></html>
HTML
0677nobodyさん
02/05/23 01:53ID:???0679nobodyさん
02/05/24 18:59ID:???入室後の文字色指定をプルダウンメニューではなくラジオボタンで選択するようにしたいんです。
あ、関係ありませんがKENTさんの改造スクリプトを扱っていた「さとの部屋」と「another place」ってどこに行ったんでしょう。知っている方が居たら教えてくれませんか？
できません。「$limit--」ではだめですか？自分でいじったとこを水色でマーク
してる部分です。
http://www.h2.dion.ne.jp/~i-deai/cgi.htm
0681df
02/05/24 20:18ID:9eTMj/b7-------風俗の総合商社・ＭＴＴどこでも-------
〇デリバリーヘルス〇デートクラブ〇女性専用ホストクラブ〇
〇ハードＳＭ奴隷クラブ〇レズビアン倶楽部〇ホモ・オカマ倶楽部
〇変態痴女と遊ぶ会〇痴漢・覗き趣味の会〇変態同好会・各種！
●楽しく遊べます！ 090-8002-8356番
-----------美男・美女会員など多数在籍中-----------
http://www.mttdocomo.jp/
-----女性アルバイト随時募集・高収入（日払い）月100万円可能-----
-----レズビアン・スタッフ●ホモスタッフ●女性専用ホストスタッフ同募-----
http://www.mttdocomo.jp/
------------------------------------------------
0682nobodyさん
02/05/24 22:07ID:PSoFhpNbキーワードを持たせてGoogleに放り込み、出てきたアドレスのページの中の
imgタグの中からアドレス取ってダウンロードしようとしてるんだけど、
なんか、一個見つかると他のアドレスで探索したときも
同じパスでダウンロードしてしまうのですが原因わかるかたいますか？
(要するにAページで/image/a.gifと見つかるとBのページでも存在しないのに/image/a.gifで処理しようとする。)
0683nobodyさん
02/05/24 22:36ID:???if(/<a href=(http:\/\/[^directory].*?)>/){
(*´∀｀)ﾌﾟﾌﾟﾌﾟ
use strict使って初期化されてない変数探せばぁ？(ﾟДﾟ)
0684nobodyさん
02/05/25 15:11ID:kHc1b+7M↑ここの携帯用アクセス解析cgiを改造して、PCのホスト情報も読み取れるようにしたいんですが、
↓これをどのように書き換えれば出来るでしょうか？
http://dream.lib.net/room/cgi/works/ma_lib_pl.txt
0685nobodyさん
02/05/25 17:29ID:???return ($user_agent,$terminal,$t_sy,$t_name,$t_color,$t_mime);
↓
return ($user_agent,$terminal,$t_sy,$t_name,$t_color,$t_mime,$ENV{'REMOTE_HOST'});
0686684
02/05/25 20:52ID:BoqWmaHNすいません。だめでした。
0688うじゃぱぁ～
02/05/26 00:16ID:owhpWvq3Perl勉強中の今日この頃です。
ttp://www23.tok2.com/home/tanaka/develop/threadbbs.html
↑このスレッド型掲示板に、二重投稿禁止機能を追加したいと考えております。
改造のアドバイスをいただけたらと思います。
よろしくお願いいたします。
0689nobodyさん
02/05/26 00:20ID:???0690nobodyさん
02/05/26 11:12ID:f4yr64/R$ENV{'REMOTE_ADDR'}取得して禁止すれば？
0693nobodyさん
02/05/28 07:18ID:???それじゃあ2重投稿じゃないじゃん
0694nobodyさん
02/05/28 09:44ID:???このスレで書きなさいと言われたので、こちらで質問します。
激しく初心者なのですが、掲示板の入力する項目に
「名前・メルアド・URL・本文」以外に年齢とか趣味とかの
項目を追加したいと思います。どうすればいいのでしょうか？
テスト用のサンプルとしてKENTさんのASKA BBSを使ってます。
http://www.kent-web.com/bbs/sample/aska.cgi
0695nobodyさん
02/05/28 10:02ID:???禿しく初心者と自分で言うくらいだったら、CGIの改造は止めた方が良いと思われ。
「初心者」という言葉を免罪符のように使われると鬱陶しく感じる人が多い。
とりあえず、テキストエディタでCGIを開いて、最初から最後まで読んでください。
ttp://tohoho.wakusei.ne.jp/wwwperl.htm が参考になると思われ。
//asuka.cgi
◎238行目くらいに
<tr>
<td><b>趣味</b></td>
<td><input type=text name=hobby size="$f_name" value=""></td>
</tr>
と追加。
◎335行目くらいからの「書きこみ処理」の中。特にunshift
この辺りを重点的に読んでみなさい。
上に書いたURLを参考にしながらasuka.cgiを読んでも分からない様だったら
質問スレで聞いてみる。くれぐれも「初心者だから・・・」という言い回しは禁物。
と、答えになって無さそうなのでsage
0696695
02/05/28 10:09ID:???KENTのasuka.cgiを読んだら、名前と内容(本文)で重複投稿をチェックしている。
if ($in{'name'} eq $name && $in{'comment'} eq $com) {
&error("二重投稿は禁止です");
}
0697補足
02/05/28 10:10ID:???($no,$date2,$name,$mail,$sub,$com,$url,$host2,$pw2,$time2)
= split(/<>/, $lines[0]);
0700nobodyさん
02/05/28 14:59ID:???今だ！７００番ゲットォォｫｫ！！
￣￣￣￣￣∨￣￣￣￣￣￣
∧∧ ∧∧ ドドドドドド・・・・
(ﾟДﾟ ,,) (ﾟДﾟ ,,) ∧∧ (´´
⊂_⊂Ｖ⊂ ⊂ )⊂(ﾟДﾟ ,,)_／(´´
Ｙ /⊃ | .Ｌ⊃∧∧∪ _⊃(´⌒(´
ドカ ∪∧∧J⊂(x _x⊂ノ(´⌒(´ (´´
ドカ ⊂（ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡
ｽﾞｻﾞ・・・
0701nobodyさん
02/05/29 20:11ID:xJVqUtLchttp://www.hoge.com/yybbs.cgi?bbs=0
と、すると「0」というディレクトリの中のset.cgiを読み込むようにしたいです。
0704703
02/05/31 00:09ID:bVzYO4Pwとか使えば？
0705nobodyさん
02/05/31 04:12ID:tYW7BBALこれこれ・この部分を付け加えれば画像アップ出来るよ！
というのを教えてください！
変数名くらいなら自分でも書きかえれますので、
そこらへんはお気を使ってもらわなくってもいいですYO！
よろしくおねがいします。
0707nobodyさん
02/05/31 04:27ID:???<form method="post" action="お気に入りのスクリプト" enctype="multipart/form-data">
0708nobodyさん
02/06/01 13:47ID:???<input type=file>
</form>
cgi側の処理についてはアップ機能付きのＣＧＩソースを解析しれ。
0709由芽
02/06/01 21:03ID:???これってどういういみ？
0710由芽
02/06/01 21:05ID:???0711nobodyさん
02/06/02 16:32ID:DhpOMnbM0712nobodyさん
02/06/02 17:21ID:6HwbG/crJavaScriptでの共通処理を切り出し、別ファイル(**.js)に記述しました。
Servletから上記のファイルどもを呼び出したときに、
jsファイルがない(FileNotFound)と怒られてしまいます。
なにか設定が必要なのでしょうか？
おバカな質問でごめんなさい。
0714nobodyさん
02/06/04 19:10ID:???サラブレット
0715715 ◆aZaelUQo
02/06/05 19:35ID:IAdO/kZLソース：http://cat.zero.ad.jp/mouse/download/enqu2/enqu_cgi.txt
はじめまして。
私は上記のアンケートCGIを携帯用に改造したいと思っています。
そこで、改造したい点が二つあります。
まず一つ目はCookieをoffにしているとアンケートを集計出来ない点です。
これは携帯にはCookieなどないので投票出来ない為です。
二つ目はアンケートに投票した後に「ありがとうございました」という軽い画面を表示したいのですが、
投票後は集計結果の画面になってしまいます。
携帯ですと重いページを表示すると料金が高くなってしまいますのでこれも改善したいです。
もしも、教えて頂ける方がおられましたら書き込み宜しくお願い致します。
0716nobodyさん
02/06/06 01:44ID:???ｹｰﾀｲ用アンケートは他の既存スクリでも可能では?
以下、このスクリで変更すべきモノ
削るルーチン:SetCookie/CookieCutter
修正すべきルーチン:form_html/result_html/error
他にも適宜
0717715 ◆aZaelUQo
02/06/06 13:37ID:mVD0oUeNレスありがとうございます。
携帯用のアンケートは色々あったんですが、
質問を増やしたり削除したりするのをブラウザで行うタイプだったり、
質問を複数出来ないタイプだったり、投票結果が別ページではなかったりと
私の理想のアンケートとはどれも違うもので、一番近いのがこれかなと思って紹介したのですが。
(私の探し方が悪いのでしょうか･…？)
その削るルーチンと修正すべきルーチンはCookeiをoffの状態で投票出きるようにする修正ですよね？
ありがとうございます。後で試してみます。
0718715 ◆aZaelUQo
02/06/06 18:00ID:mVD0oUeN716さんが教えてくれたポイントを削ったりしてみたのですが
今度はCookieをonの状態でも投票出来なくなってしまいました。(もう元に戻しましたが…)
修正すべきルーチンというのがどう修正するのかがわからなくて困っています。
まだ他にも変更点があるらしいですし…
もう、二つ目のアンケートに投票した後に軽い画面を表示したいと言ったのは無視して結構です。
Cookieをoffの状態でも投票出来るようにする事だけで結構です。
教えて頂ける方がおられましたらレスお願い致します。
Ｊ－ＰＨＯＮＥはmethodがGETなのでUserAgentで分別して
”POST”と”GET”で分けてみたんですがＪ－ＰＨＯＮＥのUserAgentで見てみるとサーバーエラーに
なってしまいます。原因がわかる方いましたら教えて下さい。
ソース↓
http://www.h2.dion.ne.jp/~i-deai/2shotcgi.txt
0721nobodyさん
02/06/07 22:58ID:C6AACH6z135,136行目
if ($ENV{'REQUEST_METHOD'} eq 'POST') { read STDIN, $buffer, $ENV{'CONTENT_LENGTH'} }
elsif ($ENV{'REQUEST_METHOD'} eq 'GET') { $buffer = $ENV{'QUERY_STRING'} }
else { &error('エラー','不正なメソッドです.') }
こんな感じでどうでしょう。
この部分しか見てないのでこれで動く保証は出来ませんが・・
0723nobodyさん
02/06/09 12:01ID:6Hb3jJDUKent-Webで配布されているaska.cgiという掲示板を改造したいと考えています。
改造する点は
書き込みをするために「送信する」をクリックした後、元のページに戻れなくしたいのです。
242行目の
<input type=submit value="送信する"><input type=reset value="リセット">
を
<input type=submit value="送信する" onClick="window.location.replace('$script')">
<input type=reset value="リセット">
とJavaScriptを混ぜてみても上手く行きませんでした。
本当はtype="button"なので無理矢理だったので、無理を承知だったのですが。
何か良い方法はないでしょうか。識者の方お願いいたします。
0724nobodyさん
02/06/09 13:27ID:???0725nobodyさん
02/06/09 16:40ID:???J(java)scriptはどうかと。切っている人間には無反応
元のページがcgiであれば、ワンタイムパスを噛ませてみては?
また、単に書き込みペ－ジであれば二重投稿防止するだけでは?
0726715 ◆aZaelUQo
02/06/09 17:10ID:kc9xedN1あれから毎日色々改良しているんですがどうしても出来ません。
最後の頼みです。誰か教えて下さいお願いします。
0728nobodyさん
02/06/09 23:24ID:???とりあえず頑張った成果を晒してみろ。
Cookie使わない代わりにどのような手を使うのかも文で示せ。
「できない」「わからない」じゃ回答できんよ…。
0729715
02/06/10 00:59ID:DOtnWOEqおぉぉレスがッ！ありがとうございます！
頑張った成果と言っても自分でも何をやったかわからないくらい色々やったので全ては文に書くことは出来ませんが、
perlの事はわからないのでとにかくCookieと書いてある所を検索して消してみたり
他のcgiのCookie部分を見ながらコピーしてみたりとまぁ色々しました。
でもどうしてもCookie offでもonでも投票出来なくなってしまいます。
>Cookie使わない代わりにどのような手を使うのかも文で示せ。
とありますがCookieをoffにして投票できるようにする為には何か他の手を使わないといけないのでしょうか？
それともそれは「連続投票をCookieを使わない変わりにどのような手で防ぐのかも文で示せ。」という事でしょうか？
後者の場合、連続投票は防ぎません。携帯サイトなので連続投票はパケ代かかりますから。(PCの入室は.htaccessで防いでます。)
何かヒントのようなものだけでも教えて頂けませんか？
0730
02/06/10 02:00ID:B7i4bf2gまだやってたのかい。
どこかに努力の成果のソースをあｐできないの？
0732715 ◆aZaelUQo
02/06/10 04:04ID:???努力の成果のソースと言われても改良してダメだったら元に戻して違う改良をして…の繰り返しですし。
そのまま続けていたら本当に滅茶苦茶になってしまうと思います。
あと、もうひとつだけキープしてるのがあるんです。
そっちは投票した後も何故か投票画面が出てしまうという意味のわからない仕様で、
他にもいくつか気にいらない点があるのですがもう諦めてそのCGIを使います。
皆さんありがとうございました。
0736nobodyさん
02/06/11 21:30ID:4iAl80bC0738初心者
02/06/14 08:52ID:???http://mbspro6.uic.to/user/racalyn.html
と同じＢＢＳを作るにはどうすればよいのでしょうか。
ＫＥＮＴをどのように改造するとかは、どこを参考にするとか？
すいませんが教えて下さい。
0739nobodyさん
02/06/14 11:15ID:???0740nobodyさん
02/06/14 12:36ID:???マルチポストやめれ。
しかも
http://pc.2ch.net/test/read.cgi/hp/1016938825/634n
http://pc.2ch.net/test/read.cgi/php/1021897804/103n
で答え出てるし。
0741名無しさん＠お腹いっぱい。
02/06/14 14:11ID:???そのＢＢＳ見やすくていいな！！
ＨＴＭＬいじるだけじゃできないんじゃないか？
0742nobodyさん
02/06/14 17:20ID:Kcrj1oUC著作権無視サイトの真似なんかしようとスンナ！
0743nobodyさん
02/06/14 17:58ID:MlpoaSWThttp://php.s3.to/bbs/bbs5.php
をcgiにできませんか？
(ずるぼんにマルチftp機能つけるにはそうすればいいのでしょうか？)
0744nobodyさん
02/06/14 19:55ID:???「CGIにしたい」ってのは、「Perlで書けないか」ってこと？
FTP転送用のモジュール（LWPとかNet::FTP）が使えるなら
わりと簡単にできるだろうが、入ってなければ書き換えは面倒ぽい。
0746nobodyさん
02/06/15 09:54ID:???0747nobodyさん
02/06/15 23:36ID:4TC0pTduよその、HPに飛ばすことなんてできるんでしょうか？
PASS間違い→YAHOOにとばすとか？
0749nobodyさん
02/06/16 14:12ID:5xT6mDAHLocationとは？
初心者なんで・・・
鯖は、xreaなんですけどできますかね？
0750nobodyさん
02/06/16 14:27ID:???0751nobodyさん
02/06/16 16:38ID:???xrea がどうかは知らないが簡単なスクリプト組んで試してみれば良い
07523PIO ◆3pIoOHKo
02/06/16 20:42ID:O9g6dmTiLocationすら分からないﾔｼがCGIを改造しようなど思うな。
07543PIO ◆3pIoOHKo
02/06/16 21:07ID:O9g6dmTiはい。わかりました。
0755nobodyさん
02/06/17 12:17ID:H/3Qxll9PGPで暗号化して送信したいんです。
さんざん検索したんですが、
個人間でやりとりするメールを暗号化する話しかひっかからずでした。
サーバからメール送信する際はsendmailを使ってます。
なんかいいやり方や情報、お願いします。
0758755
02/06/18 16:09ID:???>>757
そそ。Perl+PGPです。スクリプト改造ぢゃなかったんですか・・・。
「CGIだけど、なんか質問ある？」スレとその過去ログを検索しても
PGPの話題がなかったもんで、ここかなーと。
CGI質問スレPart6に逝ってきます。
0759nobodyさん
02/06/21 21:25ID:sW4bYQCqこのＣＧＩで半角カナを使用出来るようにしたいのですが、
どうすればよろしいでしょうか？
どうかよろしくおながいします。
配布サイト
http://www.cgi-down.com/cgi/imodebbs.html
07613PIO ◆3pIoOHKo
02/06/21 21:32ID:???ここを参照：http://srekcah.org/jcode/
0762ｘｘ
02/06/21 21:33ID:???jcode.pl に設定ってあるの？
0763759
02/06/21 21:54ID:sW4bYQCq高速なレスありがとうございます。
そのサイトを見たのですが、バカな私にはサッパリ解りませんでした．．．
# [フォームデータを取得し、文字コード統一]
sub read_form {
local($pair,$form_date);
if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $form_date, $ENV{'CONTENT_LENGTH'}); }
else { $form_date = $ENV{'QUERY_STRING'}; }
local(@pairs) = split(/&/,$form_date);
foreach $pair (@pairs) {
local($name,$value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
&jcode'convert(*value,'sjis');
if ($name eq 'get') { push(@DEL,$value); }
else { $FORM{$name} = $value; }
}
}
ここをいじればよいのでしょうか？
0765ｘｘ
02/06/21 23:17ID:???チョット待て、
削除する前にせめてコメントにして動きを見るのが鉄則。
0766nobodyさん
02/06/22 00:17ID:???0768759
02/06/23 02:08ID:Bn+v9pGhもう一つ教えて頂きたいことがあるのですが．．．
http://homepage2.nifty.com/f-mld/count.pl.txt
このカウンターで、５０の倍数を踏んだ人にランダムでメッセージを表示させる
ようにしたいのですが、どのように書けばよろしいでしょうか？
どうか、どうかよろしくおながい致します。
0770ｘｘ
02/06/23 02:24ID:???こんな感じでしょうか？
unless ($count % 50){
@data= <DATA>;
print $data[int(rand(@data))];
}
__END__
メッセージ１
メッセージ２
メッセージ３
：
0771759
02/06/23 03:06ID:Bn+v9pGhすみません．．．ご迷惑をおかけします。
Ｐｅａｌを勉強したいのですが、どのようにすれば良いかわからなくて．．．
オススメのサイトや書籍などがありましたら教えて頂けないでしょうか？
>>770
教えて頂きありがとうございます。とても嬉しいです。
でも、どこに記述すれば良いのかがサッパリ解りません．．．
print "訪問者:$total<br>T:$count Y:$ycount\n";
この下でよろしいのでしょうか？
07743PIO ◆3pIoOHKo
02/06/23 13:21ID:x3pCNKFh漏れはここで勉強した
http://tohoho.wakusei.ne.jp/wwwperl.htm
07753PIO ◆3pIoOHKo
02/06/26 15:11ID:DwF94vyq0776nobodyさん
02/06/26 19:58ID:???よろしくおねがいします。下がスクリプトです。
http://kirazoo.tripod.co.jp/tree.txt
07773PIO ◆3pIoOHKo
02/06/26 22:14ID:yU8VbQZuとてつもない改造が必要かと思われる。
あと、本当に改造してほしいならばsageずにageろ
0778nobodyさん
02/06/26 22:39ID:???そのスクリプトじゃないとダメっていう理由がないなら
レスがついたらTreeが上昇する機能がついてる別のスクリプト使ったら？
http://www.kent-web.com/bbs/wforum.html
0779nobodyさん
02/06/27 00:07ID:???0781776
02/06/27 18:50ID:lD8zMgyZレスありがとうございます。
かなりの改造が必要なんですね...
デザイン的に結構気に入ってたもんで出来ないものかと思って質問してみました。
別にKENTを使いたくないという訳ではないのですが今乗り換えるとログの問題もあり
旧と新二つ設置しなければいけなくなる為少々抵抗を感じます。
もう少しこのままレスが付くのを待ってみます。
もう一つ質問したらきっと叱られる思いますが>>776の場合、改ページ処理で<option value>ダグで選ぶのではなく「戻る」「次」見たいに変更するにはどのようにしたら良いものでしょうか。ヒントだけでもお願いします。
0782nobodyさん
02/06/27 23:05ID:???上記のうなぎスクリプトなんですが、書きこみ欄に４桁程度の
削除キーを書いて、ユーザがカキコの後から編集、削除ができ
るようにしたいんですが、やはり大規模な書き換えになってしまう
んでしょうか。よろしくお願いします。
0783nobodyさん
02/06/27 23:56ID:???そう言う事をやろうとすると…
・ログに削除キーを記録するように変更（項目の追加）
・削除キーが何らかの手段で与えられた場合の編集、削除ロジック追加
最低でもこれらが必要になるね
07843PIO ◆3pIoOHKo
02/06/28 16:27ID:???やれば出来るだろうが漏れのスキルでは丸１日かかってしまう。
誰か他所あたってくれや。
>>782
DESでパスワードを暗号化する必要もあると思われ
http://tohoho.wakusei.ne.jp/wwwperl2.htm#crypt
0785名無しさん
02/06/29 00:13ID:9XF42yOc0786ＴＴＫ
02/06/29 00:29ID:???このＣＧＩでフォームページを作って
「○○マガジンを購読しますか？」
という質問を作る。でチェックをつけた人は送信する
時に同時に購読させられる。でもってマガジンを複数設定したい。
できますか？
0787nobodyさん
02/06/29 01:04ID:???それ、普通のフォームメールだろ。
アンケートなどをつけられるのは他にいくらでもあるが
単にメールを送るだけ。
受信してどうこうってのは別問題。
0791_.exe
02/06/29 09:29ID:???print "訪問者：$total<br>今日：$count 昨日：$ycount\n";
if(($count % 50)==0){
print "てめぇ50番台じゃねぇか。";
}
0793nobodyさん
02/06/30 14:40ID:???0794ＴＴＫ
02/06/30 17:29ID:???07953PIO ◆3pIoOHKo
02/06/30 22:01ID:8ch/aqv5ほとんどだな。
「このサイトのこれなんですが」なんて書かれても、ダウソしてきて
ソース見て・・・なんてことをする気にはならん。
少なくともオリジナルのソースをtxtでどこかにあｐしてすぐ見られるようにして、
どこをどうしたいのか明確にするぐらいはしてもらわないと。
できれば笑われる覚悟でわからないなりに自分でいじってみたソースも見せてくれれば。
おかしければ突っ込むが、そこまでやるのなら手を貸してやろうかという。気にもなる。
0798nobodyさん
02/07/01 16:33ID:1mNAxNOZ07993PIO ◆3pIoOHKo
02/07/01 17:29ID:Cd4UgU1rそうしましょう
0800759
02/07/01 17:40ID:???あれから色々なサイトのスクリプトを参考にPerlを学んで
ようやく「@」の意味が解りました。
みなさんにはとてもお世話になりました。
また、何かわからないことがあったらよろしくおねがいします。
もう来るなと言われそうですが．．．
0802nobodyさん
02/07/02 19:45ID:SyZG/7SIこのギルド用スクリプトを改造したいのです。
JPEGとGIFしかアップロードできない作りになっているのですが、
それ以外（htmlやエクセル、PDF）なども使えるようにしたいのです。
さらに、画像以外のファイルは「詳細情報」というテキストリンクにしたいのです。
自分でもいろいろやってみたのですが、どうにも上手くいきません。
（エラー表示もされないまま、ファイルはアップロードされていないと言う状態になりました）
ヒントだけでもよいですので、どうか知恵を貸してください。
0804nobodyさん
02/07/02 22:48ID:???そしてここに書いてね。
怪しいところは見つかってんだろ？
0805nobodyさん
02/07/03 00:54ID:???http://zurubon.strange-x.com/upload.txt(ずるぼんあぷろだ)
のあｂﾕされた各ファャCルの日付の横ｂﾌ少しの空白の緒齒鰍ﾉ
ｂぷファイル個封ﾊのレス欄を付ｂｯたいのですが緒o来ますでしょｂ､か？
ｂｨ願いします。
0806nobodyさん
02/07/05 17:27ID:???CgicafeさんのKerokerochatを改造したいのですが
http://saya.kiy.jp/cgi/chat.html(大元です）
このチャットをROM禁止にしたいのです。
別途入室フォームを置いて、それに入力後チャットに入れるように
したいのですが・・・。
http://www.roomyroo.com/~myroom/cgi-bin/uploader/source/55.txt
これがソースです。
0808nobodyさん
02/07/06 22:36ID:???自分である程度改造して、こんな感じに改造したんですけどうまくいかない
見たいな感じでもうperlコーディングスレと統合しちゃえば？
0809nobodyさん
02/07/07 00:05ID:???0810nobodyさん
02/07/07 00:07ID:???0813nobodyさん
02/07/07 01:56ID:???短い すくりぷとはperlだけとは限らない罠
0814nobodyさん
02/07/07 13:45ID:PB57yOoLhttp://cgi.linkclub.or.jp/~kimkim/index2.shtml
の「K-db」で、新規入力する時にコメント欄に特定文字（今の所不明です）を入力
すると、２行目以降が表示されなくなってしまいます。
例えば、コメント欄に
音楽がほんわかしてて気持ちいいです。
希望としてももう少し難しくして欲しい。
ゴルフゲー好きなら落とそう。
と入力すると、ログには
音楽がほんわかしてて気持ちいいです。
しか投稿されないのです。
出来れば修正方法をご教授願えれば、と思うのですが、、
よろしくお願いします。
0816nobodyさん
02/07/07 14:13ID:PB57yOoLすみません、そこのサポートBBSに投稿している人の発言をそのまま書いて
しまいました。
投稿出来る場合と出来ない場合がありますので、、
自分もそうなのかな？と鵜呑みにしてしまっていました。
ですので、根拠は無いです、、すみません。
思い込みでした。
0818nobodyさん
02/07/07 14:21ID:PB57yOoLそうです、ある発言は<BR>タグ以降もログに記録されるのに、
ある発言は１行目の<BR>タグも含めてきれいさっぱり２行目が消えています。
あ、改行を<br>にCGIが変更してログに書き込んでいると思います。
0819nobodyさん
02/07/07 14:21ID:???0821nobodyさん
02/07/07 21:05ID:???一応
$commentmain =~ s/\r\n/<br>/g;
$commentmain =~ s/\r/<br>/g;
$commentmain =~ s/\n/<br>/g;
と記述されています。
改行を<BR>タグに変換するんですよね？
この行に追加するのですか？？
もうこんなレベルで済みません、、、
0822nobodyさん
02/07/07 22:40ID:???一気にやれよ。
0823nobodyさん
02/07/08 07:06ID:???$commentmain =~ s/\r\n|\r|\n/<br>/g;
に変更したのですが、やはり無理でした。
ちょっと簡単には出来そうもないですよね、、
ありがとうございました。
0824nobodyさん
02/07/08 07:06ID:???0825トウモロコシ
02/07/08 18:07ID:???このCGIに同盟とMAP移動というプログラムを付けてみたいです
txtは
http://wind.gi-ga.net/ebs-txt/config.txt
http://wind.gi-ga.net/ebs-txt/ebs.txt
http://wind.gi-ga.net/ebs-txt/ebs_sub1.txt
http://wind.gi-ga.net/ebs-txt/ebs_sub2.txt
http://wind.gi-ga.net/ebs-txt/ebs_sub3.txt ←お手数ですがソースを見てもらえますか？
http://wind.gi-ga.net/ebs-txt/ebs_sub4.txt
http://wind.gi-ga.net/ebs-txt/ebs_sub5.txt
http://wind.gi-ga.net/ebs-txt/ebs_sub6.txt
http://wind.gi-ga.net/ebs-txt/ebs_sub7.txt
ちなみに副管理人募集中です（関係ない）
0826名無し
02/07/08 19:46ID:KuVKR3XX今までの出会い系サイトとは一味もニ味も違うサイトです。バーチャルタウンを実際に体験できます！！！
詳しくは下記ＵＥＬをクリックして、確かめて！！
http://www.e-mansion.co.jp/co/ac.html
08303PIO ◆3pIoOHKo
02/07/08 22:00ID:???0831nobodyさん
02/07/09 00:43ID:b0rFJDUghttp://www.alsialab.com/
に過去ログ機能をつけたいんですがやりかたわかんないよー
0833831
02/07/09 02:21ID:nS3zIebyどういうことでしょうか？
もしかして私は何か大きな勘違いをしているのでしょうか？
過去ログって古い書き込みをどこまで遡って見られるかだろ？
そのBBSは古いほうから消えていくタイプなのか？
08363PIO ◆3pIoOHKo
02/07/09 10:41ID:aNf12itaﾜﾗﾀ
0839831
02/07/09 20:53ID:nU6vpFNH新しい方から消えては意味がないので要求しないです。
0840nobodyさん
02/07/09 22:38ID:???で、その消えた分を「過去ログ」として保存したい訳？
なんで、こう逆質問しないと、はっきりとした意図が解らないような質問する訳？
古いほうから消えるって言っても、親記事の数に制限があって
古いものが消えるのか、あるいはレス数に（同上）。
だとしたらそれを過去ログ（別ログ）で残したいのか、制限そのものを
なくしたいのか。
オリジナルがどういう機能で、それをどうしたいか書かなきゃ。
そのCGIを落として動作を確かめて君のやりたいことを
推測するなんてことは誰もやらないと思うよ。
0842831
02/07/09 23:56ID:k5xDVD5V消える分を保存したいんです。
親記事の数に制限があって、新しく親記事を作ると一番下にあるものが消えるので、
それを残しておけるようにしたいと思っています。
制限をなくすことはできますが、制限したままでいこうと思います。
0843nobodyさん
02/07/10 00:04ID:???だったら、
$res = pop(@bbs_data);
で、$resを追記で過去ログ酔うファイルにでも書き込んでいけばいいんじゃ内の？
0844nobodyさん
02/07/10 02:25ID:???0846nobodyさん
02/07/10 03:35ID:???print pop(@bbs_data);
close(FILE);
0855nobodyさん
02/07/11 17:16ID:???悲惨な831がいるスレはここですか？
0856831
02/07/11 18:13ID:6V/lnArc>>851は私ではありませぬが
0857コギャル＆中高生
02/07/11 18:17ID:geOvSY9Zヌキヌキ部屋へ直行
0859nobodyさん
02/07/12 03:06ID:mQ+sLvjc誘導されてきました。改造はこちらでしたね…(;´д｀) ｼﾞﾌﾞﾝ ｲｯﾃﾖｼ
どなたかご教授くださいませ。
こちらの日記CGIはタグを使いたい場合、CGIの設定の中に
使いたいタグを(font a b u s i)という形式で書くことに
なっているのですが、どうも入れ子状態のタグだと
一番内側にあるタグ以外は無視されてしまうようなのです。
（ <a><img></a> の場合、画像は表示されるが
アンカータグのカッコは＆lt；に変換されてしまう）
タグを入れ子にできるようにするためには、
どのように書き換えればいいのでしょうか？
ヒントだけでも構いませんのでお願い致します･ﾟ･(ﾉД`)･ﾟ･
CGIをテキストに変換したものです。
http://blue.ribbon.to/~brm/d-board.txt
0860つられて向こうに書いちゃったヨ
02/07/12 03:38ID:???d-board.libの
foreach $tag (@$okTagClose){
while($text_data =~ /<($tag)([^&]*)>([^&]+)<\/$tag>/i){
$text_data =~ s/<($tag)([^&]*)>([^&]+)<\/$tag>/<$tag$2>$3<\/$tag>/i;
$text_data = &ok_tag($text_data);
}
}
foreach $tag (@$okTagOpen){
while($text_data =~ /<$tag([^&]*)([^\.cgi]*)([^&]*)>/i){
$text_data =~ s/<$tag([^&]*)([^\.cgi]*)([^&]*)>/<$tag$1$2$3>/i;
}
}
を
foreach $tag (@$okTagClose){
$text_data =~ s|<(${tag}.*?)>(.*?)</${tag}>|<$1>$2</$tag>|ig;
}
foreach $tag (@$okTagOpen){$text_data =~ s/<(${tag}.*?)>/<$1>/ig;
}
と入れ替えていけないかな。
0861860
02/07/12 03:43ID:???下から3行目の<(${tag}.*?)>は
<(${tag}.*?)>
で。
0862nobodyさん
02/07/12 03:55ID:???おおお、で、できました!!･ﾟ･(ﾉД`)･ﾟ･
自分なりに、先程UPしたファイルと睨めっこして
『「＆lt;」がないけどなぜ…(;´д｀)？？？』と首を傾げていて、
それがlibファイルにあることに気付き、>>860の部分と
またもや睨めっこして頭を沸騰させていたところでございました。
こんな時間に、本当にどうもありがとうございました!!
入れ替えたところをなんとか理解できるように精進したいと思います。
（あちらにもお礼を書かせていただきます。）
0863nobodyさん
02/07/12 06:27ID:fSxvbH1Nなんですが、これの一覧表示の際に
通常はコラムの「題名 日付」の順に並ぶのを「ジャンル 題名 著者名 日付」
という形にするために書き込み欄に新たにselectかtextareaを作って
設定できるようにしたいのですが、どのように書き換えたらいいのでしょうか？
よろしくお願いします（；´Д｀）
0864860
02/07/12 07:54ID:H5YGeUXYごめん、>>860のやり方だと例えば<a>を許可した場合に
<applet>とかも許可されちゃうわ。
回避するには以下のように変更して。
foreach $tag (@$okTagClose){
$text_data =~ s|<(${tag}(\s.*?)?)>(.*?)</${tag}>|<$1>$3</$tag>|ig;
}
foreach $tag (@$okTagOpen){$text_data =~ s/<(${tag}(\s.*?)?)>/<$1>/ig;
}
って、もう来ないかな…
>>863
見た目だけで良いなら題名の欄にジャンルと著者名も一緒に
書くようにしてみては？
別々に記録して読み込んだりソートしたり出来るように改造するとなると
人に聞かないで出来る人でも数時間かかるような作業になるかと。
0865nobodyさん
02/07/12 08:41ID:???> 見た目だけで良いなら題名の欄にジャンルと著者名も一緒に書くようにしてみては？
> 別々に記録して読み込んだりソートしたり出来るように改造するとなると
>人に聞かないで出来る人でも数時間かかるような作業になるかと
今はとりあえずそうしてるんですが、やっぱり別途記録するとなると大掛かりに
なりますよね。。どうもありがとうございます（；´Д｀）。
0866nobodyさん
02/07/12 17:23ID:ia5y4ZlD文字化けしないようにするにはどこをどういじればよいでしょうか？
0867nobodyさん
02/07/12 17:25ID:???jcode.pl なり Jcode.pm なりつかって全角に変換する。
0868nobodyさん
02/07/12 17:51ID:???アイコン選択機能をつけたいのです。（+YY BOARDというカンジ）
初期設定部分とフォーム部分、画像イメージ表示だけは
ブッコ抜いたのですが、他はどこを書き換えればよいのでしょうか。
または、どこかでこのタイプのスクリプト配布してるヨ！とかあったら
教えてくだされ。厨質問だったらゴメンナサイ
0869nobodyｻﾝ
02/07/12 20:16ID:4M4rHMC20870nobodyさん
02/07/12 21:50ID:???どんな掲示板を使ってるのか知らないから憶測で。
require "./jcode.pl"; の行を消して、
jcode:: という文字が入ってる行を全部消してみ。
0871nobodyさん
02/07/12 21:52ID:???あとで戻すのめんどい。
0872nobodyさん
02/07/12 21:54ID:???これ？
ttp://isweb36.infoseek.co.jp/computer/perldev/cgi-bin/upload/source/026.txt
0873nobodyさん
02/07/12 22:06ID:NBH366/gうぉ、これです！！
ありがとう、さっそく試してみます！
大感謝！！
0875nobodyさん
02/07/12 22:12ID:???0876866
02/07/12 22:58ID:nxnRDV77>>869の通りここでは文字化けしませんよね、ここはどうやっているのでしょう？
ここでも文字化けすることあるのかな？
0877nobodyさん
02/07/12 23:05ID:???2chは文字コードがshift_jisでしか認識してない。
ほかの文字コード（たとえばEUC-jp、UTF-8）がきても文字コードを変換せずに記録する。
jcode.plなどを使わないようにすると別の文字コードが送られてきても変換しないので
おもいっきり文字化けする。（無論2chにshift_jis以外の文字コードを送ると文字化けする）
0878866
02/07/13 02:15ID:yiJCKrBsてことはほとんどみんなshift_jisなんですか？
だったら私のとこもjcode.pl使わずshift_jisだけで行こうかなぁ
0880866
02/07/13 04:22ID:7VZqQeDsどうやったら弾けますか
0883nobodyさん
02/07/13 11:23ID:???0884
02/07/13 15:38ID:wm6r1jvd0885nobodyさん
02/07/14 19:41ID:???format c:
0887nobodyさん
02/07/14 23:28ID:???0889862
02/07/15 04:16ID:???改造をお願いした者です。
またレスをくださるとは思っておりませんでした。
気付いて良かったです。
早速変更しました（どう変わったのか、当分理解できそうにないですが…）
重ね重ねありがとうございました（・∀・）!!
0890nobodyさん
02/07/15 23:32ID:???if ($ENV{'REQUEST_METHOD'} eq "POST") {read(STDIN, $query_string, $ENV{'CONTENT_LENGTH'});}
else {$query_string = $ENV{'QUERY_STRING'};}
@a = split(/&/, $query_string);
foreach $a (@a) {
($name, $value) = split(/=/, $a);
$value =~ tr/+/ /;
$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
if ($ENV{'REQUEST_METHOD'} eq "POST") {
if ($ENV{'CONTENT_LENGTH'} > 5000) { &error("投稿量が大きすぎます。","no"); }
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else { $buffer = $ENV{'QUERY_STRING'}; }
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
# S-JISコード変換
&jcode'convert(*value,'sjis');
$value =~ s/</</g;
$value =~ s/>/>/g;
$FORM{$name} = $value;
}
$mode = $FORM{'mode'};
}
0891890
02/07/15 23:35ID:POFbnTHasub decode {
if ($ENV{'REQUEST_METHOD'} eq "POST") {
if ($ENV{'CONTENT_LENGTH'} > 5000) { &error("投稿量が大きすぎます。","no"); }
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else { $buffer = $ENV{'QUERY_STRING'}; }
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
# S-JISコード変換
&jcode'convert(*value,'sjis');
$value =~ s/</</g;
$value =~ s/>/>/g;
$FORM{$name} = $value;
}
$mode = $FORM{'mode'};
}
ですよね？違いは何ですか？
0893nobodyさん
02/07/16 01:09ID:Y35QqyN50894nobodyさん
02/07/16 15:17ID:???<FORM ACTION="test.cgi?aaa=bbb&ccc=ddd" METHOD="POST">
↑こんな場合は？
0896nobodyさん
02/07/17 15:48ID:cIBn6wB5のアクセス解析についてなんですが、ファイル内の
acc.cgi
の書き換えについて教えて欲しいです。
サンプルを見れば分かるけど、当然のことながら、登録していないブラウザは不明となりすよね?
PDA用のページをしているので、登録していないブラウザがたくさん来ます。
カラーブラウザボードが解析の結果に反映されるように改造がしたいです。
お願いします。
ブラウザ情報は
"Mozilla/4.0;CBBstandard-1.0" "-" "-"
です。
0897nobodyさん
02/07/17 15:55ID:???がんがれ。
0898nobodyさん
02/07/17 15:55ID:???何やってんだか・・・・
0899nobodyさん
02/07/17 16:08ID:???read.cgiで見る分にはそのままだけど
0900896
02/07/17 16:12ID:???どこにどんな文字列を挿入すればいいんですかね?
0902896
02/07/17 17:22ID:g9xseeZV0903896
02/07/17 17:25ID:f+M3E6fP"Mozilla/4.0;CBBstandard-1.0" "-" "-"
を識別する方法を教えてください。
0904nobodyさん
02/07/17 18:44ID:lQ93ITRR} elsif($user_agent =~ /OSF1/i) {
$platform = 'OSF1';
if($user_agent =~ /OSF1\s+([a-zA-Z0-9\.]+)/i) {
$platform_v = $1;
} else {
$platform_v = '';
}
} elsif($user_agent =~ /CBBstandard/i) {
$platform = 'CBB';
$platform_v = '1.0';
}
} else {
$platform = '';
$platform_v = '';
}
0905896
02/07/17 20:14ID:QBWIYOvF同様に
"Mozilla/4.0;CBBoard-1.0" "-" "-"
というのもカラブラには存在するんですが、追加の仕方は分かりますか?
>>904と同様に続けていったらエラーになってしまったのですが‥
0907nobodyさん
02/07/17 20:21ID:???0908896
02/07/17 20:30ID:QBWIYOvF} elsif($user_agent =~ /OSF1/i) {
$platform = 'OSF1';
if($user_agent =~ /OSF1\s+([a-zA-Z0-9\.]+)/i) {
$platform_v = $1;
} else {
$platform_v = '';
}
} elsif($user_agent =~ /CBBstandard/i) {
$platform = 'CBB';
$platform_v = '1.0';
}
} elsif($user_agent =~ /CBBoard/i) {
$platform = 'CBB';
$platform_v = '1.0';
}
です。
どこを変更修正すべきですか?
0911896
02/07/17 21:31ID:???0912896
02/07/17 21:38ID:???教えて君で申し訳ないですが、分かる方はソースを教えてください。
0913nobodyさん
02/07/17 21:38ID:???if (条件) {
処理
} elsif (条件) {
処理
} else {
処理
}
{ と } は対になってるの。
} elsif($user_agent =~ /OSF1/i) {
$platform = 'OSF1';
if($user_agent =~ /OSF1\s+([a-zA-Z0-9\.]+)/i) {
$platform_v = $1;
} else {
$platform_v = '';
}
} elsif($user_agent =~ /CBBstandard/i) {
$platform = 'CBB';
$platform_v = '1.0';
}
} elsif($user_agent =~ /CBBoard/i) {
$platform = 'CBB';
$platform_v = '1.0';
}
おかしくないかい？
0915896
02/07/17 21:44ID:???$platform = 'OSF1';
if($user_agent =~ /OSF1\s+([a-zA-Z0-9\.]+)/i) {
$platform_v = $1;
} else {
$platform_v = '';
} elsif($user_agent =~ /CBBstandard/i) {
$platform = 'CBB';
$platform_v = '1.0';
} elsif($user_agent =~ /CBBoard/i) {
$platform = 'CBB';
$platform_v = '1.0';
}
が正解ですか?
0916896
02/07/17 22:07ID:???$platform = 'OSF1';
if($user_agent =~ /OSF1\s+([a-zA-Z0-9\.]+)/i) {
$platform_v = $1;
} else {
$platform_v = '';
} elsif($user_agent =~ /CBBoard/i) {
$platform = 'CBB';
$platform_v = '1.0';
} else {
$platform = '';
$platform_v = '';
} elsif($user_agent =~ /CBBstandard/i) {
$platform = 'CBB';
$platform_v = '1.0';
} else {
$platform = '';
$platform_v = '';
}
{
return ($platform, $platform_v, $browser, $browser_v);
}
このように訂正しました。
まだ、間違ってますかね?
0917nobodyさん
02/07/17 22:17ID:???$platform = 'OSF1';
if($user_agent =~ /OSF1\s+([a-zA-Z0-9\.]+)/i) {
$platform_v = $1;
} else {
$platform_v = '';
}
} elsif($user_agent =~ /CBBstandard/i) {
$platform = 'CBB';
$platform_v = '1.0';
} # この行がおかしい？
} elsif($user_agent =~ /CBBoard/i) {
$platform = 'CBB';
$platform_v = '1.0';
}
0918896
02/07/17 22:54ID:???$platform = 'OSF1';
if($user_agent =~ /OSF1\s+([a-zA-Z0-9\.]+)/i) {
$platform_v = $1;
} else {
$platform_v = '';
}
} elsif($user_agent =~ /CBBoard/i) {
$platform = 'CBB';
$platform_v = '1.0';
}
} else {
$platform = '';
$platform_v = '';
} elsif($user_agent =~ /CBBstandard/i) {
$platform = 'CBB';
$platform_v = '1.1';
}
return ($platform, $platform_v, $browser, $browser_v);
}
にしてみましたが動作確認とれません。。
} #を消しても見ましたけど‥
0919nobodyさん
02/07/17 23:11ID:???(前略)
} elsif($user_agent =~ /OSF1/i) {
$platform = 'OSF1';
if($user_agent =~ /OSF1\s+([a-zA-Z0-9\.]+)/i) {
$platform_v = $1;
} else {
$platform_v = '';
}
} elsif($user_agent =~ /CBBstandard/i) {
$platform = 'CBB';
$platform_v = '1.0';
} elsif($user_agent =~ /CBBoard/i) {
$platform = 'CBB';
$platform_v = '1.0';
} else {
$platform = '';
$platform_v = '';
}
} else {
$platform = '';
$platform_v = '';
$browser = '';
$browser_v = '';
}
return ($platform, $platform_v, $browser, $browser_v);
}
0920896
02/07/18 00:16ID:???今まで、perlなどのCGIはパスを調べて置くだけだったのでさっぱり分かりませんでした。
今度ここに来るときはもう少し勉強してきます(^^;
ありがとうございました
0921便乗
02/07/18 13:41ID:???すれ違いな質問かもしれんが、教えてくだされ。
0922nobodyさん
02/07/18 13:50ID:???の疑問が湧いたことあがる。
0923nobodyさん
02/07/18 14:06ID:???0924nobodyさん
02/07/19 15:50ID:ou++e83o0928nobodyさん
02/07/21 12:03ID:???CGIはナイでしょうか？
昔作っている人に貰ったことがあるのですがｸｿみたいな改造だったのですぐ捨ててしまいました。
似たようなインターフェースのCGIは有りませんか？
0931nobodyさん
02/07/21 15:45ID:75qq1PAwあとはスタイルシートの使い方と１つ目の予定を書き込んだ時に
自動挿入される半角スペースを無効にする方法がわかれば形にな
るかと思うのですが、行き詰まったのでどなたかアドバイスをお
願いしますです。
スクリプトは
ttp://www.aikis.or.jp/~s-suzuki/cgilabo/webcalender/
にあるものです。
理想は
ttp://www.ag.wakwak.com/~spec/cgi-bin/calender/webcalen.cgi
のような感じです。
0932nobodyさん
02/07/21 16:00ID:???半角スペースはサンプルのソースを見ると
<TR>
<TD ALIGN="right" BGCOLOR="#ffffff" NOWRAP> 10 </TD>
<TD ALIGN="center" BGCOLOR="#ffffff" NOWRAP>水</TD>
<TD BGCOLOR="#ffffff" WIDTH="100%"> テスト<BR><BR><BR><BR>テスト </TD>
</TR>
となっているから
コメントの前と後ろに を挿入しないように削除すればいい
スクリプトは見てないから自分で の場所を探すこと
0934nobodyさん
02/07/21 16:06ID:???コメントの前と後ろの を削除すればｵｹ
0935931
02/07/21 16:11ID:75qq1PAwありがとうございます。さっそくやってみます。
0936
02/07/22 18:34ID:na3eS/Vvすることは出来たのですが、更にイメージの選択を必須項目にしたいのですが、
どうやってやったらよろしいでしょうか？
ご教授お願いいたします。
0937nobodyさん
02/07/22 19:28ID:8TyOV1qR上から順にスクリプトを見ていったらわかるよ
0939nobodyさん
02/07/22 21:32ID:???アイコンの先頭にダミーをいれる
@icon1の先頭に'shokichi'を@icon2の先頭に'アイコンを選ぶ'
# アイコンを定義（上下は必ずペアで）
@icon1 = ('shokichi','bear.gif',・・・,'usagi.gif');
@icon2 = ('アイコンを選ぶ','くま',・・・,'うさぎ');
こうするとアイコンを選ばずにそのまま送信すると icon の値が shokichi として送られるので
あとは $in{'icon'} が shokichi ならエラーを出せばよい
1423行目以降の「フォーム入力チェック」サブルーチンの末尾に追加
# 管理アイコンのチェック
if ($my_icon && $in{'icon'} eq $my_gif) {
if ($in{'pwd'} ne $pass) { &error("管理用アイコンは管理者専用です"); }
}
# アイコンが選択されているかのチェック
if ($in{'icon'} eq "shokichi") { &error("アイコンを選択してください"); }
}
0940 936
02/07/22 21:48ID:BcsBm5TC完璧です。
ありがとうございました。
0941age
02/07/23 16:48ID:???0942nobodyさん
02/07/23 16:51ID:???のメール送信したとき「limit」の値を１減らしたくていろいろいじって
みたんですができません。どかがまずいんでしょうか？
0945943
02/07/23 17:11ID:8GxTWX5C0947nobodyさん
02/07/23 18:28ID:???0948nobodyさん
02/07/25 22:04ID:RlKaNd0u現在ではアルファベットの大文字小文字は区別されるのですが、
区別無しでヒットするようにしたいのです。
できるものなら半角全角もいっしょくたにしたいのですが、可能でしょうか？
どうか知恵をお貸しください。よろしくお願いします。
0949948
02/07/25 22:05ID:RlKaNd0usub find {
&header;
print <<"EOM";
[<a href="$script?">掲示板にもどる</a>]
<table width="100%">
<tr><th bgcolor="#880000">
<font color="#FFFFFF">ワード検索</font>
</th></tr></table>
<P>
<UL>
<LI>検索したい<b>キーワード</b>を入力し、「条件」「表\示」を選択して「検索」ボタンを押して下さい。
<LI>キーワードは「半角スペース」で区切って複数指定することができます。
<P><form action="$script" method="POST">
<input type=hidden name=mode value="find">
キーワード：<input type=text name=word size=30 value="$in{'word'}">
条件：<select name=cond>
EOM
if (!$in{'cond'}) { $in{'cond'} = "AND"; }
foreach ("AND", "OR") {
if ($in{'cond'} eq "$_") {
print "<option value=\"$_\" selected>$_\n";
} else {
print "<option value=\"$_\">$_\n";
}
}
print "</select>\n";
print "表\示：<select name=view>\n";
if ($in{'view'} eq "") { $in{'view'} = $p_log; }
foreach (5,10,15,20) {
0950948
02/07/25 22:06ID:RlKaNd0uprint "<option value=\"$_\" selected>$_件\n";
} else {
print "<option value=\"$_\">$_件\n";
}
}
print "</select>\n";
print "<input type=submit value='検索'></form>\n</UL>\n";
# ワード検索の実行と結果表示
if ($in{'word'} ne "") {
# 入力内容を整理
$in{'word'} =~ s/ / /g;
@pairs = split(/\s+/, $in{'word'});
# ファイルを読み込み
@new=();
open(IN,"$logfile") || &error("Open Error : $logfile");
$top = <IN>;
while (<IN>) {
$flag=0;
foreach $pair (@pairs) {
if (index($_,$pair) >= 0) {
$flag=1;
if ($in{'cond'} eq 'OR') { last; }
} else {
if ($in{'cond'} eq 'AND') { $flag=0; last; }
}
}
if ($flag) { push(@new,$_); }
}
close(IN);
0951948 txtでアップするべきでした。反省(；´Д｀)
02/07/25 22:07ID:RlKaNd0u$count = @new;
print "検索結果：<b>$count</b>件\n";
if ($page eq '') { $page = 0; }
$end_data = @new - 1;
$page_end = $page + $in{'view'} - 1;
if ($page_end >= $end_data) { $page_end = $end_data; }
$next_line = $page_end + 1;
$back_line = $page - $in{'view'};
$enwd = &url_enc($in{'word'});
if ($back_line >= 0) {
print "[<a href=\"$script?mode=find&page=$back_line&word=$enwd&view=$in{'view'}&cond=$in{'cond'}\">前の$in{'view'}件</a>]\n";
}
if ($page_end ne "$end_data") {
print "[<a href=\"$script?mode=find&page=$next_line&word=$enwd&view=$in{'view'}&cond=$in{'cond'}\">次の$in{'view'}件</a>]\n";
}
print "[<a href=\"$script?mode=find\">検索やり直し</a>]\n";
foreach ($page .. $page_end) {
($no,$reno,$date,$name,$email,$sub,$com,$url)
= split(/<>/, $new[$_]);
if ($email) { $name = "<a href=\"mailto:$email\">$name</a>"; }
if ($url) { $url = "<<a href=\"http://$url\" target='_top'>HOME</a>>"; }
if ($reno) { $no = "$renoへのレス"; }
# 結果を表示
print "<hr>[<b>$no</b>] <font color=\"$sub_color\"><b>$sub</b></font>";
print " 投稿者：<b>$name</b> <small>投稿日：$date</small> $url<br>\n";
print "<blockquote>$com</blockquote>\n";
}
print "<hr>\n";
}
print "</body></html>\n";
exit;
}
長くなってすみませんが、ワード検索のサブルーチン一通りです。
0952nobodyさん
02/07/25 22:26ID:???# 入力内容を整理
$in{'word'} =~ s/ / /ig;
とかきいたことがあるよママ
0953nobodyさん
02/07/25 22:32ID:bgz0ge4n所詮、ガキはそのレベルだ。
0954 そうだね <丶｀∀´> ﾆﾀﾞｰﾘ
02/07/25 22:57ID:???な ぜ あ げ る？
0955nobodyさん
02/07/26 01:49ID:0BDmH9hb0957nobodyさん
02/07/26 19:45ID:kVw69kF2#大文字小文字区別無し
if (index($_,$pair) >= 0) {
↓
if($pair =~ /$_/i){
半角全角区別無しは一旦 &jcode'h2z_sjis(*value)とかで両文字列を
統一してから照合すりゃ良いんじゃないかな。重そうだけど。
0958948
02/07/26 23:30ID:???ありがとうございます。
それは上の文を下の文に書き換えればよいのでしょうか。
書き換えてみたのですが上手く動かないのです…
（何も検出されなくなってしまいました）
とにかく辞書や勉強スレなども見て、自分でもいろいろやってみます。
大きく前進できたと思います。
ありがとうございました。
0959957
02/07/27 00:03ID:pvFK+xGBああごめん、逆だ。
if($pair =~ /$_/i){
じゃなくて
if($_ =~ /$pair/i){
だ。つーかそんなら
if(/$pair/i){
か。
0962nobodyさん
02/07/27 09:01ID:???プログラムが欲しいわけだが。
0964nobodyさん
02/07/27 23:40ID:DH9H4W07あちらではスレ違いになりますので・・・
ヒントを頂けないでしょうか？
0965nobodyさん
02/07/27 23:46ID:6EI34UHG宜しくお願いします。
自サイトでffwatchというcigの解析を使っているのですが、丸見え状態
なのでこのcgiにパスワードをつけたいと思っています。
どうすればいいでしょうか？
本体cgi
http://www.geocities.co.jp/AnimalPark-Pochi/9232/ffwatch.txt
ログcgi
http://www.geocities.co.jp/AnimalPark-Pochi/9232/fflog.txt
0966nobodyさん
02/07/28 01:16ID:???ログファイル名を変えられるなら、
例えば"ffwatch.cgi"、"fflog.cgi"にするのが吉。
これなら.htaccess触らないで済む。
0967nobodyさん
02/07/28 04:02ID:W8D+zAzJttp://www.gt.sakura.ne.jp/~ocosama/garakuta/soft/paintbbs/pbbs.html
どうも文字サイズが小さくならないんです。
http://maebari.net/oekei/bbsnote.cgi
この程度まで全ての文字を小さくしたいのですが、
どうすればできるんでしょうか？
CGIの設定ページには文字サイズの設定がないし、試しに「oekaki.cgi」の中の
FONT SIZEをすべて1にしてみましたが、全く変化がありませんでした。
どなたか教えてください。お願いします。
0968nobodyさん
02/07/28 04:19ID:???0970nobodyさん
02/07/28 04:32ID:???font sizeいじっても変わらないなら
すでにCSSで固定されてんじゃないの？
見てないから知らんが。
つーかtxtでUPされてないもんは見る気もせんが。
Web製作板から来たって話だけど向こうで合ってるよ。
プログラムの部分じゃない以上、ここは板違い。
0971nobodyさん
02/07/28 10:12ID:???@enc = ('euc', 'sjis'); # 日本語コード
# --------------------------------------
# パスワード認証
$pass = '';#好きなパスワードを入れる
if ($pass ne "") {
&decode;
if ($in{'pass'} ne "" && $pass ne "$in{'pass'}") {
&error("パスワードが違います");
}
elsif ($in{'pass'} eq "") {
&header;
print "<center><h4>パスワードを入力して下さい</h4>\n";
print "<form action=\"$script\" method=\"POST\">\n";
print "<input type=password name=pass size=6>";
print "<input type=submit value=' 認証 '></form>\n";
print "</center>\n</body></html>\n";
exit;
}
}
# ======================================
# 手続き
# --------------------------------------
こんな感じに付け加える。
ログを書き込むファイルの拡張子もcgiにするといいかも
0972965
02/07/28 14:52ID:J7Vy5sYdありがとうございます。ソース見るとファイル名で判ってしまうので…。
>971
ありがとうございます。お手数おかけしてすみません。。
リプトを追加したところffwatchの方に500エラーがでました。
エラーチェックスクリプトでチェックしたところ以下の部分が
エラーと表示されました。
syntax error at (eval 1) line 37, near "?
if ($in{'pass'} ne "" && $pass ne "$in{'pass'}") {
&error("パスワードが違います");
}
elsif ($in{'pass'} eq "") {
?
print"
Unmatched right bracket at (eval 1) line 44, at end of line
syntax error at (eval 1) line 44, near "}
}"
どうしたらいいでしょうか…？
宜しくお願いします。
0973971
02/07/28 20:15ID:Di7q+S2Lよけいなトコを消したんじゃないの？
@enc = ('euc', 'sjis'); # 日本語コード
# --------------------------------------
から
# ======================================
# 手続き
の間をコピペすればいいんだけど、
もう１回確かめてみ
0974971
02/07/28 20:20ID:???UPしてみた
0975nobodyさん
02/07/28 21:21ID:???メールの一斉配信CGIなのですが、送信元(ここでは[email protected]です)から
登録されたユーザー(例:[email protected])に配信したときにヘッダーを見ると
Return-Path: <[email protected]>
Delivered-To: [email protected]
となっていて、送信エラー(宛名不明)のメールが自分のもとに戻ってきません
これを自分のところに戻るように改良していただけないでしょうか？
UP先は以下です。
http://isweb36.infoseek.co.jp/computer/perldev/cgi-bin/upload/source/036.zip
配信先リストがusr.datです。
なお、オリジナルは下記のものですが、今は閉鎖(移転？)されていて、
サポートを受けれないのでこちらでお願いしいています。
SQUZA MAIL MAGAZINE Ver1.2 http://www.squza.com/
0976965
02/07/28 22:17ID:???度々すみません。
うーん…貼り付けて貰ったものをコピペして使ったのですが、
何がいけなかったのか…。見比べてみてもどうも判りません…。
アップして頂いたものを使わせて貰ったところ、正常に稼動しました。
どこがいけなかったのか、もう一度ちゃんと見直してみます。
本当にどうもありがとうとざいました！
0977nobodyさん
02/07/28 22:40ID:???って可能性は？
0978965
02/07/28 22:47ID:???コピペして…TeraPadで保存時にEUCにしてたんですが…。
そうか…文字コードの可能性もあるんですね…。
するとコピした部分だけ別のテキストに保存。
その後文字コードを確認すればよかったんですね…。
そうか～。
0980nobodyさん
02/07/29 10:00ID:???古いsendmail の引数ですね。これで動いてるんですか。
$sendmail -t -oi -i -f $mailto
↓
$sendmail -t -f $from
にしとけ。
0981975
02/07/29 19:42ID:???さっそく試してみます。
0982nobodyさん
02/07/30 09:43ID:???Mail::Mailerモジュールはどうですか。
http://search.cpan.org/doc/MARKOV/MailTools-1.47/Mail/Mailer.pm
sendmailのパスとか面倒なことはすべて書かなくていいです。
とりあえずサブルーチンのlocalをmyにするとわずかですか高速化します。
0983nobodyさん
02/07/30 13:53ID:???0984nobodyさん
02/07/31 21:11ID:???openしたデータファイル
10<>タイトル<>カデコリ<>本文<>2002/08/01 (Thu)<>100000<>hoge<>
9<>タイトル<>カデコリ<>本文<>2002/08/01 (Thu)<>100000<>hoge<>
8<>タイトル<>カデコリ<>本文<>2002/08/01 (Thu)<>100000<>hoge<>
7<>タイトル<>カデコリ<>本文<>2002/08/01 (Thu)<>100000<>hoge<>
・
・
・
1<>タイトル<>カデコリ<>本文<>2002/08/01 (Thu)<>100000<>hoge<>
の上の三行だけを取得したいのです。
どのようにしたらいいのでしょうか？よろしくお願いします。
open(DATA,"$logfile") || exit;
# @dataに格納し、ファイルを閉じる
@data = <DATA>; close(DATA);
すると$data[0]には1行目が、$data[1]には2行目が、$data[2]には3行目が格納されています
0986nobodyさん
02/08/01 04:16ID:3u+0D44D「>>数字」←これ
http://www.kent-web.com/bbs/aska.html
お願いします
0987nobodyさん
02/08/01 13:19ID:???$com =~ s/(>>([\d+]))/<a href=\"$script?mode=ref_res&no=$2\" target=\"_blank\">$1<\/a>/g ;
ref_resのサブルーチンは自分で作ってね。
0988987
02/08/01 13:20ID:???0989987
02/08/01 13:30ID:???( ﾟдﾟ)鬱
0990nobodyさん
02/08/01 13:57ID:???sub ref_res {
&header;
open(IN,"$logfile") || &error("Open Error : $logfile");
while (<IN>) {
($no,$date,$name,$mail,$sub,$com,$url) = split(/<>/);
if ($in{'no'} eq $no) {
if ($mail) { $name = "<a href=\"mailto:$mail\">$name</a>"; }
if ($autolink) { &auto_link($com); }
if ($refcolor) { $com =~ s/([\>]|^)(>[^<]*)/$1<font color=\"$refcolor\">$2<\/font>/g; }
$com =~ s/(>>([\d]+))/<a href=\"$script?mode=ref_res&no=$2\" target=\"_blank\">$1<\/a>/g ;
print "<DL><DT><hr>[<b><a name=\"$no\">$no</a></b>] <font color=\"$sub_color\"><b>$sub</b></font> ",
"投稿者：<b>$name</b> 投稿日：$date ",
"<br><br><DD>$com";
print "<P><a href=\"http://$url\" target=\"_blank\">http://$url<;/a>" if ($url);
print "<br></DL>\n";
last;
}
}
close(IN);
print "</body></html>";
exit;
}
0991nobodyさん
02/08/01 14:51ID:ZXIYAq1T>>984 以下の全部、又は欲しいとこだけ考えて組み込みな
####
$start_no = 0;#何行目から取得するか
$last_no = 3;#$start_noから数えて何行目まで取得するか
####上二つは外部からの入力？####
####作業準備
$t_datcount = 0;#作業用カウンタ(トータル数
$datcount = 0;#作業用カウンタ(配列に加えた数
####作業開始
open(DATA,"$logfile");#データ開く
while(<DATA>){#一行づつ処理
$t_datcount++;#行数をカウント
next if($t_datcount < $start_no);#指定した行数までスルー
if($datcount < $last_no){#指定した行数まで取得
push(@log,"$_");#現在の行を配列に加える
$datcount++;#加えた数をカウント
}
last;#加え終わったら即抜け。全ログ行数も知りたきゃこれは外す
}#次の行へ
close(DATA);データ閉じる
#取得した行は@logの中
0992991
02/08/01 14:56ID:???× last;
○ }else{last;}
0993nobodyさん
02/08/01 18:21ID:???次スレ：http://pc.2ch.net/test/read.cgi/php/1028193595/l50
0994nobodyさん
02/08/04 15:58ID:???0995nobodyさん
02/08/04 16:38ID:???0996nobodyさん
02/08/04 20:49ID:exw5uZtl0997nobodyさん
02/08/04 20:49ID:???1001１００１
Over 1000Threadもう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。