#!/usr/bin/perl
require "kisrael.pl";
&chugCGI(*input);
$raw = $input{"text"};
$old = $input{"old"};
$other = $input{"other"};
$dobreak = $input{"dobreak"};
if($raw eq ""){
print "Content-type:text/html\n\n";
print<<__EOQ__;
blackspace
kisrael.com | tools |
blackspace
Removes blank lines from text. (Useful in editing source of certain webscripting packages.)
__EOQ__
} else {
$raw =~ s/\r//g;
$buffer = "";
@lines = split(/\n/,$raw);
foreach $line(@lines){
if($line =~ /\S/){
$buffer .= $line."\n";
}
}
print "Content-type:text/plain\n\n";
print $buffer;
}