スクリプト改造工房 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を用意すればなお良し)
を必ず明記しよう。
0595名無しさん@お腹いっぱい。
01/12/11 19:35ID:???あんたもしかして、ささ?
0596594
01/12/11 19:57ID:qDkXU0AS0597,,,
01/12/11 21:36ID:???0598575
01/12/12 09:52ID:j2q6LnF6なんだが感動だなー2chでこんなに優しくされた事ないです。
できるなら何か御礼がしたい気分です
0599461
01/12/12 11:14ID:T7t6jzkC漏れのスクリプトの修正個所を教えておくれ
0600名無しさん@お腹いっぱい。
01/12/12 17:21ID:K3A+PKZm0601あほ
01/12/12 17:36ID:o5WLFesJタグをつかえるようなわざはありますか?
さんざん答えてもらってるじゃん?
まだ未解決ならその部分を教えてくれ
イチイチ話追ってらんないし
0603名無しさん@お腹いっぱい。
01/12/13 04:06ID:RKUdAeD4ソースの中にコメントとして表示させたいのですが、どうやってやるのか教えてください。
0604Kusakabe Youichi
01/12/13 04:23ID:???>ゆいちゃっと2000で、ROMさんがいたら、
>ソースの中にコメントとして表示させたいのですが、どうやってやるのか教えてください。
どこの方言でしょうか? ねこみみです:)
0605名無しさん@お腹いっぱい。
01/12/13 05:40ID:???0606名無しさん@お腹いっぱい。
01/12/13 06:58ID:???0607よしだみつお
01/12/13 14:07ID:???『改造クン』とかいう引きこもり精神病の電波小僧
(現在2チャンネラー)が運営している最低なHPスペースです。
ユーザーの事など全く考えずに、こづかい稼ぎだけが目的で営利主義に走ってやがります。
天罰を与えてやりましょう!!
イタズラ登録をしまくって下さい。悪用しちゃってもいいですよ!!
鯖に負荷かけまくって責任とらせるってのも面白いかも(プ
http://k-server.org/ http://k-server.org/ http://k-server.org/
http://k-server.org/ http://k-server.org/ http://k-server.org/
http://k-server.org/ http://k-server.org/ http://k-server.org/
http://k-server.org/ http://k-server.org/ http://k-server.org/
この文章のコピー・転載を歓迎いたします。
0609ななし
01/12/13 23:01ID:sPciwiZN↑はランダムにテキストを表示するスクリプト(入手先失念)なのですが、
.docomo.ne.jp等の携帯からのアクセスにだけ動くようにするにはどのようにすれば良いでしょうか?
ご教授願います。
それを使って分岐
他の携帯はどっかでuser-agent調べて追加してね
$mobile = 0;
$agent = $ENV{'HTTP_USER_AGENT'};
if ($agent =~ /^DoCoMo/i) { # i-mode
$mobile = 1;
} elsif ($agent =~ /^J-PHONE/i) { # J-SKY
$mobile = 1;
} elsif ($agent =~ /^UP\.Browser/i) { # EZweb
$mobile = 1;
}
0612名無しさん@お腹いっぱい。
01/12/17 00:47ID:P4Cb9Kj6↑のスクリプトなんですが、レスでageないようにするにはどうしたらいいでしょう?
個人のHPに使うので、ageなくても良いんですよ
0613名無しさん@お腹いっぱい。
01/12/17 01:47ID:???# foreach (0..@lines) {
# my($mno,$mnum,$mres_num,$mdate,$mname,$msubject...(後略)
# if ( ($res_num eq $mnum) and ($mres_num eq '') ) {
# splice(@lines, $_, 1);
# unshift (@lines,"$new_code<>$regist_num<>$oya_num<>$res_name<>\n...(後略)
# }
# }
上の部分を消して(一応コメント化)、次を追加
unshift(@lines, "$new_code<>$regist_num<>$oya_num<>$res_name<>\n");
で逝けるような
0615614
01/12/17 01:52ID:???このスレから来たのか(w
0616名無しさん@お腹いっぱい。
01/12/18 09:42ID:???その、米塩の広告のあるページが見つかりません。
どなたかご存知ですか?
0617名無しさん@お腹いっぱい。
01/12/18 09:49ID:???0618名無しさん@お腹いっぱい。
01/12/18 10:06ID:???0619105
01/12/18 21:38ID:UFIXd/em↑の107です。
自分のIPアドレスは記録無視して来客のIPアドレスだけログ取るのって出来るんでしょうか?
そういう機能の付いたアクセス解析もあるそうなんですけど、今のとても気に入ってるんで
改造してそういう機能を付加していただけないでしょうか、お願いしますm(__)m
ソースは↓です、at-worksさんという方の作でこれの源流はKENTさんのやつらしいです。
0620105
01/12/18 21:42ID:UFIXd/em----------------------------------------------------------------
#!/usr/local/bin/perl
#=====================================================================
# access cgi アクセス情報取得ファイル report.cgi (2001/12/11)
#---------------------------------------------------------------------
# Original Script
# Access Report v2.0 (2001/04/01)
# アクセス解析システム
# Copyright(C) Kent Web 2001
# [email protected]
# http://www.kent-web.com/
#---------------------------------------------------------------------
# modified by himura
# access cgi ver.1.90 (2001/12/11)
# mail: [email protected]
# site: http://www.din.or.jp/~himura/at-works/
#---------------------------------------------------------------------
# ログデータ構造:"NO , DATE , REF , USER_AGENT , PIXEL , HOST , ADDR , DOC , "
# データログ構造:"DATES , ACCESS , "
#=====================================================================
# 環境設定
# 設定ファイル
require './access.ini';
# チェック用リスト
require $checkpl;
0621名無しさん@お腹いっぱい。
01/12/18 21:46ID:/iqeHLWFhttp://pc.2ch.net/test/read.cgi/php/992473384/3
0622105
01/12/18 21:46ID:UFIXd/em-------------------------------------------------------------------------------------------------------------------------
#=====================================================================
# UserAgent 情報を取得
$user_agent = $ENV{'HTTP_USER_AGENT'};
$user_agent =~ s/</</g;
$user_agent =~ s/>/>/g;
# UserAgent のチェック
if ($user_agent) {
foreach (@killua) {
if ($_ eq '') { next; }
$_ =~ s/\./\\./g;
$_ =~ s/\?/\\?/g;
$_ =~ s/\+/\\+/g;
$_ =~ s/\*/\.\*/g;
if ($user_agent =~ /$_/) { &putimage; }
}
}
#---------------------------------------------------------------------
# cookie チェック
if ($cookie_check) {
&cookie_get;
$co_check = time - $cookie_check * 60;
if ($get{$cookie_name} > $co_check) { &putimage; }
}
0623名無しさん@お腹いっぱい。
01/12/18 21:47ID:???0624名無しさん@お腹いっぱい。
01/12/18 21:49ID:???いいかげんにしろ。圧縮してどっかのあぷろだに上げればいいだろが。
0625105
01/12/18 21:49ID:UFIXd/em出来ればCGI側の機能で取らないようになってたらありがたいです。
素人考えですけど↓の部分じゃないのかなぁとか思ってるんですが・・・
-------------------------------------------------------------
#---------------------------------------------------------------------
# ホスト情報を取得
unless ($x_forwarded) {
$host = $ENV{'REMOTE_HOST'};
$addr = $ENV{'REMOTE_ADDR'};
} else {
$host = '';
$addr = $ENV{'HTTP_X_FORWARDED_FOR'};
}
if ($get_remotehost) {
if ($host eq '' || $host eq $addr) {
$host = gethostbyaddr(pack('C4', split(/\./, $addr)), 2);
}
}
if ($host eq '') { $host = $addr; }
# 除外 host のチェック
foreach (@myhost) {
if ($_ eq '') { next; }
$_ =~ s/\./\\./g;
$_ =~ s/\*/\.\*/g;
if ($host =~ /$_/) { &putimage; }
}
0626105
01/12/18 21:51ID:UFIXd/emあ、やはりそうなんですか。すいません。出直してきますm(__)m
0628105
01/12/18 22:58ID:UFIXd/em全部読み返したら本当に恥ずかしい。
ソースは配布元のリンク一応張ってたんスけど
ttp://www.din.or.jp/~himura/at-works/access/download/access.lzh
他スレhttp://pc.2ch.net/test/read.cgi/php/992473384/108の
108さんが教えてくれたのですこし自分で考えてみようかなと
分からなかったらまた来ます、マジすんませんでした。
0629名無しさん@お腹いっぱい。
01/12/26 00:04ID:???0630名無しさん@お腹いっぱい。
01/12/28 18:22ID:e4G5Ne9N姓名相性診断スクリプトttp://www.rescue.ne.jp/cgi/i-sho/i-sho.txtで
占った名前のログをとるようにすることってできますか・・・?
0631名無しさん@お腹いっぱい。
01/12/28 19:25ID:???できます・・・!
0632名無しさん@お腹いっぱい。
01/12/28 20:02ID:e4G5Ne9Nどうやればできますか・・・?
0633名無しさん@お腹いっぱい。
01/12/28 20:22ID:wdZ4AWJ7http://muvc.net/taron/index.html
0634630
01/12/28 20:34ID:e4G5Ne9N0635理由不純
01/12/28 20:40ID:???0636630
01/12/28 21:34ID:e4G5Ne9Nすいません。
分かりやすいサイト等ありましたらぜひお教え下さい。
0637名無しさん@お腹いっぱい。
01/12/28 22:10ID:???http://pc.2ch.net/test/read.cgi/php/1003900311/
0638 ◆.t4dJfuU
01/12/30 16:56ID:nMRi1i2q0640名無しさん@お腹いっぱい。
02/01/03 13:23ID:heDaELZUhttp://www.kent-web.com/bbs/aska.html?
こんな掲示板です。お願いします。
素直にツリー型の掲示板を使おうYO!
0642640
02/01/03 23:03ID:heDaELZUアドバイス有り難う御座います。
ですが、ツリー型のものと現行のものを使い分けたいという理由と
ログをどうしてもリセットしたくないという理由がありまして...。
0643名無しさん@お腹いっぱい。
02/01/04 03:45ID:???0644名無しさん@お腹いっぱい。
02/01/04 03:51ID:1cmj203Dいや、出来るね。そこまで面倒なことしたくないから作らないけど。
INDEXの表示しだいじゃないの?デザインっていうのか(藁
参考になりそうなプログラムがあがってきそうな予感がするのでage
0645名無しさん@お腹いっぱい。
02/01/04 03:52ID:???バカ?
0646名無しさん@お腹いっぱい。
02/01/04 04:31ID:3hR8qo3U0647名無しさん@お腹いっぱい。
02/01/04 04:31ID:0+IJSzBl0648名無しさん@お腹いっぱい。
02/01/04 14:56ID:dA7RPxAO0649名無しさん@お腹いっぱい。
02/01/04 15:08ID:dA7RPxAOだから re:[XX] をパースしてログを変換しないとダメだった。
それだったら他のツリー形式の掲示板にログを変換するのと
あまり手間が変わらない気もするね。
0650名無しさん@お腹いっぱい。
02/01/04 16:47ID:ZcIQHoBD0651643
02/01/04 17:23ID:813/eY5p簡単には出来ないよ、と言いたかっただけ
ツリー状にするなら深さにしても幅にしてもターミネータ入れたり
しなきゃなんないから、最悪ログ2つ作れば良いんだけど
きっぱり否定すれば>>644みたいな人が現れて、改造してくれるかな
と思ったから言ってみた (笑)
644は僕じゃ無いよ、煽りはいやん
0652643
02/01/04 17:24ID:???↓
645は僕じゃ無いよ、煽りはいやん
間違えた・・・
0653名無しさん@お腹いっぱい。
02/01/04 17:43ID:???>>650
ソースうpすれ
0654名無しさん@お腹いっぱい。
02/01/04 17:52ID:???0655名無しさん@お腹いっぱい。
02/01/04 18:06ID:ZcIQHoBD0656デフォルトの名無しさん
02/01/04 18:16ID:???0657名無しさん@お腹いっぱい。
02/01/04 18:23ID:???キャラがキツクテしょうがない。
0658名無しさん@お腹いっぱい。
02/01/04 18:56ID:???0659名無しさん@お腹いっぱい。
02/01/04 18:57ID:???0660名無しさん@お腹いっぱい。
02/01/04 19:03ID:???0661名無しさん@お腹いっぱい。
02/01/04 20:58ID:???なのにみんな不機嫌そうだよね。
きっともうすぐ正月休みも終わっちゃうのに結局なんにもできなくって
いらいらしているんだね。
0662名無しさん@お腹いっぱい。
02/01/04 22:24ID:???デザイン。キャラクター。毛つげの処理方法教えれ。
よし俺が教えてやる。
これは実話にそって説明していくのでリアルタイムにやればいい。
鏡を床に(畳)等に置く。
そっと自分の肛門を見る。
ここまではいいだろう。ここからが問題だ。。。
まず。剃るとアナルまで剃り落としてしまう危険がありますから、
鼻毛切りバサミなどを用意して構える。
鏡越しに丁寧に1本ずつ切っていく。
これをものすごい眼力と集中力でやりとげる。
似たような方法で毛抜きを使う手があるがあれは非常に痛いのでやめておいた方のがいい。
以上_____________
0663名無しさん@お腹いっぱい。
02/01/04 22:25ID:???0664名無しさん@お腹いっぱい。
02/01/05 08:11ID:???0665名無しさん@お腹いっぱい。
02/01/05 08:56ID:Ptov7kPr0666名無しさん@お腹いっぱい。
02/01/05 12:26ID:???0667名無しさん@お腹いっぱい。
02/01/05 12:36ID:qQr7T+8fこれか?
http://www.kent-web.com/bbs/petit.html
で、新記事のマークって何よ?
Cookieに最終訪問日時食わしておいて毎回新しい記事を
表示させるのか? めでてーな。
0668名無しさん@お腹いっぱい。
02/01/05 14:32ID:???0669名無しさん@お腹いっぱい。
02/01/05 15:18ID:???0670名無しさん@お腹いっぱい。
02/01/05 19:01ID:???0671名無しさん@お腹いっぱい。
02/01/05 19:20ID:W7sT5g6/0672名無しさん@お腹いっぱい。
02/01/05 19:23ID:???ていうか、どっかでこれと全く同じ質問に対する回答を見たよ。
どこだっけな?(笑)
0673名無しさん@お腹いっぱい。
02/01/05 19:26ID:???0674↑
02/01/05 20:57ID:???恥ずかしくないの?
0675名無しさん@お腹いっぱい。
02/01/05 23:34ID:???過去は振り返らないタイプ。
0676名無しさん@お腹いっぱい。
02/01/07 14:38ID:p0zS7OWqCGIにアクセスするのではなく index.htmとかに貼り付けて自動で実行する方法をおしえてください。
最近のI-modeに対応するべくページは作ったけど
今までのIndex.htmで検索エンジンとかに登録してしまったので自動で振り分けをhtmへの記述でできないかなぁと。
そのほかの方法もいくつか試しては見たけれどうまくいかなくって;;
無知すぎるじぶんがイタイ。。
0677名無しさん@お腹いっぱい。
02/01/07 15:40ID:???index.htmはリフレッシュタグで一瞬にして振り分けcgiへ飛ぶ。
振り分けcgiから、携帯用、PC用の各ページにいってもらう(自動的に)
そこの掲示板で聴けばいいのに。
0678名無しさん@お腹いっぱい。
02/01/07 15:42ID:???念のため。
<META HTTP-EQUIV="Refresh" CONTENT="1">
とか、そういう感じね。
0679名無しさん@お腹いっぱい。
02/01/07 23:26ID:???画像アップロードの機能を付加させる事は出来ますでしょうか。
http://www.geocities.co.jp/SiliconValley-SanJose/3126/surface.txt←スクリプトのソース
http://www.geocities.co.jp/SiliconValley-SanJose/3126/design.html←メインのスキン
0680名無しさん@お腹いっぱい。
02/01/07 23:26ID:???0681676
02/01/08 00:27ID:b4MU/M0Aあとは 自分で調べて だめだったらあそこのHPででもきいてみます。
0682676
02/01/08 00:51ID:b4MU/M0A私の間違いでしょうか? 「指定サイトが移動しました」っていってきちんと飛ばないんです。
<META HTTP-EQUIV="Refresh" CONTENT="1;URL=http://www.yyy.ne.jp/~xxx/furiwake.cgi">
あってるかだけでもいいんで 教えてください。
0683名無しさん@お腹いっぱい。
02/01/08 01:04ID:2A3Y9CyQうはっ。マジデスカ。
それ以外の方法はないと思うよ。
一つだけ、htmをcgiとして.htaccessに登録する方法あるけど、
(ふつうのhtmlは、拡張子.htmlを使う)
そこまでしてやる必要があることなの?
0684名無しさん@お腹いっぱい。
02/01/08 09:00ID:???0685名無しさん@お腹いっぱい。
02/01/08 12:35ID:q9hjcCDEそうだった(笑)
0686名無しさん@お腹いっぱい。
02/01/09 03:12ID:7B2W5tGtの下部に持ってくるためにはどこを書きかえれば
良いかご存知の方おりましたら教えて下さいませんか?
0687名無しさん@お腹いっぱい。
02/01/09 07:33ID:???Global symbol "joyfulnote" requires explicit package name at /php/988808396/ line 686.
0688名無しさん@お腹いっぱい。
02/01/09 19:34ID:???0689名無しさん@お腹いっぱい。
02/01/10 23:17ID:???どなたかお願いします。
#!/usr/local/bin/perl
if ($ENV{'REQUEST_METHOD'} eq 'GET'){
$url = $ENV{'QUERY_STRING'};
}elsif ($ENV{'REQUEST_METHOD'} eq 'POST'){
read(STDIN, $url, $ENV{'CONTENT_LENGTH'});
}else{
print "Content-type: text/plain\n\n";
print "エラー";
exit;
}
print "Content-type: text/html\n\n";
print qq!<HTML>!;
print qq!<HEAD><META HTTP-EQUIV="Refresh" CONTENT="0;URL=$url"></HEAD>!;
print qq!<BODY> ジャンプ : $url</BODY></HTML>!;
0690名無しさん@お腹いっぱい。
02/01/10 23:25ID:???これで@pathに入るから後はご自由に。
0691名無しさん@お腹いっぱい。
02/01/11 00:09ID:Yyh8AndIできればもう少しヒントを・・
0692名無しさん@お腹いっぱい。
02/01/11 00:14ID:???まぁお前みたいなヤツはJavaScriptでも使ってなさいってこった。
usage : ttp://hogehoge.com/jump.html?http://www.2ch.net/
jump.html
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<Script Language="JavaScript">
BITPATH = location.search.substring(1, location.search.length);
document.write("<META HTTP-EQUIV=\"Refresh\" CONTENT=\"1; URL=" + BITPATH + "\">");
</Script>
<TITLE>転送!!</TITLE>
</HEAD>
<BODY>
ジャンプ!
</BODY>
</HTML>
0693名無しさん@お腹いっぱい。
02/01/11 00:16ID:Yyh8AndI0694
02/01/11 03:25ID:Qal8KlWm$ENV{'PATH_INFO'}の値は /dir/path_info.cgi になり、
JavaScriptを使わないなら必ず$ENV{'PATH_INFO'}はGET送信されるので
($url= $ENV{'PATH_INFO'})=~ s/^\///;
■ このスレッドは過去ログ倉庫に格納されています