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

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

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

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

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

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

過去ログ>>2

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

【PART1】行方不明
【PART2】行方不明
【PART3】http://pc.2ch.net/php/kako/988/988808396.html
【PART4】http://pc.2ch.net/php/kako/1012/10128/1012839651.html
【PART5】http://pc2.2ch.net/php/kako/1028/10281/1028193595.html
【PART6】http://pc2.2ch.net/test/read.cgi/php/1047806915/

もしかして行方不明のPart2ってこれか？
http://pc2.2ch.net/test/read.cgi/hosting/986986227/

まだ書けるぞｗ

おつかれぃ

早速ですが…
ttp://proxy.ymdb.yahoofs.jp/users/e2fdabc/bc/%a5%de%a5%a4%a5%c9%a5%ad%a5%e5%a5%e1%a5%f3%a5%c8/mkakikomitai.txt?bco2Uu_Ax0ZrFQaa
こちらのもっと書き込み隊というBBSにファイルアップロード機能をつけていただけませんか？
私は、プログラミングは高校でBASICを少し触った程度で、Perlの知識は全くないので、構造が全然わからないのです(´∀｀；)

ごめんなさい。
追加です。
できれば、画像をアップした時にプレビュー画像がでるようにしてくださると幸いです。
ややこしいこと言って申し訳ないです。

んなURL踏むかよ

まったく知識がないなら初めから画像掲示板を使え

print "<SCRIPT language=\"JavaScript\">\n";
print "<!--\n";
print "// _dom : 0=other, 1=Mozilla, 2=NN4, 3=IE4/5\n";
print "_dom=(document.all?3:(document.getElementById?1:(document.layers?2:0)));\n";
print "function getDiv(nm){\n";
print " if(_dom==1) return document.getElementById(nm);\n";
print " if(_dom==2){\n";
print " var s='';\n";
print " for(var i=1; i<arguments.length; i++)\n";
print " s+='document.layers.'+arguments[i]+'.';\n";
print " return eval(s+'document.layers.'+nm);\n";
print " }\n";
print " if(_dom==3) return document.all(nm);\n";
print " return null;\n";
print "}\n";
print "function showLAYER(div){\n";
print " if(_dom==2)div.visibility='show'\n";
print " if(_dom==1 || _dom==3){div.style.visibility='visible'}\n";
print "}\n";
print "function hideLAYER(div){\n";
print " if(_dom==2)div.visibility='hide'\n";
print " if(_dom==1 || _dom==3){div.style.visibility='hidden'}\n";
print "}\n";
print "function setBGCOLOR(div,color){ \n";
print " if(_dom==2){div.bgColor=color ; return;}\n";
* print " if(_dom==1 || _dom==3){div.style.backgroundColor=color; return;}\n";

print "}\n";
print "window.onload=BGC\n";
print "function BGC(){\n";
print " setBGCOLOR(getDiv('test0'),'#FFFFbb')\n";
print "} \n";
print "-->\n";
print "</SCRIPT>\n";


DHTMLやJavaScriptを用いて、ポップアップウィンドウを取り付けようとしてるんですが
*のついてるラインに「オブジェクトがありません」というエラーが出てきて動作してくれないんです。
Perl文法チェックもクリアし、また、HTMLファイルなら正常に動作しました。
*のラインを削除すればまた別の場所にガタが来てしまい、にっちもさっちも行きません。
何が原因なのでしょうか？

すみません、失敗しました。

>>9-10
です。

>>11
そりゃJavaScriptのエラーだ。板が違う
エラーそのものは、div が null だから。

>>12
ありがとうございます。
板違いすみませんでした。
別の板で訊いてみます。

