# スレッドの説明
#================================
「スクリプトを改造したいけどやりかたわかんないよー」という人がいましたら
ここで聞いてください。ひょっとしたらアドバイス出来るかもしれません。
質問するときは以下の点に注意して書いて下さい
(1) そのスクリプトの内容と置いてある場所を明記する (txtファイルでUPすればなお良い)
(2) どんな風に改造して欲しいのか？ (完成イメージHTMLを用意すればなお良し)
(3) 出来るだけ詳しく書くこと。少しは自分で考えること。できれば御礼も言ったほうが良い
※答えてくれないからといって逆ギレする厨はお断り
180行目近辺
($u,$n,$tu,$zc) = split(/;/,$urls);#■コメント追加,$zc
229行目近辺
($u,$n,$tu,$zc) = split(/;/,$_);#■コメント追加,$zc
319行目近辺
$Rankh.="<td><a href=\"$url\" target=\"$TGET\" title=\"$title\">$title_url</a><br>$zc</td>";#■コメント追加,$zc
これだと全てのサイトの紹介が、url.logの一番最後の行のデータで表示されてしまうので困っています。
どなたか助けてください。
ftpからダウンロードしてチェックしましたが、問題はないようです。
また、管理者モードacmgr.cgiから見ても問題ないです。
でも、access.cgi?countから見ると、駄目なんです。
もっといい方法があるんだろうけど、これだとどう？
access.cgi
319行目近辺
$Rankh.="<td><a href=\"$url\" target=\"$TGET\" title=\"$title\">$title_url</a><br>$zc</td>";#■コメント追加,$zc
このすぐ上に以下をコピペしてみたらどう？
undef $zc;
foreach (@urls) {
($u,$n,$tu,$zt) = split(/;/,$_);
if($tu eq $url) {
$zc = $zt;
last;
}
}
うまくいかなかったらごめんね
レスありがとうございます。
早速コピペしてみたところ、問題なく動作しました。
本当にありがとうございました。
【配布先URL】
ttp://fmono.sub.jp/v_w3a/howto.php 【ヘルプ内容】
このスクリプトとは直接関係ないのですが、利用してるって事で…
古いアクセス解析のせいだと思うのですが、最新のOS・ブラウザに対応していません。
(Windows7をMeと言ってみたり、iPhoneがUnknown OSだったり…IE7をサファリって言ってみたり)
と言う事で、そのリストを自分で更新したいのですが、どこかにOSとブラウザのリストってないでしょうか?
って、ここで聞いてもいいものでしょうか?
【. CGI名 .】 Pallet Town v3.30
【配布先URL】 閉鎖？
【. 置き場所 .】
ttp://www.dotup.org/uploda/www.dotup.org1223649.rar.html（pass：kaizou） 【ヘルプ内容】
The Roomで配布している「Access Denial」（Ver1.43）を「Pallet Town」（配布HP閉鎖？）に使用しているのですが、
pallet_town.cgiにrequireでa_deny.cgiを指定しても、管理画面から見れる“アクセス”に履歴が残りません。
“パソコン”のログは残るのですが、“アクセス”にも履歴が残るようにするにはどうすればいいのか悩んでます。
Pallet Townの構造が特殊なのでしょうかね…
Access Denial
ttp://exdreams.net/room/contents/e_acsdeny.html よろしくお願いします。
そうなんです。
解析対象のCGIにrequireで指定します。
KENT-WEBにあるWeb ForumとかWeb Patioとかだとうまくいくんですけどね。
ttp://www.kent-web.com/bbs/epad.html 【 ヘルプ内容 】 携帯から閲覧したときに、ページの一番上にモバイルアドセンス
を表示したいです。
ptel.plの224行付近（&data("<font color=\"$t_color\">$title</font><hr>\n");）
にモバイルアドセンス（CGIコード）を書きましたがエラーになります。
よろしければ、アドバイス宜しくお願い致します。
223行目
&data("ここにモバイルアドセンスのCGIコードをそのままコピペ\n");
Script Errorになります。
html出力の直前に直接挟み込むものなんじゃないの？
【配布先URL】
ttp://www.webclap.com/ 【ヘルプ内容】
コメント入力フォームに、入力した文字数をカウントする機能を付けたいです。
clapinit.cgi内のヘッダ部分(67行目辺り)に以下を追加し、
print '<script type="text/javascript"><!--',"\n";
print 'function ShowLength( str ) {',"\n";
print 'document.getElementById("inputlength").innerHTML = str.length + "文字";',"\n";
print "}\n";
print "// --></script>\n";
clap.cgiのフォーム部分（155行目辺り）を以下に変更しました。
print '<TEXTAREA rows=3 cols=40 name=hitokoto onkeyup=ShowLength(value);></TEXTAREA><br>',"\n";
print '<p id="inputlength">0文字</p>',"\n";
実行すると画面が真っ白になってしまいます。
要は、ヘッダ部分に
<script type="text/javascript"><!--
function ShowLength( str ) {
document.getElementById("inputlength").innerHTML = str.length + "文字";
}
// --></script>
を追加したいのですが、どうすると正解なのでしょうか。
長くなってしまいすみません。
お力添えいただけると嬉しいです。
真っ白になったときのHTMLソース見てみ
JavaScript 文字数カウント でぐぐったら
最初に出てくるやつですよね？
とりあえずこれをコピペしてみてください。
自分で試してみたらこれで文字数が増えていきました。
clapinit.cgi
print '<script type="text/javascript"><!--',"\n";
print 'function ShowLength( str ) {',"\n";
print 'document.getElementById("inputlength").innerHTML = str.length + "文字";',"\n";
print '}',"\n";
print '// --></script>',"\n";
clap.cgi
print '<input type=text name=hitokoto size=50 maxlength=50 onkeyup="ShowLength(value);"><br>',"\n";
print '<p id="inputlength">0文字</p>',"\n";
ありがとうございます！
＞JavaScript 文字数カウント でぐぐったら
＞最初に出てくるやつですよね？
はい、それをコピペしていました。
ソースを見ても見た感じ同じだったのですが、さんのをコピペしてみたら正常に動作しました。
大変助かりました。ありがとうございました。
【 配布先URL 】
ttp://www2s.biglobe.ne.jp/~tatsuji/souko/souko_index.htm 【 依頼期限 】 5ヶ月
【 依頼内容 】
ttp://www.seijyuu.com/game/link/town/にある 他のタウンの改造を自分のタウンでも使えるようにしたい。
（他のタウンじゃなくても独自のものを作られるのなら教えてください）
ちなみに自分のタウンは
ttp://exout.net/~ramusu/cgi-bin/town5_8/town_maker.cgiです。 【配布先URL】
ttp://www.kent-web.com/pwd/protect.html 【. 置き場所 .】 上と同じ
【ヘルプ内容】 認証が終わった後のページをCGIにしたい。
ユーザー登録時にユーザー名を登録できるので、そのユーザー名を表示させたいです。(○○さんのページ)
そのため、認証後のページをCGIにしたいと思っていますが、CGIにすると、内容全部表示してしまいます。
(#!/usr/bin/perl～を全部表示してしまう。)
protect.cgiのサブルーチン「fileOpen」の"# HTMLファイル移動"部分を変えればいいとは思うのですが、どう変えて
いいかがよくわかりません。
また、この部分がCGIになることで、認証後のページアドレスがわかってしまったとしても問題はありません。
(設置したいのはCGIなので、IDが変数として送られなければエラーページを出せばいいだけですよね)
よろしくお願いします。
というか、設定(init.cgi)の$secretを「http://～/nantoka.cgi」の書式で書けばいいだけじゃないんか？
返答ありがとうございます。
>というか、設定(init.cgi)の$secretを「http://～/nantoka.cgi」の書式で書けばいいだけじゃないんか？
そこはファイル名が変わるので、「./××.cgi」に変更してます。
ではなくて、「http://～」で記載しないといけないということでしょうか？
つかinit.cgiに「# → CGIの場合のみ http://から記述すること」って書いてあるじゃない？
あ、下に書いてましたね…
見落としてました。
んで、いろいろ考えたんですが、"認証が終わったら他のページに飛ぶ"スクリプトとばっかり思ってたのですが、
サブルーチン内で"認証後のページをプリント(この表現あってます?)"してるだけですよね。
単純にその部分を書き換えればいいんじゃねってことに気がつきました。
認証処理の隠しファイル出力サブルーチン「fileOpen」をファイルを開くじゃなくて、そこに直接認証後のページ
を作成することで無事解決できました。
何を見てそう思ったんだか知らんが、動作は単純で
・飛び先がhttp://で始まってたらLocationでジャンプさせる
・ファイル名だったらそのファイルの内容をcontent/htmlで表示する
ってだけの代物だよ。ま、後者の動作部分に直接組み込むのは間違っちゃいない。
requireで呼び出したCGIに変数を送るにはどうしたらいいのですか?
$y = 1;
$m = 1;
#テスト用表示
print "$y◆$m◆\n";
require '../year/year.cgi';
これでやってみたのですが、year.cgi側のエラーメッセージ「"$y"の指定がされていない」となってしまいます。
year.cgi側からエラーメッセージを表示しているので、year.cgiは動作していると思います。
よろしくお願いします。
$ｙをyear.cgi内で定義したならrequireすれば受け取れる
$ｙがyear.cgiを実行した結果格納されるのだとしたらちょっとした手間が要る
例えば同じディレクトリに year.cgi があったとして
$ｙ = `year.cgi`;
と書けば、一応 year.cgi を実行してその結果を$yに格納できんこともない
いろいろ細かい制約もあるので、常に期待した通りに動くとは限らんし、今回ｵﾏｴのやりたいことと違うのかもしれない
【配布先URL】
ttp://antispam-bbs.xii.jp/yybbs/index.html 【ヘルプ内容】 iPhone等スマートフォンへの対応
現在PCと携帯電話とのアクセスで振り分けを行っているのですが
これにスマートフォンでのアクセスの場合の振り分けを行い、
スマートフォン用の表示を作成したいのです。
どのようにすればよいのでしょうか？
どうぞよろしくおねがいします。
IPで見れば？
【配布先URL】
ttp://www.makoto-mill.com/zoochat/ （閉鎖） 【 置き場所 】
ttp://uproda.2ch-library.com/lib407016.txt.shtml （chat_in.cgi.txt パス：kaizou） ttp://uproda.2ch-library.com/lib407017.txt.shtml （chat_start.cgi.txt パス：kaizou） 【ヘルプ内容】
まこと氏が改造し以前配布していた、
zoochatのまことさんバージョンのトピック機能が付加されたスクリプトの改造方法をご教授していただきたく書き込みさせていただきます。
出来るだけ詳細な説明をするために長くなってしまいました…。
トピック機能は、チャットの発言欄に「お肉の話/topic」と入力して発言ボタンを押すと、
チャットのログ画面の上部に「現在の話題：お肉の話」というコメントが追加されるものです。
ちなみにトピックをリセットするには「end/topic」と入力する必要があります。
私が行いたい改造は、チャットの入室画面でトピックを指定してから入室をする…という改造です。
トピックは「topic(部屋番号).txt」というテキストをあらかじめ準備して、
「～～/topic」と発言するたびに内容が上書きされる仕様になっているようです。
このテキストの中身は「お肉の話<>肉好き<>#666666」（トピック<>チャットネーム<>設定した文字色）と一行で書かれた非常にシンプルなものです。
print "<B>話題の設定</B><INPUT TYPE=text NAME=\"comment\" SIZE=\"60\" VALUE=\"/topic\"><BR>\n";
と入力してテストを行いましたがだめでした。
最初に入室画面に、
print "<B>話題の設定</B><INPUT TYPE=text NAME=\"comment\" SIZE=\"60\" VALUE=\"/topic\"><BR>\n";
と入力してテストを行いましたがだめでした。
chat_start.cgiの673行目「#発言メッセージ書き込み」693行目以下「#Topic機能修正start」～「#Topic機能修正End」までが関係があるかと思い、
そのままソースをコピペしましたが（浅はかですがそれ位の知識しかなく…。）
やはりトピックの設定はうまくできませんでした。
print TOPIC "$comment<>$chatname<>$color";
$topic = $comment;
$topicname = $chatname;
$topiccolor = $color;
$comment = "お部屋の設定を致します。";
この辺のソースを生かして、直接「topic(部屋番号).txt」というテキストをいじれればいいのかもしれませんが、
その構文を組み立てる技術がありません。
（アップローダーにcgiをアップしましたが、トピック機能の該当箇所、「話題の設定」ではなく「お部屋の設定」になっております。）
すみませんが、ヒントだけでもご教授していただきたく思います。
わかりづらくてすみません。そして投稿に時間がかかりすみません。よろしくお願いします。
それとも一番最初に部屋作ったやつがトピック設定するってこと？
あとのソースだけじゃ動かないよ。ファイルが足りない。
書き込みなれてなくてすみません。
後入室に関して全然考えてませんでした。
先入室した方がトピックの決定権・設定権があって、
後入室の方はトピックがいじれないほうがいいです。
ファイルは一通りそろっているのですがかなり量が多いです。
圧縮してアップローダーにアップしておきます。
ttp://gaatsu.ps.land.to/up/src/gt_3815.zip.html（パス：kaizou） よろしくお願いします。
一番最初に入室したヤツは入室後もトピック変更できるようにしたいってこと？
つかファイル落とせねーんだけど。
そうです。
最初に入室した人だけトピックが変更できれば嬉しいです。
でも2番目以降の入室者にトピック作成のテキストボックスが隠される事が出来たら十分です。
ありがとうございます。
パスkaizouでダウンロード確認出来ましたが、もし別のロダが良ければアップし直します。
色々考えたのですが、
無理して改造をせずに今自分に出来ることをしたいと思います。
初心者がスレを汚してしまって本当にすみませんでした。
ファイルは全て削除しました。
本当にありがとうございました。感謝です。
板違いでしたらごめんなさい。
【. CGI名 .】 アイコンTeaChatV2
【配布先URL】
ttp://blog.tirno.net/e212.html 【.動作サンプル .】
ttp://www.tirno.net/chat2/chat.cgi 【ヘルプ内容】 外ＲＯＭが出来ないようにといいますか、外部から直接ログが覗けない様にしたいのですが、お願いできますでしょうか。（入室画面で下フレーム（ログ）を表示しない 設定ではダメでした）
実はchat荒らしに困っていまして、２ｃｈにログのコピペを貼っては誹謗中傷、
また２ｃｈにhttp://～/chat.cgi?relb=on&view=on&window=500&n_color=#FFFFFF&name=○○○○ この様なリンクを貼っては参加者欄に中傷のコメントを表示させたり
アイコンteachatはある程度の串を拒否できるので使いやすいのですが、この攻撃には困っています。
どうかよろしくお願いします。
チラ見だけど大改造が必要。というか運営的な対処を先にするべきだと思う。
さっそく見て頂いてありがとうございます。
そうですかぁ・・・かなり多機能なスクリプトだったので残念です。
また、困った事がありましたら相談させて頂きたいと思います。
ありがとうございました。
【. CGI名 .】 アイコンTeaChatV2
【配布先URL】
ttp://blog.tirno.net/e212.html 【.動作サンプル .】
ttp://www.tirno.net/chat2/chat.cgi 【ヘルプ内容】発言ランキングをチャットに集う人々の表にしたいのですが、
順位、発言数を辞めてＩＰホスト名を表示したいのです。並びは日付の新しい順。
こんな改造は出来ますでしょうか・・・まる投げですいませんがお願いします。
丸投げスレがなくなっちゃったってのはわかるんだけどさ、一応ここはの通りのスレであって。
それをわかってて丸投げ目的で二度来るのはどうかと思うんだ。
どこまでできてる？ まったくわからない？ 時には諦めも肝心だよ？
【配布先URL】
ttp://www.kent-web.com/ 【ヘルプ内容】 チェックボックスを用いて投稿内容の表示非表示を行いたい。
ifを使ってもチェックの有無に関わらず全て表示されてしまいます。
項目を増やしたりはできるのですが、どうしてもこの動作だけがうまくいきません。
どうぞ知恵をお貸しください。よろしくお願いします。
if($secret eq "on"){print"";}
else{#元の表示内容
print "<dt><hr>[<b>$no</b>] <b style=\"color:$subcol\">$sub</b> ";
print "投稿者：<b>$nam</b> 投稿日：$dat ";
print "<input type=\"submit\" name=\"res$no\" value=\"返信\"><br><br>\n";
print "<dd>$com<br><br>\n";
}
と書きました。元の表示と空欄を入れ替えても、
投稿記事全てが表示されないかされるかの違いだけでした。
あと、先に書いた「ASKA BBS」だとスキン仕様だったのを失念しておりました…。
あれやこれやと試していたのでごっちゃになっていました。申し訳ありません。
なので「ASKA BBS」ではなく同じくKENTさんのところの「LIGHT BOARD Ver: 7.1」でお願いいたします。
追加したチェックボックスの表示非表示っていうのはログに保存してる？たとえばこんなかんじで。
print DAT "$no<>$date<>$in{name}<>$in{email}<>$in{sub}<>$in{comment}<>$in{url}<>$host<>$pwd<>$time<>$in{secret}<>\n";
で、bbs_listで記事を表示するときに
my ($no,$date,$name,$eml,$sub,$com,$url,$host,$pw,$tim,$secret) = split(/<>/);
のようにして、$secretが非表示だったらスルーしたらいいんじゃない？
もうやってたらごめんね。
指摘されたところに追加はしていたのですが、$in{secret}にはせず$secretとしていたところがあったので
念のため一からやり直してみたらできました！
初歩的なところで躓いていたのが恥ずかしい限りですが良かったです。
ありがとうございました！
cgiの概要は、任意のフォルダに画像があり、それをサムネイル表示するというものです。
現在の症状は、image majickで生成したサムネイルフォルダにthumbs.dbファイルが存在しないとcgiエラーをはいてしまいます。
サムネイル保存用フォルダにthumbs.dbがあると、表示されるのですが、html上のサムネイル表示にもthumbs.dbが画像の1枚として表示されてしまいます。
アドバイス、または改造をお願いできないでしょうか。よろしくお願いいたします。
ttp://science-lab.ddo.jp/uploader/files/0403.txt いまいち話が見えんが、「サムネイルフォルダにthumbs.dbファイルが存在しないとcgiエラー」で
出てくるエラーは具体的に何さ？
色々試してみたのですが、階層を変えただけで表示されるようになりました。
なぜ、URLの階層を１つ深くして設置しただけでcgiの挙動が変化したのか分かりませんが、とりあえずおｋなので、質問は解決しました。ありがとうございました。
【配布先URL】
ttp://www.kent-web.com/ 【ヘルプ内容】 レスの返信機能を保持したまま、引用機能（メッセージ内容）を非表示にしたい。
昔のバージョンは以下のように#を付けるだけで出来ましたが、最新バージョンでは同じように#を付けるだけでは出来ないようです。
どういう風に変更すれば出来るのかよろしくお願いしますｏｒｚ
昔のバージョン
■変更前
$sub =~ s/^Re://g;
$r_sub = "Re:[$no] $sub";
$r_com = "> $com";
$r_com =~ s/<br>/\r> /ig;
■変更後
$sub =~ s/^Re://g;
$r_sub = "Re:[$no] $sub";
#$r_com = "> $com";
#$r_com =~ s/<br>/\r> /ig;
最新のバージョン
■変更前
$res{sub} =~ s/^Re://g;
$res{sub} =~ s/\[\d+\]\s?//g;
$res{sub} = "Re:[$in{res}] $res{sub}";
$res{com} = "> $res{com}";
$res{com} =~ s/<br>/\n> /ig;
#$res{com} =~ s/<br>/\n> /ig;
でいいはずだけど。変更するところ間違ってない？
つか昔のverのバージョン番号くらいおくれ。
KENTスレにあるように
$res{com} = "";
を加えてもだめだったの？
昔のは3.2です
でも今、変更するところ変えてみたら出来ました
ｔｈｘでした
それと、もう一つお願いしますｏｒｚ
削除キーを入力して書き込んだ後に掲示板に戻っても削除キーが入力されてる状態にしたいのですが
クッキー情報保存にチェック入ってるのに書き込む度に空欄になってしまいます
これは分りますでしょうか？
削除キーはクッキーに保存してないみたいだね。
だから$in{pwd}もset_cookieに追加して保存するようにしたらいいんじゃない？
そうしたらtmpl内のbbs.htmlのクッキー情報保存の近くにある削除キーの
valueに!pass!とか何でもいいから適当に書いて、aska.cgiのbbs_listの
文字置換のところで削除キーは$cook[3]に入っていると思うからほかと同じように
置換したらいいと思う。
これでわからなかったら丸投げに行ってね。
分りやすい説明ありがとうございます。
90%くらい出来た感じなんですけど、例えば、削除キーを3文字にして書き込んでも、掲示板に戻るとなぜか4文字の●が出来てます。
＞文字置換のところで削除キーは$cook[3]に入っていると思うから～～～
というのはregistで
&set_cookie($in{name},$in{email},$in{url},$in{pwd});
のような順番で保存することを想定していたのですが、
違う順番で保存してたらこの順番で保存するようにしてください。
いちおう自分で試してみたところうまくいってます。
そこは間違えないでしょうｗ
aska.cgiのクッキー格納の所ですよね。
何度確かめてもその順番になってるんですけどね・・・
出来てると言うことは自分のやり方が悪いのでどこかが間違ってると思いますが。
それと、文字置換のところを見ると削除キーはない？みたいです
ｖ5.5は以下のようになってました
# 文字置換
foreach ($head,$foot) {
s/!([a-z]+_cgi)!/$cf{$1}/g;
s/!homepage!/$cf{homepage}/g;
s/!page_btn!/$page_btn/g;
s/!name!/$cook[0]/;
s/!email!/$cook[1]/;
s/!url!/$cook[2]/;
s/!sub!/$res{sub}/;
s/!comment!/$res{com}/;
s/!bbs_title!/$cf{bbs_title}/g;
s/!str_crypt!/$str_crypt/g;
ということだと思うんだが・・・。
だからそこに一行付け加えるんでしょ
s/!pass!/$cook[3]/;
例えば、削除キーを123と入力して、送信する→掲示板に戻るをクリックしても、
削除キーのところを見ると●が勝手に4つ出来てるということなんです。
そのキーを付け加えるとまた空欄になるんですよね・・・
それで、s/!pwd!/$cook[3]/;にしてみるとまた4つの●に。。。
ここまでいくと丸投げの範疇のような気もするけど・・・
おれがやったこと
aska.cgiの257行目（$in{pwd}を追加）
&set_cookie($in{name},$in{email},$in{url},$in{pwd});
tmpl内のbbs.htmlの67行目（!pass!を追加）
<input type="password" name="pwd" size="8" maxlength="8" value="!pass!">
aska.cgiの110-111行目（s/!pass!/$cook[3]/;を追加）
s/!url!/$cook[2]/;
s/!pass!/$cook[3]/;#追加
s/!sub!/$res{sub}/;
【配布先URL】
ttp://www.kent-web.com/pubc/book/test/uploader/uploader.cgi 【. 置き場所 .】
ttp://www.kent-web.com/pubc/book/test/uploader/uploader.cgi?mode=pwdwin&no=4770 パス：p 【ヘルプ内容】
ttp://q.hatena.ne.jp/1287372348を参考にwebサイト上に、あるサイトのxmlをsimplexml_load_fileで読み込み、表示しています。 今のところ、一つしかサイトを取得できてないんですけど、２つ以上のサイトのxmlを読み込むにはどうすればいいでしょうか。$rssにarrayを指定してみてもできなかったです。
ついでに日時順（取得したの全部ごちゃまぜで）に並べる方法も教えて下さい。よろしくお願いいたします。
ttp://workshop.rs/projects/jqfancytransitions/ のサンプル２段目の「weve」を選択した時のエフェクトを
画面の背景画像として採用したいと考えてます。
ttp://code.google.com/p/jqfancytransitions/downloads/list からスクリプトをダウンロードし、使ってみたのですが
画像がリピートされる、また画面サイズが固定になってしまうため上手くいきません。
（リピートされるのに関してはスクリプト内の指定箇所でno-repeat指定すれば修正できそうです）
背景画像のイメージは
ttp://srobbin.com/jquery-plugins/backstretch/ の中段にてUsing Backstretch in a slideshow
を選んだときの挙動＋切り替わる時のエフェクトがwave状、といった感じです。
以上、よろしくお願いします。
【配布先URL】
ttp://www.rescue.ne.jp/cgi/database/ 【ヘルプ内容】 ↑の名前検索をスペースを置いて複数人同時に検索したいのですがうまくいきません
$word = $FORM{'HANDLE'};
$word =~ s/ / /g;
@word2 = split(/ /,$word);
if ($FORM{'HANDLE'} ne '') {
foreach $word2(@word2){
if ($HANDLE =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$word2/i)
{ ; }else { next; }
}
}
まだいる？
なんとな～く考えてみたんだけど。
今帰宅しました。
まだいます
なんとな～くだからうまくいかなかったらごめんね。
# ニックネーム(マッチ)
my $word = $FORM{'HANDLE'};
$word =~ s/\xA1\xA1/ /g;
my @word2 = split(/\s+/,$word);
my $myflag = 0;
if ($FORM{'HANDLE'} ne '') {
foreach my $word3 (@word2) {
if ($HANDLE =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$word3/i) { $myflag = 1; last; } else { ; }
}
}
if ($FORM{'HANDLE'} ne '' && $myflag == 0) { next; }
# 検索終了処理
今、帰宅しました。
さんのコードを試した処サーバーがResponseエラーになったのですが
myを外して見たところ上手くいきました。(もしかしてこのコードがperl4だったりするんでしょうか？)
無事出力成功しました。ありがとうございます
★政府が隠蔽したいこと
↓
①「坂本龍一 パブコメで声あげよう」
②広瀬隆が原発の再稼働を止めるために電力会社と取引を計画
ttp://b●log.goo.ne.jp/yqmcps 歌＆作曲＆演奏：坂本龍一
ttp://www.youtube.com/watch?v=w22IhMuwhLw ttp://www.youtube.com/watch?v=iVTFeozHWcA 【配布先URL】
ttp://www.rescue.ne.jp/cgi/database/ 横から申し訳ないのですが
のものをAND検索にするには何をどうすれば良いのでしょうか
unless 使用 myflagの値変更
【配布先URL】
ttp://www.kent-web.com/ 【ヘルプ内容】
チャットに入室中に間違えてウインドウを閉じてしまったり、ページ全体を更新してしまって入室前の画面に戻ってしまう等を防止したいと思い、
発言フォーム（入室後の上フレームに表示する画面）のソースに、ページ移動時に確認ダイアログを表示するようにJavascliptを追加したのですが、
退室ボタンを押してチャットから退室しようとした時にも上記のダイアログが表示されてしまいます。
そこで、下記のように退室ボタンを押したときにフラグを立て、そのフラグが立っていない時のみページ移動orウインドウを閉じるとダイアログを
表示するようにしようと試みたのですが、退室ボタンを押しても同様にダイアログは表示され上手くいきませんでした。
##発言フォームに追加したJavascript部分
<script type="text/javascript"><!--
var flag01=1;
function taisitsu() {
var flag01="";
}
if (flag01 == 1) {
if(navigator.userAgent.indexOf("Safari") != -1){
window.onbeforeunload = function(event) {
event = event || window.event;
event.returnValue = "このページから移動しますか？";
}}}
--></script>
##退室ボタンの記述部分
print "<input type=submit value='退室する' class=\"pochi\" onsubmit=\"taisitsu()\">\n";
よろしくお願いいたします。
function taisitsu() {
var flag01="";
}
スコープ違うし
【配布先URL】
ttp://www.kent-web.com/chat/comchat.html 【. 置き場所 .】
ttp://www.kent-web.com/cgi/downld/downld.cgi?id=comchat 【ヘルプ内容】 ロム人数を表示できるようにしたい
以下のサイトを参考に何とか頑張ってみたのですが、
バージョンが違うためにまったくうまく行かず。
ttp://galle.jp.net/script_perl_01_01_06.html どなたがお助け下さい。お願いいたします。
【配布先URL】
ttp://www.kent-web.com/data/report.html 【. 置き場所 .】
ttp://www.kent-web.com/cgi/downld/downld.cgi?id=report 【ヘルプ内容】
アクセス解析なのですが、ホスト名が*.ocn.ne.jpみたいに本当にプロバイダ情報だけで
地域までは解析データにとってくれないのでアク禁したい時に困っています。
report.cgiの↓の部分が該当個所だと思うのですが、お助け下さい。
sub get_host {
# ホスト名取得
my $host = $ENV{REMOTE_HOST};
my $addr = $ENV{REMOTE_ADDR};
if ($host eq "" || $host eq $addr) {
$host = gethostbyaddr(pack("C4",split(/\./,$addr)),2) || $addr;
}
if ($cf{deny_host}) {
my $flg;
foreach ( split(/\s+/, $cf{deny_host}) ) {
if (index("$host $addr",$_) >= 0) { $flg++; last; }
}
if ($flg) { &load_img; }
}
if ($host =~ /(.*)\.(\d+)$/) { ; }
elsif ($host =~ /(.*)\.(.*)\.(.*)\.(.*)$/) { $host = "\*\.$2\.$3\.$4"; }
elsif ($host =~ /(.*)\.(.*)\.(.*)$/) { $host = "\*\.$2\.$3"; }
# 結果
return ($addr,$host);
}
=comment
if ($host =~ /(.*)\.(\d+)$/) { ; }
elsif ($host =~ /(.*)\.(.*)\.(.*)\.(.*)$/) { $host = "\*\.$2\.$3\.$4"; }
elsif ($host =~ /(.*)\.(.*)\.(.*)$/) { $host = "\*\.$2\.$3"; }
=cut
動作確認できました！
ありがとうございます。
【 配布先URL 】
ttp://tackysroom.com/cgi/cgi_tackynote3.htm 【 依頼期限 】 なし
【 依頼内容 】 このCGI説明（
ttp://tackysroom.com/page_cgi.htm）に、 『フレーム式日記帳Tackynote2にレス機能＋ 画像アップロード機能』
と記載されているけど、Tackynote2の機能にある記念日設定が入っていない
のでTackynote3に記念日設定を追加したいです。
作者にメールしましたが、忙しいのか受け付けてもらえず、悩んでます。
お願いします。
今まで効かなかったフォントファミリーが効いてる気がするのは俺だけ？？
参考までに、
⇒ 『半藤のブブイウイウレレ』 というサイトで見ることができます。
グーグル検索⇒『半藤のブブイウイウレレ』
E4HWAW502D
