#!/usr/bin/perl
require "kisrael.pl";
&chugCGI(*input);
$raw = $input{"text"};
$ws=$input{"ws"};
if($raw eq ""){
print "Content-type:text/html\n\n";
print<<__EOQ__;
htmlescape
kisrael.com | tools |
htmlescape
Convert
& to &
< to <
> to >
" to "
__EOQ__
} else {
$buffer = $raw;
$buffer =~ s/\&/'&'/eg;
$buffer =~ s/\"/'"'/eg;
$buffer =~ s/\/'>'/eg;
if(defined($ws)){ #try to convert whitespace \n to b " " to nbsp, tab, etc
$buffer =~ s/\r//g;
$buffer =~ s/\n/"
\n"/eg;
$buffer =~ s/ /" "/eg;
$buffer =~ s/\t/" "/eg;
}
print "Content-type:text/plain\n\n";
print $buffer;
}