use strict (qw(vars));
use POSIX;
-$CGI::POST_MAX= 65536;
+$CGI::POST_MAX= 1024*1024;
$CGI::DISABLE_UPLOADS= 1;
use CGI qw/:standard -private_tempfiles/;
my $whole= pipeval($ppm,
'ppmtopgm',
- 'pnmnorm -bpercent 40 -wpercent 20',
+ 'pnmnorm -bpercent 10 -wpercent 5',
'pgmtopbm -threshold',
'pnminvert',
'pbmtoascii');
my $dict= param('dict');
my $entry_in= param('entry');
-defined $entry_in or die;
+defined $entry_in or die Dump()." ?";
my $ocean= param('ocean');
my $pirate= param('pirate');
if (eval {
- open S, "|sendmail -odb -oee -oi -t" or die $!;
+ open S, "|/usr/lib/sendmail -odb -oee -oi -t" or die $!;
print S $email or die $!;
$!=0; $?=0; close S or die $!; $? and die $?;
print L "$ll stored\n" or die $!;
} else {
print L "$ll ERROR! $@\n" or die $!;
+ exit 1;
}
close L or die $!;