#!/usr/bin/perl
my
%opts
;
&Main
();
sub
Main{
$SIG
{
'INT'
} =
sub
{
exit
(0) };
&process_command_line_options
();
print
HTML::TagTree::get_doctype();
my
$head
=
$html
->head();
my
$body
=
$html
->body();
$html
->release();
sleep
0;
}
sub
process_command_line_options{
my
$return
= GetOptions(
'begin=s'
=> \
$opts
{begin},
'end=s'
=> \
$opts
{end},
'help'
=> \
$opts
{help},
);
if
(
defined
$opts
{help}) {
print
"Help for using .pl\n"
;
print
"Arguments:\n"
;
print
" -help\n This help screen.\n\n"
;
print
" -begin YYYYMMDDHHMM\n\n"
;
exit
;
}
return
$return
;
}
sub
Log{
}
sub
BEGIN{
my
$args
=
join
' '
,
@ARGV
;
&Log
(
"Starting w/ args:\n $args"
);
}
sub
END{
&Log
(
'End'
);
}