#!/usr/bin/perl #↑perlのパスを自分の環境に合わせて書き直します。 #大抵は、「#!/usr/bin/perl」 か 「#!/usr/local/bin/perl」です。 #解らない場合はサーバー管理者(もしくはプロバイダー)に #確認してください。 require 'pl/jcode.pl'; require 'pl/cfg.cgi'; require 'pl/temp.cgi'; ################################################################ # Yomi-Search Ver4 [サーチエンジン] (Since:1999/09/22) # (C) 1999-2001 by yomi # Eメール: yomi@pekori.to # ホームページ: http://yomi.pekori.to/ ################################################################ ## ---[利用規約]------------------------------------------------------------+ ## 1. このスクリプトはフリーソフトです。このスクリプトを使用した ## いかなる損害に対して作者は一切の責任を負いません。 ## 2. このスクリプトを使用した時点で利用規約(http://yomi.pekori.to/kiyaku.html) ## に同意したものとみなさせていただきます。 ## ご使用になる前に必ずお読みください。 ## 3. 同梱の「アイコン (new.gif/recom.gif/sougogif.gif) 」の著作権は ## 「牛飼いとアイコンの部屋 (http://www.ushikai.com/)」に帰属しています。 ## -------------------------------------------------------------------------+ &form_decode(); if($EST{task}==1){&go_TASK;} #各モードへ分岐 #-----------------# if($FORM{mode}){ if(!$EST{home}){$EST{home}=$EST{script};} if($FORM{mode} eq "kt"){$Stitle=$ganes{$FORM{'kt'}};($Spre_kt_file)=split(/_/,$FORM{'kt'});} #各カテゴリの時の表示タイトル elsif($FORM{mode} eq "new"){$Stitle="新着サイト"; $Spre_kt_file="new_ys";} #新着サイトの表示タイトル,ファイル名 elsif($FORM{mode} eq "renew"){$Stitle="更新サイト"; $Spre_kt_file="renew_ys";} #更新サイトの表示タイトル,ファイル名 elsif($FORM{mode} eq "m1"){$Stitle="超おすすめサイト"; $Spre_kt_file="m1_ys";} #m1サイトの表示タイトル,ファイル名 elsif($FORM{mode} eq "m2"){$Stitle="おすすめサイト"; $Spre_kt_file="m2_ys";} #m2サイトの表示タイトル,ファイル名 elsif($FORM{mode} eq "random"){&random;} #ランダムジャンプ elsif($FORM{mode} eq "link"){&link;} #リンクジャンプ else{&mes("指定したモードは存在しません(mode=$FORM{mode})","モード選択エラー","java");} ##ページ設定 $FORM{'page'}=~s/\D//g; if($FORM{'page'}<1 || $FORM{'page'}>1000){$FORM{'page'}=1;} print "Content-type: text/html\n\n"; require "$EST{temp_path}kt.html"; &print_kt($FORM{kt},$FORM{mode},$FORM{page},$FORM{sort}); } elsif($EST{home} && $EST{top}){&location($EST{home});} else{&print_index;} #-----------------# exit; #(6)メッセージ画面出力(&mes) #書式:&mes($arg1,$arg2,$arg3); #機能:メッセージ画面を出力する #引数:$arg1=>表示するメッセージ # $arg2=>ページのタイトル(省略時は「メッセージ画面」) # $arg3=>・JavaScriptによる「戻る」ボタン表示=java # ・$ENV{'HTTP_REFERER'}を使う場合=env # ・管理室へのボタン=kanri # ・通常のURL又はパスを指定する場合にはそのURL又はパスを記入 # ・省略時は非表示 # $arg4=>ロック解除=unlock #戻り値:なし sub mes{ local($MES,$Munlock,$BACK_URL,); print "Content-type: text/html\n\n"; $Munlock=$_[3]; if($Munlock eq "unlock"){&unlock();} $MES=$_[0]; if($_[1]){$TITLE=$_[1];} else{$TITLE="メッセージ画面";} if($_[2] eq "java"){ $BACK_URL="
" } elsif($_[2] eq "env"){ $BACK_URL="【戻る】"; } elsif(!$_[2]){$BACK_URL="";} else{$BACK_URL="【戻る】";} require "$EST{temp_path}mes.html"; exit; } #(7)フォームデータのデコード(&form_decode) #書式:&form_decode($arg1,$arg2); #機能:フォームデータをデコードする #引数:$arg1=>「>」と「<」を(無効にする(省略時)=0/有効にする=1) # $arg2=>「\n」と「\r」を(無効にする(省略時)=0/有効にする=1) #戻り値:なし sub form_decode{ $arg1=$_[0]; $arg2=$_[1]; if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $form, $ENV{'CONTENT_LENGTH'}); } else { $form = $ENV{'QUERY_STRING'}; } @pairs = split(/&/,$form); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg; $name =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg; if(!$arg1){ $value =~ s/>/>/g; $value =~ s//g;} $value =~ s/\r//g; } &jcode::convert(\$value,'sjis'); &jcode::convert(\$name,'sjis'); $FORM{$name} = $value; } } #(5)ランダムジャンプ(&random) sub random{ local($total_url,$id,$i=1,$jump_url,@Slog); open(IN,"$EST{log_path}total_url.log"); $total_url=; close(IN); srand(time ^ ($$ + ($$ << 15))); $id = int(rand($total_url))+1; open(IN,"$EST{log_path}$EST{logfile}"); while(){ if($i eq $id){@Slog=split(/<>/,$_); $jump_url=$Slog[2]; last;} $i++; } close(IN); &location($jump_url); exit; } sub link{ #(6)リンクジャンプ処理(&link) $FORM{id}=~s/\D//g; if($FORM{id}){ local($fl=0,@ref_list); #refererチェック if(!$ENV{'HTTP_REFERER'}){$fl=1;} #refererが無いときにカウントしない場合にはこの行を削除 @ref_list=split(/,/,$EST{rank_ref}); if(!$EST{rank_ref}){$fl=1;} else{ foreach(@ref_list){ if(index($ENV{'HTTP_REFERER'},$_)>=0){$fl=1;} } } if($fl){ $FORM{id}=~s/\n//g; &lock_rank(); open(OUT,">>$EST{log_path}rank_temp_ys.cgi"); print OUT "$FORM{id}<>" . time() . "<>$ENV{'REMOTE_ADDR'}\n"; close(OUT); &unlock_rank(); } } if($FORM{url}){&location($FORM{url});} else{ #ログファイルからURLを検索する(Ver3と互換) open(IN,"$EST{log_path}$EST{logfile}"); my $link_fl=0; my($link); while(){ @Slog=split(/<>/,$_,4); if($Slog[0] eq $FORM{id}){$link=$Slog[2];$link_fl=1;last;} } close(IN); if(!$link_fl){&mes("該当するデータが見つかりません","エラー","java");} else{&location($link);} } } ##-- end of yomi.cgi --##