$1<\/font>/g;
}
return;
}
sub optimize_line
{
chomp;
return $_."\n";
}
sub main
{
my $html = "\n\n\n \n \n\n ";
my $copyright = "\n<hr>\n\nSource Converted by $script_name $copy_years <a href=\"$home\">$company</a>";
my $file = shift;
unless(open INFILE, $file) {
print "Could not open $file\n";
return;
}
$html.=" $file by $script_name\n\n\n\n\n\n";
print "Converting $file...\n";
my $line;
while() {
&parse_line;
$line = &optimize_line;
$html.=$line;
}
close INFILE;
# fix file extension
$file =~ s/\./_/g;
my $htmlfile = $file.".html";
$file.=".html";
print "Writing $htmlfile...\n";
unless(open OUTFILE, ">$htmlfile") {
print "Could not create $htmlfile\n";
return;
}
print OUTFILE $html.$copyright."\n\n\n\n";
close OUTFILE;
print "\n";
}
die "Usage: $script_name [file1] [file2] ...\n" unless @ARGV;
foreach my $file(@ARGV) {
&main($file) unless($file eq $script_name);
}
exit 0;