| #!/usr/bin/perl |
| # |
| # This program generates a simple HTML document from a text file. |
| # |
| # Written by: Alex Burger |
| # Date: March 18th, 2004 |
| # |
| |
| # Set to 1 to use fixed width font (<tt>) |
| $fixed_width = 0; |
| |
| open (FILE, @ARGV[0]) || die "Could not open file \'@ARGV[0]\'. $!"; |
| |
| |
| print '<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">' . "\n"; |
| print '<html>' . "\n"; |
| print '<head>' . "\n"; |
| print "<title></title>\n"; |
| print '</head>' . "\n"; |
| print '<body>' . "\n"; |
| if ($fixed_width == 1) { |
| print "<p><tt>\n"; |
| } |
| else { |
| print "<p>\n"; |
| } |
| |
| while ($line = <FILE>) { |
| chomp $line; |
| $line =~ s/&/\&/g; |
| $line =~ s/</\</g; |
| $line =~ s/>/\>/g; |
| $line =~ s/\"/\"/g; |
| if ($line eq "") { |
| if ($fixed_width == 1) { |
| print "</tt></p>\n"; |
| print "<p><tt>\n"; |
| } |
| else { |
| print "</p>\n"; |
| print "<p>\n"; |
| } |
| } |
| else { |
| print "$line<br />\n"; |
| } |
| } |
| |
| if ($fixed_width == 1) { |
| print "</tt>\n"; |
| } |
| print "</p>\n"; |
| print "</body>\n"; |
| print "</html>\n"; |
| |