★三 【 スクリプト改造工房 PART 9 】 ★三
■ このスレッドは過去ログ倉庫に格納されています
>>692
まだいる?
なんとな〜く考えてみたんだけど。
>>692,695
なんとな〜くだからうまくいかなかったらごめんね。
# ニックネーム(マッチ)
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; }
# 検索終了処理
>>697
今、帰宅しました。
>>694さんのコードを試した処サーバーがResponseエラーになったのですが
myを外して見たところ上手くいきました。(もしかしてこのコードがperl4だったりするんでしょうか?)
無事出力成功しました。ありがとうございます 「さよなら原発10万人集会」を新聞はどう報道したのか?検証してみた
★政府が隠蔽したいこと
↓
@「坂本龍一 パブコメで声あげよう」
A広瀬隆が原発の再稼働を止めるために電力会社と取引を計画
http://b●log.goo.ne.jp/yqmcps
歌&作曲&演奏:坂本龍一
http://www.youtube.com/watch?v=w22IhMuwhLw
http://www.youtube.com/watch?v=iVTFeozHWcA 【. CGI名 .】 簡易データベース
【配布先URL】 ttp://www.rescue.ne.jp/cgi/database/
横から申し訳ないのですが
>>692
>>697
のものをAND検索にするには何をどうすれば良いのでしょうか 自己解決
unless 使用 myflagの値変更 【. CGI名 .】 COMCHAT
【配布先URL】 http://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";
よろしくお願いいたします。 var flag01=1;
function taisitsu() {
var flag01="";
}
スコープ違うし 【. CGI名 .】 Comchat ver 5.1(最新)
【配布先URL】 http://www.kent-web.com/chat/comchat.html
【. 置き場所 .】 http://www.kent-web.com/cgi/downld/downld.cgi?id=comchat
【ヘルプ内容】 ロム人数を表示できるようにしたい
以下のサイトを参考に何とか頑張ってみたのですが、
バージョンが違うためにまったくうまく行かず。
http://galle.jp.net/script_perl_01_01_06.html
どなたがお助け下さい。お願いいたします。 【. CGI名 .】 ACCESS REPORT
【配布先URL】 http://www.kent-web.com/data/report.html
【. 置き場所 .】 http://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 >>707
動作確認できました!
ありがとうございます。 【 CGI&PHP名 】 Tackynote3
【 配布先URL 】 http://tackysroom.com/cgi/cgi_tackynote3.htm
【 依頼期限 】 なし
【 依頼内容 】 このCGI説明(http://tackysroom.com/page_cgi.htm)に、
『フレーム式日記帳Tackynote2にレス機能+ 画像アップロード機能』
と記載されているけど、Tackynote2の機能にある記念日設定が入っていない
のでTackynote3に記念日設定を追加したいです。
作者にメールしましたが、忙しいのか受け付けてもらえず、悩んでます。
お願いします。 chromeってバージョンアップあった?
今まで効かなかったフォントファミリーが効いてる気がするのは俺だけ?? 誰でも簡単にネットで稼げる方法など
参考までに、
⇒ 『半藤のブブイウイウレレ』 というサイトで見ることができます。
グーグル検索⇒『半藤のブブイウイウレレ』
E4HWAW502D プログラミングを誰でも習得できる方法は、「前場アキドルのプログラミングマスター方法」というブログで見られるらしいよ。ネットで調べると見られるらしいです。
T8B86 ■ このスレッドは過去ログ倉庫に格納されています