X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.main.git;a=blobdiff_plain;f=pctb%2Fdictionary-update-receiver;h=13131f3330272f96f7ea74e5fe34b621dd673f55;hp=0ce85934d1948d23a02b47ef321cbcbce387a5f8;hb=f2358d0ea7b40ba405621947513f48108ca93504;hpb=3d80a86a8c77e29a26e70aa810ebb2dea607208e diff --git a/pctb/dictionary-update-receiver b/pctb/dictionary-update-receiver index 0ce8593..13131f3 100755 --- a/pctb/dictionary-update-receiver +++ b/pctb/dictionary-update-receiver @@ -12,7 +12,7 @@ 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/; @@ -54,7 +54,7 @@ sub parseentryin__pixmap ($) { my $whole= pipeval($ppm, 'ppmtopgm', - 'pnmnorm -bpercent 40 -wpercent 20', + 'pnmnorm -bpercent 10 -wpercent 5', 'pgmtopbm -threshold', 'pnminvert', 'pbmtoascii'); @@ -155,7 +155,7 @@ sub pipeval ($@) { 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'); @@ -268,7 +268,7 @@ L->flush or die $!; 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 $?; @@ -279,6 +279,7 @@ if (eval { print L "$ll stored\n" or die $!; } else { print L "$ll ERROR! $@\n" or die $!; + exit 1; } close L or die $!;