#!/usr/bin/perl
# Title: Makehtml
# Author: Burt Rosenberg
# Date: May 2007
$default_opt = "-1" ;
$usage = "usage: makehtml.pl [-1|-2|-3|-4] title_of_page\n" ;
if ( scalar @ARGV == 2 ) {
$opt = shift ;
$title = shift ;
}
elsif ( scalar @ARGV == 1 ) {
$opt = $default_opt ;
$title = shift ;
}
else {
print $usage ;
exit ;
}
if ( $opt =~ /^-1/ ) {
print <
$title
$title
EOF
}
elsif ( $opt =~ /^-2/ ) {
print <
$title
$title
EOF
}
elsif ( $opt =~/^-3/ ) {
print <
$title
$title
EOF
}
elsif ( $opt =~/^-4/ ) {
printf <
$title
$title
EOF
}
else {
print $usage;
}