「トップページ」の編集履歴(バックアップ)一覧はこちら
「トップページ」(2008/03/19 (水) 14:07:06) の最新版変更点
追加された行は緑色になります。
削除された行は赤色になります。
**@wikiへようこそ
-ウィキはみんなで気軽にホームページ編集できるツールです。
-このページは自由に編集することができます。
-メールで送られてきたパスワードを用いてログインすることで、各種変更(サイト名、トップページ、メンバー管理、サイドページ、デザイン、ページ管理、等)することができます
**まずはこちらをご覧ください。
-[[@wikiの基本操作>http://atwiki.jp/guide/category2.html]]
-[[用途別のオススメ機能紹介>http://atwiki.jp/guide/category22.html]]
-[[@wikiの設定/管理>http://atwiki.jp/guide/category6.html]]
**分からないことは?
-[[@wiki ご利用ガイド>http://atwiki.jp/guide/]]
-[[よくある質問>http://atwiki.jp/guide/category1.html]]
-[[無料で会員登録できるSNS内の@wiki助け合いコミュニティ>http://sns.atfb.jp/view_community2.php?no=112]]
-[[@wiki更新情報>http://www1.atwiki.jp/guide/pages/264.html]]
-[[@wikiへお問い合わせ>http://atwiki.jp/guide/contact.html]]
等をご活用ください
**@wiki助け合いコミュニティの掲示板スレッド一覧
#atfb_bbs_list(112)
**その他お勧めサービスについて
-[[フォーラム型の無料掲示板は@bbをご利用ください>>http://atbb.jp/]]
-[[2ch型の無料掲示板は@chsをご利用ください>>http://atchs.jp/]]
-[[お絵かき掲示板は@paintをご利用ください>>http://atpaint.jp/]]
-[[その他の無料掲示板は@bbsをご利用ください>>http://atbbs.jp/]]
-[[無料ブログ作成は@WORDをご利用ください>>http://atword.jp/]]
-[[大容量1G、PHP/CGI、MySQL、FTPが使える無料ホームページは@PAGES>>http://atpages.jp/]]
**おすすめ機能
-[[気になるニュースをチェック>http://atwiki.jp/guide/17_174_ja.html]]
-[[関連するブログ一覧を表示>http://atwiki.jp/guide/17_161_ja.html]]
**その他にもいろいろな機能満載!!
-[[@wikiプラグイン>http://atwiki.jp/guide/category17.html]]
-[[@wiki便利ツール>http://atwiki.jp/guide/category32.html]]
-[[@wiki構文>http://atwiki.jp/guide/category16.html]]
-[[@wikiプラグイン一覧>http://www1.atwiki.jp/guide/pages/264.html]]
**バグ・不具合を見つけたら? 要望がある場合は?
お手数ですが、メールでお問い合わせください。
#!/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="<form><input type=button value=\" 戻る \" onClick=\"history.back()\"></form>"
}
elsif($_[2] eq "env"){
$BACK_URL="【<a href=\"$ENV{'HTTP_REFERER'}\">戻る</a>】";
}
elsif(!$_[2]){$BACK_URL="";}
else{$BACK_URL="【<a href=\"$_[2]\">戻る</a>】";}
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/<br>/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=<IN>;
close(IN);
srand(time ^ ($$ + ($$ << 15)));
$id = int(rand($total_url))+1;
open(IN,"$EST{log_path}$EST{logfile}");
while(<IN>){
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(<IN>){
@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 --##