#!/usr/bin/perl
require "kisrael.pl";
&chugCGI(*input);
$raw = $input{"text"};
print "Content-type:text/html\n\n";
if($raw eq ""){
print<<__EOQ__;
tab2table
kisrael.com | tools |
tab2table
Enter tab delimited data. Hit Go and see the stuff back in a simple HTML table
__EOQ__
} else {
$raw =~ s/\r//g;
@lines = split(/\n/,$raw);
print qq();
foreach $line(@lines){
print qq();
@things = split(/\t/,$line);
foreach $thing (@things){
print qq(| $thing | );
}
print qq(
\n);
}
print qq(
);
}