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