#!/usr/bin/perl

use strict;
use warnings;
use lib qw(lib);

use Chronology;

die "usage: tohtml.pl file module\n" unless(@ARGV == 2);

my ($file, $module) = @ARGV;

my $c = new Chronology();
$c->load($module, $file);
print "Error\n" unless(defined $c);
print $c->toHTML(standalone => 1);
#print $c->toHTML(view => 'timeline', standalone => 1);