#!/usr/bin/perl -w # take typescript output from saveon, write as preformatted HTML. use strict; print <<"EndHeader";
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 $_; }