#!/usr/bin/perl -w
# take typescript output from saveon, write as preformatted HTML.
use strict;
print <<"EndHeader";
Sample output
EndHeader
while (<>) {
$_ = prep($_);
s!^ !!;
s!me\% (.*)!me% $1!;
s!user\% (.*)!user% $1!;
s!root# (.*)!root# $1!;
print "$_\n";
}
print <<"EndFooter";
EndFooter
exit(0);
#---------------------------------------------------------------------
# Prepare string by expanding tabs, etc.
sub prep {
local ($_) = shift;
chomp;
1 while s/\t+/' ' x (length($&) * 5 - length($`) % 5)/e;
# Special characters?
s!\&!\&!g;
s!!\>!g;
# URLs?
s#\[URL:(.*)\]#$1#g; # embedded URL
s#(http://\S+)#$1#g;
s#(https://\S+)#$1#g;
s#(ftp://\S+)#$1#g;
return $_;
}