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

284 ：名前が無い＠ただの名無しのようだ：03/03/27 01:52 ID:28/TROH5

if($shouryakuyes=~/yes/){
@msg=split(/ /,$msg);
$msg="";
for(0..$shouryakuseigen){
$msg.="$msg[$_] ";
}
$shouryaku=<<"_EOF_";
 
<a href="$cgizpath/readres.cgi?bo=$board&vi=$logg&res=$printres" target="_new">
省略されました全文を見る
</a>
_EOF_
if($shouryakuyes=~/pre/){$shouryaku="</pre>$shouryaku";}
if($shouryakuyes=~/tt/){$shouryaku="</tt>$shouryaku";}
}
if ($emailr ne "") {$namer = "<a href=\"mailto\:$emailr\">$namer</a>";}
if($namecolor){$fontname="　 $namer";}
else{$fontname="　 $namer";}
if($delcheck eq "all" && $delmes ne "del")
{$checkbox="\<input type=checkbox name=\"$printres\" value=del\>";}
else{$checkbox="";}
print HTM<<"_EOF_";
<DT>

285 ：名前が無い＠ただの名無しのようだ：03/03/27 01:53 ID:28/TROH5

<a href="$cgizpath/readres.cgi?bo=$board&vi=$logg&res=$printres">
$printres</a>$fontname　 $dater$checkbox 
<DD>$msg$shouryaku
<hr>
_EOF_
}}
close(LOG);
close(HTM);
}

286 ：名前が無い＠ただの名無しのようだ：03/03/27 01:53 ID:28/TROH5

##################################################
##################☆(11)i-mode☆##################
##################################################
sub imode{
if(! -e "$htmlpath/$board/i/."){mkdir "$htmlpath/$board/i",0777;}
open(LOGNEW,"$htmlpath/$board/${board}_newb.txt");
$nonolog=<LOGNEW>;

open(TMP,">$tmpfile");
print TMP <<"_EOF_";
<html><head><title>$bbstitle</title></head><body>
$bbstitle＠i 
<a href=$ipath>戻る</a> 
<a href=$cgizpath/megabbs.cgi?imode=i&board=$board>新規スレ</a> 
<hr>
_EOF_
$count=0;
while(<LOGNEW>){
$count++;
if($count < 50 && $lognewsuu-1 > $count){

287 ：名前が無い＠ただの名無しのようだ：03/03/27 01:55 ID:28/TROH5

chomp;
($isureno,$isuresub,$iressuu)=split /<>/;
print TMP "<a href=$cgizpath/readres.cgi?i=on&vi=$isureno&bo=$board>
$isuresub($iressuu)</a> ";
}
else{last;}
}
close(LOGNEW);
print TMP <<"_EOF_";
<hr>
<a href=$ipath>戻る</a>
</body></html>
_EOF_
close(TMP);
rename($tmpfile,"$htmlpath/$board/i/index.html");
}