#!/Perl64/bin/perl # ↑あなたが加入しているプロバイダの｢perl｣言語が使用できる # パスを指定します。一般的に｢#!/usr/local/bin/perl｣で大丈夫 #======================================================================================= # netnavi Version 2.1 #======================================================================================= #日本語コード変換モジュール require '../jcode.pl'; #あなたのホームページのアドレス $homepage = 'http://www.g-call.com/index.html'; #キーワード検索フォームを設置したアドレス $searchform = 'http://www.g-call.com/cgi/navi_rate_010201/index_area.htm'; #登録変更フォームを設置したアドレス $registform = 'http://wwwg-call.com/cgi/navi_rate_010201/regist.htm'; #１ページに表示する件数 $pagevew = 100; #データファイルの名前 $datafile = 'navi.txt'; #======================================================================================= # 初期設定が必要なのはここまでです。 #======================================================================================= if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $QUERY_DATA, $ENV{'CONTENT_LENGTH'}); } else { $QUERY_DATA = $ENV{'QUERY_STRING'}; } @pairs = split(/&/,$QUERY_DATA); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s//>/g; $value =~ s/\n//g; $value =~ s/\,//g; &jcode'convert(*value,'sjis'); $QUERY{$name} = $value; } $ENV{'TZ'} = "JST-9"; @DATE = localtime(time); $DATE[5] += 1900; if ($DATE[4] == 0) { $DATE[4] = 12; $DATE[5]--; } $DATE[4] = sprintf("%02d",$DATE[4]); $DATE[3] = sprintf("%02d",$DATE[3]); $DATE[2] = sprintf("%02d",$DATE[2]); $DATE[1] = sprintf("%02d",$DATE[1]); $DATE = "$DATE[5]/$DATE[4]/$DATE[3] $DATE[2]:$DATE[1]"; print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "検索結果\n"; print "\n"; print "\n"; print "\n"; print "

G-Call 国際電話料金   -固定電話発信
\n"; print "
２００５年５月１日現在

\n"; &data_read; $keyflag = 1; if ($QUERY{'key'} eq 'new') { $keyflag = 3; @DATA = reverse(@DATA); foreach $line (@DATA) { ($da,$co,$na,$em,$HP,$ti,$sub,$com,$ge,$key,$ken,$tiku,$tl,$rn,$op) = split(/\,/,$line); if ($da ge $DATE) { push(@MATCH,$line); } } } elsif ($QUERY{'genre'} ne "") { $keyflag = 2; foreach $line (@DATA) { ($da,$co,$na,$em,$HP,$ti,$sub,$com,$ge,$key,$ken,$tiku,$tl,$rn,$op) = split(/\,/,$line); if ($em eq $QUERY{'genre'}) { push(@MATCH,$line); } } } else { if ($QUERY{'key'} eq '') { $keyflag = 0; &error(bad_string); } $rkey = $QUERY{'key'}; $rkey =~ tr/[A-Z]/[a-z]/; $rkey =~ s/　/ /g; @KEY = split(/ /,$rkey); $keycount = @KEY; foreach $mline (@DATA) { $line = $mline; $line =~ tr/[A-Z]/[a-z]/; if ($QUERY{'mode'} eq "or") { $match = 0; foreach $key (@KEY) { if (index($line,$key) >= 0) { $match = 1; last; } } } else { $match = 1; foreach $key (@KEY) { if (!(index($line,$key) >= 0)) { $match = 0; last; } } } if ($match) { push(@MATCH,$mline); } } } $key = $QUERY{'key'}; $genre = $QUERY{'genre'}; $count = @MATCH; $max = $count - 1; if ($count > 0) { if ($QUERY{'start'} < 1) { $page_start = 0; } else { $page_start = $QUERY{'start'}; } $page_end = $page_start + ($pagevew - 1); if ($page_end > $max) { $page_end = $max; } if ($QUERY{'key'} eq "new") { print "

過去１ヶ月以内の新着情報は、$count件です。
\n"; } elsif ($QUERY{'genre'} ne "") { "

