お前らのデスクトップを晒してくださいinFF・DQ板

###########目次###########
#(01)目次
#(02)メインルーチン (本筋)
#(03)フォームのデコード (&decode)
#(04)投稿部分＆メニューのhtml作成 (&makehtmlhead)
#(05)スレッドのhtml作成 (&makehtmlbody)
#(06)ロックファイル（symlink関数） (&lock1)
#(07)ロックファイル（open関数） (&lock2)
#(08)エラー処理 (&error)
#(09)リメイク処理 (&remake)
#(10)スレッドのhtmlのリメイク (&remakehtml)
#(11)i-mode (&imode)

##################################################
#############☆(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;

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";
}
$HEAD=1;

&decode;#----------------------------------------フォームのデコード

if($FORM{mode} eq ""){&allview;}
elsif($FORM{mode} eq "ita"){&itaview;}
elsif($FORM{mode} eq "sure"){&sureview;}

exit;