(´･∀･`）ﾍｰ

( ･∀･)つ〃

上の方で似たような言われていて、煽られているのでこの注文をするのは恐縮なのですが、
CGICafeさんのもっと書き込み隊改造スクリプトLight Bbs(http://saya.kiy.jp/test_cgi/lbbs/lbbs.cgi)
に、同じくCGICafeさんのReference Book(http://saya.kiy.jp/test_cgi/rbook/rbook.cgi)にあるファイルアップロード機能を移植してほしいのです。

※CGICafeさんの鯖は不安定なようで、たまに503エラーがでますが、リロードしていただけると直ります。

スクリプトファイルはテキストにして、アップさせていただきました。
http://webplus.snow.ble.org.uk/lbbs.txt　こちらがLight BBSのスクリプト
http://webplus.snow.ble.org.uk/rbook.txt　こちらがReference Bookのスクリプトです。

Perlの知識は、紙谷 歌寿彦さんという方の「はじめての人のためのかんたんPerl/CGI入門」という本を全部やったぐらいです。
難しいことはわからないかも知れませんが、基本的なことならわかると思います。
手助けよろしくお願いします。

機能をひとつ追加するのって大変なんよ…

注文かぁ・・・

URLジャンプを作りたいんですけど、
まず書き込まれたURLを
s/([^=^\"]|^)(http|ftp)(\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1<a href=\"jamp.cgi?site=$2$3\" target=\"_target\">$2$3<\/a>
にしてsite=[$2$3]の部分を取り出して、ジャンプするURLをひょうじしたいんだが、
どうやってやるか・・・・・・・・

ワケワカラン。

http://example.com/jamp.cgi?site=http://example.jp/hogehoge

ってURLにアクセスしたときにhttp://example.jp/hogehogeを表示したいって事か？

>>20そう
わけ分からなくてｽﾏｿ

広告でも貼りまくろうってのか？

俺、つい三日くらい前に目からうろこが落ちたよ。
暗闇の中にいたはずが急に薄ぼんやりだけど明るくなって来た。
ハッシュとファイルの開け閉めがわかったとたんのことだった。
ようやく初心者段階にたどり着いたよ。
わかるかなぁ、この感動。

>>16
> 手助けよろしくお願いします。
うん、手助けしてあげる。
そのかわり、できる所まで自分で改造しる！
本を１冊やったんなら、そこそこできると思うし…
同じ作者のスクリプトだから移植性はいいと思うぞ。
(スクリプト見てないけど…)

2ch互換ｽｸﾘﾌﾟﾄでPATHINFO仕様にしているんですが、
例えば１つのﾚｽだけ表示する場合に、
http://pc2.2ch.net/test/read.cgi/php/1063780103/25n
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　~~~
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ↑
　　　　　　　　　　　　　　　　　　　　　　　　　　　 このn
を取るにはどうすればいいですか？

>>24
ありがとうございます。
しかし、この本、ほんとに初心者用で、すごく簡単なタイプのゲストブック程度を作るぐらいのレベルまでしか載っていないんです。
それにスクリプトはCGI Cafeさんがデザイン改造されただけで、もとの作者はBBSの方がTackyさんでアプロダの方はKentさんなんですよ(´･ω･)
私にできるのはせいざいアップに関係のありそうなスカラーをコピペするぐらいでしょうか。。

>>26
おまい前ｽﾚの590か？

#ログ読込
open(IN,"$file") || &error("Can't open $file");
@lines = <IN>;
close(IN);
#$count初期化
$count = 0;

#ログ全部
foreach $line (@lines) {
local($name,$email,$url,$msr) = split(/<>/,$line);
#カウント処理
$count = $count + 1;
&output;
}

IE6とNN7とOperaを使ってます。

掲示板で、書き込みがあるカウント数に達する毎に<br>や</tr>等で
改行させるようにする事は可能でしょうか？

今のところ$countを使うことで書き込み1つ1つにカウント数を割り当てる事は出来ました。
ここから、例えば10カウント毎に</tr>を入れて改行させたいのですが
その方法はおろか可能かどうかもわからなくて不安でして・・・。

２ちゃんねるに書き込むのは１年ぐらい前にＰＣが起動しなくなった時Window板に書き込んだ時以来ですので違いますよ。
というよりDat落ちしてるのでその記事が読めないんですが、もしかして全く同じ注文なんですか？

>>28
#ログ全部
foreach my $count (0 .. $#lines) {
local($name,$email,$url,$msr) = split(/<>/,$lines[$count]);
print ($count%10 == 9) ? '</tr>' : '<br>' ;
}

みたいな？

すみません、レス遅くなりました。

>>30
ありがとうございます。
試してみたんですがエラーになってしまいました。
perl <tr> $count
などでググり、出てきた情報を頼りにあちこちイジってみましたが駄目でした。

ttp://www.kari.to/upload/source/d/1884.txt

こちらにスクリプトを上げておきました。（最初からこうすべきだった・・・。）
よろしくお願いします。

>>30をどう試して、どういうエラーが出たのか書いてくれんと。

>>32
>>30のスクリプトをそのまま
#ログ全部
foreach $line (@lines) {
local($name,$email,$url,$msr) = split(/<>/,$line);
と入れ替えるとサーバエラーになりました。
文法をチェックしてみると
print (...) interpreted as function at tmp.pl line 116.
Useless use of a constant in void context at tmp.pl line 119.
Useless use of a constant in void context at tmp.pl line 119.
Unmatched right bracket at tmp.pl line 126, at end of line
syntax error at tmp.pl line 126, near "}"
tmp.pl had compilation errors.
↓エキサイト翻訳
tmp.pl 116行で機能として解釈された印刷(...)。tmp.pl 119行に無効の情況中の定数の役立たない使用。
tmp.pl 119行に無効の情況中の定数の役立たない使用。
tmp.pl 126行に無比の右ブラケットはライン・シンタックス・エラーの終わりに、
tmp.pl 126行で「}」tmp.plの近くで編集エラーを持っていました。

116行目はprint ($count%10 == 9) ? '</tr>' : '<br>' ;
119行目は$count = $count + 1;
126行目は }
です。

↓もう少し続きます。

foreach my $count (0 .. $#lines) {
local($name,$email,$url,$msr) = split(/<>/,$lines[$count]);
print ($count%10 == 9) ? '</tr>' : '<br>' ;
}
の一番最後の｝を外すとサーバエラーにはなりませんが
「オブジェクトがありません」のエラーに。（これは記述ミスが原因のようです）
チェックすると

tmp.pl 116行で機能として解釈された印刷(...)。
tmp.pl 116行に無効の情況中の定数の役立たない使用。
tmp.pl 116行に無効の情況中の定数の役立たない使用。
一度だけ使用される名前「main::s2」:tmp.pl 77行に可能な誤植。
一度だけ使用される名前「main::s3」:tmp.pl 77行に可能な誤植。
一度だけ使用される名前「main::email」:tmp.pl 115行に可能な誤植。
一度だけ使用される名前「main::count」:tmp.pl 111行に可能な誤植。
一度だけ使用される名前「main::url」:tmp.pl 115行に可能な誤植。
一度だけ使用される名前「main::msr」:tmp.pl 115行に可能な誤植。
tmp.plシンタックスOK

116行目は print ($count%10 == 9) ? '</tr>' : '<br>' ;
77行目はlocal($s1,$s2,$s3,$s4) = split(/<>/,$line);
0115: local($name,$email,$url,$msr) = split(/<>/,$lines[$count]);

以上です。

＞<br>や</tr>等で 改行させるようにする
どっちがいいのさ？brだとするとこんなのでいいんじゃないの？

#$countの初期化
$count = 1;

#ログ全部
foreach $line (@lines) {
local($name,$email,$url,$msr) = split(/<>/,$line);
#カウント処理
$count++;
&output;
if($count%10 == 0){ print '<br>'; }
}

$count = 0; の間違い

×　print ($count%10 == 9) ? '</tr>' : '<br>' ;

○　print $count%10 == 9 ? '</tr>' : '<br>' ;
○　print ($count%10 == 9 ? '</tr>' : '<br>') ;

>>35-37
出来ました！
>>35の<br>を</tr><tr>にした所、ちゃんと改行されました。
勉強になりました。ありがとうございます。

10毎に</tr>入れるんだったら、<tr>も入れなきゃ…

おっと、遅すぎたなぁ〜
逝ってくる…

イ�`

つーか、なるべく正しいHTML吐くようにしようよう。
それやるなら、
</td></tr><tr><td>
だろう？

>>42
違うと思うぞ
すでに</td>でおわってると思うぞ

だな

>>29
ま、どうでもいいや。

兎に角、このｽﾚの>1にもあるように、
> (3) 少しは自分で考えること。

漏れたちはあくまでもお手伝いだからな。
全部やってもらおうと思うのは大間違いだからな。
>>29が改造して、どうしても出来ない部分だけをお手伝いするんだからな。

やれる範囲でいいから自分で改造しる！

KENＴさんとこの WebPatio　v.1.32　の改造で質問させてください。

このＣＧＩで同名のスレッドを立てようとすると
「重複しています。別のスレッド名を指定してください。」
となりエラーが出るのですが、これを回避する改造のやり方を教えてください。
自分で色々やったらおかしくなってしまいました。

なんとなく大幅な改造が必要な予感はしてるのですが
設置後半年経って、このことに気づいて焦ってます。
どなたかご教授願えないでしょうか？

>>46
# KENTのスクリプトみたいなstrictしてないソースなど見る気もしないが。
そのスクリプトはスレッドの判別をスレッド名で行っているようだが、
これをスレッドごとに適当なID（たとえば、スレッドを立てた時のepoch秒）とかを割り振り、
これによってスレッドの判別をするようにすればいい。

1.ログの記録構造を変更し、
2.ログの展開、収縮部分を新しい記録構造に対応させ、
3.スレッド名を扱っている部分を、全てスレッド名とスレッドIDを扱うように変更
で、完成。

ほうら、簡単だろ？
ここまで言えば、自分でできるよな？

前スレでお世話になった者なのですが、
ここのおかげ様で無事にタグ使用可能になりHPで使わせていただいているのですが、
使用方法のところにタグ使用不可能になっていたので直した所文字化けしました・・・。
どうすれば文字化けせずに表示させることが出来るのでしょうか?
839行目を変えました。ttp://up.isp.2ch.net/up/5e4ffb6e0b5a.cgi
よろしくお願い致します。

839行目はコメントだが…

>>48
おおかた、Shift-JISを"で囲って表示してんだろ。
Shift-JISの扱いに関してはこの板でも何度も何度も出てるのに、
何も読んでないんだな。
調べろ。ググれ。

掲示板でのクッキーを保存するやり方

>>51
が、どうかしたんですか？

に興味があるってことかナー
名前は◆2chGAUCATE

やらないか

>>48
前ｽﾚ859の君か！
よく覚えてるよ。
いや、忘れられないといったほうがいいな…

いちばん簡単な方法を教えるよ。

タグ使用可能です　=>　タグ使用可です

これでバッチリだ！(笑

http://.../../gazou/2003/09/21/gazou.jpg

のように、ディレクトリの/2003/09/21/の部分が
今日の日付になっている形式で保存された画像を、
自動的に読み出して、トップページの画像を更新するスクリプトを探しています。
トップページの画像へのリンクを自動的に今日の日付で
書き換えてくれるようなやつです。
↓のスクリプトを書き換えればできるらしいのですが、私には無理です。。
どなたかよろしくおねがいします。

<?
$time = time();
$ltime = localtime( $time , 1) ;
$day = sprintf( "%04d%02d%02d" , $ltime["tm_year"] + 1900 , $ltime["tm_mon"] + 1 , $ltime["tm_mday"] );
echo "img src=\"image/$day.png\"></td>\n";
}
?>

そもそもPHP使えるの？

>>56
プロバイダーはぷららなんですが、ぷららのHPで今調べたところ
「Perl　バージョン5.005です。RubyやPHPは使えません」
と書いてありました。

ちょっと長くなりますけど。。。

#!/usr/bin/perl
$main_cgi = "download.cgi";
$this_cgi = "index.cgi";
#フォームデコード
@pairs = split(/&/,$ENV{'QUERY_STRING'});
foreach $pair (@pairs) {
($name,$value) = split(/=/, $pair);
$value = s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
#HTMLヘッダ出力
print "Content-type: text/html; charset=x-sjis\n\n";
print "<html><head><title>FileCopyMachine</title><!--nobanner--></head><body>\n";
if ($FORM{'url'} ne ''){
$url =$FORM{'url'};
print "<br>$urlのダウンロードを開始します<br>\n";
system("$main_cgi $url > /dev/null &");
}
#入力フォームをブラウザに表示
print "<form action=\"$this_cgi\" method=GET>";
print "コピー元ファイル名：<br>\n";
print "http://<input type=text name=\"url\" size=100 value=\"\">\n";
print "<input type=submit value=\"転送開始\">";
print "<br><br><br><a href=\"./$this_cgi\">Reload</a>\n";
print "</form>\n";
print "</body></html>\n";
exit;

#!/usr/bin/perl
use Socket;
#ダウソ先ディレクトリ
$downdir="./";
#httpポート番号
$target_port = 80;
#コマンドラインより文字列取得
$target = $ARGV[0];
@temp; = split( /\//, $target );
$target_hostname = shift(@temp);
$file_name = pop(@temp);
$target = "http://$target";
#HOST→IP変換
$target_ip_address = inet_aton($target_hostname);
socket (SOCKS_,PF_INET,SOCK_STREAM,getprotobyname('tcp'));
connect (SOCKS_,sockaddr_in($target_port,$target_ip_address));
#バッファを一旦抜く
select(SOCKS_);
$|=1;
select (STDOUT);
#接続先の鯖にファイル送出要求
print SOCKS_ "GET $target HTTP/1.1\r\n";
print SOCKS_ "Referer: $target_hostname\r\n";
print SOCKS_ "Host: $target_hostname\r\n";
print SOCKS_ "Accept: */*\r\n";
print SOCKS_ "User-Agent: Monazilla/1.00 (FileCopyMachine/0.10)\r\n";
print SOCKS_ "\r\n";

#ヘッダ飛ばしフラグ
$flags = 0;
open(FILE_,">$downdir$file_name");
while (<SOCKS_>){
if ($flags == 1){ print FILE_ $_;}
if ($flags == 2){ $flags = 1;}
if ($_ = /Content-type/i) { $flags= 2 ;}
}
close(SOCKS_);
close(FILE_);
exit;

--スクリプトここまで

とある本に載っていた、ファイルのサーバ間転送のスクリプトをそのまんま（ユーザエージェントなどは変更）写しました。
が、いくら「転送開始」ボタンを押しても、一向に転送が始まりません。
ちゃんと転送開始されていれば、ページ上部に「ダウンロードを開始します」と出るのですが、
それが出ないことから、
＞　if ($FORM{'url'} ne ''){
のところがあやしいと思ってるんですが。。。
くだらない質問かも知れませんが、よろしくお願いいたします。

ちなみに、>>58をindex.cgi >>59-60をdownload.cgiというファイル名で設置しています。

>>58
難しそうですね。。。
どこを書き換えたらいいのかわからないです(´Д⊂
アポですみません。

>>58
自分の質問へのレスかと勘違いしました。
>>60は無視してください。。

>>61
いや、それは新規の質問でﾁﾐ宛の答えではなかろうｗ

>>63
｡･ﾟ･（ﾉД｀）･ﾟ･｡

>>55
それはPHPのスクリプトだ。Perlしか鯖に入ってないなら、当然動かない。
もういいから本買って勉強しろ。

ごめんなさいねぇ。。。
まるで返答みたいな書きかたして。

>>58
$value = s/
　　　　　↓
$value =~ s/


print "<br>$urlのダウンロードを開始します<br>\n"; から下のことは知らんけど

>>64
で、さすらい554は↓について何もコメントせんのか？

△▲　WebProg 初心者の質問 Part5　▼▽
http://pc2.2ch.net/test/read.cgi/php/1060263267/607

>>67
チルダを見落としてましたか。ありがとうございます。
。。。が、今度はこんなエラーが出てきました。
syntax error at ./download.cgi line 13, near "; =" Execution of ./download.cgi aborted due to compilation errors.

なお、13行目は　$file_name = pop(@temp);
コメントと空行を削除して考えると　$|=1;
です。
変数名(?)が|(たてぼう)なのもおかしい気がしますが。。。
でも、本を見てもそう書いてあるんですよね。。。

>>58-60
穴だらけのスクリプトな悪寒。
もったいないかもしれないけれどその本は捨てた方がよいかも。。。

>>69
$target = $ARGV[0];
@temp; = split( /\//, $target ); # ここが鰓。「@temp = 」だす。
$target_hostname = shift(@temp);

おっ！未承諾広告タンだ。批判要望板で出会って以来だ。

@temp; = split( /\//, $target );
　　　　　　　　↓
@temp =~ split( /\//, $target );

if ($_ = /Content-type/i) { $flags= 2 ;}
　　　　　　　　↓
if ($_ =~ /Content-type/i) { $flags= 2 ;}

>>69
自分で Syntax Error も取れないような奴が改造なんかしてんじゃねえよ！

>>70
あんた、業者か？

本当にみなさん、すみませんでした。おかげさまでなんとかうまくいったと思います。
ボケボケな質問ばかりで本当にすみませんでした。

穴だらけだなんだと言われてるんで、またどっかで似たようなスクリプト探してみようかと思います。

またどっかで似たようなスクリプト探してみようかと思います。
またどっかで似たようなスクリプト探してみようかと思います。
またどっかで似たようなスクリプト探してみようかと思います。
またどっかで似たようなスクリプト探してみようかと思います。
またどっかで似たようなスクリプト探してみようかと思います。

頼むからもう二度と来るな。

>>75
多分、来ません。

>>76
多分じゃ駄目だ。絶対に、にしとけ。
改造スレなのにスクリプト探しの話題を振ってくるような奴には、
二度とお目にかかりたくない。

別の参考書を探してみようかと思います、だったらまだましだったのにな

KENTWEBのCOMCHATにROMの人数を表示したいです。
http://www.kent-web.com/chat/comchat.html

ソースに加えるものを教えてください。

まず、ROMの定義は何かね？

ROMはチャットを観ている人

>>81
誰かにゆいチャットのソースを見せてもらえ。
あれが一番勉強になる。

わからねぇなら答えるなや
雑魚が

そのチャットを観ているのを知る（判定する）条件を聞いたんだが・・・
まあいいや

アホか？
チャットを見ているのはCGIを開いてる奴だろ

CGIにアクセスして、かつCHATに参加して無いもの（←だろ？）、、
というのは想像つくが、じゃあROMじゃなくなるのはどのタイミング？

定義も決められないのにプログラムかけるわけが無い

>>83
誰に言ってるの？
それに、このスレの趣旨を理解してるの？

ROMじゃなくなるのアクセスを辞めたときだろ
ばかじゃねえの

定義以前にただの頭がおかしいだけだろ
融通が利かない駄目人間か？

定義以前にただの頭がおかしいだけだろ
融通が利かない駄目人間か？

>>88
HTTPプロトコルの特性も知らない馬鹿ハケーン

>>89
>>90
論理で考えられない人間はプログラムなんかできないって。
やめた方がいい。マジで。

プログラムができる以前の問題として、お前みたいな奴は人間関係ができないだろ

>>92
誰に言ってる？　いや、マジで疑問なんだが。
しかも、それを言って何がどうなるか発展性のない内容だな。
さらに言えば、スレの趣旨と合ってない。
何が不満？　不満があるならその内容をきちんと言わなきゃな。
ここにいる連中はお前の友人でも家族でもなんでもないんだから、
何か言いたいことがあるんなら、きちんとわかるように言うべきだろう。

てか、そもそもアンタ誰？　>>79か？

まーよーするに http で喋ってる状態では、チャットシステムのように参加している人数は確認できないってことなんですよ。

そのあたりを理解できていないのが過去に 1000GEX と宣ってた香具師がいたかのぉ（ｗ

程度低すぎ（　´,_ゝ｀）

Javaスクリプトの関数で引数に数値以外の文字列を指定する方法を教えてください

function Jump(n){
parent.main.location.href ="menu/"+n+".htm")

で、10.htmや20.htmにしたらジャンプできるのですが
index.htmやmenu.htmにしたらエラーが出て動きません

>>96
+ JavaScript の質問用スレッド vol.22 +
http://pc2.2ch.net/test/read.cgi/hp/1062943541/

>>96
onclick="Jump(index)"// error
onclick="Jump('index')"// ok

スレッド天国という掲示板なんですが、書き込んでもスレッドが上がらないようにするには
どの項目をいじればいいんでしょうか？それではスレッド式の
意味がないと思われるかもしれませんが、荒らし対策が
できないので日付順にしたいのです。もし分かる方いたらお願いします。m(_ _)m

http://mbc.s33.xrea.com/uploader/upload.html
↑の「スレッド天国」というやつがスクリプトです。

>>99
それアップローダだろ
Perl質問スレにあったやつだよな。

ってうｐしてたのか、すまん
しかしこれ１つでなんでもやるタイプで長すぎて読むの疲れる
実際に動かしてLOG調べたほうがよさげ

レスさんくすです。ログがあったほうが分かりやすいんでしょうか？
今現在自分が使っているスレッド天国のログであれば
アップできますが、どうでしょうか？

箱庭諸島ＰＨＰの改造されたやつないの？
そういうサイトあるの？

>>99
順番が変わらないようにするんだよね？

試してないので責任もてませんが、

sub WRITE_DATA内の
# レス
while (<OLD>) {
　if ($in{sct} == (split(/<>/,$_))[0]) {
　　chomp;
　　print NEW "$_<>$input\n";
　　last;
　} else {
　　push (@new,$_);
　}
}
って所のpush (@new,$_);ってのをprint NEW;にして
直後のforeach (@new) { print NEW; }を削除で出来そう。

ただ、その後のログ削除をどうしよう？
ログの下の方から削除されて逝く様だが．．．

>ログの下の方から削除されて逝く様だが．．．
ごめん違うみたい。訂正。

やっぱりあってる。
なんどもすまん。

おお。できました。
助かりました。特に不具合もないようです。さんくすでした。m(_ _)m

>>103
ここは改造したりする人のスレです。
探し物をするスレではありません。

【CGI】こんなCGI探してますver.10【素材】
http://pc2.2ch.net/test/read.cgi/hp/1059878840/

>>107
ログ数が保存容量を越えると越えた分を削除していく様なのよ。
あまり古いところにレスするような事が無ければ問題ないだろうけど。

読み込み時に並び替えるってのが良いのかもしれないね。

ttp://dream.lib.net/room/
こちらのOne Line BBS についての質問です

これは新しい書き込みが一番下について、古いものほど上に上がっていく仕様なのですが
逆にすることは可能でしょうか？
（新しいものほど上に、古いものを下に・・・）

可能か？と聞かれれば、可能だ、としか答えようが無い

>>110
>>111の言うとおり、やろうと思えばできる。
で、>>110自身は自分でそういう風に改造したいと思っているのか？
そのために努力する覚悟があるのか？　どうなんよ？

いちおー言っておくけど、110のスクリプトは
わざわざ逆に表示するようにしているようなので
1行替えるだけで昇順になる
最初にやるならちょうどいい題材かもね

>>111-113
実は昨日からずっと睨めっこしていますが、一向に分からずじまいでして・・・
検索して調べようと思いましたが、キーワードが悪いのか引っかかってくれません。
ど素人なので、どのサイトを参考にしたらいいのかだけでも教えてもらえないでしょうか？

>>114
Perlのマニュアルで、for文を調べる

すれ違いだったらごめんなさい。

ＣＧＩの文法の質問です。
下の状態で、
要するに、残りは、[11]にXX1を入れろという式なんですが、これを、xx1またはxx2またはxx3をランダムに同確率でとするときは、どうしたらよいでしょうか。
ぶしつけな質問ですいませんが。

else {$PL_VALUES[11]="xx1";}

else {$PL_VALUES[11]= ("xx1", "xx2", "xx3")[rand(3)];}

ありがとうございます。
早速試してみます。

>>110
ｽｸ見てないけど、
ログの配列を丸ごとひっくり返して逆にすればどう？

>>114
腕試しのつもりで漏れもやってみた。
出来た。
240行目だった。

(´-`).｡ｏＯ(みんな頑張ってるよなぁ。。。見習わなければ。)

>>117
なあ、スレ違いの質問にこたえるのはやめようや。な？
スレの趣旨は、神経質なくらいでやっと守られるもんだと思うんだよ。

あんまり神経質になると趣旨が守れてもスレが機能しなくなる悪寒。
ま、そのへんのバランスが難しいわけだが。

http://kusare.30.kg/zzz/r.cgi/computer/1062672923/9
救いを求めてる人がいるんで、気が向いたら見てみてくれ
詳細はリンク先に書いてあります

MyTool.NetさんのT-Dictionary 0 っていう辞書CGIなんですが
ttp://www.mytools.net/cgi/test/dictionary0/html/index.html

(辞書の中に)意味を入力(反映)する項目があるんですが
そこの数値を(1)→(1992年)とかにしたいんです。
それは製作者様に聞いてみたところ難しいとの答えでした。

というのも、このCGIは１，２，３・・・と数えていくので
１９９３っていれても、１が見つからないのでエラーになるそうです

「改造方法としては、1から順番ではなくてある範囲（1900-2100とか)の
mcntを常にチェックするようにする、等の処置が考えられます。」
と聞いたんですが
どこをどうやってイジるのかわかりません。

どなたか時間があればご教授お願いします

↓txtファイル載せておきます。初期のままです

http://homepage2.nifty.com/cieloala/txt/tdpadm_cgi.txt
http://homepage2.nifty.com/cieloala/txt/tdpcom_cgi.txt
http://homepage2.nifty.com/cieloala/txt/tdpsch_cgi.txt
http://homepage2.nifty.com/cieloala/txt/tdpusr_cgi.txt

http://usagi.s31.xrea.com:8080/modules/news/

↑どうかな？
箱庭ＰＨＰ改造してるみたい。

>>125
自分でソースをおっかけて理解しようとしない奴には、誰も助けはしないよ。
その文章からだとはなっから諦めてるようにしか見えないからな。
ご苦労さん。一人でウジウジ悩んでてくれ。

>>127
だったら無視するだけでいいよ。
わざわざ嫌味言うなよ雰囲気悪くなる。
もうお前、このスレ来なくていいから。

>>125
でも>>127の言ってることはもっともなんだぞ。
そのへん考えて、自分で一通り頭使ってから改めて来い。
とりあえず今回は却下ということで。

自分でも使い道あるとか改造内容がおもしろいとかなら
やってくれる人もいるだろうけどさ。
単に改造依頼を受けてくれる人はほとんどいないよね。
後は努力の結果を見せて人情にすがるしか・・・

わかんないなりに苦労の跡を見せて欲しいってことだな。

アドバイスする側も一目見ただけでわかるわけではなく（そういうのもあるが）
それなりに手間がかかるもんだということがわかってくれれば

表示内容をちょっといじる、とかだったら簡単だし、暇ならやってみようかなとも思う。
でも「こういう機能を追加して」っていうのは勘弁な。

>>128
「雰囲気悪くなる」だって。
ああいう質問をすることの方が雰囲気悪くなるんだがなあ。
他力本願の厨を呼び寄せる餌になっちまうからな。

>>133
> 「こういう機能を追加して」っていうのは勘弁な。
漏れでもできる程度のものなら漏れの勉強もかねてやらせてもらいますがな。
ちなみに、>>16の依頼は出来たんだが、肝心の>>16が逃げやがった。

http://sugachan.dip.jp/download/uploader.php
このアップローダーにDL数のカウンタを付けたいのですが、さっぱり分かりません。
どなたか時間があればでいいんで改造して頂けないでしょうか？
よろしくお願いします。

>>136
ご予算はいかほどで？

と書いておきます（ｗ

>>137
金取られんのか＿|￣|○

予算は５００ﾍﾟｿくらいでおながいします

>>138
だって、>>1 を読んでいそうにもありませんでしたからねぇ ♥

ｽﾏｿ

完成例のｲﾒｰｼﾞ
http://data.s8.xrea.com/tmp/upload.html

ソース
http://data.s8.xrea.com/tmp/upload.txt

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

>>140
いや、そういうことが言いたいんじゃなくてさ。
ここは自分で改造する人のスレなの。
あんたは、どういう風にしたいと言うイメージは持ってるけど、
そのためにどれだけ努力したのか（で、どこでつまづいたか）をみんなは知りたいの。

ただ単に他人に丸投げしたいだけだったら、
こんなとこで恥さらしてないで、Webプログラマさがして金を渡してやってもらった方がいいの。

結局、煽るだけで、できないんですよ正直言うとね
できないのを誤魔化すために煽ってる
コレ２ｃｈの常識

（　´∀｀）/＜ 先生！！こんなのを見つけました。
http://mona.h.fc2.com/hankaku08.html
http://mona.h.fc2.com/hankaku06.html
http://mona.h.fc2.com/hankaku09.html
http://mona.h.fc2.com/hankaku10.html
http://mona.h.fc2.com/hankaku02.html
http://mona.h.fc2.com/hankaku03.html
http://mona.h.fc2.com/hankaku07.html
http://mona.h.fc2.com/hankaku01.html
http://mona.h.fc2.com/hankaku05.html
http://mona.h.fc2.com/hankaku11.html
http://mona.h.fc2.com/hankaku04.html

　 ∧＿∧ 　　 　http://mona.h.fc2.com/hankaku01.html
　（　・∀・）/＜　こんなの有ったっち♪　
http://mona.h.fc2.com/hankaku05.html
http://mona.h.fc2.com/hankaku08.html
http://mona.h.fc2.com/hankaku10.html
http://mona.h.fc2.com/hankaku02.html
http://mona.h.fc2.com/hankaku03.html
http://mona.h.fc2.com/hankaku07.html
http://mona.h.fc2.com/hankaku11.html
http://mona.h.fc2.com/hankaku06.html
http://mona.h.fc2.com/hankaku04.html
http://mona.h.fc2.com/hankaku09.html

（　´Д｀）/＜ 先生！！こんなのが有りますた。
http://mona.h.fc2.com/jaz03.html
http://mona.h.fc2.com/jaz11.html
http://mona.h.fc2.com/jaz02.html
http://mona.h.fc2.com/jaz08.html
http://mona.h.fc2.com/jaz09.html
http://mona.h.fc2.com/jaz05.html
http://mona.h.fc2.com/jaz06.html
http://mona.h.fc2.com/jaz01.html
http://mona.h.fc2.com/jaz10.html
http://mona.h.fc2.com/jaz07.html
http://mona.h.fc2.com/jaz04.html

　 ∋8ノノハ.∩ 　　http://mona.h.fc2.com/jaz11.html
　　 川o・-・）ノ　＜先生！こんなのがありました！
http://mona.h.fc2.com/jaz07.html
http://mona.h.fc2.com/jaz08.html
http://mona.h.fc2.com/jaz10.html
http://mona.h.fc2.com/jaz07.html
http://mona.h.fc2.com/jaz03.html
http://mona.h.fc2.com/jaz05.html
http://mona.h.fc2.com/jaz01.html
http://mona.h.fc2.com/jaz06.html
http://mona.h.fc2.com/jaz04.html
http://mona.h.fc2.com/jaz09.html

　／:＼.＿＿＿_＼　
　|:￣＼(∩´∀｀)　＼　　＜先生！こんなのがありました！
　|:在　 |:￣￣ U￣:|　　http://mona.h.fc2.com/hankaku10.html
http://mona.h.fc2.com/hankaku02.html
http://mona.h.fc2.com/hankaku08.html
http://mona.h.fc2.com/hankaku11.html
http://mona.h.fc2.com/hankaku07.html
http://mona.h.fc2.com/hankaku03.html
http://mona.h.fc2.com/hankaku05.html
http://mona.h.fc2.com/hankaku01.html
http://mona.h.fc2.com/hankaku06.html
http://mona.h.fc2.com/hankaku04.html
http://mona.h.fc2.com/hankaku09.html

　　 ,.´ / Vヽヽ
　　　 ! i iﾉﾉﾘ）) 〉
　　　 i l l.´ヮ｀ﾉﾘ　＜先生！こんなのがありました！
　　　 l く/_只ヽ 　　　http://mona.h.fc2.com/hankaku07.html
http://mona.h.fc2.com/hankaku05.html
http://mona.h.fc2.com/hankaku08.html
http://mona.h.fc2.com/hankaku10.html
http://mona.h.fc2.com/hankaku02.html
http://mona.h.fc2.com/hankaku03.html
http://mona.h.fc2.com/hankaku11.html
http://mona.h.fc2.com/hankaku01.html
http://mona.h.fc2.com/hankaku06.html
http://mona.h.fc2.com/hankaku04.html
http://mona.h.fc2.com/hankaku09.html

　 ∧＿∧ 　　 　http://mona.h.fc2.com/jaz11.html
　（　・∀・）/＜　こんなのみつけたっち♪　
http://mona.h.fc2.com/jaz05.html
http://mona.h.fc2.com/jaz08.html
http://mona.h.fc2.com/jaz10.html
http://mona.h.fc2.com/jaz02.html
http://mona.h.fc2.com/jaz03.html
http://mona.h.fc2.com/jaz07.html
http://mona.h.fc2.com/jaz01.html
http://mona.h.fc2.com/jaz06.html
http://mona.h.fc2.com/jaz04.html
http://mona.h.fc2.com/jaz09.html

　　 ,.´ / Vヽヽ
　　　 ! i iﾉﾉﾘ）) 〉
　　　 i l l.´ヮ｀ﾉﾘ　＜先生！こんなのがありました！
　　　 l く/_只ヽ 　　　http://mona.h.fc2.com/jaz07.html
http://mona.h.fc2.com/jaz05.html
http://mona.h.fc2.com/jaz08.html
http://mona.h.fc2.com/jaz10.html
http://mona.h.fc2.com/jaz02.html
http://mona.h.fc2.com/jaz03.html
http://mona.h.fc2.com/jaz11.html
http://mona.h.fc2.com/jaz01.html
http://mona.h.fc2.com/jaz06.html
http://mona.h.fc2.com/jaz04.html
http://mona.h.fc2.com/jaz09.html

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

ここに質問もってくる奴って、なんでこんなに>>1を読まないのかね。
書き込む前に>>1を確認するってのは、>>142の「2chの常識」とやらには入ってないのかなあ。
他人がどう思ってるかを無視して、俺様脳内設定で生きてる奴は楽だろうな。
そいつ自身は楽だろうけど、周囲に害毒を撒き散らすから、近寄って欲しくはないけどな。

# 厨房は嫌いだ。理屈が通じないから。ゴネれば要求がとおると思ってるなら、
# 893か北の将軍様と同類だよ。
# それに理屈が通じないってことは、およそプログラマーには向かないってことだしな。

>>1のテンプレが悪いんだろう。
依頼の前提条件として自分でちったぁ考える事なんて
一言も書いてない。

ｽﾏｿ。書いてあった。

>>153
warata

>>122
ん、スレ違いか？

>>151

>>1より
「スクリプトを改造したいけどやりかたわかんないよー」という人がいましたら
ここで聞いてください。

つまり、スクリプトの改造を「したけど」やり方がわからない人ではなく、

スクリプトの改造を「したいけど」やり方がわからない人。

日本語理解できる？

あんたらは過去のスレの常識を持ち込もうとしてるだけ

日本語どうこうなんてレベル低いこと言ってんなや
どうでもいいよ、そんなの

「したいけど」やり方がわからないで書くなら書けばいい
どのように相手にするかはこっちの勝手

「したけど」やり方がわからないっていうなら
努力の跡によっては手伝おうかという気にもなる

改造したいやつは好きなほう選べや

単に答えを示すと、もう少し変更したいって時も同じ質問がくる
その繰り返しにうんざりなのかも

それはあるだろうなぁ
改造に関する質問に応じないCGI作者はある意味賢いのかも

結局、改造ができる技量を持った人がこのスレを読んで、どう感じるかってことだ。

>>157
ご苦労さん
もうこのスレには来なくていいよ

正直なところ最低限の知識は欲しい。
よく感じるのはファイルの開け閉めをまったく理解してない香具師が多いってこと。
初心者に教えるのはいいんだが、
最低限のラインってのもあるだろ？
ま、俺もようやく初心者から中級者に入りかけたかな？程度なわけだが・・・。

丸投げしてくる奴を見ると、そのムシの良さに吐き気がするほど腹が立つ。

PerlもPHPもRubyもそりゃあ無料だ。開発者の厚意により、だが。
フリーのスクリプトだって、そりゃあ無料だ。これも、作成者の厚意だ。
だけど、本来それらは、正当な対価を要求してもおかしくないはずのものだ。
このことを理解してない奴が多いんじゃないだろうか。
で、そういう奴ほど簡単に他人に改造を丸投げするような気がする。
「タダのものなんだから、改造だってタダだろう？」
こんな論理で。なんでタダなのか理由を考えようともしない。
そういう論理で動く奴は、改造できる技量を持った人間からは、
ただの寄生虫にしか見えないだろうよ。

>>161
お前が去った方がきっと平和になるさ。

最低限の知識を持たない人間は、
Webプログラマ斡旋スレでも立てて、そっちに回したいね。
知恵がないなら金を出せってね。

次スレ立てるときは、>>1のテンプレにはなんか修正が必要なんじゃないか？

良質な次期テンプレ案ｷﾎﾞﾝﾇ

正直言って
スクリプトいや、JavaスクリプトとCGI(Perl)に絞ってでもイイんだが
改造できそうなﾔｼはコテ半にトリップつけてみん
陰でｺｿｺｿ煽るﾔｼはスルーできるように

>>166
JavaScriptはさすがにどうかと思うぞ。
クライアントサイドとサーバーサイドの区別がつかないと、
最低限のラインをクリアーしてるとは言いがたいだろうよ。

CGI=Perlだと思ってるやつも、論外な

大漁!!大漁!!(；｀∀´)ｏ/￣￣~(゜∀゜；)))))

javaってこちらでお聞きしてもいいんですかね？
ttp://www.fromdfj.net/javascript/typewriter.html
ここのタイプライター表示に
ttp://gang.jp/~supoka/1/type.html
こっちのBackSpace的な表現を付け加えたいのですがよろしくお願いします

>>170
JAVAとJavaScriptは全く別物。

JavaScriptの質問はWwb製作板の管轄。
+ JavaScript の質問用スレッド vol.22 +
http://pc2.2ch.net/test/read.cgi/hp/1062943541/

>>171
ありがとうございます。そちらの方で聞いてみます

JAVA=JavaScriptだと思ってるやつも、論外な

お邪魔します。
今現在、こちらのサイトの（ttp://www.senobeya.com/ff/index.html）
これを（ttp://www.senobeya.com/ff/gmember05.lzh）
このスペースで（http://fh.aaacafe.ne.jp/）使用しております。

このＣＧＩでは日記が使えるようになっていて、その日記書き込み時に
HTMLタグが使えるようにしたいのですがPerl知識がないものですから
皆様の知識を借りたいと思い、こちらに伺いました。

※配布サイト様の方では改造を許可されています。

申し訳ないですが皆様の知恵をお貸しください、お願いします。

追加（冷汗

すいません、サイトのスペースレンタルのURLを直リンクにしたままでした（禿汗
こちらでお願いします（ttp://fh.aaacafe.ne.jp/）

>>174
で、いくら出すの？

>>176
まぁまぁ

>>174
基本的にタグを有効にする、というのは
わざとTAGを無効にしているものを外す
ということになるんで、該当行を探して
つぶすだけでいい
第3者まで自由にするとむちゃくちゃになるので
普通は一部のタグ以外はつぶす、という操作になるんだけど
自分しか書き込まない等、書く人の身元がはっきりしてるなら
そのまま通すという手もある

で、今回のソース
=~ s/</</g;
=~ s/>/>/g;
こういう行が何ヶ所かあるので、コメントにして実行したりして試してみて

げ、&は認識するんか
↓に訂正
=~ s/</&lt;/g;
=~ s/>/&gt;/g;

>>174さん
レス感謝です！

=~ s/</</g;
=~ s/>/>/g;
上記を検索して.cgiのメモから全て消してみます（メモ付きで）
いくつか見つかったので恐々とやってみます。

この日記はその登録されたメンバが各個人で持てるので第三者は
書き込みしない予定です。

あれ、消さない方がいいかもですね（戻せなくなったら怖ひ）
・・・ちょっと頭に###して無効にしてみます！（って、頭に#とか付けると無効に
なるんですよね？？###=~ s/</</g; こんな風で）

じゃなくてこっちでしたね（涙
=~ s/</</g;
=~ s/>/>/g;

やってみます！

連続すいません（大涙
&認識するってこういう意味だったんですね（滝汗
ってことで>178のでやってみます

教わった部分の意味くらいは調べてみろ。
そういう積み重ねが大事なんだぞ。

出来ました！
本当にありがとうございました。

現在、PHP4.3.1+mySQL3.23.56でデータベースを作っています。
データベースの登録情報として、｢香川支社｣、｢高知支社｣という情報が
あるのですが、両者を登録しようとすると、重複エラーが出てしまいます。
日本MySQLユーザ会のMLの過去ログを見たところ、｢香川県｣と｢高知県｣で
同じように悩んでいた方がいまして、｢香｣、｢高｣の文字コードが近いことが
原因であることがわかりました。
解決策として、/etc/my.cnfに、

[mysqld]
default-character-set=ujis

と記述するとあったのですが、この記述を追加するとMysqlサーバが起動しなく
なってしまいます。現在、my.cnfには、

datadir=/db_data/mysql

の記述しか書いていないのですが、どこか不都合があるのでしょうか？
どなたかご教授お願いします。

>>184
スレ違いだろ

>>184
スレ違い
--with-charset=ujis つけてリコンパイル

すんません。

T-Noteっていうシンプルな掲示板が気に入っておりまして、これを使おうと思っています。
ただ、この掲示板はレスがついてもそのままなので、レスがついたら先頭へ表示されるように改造したいのですが、よくわからなくて困っています。

unshiftを使えばイイのはわかってますが、どこに入れたらよいのか・・・。
すみませんが、どなたかご教授願います。

T-note掲示板　http://www.mytools.net/cgitools/note4.html
掲示板のスクリプト　http://www.mytools.net/cgi/filesafe/tfsafe.cgi/source/note400/tnote-cgi.txt

>>187
ココで聞いても無駄だから
諦めた方がイイよ

>>187
ざっとみたけど、、
レスがつくと動作する関数 add_newreply
データ格納変数 $datas

で、add_newreply の中に下の行がある
if($datas[$_] =~ /^$repid\t(.+)\t/){
ここでレスを追加しているので、このスレ番号、$_ を記憶させていおいて
ループを抜けたら、$datas[スレ番号] を$datasにpushして$datas[スレ番号]をdelete
してみたらどうだろう。

訂正、pushするのは @datas ね。まあわかるとは思うが

しかし datas って凄い変数名だな。data自体複数形なのに。

>189さん、御丁寧なレスありがとうございます。

実は私、ここに書き込みを躊躇するほどの初心者レベルの者でして、
悲しいかな189さんのレス内容をすぐに解釈できませんでした。

これから本を片手に189さんのレス内容を試してみます。
ほんとにありがとうございます。（笑）

http://www.hero.ne.jp/~db/herodb.shtml
ここで配布されている簡易データベースのスクリプトに関する質問です。
このままですと、検索語の大文字と小文字が区別されてしまうのですが
区別なく検索できるようにしたいです。

検索部分だけUPしてみました
http://up.isp.2ch.net/up/4c8b0822fd82.txt

自分なりに調べてみて、$swords の後に /iをつければいいのかな、と思ったんですが
どこにつけていいのかわかりません
わかる方がいらっしゃいましたら、よろしくお願いします

>>193
検索部分というのをちょっと見ただけだが、、、iをつけるのは
/$switem/i
こっちでない？

ぱっと見なので違ったらスマソ

>>194
さっそくのレスありがとうございました！
そしておっしゃる通り指定してみたところちゃんとできました！
うれしい！！！！個人的に神認定です！！
ほんとにほんとにありがとうございました！！！！！！！

分かる範囲で調べたのはエラい。

まだダメだったか・・・＿|￣|○

>>197
あなたこのスレの>>25？
ちょっと見にいったけどスレ違いに見える・・・

>>192 はどうなったんだ？別にわからなければ聞いてもかまわんのに

>>16 はどうなったんだ？別にわからなければ聞いてもかまわんのに

>>16のは、、、
せめて出来上がり予定のHTMLが吐けるくらいまでは
やってくれないと（form部分とかdummyでの画像表示）

これとこれくっつけてね！だけじゃいくらなんでも・・・

ShortMessage perl版 (ttp://psyco226.jp/shortmessage/)を使っています。
ですが、最近荒らしに遭い、ホスト名も分かっているので書き込み制限および
連続投稿をできなくするようにしたいと考えています。

書き込み制限のできるいろいろなCGIを見て、自分で改造してみようとして
みたのですが、力尽きました・・・。
分かる方がいらっしゃいましたら、ご教授のほど、何卒よろしくお願いします。

>>202
まずは放置。

>>202
なじぇ放置されるのかとゆーと、>1を読んでないからだと思うな。
個人的には、
> 自分で改造してみようとしてみたのですが、力尽きました・・・。
どんな道を歩んできたのか知りたいな。

「改造」とはちょっと違うかな、と思ったんですが・・・

http://www.interq.or.jp/mouse/hexa/sendmail.txt
こちらのメールフォームを使っています。
掲示板でも既出の話題なのですが、送ったメールの本文、メールアドレス、URLが文字化けします。
(掲示板に解決策は不出)
件名と名前は正常に表示されるというのが不思議です。

sendmailの文字化けに関するページは一通り読みましたが、
見てみるとどれもちゃんと対策されているようで、お手上げ状態です。
もし原因がおわかりの方がいらっしゃいましたらどうぞよろしくお願いします。

>>205
メールフォームスクリプトは他にもあるでしょ。

>>206
携帯3キャリアとPCに対応しているものが欲しいので、
なかなかこれ以外見つからないのですよ…

荒らしにはまずは放置って言ってるんじゃ？

>>205
件名と名前はＭＩＭＥエンコードしてるからでしょ
どう化けるのかわかればすぐ対策できると思うけどな

あ、Perlのバージョンによって挙動がかわる？

>>209
えーと、
てすと→%82%c4%82%b7%82%c6
@→%40
という風に文字化けしています。
他の項目もjcode.plでエンコードしてるのだと思ってましたが、違うのでしょうか…？
Perlのバージョンは5ですが、レンタル鯖なので他のバージョンを試すことは出来そうにもないです。

勉強不足過ぎなので何か見当違いのこと言ってたら申し訳ないです

>>210
をいをい。
「URLエンコード」で具具ってみれ。

失礼しました。
いろんな意味で放置が良しとされる前に、txt置いておきます。

>>204
自分が探した書き込み制限のできるいろいろなCGIは、新たに外部のCGIを
読みに行くものが多く、分かりにくくなるので、ひとつのCGIにまとめた
ものが欲しかったのです。
探していくうちに　http://www.geocities.co.jp/Hollywood-Cinema/6860/yk-yybbs.txt
を見つけまして、
「投稿内容に関わらず連続投稿を指定秒数内は拒否する設定」と
「指定ホストキック」を上手く組み込めないものかと思った次第であります。

今日一日頑張ってみましたが、エラーばかりが出て、お手上げです。
どうかご教授のほど、よろしくお願いします。長文ｽﾏｿ。

ShortMessage　http://www.geocities.co.jp/Hollywood-Cinema/6860/index.txt

>>211
教えて頂いた通り「URLエンコード」でぐぐって、
$maildat =~ tr/+/ /;
$maildat =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
の2文を加えてみたところ、ちゃんと日本語にデコードされるようになりました。
困っていたので、本当に助かりました。
どうもありがとうございました。

>>212
204が知りたかったのは、
>>212が弄って鰓ーばかり出したスクリプトが見たいといったつもりだったんだが。。。
あの文章じゃ伝わらなかったか。。。(反省

改造出来たよ。
でも、>1 の(3)にもあるように、「少しも自分で考えない人には教えてはいけない」という暗黙の掟がこのスレにはあるようなので、
「少しは自分で考えたんだ」という証明をして欲しい。
具体的にいうと、鰓ーを出しまくった君のスクリプトが見たい！

それと重要な事だが、
yk-bbsには、「指定ホストキック」があるように見えるが、実装はしていない。

s/yk-bbs/yk-yybbs/;

>>214
文章的には伝わっていましたが、改造初心者で簡単な切り張り程度しか出来ない
もので、スクリプトを出すのが恥ずかしかったのです。申し訳ありません・・・。

自分なりに、この辺にコレがいるのかな、ということを考えて改造したものを置いていきます。
このままではエラーが出ますが、コレが限界でした。
あとはどうしていいものか分かりません。

ホストキックがないことは、投稿した後気づきました（汗。
なぜないものをつけているんだろう･･･。

よろしくお願いします。
http://www.geocities.co.jp/Hollywood-Cinema/6860/index2.txt

>>216
なんだ？ダブルポストも対策して欲しかったの？
言ってくれなきゃ。。。

その１
###################################
# --- 投稿内容に関わらず連続投稿を指定秒数内は拒否する設定

# 制限する秒数（単位：秒）
$rtimer = 20;
# 上記調整用（上記$rtimerが60秒の場合は下記のまま、120秒以上は+80、という感じで60秒ごとに+40加算）
$timer = $rtimer + 40;

###################################
# --- 指定ホストキック。　以下のホストからアクセスしても掲示板は表示されません。
# 設定する場合は、以下を $kick_f = 1; とした上で、下のホスト名に記入してください。
$kick_f = 1;
# ホスト名を'で囲み、,で区切って複数指定可能。IPアドレスの場合は先頭の２つが適当？
# "*"は任意文字列。
# 設定例：@kick =('biglobe.be.jp','*web.ne.jp','202.124.','abc.*');
@kick = ('cache*.*.interlog.com','anonymizer','196.168.*.*');

その２
sub dec_check{
# 追加ここから
if ($kick_f == 1) {
$host = $ENV{'REMOTE_HOST'};
$addr = $ENV{'REMOTE_ADDR'};

if ($host eq "" || $host eq "$addr"){$host = gethostbyaddr(pack("C4",split(/\./,$addr)),2);}
if ($host eq ""){$host = $addr;}
foreach (@kick) {
if (!$_){next;}
$_ =~ s/\*/\.\*/g;
if ($host =~ /$_/) {&error("アクセス禁止<br>ホスト名$hostは管理人によってアクセスを制限されています。");}
}
}
# 追加ここまで
if ($name eq "" or $comment eq "") { &shortmessage; }

おっと　インデントしるの忘れた(汗

その３
sub write_log {
    &lock;

    open(IN,"$logfile") || &error("$logfile が読み込めません。");
    @readed = <IN>;
    close(IN);

    ($tmp,$chk1,$chk2)=split(/\t/,$readed[0]);
    if($name eq $chk1 and $comment eq $chk2) {
        if(-e $lockfile){ unlink($lockfile); }
        &shortmessage;
    }
# 追加ここから
    if (($dateid > $tmp) && ($dateid - $tmp < $timer) ) {
        if(-e $lockfile){ unlink($lockfile); }
        &error("少しお待ち下さい。悪戯対策のため$rtimer秒以内の連続投稿はできなくなっています。");
    }
# 追加ここまで

>>216
今から出かけるので、ダブルポストの対策は帰ってからにしるよ。
それとも自分でしるかい？

>>217
ありがとうございます！
スクリプトを見比べて、とても勉強になりました。
自分が持っているものに「sub write_log」がないぞ？と思っていたら
ShortMessageのバージョンがアップされていたのですね･･･。（遠い目

txtで上げた旧版をレイアウトを変えて使っているので、217様のスクリプトを
見ながら改造していきたいと思います。
（sub kakikomi 以下に追加していけばいいのですよね？）
ダブルポストはあれば嬉しいですが、ここまで考えていただけただけで十分です。

本当にありがとうございます。感謝多謝。

>>221
旧版か。。。
漏れはまだまだ初心者だから、スクリプトを見ただけでは改造できないんで、ＤＬして動かしながら改造してたんでな。

旧版スク見たんだが、217-219じゃ動かねーからな。
特に連投拒否が。
旧版のログフォーマットにカキコの時間の項目がないんでな。

そのへんちょっと改めてみた。

###################################
# --- ダブルポスト（同一内容連続投稿＆リロード）対策。何件前までチェックするか
$check = 5;

# 投稿内容の一部分を変えての連続投稿対策（例：...第１回目、...第２回目..）
# 投稿内容の先頭から指定した文字数の範囲内で同一内容か判断する（単位＝バイト）
$checklength = 50;

###################################
# --- 投稿内容に関わらず連続投稿を指定秒数内は拒否する設定

# 制限する秒数（単位：秒）
$rtimer = 20;
# 上記調整用（上記$rtimerが60秒の場合は下記のまま、120秒以上は+80、という感じで60秒ごとに+40加算）
$timer = $rtimer + 40;

###################################
# --- 指定ホストキック。　以下のホストからアクセスしても掲示板は表示されません。
# 設定する場合は、以下を $kick_f = 1; とした上で、下のホスト名に記入してください。
$kick_f = 1;
# ホスト名を'で囲み、,で区切って複数指定可能。IPアドレスの場合は先頭の２つが適当？
# "*"は任意文字列。
# 設定例：@kick =('biglobe.be.jp','*web.ne.jp','202.124.','abc.*');
@kick = ('cache*.*.interlog.com','anonymizer','192.168.*.*');

その２
sub dec_check{
# 追加ここから
    if ($kick_f == 1) {
        $host = $ENV{'REMOTE_HOST'};
        $addr = $ENV{'REMOTE_ADDR'};

        if ($host eq "" || $host eq "$addr"){$host = gethostbyaddr(pack("C4",split(/\./,$addr)),2);}
        if ($host eq ""){$host = $addr;}
        foreach (@kick) {
            if (!$_){next;}
            $_ =~ s/\*/\.\*/g;
            if ($host =~ /$_/) {&error("アクセス禁止<br>ホスト名$hostは管理人によってアクセスを制限されています。");}
        }
    }
# 追加ここまで
    local($chk1,$chk2);

その３
sub kakikomi {
    &lock;

    open(IN,"$logfile");
    @readed = <IN>;
    close(IN);
    
# 追加ここから
    $dateid = time;
    @Stat = stat("$logfile");

    $i = 0;
    while ($i < $check) {
        ($chk1,$chk2)=split(/\t/,$readed[$i]);
        if (($dateid > $Stat[9]) && ($dateid - $Stat[9] < $timer) and $i == 0) {
            if(-e $lockfile){ unlink($lockfile); }
            &error("少しお待ち下さい。悪戯対策のため$rtimer秒以内の連続投稿はできなくなっています。");
        }
        if ($name eq $chk1 and substr($comment,0,$checklength) eq substr($chk2,0,$checklength) ) {
            if(-e $lockfile){ unlink($lockfile); }
            &error("二重投稿です。その内容はすでに投稿済みです。");
        }
        $i++;
    }
# 追加ここまで

    while ($logmax <= @readed) { pop(@readed); }

あとエラー表示をさせるなら、

その４
sub error{
    print "Content-type: text/html\n\n";
    print "<center>";
    print $_[0];
    print "<hr>";
    print "<a href=javascript:history.go(-1)>戻る</a>";
    print "</center>";
    exit;
}

これをスクリプトの一番下に追加しる。


エラー表示をさせずにスルーするなら、
その２、その３の
&error("エラーメッセージ");
を
&shortmessage;
に置き換えてな。

スコア登録のcgiを使っているんですが、
いくつかのスコアを足すやり方がわからなくて困ってる者です。
一応自分でも試行錯誤してみましたが流用させてもらってるだけなので知識が殆どなくてなかなか難しいです・・・
スコアはhttp://mrnonq.hp.infoseek.co.jp/regist.txtで登録してもらって
閲覧場所はhttp://mrnonq.hp.infoseek.co.jp/view.txtで処理されてると思います。
スコアデータはhttp://mrnonq.hp.infoseek.co.jp/list8th.txt内にあります。

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

>>222
旧版の方までありがとうございます！！
早速今晩、組み込んでやってみたいと思います。
お忙しいところ、本当にありがとうございました！

HTML 出力する際に、最低でも W3C Validator 、調子に乗って HTML-lint gateway を必ず通す漏れって、
逝ってよしなのだろうか？
HTML はページレイアウトするためのものぢゃないはずなのに。。。＿|￣|○

>>227
スコアを足す、とは？

>>227
reg.cgiはどこに？

>>230
5曲分のスコアの合計を表示したいんです。
http://nonq.s3.xrea.com/9thhol/hol/view.cgi?from=0&6325
↑のようなのが１曲分で、それと同じように５曲分の
Notes,Score,Great,Good,Bad,Poor全部が勝手に足されるようにしたいんです。
reg.cgiはhttp://mrnonq.hp.infoseek.co.jp/reg.txtです。

すっごいソースですね。
　&drawresult;
のところを、
foreach (reverse(@new)){
　いろいろ足し算。
　&drawresult;
}
みたいにしたところで変数名はワケワカメだし、データ構造がへんてこりんだし、 sub drawresult() で、
未知の &header("Registered"); と &footer; はあるし・・・（おそらく ./lib.pl にあるんだろうけど）

胃が痛くなる悪寒がしたのでわたしゃパスm(_ _)m

そうですか・・・ありがとうございます。

http://www.onparade.jp/textb/click.php3?t=c&u=U04021&b=C00202

読んでおっかけるのがめんどくさいときは
じぶんとこで設置して動かしてみることが多いんだけど
>>227のはファイルが足りなくて動かせないから
検証もできないのでやるきがおきないのよ

そういうことでしたか・・・すみません。
http://mrnonq.hp.infoseek.co.jp/HOL.LZH
とりあえず↑がフルセットです。
他にも何かあれば対処していきます。

>>237
> (2) どんな風に改造して欲しいのか？ (完成イメージHTMLを用意すればなお良し)
漏れの理解力が不足しているせいか、完成イメージが見えてこない。
完成イメージHTMLを用意してくれ。

>>227
んで，結局楽譜データはどこにあるんだ？

なぜかhtmlにできなかったのでjpgでもいいですか？
http://mrnonq.hp.infoseek.co.jp/image.JPG
基本的には普通の表示と変わらないんですが、
指定した５曲分のとおりに計算して表示できるようにしたいんです。

>>239
http://mrnonq.hp.infoseek.co.jp/list8th.txtです。

どうでもいいが、楽譜もスコアだな。

望くんか

>>241
ローカルで動かしてみた。
う〜ん、動かし方すら漏れにはわからん。
ｻｲｷﾝﾉﾜｶｲﾓﾝﾊﾊｲｶﾗﾃﾀﾞｶﾗｵｼﾞｻﾝﾊﾂｲﾃｲｹﾏﾍﾝﾜ

すみませんが、漏れもパスという事で。。。

オレも動くまでは行った
5つ合計するということはどこかで5こ選ばなきゃならんのかな？

動かしてみても何をするスクリプトかよくわからん
ソースもろくなもんじゃないし俺もパスだな

>>242
まぁ、ゲームなので。

>>243
( Д)ﾟ ﾟ

>>244,>>246
これはやってる人じゃないと判りづらいですよね・・・

>>245
どこかで選ぶ必要はないです。
俺がどこかで指定できればそれで十分です。

>>247
そういう曖昧な仕様で作ってる限り、安住の地にはたどりつかないしスキルアップもしない。

>>227
これはどういう形式の楽譜なのか？さっぱりわからん。
で，この楽譜に「足す」ってどういうことか？

それともおまいの言ってる「スコア」って，そもそも別の意味なのか？

>>248
曖昧というかそれが一番理想な形なんですが・・・

>>249
スコア＝点数です。つまり５つの点数を足すんです。
楽譜とかまったく関係ありません。説明が下手ですみません・・・

>> 5つ合計するということはどこかで5こ選ばなきゃならんのかな？

>どこかで選ぶ必要はないです。
>俺がどこかで指定できればそれで十分です。

現状で>>250が5曲指定できるのか？
現状はselectで１曲を選ぶのではないのか？

>>250
どうでもいいから、一体何をするスクリプトなのか、
最初のコンセプトをはっきりさせろ。
お前が何がやりたいのかわからんから、みんな手伝おうにも手伝えないんだろうが。

>>251
指定できません。

例えばですね、
CHARLOTTE,ADVANCE,ECHOES,HONEY,ライオン好き
の5つのトータルを、既に登録されてる点数の合計で表示したいんです。
もちろん個人別です。
それでその5つってのは俺がcgi内とかで指定できれば良いのです。

ver4.19のyomi-searchのスクリプトを使っています。
http://yomi.pekori.to/s/yomi.cgi
検索窓に検索結果を何件表示するかを選べるように改造したいのです。
http://www.surpara.com/
ここのサイトにある表示件数10件,20件のようにです。
サポート掲示板やファンサイトの掲示板を探しても改造の仕方が見つからず、
自分なりに少しやってみたのですが、思い通りの結果が得られません。
下を追加するだけではダメのようなんです、どうぞよろしくお願いします。
<select name="hyouji">
<option value="1" selected>1件表示
<option value="10">10件表示
<option value="25">25件表示
<option value="50">50件表示
<option value="75">75件表示
<option value="100">100件表示
</select>

>>253
だからさ。お前の脳内は誰にもわからないの。
そのスクリプトは、何のためにあるのか、そこから説明しろと言ってるんだ。
個人別だとかお前の脳内用語を何の説明もなしに使うなっての。
だからまともな回答がつかないんだってのに。

XHTMLはタグに大文字を使ってはいけないらしくて困ってます。
HTML文書を読み込んでタグの中身だけ大文字を小文字にするようなスクリプトはどこかにありませんか？
PerlかRubyがいいのですが。

>>256
板違い。この板ではスクリプト探しは扱っていません。
それにそんなことぐらいエディタでも使ってやってください。

>>257
スレ違いどころか板違いですか。そうですか。
エディタでやるとすると結局手作業になってしまいますよね。
タグ限定なので全ての大文字を小文字にすればいいわけじゃないですし。
ファイル数も多いので一括で出来るといいのですが。

>>258
正規表現

>>258
あなたの要望している事は出来ます。
残念ながらこのスレは、スクリプトを探すすれでも、スクリプト作成依頼のスレでもありません。
移動してください。

>>254
ファイル多くて面倒だろう

>>256
つうか、Perlってのはそういう作業をするためにそもそも作られた言語でな？

嘘じゃないけどスレ違いだよなあ。
自分で勉強するって言うなら、みんな邪険にはしなかったろうにな。
最初から他力本願剥き出しだから、嫌われる。

>>254
使ってる言語がPerlだかPHPだか知らないが、言語を覚える気がない奴はくんな。

結局このスレで改造できた香具師ってほんの数人もいないよね

そうだな。手元では成功してるんだが、そのまま教えずに
やり方から説明してるうちにどっかいっちゃう。

つまんない改造は時間の無駄だしな

教える気のある香具師はいないんだから、
このスレの存在意義はゼロ。
もともと隔離スレ的にさっさと片づけてやって
よそに行って貰うという意味もあったんだけどな。
これからは教えて厨がガンガン個別スレを立てまくる。
そしてそれを責めることは不可能。
なぜなら改造スレは「教えない」ことを楽しむ底意地の悪い連中のすくつだから。

>>267
よほどくやしかったんだな
自分の態度が悪かったとなぜ反省しない？

すくつ
すくつ
すくつ
すくつ
すくつ
すくつ
すくつ
すくつ
すくつ

質問させてくだちい。
KENTのweb　patioに引用符機能を付加させる方法を教えてくだちい。
>あいうえお、って書いたら
「>」以下のフォントカラーが改行するまで変わるようにしたいのです。

どうぞ、ご教授くださいませ〜〜〜

そしてまた>>1も読まないやつが↑に登場

>>267
教える気がある香具師はいるが、教える側にだって相手を選ぶ権利はあるよな？
まさかねえ、教える側は無条件に全ての質問に対処しなけりゃならんとか言わないよなあ？

>>270
これからは>>1を読んでよね。
特に(3)をね。

$comが書き込まれる前あたりに
$com =~ s/(&gt;+)(.*?)<br>/<font color=red>$1$2<\/font><br>/g;
って入れればいいんじゃないかな？

レッツPHPの写メールBBSで、画像のサイズ(111×111みたいな)を表示させたいのですがどのように改造すれば良いですか？

添付:gif[111×111]

みたいに

>>274
>>1くらい読もうね。GetImageSize()つかえ。以上

>>276
すいませんでした。

PHP初心者なので、もう少し詳しく書いてもらえれば有り難いです…

教えてくださいKENTWEBのjoyful掲示板で
二重投稿を禁止と
別ページからの投稿を禁止するにはどうすれば良いのでしょうか？
教えてください。
お願いします。

THEROOMのは上記機能が付いてますがKENTは付いてないのです。
お願いします。

>>277
本買え。本買えば済むことを他人に聞くな。

>>278
投稿者をチェックするなら最新の投稿者IPを保存しておいて比較。
内容でなら最新の投稿の項目を比較。

別ページはリファラをチェック。

すみません
別ページからの投稿を禁止するにはどうしたら良いのでしょうか？
下痢トラップを禁止する方法です。

>>282
>>281

>>282
リファラをチェックして、自分のサイト以外からだったらはじく

if (($refcheck) && ($ENV{'HTTP_REFERER'} !~ /$scrurl/)){
&error("外部からの投稿は禁止されています。");
}
こんなのを入れたら良いのですか？

別ページであればエラーメッセージを出す
ようなスクリプトを作ればよし。

sub regist {
# フォーム入力チェック
&form_check;

# 時間を取得
&get_time;

# クッキーを発行
&set_cookie;

# ファイルロック
if ($lockkey) { &lock; }

# ログを開く
open(IN,"$logfile") || &error("Open Error : $logfile");
@lines = <IN>;
close(IN);

# 記事NO処理
$top = shift(@lines);
($no,$ip,$time2) = split(/<>/, $top);
$no++;

# 連続投稿チェック
if ($addr eq $ip && $wait > $times - $time2)
{ &error("連続投稿はもうしばらく時間をおいて下さい"); }

すみません初心者なので教えてください。
上記はKENTのjoyfulBBSのCGIの一部なのですが、どこに'HTTP_REFERER'をどの様に入れたら良いのでしょうか？
荒らされて困ってます。
どうか教えてください

#別ページからの投稿を禁止する場合は 1 を。
$refcheck = 1;

if (($refcheck) && ($ENV{'HTTP_REFERER'} !~ /$scrurl/)){
&error("外部からの投稿は禁止されています。");
}
単純にこれを追加するだけで良いのでしょうか？

if (($refcheck) && ($ENV{'HTTP_REFERER'} !~ /$script/)){
&error("外部からの投稿は禁止されています。");
}

KENTの場合はこうですかね？

エラー･･…涙
誰か教えてください

おい！その機能はあらかじめ組み込まれていて、
フラグ$refcheckを1にするか0にするか指定するだけではないか！

マジで勘弁してくれよ。
基本設定すら理解してない人はCGIを設置しないでくれ。
ほんとマジで……。

$scriptのディレクトリーエラーでした・・・すみません
たぶんこれで良いと思うので様子みます

>>291
KENTには無いから他のCGIのを組みこんでます。
その機能はKENTのjoyfulBBSにはありませんので・・・

>>293
「設定項目」を読め。ちゃんと外部からの投稿を禁止できるようになっている。
その前に>>1を読め。連投するなら名前欄に最初のレス番くらい書いてくれ。

そして、氏ね。

すみませんでした。
良く見たらありました（自爆

しつもんなんですが、Tacky's Roomにある『TackynoteSuper』という日記をカスタマイズしたいのですが、どの辺りをいじればいいのかさっぱりわかりません
ファイルをアップロードすると必ず日記(文字)の上に出てきてしまうのですが、これを某日記のように日記(文字)の下もしくは文字の右側に表示したいんです
ttp://tackysroom.com/sample/smp_tackynotesp.cgi　サンプル
ttp://diary.cgiboy.com/d01/sample/　希望はこんな感じです
どなたかご教授願いますm(_ _)m

>>297
>>1をよく読んだのちにもう一度質問してくれ

>>298
失礼しました
(1) 日記スクリプトの「TackynoteSuper」Tacky's Roomの日記系にあります
ttp://tackysroom.com/page_cgi.htm
(2) CGIBOYの日記のように、アップロードした画像を日記の下部もしくは右側に表示できるようにしたい
(3) ttp://v.isp.2ch.net/up/e6d23f8b4a56.jpg　こんな感じです(わかりにくくてすみません)
>>298
こんな感じでいいでしょうか･･･？

>>299
ttp://tackysroom.com/cgi_tackynotesuper.htm
> ・画像の表示位置（左・中央・右）や、画像ファイルサイズの表示も出来ます。
って書いてあるが？

初期設定の変更を改造というのだろうか…

>>300
すみません、説明不足でした
初期設定に確かにその項目はありますが、全て日記の内容の上部に出てきてしまうんです
この項目で｢右側表示｣にしたとき、｢画像に対して文章の回り込みする｣設定にしていれば画像の左側に日記の内容が現れるのですが
画像が小さすぎる、もしくは文章が長すぎる場合　画像の下まで文字が来てしまい、個人的に見にくくなってしまいます
この状態をなくすために日記の内容は左側、画像は右側　という風に分けられればいいなぁと思っています

>>301
そういう表示をHTMLであらわせるかい？

>>302
普通にできるでしょ

どなたか日付の右横にあるIDを表示させる構文を知りませんか？

1145-1239行が該当部分だな。

初期設定の
$point= 3 ;#画像の表示位置（1:Left 2:Center 3:Right)
$maware= 0 ;#画像に対して文章の回り込みをしますか？（ｒｙ
を決め打ちすれば、該当部分のif文が相当削除できるからやろうと思えばすぐに出来るな。
$point= 3 だな。回り込みはしないつもりだな。
コメントと画像の順番を反対にして、間に</td><td>をいれればいいんか。

漏れの脳内では出来たみたいだ。

ところで>>297は少しは自分で考える気があるのかな？

>>304
スレ違い。カエレ！！

>>302
ただのタグ打ちですが
<TABLE border="1">
<TR><TD WIDTH="320" HEIGHT="150">ここに内容が来ます</TD>
<TD>ここに画像が来ます</TD></TR>
<TR><TD COLSPAN="2">ここにレス(コメント)が来ます</TD></TR>
</TABLE>
こんな感じでしょうか･･･
>>305
すみません、CGIいじるのはまだほとんどやっていないもので･･･
>コメントと画像の順番を反対にして、間に</td><td>をいれればいいんか。
はい、そんな感じです　↑のタグのようにしたいので<td colspan>も使うとは思いますが･･･
自分では考えているつもりなんですが、知識がほとんど無いんで･･･すみません

>>303
だったらそうやればいい

>>307
先ず、1215行目は空行だよな。そこに
print "</td><td>\n";
って追加しる。

print "</td><td>\n";　　　…1215行目
print "</td></tr></table>\n";　　　…1216行目
こうなってよな。

1159行目から1209行目を切り取りしる。

さっきの間にペーストしる。

print "</td><td>\n";
ここに1159行目から1209行目を切り取りしたものをペースト
print "</td></tr></table>\n";
こういうことだぞ。

ZERO BOARD
ttp://www.nzeo.com/

これの改造･･･というか、和訳英訳を試みた人はいないでしょうか？

んなもん日本語化しなくても、いいのはたくさんある。

>>310
こんなCGI探してますスレから出張おつかれさま。
今探したら、5分で見つけたよ。日本語版。

ホントに欲しいなら、よくよく調べなよ。

写メールBBSの画像のリンク(.gifや.jpgなど)の所を、GIFやJPGなどの様に表示させたいのですがどのように記述すれば良いですか？

配布元：http://php.s3.to/

↑は携帯から閲覧した時です

if(.gifや.jpgなど){
　s/<a href="(.*?)">(.*?)</a>/<img src="$1">/g;
}

あかん、、、泥酔やからむたくた。
if($url =~ /.gifや.jpgなど/){ $url =~ s!<a href="(.*?)">(.*?)</a>!<img src="$1">!g; }

>>316
返答有難う御座居ます。

>>312
もしよろしければ検索ワードだけでも教えていただけたら幸いです。
Googleで「zboard zero board 配布 php」等を入力して何度も検索しているんですが
一向に見つかる気配がありません･･･。ご迷惑かけます。

>309
そのやり方で出来ました、こんな感じで移動させるといいんですね･･･
どうもありがとうございましたm(_ _)m

ageてしまった･･･＿|￣|○

あ

あ

>>318
スレ違いなので、あっちで。

誘導されてきました。

http://ari-sin3.hp.infoseek.co.jp/arisin5.html
ここのアップローダなんだけど一日にUPできる量を設定したいのですができないのでしょうか？

>>324
一日にUPできる量って、全体で？

UPした量を蓄積する仕組みと、UPできなくする仕組み、
の２つがあればできそうかな？

一日にUPできる量を5Mぐらいまでに制限したいのです。

>>324
出来ますよ。
データサイズがログファイルに保存されてますし、
日付取得して、
その日付に投稿されているデータサイズの合計を調べて、
5M以上だったら、エラーを出して投稿させなければ良い。
で、コメントのみだったら投稿できるようにすればｵｹｲでしょ。

具体的には、sub writeで>328氏の判定をするといいかも。
あと、コメントのみの投稿を許可するのは、
あちこち改造しなければならなくなるので、
手を出さないほうがよろしいかと。

で、とりあえず、改造したスクリプト（動かなくても）をうｐ！

http://www.mac68k.com/php/pafiledb3/pafiledb.php?action=file&id=86
を、インライン表示で、Shockwaveを閲覧できるようにできますでしょうか？

マルチ氏ね

以下のような、ディレクトリファイル一覧を出力する
スクリプトなんですが、apacheのように
ファイル名、時間、ファイルサイズ順に並べ替える機能を
実現させるにはどうすればよいでしょうか？

http://kgu.easter.ne.jp/d.txt

sort使えば楽だよ

>>332
http://pc2.2ch.net/test/read.cgi/hp/1059878840/670

>>334
お、こんないいものがあったのですね。
情報有り難う御座います。

http://www.cgi-amigo.com/database.html

このスクリプトを改造して配布してるとこないですか？
例えば、不動産データベースや、車検索データベースなど
より、業種にあったカスタム仕様に改造してアップしている有志の
方々はいないでしょうか？

>>336
利用規定ぐらい読め

何かないでしょうか？

>>336
俺はその改良で一週間を潰したよ。がんがって自分でやんなされ。
著作権表示は消すなよ。

初心者に限って、デザイン変えたとか少し改造した程度で、
元のスクリプトだと気づかねぇだろうと著作表示消すからな。

tp://ugug.virtualave.net/index.cgi
ここのサイトで配布されてるメーラーなのですが送信先を三箇所ぐらい指定できるようにできないでしょうか？

>>341
結論から言えば、出来るけど。
改造したスクリプトを動かなくてもいいのでうｐしてください。
それが規定ですので。

>>341
デフォでCCだけど複数箇所送れるようになってますが？

スク見てみたけど、CCに複数のアド入れてもダメみたいだな。
すまん。
だが３ヵ所指定を教えたら１００ヵ所指定も簡単だろうから、
あえてスルーしたほうが良さそうだな。

自分でメーラ等でメール出してヘッダを調べる
そして、それと同等のヘッダが出力できるように改造する

以上

[ActivePHPBookmarks]
//lbstone.com/apb/?version=1.1.02
ここにあるブックマークのスクリプトなんですが、海外のものなので
日本語が使えなくて困っています。
やたらとphpファイルがあるのでなにがなにやら・・・。
Perlなら少し知っているという程度なので、PHPの日本語化がわかりません。

アドバイスお願いします。

>>346
ソースを見ながら直せよ。それ以外に何がある？

ttp://www.ahref.org/
こちらにある　CSVエディター
ttp://www.ahref.org/cgi/csveditor/

フォームからCSVファイルを指定できるようにしたいんです。
CSVファイルが複数あるので個別に追加、編集、削除がしたいです。
どなたか参考になるページだけでもいいので教えてください。
設置するぐらいの知識しかありません。

わざわざ改造しなくてもファイル指定できるのぐらいあるぞ？

>>348
それか、サポート掲示板に要望出せば、作者がちゃんとしたのを作ってくれるかも。

>349
そのファイル指定ができるCSVエディター教えてください。
探していみたんですが、みつからないんです。

それはスレ違い

【広告】新機能　Rock54【自動排除】
http://qb.2ch.net/test/read.cgi/operate/1066291585/l50

最近見掛けないと思ったらこんなところにいた(w
でもなんか面白そうな企画？

スレッド式のBBSスクリプトに、２ちゃんみたいなage.sage機能をつけるような改造を施したいのですが、このスレで質問させていただくためにまずは自分である程度やってみようと思っても手がかりすら掴めず途方に暮れております・・・
age.sage機能に関して適した検索ワードや関連ｻｲﾄをご存知の方がいらっしゃいましたら教えていただけませんでしょうか。

連続投稿すみません、ちなみに検索はグーグルで
「age.sage.age機能.sage機能.スクリプト.解説.詳細.しくみ.スレッド」
上記の単語をとっかえひっかえして探しましたが見つかりませんでした。

>>355
こちらへどうぞ。
ttp://pc2.2ch.net/test/read.cgi/php/1059703150/

>>356さん
スレ違いすみませんでした、ありがとうございます。
隅々まで読みあさってきます！

隅々まで読みあさるべきスレではないな。

「age」とか「sage」で検索しまくっても保守レスしかヒットしない・・・
もうだめぽ＿l￣l○

age sageよりもまず、表示している順番は何によって決まってるんだよ
そのへんは把握してるの？

はい、煽りスタート。

>>360さん
すみません、ＰＣとは無縁の仕事なので見当違いならスルーしてください。
自分のとこでは、メールフォームは$mailで指定されてて、
$sort_use =1;（1は返信がついたらage、0にするとスレッド位置はそのまま）なので$sort_useという項目を探してすべて
if ($sort_use) {
if ($in{'mail'} eq "sage") { $sort_use = 0; }
if ($in{'mail'} eq "age") { $sort_use = 1; }
}
に置き換えてみました。こんなレベルです。
もっと勉強しないとだめですね・・・

その程度書けるのなら、あとはちょっとの頑張り次第だな
負けるなよ

>>363
ありがとうございます・ﾟ・(つД｀)・ﾟ・感激
悔しいから絶対諦めないで頑張ります！
スレ汚しすみませんでした

敬称が抜けた（´･ω･`）
>>363さん、ありがとうございました

http://www.futomi.com/のダウンロードランキングCGI Ver 2.1
について質問です。（サンプル：ttp://www.futomi.com/cgi-bin/dlrank/dlrank.cgi）

違うDLランクCGIから乗り換えたので、DL総数を現在の総数に足して表示したいです。
全期間のDL総数だけに15000を足したいです。
よろしくお願いします。

スクリプト
ttp://www.geocities.co.jp/SiliconValley-PaloAlto/9693/dlrank.txt

>>366
dlrank.cgi　118行目

print "<tr><td class=ListHeader>ダウンロード総数</td>　略　</font>+15000</td></tr>\n" if($DSP_CNT);

>>367
レスありがとうございます。
試したのですが、DL総数の横に+15000と表示されてしまいます。
すでに足した状態で表示したいです。
あと、今日・昨日・今週・今月のランキングにも+15000と表示されてしまいます。
全期間のDL総数にのみ、+15000を足した状態で表示させたいと思っています。

よろしくお願いします。

>>368
試したのか・・・。試さなくても見りゃ分かるだろ・・・。

dlrank.cgi　42行目

$loglines = 0;　→　$loglines = 15000;

>>370
全期間のDL総数のみ足して表示させたいんです。
$loglines = 0;　→　$loglines = 15000;
にすると、昨日・今日などのDL数も一緒に+15000になってしまうんです。

$loglines = $MODE eq ''? 15000: 0;

>>372
レスありがとうございます。

鯖でも正常に確認できました。
どうもありがとうございました。

>367-368
気分転換に覗いてみたら気分がかなり和んだ。

あめりかｃｇｉで日本語表示しようと
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
を入れたんですが
エンコードが西ヨーロッパ言語（ＩＳＯ）
どうすればいいでせふ

あめりかcgiってなんですか？

米国サイトで配布されていたＣＧＩです

metaなんかいらないからヘッダでシフトJISを吐けばいい
なお、ここは改造スレなので>>1に従うか適切なスレへ移動して

ヘッダでシフトJISを吐けばいいの意味が分かりませんです
海外のＣＧＩを日本語化するのはここではないのでしょうか

しきり直しです
File Management スクリプトを海外で探していたところこんなものを見つけ
http://www.gossamer-threads.com/scripts/fileman/download.htm
http://firidin.com/perl/
どちらもＸＲＥＡに設置すると３７５のような文字化けで日本語が表示できません
３７８で「metaなんかいらないからヘッダでシフトJISを吐けばいい」
とコメントいただきましたが意味がわかりませんです

その、ffileman_english.cgi の
$charset = "iso-8859-1";
と言う行はなおしたのか？

どう直せば・・・

ISO-2022-JP　でいいですか？

きゃー　ISO-2022-JP　で化けません
ありがとございやした m(_ _)m

●●●マスコミの盗聴、盗撮は許されるのか？その１●●●　　　http://natto.2ch.net/mass/kako/974/974478132.html
489 名前： 文責：名無しさん 投稿日： 2001/04/11(水) 17:25
一般人なのに盗聴される、じゃなくて、「一般人だから盗聴される」んじゃないのかな？
基本的にネタ集めのためにやってんなら、有名人のネタを盗むと、有名人は告発できるし、
そんなことされても当たり前だと思われるので告発しても信じてもらえる。
そうでない人は、ここの途中の書き込みにもあったように「電波」扱いされるだけ。

ただで、ネタを仕入れるんなら、一般人に限るでしょう。
マスコミは自分らの無能さを恥じてほしいです。

ちなみに私が盗聴されはじめたのは、芸能人にストーカーされ始めてからでした。
そこからマスコミに広がって行った。
だから余計「妄想」とか思われそう。
友人に話したら完全に病気扱いされた。ストーカーって言葉がない時代だったしね。
書いておいておいた小説のネタが、他人の原作でドラマ化されたときにはきれまくっ
たなあ。（一度や二度のことじゃないけど）

表示は化けませんでしたが、ｈｔｍｌを編集しようとすると（Edit File）
「がははは」と表示しているけど、
ソースを見ると「$B$,$O$O$O(B」となってしまいます

>>375
しふとじすでは？

$charset = "iso-8859-1";
を
$charset = "ISO-2022-JP";
にしたんですが、しふとじすはどうすればいいのでせふ

$charset = "Shift_JIS";
でけました。ありがとさんでした m(_ _)m

飯食って酒呑んでる間に完了してるな

本来ならffileman_japanese.cgi を作ったほうがいいとは思うけどね

フリーのアイコン付き掲示板CGI（YYBBS）をダウンロードしたのですが
http://minicgi.net/cgi2/yybbs.html
アイコンなしの設定がわかりません。

# アイコンを定義（上下は必ずペアで）。管理アイコンや常連アイコンは、ここでは記入の必要無し
@icon1 = ('1.gif','2.gif')
@icon2 = ('1の画像','２の画像');

↑に設定にすると
「1の画像」と「2の画像」のアイコンを選択できますが、「アイコン無し」の選択もできるようにしたいのですが
どのように記述すればいいでしょうか？

>>391
中身見てないからあれだけど、ダミーの１ピクセル透明GIFを作って
それをアイコンなし時に表示させればいいんでない？

@icon1 = ('0.gif','1.gif','2.gif');
@icon2 = ('アイコンなし','1の画像','２の画像');

>>391
>>392の方が簡単かも。

@icon1 = ('','1.gif','2.gif')
@icon2 = ('アイコンなし','1の画像','２の画像');


yybbs.cgi 138行目
if ($iconMode) { print "<td><img src=\"$imgurl$ico\" alt=\"$ico\"></td>" }
を
if ($iconMode) { print "<td><img src=\"$imgurl$ico\" alt=\"$ico\"></td>" if $ico; }

注意：
@icon1の '', を間違わないように･･･

みなさんありがとうございます！

ずるぼんぁぷろだhttp://zurubon.strange-x.com/uploader/
のコードに手を加えて、
PHPぁぷろだhttp://php.s3.to/bbs/bbs5.php
みたいにオリジナルのファイル名も表示させるようにしたいんですが、
どうしたらいいでしょうか？
よろしくお願いします。

オリジナルのファイル名を保存しておいて、
表示する時にそれを使うようにすればおけ

>>396
ありがとうございます。
具体的にはどんな感じにすればよいでしょうか？

＞具体的にはどんな感じにすればよいでしょうか？

（訳：コピペで動くソースｷﾎﾞﾝﾇ）

例がソースしかないので自分で設置して、「なるほど、こうしたいのか」
と調査しつつ、変更するスクリプトをダウンロードして読まなきゃならんのだが

まあ3連休だし時間合ったらやってもいいけどさ

質疑の中で結果的にスクリプトを書くのは別にいいんだけど、
全部丸投げで「どうすればいいんですか？」って言われると
ちょっと反発を感じるのは俺が未熟だからだろうか。

>400
おれも。

おれはこうやった。
sub decode でファイル名を取得し、sub htmlenc でタグを無効にする。
sub write で$valueにファイル名を追加してログに書きこみ。
sub print_postdata で表示。

>393
スクリプト見てないから何ともいえないけど、アイコンなしの場合に<td>の数の帳尻が合わなくなる悪寒。

>395
CGIで迷ったら受け取った情報を全て書き出してみれ。
蛇足だが、書き換えなくてもperlで記述されてるオリジナルファイル名を書き出すあぷろだならちゃんとある。
スクリプト探しスレで聞くか検索しれ。

このスレは>>391レベルしか応えられないのか（藁
こんな下らない質問こそスルーだろ

オナニーしたい奴は他所に行ってやってくれ。気持ち悪い

ウェブサービス ディックhttp://www.d-ic.com/の
csvmail_v4sというメールフォームCGIに関して質問なんですが
フォームからの入力内容がcsvに出力される際に、
その先頭に一人一人に固定的な受付番号（IDみたいなもの）を割り当てたい場合は
スクリプト中にどのような記述を追加すればいいのでしょうか？
ご迷惑をおかけしますがよろしくお願いします。

>>405
http://www.d-ic.com/free/01/csvmail_v4s.html には、
> 改造のご相談・お申し込みはこちらからどうぞ。
> http://www.d-ic.com/free/editform.html
と書いてある。
なぜそれを利用しないのか簡潔に述べよ。

・名無し相手なら礼儀不要だから
・メアドとかサイトを知られるのが嫌
・なんかこわい

死ねよカス

>407
5,6回氏ね糞が

言うまでもないかもしれませんが、>>407は私ではありません。

>>406そのような窓口があったんですか・・・
冗談抜きで気がつきませんでした(汗

お騒がせしてすいませんでした。

KENTのASKA BBSにトリップを付けたいのだがどこに追加するかよく分からん。
http://www.kent-web.com/bbs/aska.html

#　入力された名前が$namと言う変数で表されているとすると。
# トリップ
$nam =~ s/◆/◇/g;
($nam, $tripkey) = split(/#/, $nam);
if ($tripkey ne "") {
$tripsalt = substr(substr($tripkey, 1, 2) . "H.", 0, 2);
$tripsalt =~ tr/:;<=>?\@[\\]^_`/ABCDEFGabcdef/;
$tripsalt =~ s/[^\.\/0-9A-Za-z]/\./g;
$trip = substr(crypt($tripkey, $tripsalt), -8);
$nam = $nam . " ◆" . $trip;
}

一様トリップの部分はこれでいいのだと思うが、これをどこに追加したら言いのかが分からない。
どこに追加したらよろしいのでしょうかね？

>411
$nam =~ s/◆/◇/g; って名前を勝手に変えて良いのか。

それはともかく、ログに出力する直前に入れれば良いんじゃない。

>>411
なんかすごいトリップ回路だな（ｗ

>>412
騙りトリップ防止機能です。

いや騙り防止なのは解るけど、名前変えるよりは
ログのフォーマットにトリップを追加するとかした方が良いんじゃないかななんて。

入力された<>とかはエスケープしてるっぽいから
$nam .= " ◆<span class="trip">$trip</span>";
とかでも良いけど。

わかると思うが"のエスケープ忘れてた。

確かにひでぇトリップルーチンだ

>>416
とりあえず自分なりに書いて来たんだから丸投げくんとは段違い。
もし「ひでぇ」と思うんならリライトしてやれば？

http://www.google.com/search?num=50&hl=ja&inlang=ja&ie=Shift_JIS&c2coff=1&q=Perl+trip+%90%B6%90%AC&lr=lang_ja

ま、トリップ回路のでき云々は棚上げにして、漏れはどこに書くべきかを言っておく。

>>412も言うようにログに出力する直前に入れるのが吉かと。。。
具体的に言うと、($no,$dat,$nam,$eml,$sub,$com,$url) = split(/<>/);の後だわな。
しかし、「記事表示」、「ワード検索」、「管理モード」と、ログに出力しているところが３ヵ所あるので、全てに入れる必要があるんじゃなかろうか。
サブルーチンにする手もある。

書込みの所にトリップ回路を入れるとどうだろう。
書込みの所で変換の場合、回路は1ヵ所だけで良い。
書込みの所では$in{'name'}が変換対象だから、トリップ回路も書き換えを要す。
具体的な場所は重複投稿チェックの前までに済ませれば桶かな。
ただし、トリップ変換後の名前をクッキーに入れると不都合が生じるであろうから、クッキーに記憶する部分をトリップ回路の前に移動しておく必要があろう。

スクリプトを見ただけだから、実際違っていたらスマン。

ふと思ったんだが、幾らトリップを付けるといっても別に入力まで2ch式にしなくても良いんでは。
名前に#が入ってるとかで#が二回以上出てくる場合に困らないかそれ。

トリップ入力欄を別に設けるか、トリップを使用するかしないかのチェックボックス又は
ラジオボタンを用意しといた方が良さげ。

記事削除はID（ユーザー削除なら+pass）のみで行なってるので書き込み部だけでいい鴨。
つーか、ホスト取得してるのになりすましを過剰に気にする必要あるの？

はじめまして。こちらのサイトの日記CGI↓
【nicky!】
ttp://www.din.or.jp/~raelian/ReadMeNicky.html
を改造したいと思っておりまして、自分なりにやってはみたのですがうまくいかずに
皆様にお願いしに来ました。

まずスクリプトの内容なのですが
http://www.geocities.co.jp/HeartLand-Asagao/7077/nicky.txt
が日記本体でしてこれを【1】とします
http://www.geocities.co.jp/HeartLand-Asagao/7077/list.txt
が色んな表示が可能になるスクリプトです。これを【2】とします。

この日記は本体と表示のされ方が様々ございまして、
●カレンダー表示
●タイトルリスト表示
●フレーム表示
●画像一覧
●携帯用表示
●携帯用タイトルリスト表示
このような感じです。
今回は●タイトルリスト表示●と●携帯用のタイトルリスト表示●
の改造のご指南をお願いしたいのです。

つづきます

つづきです。
現在使用されてるタイトルリストの【一例】
ttp://painter.homeip.net/~rinda/cgi-bin/nicky2/list.cgi?TitleList
現在使用されてるタイトルリスト(携帯用)の【一例】
ttp://painter.homeip.net/~rinda/cgi-bin/nicky2/list.cgi?TLi

私の希望する改造後のイメージ(携帯用も同じようなイメージです)↓
http://www.geocities.co.jp/HeartLand-Asagao/7077/test.html
【一例】と改造後の違い↓
●時間が表示されてるということ。
●横幅が狭くなっていること。(テーブルの変形)
●タイトル文字表示制限を８文字くらいにして欲しいこと。
テーブルを狭くするまではできましたが表示位置が変わったり
時刻をどうやって取得したら良いかもわからなかったです。
またタイトルは、本当は長いタイトルでも表示を8文字にするやりかた
がわかりませんでした。

携帯用タイトルリストのtopページにも時間表示をしたいのです。

わかり辛い文章で申し訳御座いません。
CGIに詳しい方、またnicky!ユーザーで詳しい方がいらっしゃったら
アドバイスをお願い致します。

>>422
と
>>423
の記載内容で意味不明な箇所があれば
お知らせください。
私は肩身の狭い初心者ですので
用語とかうまく説明できません。(本当に申し訳御座いませんｎ(_ _)ｎ)
何とかお伝えしやすいように頑張ります。

apeboardについて教えてください。
apeboardで半角カナを使うと
全角カナに変換されますよね。
アレを半角カナのまま表示するには、
どの辺りをいじればいいでしょうか。
ｶﾞ━━━━━━Σ(´Д｀|||)━━━━━━ﾝ!!!
って入れても
ガ━━━━━━Σ(´Д｀|||)━━━━━━ン!!!
になってしまいまつ(　´･ω･｀)

>425
&jcode'h2z
の含まれる行を探して削除。あるいは行の頭に#をくっつけておく。
あと、どう頑張っても文字化けの可能性は残る。

>>426
即ﾚｽありがとうございます。
&jcode'h2z削除してみたんですが、
できませんでした(　´･ω･｀)
今必死でｸﾞｸﾞｯってまつ・・・。

425です。
&jcode'h2z削除で出来ました。
さっきできなかったのはﾅﾝﾃﾞﾀﾞﾛ・・・
ありがとうございました。

>>424
まず、タイトルをいじるのは関数 PutTitleList 内
daylist の配列に追加すればいいだろう
で、日付を取得しているのが GetDateFromFname なのだが、
ファイル名に日付をもちいていて時刻が入っていないので
現状では不可能。$NickyFnameに時刻も含めるようにするのがいいか？

仕事中なのでまた夜にでも・・・

>>429さん
お仕事中に有り難う御座います。
時刻を追加することは
不可能なのですか……。。。。
そこを一番何とかしたかったのです〜(´Д⊂ｸﾞｽﾝ
$NickyFnameの件ですが$NickyFnameの意味がわからないです。
(スクリプト読んでみたのですがこんなことさえわからないのです
すいません。)

時刻対応には、ファイルの中を読むか、
ファイル名に設定すればいいと思う。

>>431さん
ファイルの中を読むとはどういうことでしょうか？

一日一回更新でログが1日1ファイルなら、ファイルの更新時刻取得でいけないか？
まだスクリプトは読んでないんだが。

>>433さん
えーーと、1日に更新を何回もするので
同じ日にちに複数の記事が作成できて表示もさせたいのです。
>>423にも掲載しましたがこれが私の希望するイメージでして↓
http://www.geocities.co.jp/HeartLand-Asagao/7077/test.html
この例ですと1日に1記事ですが本当は1日に何件か載せたいので
時間を表示させたいのです。

使い道は最新トピックという感じに使いたいと思っているのですが。。

>>434
sasameってのはお前の事か？
お前の質問に対する管理人のレスがあっても、お前にとって期待はずれの内容だったら返事もかけないのか。
いまからでも遅くない。レス書いて桶。

> 改造したいと思っておりまして、自分なりにやってはみた
と書いてあるから、ヒントを出せば自分で改造できると俺は理解した。

$NickyFnameの件
$NickyFnameはファイル名で日付が入っている。
そこに時刻も含めたらって言うのが>>429 の意見。
俺もこれがいいんじゃないかと思う(ってスクを詳細に見てないが。。。)

ファイルの中を読むの件
ファイルの更新時刻をログに記述するって言う事。

…GetNickyFile　でちゃっかり時刻も取得してたのか＿|￣|○

日付を日記に書き込む設定をしてる場合、
531行目あたりの
@daylist[$i]="$mdstr$day$TLday</a>";
を
@daylist[$i]="$mdstr$day$TLday $hour:$min</a>";
に。
imode版も似た処理をしてる場所を探してくれ。
タイトルを出力する直前なら間違いなく$hourには時間、$minには分が入ってる。
俺は自分の愚かさを振り返りつつ吊ってくる。

いや、ご苦労だった。俺もやろうと思ったが
先人がいたのでやめていたところだ。

同じく。ご苦労だった。俺もやろうと思ったが
先人がいたのでやめていたところだ。

http://www.big.or.jp/~knight/download/diarypro/diarypro216.lzh
これに、アクセス解析の
<SCRIPT language="JavaScript">
</SCRIPT>
をつけたいのですが、どこにつければいいでしょうか？
いろんなところに試したのですが、駄目でした。

>>439
はぁ？　<body...>　探してその直後に片っ端から付けてりゃいいだろう？

&MailSend($mail_address,$name);

$template_file = "$tmpl_path/ok.html";
$template=HTML::Template->new(filename => $template_file);


print $template->output;
exit;

oK.htmlをcgiで読み込むのでは無く、
ok.htmlに飛ぶ様にするのは可能でしょうか？

お願いします。

&MailSend($mail_address,$name);
print "Location:http://hogehoge/ok.html\n\n"
exit;

>>442　様
ありがとうございました(TдT)
本当に!!!

只今仕事から帰宅しました。
>>435さん
お返事、ご説明有り難う御座います。

nicky!bbsの書き込みについては、違う方です。同じような質問なのでnicky!のBBSの過去ログ
を調べた際に拝見しましたが、私は『できないことは無いのでは？』と
思っておりましたので〜(やり方はわかりませんでしたが)

>>436さん
@daylist[$i]="$mdstr$day$TLday</a>";
を
@daylist[$i]="$mdstr$day$TLday $hour:$min</a>";
おっしゃるとおりに変更しましたら
出来ました！！時間表示されました！
とても感激です。有り難う御座いました。
一緒に考えていてくださった皆様も有り難う御座います。
まだタイトルの文字数の方はできていませんので
できましたら報告にあがります。
(またつまずいたらご質問しにくると思います…)
m(._.)m ペこっ

早速つまずきました。。
もういちどスクリプトの場所を書いておきます。
まずスクリプトの内容なのですが
http://www.geocities.co.jp/HeartLand-Asagao/7077/nicky.txt
が日記本体です
http://www.geocities.co.jp/HeartLand-Asagao/7077/list.txt
が色んな表示が可能になるスクリプトです。

タイトルが長い場合自動的に短く省略されるようなことって
できるのでしょうか。。
例えばタイトル文が↓このように長い場合
【今日は2ｃｈのWebProg板で親切な方々に教えていただきました。】

このように↓
【今日は2ｃｈのWeb…】という感じで途中以降は読めなくても
いいので切りたいのです。

やり方をご存知の方はお手数ですが助けてください。
ｎ(_ _)ｎ

BODYのところや、いろんなところに張ったのですが、無理でした。

文章の横に書いたり、リンクの横に書いたりしましたが、無理でした。

javascriptの記述に問題がある、と予想してみる。
htmlに貼って試してみ。


>445
○list.cgi?TitleList対応
list.cgiのsub PutTitleList内の
@titlelist[$i]="$mdstr $Title</a>";
の行頭に#（半角）をくっつけ、以下を直後の行にコピペ。
@titlelist[$i]="$mdstr " . substr($Title,0,14) . "</a>";

○i-mode表示対応
list.cgiのsub PutTitleListIMODE内
$str="$mdstr$day$TLday</a>$Title<BR>";
の行頭に#（半角）をくっつけ、以下を直後の行にコピペ。
$str="$mdstr$day$TLday</a>" . substr($Title,0,14) . "<BR>";

i-modeの方は都合により未テスト。
ともに先頭14字まで切り出す（全角は2文字と計算）。14の部分を書き換えると字数変更可。
手抜きなので境目（この場合だと14-15字目）が全角だと化ける。10行ほど追加すると対応できなくもないけど。
気になるなら「substr 日本語対応」とかでぐぐってとりあえず自分で頑張るよろし。

あー、「…」忘れた。
コピペするものをこっちに。
○list.cgi?TitleList
if( length($Title) > 14) {@titlelist[$i]="$mdstr " . substr($Title,0,14) . '…</a>'; }
else {@titlelist[$i]="$mdstr $Title</a>";}

○i-mode
if ( length($Title) > 14 ) { $str="$mdstr$day$TLday</a>" . substr($Title,0,14) . '…<BR>'; }
else {$str="$mdstr$day$TLday</a>$Title<BR>"; }

サイズ変更の際は14の部分を両方変えること。

>>448さん
>>449さん
わかりやすい解説、誠に有り難う御座います。すみません。父が2日前に亡くなりまして、
色々と慌しくてお返事が遅くなりもうしわけございません。
まだ試しておりませんので、落ち着きましたら改めて御礼を申し上げに
こちらに参ります。

大変だったな
がんばれよ

ご愁傷様です。ご香典の代わりにこのスレを捧げます。

http://www.kokobbs.com/ahhan/cgi/ver2/ahh255e.lzh
のAHhan！ BBSにトリップ機能を付けたいので
改造方法、教えて下さい。

>>453
直リンすんな

>>411よりｲｲ トリップルーチン ある？

>>453
Ahhanのサイトに改造やってるところへのリンクがある

ttp://saya.kiy.jp/cgi/other.html

の「CC Ans.Q」というスクリプトを改造お願いします。
この状態ですと書き込みの修正ができなくて
クッキーも非対応なんです。
これを書き込み修正可、クッキー対応にしてもらう事は
可能でしょうか？
大変面倒だとは思いますが、心優しいお方お願いします。

可能だ、がんばれや

The RoomさんのPower Searchなのですが、
http://dream.lib.net/room/cgi/e_ps.html
「クール」などのマークを付けられるのが、通常では管理人だけになってるのを、
一般の登録者でも任意で付け外しできるように改造したいのです。
カテゴリー分けとは別の、ジャンル分けの目印として用いたいのです。

http://s323.at.infoseek.co.jp/ps_user-cgi.txt
306行目あたりから?とは思いますが、これだけではやはりログに反映されませんし。

どなたか解決法がわかる方おられましたら、お願いします。

>457
修正＋クッキー機能のついた掲示板を改造する
修正＋クッキー機能のついたラウンジ型の掲示板を捜す
の方が多分楽。

SUN BOARD(http://www.kent-web.com/bbs/sunbbs.html)を
連邦さん(http://www.renpou.com/)や、
裏ヌ風さん(http://www.uranufoo.com/)
のように改造したいのですが、どうすればよいのでしょうか？
どこをいじればいいのかわからなくて。。

お願いします。

>>461
> のように
と書いてあるが、どこをどう改造して欲しいのかさっぱりワカラソ
単にフレームというなら鼬害

初期のまんまだと、書き込んだときにダサいデザインなんで、
かっこよくしたいってことです

>>461
デザインの問題なら、skin系の日記や掲示板などを改造した方が、
よっぽど早いと思うが。

ダサいとかかっこいいなんていう抽象的なものはわからんな
スルーでいいだろ

詳しく説明すると、もっとこう
ずばばばばーずがーんどきゅーんすぱーんすぱーんって感じにしたいってことです

さっ次、次

>466
<embed src="zubabababa-zuga-nDQNsupaaansupaaaan.wav">

遅レスすみません。。
>skin系の日記や掲示板など
探してみます。
でも改造するんだったら知識とかないから、結局またここで聞きます。

お願いしますね。では逝ってきまつ

htmlの事を聞くのはスレ違い。
はい、次、次ー。

(´-`).｡ｏＯ(でも巷の掲示板類ってすっとこどっこい HTML なんだよなぁ（哀）)

まーメインでコーディングやってるとHTMLなんか自然におざなりになる罠。
しかしHTMLレイアウトはフォーム近辺を変えない限り改造は簡単だからなあ。
デザインの好みもあるだろうし、その辺はユーザ側にやってもらいたいのが本音と思われ。

WebProg 初心者の質問Pert6から流れてきました。

更新記録CGIを使用したいのですが、普通の更新記録CGIは管理者が1人ですよね。
イコールIDとPASSは1組です。
しかし、複数の人間が書き込みするシステムが必要になりました。
イメージ的には会社のトップページに更新記録を貼り付け各支店担当者が書き込みをするというものです。
その更新記録CGIに他の認証CGIを組み込んでみました。
本店でIDとPASSを発行するのですが、そのシステムがうまく動きません。
ID追加・書き込みがちゃんと出来たのでOKだと思っていたのですが、あるID(支店名)が間違っていたため
削除しようとしたら、1番目のIDの組み合わせを残して全ての情報が消えてしまいました。
3つのIDが入っていて2つめを削除しようとすると3つ目まで消えてしまうのです。
ちゃんと、チェックボックスをつけたものだけが消えるようにしたいのですが、どこを変更したら良いのでしょうか?

ttp://www.geocities.co.jp/SiliconValley/9193/

圧縮した全ファイルです。
ttp://www.geocities.co.jp/SiliconValley/9193/history.lzh

本体・設定ファイルはとりあえずTXT化しておきました。
ttp://www.geocities.co.jp/SiliconValley/9193/history.txt
ttp://www.geocities.co.jp/SiliconValley/9193/config.txt

よろしくお願いします。

すごいなこれ、、、、読む気が失せる・・・
ちょっとこれだけじゃ動作しないんで確認できないし

history.cgiに　メンバー削除モードってあるだろ
その中でpush したやつとしてないやつ全部プリントしてみ

checkboxをこういう使い方してるのは参考にしたスクリプトが
こうやってんの？

>>473
返答ありがとうございます。

>ちょっとこれだけじゃ動作しないんで
とはどういうことでしょうか?とりあえず、全ファイルを圧縮してあるので動くはずですが…
というか、動いてある状態のものを圧縮したのですが…

また、書き忘れてましたが、CGIの最後に「?mode=pass」とすることで書きこみ画面に行きます。
下のアドミニモードよりユーザーの追加が可能です。
PASSは「config.cgi」にあるように「7777」でいくことが出来ます。

>その中でpush したやつとしてないやつ全部プリントしてみ
すみません。方法が良くわからないです。認証部分も単に他のCGIを埋め込んだだけなので、
CGIのスキルはかなり低いです。どのようにやれば良いのかさっぱりです。

>checkboxをこういう使い方してるのは参考にしたスクリプトがこうやってんの？
そうです。デザインは変更しましたが、プログラム自体はそのままです。
元々、アクセス解析機能も付いていたのですが、必要ないと思って削除したのですが、
その時に間違って削除部分を触ってしまったかもしれません。

以上かなり初心者なので変なことをしているかもしれませんが、よろしくお願いします。

>>474
とりあえずわかった
print "<input type=hidden name=lcot value=\"$no\">\n";
この行が、$no が確定する前に実行されてるから。
もっと下の、
print "<input type=submit value=\"DELETE\" title=\"DELETE\" class=\"bot\">\n";
の前の行あたりにもってってみな

>>475
返答ありがとうございます。
IDを見ていただければわかると思いますが、さっきは仕事場、今自宅です。
今手元にプログラムが無いため、明日朝1番に修正してみます。
ということで、結果は明日になります。

しばしお待ちください。

とりあえずデバッグの方法だけはいくつか覚えておくべき
今回のは、print STDERR "式"; でapacheのエラーログみたけど
ファイルに書き出すとかツール使うとかあるでしょ

>>475>>477
同一の方でしょうか?

ありがとうございます。ばっちり出来ました。

>ファイルに書き出すとかツール使う
とはどんなツールですか?
エラーを確認する方法としてはkentさんのところで配布している構文チェック(でいいのでしょうか?)
用CGI「Perl Checker｣しか使っていません。

お勧めのツールがあれば教えてください。

構文をチェックするってのは、文法的に正しいかどうかのチェック。
文法が正しいが、書いてる内容が変な場合はそれだとチェックできないだろ？

ハンドルネームの保護機能を作りたい。
で、こんなもの書いてみますた。

@hndle1 = ("太郎","花子");

@hndle2 = ("0123","abcd");

if (($in{'pwd'} ne $pass && $in{'name'} eq "$master_name") {
&error("管理人のハンドルネーム使っちゃいけません");
} elsif ($in{'name'} eq $hndle1[0] && $in{'pwd'} ne $handle2[0]) {
&error("他人のハンドルネーム使っちゃいけません");
}

問題はこれだとelsif分岐を大量に書くはめになるってこと。
whileでなんとかするのかな？なんて気もするけど、
現時点のスキルではそこで限界。
アイディアまたはヒントがあったら教えてちょうだいな。

まあwhileでもいいけど、俺はハッシュが好き。

%hndle = (
'太郎' => '0123',
'花子' => 'abcd'
);

#管理人HNチェック
if ( $in{'name'} eq $master_name && $in{'pwd'} ne $pass ) {
&error("管理人のハンドルネーム使っちゃいけません")
}
#ﾊﾟﾝﾋﾟｰHNチェック
if ( exists($hndle{ $in{'name'} }) && $in{'pwd'} ne $hndle{ $in{'name'} } ) {
&error("他人のハンドルネーム使っちゃいけません")
}

>>1を読んでここが適切かよく考えなさいな

登録数が多いようなら名前とpass(を暗号化したもの)を記述したログファイルで各行whileだろうな。
2chのキャップとか削除人の名前ってどんな実装されてんだろ。

>>483
# ハンドル（キャップ）
&jcode::tr(\$FORM{'mail'}, '＃', '#');
if($FORM{'mail'} =~ /([^\#]*)\#(.+)/){
　my $mail_message = $1;
　my $handle_pass = $2;
　$handle_pass =~ s/[\.\/]//gi;
　$handle_pass .= ".cgi";
　my $handle_file = "../handle/" . $handle_pass;
　if(-e $handle_file){
　　open(HANDLE,"<$handle_file");
　　my $handle = <HANDLE>;
　　close(HANDLE);
　　chomp($handle);
　　　if($FORM{'FROM'}){
　　　　$FORM{'FROM'} = "$FORM{'FROM'}＠$handle ★";
　　　}else{
　　　　$FORM{'FROM'} = "$handle ★";
　　　}
#ハンドルを使う時はプロクシ規制をキャンセルする
　　$FLAG = 9;
　}
　$FORM{'mail'} = $mail_message;
}

existstって関数は初見です。
ハッシュを使うというのは思い浮かばなかったなぁ。
素人的にはハッシュって敷居が高くて、勉強も後回しになりがち。
>>481さんどもでした。

>>480-485
二度を来るなよ

ttp://www.kent-web.com/のClip Boardを
ttp://www.lunar.to/~chatchat/index_2.cgiのClip Board 多画像アップ版
のようにするにはどうすればよいのか教えてください。
Clip Board 多画像アップ版を使えれば何の問題もないのですが
そこの利用規定に引っかかってしまい使わせてもらうことが出来ません。
どうかよろしくお願いします。

>>487
利用規定のどの部分に引っかかったのよ？
で、自分ではどこまで改造したわけ？

>>488
無料のホームページスペースだと駄目みたいです。

どこをどういじればいいのかぜんぜんわからないので
ここで少しでもアドバイスがもらえればと思っています。
よろしくお願いします。

>>486
オマエガナー

【　 CGI名 　】MiniBoard (cg_type=3)
【配布先URL】http://www.prettybook.com/
【設置サーバ】www2s.biglobe.ne.jp
【 質問内容 】日付の上部にタイトルを表示させたい
「sarasou.com」でレンタルしているタイプの日記を設置したくて
上記のCGIを設置しました。一応、表示は出来るようになっています。
それがそのままだと日付とコメントしか表示できないのですが、タイトルも
表示できるようにさせたいのです。
（レンタル事業用の「PRETTY MDS PRO 1」のような表示方法）
設定部分の「#-投稿フォームのサイズ」のところで「$title_fw = 35」を
足してみましたが反映されるはずもなく。
どなたか、方法をご存知の方がおりましたら教えていただけないでしょうか？
どうかよろしくお願いいたします。

上記の質問を「CGI設置スレ」に書き込んだところ、こちらの方が適切な
スレだと誘導していただきました。
投稿フォームにタイトル欄を表示させるまでは出来たのですが、入力しても
表示されず、形だけで使い物になっていない状態です。
テキストはこちらです。
http://www.geocities.co.jp/HeartLand-Hanamizuki/8294/pminib_cgi.txt

アドバイスをいただければ嬉しく思います。よろしくお願いいたします。

>>491
ざっと見ただけでテストはしてないぞ
行番号を下記のように変更しる
長すぎる行があるって２ちゃんねるに怒られたので、line:363は途中で改行を入れてる
あとで戻せ

line:363
unshift(@LINE,"$num<>$date<>$in{'name'}<>$in{'email'}<>$in{'scol'}<>$in{'get'}<>
$in{'hd'}<>$in{'com'}<><>$in{'url'}<>$host<>$pwd<>$in{'icon'}<>$in{'fcol'}<>$in{'title'}<>\n");

line:431
($num,$date,$name,$email,$scol,$get,$hd,$com,$res,$url,$host,$pwd,$icon,$fcol,$Title) = split(/<>/,$LINE[$_]);

line:747
($num,$date,$name,$email,$scol,$get,$hd,$com,$res,$url,$host,$pwd,$icon,$fcol,$Title) = split(/<>/,$LINE[$_]);

line:835
($num,$date,$name,$email,$scol,$ged,$hd,$com,$res,$url,$host,$pwd,$icon,$fcol,$Title) = split(/<>/,$line);

その２
line:1016,1018も改行している

line:1002
($num,$date,$name,$email,$scol,$get,$hd,$com,$res,$url,$host,$pwd,$icon,$fcol,$Title) = split(/<>/, $line);

line:1016
$line = "$num<>$date<>$in{'a_name'}<>$in{'a_email'}<>$in{'a_scol'}<>$in{'get'}<>$in{'hd'}<>
$in{'com'}<>$in{'res'}<>$in{'a_url'}<>$host<>$pwd<>$in{'a_icon'}<>$in{'a_fcol'}<>$in{'title'}<>\n";

line:1018
$line = "$num<>$date<>$in{'name'}<>$in{'email'}<>$in{'scol'}<>$in{'get'}<>$in{'hd'}<>$in{'com'}<>
$res<>$in{'url'}<>$host<>$pwd<>$in{'icon'}<>$in{'fcol'}<>$in{'title'}<>\n";

line:1045
($num,$date,$name,$email,$scol,$ged,$hd,$com,$res,$url,$host,$pwd,$icon,$fcol,$Title) = split(/<>/,$line);

line:1106
$m_cook="name<>$in{'name'},email<>$in{'email'},url<>$in{'url'},pwd<>$in{'pwd'},scol<>$in{'scol'},icon<>$in{'icon'},fcol<>$in{'fcol'}<>$in{'title'}";

line:1126
$c_pwd = $COOKIE{'pwd'}; $c_scol = $COOKIE{'scol'}; $c_icon = $COOKIE{'icon'}; $c_fcol = $COOKIE{'fcol'}; $c_title = $COOKIE{'title'};

line:1199
$com=$in{'com'}; $get=$in{'get'}; $hd=$in{'hd'}; $Title=$in{'title'};

line:1269
($pnum,$pdate,$pname,$pemail,$pscol,$pget,$phd,$pcom,$pres,$purl,$phost,$ppw,$picon,$pfcol,$ptitle) = split(/<>/, $pst_line);

line:1463
($num,$date,$name,$email,$scol,$get,$hd,$com,$res,$url,$host,$pwd,$icon,$fcol,$Title) = split(/<>/,$_);

その３


1209-1210行の間に追加しる

$message .= "TITLE : $Title\n";



下記行番号の空行に追加記述しる

line:1135 追加
if ($in{'title'}) { $c_title = $in{'title'}; }

line:476 追加
print "$Title</td></tr><tr><td bgcolor=$kiji_col $k_bgcol>\n";

あとはHTMLのデザインの問題だからお前に任せる

【　 CGI名 　】髭式BBS v1
【配布先URL】http://www19.big.or.jp/~hige/
【設置サーバ】cun.jp
【 質問内容 】
新規投稿時にコメント欄にテンプレートを表示させているんですが
返信時にもこのテンプレートが表示されてしまいます
新規投稿時だけテンプレートを表示するにはどのように改造したらいいのでしょうか？
http://www.pandora.nu/tv/src/img20031124104012.txt

>>495
すいません
自己解決できました

>>492〜494
回答してくださって、有難うございます。
これから作業してテストを行いますが、まず、一言お礼を申し上げたくて
書きこみさせていただきました。
本当にありがとうございました。

何度も申し訳ありません。
「タイトルを入力出来るようにしたい」と書きこみ、回答をいただき
教えていただいたとおりに修正をしました。
それでタイトルを入力すると「'}」と表示されてしまうのです。
過去ログ編集で入力しなおすと普通に表示されます。
一体、何が悪いのか途方に暮れております。
あまり何度も質問して甘えるのは良くないと思うのですがアドバイスを
いただけないでしょうか？よろしくお願いいたします。

http://www.geocities.co.jp/HeartLand-Hanamizuki/8294/pminib_cgi.txt

>>498
364行目の前から157文字目から4文字はいらんのじゃないか？
つーか　「'}」　が表示されておかしいってのがわかってんなら
「'}」で片っ端から検索すればわかるようなもんだろ。

>>498
>>499の言う通りｌｉｎｅ:364に
$in{'fcol'}<>'}<>$in{'title'}　こんな部分がある。
拡大汁と、<>'}<>　だな。

改造部分、修正部分の行末にコメントを書くのはいいが、おまいのはコメントになっていない。
・・・・・・・ ; （＃修正）
これだと動かすとエラーになるだろ？
・・・・・・・ ; #修正
って書くもんだ。

ま、ｶﾞﾝｶﾞﾚや

>>499さん、>>492さん
アドバイスをありがとうございます。
おかげさまで普通に文字が表示されるようになりました。
文字を入力したのに文字化けする！と思い込んでしまい、
余計な文字が入っているという発想が出来ませんでした。
こんな超初心者に教えてくださって、本当にありがとうございました。
ここから先（デザイン関係）は地道に自分で考えていきたいと思います。
不安ですが、頑張ります。

はじめして。

画像アップロード機能付きの掲示板で
画像が添付されたとき、任意のアイコンを表示させて
アイコンクリックで別窓に画像表示、、できるようにするのは
かなり大掛かりな作業になるでしょうか。

画像表示は、原寸、サイズ指定、サムネイルが選択でいるようになっています。
それと画像がなかった場合、代替画像表示も可能です。

製作者の方に、要望を出そうかな、と思っているのですが
あまりにも大掛かりな改造・・・ということなら
申し訳ないので、要望だすのはやめようと思い
こちらでお聞きしました。

よろしくお願いします。

>>502
さしたる苦労でもない。
が、作者のスクリプトがクソミソで読みにくい場合はこの限りではない。

なるほど。
製作者本人なら、大作業ではないってことですね。
要望出すかどうか考えます。
ありがとうございました＞503

はじめまして。初めてｶｷｺさせていただきます。
自分はまだ改造の初心者で、見よう見真似で他の改造版からいろんな
機能をパクっていろいろイジってたのですが、どおしても壁にブチあたったので
質問させてください。

現状、KentさんのYYBOADの改造版をさらに改造して使っております。
ttp://minicgi.net/で配布しているものに、MT2CHの機能を移植しました。
主な改造点は、
・掲示板のTOPにスレッドリスト（最新○○件）
・スレTOPに「▲▼■」などのリンク
・レス�ｕ\示
とここまではなんとか出来たんですが。。もうひとつ追加したい機能で
「レス記事表示制限」をなんとかしたいんです。
TOPには１０レス表示してるのですが、レスが伸びたスレがあがってると
TOPが異常に長くなってしまうもので。

MT2CHで使用している「if ($mm2[$nn2] < $num2)」の表記をアイコン領域、
コメント領域などに適用したのですが・・・表示はされないものの
空白だけは残ってしまうのです＾＾
恐らく、ログの読み込みの段階で読み込み範囲を定義してあげなきゃ
いけないのでしょうか？
Perl初心者で申し訳ないのですが、アドバイスのほどよろしくお願いします。

このさいなんでｱﾄﾞ晒します（テストフォルダですがｗｗ
http://lovely-aya.appletea.to/cgi/test/mainbbs.cgi

＞TOPには１０レス表示してるのですが、
＝TOPには１０スレ

　　　ｽﾐﾏｾﾝ＾＾；

>>505
「レス記事表示制限」ってのがよくわかんねーな。
TOPには10スレ表示したいと、何が何でも10スレだと。
1スレに10レスだと合計で100レスだと長くなるから「レス記事表示制限」したいとこういうわけだね。
ところで「レス記事表示制限」って何を制限するものだろうか。。。
スクリプトを見ればわかるかな？
おまいの改造したスク晒せ。
完成イメージHTML作ってみろ。
つーか、おまい>>1を読んでないだろ。

説明不足でした
レス記事表示制限は、
１スレあたりに表示するレスを最新○○件
などと定義したいんです。
（最初に１。次は２３〜３３レス・・などのように
５０レスとかついて１０スレ表示されるととんでもない量の表示に
なるもので（汗

http://lovely-aya.appletea.to/kaizou.htm

すいませんでしたm(__)m　改造部分のソースです。

http://lovely-aya.appletea.to/kaizou.txt
すいません。。こっちのが見やすいです

スクは部分じゃなく全部晒せ

> １スレあたりに表示するレスを最新○○件
> などと定義したいんです
現状で10件と定義されてるんじゃないの？

はじめまして。
現在フリーのショッピングカートを改造して使用しております。
元スクリプトは
ttp://wb-i.kir.jp/wb-i/
のEasy Shopです。現在の配布バージョンは1.11ですが、
1.09を改造して使用しております。

いろいろ改造した結果
商品データファイルに余計な改行が入るようになってしまいました。
ttp://www.geocities.co.jp/SiliconValley-Cupertino/8353/e_data.txt
この改行をなくしたいので、
どなたかご教授いただけないでしょうか、、

使用しているソースはこちら
ttp://www.geocities.co.jp/SiliconValley-Cupertino/8353/e_shop.txt
元のソースがなかったんで、現在配布しているバージョンのソースをアップします。
http://www.geocities.co.jp/SiliconValley-Cupertino/8353/e_data111.txt

勉強しながらの改造なのでソースがめたくそなのは勘弁してください、、、
よろしくお願いいたします、、、

>>511
データファイルを読んで、それをsplitしていじくってからまた繋げて書き込むときに、
うしろに\nとかつけてない？

>>512
ロック処理のところで
$data_r = "$goods_no<>$in{'goodsname'}<>$in{'MARK'}<>$option_new<>
$option2_new<>$in{'bunrui'}<>$in{'setumei'}<>$in{'fcolor'}<>$in{'PRICE'}<>
$in{'SALE'}<>$in{'TANI'}<>$zaiko<>$in{'limit'}<>$tail_new<>$in{'bikou'}\n";
こんな感じで入っていますが。。。
確か元から入っていました。
ロック処理で二箇所あるだけで他には無いかと、、

>510

http://lovely-aya.appletea.to/kaizou.txt
スク全部晒して上書きしました。

一応、レス数表示は最新10件表示になるよう強引な改造はできてます。

最大表示レス数
$syoryaku=10;
$num2=$num+$syoryaku;
とし、
レスの各ブロック（コメントテーブル、アイコンテーブル・・など）
に対してif ($mm2[$nn2] < $num2)を付けてます

ただ、現状のやり方だと省略したレス分の空白ができてしまう
状況なんです。
http://lovely-aya.appletea.to/cgi/test/mainbbs.cgi


なので、やり方が間違っているのかと思いまして
アドバイスのほう頂きたく再度晒します＾＾

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

>>514
もともとのスクがKENT作だから見難い上に、おまいのはインデントが滅茶苦茶で見るのに苦労したよ。

846,869,878,880,881行目が変。
この行は無条件でprintしてる。

それと、if文の書き方もなんだかしょっぱいな。
勉強が必要だな。

あとな、パスとかログファイル名とか書いてあったけど、直しておけよ。

>>513
279-280行目の間に
chomp $data ; # ただしperl5

>515
あ、ありがとうございました〜！
なんとかキレイに表示することができました。
各ブロック全てに条件つけてあげなきゃならんかったんですね＾＾；
ほんとド素人ゆえ、見よう見真似で記述したので
かなりしょっぱいスクリプトですｗ
まだCGI設置してから半年たらずなもので＾＾；これからも日々勉強します！

つ〜か。。こんなに各ブロックに条件つけるより、
ログファイルを読み込む時点で制御できないものだろうかと。。。
きっとそのほうが処理も軽くなるような気が。

【　 CGI名 　】髭式BBS v1
【配布先URL】http://www19.big.or.jp/~hige/
【設置サーバ】agz.jp
【 質問内容 】
投稿記事の編集が管理人しかできないようになっています
これを投稿者にも編集できるように改造したいんですがどうすればいいのでしょうか？
さらに編集した場合その編集した日時を自動的に挿入するようにもできませんか？
CJ-ClubにあるChild Treeみたいな感じに…
後、記事を削除する時も投稿者は完全には削除できません
投稿者に、復帰できる形の削除か、完全に削除か選ばせられるようにはできないでしょうか？

よろしくお願いします
本体
http://www.pandora.nu/tv/src/img20031128194532.txt
Web用モジュール
http://www.pandora.nu/tv/src/img20031124104012.txt

http://php.s3.to/net/kusi.phps
を元にPHP串を作成中ですがGETメソッドで掲示板の書き込みが出来ません。
<〜action="http://a.com/kusi.php?http://b.com/bbs.cgi"〜>となるのを
<〜action="http://a.com/kusi.php"〜><input type=hidden name=u value="http://b.com/bbs.cgi"〜>にするにはどうすればできますか？

>>518様
このスレは「スクリプトを改造したいけどやりかたわかんないよー」な人が>>1の(1)〜(3)に留意してアドバイスを求め、答えてもいいかなと思った奇特な香具師がアドバイスを送るスレなのです。
>>1にはハッキリ明記されておりませんが、スレの流れから申しますと>>1の(3)の
> 少しは自分で考えること。
が出来ていない人には大変厳しいスレになっております。
したがいまして、>>518様におかれましてはご足労とは存じますが、>>518様が改造なさられたスクリプトをここに集う奇特な香具師連中にお目にかける必要があろうかと存じます。
エラーが出ておりましても構いません。
途中で投げ出されておりましても構いません。
私共は>>518様のお心が知りたいのです。
どうかよろしくお願いいたします。

ぶっちゃけ 「丸投げをするんじゃねーぞｺﾞﾙｧ」 でございます。

>>520
1062行目の
&PassCheck($msg,1);
を
&PassCheck($msg,0);
1104行目も同じように変えたら一応編集画面まではいけたんですが…
編集して送信しようとすると
「記事の編集は管理者しかできません」
と出て編集できませんでした

この後どうすればいいかわからずつまってしまいました

すいません
ID出し忘れました

http://www.kent-web.com/chat/robo.html
http://www.kent-web.com/chat/yychat.html
上の「人工知能チャット」と「アイコンチャット」を
http://www.kent-web.com/chat/miu/miuchat.cgi
マルチであらわしたいのですができるのでしょうか？

できません。

了解しました。

>>518
hbbs.cgi 219-221行目　コメントアウト
#　if ($cmd eq 'epost') {
#　　unless (($id eq $admin_id ・・・ ('記事の編集は管理者しかできません', ''); }
#　}

hbbs.cgi 296行目
$comment = $acomment;
　　　　　　↓
if ($id ne '') {
　　$acomment = $acomment . "<BR><BR>管理者によって編集されました。(" . &FormatDateTime(time, 2) . ")";
} else {
　　$acomment = $acomment . "<BR><BR>投稿者によって編集されました。(" . &FormatDateTime(time, 2) . ")";
}

web.pl 276行目
if ($par eq '') {
　　　　　　↓
if ($par eq '' && $id ne '') {

web.pl 982行目
&PassCheck($msg,1);
　　　　　　↓
&PassCheck($msg,0);

>>518
web.pl 998行目　移動は希望になかったから投稿者は使えなくした
if ($reply ne 'moved') { $html .= "<OPTION value=\"move\">移動"; }
　　　　　　↓
if ($reply ne 'moved' && $id ne '') { $html .= "<OPTION value=\"move\">移動"; }

web.pl 1024行目
&PassCheck($msg,1);
　　　　　　↓
&PassCheck($msg,0);

web.pl 1046-1048行目
{ &PassCheck('記事の削除は管理者しかできません',1);
{ &PassCheck('ツリーの削除は管理者しかできません',1);
{ &PassCheck('スレッドの削除は管理者しかできません',1);
　　　　　　↓
{ &PassCheck('記事の削除は管理者しかできません',0);
{ &PassCheck('ツリーの削除は管理者しかできません',0);
{ &PassCheck('スレッドの削除は管理者しかできません',0);

web.pl 1123行目
&PassCheck('記事の復活は管理者しかできません',1);
　　　　　　↓
&PassCheck('記事の復活は管理者しかできません',0);

>>526-527
早速改造してみます
ありがとうございました

http://ari-sin3.hp.infoseek.co.jp/arisin4.html
ここにある、ずるぼん式うｐろだを携帯でDLできるように改造してもらえますか？
携帯からは、ＤＬだけできるようになればいいのですが･･･

普通に、downlord.cgiを見ればいいのですか？
携帯で。
それとも、携帯用のcgiを別途作る必要がありまつか？

まず>>1をよく読むことをおすすめします

ＣＧＩの改造お願いしようと、
ネットでみつけたサイトのメルフォからメールしてみたんですが
５日たっても返信ナシ。
５、６日たっても返信がない場合は再度メール、、、
と書いてはありましたが
お金払うの不安な気が・・・・。

どこか良心的なＣＧＩ改造してくれるサイトご存知でしたら教えてください。
もちろん、有料で結構ですので。

こういう書き込み、アウトだったら
ごめんなさい。

>>532
アウトです。帰れ。

OUT is >>532.

Out with it!

どうでもいいが、メルフォってなんとなく「ｶﾞｯ」と殴りたくなる響きだ。

YY-BOARDの返信機能を無しにしてゲストブックとして使いたいのですが
どこを消せばいいのかわかりません。

返信機能なしのゲストブックを色々探したのですが
セキュリティ機能がついてないのでYY-BOARDの機能をそのままで
ゲストブックとして使いたいのです。

どなたか教えてください。

>>537
HTML的に返信ボタンを消しちゃえば？

>>538
それだとコマンドラインで自分で引数を入力すれば返信できる。

そこまでして強引に返信機能を使おうとする香具師がいるか？ｗ

アンケートのページで消されてた項目追加ボタンを強引に送った事があるなあｗ
submitされたときに返信ボタンだったら処理するとこをつぶせばいいやん

どっちみち>>1を読んでないようだから放置しとけ

特定の機能を殺すのはけっこう簡単な改造だから、
ちゃんと依頼すればやってくれる香具師は多いと思われ。

YY-BOARDで書き込みの日時が表示されないようにしたいのですが、スクリプトのどの部分を消せばできるでしょうか？

>>544
>>1読め

perlのBBSｽｸﾘﾌﾟﾄを使っております。
このスクリプトですと、携帯キャリアから投稿されたカタカナはすべて半角に強制的に変換され、
ＰＣから投稿されたカタカナは逆にすべて全角に変換されるんです。
その結果ＰＣから２文字以上連続した半角カタカナを投稿されると必ず文字化けするという惨状でした
ので、デコード部を改造しないとダメなのかなぁと思いあちこち検索してやってみましたら、一応、キャリア
に関わらずすべてのカタカナ投稿を半角カタカナに強制変換させることができました。
ですがなにぶん素人なもので本当にこれで正解なのかどうかわからずいまいち安心できずにいます。
どうかプロの皆さんの御教授をいただければと思い投稿させていただきました。
宜しくお願いいたします。
日本語変換ライブラリーはjcode.pl ver2.0です。

[元の部分]
jcode::convert(\$val,'sjis','','z') if($agent=~ /Mozilla/);
jcode::h2z_sjis(\$val) if($agent!~ /Mozilla/);

↑これを

#jcode::convert(\$val,'sjis','','z') if($agent=~ /Mozilla/);　(←この行をコメントアウトしました)
jcode::z2h_sjis(\$val,'sjis','','z');

↑このようにしました。

スレが違わないか？

「動いているコードに手をつけるな」という格言がある。
動きさえすれば初心者の書いたコードだろうがなんだろうが問題ない。

オリジナルの一行目の'z'を'h'にするのが元の処理に一番近い。
ただ、運が悪いとごくたまに文字化けする。処理も重いし。

喪前の考えたコードをそのまま使うことを薦める。
多分、10年前のPCを使ってる奴が新たにBBSに住み着かない限り問題は発生しない。

自作でチェック機能をつけようとしているのですが、
データファイルの中に下記のnameとemailが
合致するデータの行があった時のみ、エラーを返したいのですが、

　　　　$FORM{'name'} = "aiueo";
　　　　$FORM{'email'} = "[email protected]";

となっている場合で、

　　　　@KENSAKU = grep(/$FORM{'name'}<>$FORM{'email'}<>/,@DATA);
　　　　$count = @KENSAKU;
　　　　　　　　if ($count > 0){ &error("エラー") }
　　　　　　　　else { $ok = "1"; }

例えばデータファイルがこうなっている時でも
aiueo<>[email protected]<>
kakik<>[email protected]<>
sasis<>[email protected]<>

エラーを返さず素通りしてしまいます。
どなたかわかる方おりませんでしょうか？

@KENSAKU = grep(/$FORM{'name'}/,@DATA);
にした場合や、
@KENSAKU = grep(/$FORM{'email'}/,@DATA);
にした場合は、
正常にエラーを返します。

>>549
&error("エラー") if (join ' ',@DATA) =~ /\s$FORM{'name'}<>/ || /<>$FORM{'email'}<>/;
$ok = 1;

ではなくって？

> $FORM{'email'} = "[email protected]";
右辺値が変数展開されるです。-> \@desu.com

>>550
できました。どうもありがとうございました。

http://www2s.biglobe.ne.jp/~yasuu/anthologys.html


のCGIを改造したいと思っています。
投稿者のIP表示をするにはどのようなことをすればよいでしょうか。
ご教授賜わりたく思います　ぜひとも宜しくお願いします。

>>552
print $ENV{'REMOTE_ADDR'} ;

リモートホストを見える形で公開、なら一瞬で終わるな。
IPはそもそも取得してないので表示しようと思ったら書き込み処理から書き換える必要がある。
とりあえず>1の(3)

先日お世話になりました505です。
前回のアドバイスで改造も順調に進み、大変感謝いたしております。

今回また質問させていただきたいでのすが、KENTさんのYYBOADが
Ver5××からログの保存形式変更になったことに伴い
自分のスクリプトにも過去ログの保存形式だけ移植いたしました。
そこで、過去ログをスレッドリスト表示とし、そこから各ｽﾚにﾘﾝｸを
貼るというカタチにしたのですが、1点壁にぶちあたったのでご教授願います。

テスト→　http://lovely-aya.appletea.to/cgi/test/yybbs.cgi

スクリプト→　http://lovely-aya.appletea.to/cgi/test/kaizou.txt

改造点としては、過去ログサブルーチンpast においてはテーブルによる
スレタイトルのみの表示とし、各ｽﾚの中身は
新規にpast_oneというサブルーチンによって表示させてます。
そこで問題があったのは、最初に過去ログを表示させた時に開いてるファイル
（過去ログ�ｃtァイル。　0002.cgiなど）においては、きちんとﾘﾝｸするのですが
別ファイルに移行した時（0001.cgi）にはﾘﾝｸされません。

恐らく、スクリプトの1772行目
$file = sprintf("%s%04d\.cgi", $pastdir,$in{'pastlog'});
ここでのファイルの定義を直さなければいけないとは思うのですが
なにぶん初心者なものでどうしていいのかわからず相談いたしました。

なにとぞご教授、よろしくお願いいたします。

>>555
> 別ファイルに移行した時（0001.cgi）にはﾘﾝｸされません。
具体的でないのでよく判りません。
$pastdir の表記は合っていますか？
デフォルトでは相対表記「./past/」になっていますけれども。

♪しかし相変わらずよくこんなワケワカメスクリプト配布してるよなぁ。。。＠ある意味えらいよ KENT さま

>556
＞具体的でないのでよく判りません。

えっとですね。。
過去ログページに入室した際に最初に表示されてるページ
（その時点での最新過去ログ�ｃtァイル）
においてはﾘﾝｸが有効なのですが、

ファイル�� →選択→移動

したあとに表示されるページにおいてはﾘﾝｸがいかないのです

$pastdir の表記は大丈夫だと思います。
過去ログ1ページ目（１ファイル目）では問題なく表示されてますので。。

$file = sprintf("%s%04d\.cgi", $pastdir,$in{'pastlog'});
の%s%04d\.cgiの部分に問題ありなのかな？と思ったのですが・・＾＾

>>557
あーなんとなく判ってきた。
空表示の際のHTMLを眺めると判ると思うけれども、
<dl>
</tr>
となっているのでこの間が出力されていない。のが原因。
その要因は・・・
sub past_one の中にある、
while (<IN>)
ブロックが実行されていないから。
その要因は。
$file = sprintf("%s%04d\.cgi", $pastdir,$in{'pastlog'});
で、ファイル名を定義しているけれども、
open(IN,"$file") || &error("Open Error: $file");
で、エラーに飛んで逝ってないので、ファイルは存在するけれどもファイルの中身が空、もしくは、空行や0のみの行が含まれているのがそもそもの根元かと。
1779行目の
while (<IN>) {
を、
while (defined(my $line = <IN>)) {
$_ = $line;
の２行に差替えてみて、それでも何も表示されないのであるならば 「ファイルの中身が空」ということが確定するでしょう。

それはさておき、こんなグダグダのスクリプトと付き合っていると人間を辞める羽目になると思うので早急にほかのスクリプトに移行しましょう。改造してても疲れるだけでしょ？
ついでに吐き出される HTML も無茶苦茶だし。

って事で、貴重な時間を費やした（ｗついでに提案。
次スレッドのテンプレートに、
「KENT が配布しているスクリプトについては却下します。」
の１行を追加しませんか？

♪久しぶりに出てきてみた。

「web拍手」をカスタマイズしよう！
http://pc2.2ch.net/test/read.cgi/tech/1071325838/

から誘導されてきました。

>>560
誘導されてきたからどうだっていうの？
誘導されたって言う報告をしに来たの？
それとも誘導されたという事について意見を求めているの？

君には決定的に何かが足りない。
それがわからなければ、永遠にスルーされるであろう。

>505
過去ログの番号を past_oneサブルーチンに渡していないようですね。
過去ログ1ページ目が上手くいくのは
if (!$in{'pastlog'}) { $in{'pastlog'} = $no; }
のおかげ。

1713行目
× $script?mode=past_one&no=$no
○ $script?mode=past_one&no=$no&pastlog=$in{'pastlog'}


>>558
while (<IN>) { ... }
while (defined($_ = <IN>)) { ... }
この二つは等価ですよ。
http://www.perldoc.com/perl5.8.0/pod/perlop.html#I-O-Operators

>562
ありがとうございました〜！！
きちんと表示されるようになりました！

ただ教えてもらっただけじゃなく、
それがどういう意味なのかを、本を買うなりして
きちんと勉強していきます！

>558
すみません。自分はまだKENTのｽｸﾘﾌﾟﾄの
どこがどうグダグダなのかわかっていないレベルなもので＾＾；
今後も日々勉強し、自分で１から作れるように努力します。

>>563
俺もKENTにperlを習った口だ。
まだまだKENTの呪縛は抜けきらないが、日々精進して更生してるよ。
use strict;を心掛けるのが第一歩かな。
そうすればmyの使い方も自然と身に憑くし。

それ以前におまいはインデントが滅茶苦茶だったな。
インデントとコメント文をきちんと書くようにしろ。
自分があとで見てすぐにわかるようにしないといけないぞ。

>564

アドバイスありがとうございますm(__)m
おっしゃるとおり、インデントは無茶苦茶でした（汗
構文などを理解してないまま、見よう見まねで記述したため
大変醜いｽｸﾘﾌﾟﾄとなってしまいました。
挙句、自分でもどこがどういう処理をしているのか
理解に苦しむ時が何度も・・・＾＾；

せっかく「ほんの少し」Perlを理解しはじめてきましたので
これを機に、きちんと本格的に勉強したいと思います。

>>562
なるほど、ありがとうです。
5.8系 かぁ。。。

このスレで適当かどうかイマイチ自信ないので違ってたら指摘して下さい。

最近「Encode.pm」の存在を知り、使っているレンタルサーバーにも実装されている
亊が判明したので、自宅テストサーバーにもインストール（perlのバージョンを上げ
た）して、既に稼働しているCGI用perlスクリプトのjcode.pl使用部分をEncode.pm
用に書き直して実行してみたら日本語が見事に全部文字化けて困っています。
　CGI実行スクリプトの文字コードをUTF-8にしないといけないのかな？などと考え
て試してみましたが化け方が変わっただけで文字化けている亊に変わりなしでした。
　テストは自宅サーバー、レンタルサーバー上の両方で行ない結果はどちらも同じ結果でした。
　念の為にJcode.pmを使うように記述を変えてみると正しく日本語変換されました。
環境は以下
自宅テストサーバー（Mac OS X 10.2.8にperl 5.8にインストール Encode.pm Jcode.pm 何れもCPAN経由での最新版）
レンタルサーバー（Linux perl 5.8 Encode.pm Jcode.pm 何れも実行ファイル一式インストールされている事は確認済み）

KENTのYYはだいぶ前から更新停まってるよな。
petitなんかはまだ少しずつマシになってるんだけど、
yyはもうちょっとしたカオス。

http://techside.net/i_shot_p/vi.cgi
のi-shot掲示板が欲しいので、よろしこ

レッツPHPの「写メールBBS」で、
最新の写真だけファイル名を固定したいのですが（例:recent.jpg）、
何か方法があれば是非教えてください。

ttp://www.lira.co.jp/t-room/re_cgi/history/index.html
これにメール送信機能をつけようとしましたがうまく出来ません。複数人数が書き込みするためチェックが必要です。
とりあえず以下のようにしてみました。

$sendmail = '/usr/sbin/sendmail';　　#sendmailのパス
$tomail = '[email protected]';　　　#送信先アドレス
を追加。
某メール送信CGIからコピー
------------------------
sub send_mail {
$message = <<_MESSAGE_;
Subject: 書き込みありました。
From: $in{'mail'}
To: $tomail
-----
〜ここに内容〜
_MESSAGE_

&jcode'convert(*message,'jis');
open(EMAIL,"|$sendmail $mail") || &error("プログラムエラー','SendMailがオープンできません");
print EMAIL $message;
close(EMAIL);
}
------------------------
これを、記事登録の前に実行するため
sub edit1 {
&send_mail;　　
〜〜
と言う風に挿入。
この状態で、記事は登録されるのですが、メールが届きません。アドレスの間違えではないとした場合、他に何が考えられますか?
よろしくお願いします。

>>571
＞　open(EMAIL,"|$sendmail $mail")
$mailって何が入ってる？

それにヘッダは出力してる？

>>572
早速の返答ありがとうございます。
前にも書いてますが、コピペしただけなので基本的なことが理解できてないです。
>>　open(EMAIL,"|$sendmail $mail")
>$mailって何が入ってる？
何も入ってないかと…
この場合、
open(EMAIL,"|$sendmail")　でOKでしょうか?

>ヘッダは出力してる？
えーと、どこに入れる必要があるのでしょうか?メールフォームのコピー元を見ましたが、
ヘッダーを出力するような部分は見当たらないのですが…

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

>570
受け取った際に、通常のファイル記録に加え、recent.jpgに上書きする処理を追加。
当然recent.jpgと同じ内容の画像が常に存在する事になるけどな。
recent.jpgをhtmlに貼り付けておきたい、とかの用途ならこれで充分。

>571
$mailを$tomailに書き換え。あるいは$sendmail -t　にする。前者を個人的に推奨。
あと、文字化けの可能性を考慮してSubjectはFromやToのあとにするか、英字にするのが無難。

>>574
なるほど。やってみます。ありがとうございます。

>>574
ありがとうございます。
ばっちり出来ました。

すんません、
http://www.webclap.com/
にあるweb拍手ですが送れるメッセージ数を変えるにはどこを弄ったらいいのでしょう？
色々と調べてみましたがてんでわかりませぬ…

>>577
Web拍手とやらが何だか全く知らんが。
作った奴に聞け。

>>578
ナウでヤングなwebサービスですよ

>>577
なぜ>>1に従わないのかわかりませぬ…

>>579
そんなことはきいちゃいねえ。
てか、こっちが言った内容は理解してんのか。

反抗期なんだろ

チャットの発言ランキングを処理する部分なんですけど、
IMAGE SRC="１×１ドットの画像" width="発言回数"　という感じでグラフを
表示したいのです。今の下の処理だと、発言回数が増えるたびに無限にグラフが
右へ伸びていってしまうので、１位を１５０ピクセルに固定して、あとは
１位に対する比率で表示させたいのですが・・・どういう処理を追加したらいいのでしょうか。
ご教授お願いします。

今のスクリプトです。

sub ranking {
open(IN,"$rankfile") || &error("Open Error : $rankfile");
@lines = <IN>;
close(IN);

print "<P>- 以下は $limit日以内の発言を対象としたランキング一覧です -<P>\n";
print "<table border=1 cellspacing=0>\n";
print "<tr><th>順位</th><th>おなまえ</th><th>発言回数</th><th width=\"150\">グラフ</th></tr>\n";

foreach $line (@lines) {
($name,$count,$times) = split(/<>/,$line);
$count{$name} = $count;
}

$rank1 = 0;
$rank2 = 1;
$count_tmp = 0;
foreach (sort { ($count{$b} <=> $count{$a}) || ($a cmp $b)} keys(%count)) {
($count{$_} == $count_tmp) || ($rank1 = $rank2);
print "<tr><td>No\.<b>$rank1</b></td><th>$_</th><th>$count{$_}</th><td><IMG SRC=\"log3.gif\" HEIGHT=\"15\" WIDTH=\"$count{$_}\"></td></tr>\n";
$count_tmp = $count{$_};
$rank2++;
}

print "</table><P>\n";
&footer;
exit;
}

$rank1 = 0;
$rank2 = 1;
$count_tmp = 0;
$count_max = 0;
foreach (sort { ($count{$b} <=> $count{$a}) || ($a cmp $b)} keys(%count)) {
　($count{$_} == $count_tmp) || ($rank1 = $rank2);
　($count{$_} > $count_max) && ($count_max = $count{$_});
　$width = $count{$_} / $count_max * 150;
　print "<tr><td>No\.<b>$rank1</b></td><th>$_</th><th>$count{$_}</th><td><IMG SRC=\"log3.gif\" HEIGHT=\"15\" WIDTH=\"$width\"></td></tr>\n";
　$count_tmp = $count{$_};
　$rank2++;
}

表示しながらの最中にエラーが発生すると、ヘッダとかもいっしょに出力しちゃいそうですよね。
脳内でエラーが出ないことを前提にしているような。
メモリに溜め込むか一時ファイルにして、エラーがなければドバドバと表示させてあげた方がよいかと思うけれども。

>>856
ﾁﾐはWWWサーバをもっと勉強するべし！

>>586
エラーメッセージごときに、そこまで気を遣ってわざわざメモリーに溜め込んで、負荷を増大させるメリットがわからん。
って、ロジック見直せ。

>>585
$width = int($count{$_} / $count_max * 150);　にしたほうがよかった

番組で１について話したゾマホンです。
あのね、前はずっと１を見るといつも怒っていたけど、
やっとわかってきた、１は本当の犠牲者
なぜ犠牲者かというと、
１の親は自由というものを結構入れすぎるから
こういうパソコンとかがいっぱい与えた
１はパソコン好きでたまらなくて引きこもった
それはいけないことです。
それはごはん親が運ぶ、ダメです。
というのは親のせいだけじゃなくて
この社会のえらい人々アイティ革命のせいだと私は思う
こういう２ちゃんねるは１００パーセント間違い
もっときれいなホムページをすすめたい
例えばヤフー、あるいは首相官邸、
ああいうページはたくさんある
あなたは１ヶ月で１００万のスレ荒らす、それは怖いよ
荒らしをしてる、あなたは荒らしをしてる
それはね荒らしまでね人の名前を煽って
キショヲタで自分の部屋にひきこもって
臭いは本当にきれいな人間とは言えない、以上、変わってください

>>585氏
>>589氏
早速のレス、ありがとうございます。
書き込みの通りスクリプトを書き換えてうｐしたところ、
５００エラーが出てしまいました。
うーん、どこがおかしかったんでしょうか・・・

>>591
コピペしたんじゃないのか？
全角スペースでインデントしてあるんだぞ

自己レスになりますが・・・
あれから無事なんとか解決することが出来ました。
アドバイス、お礼申し上げます。

http://php.s3.to/bbs/temp/ibbs.php?
↑の掲示板はアイコンを選択してメッセージを投稿するタイプなのですが
これをアイコンではなく投稿したメッセージ欄の
背景選択として設定したいのですがどのように変更したらよいでしょうか？
イメージ＞http://www.maiko-ism.com/sample.jpg
PHPソース＞http://www.maiko-ism.com/ibbs.txt
スキン＞http://www.maiko-ism.com/skin_main.html

スクリプト配布元＞http://php.s3.to/　レッツPHP！

>>594
ＨＴＭＬが理解出来ているならば簡単ではないかい？
スキンタイプなんだし。
完成イメージを画像でなく自分でＨＴＭＬで組み立てられれば
簡単ではない？

kent氏のフォームメール（http://www.kent-web.com/data/postmail.html）で改造がしたいのですが
ある項目に入力された情報を保存して次にその項目に同じ文字を入力したらエラーが出るようにしたいんですが
どこを改造すればいいでしょうか？
教えて下さいお願いします。

>>594
Iconディレクトリに背景画像を入れる。

HTML表示用アイコン一覧
$html_icon = array('randam'=>'ランダム','cat1.gif'=>'しろねこ'　・・・
　　↓
$html_icon = array('randam'=>'ランダム','bk00.jpg'=>'背景00'　・・・

ランダムの画像候補
$rand_icon = array('cat1.gif','dog1.gif'　・・・
　　↓
$rand_icon = array('bk00.jpg','bk01.jpg　・・・

>>594
skin_main.htmlスキンを使う場合

<!--{each oya}-->以下の
<!--{def oya/icon}--><img src="{$oya/icon}"><!--{/def}-->　を削除。
及びそれぞれの<td>に　background={$oya/icon}　を足す。

<!--{each oya/res}-->以下の
<!--{def oya/res/icon}--><img src="{$oya/res/icon}" align=middle><!--{/def}-->を削除。
及びそれぞれの<td>に　background={$oya/res/icon}　を足す。

レス書き画面とかも同じ要領でやっていけばいい。

>>595
>>597
>>598
指示通りにやったらできました。
どうもありがとうございました。

誰も答えてくれなさそうだったので、ｶｳﾝﾀのIPﾁｪｯｸを参考にｺﾋﾟﾍﾟで作ってしまいました。
ｽﾚ汚しｽﾏｿ

>>600
>1を読んでなさそうな香具師は放置だぎゃー

うん、その通り

MT-BOARD ver0.5 betaという2ch風cgi（例えばttp://cgi1.biwa.ne.jp/~platz/bbsa/mag/)
でクッキー保存されないのですが、ここでJavaScriptを使ってクッキーを保存するにはどうしたらいいんですかね？

>>603
アフォか。
まず、>>1読め。
「ベースがKENT」って時点でソース読む気がないんだが……。
クッキーが保存できないようなタコなスクリプトなんぞ使うな。
しかもそれを余計に面倒くさいJavaScriptでの保存なんか考えるな。

うん、その通り　

>>604
HTML表示だからJavaScriptしか保存はできないだろうが

>>606
いや、だからソースは読んでないって。
読む気もないって。

>>606
アホですか？

>>604
> 「ベースがKENT」って時点でソース読む気がないんだが……。
それはお前の都合じゃないのか？

>>609
俺はKENTのソース見たこと無い。
っつーか見る木にもならない。

教えて頂きたいのですけども,
tackyさんの掲示板、えれべーたぁ(http://tackysroom.com/cgi_updown.htm)を、
２ｃｈのように記事のタイトルを上部に表示させるように改造するには
どうしたらよいでしょう。何卒宜しくお願い致します。

>>603

http://member.nifty.ne.jp/marsh/misya/java/parts/cookie1.html
http://useyan.pupu.jp/s/javas/java/aer_087.htm

JavaScriptでのクッキー保存の方法ね。
このへん読みながら工夫するといいかも。

オッス、オラ悟空。
オラの一日はまず、界王様のｷｽで起こされるんだ。そして、天津飯とヤムチャが二人がかりでオラをかつぎ上げ便所へ。
次は朝飯だ。兎人参家がもう用意している。グルドが助手だ。なぜかﾒｲﾄﾞ服を着ているんだ。
オラおどれえたぞ。そんなにオラに気に入られたいのか？喉が渇いたんでサイバイマンの溶解液でも飲むか。
サイバイマンが頭をオラの口へ持って来るんだ。…まじい、飲めたもんじゃねえぞ！オラ、サイバイマンの頭をふっとばしちまったぞ！
歯はグルドに磨いてもらって、うがい用の超神水はカリン様が口移しなんだ。
んじゃ、ここも飽きたしオラもう一つの家へ行くぞ！って言ったら、皆ｳﾙｳﾙと目に涙浮かべながら
グルド「行かないで…」天津飯「行かないで…」ヤムチャ「行ｔｙｒくっで…」
ヤムチャだけ噛んじまったぞ！こんなやつらさっさと置いといて家を出ちまったんだ。
家の前には筋斗雲があって、運転手は８ちゃんだ。もう一つの家は瞬間移動で行けるけど、オラ気を使いたくねえぞ。
オラ、第二の我が家へ着いたんだ。出迎えは裸ｴﾌﾟﾛﾝの牛魔王だ。それにしてもｴﾛい体だぞー。
他の奴らも奥にいるんだ。そろそろ一発抜きたくなっちまったんでオラﾍﾞｯﾄﾞに大の字になって皆を呼んだんだ。
右の乳首をﾒｲﾄﾞ服のグルドが舐めて、左乳首をYｼｬﾂ一枚のナッパが舐めるんだ。右の腋や耳をダーブラが責めてきて、
左の腋や耳を第２形態のセルが責めてくるんだ。オラの両手はグルド、天津飯、ナッパ、ダーブラのちんちんを手コキだ。
オラ忙しいぞ！左足を牛魔王、右足をコルド大王が、おっぱいﾏﾝｺで一生懸命さわさわだ。牛魔王は裸ｴﾌﾟﾛﾝのままだ。
チャパ王はなぜか体操着ﾙｰｽﾞｿｯｸｽに着替えてきちまったんだ。ﾌﾞﾙﾏは穿いてねえ。下半身丸出しだ。
それにしても幼児体型だぞー。シンバルのﾊﾟｲﾊﾟﾝﾏﾝｺはオラの顔へ持ってきてｸﾝﾆだ。スポポビッチがｱﾅﾙや玉袋を舐めるぞ。
そして１６号の登場だ。騎乗位でオラに跨ってきたぞ。笑顔のくせに爆弾は原爆級じゃねえか。オラびっくりしたぞ！
牛魔王、セル、コルド、シンバル、チャパ王、16号がオラを責め立てるから、オラ超サイヤ人４になっちまったぞ…　
いっつもの日課の修行が終わって、だりぃけどオラが居ないと宇宙が傾いちまうからここで元気玉打つぞ。これがオラの一日だ。
絶対見てくれよな！

>>611
教えてやってもいいけど>>1嫁
君の場合『完成イメージHTML』は必須だな

>603
>クッキーが保存できないようなタコなスクリプトなんぞ使うな
がかなり正解に近い。

お久しぶりです。以前お世話になった505です。
皆様のアドバイスのおかげでＢＢＳの改造もほぼ完了することができましたm(__)m

今回お聞きしたいのは、以前改造した「レスは最新10件のみ表示する」
ことに関してなんです。

以前の改造方法ですと、一度ログを読み出してから、各ブロック（タイトル、ｱｲｺﾝ、コメントなど）
に対して何度もif文で条件づけをしてやっていたという状況なのですが、
なにげに不効率に感じていました。

そこで、最初にログを読み出した時点で制限できないものかと思いまして・・
407行目にある
while(<IN>){
if((split(/<>/))[1] eq "") { $i++; }
if ($i < $page + 1) { next; }
if ($i > $page + $p_log) { next; }
push(@DATA,$_);

の部分で、まずＴＯＰに表示する「親記事」の数を制限してるんですよね。
ここでさらにレス数もカウントして

--もしレス数が$syoryakuより小さければそのまま表示し、
　　　　大きければ「最新$syoryaku件」だけを表示せよ--

というふうにしたほうが記事表示部でifを多用するよりイイかなと思ったんですが・・＾＾
なにぶんどのように記述してよいかわからなかったもので、ご教授頂きたく投稿しました。
なにとぞ宜しくお願い致しますm(__)m

ソースhttp://lovely-aya.appletea.to/cgi/test/kaizou.txt
ＢＢＳhttp://lovely-aya.appletea.to/cgi/test/yybbs.cgi#menu

>>616
あいかわらずインデントが滅茶苦茶だなぁ
やり直せ
話はそれからだ。

KENTのYY-BOARDをjcode.pmでutf-8化しようと思ったんだが、
Cookieの取得で日本語文字コードが上手く入ってくれない。（半角文字は大丈夫だった）
クッキー取得は以下の通り。ドコがいけないのかな？
sub get_cookie {
  local($key, $val, *ck);
  $ck = $ENV{'HTTP_COOKIE'};
  foreach (split(/;/, $ck)) {
    ($key, $val) = split(/=/);
    $key =~ s/\s//g;
    $ck{$key} = $val;
  }
  @ck = split(/<>/, $ck{'YY_BBS'});
  return (@ck);
}

ちなみに、cookie内にはちゃんとutf-8で文字列が格納されてまつ。

$ck = $ENV{'HTTP_COOKIE'};
これに問題があるようでつね。ちと調べなおしてきまつ。

とほほのクッキー見て解決しますたつ∀｀)
スレ汚しｽﾝﾏｿ

解決しますたつ

mini BBSの改造を続けてやっと公開に漕ぎ着けたのですが、
http://www.pine-kz.com/camera/camera.html
ImageMagickでの自動サムネイル作成で、サーバのプロセスサイズから200万画素
という制限（jpegのサイズを色々変えて確認）をができちゃったのですが、なん
か良い回避策ないですかね？

open(IMG3,"$tmp_dir$attc");
$org_sz = newFromJpeg GD::Image(\*IMG3);
@bound = $org_sz->getBounds();
if ($bound[0] > $bound[1]) { $thumW = $img_width;
} else { $thumW = $img_width * $bound[0] / $bound[1];}
print DAT "original width: $bound[0] original height: $bound[1]\n thum: $thumnal $thumW\n";
system("/usr/bin/convert $org_img -scale $thumW -sharpen 80 $thumnal");
$org_sz = "";
close(IMG3);

つД｀)
KENTのスクリプ�dって、Cookieでの文字化けは対応してないのね（「表示」とか）

>>622
ImageMagickっていいながら、それはGDのソースじゃん。

/usr/bin/convert がImageMagickの本体です。
普段 GUIのImageMagickを使っていて、変換後の品質が非常に良いのでこれを
使いたいと思って組込んだんですが、622で質問した後、色々検索してみて、
1)GDでそのままやる
2)PerlMagickを呼ぶ
3)Imagerを呼ぶ
という方法を考えてみました。

メモリー(プロセス)サイズを一番節約できる＝アップロードできる画素サイズ
を大きくできる、という方向ではどれが良いのでしょうか？
（jpegを刻んで変換してから連結するというのは見つかりませんでした）

convert のオプションでリソース制限ができるのを読み落していたのですが、
-limit memory 1 -limit map 1 を付け加えるとスクリプトエラーを起さずに
ただサムネイルを作ってくれなくなりました。
自分のパソコンだと、/tmp にテンポラリファイルを作成して作業完了すると
ちゃんと消去して終るのです。なんで？

>>626
おまい単なる質問ならスレ違いじゃないか？

結局、convertの limitオプションはサーバにインストールされてるバージョン
が少し古くて使えないのだった。
動かない理由は、GDを使って大きなファイルを開いてから更にgetBounds()で
操作しようとした所為だった。関数を呼んだ時点でメモリサイズがサーバの
制限を越えてる。
サーバにインストールされてるソフトを外部コマンドとして呼び出すほうが、
pmベースで操作するより断然有利だ。

・・・Web検索では GDでgetBounds()しか見つからなかったので、その通りに
やってみたのだけど、identifyを呼び出したらメモリ制限で止まらなくなった。
200万画素の制限もなくなりました。（ディスクスペースが大きいといっても
4MBの画像をアップし続けたら100枚足らずだから自粛しないとすぐ終ってしまうが）

>>628
そもそも、4MBの画像をアップするってどういう状況？
普通はもっと減らしてどうにかするもんじゃないの？

>>629
もっと減らしてどうにかすると、その先にあるのは？
ディスプレイ上で一覧できるサイズであれば可というのは昔ありました。
写真をクローズアップしてなお解像感が維持されることで、空間把握に繋がる
というのを意識してるんだが。
（プリント時のdpiがどうのというのとは別）
ああ、俺が変態なのかもしれんが。

一覧性というのは、構図とか構成とか意匠とかそういうものの評価に繋がって
いるのだけど、そうではなくてマクロ領域で撮影されたものをもっとクローズ
アップして見たくなるとかそういう欲求の話をしているの。

昔のちんけなスパイ映画かSF映画で撮影した画像をどこまでも拡大していくの
があったじゃない。インチキだってのはすぐ解ったけれど、状況は変りつつある。
（デジタル写真の現状をただ肯定しているわけではないが）

quota

test

http://sugoiyo.com/thebbscgi/contents/download/
ここのver.2.3.3のスクなんですけど、
このスレッド式掲示板に、htmlタグを使えるようにしたいのですが、
いくらやっても出来ないんです。
ttp://www.civilizer.net/undef/perler/cgisec/502.html
こことかも見てやったんですがさっぱり…

申し訳ありませんがお教えいただけないでしょうか？

>>633
「いくらやっても出来ない」 とは、自分で改造してみたんだけど出来なかったという意味なのかな？
だったらどんな改造を試してみたのかここで報告してくれ。

>>634
申し訳ありません。
自分で改造してみたんです。でも出来ませんでした。

http://v.isp.2ch.net/up/a99bb3f01517.txt
↑スクリプト

タグ関連はsub form_decodeのところにあったので

$string =~ s/</\e/g;
foreach (@tmparray){
my($a,$b)=split(/=/,$_);
$b =~ tr/+/ /;
$b =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/chr(hex($1))/eg;
$b =~ s/</</g;
$b =~ s/>/>/g;
$string =~ s/\e\/?\s*$tags\s+/<$tags /ig;
$b =~ s/\t/ /g;
$b =~ s/\r//g;
なんて適当に…
ほかにもこんな感じでいろいろ試しました。

perlとか基本的なことくらいしか分からなくて

お手数おかけします。

あ、$stringのとこはちゃんと$bにしました。

$tagのところも
ttp://www.civilizer.net/undef/perler/cgisec/502.html
を参考にしてやりました。

$b =~ s/</\e/g;# まだ$bに値が入ってないところで<を\eに置換しても置換されてない。
foreach (@tmparray){
  my($a,$b)=split(/=/,$_);# $aと$bは特殊な変数でuse strict対象外。$aと$bは使用しないほうがよい。
  $b =~ tr/+/ /;
  $b =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/chr(hex($1))/eg;
  $b =~ s/</&lt;/g;# 2chでは、&lt; は &amp;lt; って書くといいよ。だけど、この行無意味
  $b =~ s/>/&gt;/g;# 2chでは、&gt; は &amp;gt; って書くといいよ。
  $b =~ s/\e\/?\s*$tags\s+/<$tags /ig;# 上のほうで\eに置換されて無いので、この行無意味
  $b =~ s/\t/ /g;
  $b =~ s/\r//g;

しかも、
  $b =~ s/\e\/?\s*$tags\s+/<$tags /ig;
は、
  foreach $tag ( @allowtags )
  {
    $b =~ s/\e\/?\s*$tags\s+/<$tags /ig; # 許可タグとその閉じタグは許す
    }
  $b =~ s/\e/&lt;/g; # 許可タグ以外は &lt;にする

（削除）
foreach (@tmparray){
my($a,$b)=split(/=/,$_);
$b =~ tr/+/ /;
$b =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/chr(hex($1))/eg;
（削除）
（削除）
（削除）
$b =~ s/\t/ /g;
$b =~ s/\r//g;

要は<や>を＆ｌｔ；や＆ｇｔ；に置換してる部分を丸ごと捨てればいい。
許可したタグ以外は使用不能にしたいなら>637を参考にその方針で頑張れ。

ゆいりんく1.0(ttp://www.cj-c.com/)を改造中です。
何をどういじったのか良くわからないのですが、データの削除が出来ません。

本体のみ(txt)
ttp://www.geocities.co.jp/SiliconValley/9193/nc/nc.txt
全ファイル
ttp://www.geocities.co.jp/SiliconValley/9193/nc/nc.lzh
オリジナル
ttp://www.geocities.co.jp/SiliconValley/9193/nc/link.lzh
です。

sub edit{
下のほうでデータの削除が出来るようになっています。
削除チェックボックスにチェックを入れ削除ボタンを押すと
sub del{
に移動します。そこで削除されるようなのですが、どうもうまく行っていないようです。
どこを修正したらいいでしょうか?よろしくお願いします。

オリジナルに戻せばいいんじゃないかな、と。
というか、どこをどう修正したか分からなくなるような奴はいじるな。

カテゴリ登録のサイトをもくろんでます。

例えば
カテゴリABC：a-z (cate 0から5)
カテゴリあいう：あ-ん (cate 6から10)
カテゴリイロハ：イ-ン (cate 11から15)
の３カテゴリがあるとします。

本当は一つのサイトを各カテゴリに一つずつ登録させたいのですが、（例：B、か、ユ etc,.）
以下のスクリプトを繰り返しコピペしただけでは３番目のカテゴリのみの登録になってしまいます。
どうすれば、各一つずつ登録できるようになるのでしょうか？
先輩方よろしくお願いします。

<td>カテゴリ</td>
<td><select name="cate">
EOF

foreach (0 .. $#cates) {
if ($in{'cate'} eq "$_") { print qq(<option value="$_" selected>$cates[$_]\n); }
else { print qq(<option value="$_">$cates[$_]\n); }
}

print <<"EOF";


出所は taitai studio の Link & Rank (ver3.1) の regist.cgi です。

激しく改造が必要。
この場合、入力フォームだけではなく、記録部、記録直後の確認画面、表示画面も改造する必要がある。
ざっと見た感じカテゴリごとにフォルダを作ってログを管理してるので、そっちの形式もいじる事になる。

戦艦大和を海から引き上げて宇宙戦艦に改造する程の手間。他のCGIを探す事を薦める。

>>642
ご返答ありがとうございます。
他をあたってみます
お薦めなどがありましたらお知らせいただければありがたいです。

本文



本文

と入力して、
<p>本文</p>

<p style="margin-top:3（←改行した数）em;">本文</p>

というように出力させるにはどうすればいいのでしょうか？　現在の掲示板では

# 複数の改行は段落に変換
$value =~ s/(<br \/>){2,}/<\/p><p>/g;

となっています。

>>643
一言だけ。
スレ違いっつーか板違い。CGI探しはWeb製作板へ。確か。

【CGI】こんなCGI探してますver.1.1【素材】
http://pc2.2ch.net/test/read.cgi/hp/1067286961/

Hyper Search　（ttp://aki.adam.ne.jp/php/hysearch.php）を改造しようとしてます。
一枚のｐｈｐで左にメニュー右に検索結果と出るんですが
これをフレームで分割できるように出来るでしょうか？


全ファイル
ttp://junk.s41.xrea.com/test/hysearch.zip

>>647
できるだろ。
そんな糞面倒なこと俺は絶対やらないが。
できるかできないかで聞かれたからそれだけでこたえてみたが、
やり方はきかれても教えるつもりはない。
他の連中も教えるつもりがないから今まで黙っている訳で。
まあ、なんだ。努力する気が見えない奴には知ってる奴も教えたくなくなるってこった。

>>648
返答有難うございます
やっぱ面倒ですか。。。。
PHPの本片手に色々考えてみたんですが
僕の様なペーペーにはまだ無理ですね
もう少し勉強してきます<m(__)m>

何て言うか、全くプログラムに無知でも検索とコピペで何とかなりそうなのを依頼してる奴は氏ね。

>>650
検索とコピペで何とかなるんですか・・・
一通り調べて分割するところまでは自力で出来たんですが
左メニューのリンクをtargetで右に表示させる方法を何とか探してる最中です。
もう少し頑張ってみますです。
出来上がったらソースを提出するのでダメだしお願いできますか？

>>651
HTMLの理解はCGIをやる上での前提事項だ。
これが一通りできないのであれば、CGIはやるべきではない。
出直してこい。悪いことは言わない。
基礎がないのに応用ができるわけはない。
これは、マジな忠告だ。

その点、ちょっとでも HTML 絡みの話が出ると、「 Web 製作板逝って良し」ってなるのはちょっぴり悲しいかも。＠内容にもよるけれども。
もしかしてそのお陰？で、不思議マークアップを吐き出す CGI スクリプト類が氾濫しているのだろうか？

>>653
中には、故意にそうしている奴もいるかも。
故意にinvalidなタグを吐いて、パクられた時の証拠にするみたいな。

>>653
運用情報板で不思議コード書いて「WebProg板へ逝って良し」と言われたのか？

>647
PHP的な処理で本当にフレーム分割しようとするとかなりの手間。

実はCSSとかJavaScriptでフレームっぽい外見/仕様にするだけなら比較的簡単。
http://www.42ch.net/UploaderSmall/source/1074031258.dat
（表示できない場合拡張子をhtmに）
もう少し練れば美しくできると思う。
ただ、ブラウザによっては小汚くなる。

と、補足忘れた。上記の例はCSSだけ使って、JavaScriptは使ってない。
で、美しさよりもフレーム分割っぽい外観に似せる事を重視してる。
美しくするにはどうすれば、とか、JavaScriptで実装するには？とかはweb製作板の人間に聞いてくれ。

>>651
いや、おまいに言ったんじゃなくて、このスレ全体を見て言ったんだけどね……。
上の方に凄いのが居るだろ。

KENTさんの掲示板でYY-BOARD を使ってます
サンプル
http://www.kent-web.com/bbs/yybbs/yybbs.cgi
配布URI
http://www.kent-web.com/cgi/down.cgi?down=www.kent-web.com/dload/yybbs.lzh&name=YY-BOARD

プロキシ経由での連続投稿プログラム使用を禁止したいのですが、設定では特定IPしか
弾けないのでどのように改造したら良いでしょうか。

トップページに、「あなたはプロキシ経由ですか？ Yes No」みたいな

ページをつくればいいよ。

>>659
自分で改造してみて、それでも分からなかったら質問して下さい。
丸投げは禁止です。

とてつもなく亀レスで申し訳ありません・・・去年>>546を書いた者です。
所用でＰＣ触る機会がなく今日ようやく時間ができたのでお礼だけ書かせてください。
>>548さん、丁寧な解説感謝です。ずっと「これでいいんだろうか・・・」って引っ掛かっていたものがなくなりました。
まだここを見てくれてるかわかりませんが、本当に助かりました。ありがとうございました。

>>659
proxyとは限らずに、連続投稿自体を制限すればいいんではないのか？
# ここに質問書き込む奴って、そういう仕様部分のツメも甘い気がする。

>>655
ぎくっ

663に同意。

>>659
串変えながらの連続投稿プログラムはOKですか？

【CGI】こんなCGI探してますver.1.1【素材】＠Web制作
ttp://pc2.2ch.net/test/read.cgi/hp/1067286961/l50
から誘導されてきました。

ttp://specters.net/cgipon/yoyuuha/
の余裕派掲示板なのですが、（cgiのあるところ、ttp://specters.net/cgipon/yoyuuha/yyh_262.zip）
UAの取得がなされていないので、「UAの取得」に関する記述を、どこ（何行目）にどのように差し込んだら取得されるのかがわかりませんでした。

わかる方、お教えくださいますようお願いいたします。

素人考えですが、
同じURIで振り分けを実装してるということは何らかの形でUAは取得しているのでしょうか？
あと、最近のAUはmobile browserなので、振り分けをi-mode用にしたいんです。

>>667
遅くなってすまん、誘導した本人だ。

UAは取得しているよ。
2033行目の
# [ ブラウザのチェック ]
の下でね。

わるいけど、俺はお前が何をしたいのかさっぱりわからん。

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

やりたいのは、
１．UAを掲示板のログファイルに記録して、出力する。
２．AUがPC版を表示するのをi-mode版を表示するようにする。
の二点です。

>>670

248:
$tit,$mes,$adm,$tim,$ipa,$rmh) = split(/,/,$_);
$tit,$mes,$adm,$tim,$ipa,$rmh,$ua) = split(/,/,$_);

328:
<!-- [$ipa($rmh)] -->
<!-- [$ipa($rmh):$ua] -->

390:
$tit,$mes,$adm,$tim,$ipa,$rmh) = split(/,/,$print[0]);
$tit,$mes,$adm,$tim,$ipa,$rmh,$ua) = split(/,/,$print[0]);

410:
$ipa = "<FONT color=$coladm size=-1>[$ipa$rmh]</FONT>";
$ipa = "<FONT color=$coladm size=-1>[$ipa$rmh:$ua]</FONT>";

1413:
($num,$key,$nam,$mal,$url,$ico,$tit,$mes,$adm,$tim,$ipa,$rmh)
($num,$key,$nam,$mal,$url,$ico,$tit,$mes,$adm,$tim,$ipa,$rmh,$ip)

2313:
$cipa = $ENV{'REMOTE_ADDR'};
$cipa = $ENV{'REMOTE_ADDR'};$cua = $ENV{'HTTP_USER_AGENT'};

2336:
$input = "$cnam,$cmal,$curl,$cico,$ctit,$cmes,$cadm,$ctim,$cipa,$crmh";
$input = "$cnam,$cmal,$curl,$cico,$ctit,$cmes,$cadm,$ctim,$cipa,$crmh,$cua";

続き

2371:
$rmh = (split(/,/,$log))[11];
$rmh = (split(/,/,$log))[11];$ip = (split(/,/,$log))[12];

2379:
$log[11] = $rmh;
$log[11] = $rmh;$log[12] = $ip;

2391:
$log[11] = $rmh;
$log[11] = $rmh;$log[12] = $ip;

１．は、これでいいと思う。
２．は、AUのUAがわかんねー

修正（＾＾；

1413:
($num,$key,$nam,$mal,$url,$ico,$tit,$mes,$adm,$tim,$ipa,$rmh)
($num,$key,$nam,$mal,$url,$ico,$tit,$mes,$adm,$tim,$ipa,$rmh,$ua)

http://www.au.kddi.com/ezfactory/tec/spec/4_4.html

>671
ありがとうございます。さっそく作業に取り掛かります。

AUのUAはUP.Browserを含んでいると思います。

関係ないですが、AUのUAって回文みたいですね。

修正　その２　（＾＾；；

2371:
$rmh = (split(/,/,$log))[11];
$rmh = (split(/,/,$log))[11];$ua = (split(/,/,$log))[12];

2379:
$log[11] = $rmh;
$log[11] = $rmh;$log[12] = $ua;

2391:
$log[11] = $rmh;
$log[11] = $rmh;$log[12] = $ua;

インフルエンザかな？

で、AUのUAの件。

> 最近のAUはmobile browserなので、振り分けをi-mode用にしたいんです。
俺携帯に疎いから、よくわかんないけど
未承諾広告※タソ紹介の技術情報を見ると、
> au C3001H であれば、
> 「HTTP_USER_AGENT=KDDI-HI21 UP. Browser/6.0.2.254(GUI) MMP/1.1」と表示されます。
と書いてある。
これだと、2080行目の
elsif ($mob{car} eq 'UP.Browser') {
に引っかからないのがまずいのかな？

elsif ($mob{car} =~ /UP.Browser/) {
これでどうだろうか？

>676-677
　ありがとうございます！完璧です。
あとはソースいじくって4.01strictにすれば完成します。ありがとう御座いました。
どうしようもなくて途方にくれてたので心底助かりました。

>>678
喜んでいる所で申し訳ないが･･･

修正　その３　（＾＾；；；

1413:
($num,$key,$nam,$mal,$url,$ico,$tit,$mes,$adm,$tim,$ipa,$rmh)
($num,$key,$nam,$mal,$url,$ico,$tit,$mes,$adm,$tim,$ipa,$rmh,$ua)

（ま、ここのブロックでは使わないからどうでもいいが･･･）

完全にインフルエンザだな。
病院に逝ったほうがいいな。

今年のインフルエンザ、放っておくと死ぬよ

掲示板で、2chのように、
「○ sec たたないと書けません。（○回目、○ sec しかたっていない。）○」
と言うのを表示させたいのですが、○回目の所を1回表示ごとに1増加することがどうやるか分かりません。
規制に入れるのは考えなくても良いです。

お願いします。

>>681
>>1読んで出直せ。

>>682
(1) どの掲示板スクリプトにも対応
(2) 2chの様に「○ sec たたないと書けません。（○回目、○ sec しかたっていない。）○」と表示させる。
(3) 詳しく考えて、、○回目の所を1回表示ごとに1増加することがどうやるかだけ、分からなかった

これで宜しいでしょうか？

>>683
(1)の条件を満たすためには、スクリプトのかけらそのものではなく考え方を提示するしかない。
なので、そのものずばりを求めているならとっとと帰れ。

やりたいことはなんとなくわかったが、そのためには、アクセスしてきたマシンを一意に特定する必要がある。
この辺は、IPアドレスや、それにユーザーエージェントを併用するのが普通だろう。
これによってユーザーを特定した後、それぞれのユーザー毎に、
「最終書き込み時刻」と「その時刻以降のアクセス回数」を保存するようにすればよい。
アクセスがあった時に、以前のデータを見て表示用テキストをいじり、
現在のデータを新しい数値に変えて保存すると、上記実装が完成するだろう。

データの保存は、ファイルをflockするなり、データベースを使うなり様々な方法があり、
それらの選択はスクリプト作成者の知識と技量に左右される。

オマエの提示した条件ではこれ以上詳しくは無理だ。
さあ、教えてやったんだからとっとと帰れ。

ありがとうございます。
おかげでできました

http://cgi.www5a.biglobe.ne.jp/~fnao/cgi_nao/email.cgi
このCGIなんですが、携帯電話からでも遅れるようにしたいんです。
http://www5a.biglobe.ne.jp/~fnao/cgi_nao/chukyu3.htm
ここにスプリクトがあります。
自分でも試みてみたんですが、
http://members8.tsukaeru.net/tatsuya7bom/cgi-bin/mail.htm
http://members8.tsukaeru.net/tatsuya7bom/cgi-bin/mail.cgi
エラーで設置すらできませんでした。
無知な自分ですが、アドバイスなどよろしくおねがいします。

>>686
設置すらできないものが改造とか抜かすな。
設置できないものの大半は設定ミスだ。
自分の使ってる鯖のPerlのパスとかsendmailのパスとかをよく調べろ。

http://members8.tsukaeru.net/tatsuya7bom/cgi-bin/sensys.cgi
設置しました。しかし携帯から送信しようとすると、
cgi-lib.pl:Unknown Content-type:application/x-www-form-urlencoded;charset=shift_jis
となります。ezwebなのですが、対処法はありますか？

>>688
cgi-lib.pl が文句たれてるんだろ？
携帯の仕様を変更するのは事実上不可能だから、
1.cgi-lib.pl を改造するか
2.cgi-lib.pl を使わないで、他のものを使うように改造するか
だろ？
推測できるお前の実力からして、どっちもオススメはできないが、
しかしこれしかないな。
1.はライブラリの意味がなくなるのでそもそもスマートな方法ではない。
2.が妥当だろうし、代替手段としてCGI.pmもある。しかし、
http://perldoc.jp/docs/modules/CGI.pm-2.89/CGI.pod
これ読もうとする意思があるかどうかが問題になる。

言っておくが、「誰かが解答のスクリプトを提示してくれる」みたいな甘いことは考えるなよ。

>>686
嘘つきのマルチは氏ね

http://pc2.2ch.net/test/read.cgi/php/1011174442/80-

>>690
騙されたみたいだな、俺……。
でもこれで、俺がソースを見ないで指摘しているのがばれてしまったな。
けどどうでもいいや。

>679
ありがとうございます。>>673と同じ内容ですよね？
うまくいきました。

> 完全にインフルエンザだな。
　危険ですので早めにいかれた方がいいですよ。ご自愛を。

KENTさんのとこで配布されてるYYBOARDのVer: 5.32に
http://cuo.press.ne.jp/cgi/b05_1.html
ここで紹介されているユーザー専用アイコンを設定するのを加えたいんですけど
v4.1をベースに改造ポイントが指摘されてるため上手く出来ない状況です

”2.処理を加える”という所で似てるポイントだと思いyyini.cgiの298行目に加えたらエラーが出たりして
この処理をどこに加えたらいいのかわからず困ってます。


ソースですがKENTさんのとこのそのままですが
http://page.freett.com/yataro/yyini.txt
http://page.freett.com/yataro/yybbs.txt


アドバイスよろしくおねがいします。

>>693
……アドバイスったってなあ。
なんでレスつかないか自分で理由わかってる？

まあいいか。

v4.1を手に入れて改造するのはどうかね。一番キミ自身の労力が少ないと思うのだが。

そういわれると改造したくなるのが人情。

書き込み処理を行なっているのはyyregi.cgiなので、こっちを改造するのが正解。
sub formCheck内、L.405付近の管理用アイコン直前かね。
多分そのままコピペでいけると思うが、確認はしてない。

wwini.cgiを改造したいならL.375付近だろうけど、wwregiをいじる方をお勧めする。

>695
最終行、wwregi→yyregi、wwini→yyini　に訂正。

>>695
>>696

どうも。yyregiの405行目あたりに加えてみました。
ただ書き込もうとすると500のサーバーエラーが出て加えた文で何が原因かわからない状況です。
すいませんけどわかる方いましたらよろしくお願いします

http://page.freett.com/yataro/yyregi.txt

>>695
な？　仏心出したっていいことないって、こんな手合いにはさ。

>>697
いいところ教えるから、もう二度と他人の手を無用にわずらわせるなよ？
http://www.kawa.net/xp/index-j.html
KCatchだ。しっかり使えよ。

すまんが、クリスチャンなんだ

そうか。俺はヒンドゥーだ。

>>697
500エラーくらい対処できるスキルが無いと困るよ。

君のPCにPerl は入ってないの？
まさかローカルでテストせずに、共有サーバでテストしてるんじゃないだろうな。
それはいかんぞ。
Perl入れてりゃ、perl -cw yyregi.cgi って打ち込めば、エラーを表示してくれるだろうに…

また、3行目に
use CGI::Carp qw(fatalsToBrowser) ;
って入れてエラーをブラウザに表示汁って手もあるがな。

それとさ、エディタはどんなエディタ使ってる？
全角スペースが見えるエディタを使いなよ。
http://page.freett.com/yataro/yyregi.txt には変な所に全角スペースが入ってる。
スクリプトを詳細に見てないが（KENTは見る気が起こらない）
ま、そこが原因かな？

掲示板の半角かなの扱いについてなんですが、例えば[全角文字＋半角かな]だと正常に表示されるのですが、半角かなだけを単独で書き込まれた場合文字化けしてしまいます。
２ちゃんねるのように半角かなだけの投稿にも文字化けを起こさずに対処させるにはどうすればいいでしょうか。

元々半角かなは一切使えない掲示板だったのですが、ゼロちゃんスクリプトを参考に自分なりに改造してみた結果以下のようなデコード処理に行き着きました。
ttp://www.geocities.co.jp//HeartLand-Cosmos/9800/de.txt


拙い文章で申し訳ありませんがご教授の程よろしくお願いします。

連投すみません・・・
おもっきり過去ログに出てました・・・＿l￣l○

http://pc2.2ch.net/php/kako/1047/10478/1047806915.html
の149さんからの流れを参考にjcodeg.plを取り入れてみたところＰＣ閲覧においては解決しました。

ただ、携帯電話で見た場合にスクリプトエラーが発生してしまったので、携帯のコード処理部
jcode::z2h_sjis(\$message);
をコメントアウトしたところとりあえず大丈夫みたいです。

ただこの場合、メインのデコード部の
&jcode'convert(\$val,'sjis');
&jcode'convert(\$nam,'sjis');
を削っても表示自体はされるようなのですが、閲覧者さんの各環境を考慮する場合この処理は消さずに残しておいた方がいいんでしょうか・・・
質問ばっかりですみませんがよろしくお願いします。

動いているコードに手を触れるなという格言がある。
残しておいて問題はない。漏れなら残しておく。
日に数千の書き込みがあって、負荷が問題になってるとかなら話は別だけど。

削ると、極めて昔（Windows3.1とかの時代）のMac/Unix環境で化けるかもしれない。
気にしたいなら構わないけど、そこまで行くと趣味の領域になってくると思う。

>>704さん
返事が遅れて申し訳ありませんでした。

＞動いているコードに手を触れるなという格言がある。
これ、すごく胸に響くものがありました。

正直、レスがないままだったらたぶん消してたと思うのですがそのまま残しておくことにします。
御助言ありがとうございました。

レッツPHP+zut.jpの写メールBBSなんですけど
携帯用ページで、投稿された写真に返信があったとき
返信ありのリンクの横に何件レスがあるか数字を表示させたいです。
scriptをどう改造すればいいかお知恵貸してくださいm(_ _)m

http://goa.k1.xrea.com/j.php?id=2&page=

↓返信ありの表示部分？
$rescom = "";
$path=dirname("http://".$SERVER_NAME.$PHP_SELF);
$fd2=fopen($res,"r");
while (!feof($fd2)) {
$buffer = fgets($fd2, 4096);
$data = explode("<>", $buffer);
if($data[0]==$id) $rescom = "<br>>> <a href=\"$path/chtml.php?res=$id&page=$page\">返信あり</a>";
}
fclose($fd2);

↓res.logの中身

1<>1074872857<>てすと<>てすと<>pc<>211.6.49.226<>Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; (R1 1.3))
1<>1074873090<>あいうえ<>あかさた<>pc<>211.6.49.226<>Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; (R1 1.3))
1<>1074875789<>どうですか？<>そうですか<>pc<>211.6.49.226<>Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; (R1 1.3))
2<>1074876582<>?<>ぉぉぉﾃｽﾄ<br><>pc<>211.6.49.226<>Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; (R1 1.3))
2<>1074877568<>いごっそ<>いごっそ<>pc<>211.6.49.226<>Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; (R1 1.3))
2<>1074877795<>くるぶし<>ぺやんぐ<>pc<>211.6.49.226<>Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; (R1 1.3))

宜しくお願いしますm(_ _)m

ネットサーフレスキューweb裏技で配布してる
シンプルなBBSの改造をしたいんだけど
改造初心者なので誰か助けてくらさい

http://www.rescue.ne.jp/cgi/bbs/

１　題名をなくしたい（「題名」フォームの部分を消したら「題名を入力してください」とエラー）
２　削除キーをなくしたい
３　記事が入力通りに改行されるようにしたい
４　出力文字サイズを変えたい

最近配布を始めたCGIらしいのでサポートとか少なくて、
改造されたものもあんま配布されてないみたいだったんで…
誰か助けて
設置は無事出来ました

>>707
ところで>>1はご覧になりました？
「少しは自分で考えること。」

小一時間は

>>708
敷居が高いようで、出直します。
お邪魔しました。

高いのは敷居じゃなくて、あんたの要求。

> 敷居が高いようで

どこがだろ？

>>710
敷居が高いんじゃなくて、あんたのいる位置が低い。

>>706
これだけデータ構造とかがわかってて、どうしてできないのかむしろそっちが不思議。
関係のある書き込みの数をカウントすればいいだけの話だろう？

>>714 返事どうもです。

なんとなーくココかな？って部分は予想できるんですけど、
スクリプトの記述はまったくわからないです…

流れは、参照したres.logの先頭の1とか2のid番号をカウントして、
それを表示させるんですよね。

投稿されたログに連番を付ける箇所にすごいヒントがあるような…
でもどう書いてやればいいのか(; ;)?

$lines = file($log);
$st = (!$_GET['page']) ? 0 : $_GET['page'];

for ($i=$st; $i<$st+$page_def; $i++) {
if ($lines[$i] == "") break;
$imgsrc = $body = $subject = "";
list($id, $ptime, $subject, $from, $body, $att,) = explode("<>", $lines[$i]);

助言くださいm(_ _)m

かなり悩んでます。
Perlでユーザーを追加するスクリプトをｺｰﾃﾞｨﾝｸﾞしているんですが、
パスワードの作成で躓いています。

シェルの内容は以下の通りです。
#!/usr/bin/perl
open(IN, "userlist.txt");
while($user=<IN>){
@user=split(/,/,$user);
`useradd $user[0]`;
`passwd $user[1]`;
}
でuserkist.txtの内容は、
user,pass
user1,pass2
です。
パスワードの設定がどうしてもうまくいきません。
どなたかご教授お願いします。

716はマルチにつき放置で

>>717
てゆうか、分からないだけでしょ。

>>716
passwdの使い方について調べましょ
だって、useraddしたあと"passwd パスワード文字列"実行したって、
追加したユーザーのパスワードの設定にはならないでしょ

そもそも
"passwd パスワード文字列"って書式はあったっけ？
記憶あいまいスマソ

OSにもよるんだろうけど。

>>716
http://pc.2ch.net/test/read.cgi/linux/1074773471/221
http://pc.2ch.net/test/read.cgi/linux/1074773471/235
http://pc.2ch.net/test/read.cgi/linux/1071233442/951
http://pc.2ch.net/test/read.cgi/linux/1071233442/964
http://pc2.2ch.net/test/read.cgi/php/1073460282/241
http://pc2.2ch.net/test/read.cgi/php/1072896288/698
改造ネタじゃないし放置でいいよ。
>>719-720の話も上のスレのどっかで出てた。

kent氏のyybbsを改造中なんですが
コメント文中で＃から始まる行を記事背景と同じ色にして
―つまり見えないようにしました。

$com =~ s#(^|br>)(＃)(.*?)($|<)#$1$2<font color=\"$tblCol\">$3</font>$4#g;

合ってますよね？(^^;
それで本当は＃じゃなく、半角の#にしたいんですが
どう書き換えればいいでしょうか？
ただ＃→#だと、当然のようにスクリプトエラーになるんですが…。
ご教授おねがいします。