#!/usr/bin/perl
#
# a2h.pl
#

use Augment;
use strict;

### location of converted HTML files
my $html_files_dir = '/home/eekim/devel/ohsdkr/augment';

### main
my $input_file = $ARGV[0];
if (!$input_file) {
  print <<EOM;
Usage:
    $0 augment_file

EOM
  exit;
}

my $a = new Augment $input_file, 'html_files_dir'=>$html_files_dir;
$a->writeHTML;