#!/usr/bin/perl -w
# make-logs -- create HTML files for each of my logs
# There are really a few different steps involved here.  

use HTML::Parser;
package HTML::Parser::Myparser;

sub comment {
}

package main;

use Text::Template;

$t = new Text::Template(TYPE => FILE,
			SOURCE => 'test.tmpl',
			DELIMITERS => ['<SCRIPT language="perl">',
				       '</SCRIPT>']
			);

$p = HTML::Parser->new(api_version => 3,
		       handlers => {
			   comment => [ \@comments, "token0" ]
			   }
		       );

$p->parse_file("index.html");
print $comments[0][0];

$goober = "Holy shit!\n";
$page = $t->fill_in();

#print $page;