#!/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; }if(!$arg2){ if(!$EST{syoukai_br}){$value =~ s/\n//g;} else{$value =~ s/\n/