スクリプト改造工房 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を用意すればなお良し）
を必ず明記しよう。
0529名無しさん＠お腹いっぱい。
01/11/17 15:43ID:IaCs23FH先日質問スレで書いたのですがこちらの方が適してると思ったので
質問させていただいてもよろしいでしょうか。
KENT WEBのpetit boardを使っています。
プルダウンで地域名、年齢の設定項目を追加しました。
ところが、地域名の方は問題ないのですが、年齢の方が
クッキーがずれるというか･･･
例えば、２０才を選んで投稿すると次回からは選ばなくても
２０才を選んだ状態のになってるはずなんですが、
投稿後、プルダウンメニューは未設定に戻っているんです。
そのまま今度は２２才で投稿すると、投稿後の画面では
プルダウンメニューは２０才を選んだ状態になっています。ずれてますよね。
ここでリロードすると、２２才を選んだ状態になってくれるんですが。
一応、ちゃんと投稿内容にはその時の設定内容がちゃんと反映されてるし
項目も年齢なので毎回変えて投稿するようなものでもないのですが
やっぱり気になります。
その部分のソースはこんな感じです。
0530529
01/11/17 15:43ID:IaCs23FHEOM
# 居住地の選択フォームを表示
if ($c_area eq "") { $c_area = '0'; }
foreach (0 .. $#areas) {
if ( $c_area eq "$areas[$_]") {
print "<option value=\"$areas[$_]\" selected>$areas[$_]\n";
} else { print "<option value=\"$areas[$_]\">$areas[$_]\n"; }
}
print "</select> \n";
# 年齢の選択フォームを表示
print "<b>Age</b> <select name=nen onFocus=\"this.style.backgroundColor='#000066'\" onBlur=\"this.style.backgroundColor='#000000'\" class=\"form\">";
if ($c_nen eq "") { $c_nen = '0'; }
foreach (0 .. $#nens) {
if ( $c_nen eq "$nens[$_]") {
print "<option value=\"$nens[$_]\" selected>$nens[$_]\n";
} else { print "<option value=\"$nens[$_]\">$nens[$_]\n"; }
}
print <<"EOM";
</select>
0531名無しさん＠お腹いっぱい。
01/11/18 01:03ID:???フォームから送られた値（が有る時は）そっちを使えば？
0532名無しさん＠お腹いっぱい。
01/11/18 04:18ID:???>ああ〜 ちょっとデンパってる？ （・∀・）
真性のｳﾞｧｶですか?
>＞subject読み込みの段階からロックしないと、
>これに対して発言したんですが？
そんなことは分かってますが?
>あなたのOSはroでファイル開けても0バイトになるんですか？
その前にプロセスAがtruncateしてるから0バイトになるんですが?
>書き込みにロックしなくて何処にロックするんでしょう？？
書き込みにロックしないなんて誰も言ってませんが?
>symlinkでもmkdirでもrenameでもAtmicなシステムコールなら
>問題無いと思いますが?
いくら書き込みだけをatomicなシステムコールによるロックで囲っても
意味がないと言ってるんですが?
>つーか上の方のレス読まずに血管ﾋﾟｸﾋﾟｸさせて書いてそうですねあなた。
>発言する前に話の流れを理解しましょ
461から全部読んでいますが?
あなたこそ発言する前にレスの内容くらい理解しましょ
0533名無しさん＠お腹いっぱい。
01/11/18 04:20ID:???>えっとどうでも良いんだけど、523は>>501には当てはまらないよ
思いっきり当てはまりますが何か?
>発言する前に話の流れを理解しましょ
>どこで0バイトになるのか得意のフローチャートで良く考えてみよう。
あなたが考えてください。
0534529
01/11/19 12:35ID:nGPgUcVjすいません、perlのことなど全然良く分からないんです、
フォームから送られた値を使うって言うのはどういうことなんでしょうか？
0535名無しさん＠お腹いっぱい。
01/11/20 01:32ID:???if ($c_nen eq "") { $c_nen = '0'; } ってのを、
if ($c_nen eq "") { $c_nen = $in{'nen'} || '0'; }
に変える。たぶん。
0536白夜 ◆GiKO.QrM
01/11/20 02:31ID:9QBlPYDnトリップを使えるように改造しようとして
# トリップ________________________________________
{
$FORM{'name'} =~s/◆/◇/g;
$FORM{'name'} =~s/★/☆/g;
$FORM{'name'} =~s/削除/"削除"/g;
$FORM{'name'} =~s/sakujyo/"sakujyo"/g;
$FORM{'name'} =~s/管理人/"管理人"/g;
$FORM{'name'} =~s/管直人/"管直人"/g;
$FORM{'name'} =~s/菅直人/"菅直人"/g;
# トリップ
my ($key,$salt);
if($FORM{'name'}=~/#(.+)/){
$key = $1;
$salt = substr($key."H.", 1, 2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$FLAG{'trip'} = substr(crypt($key, $salt),-8);
}
$FORM{'name'} =~ s/#.*//g;
$FORM{'mail'} =~ s/#.*//g;
if($FLAG{'trip'}){
$FORM{'name'}.=" "if($FORM{'name'});
$FORM{'name'}.="<trip>";
$tripper = 1;
}
$FORM{'name'} =~ s/<trip>/◆<\/b>$FLAG{'trip'}<b>/g;
}
と書いたんですが、
コレだとトリップの値までクッキーされてしまいました。
フォームの値から#以降を取り除けばいいと思うんですが
どうすればいいんでしょうか？お願いします。
0537名無しさん＠お腹いっぱい。
01/11/20 03:24ID:???トリップってここの◆cryptedword ってやつだよね
クッキーに書きたいなら先に書けば良いんじゃ無いの？
嫌なら別の変数にいれるとか
0538白夜 ◆GiKO.QrM
01/11/20 03:36ID:???いや、ネームの値に#tripperとか書くとそれが
トリップに変換されて名前のクッキーに
トリップの変換後の値も含まれてしまうんです。
で、変換前の値、もしくは#以降を削った値を
クッキーしたいんです。
0539名無しさん＠お腹いっぱい。
01/11/20 06:32ID:???$plaincookiename = $FORM{'name'};
# トリップ________________________________________
.....
クッキーする?所で$plaincookiename を使え
そんなの書けて何で分からんのか
0540名無しさん＠お腹いっぱい。
01/11/20 07:12ID:???ごめん。何時でもフォーム優先なら、
if ($c_nen eq "") { $c_nen = '0'; } ってのを、
$c_nen = $in{'nen'} if $in{'nen'};
if ($c_nen eq "") { $c_nen = '0'; }
の二行に変える。($in{'nen'}に入ってれば)
>>538
539の人が言うようにいったん退避させてから#以降を除けば？
$plaincookiename =~ s/(.*)#[^#]+/$1/;
こんな感じ?で。
0541白夜 ◆GiKO.QrM
01/11/20 12:23ID:???あ、そうか。
すみません。勉強中なんで。
ありがとうございます。
0542白夜 ◆GiKO.QrM
01/11/20 14:51ID:???0543529
01/11/20 18:07ID:cdlrBx1Qありがとうございます。しかし、やってみたのですが
やっぱり年齢だけselectedが、１つ前の投稿のに
ずれちゃいます。
実際書いて、見てもらった方が早いかもしれません。
よかったら見てみて下さい。まだ何にも公開してないページですので
自由にテスト投稿していただいて構いません。
http://www.chel-c.f2s.com/cgi-bin/b1/bbs.cgi
0544名無しさん＠お腹いっぱい。
01/11/21 02:48ID:???テスト投稿じゃ分かんないよ…。
select name=nen だから勘で答えちゃった。ごめん。
スクリプトをテキストでアップしてリンクを張れば、
もっと沢山の人が見てくれると思うよ。
0545初心者
01/11/21 10:09ID:LhK+uP5Ihttp://www.cs-w.com/~escort/estimation.txt
これを
http://www.nakagawachi.co.jp/cgi-bin/b8.cgi
のようにしたいと思います。
0546名無しさん＠お腹いっぱい。
01/11/21 12:20ID:???勝手にしろや
0547名無しさん＠お腹いっぱい。
01/11/21 17:15ID:???おいおい、冷たいやつだな。
そんな対応してるから人が居なくなるんだよ。
>>545
そうか、頑張れ！
応援してるからな！
0548名無しさん＠お腹いっぱい。
01/11/21 18:14ID:???勝手に応援しろや（ｗ
0549529
01/11/21 18:27ID:tWRTsBfqそうですよね、尋ね方が曖昧ですいません!!
というわけでアップしてみました。
http://www.geocities.co.jp/Stylish/6116/bbs.txt
です。私もよく分からずになるべく変に触わらぬようにはしましたが
むりやり他のスクリプトを組み合わせるように改造したので
とんでもない文法になってるかもしれませんが、ご容赦を･･･
もしよければ見てみてください。
あと、テスト投稿してくれた方がいて気付いたのですが
ホスト名が皆、127.0.0.1(localhost)になるのは
何故なのでしょうか。無知で全く申し訳ないです。
0550名無しさん＠お腹いっぱい。
01/11/21 18:56ID:???全部元にもどして
# ログ書き込み処理 #
の一番下に
print "Location: http://www.chel-c.f2s.com/cgi-bin/b1/bbs.cgi\n\n";
って書け、
どうせそのうち、リロードすると二重投稿になって困ってます！！！って言うんだから
0551529
01/11/21 20:20ID:tWRTsBfqBBSのアドバイスありがとうございました。すごいありがたかったのですが
しかし私の理解が追いつかなくて何と答えていいものかわからないだなんて
申し訳なくて穴があったら入りたい勢いです･･･
全部元に戻すというのは、>>540のレスなどを参考に書き直した箇所を
元に戻せばいいんでしょうか？
リロードは、二重投稿になっちゃうので「READ ME→掲示板に戻る」とかで
やってるので大丈夫です（見当違いなレスでこれまた申し訳ないっす･･･）
0552名無しさん＠お腹いっぱい。
01/11/22 01:06ID:???ソース見たよ。%inじゃなくて%FORMだったんだね。
いやあ申し訳ない。で、手直し。
348行目に入れた、
$c_nen = $in{'nen'} if $in{'nen'};
を削除。これで元通りになるよね。
次に1466行目の
if ($FORM{'nen '}) { $c_nen = $FORM{'nen'}; }
これを↓こう変える。
if ($FORM{'nen'}) { $c_nen = $FORM{'nen'}; }
違いは$FORM{'nen'}に半角スペースが入っているかどうか。
これで望み通りになるよ。
0553461
01/11/23 16:21ID:nRlQ0X++飛ばなくなったぞーーーーーー！！ これまで溜まっていた便が大放出！！
すっきりした 感動した！
0554名無しさん＠お腹いっぱい。
01/11/23 16:26ID:tdhsiUBdなんだか幽霊みたいなスレなんでこっちで聞かせて下さい。
ttp://www.alived.com/blue/
このサイトのTOPページにある簡易投票cgiとほぼ同様のものが欲しいです。
このサイトで使われているcgiを拝借してスクリプトを覗いたところ
著作権表示など無かったのでここの管理人さん独自に作成したものだと思います。
パクるのは良くないのでこれと同じものがフリーで配布していればいいのですが。
仕様の条件は、上記のサイトのようにhtmlの中の一部に表示できて
cgiを飛ばしても今のhtmlページは再読み込みしない。
自分でも今探しています。御願いします。
0555461
01/11/24 20:38ID:NBml5+Ldあるんですけど、削除スクリプトも例のあれをコピペして書き換えないと駄目？
よくわからんです。
0556501
01/11/25 03:41ID:???つーか久しぶりに来たらえらい騒ぎになってる（汗；
ゴメンねー、結構大きいファイルと思ったからまさかオンメモリにしてるとは
思わなかったよ(;´ω`) 慣れない事するもんじゃ無いね、反省してます。
ちゅう事で518氏は正しいので、反論されてる方は確認されたし
スレッドが消えるのは困ったねー、また話に乗ろうか？（笑
0557461
01/11/25 23:17ID:9En76V3nあれ以来飛ばなくなって、すっきりしてたんですけど
複数スレッド削除したり移動したりすると、datファイルが
サーバー上からほとんど消えて、スレッド一覧には同じ個所に複数リンク
する状態になります
seek SUBW,0,0;
truncate SUBW,0;
これは、ない方が良いのかな？無い方が調子良いような・・・・
それともサーバーが中途半端に、バグってるのかな？
0558名無しさん＠お腹いっぱい。
01/11/27 14:28ID:???普通のチャットにぼっとを入れたいのですが
ttp://www.ct.sakura.ne.jp/~e_e/yuichat/yui.shtml
ttp://dream.lib.net/room/cgi/e_lchat.html
Light chat にゆいぼっとを組み込みこもうとしたんですが
皆目見当がつきません。
識者の皆様私はどうしたらいいでしょうか
よろしくお願いいたします
0559名無しさん＠お腹いっぱい。
01/11/28 18:00ID:3zC+SFDuというのは、お絵かき掲示板で絵にタイトルをつけたいんですが
なかなかうまくいく方法が見つかりません。
0560名無しさん＠お腹いっぱい。
01/11/29 13:43ID:NbUAArBIttp://dream.lib.net/room/cgi/s_lchat.html
見た目がこんな感じでぼっとを入れたいってことですか？
だったらゆいちゃっとをこういうデザインに改造した方が
よっぽど楽だと思いますけど･･･
0561558
01/12/01 12:29ID:JbWwCol+ありがとうございます。デザインだけなら良いのですが
ROMがわかるようにしたり、「こっそり入室」の機能を取り入れたりしたいです。
削るだけならともかく 機能を付け足すのができないので模索中です。
0562名無しさん＠お腹いっぱい。
01/12/01 20:46ID:???がほしいのですが、お持ちの方ゆずっていただけませんか？
お願いします。
0563名無しさん＠お腹いっぱい。
01/12/02 07:36ID:???配布中止／配布元不明スクリプトが欲しい人はダウンロード板へ
http://pc.2ch.net/download/
0564名無しさん＠お腹いっぱい。
01/12/04 01:33ID:9jPmANFY>http://dx.sakura.ne.jp/~fbrand/fifnel/app/yybbs_2ch_12.lzh
のYYBBS改造版を使用してレス数に制限を付けるにはどうしたらいいでしょうか？
レス数が50（例えば）になったらそのスレッドは書き込めなく・・みたいな感じです。
よろしくお願いします。
0565名無しさん＠お腹いっぱい。
01/12/04 04:45ID:???else {print "このスレッドには書けません";}
って感じ?
0566564
01/12/04 22:46ID:0Jo8+Yifちょっと分からないです（いや漏れがアホでｗ）
返信フォームの
＞while (<IN>) {
内に追加すればいいのかなと言うくらいしか分からないです。
すんません。
この場合レス数を別途格納（rescntに？）しておく必要があるのでしょうか？
http://www.geocities.co.jp/Bookend-Ryunosuke/5174/yybbs.txt
テキストをageました。
どうぞよろしくお願いします。
(1)「レス」ボタン自体表示させないのか
(2)レスを送信したときに書き込めないってエラーを出すのか
どっちの仕様で？
(2)ならregistの中で
if ($in{'reno'} > $max) { &error("これ以上レス出来ません無理"); }
とかで弾けそう
0568567続き
01/12/05 17:21ID:???$maxはどっかで決めといてね
# ﾃｰﾌﾞﾙ表示するﾙｰﾌﾟ
foreach(@data){
# 略
if($reno eq ""){
if($topic_num){
$res_count_list{$topic_num} = $res_count; # <= 追加
print "<a href=\"#topic_$topic_num\">[<b>$topic_num</b>] : $topic($res_count)</a> \n";
# 略
}
$res_count_list{$topic_num} = $res_count; # <= 追加
print "<a href=\"#topic_$topic_num\">[<b>$topic_num</b>] : $topic($res_count)</a> \n"
if($topic_num);
# ｽﾚ表示するﾙｰﾌﾟ
foreach(@data){
# 略
if (!$reno) {
if ($res_count_list{$no} <= $max) { # <= 追加
print "<form action=\"$script\" method=$method>\n";
print "<input type=hidden name=mode value=res>\n";
print "<input type=hidden name=no value=$no>\n";
print "<input type=submit value='返信'></td></form>\n";
}
}
# 略
}
0570564
01/12/06 01:45ID:EtZtL7OT（１）の仕様の方が良さそうなのでそっちでやってみました。
んで、無事レス数を制限することが出来ました。
Thanks！
マジ感謝っす。
0571名無しさん＠お腹いっぱい。
01/12/07 08:02ID:PKhGzuvDtackynote2をトクトクで使ってます。
右の日記表示フレームでバナー広告を使い、
左のフレーム（カレンダー側フレーム）の広告を
popupにしたいのですができますか？
0572名無しさん＠お腹いっぱい。
01/12/07 08:44ID:???>>1を読んで出直してきたほうがいいよ。
0574名無しさん＠お腹いっぱい。
01/12/07 12:03ID:???0575名無しさん＠お腹いっぱい。
01/12/09 00:49ID:fllV62IYＫＥＮＴさんのYYBBSのレスや親記事などの文字のサイズを変更したいのですができますでしょうか。
よろしくお願いします。
0576名無しさん＠お腹いっぱい。
01/12/09 00:51ID:???じゃっ
0577名無しさん＠お腹いっぱい。
01/12/09 01:31ID:???0578名無しさん＠お腹いっぱい。
01/12/09 06:32ID:???yybbs.cgiをメモ帳で開いて、編集→置換を選択
上の欄に
<center>
下の欄に
<center><font size=7>
と入れて「すべて置換」をクリックすればよい
0579名無しさん＠お腹いっぱい。
01/12/09 11:15ID:???0580名無しさん＠お腹いっぱい。
01/12/09 21:31ID:???0581名無しさん＠お腹いっぱい。
01/12/09 21:34ID:???エンピツやらでしか書けないメモ帳だろ
0582575
01/12/09 22:52ID:cDYnbl9Mでさっそく試してみたのですがメモ帳に置換機能がなかったのでviviを使って置換してみました。
ですが、上部にあるリンクなどの文字は小さくなったのですが、レスや親記事の文字は変化がありませんでした。
やはりメモ帳でなければいけないんでしょうか？
レス頂けると嬉しいです。
0583名無しさん＠お腹いっぱい。
01/12/09 23:22ID:???# 本文の文字大きさ（ポイント数:スタイルシートで有効）
$b_size = '10pt';
↑この数字を変える。
と言うか、ネタは他でやって欲しい…。
0584575
01/12/11 00:09ID:ut9/0weD調べてみてやっと意味が判ってきました、最新バージョンにはちゃんと文字の大きさを変える設定があるんですね。
すいません確認すべきでした、ネタじゃないです。
本来ならそれにすべきなんでしょうが、バージョン4,5以前のｙｙＢＢＳの文字をどうしても変えたいんです、バージョン4,5には文字の大きさを変える設定部分がないんです。
無理でしょうか？
0585名無しさん＠お腹いっぱい。
01/12/11 00:25ID:???HTMLは分かる?、だったらBBSを表示してfontタグ入れたい辺りを
適当にコピーして、ソースからその部分を検索してタグを入れれば良いよ
" を書きたい時は \" と書こう。
0586名無しさん＠お腹いっぱい。
01/12/11 01:11ID:???無理じゃない。でもソースが無いと具体的に答えられる人は居ないだろう。
0587575
01/12/11 09:49ID:0N0HYFRSあとその改造をした場合過去ログの生成とかに重大な問題とか発生しませんよね？、ちょっと怖くて。
0588575
01/12/11 09:51ID:0N0HYFRStxtをアップできる場所を探してきますね。
0589575
01/12/11 10:16ID:JBoTRLM2アップしました、これの親記事とレスの文字のサイズだけを変えたいんです、どうしてもこのバージョンがいいのです。
よろしくお願いします。
0590You ◆.TNjr64A
01/12/11 14:10ID:Y3FoQV4aこれだけ書き加えれば大丈夫みたいなソースは無いでしょうか？
また、それを外部HTMLファイル（例：index.shtml）に呼び出すことは可能でしょうか？
教えてちゃん系になってることは十分承知なのですが過去ログ見てもさっぱりわからなかったので
お願いできませんか？
一応yybbs.cgiの初期設定状態でのファイルをtxtにして上げておきます。
http://web-ryuu.virtualave.net/yybbs.txt
宜しくお願いします。
こういう時は直リンでいいと思う。。
「html_log」で2箇所変更
foreach ($page .. $page_end) {
print "<table border=0 cellspacing=0><tr>\n";
print "<td>[<b>$num</b>] <font color=$sbj_color><b>$sbj</b></font></td>\n";
print "<td width=10></td><td>投稿者：<font color=$link><b>$name</b></font></td>\n";
print "<td><small>投稿日：$date</small></td><td>$url</td></tr></table>\n";
print "<blockquote><font color=\"$color\" style=\"font-size: 10pt;\">$com</font></blockquote>\n"; # <= 変更
## レスメッセージを表示
$flag = 0;
foreach $line (@lines) {
print "<table border=0 width=100% cellspacing=0><tr>\n";
print "<td><font color=$rc><b>$rname</b> ＞ <span style=\"font-size: 10pt;\">$rcom</span>"; # <= 変更
print "<small>($rd)</small></font></td></tr></table>\n";
}
}
0593You ◆.TNjr64A
01/12/11 18:19ID:Y3FoQV4a有り難うございます。
何とかやってみます。
0594名無しさん＠お腹いっぱい。
01/12/11 18:57ID:qDkXU0ASttp://dream.lib.net/room/cgi/e_lchat.html
名前を入れないで入室するとIPが名前の代わりに表示されますよね
これを 名前もアドレスも入れないとエラーで入れないようにしたいんですが
どうしたらいいでしょうか。
よろしくおねがいします！
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なんだが感動だなー２ｃｈでこんなに優しくされた事ないです。
できるなら何か御礼がしたい気分です
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:???このスレから来たのか（ｗ
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さんが教えてくれたのですこし自分で考えてみようかなと
分からなかったらまた来ます、マジすんませんでした。
■ このスレッドは過去ログ倉庫に格納されています