$genreに現在登録されているのは$count件です。
\n"; } else { print "

キーワード[$key]で$count件の該当が有りました。
\n"; } print $page_start + 1, " 番から ", $page_end + 1, " 番まで表\示しています。

\n"; print "
\n"; print "
\n"; print "
\n"; print "
G-Call４桁番号は、ご登録後にお知らせします。
\n"; print "
・２４時間同一料金です。 ・料金計算は６秒単位です（円） ・G-Call通話料以外はかかりません。

\n"; print ""; print ""; print "\n"; print "\n"; print "\n"; print "\n"; foreach ($page_start .. $page_end) { $line = $MATCH[$_]; ($da,$co,$na,$em,$HP,$ti,$sub,$com,$ge,$key,$ken,$tiku,$tl,$rn,$op) = split(/\,/,$line); $tiku =~ s/\n//g; print ""; print "\n"; print "\n"; print "\n"; print "\n"; } print "\n"; print "\n"; print "
国名
Country Name
国番号
００＊＊発信料金
固定電話から
$ti
$sub
$HP
$rn
（非課税）
"; print "
\n"; print "
\n"; if ($max ne $page_end) { $page_start = $page_end + 1; if ($QUERY{'genre'} ne "") { print "

[ 次の$pagevew件 ]

\n"; } else { print "

[ 次の$pagevew件 ]

\n"; } if ($keyflag == 1) { print "
\n"; print "
\n"; print "
\n"; print "スペースで区切り、キーワードを追加して絞り込み検索ができます。
\n"; print "　\n"; print "
\n"; print "
\n"; print "
\n"; } } print "
\n"; } else { if ($QUERY{'key'} eq "new") { print "

過去１ヶ月以内の新着情報は有りません。

\n"; } elsif ($QUERY{'genre'} ne "") { "

$genreに現在登録されていません。

\n"; } else { print "

キーワード[$key]で該当が有りません。

\n"; } print "
\n"; } if ($keyflag == 1) { $searchkey = $QUERY{'key'}; $searchkey =~ s/　/ /g; $searchkey =~ s/ /+/g; print "

同一キーワードで検索
\n"; print "| Yahoo Japan |\n"; print "| NETPLAZA |\n"; print "| infoseek |\n"; print "| あちゃらNavi |\n"; print "| NTT DIRECTRY |\n"; print "

\n"; } print "\n"; exit; #======================================================================================= sub data_read { if (open(DB,"$datafile")) { @DATA = ; close(DB); } } #======================================================================================= sub error { $error = $_[0]; if ($error eq "bad_file") { $msg = 'ファイルのオープン、入出力に失敗しました。'; } elsif ($error eq "bad_name") { $msg = 'ニックネームが記入されていません。'; } elsif ($error eq "bad_comment") { $msg = 'コメントが記入されていません。'; } elsif ($error eq "bad_data") { $msg = 'すべての項目を入力してください。'; } elsif ($error eq "bad_email") { $msg = 'メールアドレスが不正です。'; } elsif ($error eq "bad_code") { $msg = '訂正／削除するコードが見つからないか、
パスワードが一致しません。'; } elsif ($error eq "bad_pass") { $msg = 'パスワードが一致しません。'; } elsif ($error eq "bad_save") { $msg = '混雑していて送信に失敗しました。
時間をおいて再度送信して下さい。'; } elsif ($error eq "send_mail") { $msg = 'sendmailをオープンできません。'; } elsif ($error eq "bad_url") { $msg = 'ＵＲＬを入力してください。'; } elsif ($error eq "not_url") { $msg = '指定のＵＲＬで登録されていません。'; } elsif ($error eq "bad_string") { $msg = 'キーワードを入力してください。'; } else { $msg = '原因不明のエラーで処理を継続できません。'; } print "

　

　

　

ＥＲＲＯＲ

　

　

\n"; print "\n"; print "\n"; print "

　

　

\n"; print "$msg

　

　

\n"; print "
\n"; exit; }