file2html #1

#!/bin/perl5
# -*- Perl -*-
# Copyright 1999 Greg Spencer (greg_spencer@acm.org)

require SourceToHtml;

#usage: file2html <filename>
$filename = shift @ARGV;

if (!-f $filename) {
    print STDERR "Unable to open $filename: $@\n";
    exit(-1);
}

$time = SourceToHtml::Timestamp((stat($filename))[8]);

open (INPUT, "<$filename") || die "Unable to open $filename: $@\n";
@input = <INPUT>;
close (INPUT);

for ($i=0;$i<10;$i++){
    $sample .= $input[$i];
}

# printed in the center of title area, top and bottom
$confidential = "Company Confidential";

# Should we print line numbers?
$use_lineno = 1;

# This is a label that goes in front of the timestamp
$stamp_label = " ";

# This says that we need the full HTML headers (because it's
# generating a complete page).
$standalone = 1;

$converter = new SourceToHtml($filename,$sample,
			      $use_lineno,$confidential,1,
			      $time,$filename,$stamp_label);

print $converter->Convert(@input);