お前らのデスクトップを晒してくださいinFF・DQ板
321 ：名前が無い＠ただの名無しのようだ：
##################################################
#############☆(02)メインルーチン☆###############
##################################################
#config.cgiの読み込み。
open(CONF,"./config.cgi")|| &error("config.cgiが開けません","no");
@conf=<CONF>;
close(CONF);
foreach(@conf){tr/\x0D\x0A//d;}
($sitename,$subtitle,$nanashiname,$delmessage,$resusuu,$suresuu,$menusuu,$sureseigen,$hostrec,$wrescheck,$trescheck,$new,
$lockkey,$delcheck,$mailing,$mailto,$sendmail,$ng,$ngword,$namecolor,$capcolor,$sagecolor,$titlecolor,$body,$rogo,$table,$table2,
$table3,$table4,$table6,$readresbody,$koukoku,$readtitlebody,$itenmessage,$pass,$htmlpath,$htmlzpath,$cgizpath,$kaigyouseigen,
$shouryakuseigen,$countzpath,$rogosita,$version,$imode,$ranking,$ipath,$head,$headsuu,$headbody,$headtable,$jst,$meta)=@conf;
# jcode.plのパス
require './jcode.pl';
$|=1;
&decode;
if($FORM{board} eq ""){&hyouji;}
else{&count;}
exit;
#############☆(02)メインルーチン☆###############
##################################################
#config.cgiの読み込み。
open(CONF,"./config.cgi")|| &error("config.cgiが開けません","no");
@conf=<CONF>;
close(CONF);
foreach(@conf){tr/\x0D\x0A//d;}
($sitename,$subtitle,$nanashiname,$delmessage,$resusuu,$suresuu,$menusuu,$sureseigen,$hostrec,$wrescheck,$trescheck,$new,
$lockkey,$delcheck,$mailing,$mailto,$sendmail,$ng,$ngword,$namecolor,$capcolor,$sagecolor,$titlecolor,$body,$rogo,$table,$table2,
$table3,$table4,$table6,$readresbody,$koukoku,$readtitlebody,$itenmessage,$pass,$htmlpath,$htmlzpath,$cgizpath,$kaigyouseigen,
$shouryakuseigen,$countzpath,$rogosita,$version,$imode,$ranking,$ipath,$head,$headsuu,$headbody,$headtable,$jst,$meta)=@conf;
# jcode.plのパス
require './jcode.pl';
$|=1;
&decode;
if($FORM{board} eq ""){&hyouji;}
else{&count;}
exit;
|
|
|
322 ：名前が無い＠ただの名無しのようだ：03/03/27 02:29 ID:28/TROH5
##################################################
################☆(03)表示☆######################
##################################################
sub hyouji{
if($ENV{'HTTP_ACCEPT_ENCODING'}=~/gzip/ && $gzip == 1){
print "Content-type: text/html\n";
print "Content-encoding: gzip\n\n";
open(STDOUT,"| $gzippath -1 -c");
}else{
print "Content-type: text/html\n\n";
}
print <<"_EOF_";
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=x-sjis">
<title>板別Ranking on $sitename</title>
</head>
<body bgcolor=white>
_EOF_
if($FORM{mode} eq "today"){open(COUNT,"./count/$countdate.txt");print"<b>今日のRanking結果($year/$mon/$mday)</b>";}
elsif($FORM{mode} eq "kako" && $FORM{mode2} eq "pv"){open(COUNT,"./count/$FORM{year}$FORM{month}$FORM{day}.txt");print"
<b>$FORM{year}年$FORM{month}月$FORM{day}日のRanking結果</b>";}
elsif($FORM{mode} eq "res"){open(COUNT,"./count/resall.txt");print"<b>書き込みRanking結果</b>";}
elsif($FORM{mode} eq "kako" && $FORM{mode2} eq "res"){open(COUNT,"./count/res$FORM{year}$FORM{month}$FORM{day}.txt");print"
<b>$FORM{year}年$FORM{month}月$FORM{day}日の書き込みRanking結果</b>";}
elsif($FORM{mode} eq "restoday"){open(COUNT,"./count/res$countdate.txt");print"<b>今日の書き込みRanking結果($year/$mon/$mday)</b>";}
else{open(COUNT,"./count/all.txt");print"<b>総合Ranking結果</b>";}
################☆(03)表示☆######################
##################################################
sub hyouji{
if($ENV{'HTTP_ACCEPT_ENCODING'}=~/gzip/ && $gzip == 1){
print "Content-type: text/html\n";
print "Content-encoding: gzip\n\n";
open(STDOUT,"| $gzippath -1 -c");
}else{
print "Content-type: text/html\n\n";
}
print <<"_EOF_";
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=x-sjis">
<title>板別Ranking on $sitename</title>
</head>
<body bgcolor=white>
_EOF_
if($FORM{mode} eq "today"){open(COUNT,"./count/$countdate.txt");print"<b>今日のRanking結果($year/$mon/$mday)</b>";}
elsif($FORM{mode} eq "kako" && $FORM{mode2} eq "pv"){open(COUNT,"./count/$FORM{year}$FORM{month}$FORM{day}.txt");print"
<b>$FORM{year}年$FORM{month}月$FORM{day}日のRanking結果</b>";}
elsif($FORM{mode} eq "res"){open(COUNT,"./count/resall.txt");print"<b>書き込みRanking結果</b>";}
elsif($FORM{mode} eq "kako" && $FORM{mode2} eq "res"){open(COUNT,"./count/res$FORM{year}$FORM{month}$FORM{day}.txt");print"
<b>$FORM{year}年$FORM{month}月$FORM{day}日の書き込みRanking結果</b>";}
elsif($FORM{mode} eq "restoday"){open(COUNT,"./count/res$countdate.txt");print"<b>今日の書き込みRanking結果($year/$mon/$mday)</b>";}
else{open(COUNT,"./count/all.txt");print"<b>総合Ranking結果</b>";}