#!/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__;
FATLINERkisrael.com | tools |
FATLINER
This tool is useful if you have plain text (for example, from
Project Gutenberg) that has been
"wordwrapped" at a certain width with carriage returns, but your preferred viewing method can do its own wordwrapping thankyouverymuch. Cut and paste
the text into the box below, select the current paragraph marker, indicate if you
would like a blank line left between paragraphs, then hit "FATLINE!"
__EOQ__
} else {
$raw =~ s/\r//g;
if($old eq "returns"){
$oldbreak = "\n\n";
} elsif($old eq "4space"){
$oldbreak = " "x4;
} elsif($old eq "5space"){
$oldbreak = " "x5;
} elsif($old eq "8space"){
$oldbreak = " "x8;
} elsif($old eq "tab"){
$oldbreak = "\t";
} else {
$oldbreak = $other;
}
if($dobreak ne "") {
$newbreak = "\n\n";
} else {
$newbreak = "\n";
}
$buffer = "";
$raw =~ s/$oldbreak/\[\[EOL\]\]/g;
@lines = split(/\n/,$raw);
foreach $line(@lines){
$blank = "";
#if the buffer ends with a non blank character
#and this line starts with a nonblank character,
#insert a space between
if($buffer =~ /\S$/ && $line =~ /^\S/){
$blank = " ";
}
$buffer .= $blank.$line;
}
$buffer =~ s/\[\[EOL\]\]/$newbreak/g;
print "Content-type:text/plain\n\n";
print $buffer;
}