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

##################################################
#############☆(09)リメイク処理☆#################
##################################################
sub remake{

opendir(DIR,"./$board/txt");
#↓ここで作るハッシュは、「時間 . キー」をキーにして、中にはキーがセットしてあるにょ。
foreach $files (grep!/^..?$/,readdir DIR){
$files=~tr/\x0D\x0A//d;
$files=~/^${board}_(.*)(a|b)\.txt$/;
if($2 eq 'a'){
if (! -e "$htmlpath/$board/txt/${board}_${1}b.txt"){
my($mtime) = (stat("$htmlpath/$board/txt/$files"))[10];
$time{"$mtime"."$files"}="$files";
}
}
elsif($2 eq 'b'){
my($mtime) = (stat("$htmlpath/$board/txt/$files"))[10];
$time{"$mtime"."$files"}="$files";
}

}

closedir (DIR);
#さっき作ったハッシュのキーだけを取り出して配列を作ってるにょ
@mtime = keys(%time);

#で、その配列をソート関数使ってソートするにょ
@sorting = sort {$b <=> $a} @mtime;
$lognewsuu=2;
open(TMP,">$tmpfile");
print TMP "00001\n";
foreach $key (@sorting){
my($files)=$time{$key};
$files=~/^${board}_(.*)(?:a|b)\.txt$/;
my($logapath)="$htmlpath/$board/txt/${board}_${1}a.txt";
my($logbpath)="$htmlpath/$board/txt/${board}_${1}b.txt";
open(LOG,"$logapath");
my($title)=(split(/<>/,<LOG>))[2];
close(LOG);
open(LOG,"$logbpath");
my($count)=0;
while(read LOG, $_, 1024) {
$count += tr/\n//;
}

close(LOG);
$count++;
if($files=~/^${board}_(.*)(?:a|b)\.txt$/){
print TMP "$1<>$title<>$count\n";
$lognewsuu++;
}
}
print TMP "00001\n";
close (TMP);
rename($tmpfile,$lognewfile);
}

##################################################
##########☆(10)スレッドのhtmlのリメイク☆########
##################################################
sub remakehtml{

$ahtml="$htmlpath/$board/html/${board}_${logg}.html";
$a1stfile="$htmlpath/$board/txt/${board}_${logg}a.txt";
$b1stfile="$htmlpath/$board/txt/${board}_${logg}b.txt";
$article="${board}_${logg}";
open(LOG,$a1stfile);
($date,$name,$sub,$msg,$no,$email,$delmes) = split(/<>/,<LOG>);
close(LOG);
$email=~tr/\x0D\x0A//d;
if ($email ne "") {$name = "<a href=\"mailto\:$email\">$name</a>";}
if($namecolor){$fontname="<FONT color=$namecolor><B>　 $name</B></FONT>";}
else{$fontname="<B>　 $name</B>";}

open(HTM,">$ahtml");
eval{flock(HTM,2);};
if($delcheck eq "all" && $delmes!~/del/)
{$checkbox="\<input type=checkbox name=1 value=del\>";}
else{$checkbox="";}
print HTM<<"_EOF_";
<DT><a href="$cgizpath/readres.cgi?bo=$board&vi=$logg&res=1" target="_new">1</a>
$fontname　 $date$checkbox<BR>
<DD>$msg
<hr size=5>
_EOF_
my($resukazu)=0;
open(LOG,$b1stfile);
while(read LOG, $_, 1024) {
$resukazu += tr/\n//;
}
seek(LOG,0,0);
my($count)=0;
if(($resukazu-1) < $resusuu){$printing=0;}
else{$printing = $resukazu - $resusuu;}
while(<LOG>){
$count++;
if($count > $printing){
tr/\x0D\x0A//d;
($dater,$namer,$msg,$nor,$emailr,$delmes,$shouryakuyes) = split /<>/;
$printres=$nor;
if($delmes eq "toumeidel"){$count--;next;}
$printres=$count+1;
$shouryaku="";