#!/usr/bin/perl sub OpenTable { print NewFile "
\n" ; print NewFile "\n"; print NewFile "
\n "; print NewFile "
\n "; print NewFile "\n "; print NewFile @toc ; print NewFile "<\/SMALL>\n "; print NewFile "<\/TD>\n "; print NewFile "		\n "; } sub CloseTable { print NewFile "<\/TD>\n "; print NewFile "<\/TR>\n "; print NewFile "<\/TABLE>
\n "; } sub LeftSide { $TS++ ; if ($TS=~1) { print NewFile "<\/A>\n"; print NewFile "
\n"; print NewFile "\n"; print NewFile ""; print NewFile "\"home\"<\/A>\n"; print NewFile "\n"; print NewFile ""; print NewFile "\"cronicles\"<\/A>\n"; print NewFile "\n"; print NewFile ""; print NewFile "\"hellenic<\/A>\n"; print NewFile "\n"; print NewFile ""; print NewFile "\"vrypan\@hol.gr\"HEIGHT=28<\/A>\n"; print NewFile "\n"; }; if ($TS=~3) { CloseTable ; print NewFile "\n" ; } print NewFile "\n"; } sub RightSide { $TS++ ; print NewFile "<\/SMALL><\/FONT>\n"; if ($TS=~2) { OpenTable;} ; if ($TS=~4) {print NewFile "
vrypan\@hol.gr<\/A><\/SMALL>\n";}; } $fntop=$ARGV[0] ; $fnhtml="$fntop.html" ; open(I,"$fnhtml") || die "Can't open file $fnhtml!\n"; while () { if (//) { split(/[<>]/); @toc=("<B>$_[2]<\/B><BR><BR> \n") ; } if (/<H2><A NAME=\"toc([0-9]+)\">([0-9]+)\.<\/A>/) { split(/[<>]/); $a=$_[4]; $b=$_[8]; @toc=(@toc,"<A HREF=\"$fntop-$a\html\">$a$b<\/A><BR><BR>\n"); } } close(I); foreach $_ (`ls $ARGV[0]*.html`) { chop; ($fn=$_) ; ($fnold="$fn.old"); print "Parsing file $fn... "; rename("$fn","$fnold"); open(I,"$fnold") || die "Can't open file!\n"; open(NewFile,">$fn"); $TS=0 ; while (<I>) { Switch: { /^\s$/ && do {last Switch;}; /<BODY>/ && do { print NewFile "<BODY BGCOLOR=\"#ffffd9\" LINK=\"#005555\" VLINK=\"#333399\" INK=\"#cc3333\" BACKGROUND=\"img\/bg.gif\"> \n "; last Switch ; }; /<HR>/ && do { ($a,$b)=split(/<HR>/,$_) ; print NewFile "$a $b"; last Switch;}; /^Next\s/ && do { print NewFile "<IMG SRC=\"img\/ra0.gif\" WIDTH=21 HEIGHT=21>\n"; print NewFile "<IMG SRC=\"img\/hbar.gif\" WIDTH=10 HEIGHT=28>\n"; last Switch ; }; /^Previous\s/ && do { LeftSide ; print NewFile "<IMG SRC=\"img\/la0.gif\" WIDTH=21 HEIGHT=21>\n"; print NewFile "<IMG SRC=\"img\/hbar.gif\" WIDTH=10 HEIGHT=28>\n"; last Switch ; }; /^Table of Contents\s/ && do { print NewFile "<IMG SRC=\"img\/ua0.gif\" WIDTH=21 HEIGHT=21>\n"; print NewFile "<IMG SRC=\"img\/hbar.gif\" WIDTH=10 HEIGHT=28>\n"; RightSide ; last Switch ; }; /<A HREF="(\S+)">Next<\/A>/ && do { print NewFile "<A HREF=\"$1\"><IMG SRC=\"img\/ra1.gif\" WIDTH=21 HEIGHT=21 BORDER=0><\/A>" ; print NewFile "<IMG SRC=\"img\/hbar.gif\" HEIGHT=28 WIDTH=10>"; last Switch; }; /<A HREF="(\S+)">Previous<\/A>/ && do { LeftSide; print NewFile "<A HREF=\"$1\"><IMG SRC=\"img\/la1.gif\" WIDTH=21 HEIGHT=21 BORDER=0><\/A>" ; print NewFile "<IMG SRC=\"img\/hbar.gif\" HEIGHT=28 WIDTH=10>"; last Switch; }; /<A HREF="(\S+)">Table of Contents<\/A>/ && do { print NewFile "<A HREF=\"$1\"><IMG SRC=\"img\/ua1.gif\" WIDTH=21 HEIGHT=21 BORDER=0><\/A>" ; print NewFile "<IMG SRC=\"img\/hbar.gif\" HEIGHT=28 WIDTH=10>"; RightSide; last Switch; }; /<\/BODY>/ && do { if ($fn=~/$fntop.html/) { print NewFile "<CENTER><IMG SRC=\"http:\/\/users.hol.gr\/cgi-bin\/count.cgi?ft=2|md=5|dd=C|df=vrypan$fntop\" absmiddle> <B>visitors since 13.11.97<\/B><\/CENTER>\n"; } else {print NewFile "<\/BODY>";}; last Switch ; } ; print NewFile "$_" ; } } print "Done\n"; close(NewFile); close(I); }