スクリプト改造工房 Part3
■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん@お腹いっぱい。
2001/05/02(水) 21:59ID:nr93n3doという人がいましたらここで聞いてください。
ひょっとしたらアドバイス出来るかもしれません。
前スレ
Part1 http://tako.2ch.net/test/read.cgi?bbs=perl&key=958370869
Part2 http://tako.2ch.net/test/read.cgi?bbs=perl&key=986986227
#板移動に伴い「CGI改造工房」→「スクリプト改造工房」に改名
なお、質問するときは
1)そのスクリプトのある場所(URL必須、拡張子".txt"でアップすればなお良し)
2)どんな風に改造して欲しいのか? (完成イメージHTMLを用意すればなお良し)
を必ず明記しよう。
0192名無しさん@お腹いっぱい。
2001/07/08(日) 10:38ID:???0194VEDA
2001/07/08(日) 11:27ID:???ソースです。
ttp://www.gobackstage.f2s.com/html.txt
ttp://www.gobackstage.f2s.com/veda.txt
説明は>>184 >>187
さっきからずっとチャレンジしまくってるのですが
やはり自分の力ではムリです。。どうか協力おねがいしますm(_ _)m
0195VEDA
2001/07/08(日) 11:28ID:???0196名無しさん@お腹いっぱい。
2001/07/08(日) 14:16ID:???>>187のやりかたで方向性は間違っていないと思うが。
強いて言えば
s|≫([1234567890]+)|<a href="read.cgi?thread=$id&;beg=$+&;len=1">≫$+</a>|g;
↓
s|>>(\d+)|<a href="read.cgi?thread=$id&;beg=\$1&len=1">>>$1</a>|g;
とでもしたほうがよかろうか(ブラウザで見れ。かちゅーしゃでは正確には表示されないはず)
とりあえず、Perlのs///;を調べろ。
んで$idだが、まずサブルーチン呼び出しの方法を調べろ。
0197名無しさん@お腹いっぱい。
2001/07/08(日) 14:17ID:???\$1 -> $1
0198VEDA
2001/07/08(日) 14:55ID:???s|>>(\d+)|<a href="read.cgi?thread=$id&beg=$1&len=1">>>$1</a>|g;
こう変更しときました〜
サブルーチン呼び出しの方法・・
本とかもってないんで・・そこらへんさっぱりです。、(ノ;´Д`)ノ
呼び出し・・
0199VEDA
2001/07/08(日) 15:03ID:???&→&amp;
0200名無しさん@お腹いっぱい。
2001/07/08(日) 15:09ID:4E2.hBNM皆さんどうしてます?
理由あって、表示させたくないんですが。。。
マジレスきぼーん
0201VEDA
2001/07/08(日) 15:20ID:???veda.cgiのsub add_to_thread
ここで$idがつかわれているのでなんかてがかりになるかなぁ
0202VEDA
2001/07/08(日) 15:21ID:???スクリプトにもよるとおもいますが、消さないことをおすすめします。
どうしても表示させたくないのならHPのTOPやらにリンクをはるとか、
どうでしょうか?
0203VEDA
2001/07/08(日) 15:32ID:???require $INIT_jcode;
&jcode::convert( \$value, 'euc' );
$Elems{comment} = $value;
この部分のことかな?厨房並にしらべてみたョ
いやチガウナ・・・・勉強してきます。
0204見習い君
2001/07/08(日) 15:43ID:???$Elems{comment} =~ s|>>(\d+)|<a href="read.cgi?thread=$Form{page}-$Form{thread}&amp;file=current&amp;beg=$1&amp;len=1">&gt;&gt;$1</a>|g;
をつっこんでみれ〜
このままだと>>2-10はできないけど。
0206VEDA
2001/07/08(日) 15:54ID:???>名無しさん@お腹いっぱい。
>見習い君
二人とも長い間ありがとうです。
やっと目を休めれます〜
>>2-10
こういう機能は最初から求めていませんでした。
つかえたらうれしいけど
あーりーがーとーうー。オツカレデシタ。
0207VEDA
2001/07/08(日) 16:09ID:???>>1こういう風に普通にかくとリンクされていけるのですが
>1 風に記述するとエラーがでてしまいます。
解決法ありますか??
0208VEDA
2001/07/08(日) 16:17ID:???<!--QC-->のほうを>(大文字)だけにするようにしたらエラーでなくなりました
解決したことにします。おさわがせしました
0209名無しさん@お腹いっぱい。
2001/07/08(日) 16:39ID:???見栄えがいいと思うがどうだろう?>VEDAさん
0210VEDA
2001/07/08(日) 17:27ID:???今みたらかなり汚いレスになってしまいましたね・・
自分のは解決しました
どうか他の人のをみてやってください>知識ある方々
0211名無しさん@お腹いっぱい。
2001/07/08(日) 18:32ID:???オマエモナ
0212名無しさん@お腹いっぱい
2001/07/10(火) 03:30ID:???全角空白を一つ置いて書き込むと問題無いようなのですが、これを利用して
文字化け対策する事は可能ですか?。
フォームから受け取る時に強制的に全角文字を追加して、書き出し時にそれを
取り去ればいいと思うんですが、
マターリと書き込みたいのです。。
0213名無しさん@お腹いっぱい
2001/07/10(火) 03:31ID:???www.kent-web.com/chat/index.html
0214名無しさん@お腹いっぱい
2001/07/10(火) 04:11ID:???後、サーバーに負担が掛かるようなら素直に諦めようと思ってるのですが、、
ローカルで色々やってみたのですが、壊してばかりです。
http://www.geocities.com/oyasuminikki/comchat.txt
0215ナナシサソ
2001/07/10(火) 04:20ID:qy20tGgA0216名無しさん@お腹いっぱい
2001/07/10(火) 04:31ID:???半角文字の組み合わせでどうしても化けてしまうみたいです。
ザンネンデス (^ ^ )sage
0217見習い君
2001/07/10(火) 12:50ID:???0218PPCM
2001/07/28(土) 00:54ID:1MtF.ejsここのホームページの笑点というCGIをありがたくいただいたのですが、
そのCGIに音をながしたり、表を真ん中にもってきたりするのは
CGIのどの部分をかきかえればよろしいでしょうか?
管理人さんにも質問したのですが、なかなか答えてくださらない様子なので
ここで聞くことにしました。どなたかお詳しいかた、おしえてくださいませんか?
おねがいします
0219ダメダメさん
2001/07/28(土) 01:17ID:???0220PPCM
2001/07/28(土) 01:20ID:1MtF.ejshtmlということはCGIはエディタでいじらなくてもよいのですか?
0221ダメダメさん
2001/07/28(土) 02:20ID:???レイアウトを変えると言う事ですか?
音を流すのは117と412行目辺りの<head>の後に<BGSOUND SRC="http://hogehoge/hoge.midi">
とか書けばいいです。
0222PPCM
2001/07/28(土) 02:29ID:1MtF.ejsタイトルのしたにある表みたいのを真ん中に寄せたいとおもってるん
ですが、そのことです。説明不足ですいません。
〜行目というのはCGIエディタでひらいたときのことですか?
0223ダメダメさん
2001/07/28(土) 02:45ID:???表みたいなのって言うのは投稿部分の事かなぁ・・・・
120行目の</center>を切り取って適当に下のほうにずらせば良いですけど
0224PPCM
2001/07/28(土) 03:02ID:1MtF.ejsまたわからないことがありましたらおおしえねがいます。
どうも!!
0225名無しさん@お腹いっぱい。
2001/07/28(土) 03:06ID:???頼むから
0226PPCM
2001/07/28(土) 14:59ID:1MtF.ejs0227名無しさん@お腹いっぱい。
2001/07/28(土) 15:57ID:???ここに来いといった馬鹿も含めて逝け
0228名無しさん@お腹いっぱい。
2001/07/29(日) 20:56ID:???>>226
証拠を晒しageよう。
0229Web制作板住人
2001/07/29(日) 22:16ID:???http://natto.2ch.net/test/read.cgi?bbs=hp&key=988822165&st=818&to=828&nofirst=true
あまりに質問の仕方が横柄なので放置していたら誘導レスがついてしまいました。
ご迷惑をおかけして申し訳ない。
0230質問
2001/07/31(火) 02:39ID:RFZYeG1kプチボードで、レスが沢山付くととてもスレッド自体が長くなり、見にくくなると
常連の方から指摘を受け、自分でもその様に思い、改造してみました。
プチボードの中でも、2ch風アレンジ版のfifnelさんのスクリプト
(http://www28.tok2.com/home/up2ch/petit.txt)を改造しようと思っています。
スレッド一覧にレス数を表示させるための変数$res_countを使って、一定数のレスが
付いたらスレッドに書き込めないようにして、レスフォームをそのスレッドから消すように
したいのですが、Force264の掲示板スクリプトを参考に改造してみましたが、失敗に
終わりました。
どのように改造すればよいのか分からないので、レスお待ちしております。
0231名無しさん@お腹いっぱい。
2001/07/31(火) 05:19ID:eQ.igmlA>レスフォームをそのスレッドから消すように
# レスフォーム表示するとこ
if ($res_count[$_] <= 10) {
print "<form action=\"$script\" method=$method>\n";
print "<input type=hidden name=hiroyuki value=\"$res_count[$_]\">\n"; # ←これ追加
〜〜〜〜〜〜〜省略〜〜〜〜〜〜〜
}
>スレッドに書き込めないように
#--------------------#
# ログ書き込み処理 #
#--------------------#
sub regist {
if ($FORM{'hiroyuki'} + 1 >= 10) { &error("このスレッドには書けません!"); }
# 他サイトからのアクセスを排除
if ($base_url) {
$ref_url = $ENV{'HTTP_REFERER'};
$ref_url =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
if ($ref_url !~ /$base_url/i) { &error("不正なアクセスです"); }
}
〜〜〜〜〜〜〜省略〜〜〜〜〜〜〜
・・・こんな感じで如何でしょう。
0232名無しさん@お腹いっぱい。
2001/07/31(火) 05:24ID:???if ($FORM{'hiroyuki'} >= 10) { &error("このスレッドには書けません!"); }
こうかも・・・
0233230
2001/07/31(火) 16:29ID:F4BSapMoただ、レスフォームを表示させない場合に、テーブルが次のスレッドとくっついてしまいますが。
それは自分でやってみます。ありがとうございました。
0234ななしさん。
2001/08/01(水) 12:56ID:???言うのが有って、僕も改造してみてます。
そこで質問なんですが、ファイルへの出力はprint文乱発するしか
無いでしょうか
今は....
open (FH,'>index.html');
print FH<<"HTML"
ズラズラっと
HTML
ifとか{
ここでprint文乱発
}
print FH<<"HTML"
またズラズラっと
HTML
こんな感じなのですが、ソースが大変な事になってきました。
2ch型スレの17さんのスクリプトも参考にさせて頂いたのですが。
0235名無しさん@お腹いっぱい。
2001/08/01(水) 21:52ID:GTs7.NHc#config.pl
$head = <<"HEAD"
ずら
HEAD
#bbs.cgi
require "./config.pl"
print $head;
0236名無しさん@お腹いっぱい。
2001/08/02(木) 01:34ID:JEer0IOo2chタイプのようなキャップ機能を付けたいんですけど
どうすれば良いでしょうか
0237名無しさん@お腹いっぱい。
2001/08/02(木) 03:31ID:???貴方はどれくらいPerlの知識がありますか?
それによって随分回答が違ってきます。
0238名無しさん@お腹いっぱい。
2001/08/02(木) 04:38ID:???0239名無しさん@お腹いっぱい。
2001/08/02(木) 11:22ID:jcWHRKc2国際化バージョンなのでしょうか。
またそうでなければ、どのようにすれば国際化
バージョンにできるでしょうか
0240名無しさん@お腹いっぱい。
2001/08/02(木) 11:55ID:???思いっきりスレ違い。
redhat7.1に入ってるのが国際化されているかは知らないけど、
<?php
phpinfo();
?>
ってスクリプトで設定状況を確認できるから確かめろ。
で、国際化されていなかったら、phpのインストールし直し。
インストール方法はGoogleで「PHP 国際化 インストール」で
検索すりゃすぐ見つかるだろ。
0241ななしさん@234
2001/08/02(木) 17:33ID:???なるほど! 工夫すれば今よりずっとすっきりするような気がして
きました
後は、ずっと見てると慣れてくるかなー (^_^;)
ありがとうございます。頑張ります
0242名無しさん@お腹いっぱい。
2001/08/02(木) 17:37ID:???どこかにキャップ機能つけたAskaを作ってたところがあるから探してみればどうよ。
配布はしてなかったけど。
0243JAPU@現実逃避
2001/08/02(木) 19:16ID:???付けてみたけどどうよ?
http://www.japu.org/tmp/aska211+cap.zip
0244名無しさん@お腹いっぱい。
2001/08/02(木) 19:40ID:???0245名無しさん@お腹いっぱい。
2001/08/02(木) 22:59ID:???0246名無しさん@お腹いっぱい。
2001/08/02(木) 23:30ID:???0247JAPU@ほえほえ
2001/08/03(金) 21:12ID:???0248名無しさん@お腹いっぱい。
2001/08/03(金) 23:56ID:j5R7lMk2http://sk.redbit.ne.jp/~tboard/cgiroom.html
こちらにある、TBOARD 006を改造して、画像と圧縮ファイルを2つアップし、
表示される画像をクリックすると、圧縮ファイルがDLできるようにしたいと
思うのですが、どのように改造すればよろしいでしょうか?
ずっとあれこれやってみても、失敗ばかりで前に進めません。
どうかよろしくお願いいたします!
0249248
2001/08/04(土) 00:10ID:1VM0mCoAhttp://isweb2.infoseek.co.jp/~nanaco/test/tboard006.txt
よろしくお願いいたします。
0250名無しさん@お腹いっぱい。
2001/08/04(土) 02:52ID:???2つ一気にアップロードしたいってこと?
0251名無しさん@お腹いっぱい。
2001/08/04(土) 03:03ID:???保存画面を出したいんじゃ無いかな? いや俺は248じゃ無いけどね
じゃなきゃjpgをgzipする意味って・・・・
0252248
2001/08/04(土) 03:12ID:1VM0mCoAのです。
改造したいのは画像ファイルと圧縮ファイルを2つ同時にアップして、表示
される画像ファイルをクリックすると、同時にアップした圧縮ファイルを
DLできるようにしたいのです。
写真を1枚日記に見本として貼り付けて、その写真をクリックすると、一緒に
アップした何枚か圧縮した写真のzipファイルを落とせるようにしたいのです。
時間でファイル名が決まるらしいので(200108031649.jpgみたいに)、その辺を
いじって、何とか2つファイルをアップするところまではできたのですが、
そこから先に進めません・・・。
難しいでしょうか?
0253名無しさん@お腹いっぱい。
2001/08/04(土) 03:33ID:bcXT6vOoFlash Analyzerが読み込めるログを吐き出す
http://dream.lib.net/room/cgi/e_analize.htmlの
ACCESS ANALYZERを
SSIで利用できるようにしてもらえませんか?
テキストカウンター付きでおねがいします。
0254名無しさん@お腹いっぱい。
2001/08/04(土) 04:06ID:???画像アップできたのならそのファイルに向けてリンクはるだけじゃない?
0255248
2001/08/04(土) 04:20ID:1VM0mCoAそれができないんです・・・。
ただアップされて、終わりなんです。
$fileflagが関係しているのでしょうか?
0256コメント無しさん
2001/08/04(土) 06:20ID:5S9xJi7Qただアップされてって、どういうことよ?
じゃあ、リンクが間違ってるだけじゃないの?
ちゃんとソース見ようと思ったけど、Perlだから汚くて読みたくなかった。。。
0257名無しさん@お腹いっぱい。
2001/08/04(土) 08:41ID:???1、転送されたファイル名はDATEで得た時間+拡張子になるので、出来ればファイル2つ
を一気に上げた方が具合が良さそうです。
2、それが上手く行けば後は添付ファイル2の存在をチェックして、出力するHTMLを
スイッチすれば上手く行くと思うです。
2は簡単だったけど、1が良く解らない、、、バイナリ転送かぁ・・
同じ転送ルーチンに投げれば良いのか、 んー 勉強不足ですぅ
ソースもごちゃってるぅぅ
256さまーー (^^;)
0258257
2001/08/04(土) 11:53ID:???穴もいっぱい有りそうだし、、だれか助けてーー
0259名無しさん@お腹いっぱい。
2001/08/04(土) 12:27ID:DYf6StlIソース見せないのに助けられるかって。
0260完全変態
2001/08/04(土) 12:32ID:???その数★900曲★以上! 全部作者に無断で改変・転載でがんばってます!!
http://destiny.prohosting.com/kanzen/cgi-bin/bbs5/wforum.cgi
http://www.destiny.prohosting.com/J/
全部私のコレクション(笑い)です。
どんどんお持ち帰りくださいませ!
(JASRAC反対! 私は断固闘う所存です。
みなさんのDLは強力なパートナーとなるのです。)
0261248
2001/08/04(土) 13:40ID:BjQYo7uo決まるので、1つ目はそのまま、2つ目にアップするファイルは分までで
名前が決まるように(200108031641.zip)して、アップしてみたんです。
$r_dateをいじって。
名前が違うから、ファイルは上がるのですが・・・。
257様、穴があってもいいです、ぜひ見せてください・・・。(切実)
0262257
2001/08/04(土) 13:43ID:D6eDJpGAhttp://www.geocities.com/uso8800/tboard006.txt
##########と
##########//////////で囲った所が、書き換え追加部分です
編集時に添付ファイルを削除出来ないのは仕様みたいです、
何か危ない気がするです、、元の状態より強度下がったりしたら最悪。。。
0263257
2001/08/04(土) 13:52ID:???良いカモ・・・
0264248
2001/08/05(日) 13:32ID:OpAruGbcアップありがとうございます!今のところローカルで無事に動いているので
大丈夫みたいです!
すごく嬉しい。本当にありがとうございました!感謝です!
0265名無しさん@お腹いっぱい。
2001/08/05(日) 23:24ID:???0266名無しさん@お腹いっぱい。
2001/08/05(日) 23:55ID:???俺はあんたが嫌い。
0268257
2001/08/06(月) 06:36ID:???// ̄\ 。
|/ ; イヽ ゜ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
〜 |\/### ≫l < < では_gunzipさんのマネっこで行くっすぅ・・
〜 |/\_____/ \_________________
ログ見ると分かるんですが、ログファイルにpwdがモロ書きされます。
(意図は不明、多分自発言を消せるBBSとサブルーチンを共用してるからかと)
出力を殺すかログファイル名と過去ログ保存ディレクトリを変更しないと
いたづらされると思います。
0269名無しさん@お腹いっぱい。
2001/08/07(火) 15:15ID:???上のHTML表示の掲示板に最大記事件数越えたら古い記事から削除って機能つけたいんだけど、
どうもうまく行かないんです。
たぶん記事が<!--comment数字-->と<!--endcomment数字-->で囲まれているから
それを消せば良いんだろうけど、配列にはいってるから単純にs///;でやれないし・・。
だれか知恵を貸して下さいな。
0271名無しさん@お腹いっぱい。
2001/08/07(火) 16:38ID:oD/S8Pdo我もそう思うニダ
>>269
で、一番最後のデータを消すだけだったら
pop(@html); とか…
$html[-1] = ""; とか…なんてどうでしょうか
0272名無しさん@お腹いっぱい。
2001/08/07(火) 17:00ID:???Perl初心者コーナーでの解答では解決しないのかい?
まぁ配列加わると状況が違うんだろうが。(s修飾子)
0273名無しさん@お腹いっぱい。
2001/08/07(火) 17:01ID:???Perl初心者コーナーでの解答では解決しないのかい?
まぁ配列加わると状況が違うんだろうが。(s修飾子)
0274269
2001/08/07(火) 17:23ID:???だから、中身見てもらった方がいいかなと思ってこっちにしました。
0275名無しさん@お腹いっぱい。
2001/08/07(火) 20:04ID:???じゃあこんなんで。
(my $str = join '', @html) =~ s/<!--comment\d+-->.*<!--endcomment\d+-->//s;
0276269
2001/08/07(火) 20:26ID:???一体どんな処理しているんですかね?やっぱり素人なんでわからないです。
ちょこっとだれか教えていただけないですか?意味不明なままだとせっかくの物か使えなさそうなんで。
0277名無しさん@お腹いっぱい。
2001/08/07(火) 20:51ID:???そんな君にぴったりのサイトを紹介するよ
http://www.Google.com/
0278名無しさん@お腹いっぱい。
2001/08/07(火) 22:26ID:3OXjY8h6googleは先頭が大文字でもつながるのか(w
0280名無しさん@お腹いっぱい。
2001/08/08(水) 05:57ID:7PpHuotE画面には「エラーです」と表示するやり方を教えて。
ソース表示の、TEXT形式希望。 画面表示は505エラーでもいいです。
継承して、make_outputの最後でなんかして、use KCatch qw( source mode=plain);を
どっかに入れればいいと思うんですが、詳しいところがわかりません。
0282名無しさん@お腹いっぱい。
2001/08/08(水) 15:30ID:???そのくらいなら
#!/usr/bin/perl
eval{
# スクリプト
} or do{
&mail_send($@);
# その他後始末
}
sub mail_send{
# ...
}
__END__
とでもしたほうがいいんじゃないか?
0283名無しさん@お腹いっぱい。
2001/08/10(金) 01:35ID:HduNKd3M0284280
2001/08/10(金) 05:13ID:w7wqIewUデバッグと通常試用とで大きな修正したくないんです。
継承というか関数の上書きをしたいんですが、やりかたがわかんないです。
0285280
2001/08/10(金) 23:29ID:???いったい何をしようとして書き込んでいたんだろう>俺
逝ってきます・・・
0286名無しさん@お腹いっぱい。
2001/08/11(土) 01:17ID:???最後にコピペする時間違えたりして鬱になってたんで (汗
0287名無しさん@お腹いっぱい。
2001/08/11(土) 13:47ID:???┃ ただいま、ラウンジで大盛り上がりのブラウザ戦争ゲーム! . ┃
______________
‖|*ENDLESS BATTLE@2ch*|‖
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
モナ―国総帥が覚醒しました , o , o ∧∧∧∧
 ̄ ̄ ̄∨ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ // // |捨て身で>
∧ ∧ ∧ ∧ | |( ゚Д゚)| < 要塞に >
___( _冂二冂(,,゚Д゚) ∩ >->_>->_ |当たる!>
∧⊂/ ̄|二| ̄\つ∧二ヽ ((_(∴ヽヽ\(∴ ∨∨∨∨
ι匚|_/_\_匚i_|∪∪i] 〜/oヽヽ ,>─>ヽ . .
\/∠ / / \_/二/ く。◎◎)=)__/)=)
.
恨み!復讐!英雄の誕生!生身の人間とのどろどろした戦闘!
┃http://corn.2ch.net/test/read.cgi?bbs=entrance&key=997472675 .┃
┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
0288age
2001/08/21(火) 05:50ID:Rn7WjR4sどこをいじればよいのでしょうか?
初心者質問ですがよろしくお願いいたします。
0289名無しさん@お腹いっぱい。
2001/08/21(火) 09:32ID:F15AqhNEソース
0290頼もう
2001/08/21(火) 13:52ID:KxW7lOz6http://shortmessage.hypermart.net/
でIPかホストを取得してログファイルから参照できるようにしたいのだが、
どのような文をどこに注入したらよいのか教えてくれ。いや、教えてください。
0291名無しさん@お腹いっぱい。
2001/08/21(火) 17:28ID:ngiYKYk60292名無しさん@お腹いっぱい。
2001/08/21(火) 17:30ID:ngiYKYk6■ このスレッドは過去ログ倉庫に格納されています