【 スクリプト改造工房 PART 7 】
■ このスレッドは過去ログ倉庫に格納されています
0001sage
03/09/17 15:28ID:ZcvVdw5C#================================
# スレッドの説明
#================================
「スクリプトを改造したいけどやりかたわかんないよー」という人がいましたら
ここで聞いてください。ひょっとしたらアドバイス出来るかもしれません。
質問するときは以下の点に注意して書いて下さい
(1) そのスクリプトの内容と置いてある場所を明記する (txtファイルでUPすればなお良い)
(2) どんな風に改造して欲しいのか？ (完成イメージHTMLを用意すればなお良し)
(3) 出来るだけ詳しく書くこと。少しは自分で考えること。できれば御礼も言ったほうが良い
※答えてくれないからといって逆ギレする厨はお断り
過去ログ>>2
0757nobodyさん
04/01/27 04:33ID:???「substr_count()のパラメータの数（count）が正しくない」
>>755
有名&ｶﾞｲｼｭﾂなのかも知れんが、リンクぐらい書いてくれ。一行ですむのだし。
アイコン登録は、画像をアップロードし、メインスクリプト（mkakikomitai.cgi）を書き換えればよい。
$icon_gif[X] = ...
$icon_gif_w[X] = ...
に追加するだけ。
あと、画像をアップするには、enctypeが変わるので、
フォームデータを受け取る部分（sub decode）も修正。
ただ、スクリプト自身に書き込み権限が必要なので、suExecのない共用サーバでは危険。
設定を外部ファイルに持たせればよいが、それが出来れば、こんなところで質問しないか。
ランダムカラーは、どの時点でランダムなのか分からんが、
$FORM{'color(_f)'}か$color(_f)をランダムに変えるだけだろう。
0758757
04/01/27 04:54ID:???もし仕事なら、2,3万は要求する。
（かつてカウンター1個10万で受注した。
バイトだったので、大半は会社にもってかれたが。）
0759nobodyさん
04/01/27 05:03ID:???0760706
04/01/27 08:13ID:8T/PgOL1これだとlogに書き込まれた全$idはカウントできないですよね。
しかも文字配列が"<>"でexplodeされてるし。
log全体を参照するには file_get_contents か file を使うのかと試してみたんですが
エラーどころかしばらく"ページが表示できません"状態になりました…。
log全体を参照させるのはどうすればいいですか？
$path=dirname("http://".$SERVER_NAME.$PHP_SELF);
$fd2=fopen($res,"r");
while (!feof($fd2)) {<br>
$buffer =fgets($fd2 , 4096);
$data = explode("<>", $buffer);
$ct = substr_count($data[0] , "$id");
if($data[0]==$id) $rescom = "<br>>> <a href=\"$path/chtml.php?res=$id&page=$page\">返信あり</a>($ct)";
}
fclose($fd2);
0761nobodyさん
04/01/27 09:27ID:ChIQ2Q6bあ、PHPか・・・勘違いｽﾏｿ
0762nobodyさん
04/01/27 15:27ID:???素直に掲示板のログオープン処理を参考にしたら？
0763nobodyさん
04/01/27 16:19ID:???よく読んでみると、$idには何が入っているのだ？
logがあまり大きくないなら、
$path = dirname("http://".$SERVER_NAME.$PHP_SELF);
$log = file_get_contents($res);
$fd2 = fopen($res, "r");
while (!feof($fd2)) {
$buffer = fgets($fd2, 4096);
$data = explode("<>", $buffer);
if($data[0]==$id) {
$ct = preg_match_all("/^$id<>/m", $log) - 1;
$rescom = "<br>＆gt;＆gt; <a href=\"$path/chtml.php?res=$id&page=$page\">返信あり</a>($ct)";
}
}
fclose($fd2);
で良いかな。
それより、レス数をlogに書き込んでおくのが良いかと思われる。
0764燦獄詩藍金山椅渉夫
04/01/27 16:54ID:???0765nobodyさん
04/01/27 22:13ID:???あんまし人来てないが、、
0766?&&fr&ur&&siranasr&&a&nr
04/01/27 22:19ID:???0767706
04/01/28 00:36ID:???さっそく>>763さんの試してみたんですがParse error : line 111がでたんですけど、
111はlineの一番最後で </body></html>で終わってるんですよね。
試しにタグを削ってみたら今度はline 110にParse errorがでました。
line 110は ?> です。
処理が終わってないってことですか？
あとlogにレス数を書き込むっていうのは各レスに連番を振ればいいんですか？
$idには親記事の投稿番号が入ってます。
その親記事にレスした子記事のlogの頭に親の番号が付く形です。
下のように記録されてます。
↓$id<>time<>$name<>$comment<>$ua<>$ip<>$_SERVER['HTTP_USER_AGENT']の順
1<>1074872857<>てすと<>てすと<>pc<>211.6.49.226<>Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; (R1 1.3))
0768763
04/01/28 00:59ID:???なるほど、メインの書き込みと、レスが違うファイルに保存されているのね。
それなら、$ct = preg_match_all(……) のあとの"-1"はいらない。
それから、そのParse errorは、括弧かダブルクウォートの対応が間違っている可能性が高い。
もしレス数を登録するとしたら、メインのログに書き込むべし。
0769706
04/01/28 01:51ID:VL5E7sReParse errorは直りました。
Warning : preg_match_all() expects at least 3 parameters, 2 given in ***** line 88で
一つパラメーターが足りないってことだと思うんですけど、
array matchesはどのように書けばいいですか？
何回もすみません。
0770706
04/01/28 02:23ID:???array matchesは $ct でいいんですね。
http://goa.k1.xrea.com/j.php
いやぁ、ほんと助かりました。
これをきっかけに自分で掲示板組めるよにphp勉強してみようかなぁ。
何も知らない自分にここまで付き合って下さってほんとありがとうございますm(_ _)m
0771763
04/01/28 03:30ID:???すまん。preg_match_allは引数3つ必要だった。
3つ目は使わないので何でも良いが、$ctだと紛らわしいので、別の方が良い。
0772nobodyさん
04/01/30 20:48ID:O0NkkeT3snow*materiaのtwin.cgiというアイコンチャットを
設置してちょびちょび改造しているのですが、
このチャットに「魔法の呪文」という設定があって
その中に｢予備ログを全部時刻昇順で表示」というものがあり、
ログをアイコン、背景、タグ効果などが反映された状態で上から読めるように表示されます。
これをHTMLとして書き出したいのですが、それは可能でしょうか？
また可能な場合どういった改造を行えば宜しいでしょうか
あと入室中にアイコンを代えるセレクトボックスを追加したいのですが、
デフォルトで｢一定の条件下で可能」に作られているのですがこれを情動的にしたいのです。
一応サイトにサポートBBSがあったので質問したら10日まっても一つのレスも付きませんでしたので
削除してこっちに描いてみたり。
どなたかお教えくださいませ。
ttp://useyan.pupu.jp/s/cgis/twin.html
0774nobodyさん
04/01/30 23:53ID:O0NkkeT3表示されるのですが、それをそのままHTMLとして保存したいのです。
CGIなのでそのまま「名前を付けて保存」などでは保存できませんでした。
ミーティングや歓談などのログとして参加者に配布できればと思いまして。
0776nobodyさん
04/01/31 00:10ID:???IEならログ表示部で右クリックしてソースを表示、そのソースを保存。
あるいはIEなんて糞ブラウザを捨て、OperaやMozillaを使えばログ表示部のフレームを右クリックから直接保存できる。
で、保存後に拡張子をhtmlに変えてアップロード。
iniの$icondirが絶対パスなら何処においても何の問題も無いはず。
情動的ってのが「常にアイコンを選択できるようにする」って意味なら、すべき事は以下のとおり。
投稿用フォームにアイコン選択欄を追加。455行目のhiddenをチェックボックスに書き換え。
次にアイコン＝状態（$cond）を決めてる1070行目あたり。書き換え方は自動アイコン変更処理をどうしたいかによる。
いらんなら1072-1091行目をバサッと削除orコメント化。
残しておけば自動処理がユーザの選択に優越する。逆をしたい場合は知らん。
0777776
04/01/31 00:13ID:???すまん動揺した。後半、チェックボックスなわけないな＿|￣|○
ドロップダウンメニューかラジオボタンか。
0778776
04/01/31 00:25ID:???USBケーブルで吊って来る∧||∧
0779nobodyさん
04/01/31 00:26ID:???$writehtm = 1; # 1:HTMLに書き出して表示, 0;全部CGIで実行.
1ならtwin.htmに希望と上下は逆だけど常時書き込まれるが
どうしても逆がいいのか？
0780nobodyさん
04/01/31 00:37ID:???い㌔。チャットのスクリプトなんて見通しの悪いもんだ。
twin.plの149行目が「一定の条件下」の判断場所。
丸ごと削除すればtwin.cgiの頭のほうの設定だけに従うはず。
他に影響する事は無い と思う。
0781774
04/01/31 00:42ID:???そしてcgiのソースが表示されてしまいログは表示されません。
ちなみにﾉﾝフレーム状態で「過去ログ表示の魔法」を入力したところ
エラーになってしまいました。（配布元のオリジナル設置でもなったので恐らく不可)
>>779 さん
設置しているスペースが弱い鯖なのでさいしょから設定は１にでＨＴＭＬに書き出しているのですが
それですと｢表示可能数」の行数しか表示されません。
ので簡単な話ならそれでも可能なのですが数時間、10人近くとかの膨大なログをまさか全部表示にしているわけにも行きませんし。
ログファイルを除いてみたところ、どうもログへの書き出しはそのまま時刻昇順で書き込まれておりましたので
それならログを直接ＣＧＩ部の画像アドレスなどを参照して直接ＨＴＭＬで出力などはできないのかなぁ、と思いまして。
0782774
04/01/31 00:55ID:???なりました！有難う御座います。
これは今の段階ですとアイコンの選択ではなく直接適すとボックスに画像名を入力する形になっておりますが。
セレクトボックスにした場合、内容の読込先はどうしたらよいのでしょうか？
また、名前「管理人」で入ると専用アイコン等、特定の名前の際には強制的にそのアイコンと文字色に変わる、という機能が
この場合入室後に変更で書き直すと変化しません。
これは機能可能でしょうか？
0783nobodyさん
04/01/31 02:20ID:???先日Arseno ver2.1.4を使って辞書を作り、とりあえず一通りの設置はうまくいきました。
で、以前、投稿された内容が上昇していくのではなく、下降していく様に変更されている辞書を見かけたことがあり、
できればそういう設定にしたいと思っているのですが、どこをどう変更したらいいのでしょうか？
readmeどおりに設置する程度の知識しかないため、スクリプトのどの部分を抜粋して書き込めばいいかも分かりません。
申し訳ありません。
0786nobodyさん
04/01/31 03:22ID:???失礼しました。辞書といえば大抵これなので有名なものかと思ってしまいました。
現在、制作者さんのHPが閉鎖されてしまっているため、下記ページで再配布されています。
ttp://www.geocities.co.jp/SiliconValley/1781/arseno/
再配布については、作者さんの許可はあるようです。
0787nobodyさん
04/01/31 04:08ID:???dr.cgiのsub show_def内の、print "Content-Type: text/html\n\n";の直前か直後に、
@defs = reverse @defs;
これで良いと思う。
0789nobodyさん
04/01/31 13:04ID:???0790nobodyさん
04/01/31 22:58ID:???現在某画像UP掲示板を運営しており、利用者の増加に伴うCGIの入替を検討しています。
現在はimgboad.cgiを利用しておりますが、評判が良くない事とまれに正常に動作しない場合があるのが理由です。
新しいCGIには、「Child Treeマルチファイルアップ掲示板」
ttp://www.cj-c.com/cgi_s/cbbs.htmを検討しておりますが、どうしても必須な機能が1つ足りません。
連続投稿規制に関する機能なのですが、「1つ投稿したら＊分は投稿できない」ではなく、「＊分以内には＊回まで投稿可能」
という制限機能が必須なのです。（本機能はimgboad.cgiには実装されていますが、Child Treeにはありませんでした…）
「Child Treeマルチファイルアップ掲示板」のインターフェイスは気に入っており、是非利用したいのですが、何とか上記の機能を実装できませんでしょうか？
テンブレの指示通り http://homepage3.nifty.com/qvga/ftp/cbbs.txt にCGIをテキストでUPしておきました。
丸投げでの依頼をする所でない事は重々承知ですが、自分の力ではどうにもならない為、藁にもすがる気持ちで書き込みさせて頂きます。
長文となってしまいましたが、知識のある方のご協力をお願い致します。
0791nobodyさん
04/01/31 23:55ID:???＞丸投げでの依頼をする所でない事は重々承知ですが。
分かっているなら（略
俺？知識があるなんて恐れ多くて言えないから協力せんけど。
0793未承諾広告※ ◆aiY4htt2.2
04/02/01 10:07ID:???ご予算は如何ほどに？（￣ー￣）ﾆﾔﾘ
変数の扱いが無茶苦茶なので割高になるかと思いますけれども。。。（哀）
取り敢えず、 BBQ が落ち着いてから。
0794791
04/02/01 11:53ID:???なるほど。
納期を長く頂ければ格安でご提供することも可能ですが、いかが致しますか？
よく考えると人件費含めて他人の資産を使おうとしてるんだから、対価が発生するのがデフォルトだよな。
死にかけてる奴とかなら情で無償の奉仕が発生してもそれは人間として正しいわけだが。
それなりの生活水準の奴を無償で助ける義理ってのは無いよな。
まぁ、やな世の中だってこった。
0795nobodyさん
04/02/01 16:55ID:???禿同。
ただでさえ他人が書いたものはいじる気にならんのに
これだけ汚いスクリプトは読むまえにリタイアだよｗ
まぁ、知識がないおれには読む書く以前の問題だけどね。
0796nobodyさん
04/02/01 17:25ID:???その程度ならさして難しくないだろう。
俺なら元のCGIを使いつづけるがな。
0797誘導した本人
04/02/01 17:37ID:???誘導した本人だ。
君にもレスくれたみんなにも迷惑かけたな。スマン。
責任とって俺がやろう･･･と言いたいが･･･。
そんな安請け合いが出来ないほどcbbs.cgiはすごいな。
かなり気合を入れないと読み下せない。
と言うわけで時間をくれ。
対価はいらんが、もしかしたら逃げてしまうかもしれないと思われ。
それで質問だが、、「＊分以内には＊回まで投稿可能」 と言うのは一人一人に対してか？
それとも全員合わせてなのか？
例えば5分以内に5回という制限としよう。
ひとりで5分以内に5回投稿したら、他の人は最初の投稿だが投稿できないのでいいのか？
それでいいのなら割と簡単ぽいが、一人一人別制限だったらちょっと辛いかも･･･。
0798790
04/02/02 16:45ID:???ご予算ですか…。
掲示板からの収入は全く無いのでポケットマネーからという事になりますが、ウン十万とかは無理です。
１～２万円でしたらなんとか捻出できるとは思いますが安すぎますよね。
相場とはどのくらいなんでしょうか？
>>794氏
納期を長く、とはどのくらいになりますでしょうか？
リッチな生活をしている訳ではないので安ければ安いにこした事は無いです。
>よく考えると人件費含めて他人の資産を使おうとしてるんだから、対価が発生するのがデフォルトだよな。
私も当然そう思います。
引き受けて頂けるのでしたら代金はお支払いするつもりですが、↑にも書いた通り予算はかなり厳しいです。
この程度の予算では話にならないでしょうか？
>>795氏
私は掲示版を設置する事はできますが、cgiの中身を理解する事はできません。
そんなに酷いのでしょうか？評判が良いらしいのでChild Treeにしようと思ったのですが。。。
>>797氏
わざわざこちらでもレス頂きありがとうございます。
お時間はいくらかかってもOKです。ご協力頂ける事に感謝致します。
対価はいらないとの事ですが、上の皆さんもおっしゃっているようにかなり大変そうですので、無事に完成させて頂ければ
予算内での代金をお支払いさせて頂きたいと考えております。
投稿制限に関してですが
>例えば5分以内に5回という制限としよう。 ひとりで5分以内に5回投稿したら、他の人は最初の投稿だが投稿できないのでいいのか？
>それでいいのなら割と簡単ぽいが、一人一人別制限だったらちょっと辛いかも･･･。
では残念ながらダメですね。全員合わせてではなく、１人１人に対して＊分以内には＊回まで投稿可能という機能が欲しいのです。
Child TreeのサポートBBSにも書き込みしてみましたが、作者からの返答で
>それは難しいですね。cookie等を用いて投稿回数の記録か、ログに投稿回数などを取得しておかなければなりません。
との返答を頂きました。やっぱり難しそうです。。。
0799未承諾広告※ ◆aiY4htt2.2
04/02/02 21:30ID:???0801nobodyさん
04/02/03 07:02ID:7G9Cx1i0テキストエリアから飛ばしたデータを、ｈｔｍｌスキンのテキストエリアで読み込もうとしたら
改行のタグがそのまま出てしまうので、本などで調べてたら、
$comment =~ s/\r\n/<BR>/g;
$comment =~ s/\r/\<BR>/g;
$comment =~ s/\n/<BR>/g;
$comment =~ s/\t/ /g;
$comment=~ s/<BR><BR>/<BR> <BR>/g;
がテキストエリアの改行コードをタグ化する命令文だということが分かりました。で、テキストエリアの改行コードが「\r\n」であるのなら、
ログへもこのコードを飛ばせば、うまくいくんじゃないかと思って、
$comment =~ s/\r\n/\r\n/g;
という形にしてみたのですが、これだとログ上では改行されていましたが、読み込む際にその改行部分で読み込みが途切れてしまい、後の情報は
全て読み込まれなくなるなどの不具合が生じてしまいました。書き込みした直後はうまく改行された状態でテキストエリアに
表示されるのですが、どこかに移動して戻ってきたり、更新するとダメになります。最初の読み込み時と、二度目の読み込み時で
コメント部分が違う読み込みが行われるので、２重更新まで結果的に許可されてしまう状態となり、もうどうしようもない状態になりました。
で、２ちゃんで質問させて頂き、こちらを紹介して頂いたのですが、それとほぼ同じごろに、ググりまくった成果がようやく出てきて、
メモ帳などでいじる際のテキストエリアの改行タグ？は「？」であるということが分かり、
$comment =~ s/\r\n/？/g;
$comment =~ s/\r/？/g;
$comment =~ s/\n/？/g;
$comment =~ s/\t/ /g;
$comment=~ s/<BR><BR>/<BR> <BR>/g;
という形に変更したら、見事、二重更新もされず、ログ上にもちゃんと「？」が残った状態で、読み込みの際にだけ
改行が行われるようになり、最初に意図してた通りのhtmlを吐き出してくれました。
0802本題です
04/02/03 07:02ID:7G9Cx1i0質問させていただきたいのですが、\r\nと\rと\nは
winやマックの改行コードとして調べていて分かったのですが、
$comment =~ s/\t/ /g; は一体なんなのでしょうか？
しかも空白になっています。なぜ空白なのでしょうか？
$comment=~ s/<BR><BR>/<BR> <BR>/g; もイメージがつかめません。
これはこのままにしておいたほうがよろしいのですか？
ちなみにttp://hp.bird.to/info/bbsking.html のＣＧＩを
改造しています。
0803本題です
04/02/03 07:04ID:7G9Cx1i0「＆＃１３；」って書いたところが「？」になってますね…。
奥が深そう・・・。
0804未承諾広告※ ◆aiY4htt2.2
04/02/03 09:56ID:???http://rananim.ie.u-ryukyu.ac.jp/~kono/perlman/cat1/perlre.html
とかほかいろいろ
0805nobodyさん
04/02/03 16:06ID:???バグか仕様か宗教上の問題かは知らんが、<br>を連続で書くと1つの<br>としてしか認識しないブラウザが稀にある。
間にスペースを挟むのはそういうときの対策だな。
消しても問題ないと思う。レアなトラブルと1空行あたり1バイトの無駄データ、どっちを優先するかの話。
>
&#（数字）;は実体参照。意味はぐぐってくれ。
10が\nだと思ったから13は\rなのかな。
は"&13;"であって「改行」ではないから、例えばそのデータを再び送信するとおかしなことになる。
吐き出したHTMLのソースを読むとその場所で改行されてないって事が分かると思う。
（表示しかしないのであれば問題は無い）
\tについては804を参照。
改行部分で途切れていたのは、perlが改行をデータ間の区切り文字として認識してるから。
ログでは<br>として保存しておいて、表示の直前に<br>を\n（あるいは\r\n）に置換するのが定石。
あるいはperlの区切り文字（$/）を一時的に変えてしまうというトリッキーな手もある。
0806nobodyさん
04/02/03 16:07ID:???0807nobodyさん
04/02/03 16:51ID:???未承諾広告さんに教えて頂いたページを読んだのですが、
ＨＰ作成歴は、それなりにあるものの、ＣＧＩを勉強しだして２週間しか
経っていない私には、正直申し上げて、\ｔの説明以外の部分は今はまだ
いくら読んでも頭に入ってきませんでした…（お気に入りには登録しておきました）
私のＨＰの掲示板は、長文を書かれる方が非常に多いので、
レスのコメント部分がテキストエリアで表示されるようにしたら、
１つ１つのレスの大きさも均等化されて、新規レスが上がった際に、
目的のレスまで遠くなるというような問題を解消できると思って、
この改造を思い立ちました。
読み込み専用ですので、これで問題なく動かせそうです。
「実体参照」、調べてみましたが面白いですね。
また世界が広がったような気がします。ありがとうございました。
それにしてもどうして>805さんのレスには「＆＃１３；」が
半角でちゃんと表示されているんだ？？？
「？」←半角で「＆＃１３；」を書いてみた。
0808nobodyさん
04/02/03 18:05ID:???0809nobodyさん
04/02/03 18:27ID:???0810797
04/02/03 20:00ID:???一応出来た。
imgboardのようにクッキーを使おうかと思ったが、それだとcbbsを弄る必要がある。
それは超ﾏﾝﾄﾞｸｾｰので、追加記述で出来る別ログに記録しる方式にしてみた。
IPで個人を識別しているので、一旦接続を切ってIPを変えたり、プロクシを刺したりしたら制限が効かない事もある。
クッキーにしたってクライアントがクッキーを破棄すれば制限が効かない事もあるで、個人的にはこれでOKかなと。。。
どうしてもクッキーでやりたいのなら、俺はパスだ。
つづく。
0811nobodyさん
04/02/03 20:03ID:???cbbs.cgi と同じディレクトリに、空ファイル hiroyuki.txt を600か606でUPしる。
cbbs.cgi の1227行目が空行になっているが、そこに
&fusianasan;
と記述しる。
つづく
0812nobodyさん
04/02/03 20:07ID:???sub fusianasan{
$limit_log = 'hiroyuki.txt' ; # エポック秒とIPアドレスを記録しるファイル
$limit_type = '600' ; # 連続投稿回数制限 サンプリング期間 （秒数）
$limit_time = '3' ; # 連続投稿回数制限 回数 (この回数までOK）
$count = '' ;
open(LOG,"$limit_log") || &er_("Can't open $limit_log");
@line= <LOG>;
close(LOG);
foreach (@line){
chomp;
@_ = split /\t/,$_ ;
time - $limit_type < $_[0] or next;
$count++ if $ENV{REMOTE_ADDR} eq $_[1];
push @line2,$_ . "\n" ;
}
&er_("overtimes 掲示板管理者が設定した連続投稿回数をオーバーしました。<BR>しばらく投稿できません","1") if $count >= $limit_time ;
open(LOG,">$limit_log") || &er_("Can't write $limit_log","1");
print LOG @line2;
print LOG time . "\t" . $ENV{REMOTE_ADDR} . "\n";
close(LOG);
}
0813nobodyさん
04/02/03 20:13ID:???元スクがuse strict してなかったから、俺も適当に書いた。
対価は前にも言ったがいらねー。
どうしても払いたいと言うのなら、>>798の名前で日本赤十字社に寄付してくれ。
金額はお前に任せる。
俺はそれでいい。
0814nobodyさん
04/02/03 21:36ID:TrK4Nuwe実際のカウント数よりワザと大幅にカウントを多く表示する
「水増しカウンタ」というスクリプトなんですが
http://dekachin.at.infoseek.co.jp/counter.txt
これを日付けが変わると同時にカウンタ数値を000にリセットするようにしたいのですが
どこをどうイジったらいいのかサッパリ…
海外サーバで使用する場合にも追加加工が必要なんでしょうか？
要領を得ない質問のしかたで申し訳ありませんが
どうかアドバイスよろしくお願いいたします。
0816nobodyさん
04/02/03 22:49ID:???$ENV{'TZ'}をスクリプト内で適切に設定すれば海外でも国内でも問題ない。
0817814
04/02/03 22:58ID:TrK4Nuweやはりかなり特殊な物なんでしょうか…
>>816様
レスありがとうございます。「statで取得」…
ググって頑張ってみます…
0818nobodyさん
04/02/03 23:11ID:???32行目
旧：($count,$truth,$times,$ips,$i) = split(/<>/,$data[0]);
新：($count,$truth,$times,$ips,$mod) = split(/<>/,$data[0]);
58行目と60行目の間に追加
my ($now_day) = (localtime(time()))[3];
my $old_day = $mod;
my $new_day = '';
if ($now_day ne $old_day){
$count = 0;
$new_day = $now_day;
}else{
$new_day = $old_day;
}
77行目
旧：$data[0]="$count<>$truth<>$tm<>$ip<>\n";
新：$data[0]="$count<>$truth<>$tm<>$ip<>$new_day<>\n";
以上。
>>817
特殊なんじゃなくて汚いわけで＜ソース
0819814
04/02/03 23:39ID:TrK4Nuweわあ！ありがとうございます！
＞特殊なんじゃなくて汚いわけで＜ソース
そうなんですか…
自分の使ってるエディタですと多少行数が違って表示されるんですが
該当箇所を教えてくださった通りに書き換えてみました。
これを海外サーバで動かす場合は
$ENV{'TZ'} = "JST-9";
を、どこかに追加すればいいのでしょうか？
0820nobodyさん
04/02/04 17:24ID:???唐突ですみません、
質問させて下さい！
apeボードで書き込みの親記事部分にホスト表示をさせたいのですけれど、、、
こんなことって可能でしょうか
もしこちらでするべき質問ではなかったなら、本当に失礼しました
0822ИТО
04/02/04 23:16ID:rVneR8vT２ｃｈの場合はE-mailにsageと書くとトップソートしませんよね。
0823nobodyさん
04/02/04 23:28ID:???質問の前に>>1をみるなり、ネチケット守りましょう。。
自作してるんならわかるんじゃないの？
単にifで条件分岐すればいいだけの話では？
0824nobodyさん
04/02/05 01:26ID:???例えばiとmとsあたりかな。
0825nobodyさん
04/02/05 03:38ID:???0826nobodyさん
04/02/05 06:03ID:???・本文が２～３行
・sageない
こういう奴って間違いなくマルチポストしてる
0827706
04/02/05 08:06ID:???あれからphpを勉強して、なんとか５つ星評価スクリプトを作ってみたんですけど
それをcgiに組み込むことって出来ますか？
試しにdatabese.cgiが吐き出すテンプレート用htmlの拡張子をphpに変えて
日付のスクリプト書いてみても日付は表示されませんでした…ムリなんですかね？
http://yellow.ribbon.to/~mush/star.php
0828nobodyさん
04/02/05 11:06ID:TYkaMAsnttp://www.kent-web.com/bbs/wforum.html
この掲示板に2chのような、投稿者別にIDを振って表示させたいのですが何かいい方法はありませんか？
もし何かアドバイスがあればよろしくお願いします。
0830nobodyさん
04/02/05 16:42ID:???ウェブ作成にakiaryという日記作成cgiを使用しています。
http://www.hi-ho.ne.jp/yakira/akiary/
ウェブ上で文章編集し、最新ページ作成と月別のページを自動作成してくれるツールなのですが、
そこに追加で、月別のページに日付とタイトルリストを追加しようとしてもなかなかうまくいきません。
このcgi独自のタグをいじってみても、エラーが出るばかりです。
テンプレートをいじった見本としてあげられているサイトを見ると
あっさりそれを実現している方もいるのですが、テンプレ公開などはされていません。
ttp://nanako.pekori.to/diary/200311.html （左側にちゃんとページ内インデックスが！）
サポート掲示板でもこのことが話題になっているようなのですが、
どうもまだやり方は不明のようです。
どなたか、教えて下さいませ。
0831nobodyさん
04/02/05 19:39ID:???ちょっと状況が分かりません。
>>830
まず、テンプレート（tmpbn.html）の、リストを入れたい場所に「<!-- list -->」を追加。
次に、akiary.cgiのsub MakeBNDiary内について、
・「head部作成」を「# 日付でソート」の下に移動。
・その間に、以下を挿入
foreach (@k) {
my($y,$m,$d) = unpack("A4A2A2", $bndate{$_});
my $w = &GetWdayZeller($y,$m,$d);
my $wday = ('日','月','火','水','木','金','土')[$w];
$date = substr($y,2,2)."/$m/$d（$wday）"; //この行と
$list .= "<a href=\"#$bndate{$_}\">$date$bntitle{$}</a><br>\n"; //この行を適宜変更
}
$tmpbnhead =~ s/<!-- list -->/$list/;
0832831
04/02/05 19:41ID:???0833830
04/02/05 20:40ID:???素早い返信本当にありがとうございます！
さっそくやってみたのですが、パスワード入力画面ででHTTP 500 - 内部サーバー エラーが出てしまいます。
最初の「head部作成」を「# 日付でソート」の下に移動、だけだとちゃんとアクセスできるので
はりつける際にどうもわたしはなにか変なミスをしているみたいです。
//は832を見て#に変更したり、コメント部分を全部消してみたりしたのですがそれでもだめです。
cgiの変更部分のやり方は
# 日付でソート
@k=&SortedDID(*bndate);
@k=reverse(@k) if ($tmpbnrev==1);
ここに（以下）の部分
# head部作成
print FH $tmpbnhead;
であっていますでしょうか。自分では原因がつかめず悩んでいます。
（長文になりすみません）
0835830
04/02/05 21:18ID:???全角スペース、すごく基本的なことなのに5個もありました。
早速消し去り、ついでに「;」「"」等もチェックし、よし、と思ったのですが……。
夢に見たゴールはもうすぐな気がするだけに、メモ帳をにらみつつ格闘です。
がんばります。
0836nobodyさん
04/02/05 22:28ID:???メモ帳よりhttp://www.vector.co.jp/soft/win95/util/se169799.htmlこっちのほうがいい
たまに落ちるのが難点だが
0837nobodyさん
04/02/05 22:33ID:???無料でイイのがいくらでもあるんだから、面倒くさがんないでとりあえず入れとけ。
0838nobodyさん
04/02/05 22:56ID:???CGIとは何かから説明しないとって話な気もするけど、結論から言うと無理。
htmlファイルにphpを組み込むのは可能だけど、perlスクリプトの処理結果をPHPでさらに処理する事は出来ない。
CGI側でphpスクリプトを含むhtml（拡張子は*.php）ファイルを作る、とかになると思う。
あるいはPHPスクリプトをperlで書き直して移植するか、その逆か。
0839nobodyさん
04/02/05 23:03ID:???0840831
04/02/05 23:26ID:???すまん、"_"が一つ抜けていた。
foreach (@k) {
my($y,$m,$d) = unpack("A4A2A2", $bndate{$_});
my $w = &GetWdayZeller($y,$m,$d);
my $wday = ('日','月','火','水','木','金','土')[$w];
$date = substr($y,2,2)."/$m/$d（$wday）";
$list .= "<a href=\"#$bndate{$_}\">$date$bntitle{$_}</a><br>\n";
}
$tmpbnhead =~ s/<!-- list -->/$list/;
0841830
04/02/06 18:09ID:???そしてまた840をコピーさせてもらい、はりつけて、UP。
エラーではなくちゃんとパスワード画面が1回で出ました！
なのですが、リストの表示がなぜかされません。
テンプレートの読み込み直しはちゃんと出来ているので、
わたしがテンプレートに追加した「<!-- list -->」の位置がまずいのかも（そんなのないかな？）。
cgiはうまくいったので（ありがとうです）、今度はそこのところをいろいろ試してみようと思います。
831さん、ほかみなさん、本当にいろいろありがとうございます。
週末はちょっとパソコンがさわれないので、うまくいったら月曜以降に報告させてください～。
0842831
04/02/06 19:57ID:???<!-- list -->は、メインの日記部分より前なら、どこでも平気なはずです。
日記より後に入れる場合は、
$tmpbnfoot =~ s/<!-- list -->/$list/;
とりあえず作られたHTMLのソースを見て、<!-- list -->がそのまま残っていないかどうかをチェック。
0843830
04/02/06 20:44ID:???できましたー！！
なぜか思ったとおり「<!-- list -->」の位置がまずかったみたいで（野生の感？）位置を変えたらできました！
・・・と、報告に来たらまた831さんのレスが！
842で教えていただいたように変更し、最初にやりたかった「<!-- list -->」の位置で
ばっちり「こうしたいなあ」と思っていたようになりました。
もうほんとにほんとにありがとうございます。
あーすごくうれしいです。
831さん、ほかアドバイスくれたみなさん、本当にありがとうございましたー！
0844827
04/02/07 00:55ID:???>>837さん>>838さん 返事ありがとうございます。
PHPっていうのは外部(database.cgi内）のform actionからコールしても
input情報を渡すことできますか？拡張子が*.phpのページからしかダメなのかな。
もし外部からでも渡すことが出来るなら、5つ星評価スクリプトの表示部分だけ
Perlで書いて、データの書き込みはPHPにやらせればできそうかなぁ。
本当はPerl内にぜんぶ書いたほうがスマートだと思うんですけど。
下のPHPスクリプトをPerlに移植してもらえたら嬉しいんですけど甘ちゃんですか…？お願いします。m(_ _;)m
★表示箇所
$log = "data.log";
$fd = fopen($log, "r");
$buffer = fgets($fd, 1024);
list($line, $st, $ct) = explode("|", $buffer);
fclose($fd);
$ave = round($st/$ct, 2);
if(!$__1__){
echo "データがありません";
}elseif($line==$__1__){
if($ave>=5) $star="★★★★★";
elseif($ave>=4) $star="★★★★";
elseif($ave>=3) $star="★★★";
elseif($ave>=2) $star="★★";
elseif($ave>=1) $star="★";
}
$result = "Rating:$star ".$ave."<br>Vote : $ct";
0845827
04/02/07 00:56ID:???__1__ はdatabase.datのタブ区切りで記入されている各配列の1番目のキーを入れたい。
database.cgiのテンプレートに __1__ を記入すれば1番目のキーを呼び出せるので
テンプレートに書いたフォームのinput valueに__1__を指定すれば、phpに情報を
渡せるかも。でもcgi内で★評価対象配列の1番目のキーを参照させるには？
database.cgiが処理したページのURLを見ると下記のようになってます。
hxxp://pc2.2ch.net/php/database.cgi?sline=1&print=1&keys2=スクリプト改造工房&tid=list2
sline=1のパラメーターがdatabase.datの上から1番目の配列ということです。
説明不足があったら突っ込んで下さい。
▽database.cgi テキスト
http://yellow.ribbon.to/~mush/database.txt
▽完成イメージ
http://yellow.ribbon.to/~mush/abc.htm
0846nobodyさん
04/02/07 04:17ID:???refererの制限をしていない限り、どこからPHPを呼び出しても問題ない。
$log = "data.log";
open(FH, $log);
$buffer = <FH>;
($line, $st, $ct) = split("|", $buffer);
close(FH);
$ave = sprintf("%1.2f", $st/$ct);
if(!$__1__){
print "データがありません";
}elsif($line==$__1__){
if($ave>=5) $star="★★★★★";
elsif($ave>=4) $star="★★★★";
elsif($ave>=3) $star="★★★";
elsif($ave>=2) $star="★★";
elsif($ave>=1) $star="★";
}
$result = "Rating:$star ".$ave."<br>Vote : $ct";
0847nobodyさん
04/02/07 09:30ID:fzL4+sPl↑このサンプルの元となっているＣＧＩを利用したいのですが、
新着レスを上げる機能がついている、とあるのですが、
投稿した直後は上がってるんですが、更新すると
また親記事のナンバーの順に並んでしまいます。
一度、下の方のツリーにレスを入れた後、更新してみてもらえると
分かるかと思います。
こちらで配っているＣＧＩの元ソースは、
http://csx.jp/~minamonami/
にアップしておきました。
もうほとんどＢＢＳのスキンや他の部分の改造は完成していて、
ようやく使えると思ったら、今になってこのバグに気がつきました。
でもこちらのサイトではユーザーサポートをもうほとんどしていないようなので、
他のＣＧＩの「レス上げ機能」を記述しているらしき部分を抜き出して、
比較検討等をしてみたのですが、私にはどうしても原因が分からず、
いくらコピペして加えてみても、エラーが出るばかりで…。
もしこのまま新規レスを上げることが出来ないのであれば、
今になってこのＣＧＩの使用を諦めざるを得ない状況に陥っています。
もし大変な作業になるのでしたら、素直に諦めますが、
もし比較的簡単な変更で「新規レス上げ」が可能になるのであれば、
どうかお知恵を貸して下さい。よろしくお願いいたします。
0848nobodyさん
04/02/07 10:41ID:???sub data_openの終わりの辺りの、
push(@true_nums,$_) if($res_nums{$_} eq $_);
の後に、
@true_nums = sort {$last_times{$b} <=> $last_times{$a}} @true_nums;
を追加。
0849847
04/02/07 10:55ID:???もう感動のあまり言葉が出ません！
信じられないスピードで回答を頂き、本当にうまく成功いたしました！
今からじっくりこの構文の意味を分かるまで
勉強していきたいと思います！ 本当に本当にありがとうございました！
あぁ！ 諦めなくてよかった！！
0850ひと ◆/FoolZy9t.
04/02/07 14:20ID:DTKZ/Kh0#------------------#
# トリップ処理 #
#------------------#
sub trips {
my $trip;
$_[0] =~ s/◆/◇/g;
if ($_[0] =~ /#(.*)$/){
my $key = $1;
my $salt = substr($key."H.", 1, 2);
$salt =~ s/[^\.-z]/\./g;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$trip = substr(crypt($key, $salt), -10);
# トリップを名前に追加
$_[0] =~ s/#.*/◆$trip/ if ($trip);
}
}
のような方法でYYBBSにトリップを入れようとしているのですが、
(&trips($in{'name'})で呼び出す)
何故かトリップが2chのものと異なってしまいます。ローカルでもです...
なので、Joyful2ch-Me(http://www.nunokawa.soft.iwate-pu.ac.jp/~kaz/)
をローカルで実行してみたら、正常に2chのトリップを出したのですが、
(こっちのトリップ生産方法も試しましたが、無理でした...)
何故結果が変わってしまうのでしょうか...
0851nobodyさん
04/02/07 14:22ID:???criptにはいくつかアルゴリズムがあります。
要は文字列を不可逆変換できればいいのでそんな感じになってるんでしょうな。
その後の文字列をどうこうするまでは考えられてないんでしょうな。
0852nobodyさん
04/02/07 15:06ID:peAnhjoK「もっと書き込み隊」で、
ホストでなく名前で書き込み禁止にしたいのですが。
改造部分を教えて頂けないでしょうか。
0853nobodyさん
04/02/07 15:42ID:???Joyful2ch-Meと比べたけど、★の処理以外同じなので、別の所に問題があるのでは？
無理でしたというが、なぜ無理なのかよく分からないが。
サブルーチン内をコピペし、いらない$passの行を除くだけだが。
0854ひと ◆/FoolZy9t.
04/02/07 16:47ID:???アルゴリズムですか...
確かに文字列をどうするか考えて無かったです...
>>853
一応、無改造のスクリプトに組み込んでみたのですが、トリップが
異なってしまいました。
分かりにくかったですね...すみません。plとcgiをtxtにしたＵＲＬ貼ります。
http://khitoshi-web.hp.infoseek.co.jp/trip.txt
trip.pl（サブルーチンです。）
http://khitoshi-web.hp.infoseek.co.jp/yyregi.txt
yyregi.cgiです。
0855nobodyさん
04/02/07 17:12ID:???同じ環境でcryptの結果が変わることは無いはず。
（Perlの場合、違う環境でも同じかな）
サブルーチン中の、$saltや$tripをprintして比べてみたら？
■ このスレッドは過去ログ倉庫に格納されています