#!/usr/bin/perl
$datdir = "../dat";
$basedir = "../";
$txtdir = "../dat_setting";
#ルート板の名前を入れる
$cita = "bbs";
#ノード板の名前を入れる
@sita = (node1,node2,node3);
print "Content-type :text/html\n\n";
print "subject resetter
";
print "[TARGET BBS]
";
print " $cita (Root)
";
foreach $ssita (@sita){print " $ssita (Node)
";}
print "
[SYSTEM RESULT]
";
opendir (DIR,"$datdir");
@dirdata = readdir (DIR);
closedir (DIR);
print " Thread setting-file reading...";
$count1 = 0;
$count2 = 0;
$count3 = 0;
foreach $dirline (@dirdata) {
if ($dirline !~ /.dat/){next;}
$count1++;
$txtfile = $txtdir . "/" . $dirline;
$txtfile =~ s/\.dat/\.txt/g;
if(-e $txtfile){
$count2++;
open (FILE,$txtfile);
$m_key = ;
close (FILE);
($subject,$FLAG,$BBS,$COUNT) = split(/\t/,$m_key);
($mtime) = (stat($txtfile))[9];
$key = $dirline;
$count3 = $COUNT + $count3;
if ("$BBS" eq "han_tome"){$BBS="hantome";
open (FILE,">$txtfile");
print FILE "$subject\t$FLAG\thantome\t$COUNT";
close (FILE);}
push(@newarray,"$mtime\t$BBS\t$dirline<>$subject ($COUNT)");
}
}
print "done.
";
print " Live-Thread file : $count1
\n";
print " Legal-Thread : $count2
\n";
print " Response : $count3
";
@sdirdata = sort {
($ma,$ba,$sa)=split(/\t/,$a);
($mb,$bb,$sb)=split(/\t/,$b);
$mb <=> $ma } @newarray;
print " $cita : making...";
$count1 = 0;
$file = $basedir . $cita . "/subject.txt";
open (FILE,">$file");
foreach $dirline (@sdirdata) {
($ma,$ba,$sa)=split(/\t/,$dirline);
print FILE "$sa\n";
$count1++;
}
close (FILE);
print "done. / $count1 Threads.
\n";
foreach $ssita (@sita){
$count1 = 0;
print " $ssita : making...";
$file = $basedir . $ssita . "/subject.txt";
open (FILE,">$file");
foreach $dirline (@sdirdata) {
($ma,$ba,$sa)=split(/\t/,$dirline);
if ($ba ne $ssita){next;}
print FILE "$sa\n";
$count1++;
}
close (FILE);
print "done. / $count1 Threads.
\n";
}
print "
Complete.";