#!/usr/bin/perl
$Match=$ARGV[0].".html";
$Archive="archives";
$MsgBoard="wwwboard.html";
$TmpBoard="tempboard.html";
$ArcBoard="Arcboard.html";
$Mesg="messages";
$ext="html";
$msg1= "[ Follow Ups ] ";
$msg2= "[ ";
$msg3= "Brews And Views: The Brewery's Discussion Board ] ";
$msg4= "[ The Brewery ] ";
$msg5= "[ FAQ ]";
$msg6= "";
$ArcMsg=$msg1.$msg2.$msg3.$msg4.$msg5.$msg6;
$Arc1= "Brews and Views: The Brewery's Discussion Board Archives";
$Arc2= "![\"](\"/brewery/img/bn_bull.gif\")
";
$Arc3= "Brews and Views
The Brewery's Discussion Board
";
$Arc4= "
";
$Arc5= " [ The Brewery ]";
$Arc6= " [ FAQ ] ";
$Arc7= " [ Archive Index ]";
$Arc8= "
";
$ArcMsg=$Arc1.$Arc2.$Arc3.$Arc4.$Arc5.$Arc6.$Arc7.$Arc8;
$tail= "";
# process out the messages into the archive directory
$ArchiveDir=$Archive."/".$Mesg;
&ReadNum;
foreach (@Data) {
$File=$_.".".$ext;
open(IF,$Mesg."/".$File) || die;
flock(IF,2);
$OutFile=$Archive."/".$Mesg."/".$File;
open(OF,">".$Archive."/".$Mesg."/".$File) || die;
while () {
s/href="/href="\/brewery\/wwwboard\/archives\/messages\//;
if (/#followups/) {
$_=;
print OF "$ArcMesg\n";
next;
}
if (/Post a Followup<\/a>/) {
while (! /
/) {
$_=;
}
print OF "$tail\n";
close(IF);
$_='';
}
print OF "$_";
}
flock(IF,8);
close(IF);
close(OF);
$ByeBye=$Mesg."/".$File;
print "$ByeBye\n";
$stat=`rm $ByeBye`;
}
exit(0);
#Next, build the "index" html file for this group of messages
# Build a name based off of the date in the first record of $ArcBoard
open(IF,$ArcBoard) || die;
$_=;
close(IF);
($left,$right)=split(//,$_,2);
($left,$date)=split(/ /,$right,2);
$date=~s/<\/i>//g;
$date=~s/\//-/g;
chop($date);
$NewArch=$Archive."/".$date.".".$ext;
open(IF,$ArcBoard);
open(OF2,">".$NewArch);
print OF2 "$ArcMsg\n";
while () {
print OF2 "$_";
}
print OF2 "$tail\n";
close(IF);
close(OF2);
open(OF,">>".$Archive."/list.html");
print OF "- $date
\n";
close(OF);
chdir($Archives);
$stat=`mkindx`;
sub ReadNum {
open(IF,$ArcBoard) || die;
$idx=0;
while (){
if (/--top: /) {
($a,$b)=split(/top: /,$_,2);
($num,$jnk)=split(/--/,$b,2);
$Data[$idx++]=$num;
}
}
close(IF);
}