more or less ready state

vlionix · Mar 5, 2011 · cd24289 · cd24289
1 parent 12c530f
commit cd24289
Show file tree

Hide file tree

Showing 4 changed files with 485 additions and 931 deletions.
diff --git a/emit-html.pl b/emit-html.pl
@@ -1,15 +1,23 @@
-open( my $fh, "<", "quicklisp_documentation.txt") or die($!);
+use strict;
+use warnings;
+
+my $fh;
+
+open( $fh, "<", "quicklisp_documentation.txt") or die($!);
 my @arr = <$fh>;
 close $fh;
 
 open( $fh, ">", "quicklisp_documentation.html") or die($!);
 # Add in some better html conformance
-print $fh "<table width=1>";
+print $fh "<html>";
+print $fh "<body>";
+print $fh "<table border=1>";
 foreach my $line (@arr)
 {
     my ($name, $packages, $desc) = split(/%%/, $line);
     print $fh "<tr><td> $name </td><td> $desc </td></tr>\n";
 }
 print $fh "</table>\n";
+print $fh "<body>";
 close $fh;