#!/usr/local/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.00 [サーチエンジン] (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 --##