#Author: Haggen So
#Last Modify Date: 7 July 2000
#Language: Perl v5.0

#Compress bookmark.htm to upbook.htm by
#reducing unnecessary information

#This program is licensed under General Public License (GPL)
#Please refers to http://www.fsf.org/licenses/gpl.txt

open (book, "bookmark.htm");
open (outfile, ">upbook.htm");
undef $/;
$buffer = <book>;

$buffer =~ s/\sADD_DATE=\"\d+\"//g;
$buffer =~ s/\sLAST_VISIT=\"\d+\"//g;
$buffer =~ s/\sLAST_MODIFIED=\"\d+\"//g;
$buffer =~ s/\sFOLDED\s*//g;

$buffer =~ s/\x0d//g;
$buffer =~ s/\x0a//g;

$buffer =~ s/\<\/A\>\s*\<DT\>/\<\/A\>\<DT\>/g;
$buffer =~ s/\<\/A\>\s*\<\/DL\>/\<\/A\>\<\/DL\>/g;
$buffer =~ s/\<p\>\s*\<DT\>/\<p\>\<DT\>/g;
$buffer =~ s/\<p\>\s*\<\/DL\>/\<p\>\<\/DL\>/g;
$buffer =~ s/\<\/H3\>\s*\<DL\>/\<\/H3\>\<DL\>/g;

print outfile "$buffer";
print "finish\n";