#!/usr/bin/perl
# LEGAL WARNING:
#
# This software is provided on an "AS IS", basis,
# without warranty of any kind, including without
# limitation the warranties of merchantability, fitness for
# a particular purpose and non-infringement. The entire
# risk as to the quality and performance of the Software is
# borne by you. Should the Software prove defective, you
# and not the author assume the entire cost of any service
# and repair.
#

use text2html;

$InputFile = shift;

die "Can not read-open $InputFile" unless open(IN,"<$InputFile");

$OutputFile = shift;

if( defined($OutputFile) ){
  $out = $OutputFile;
  die "Can not write-open $OutputFile" unless open($out,">$OutputFile");
  }else{
  $out = \*STDOUT;
  }
undef $/;
$Text = <IN>;
close IN;

$ptrText = &text2html(\$Text, <<END
FONTFACE=Verdana
FONTSIZE=2
PRESTART=<FONT SIZE=3><PRE>
PREEND=</PRE></FONT>
TTSTART=<FONT SIZE=3><TT>
TTEND=</TT></FONT>
END
);

print $out $$ptrText;
exit;