chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-live.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Enable entry of strings with spaces in
[ypp-sc-tools.db-live.git]
/
pctb
/
dictionary-update-receiver
diff --git
a/pctb/dictionary-update-receiver
b/pctb/dictionary-update-receiver
index 0ce85934d1948d23a02b47ef321cbcbce387a5f8..cd1638e22a476e905d2ebecd7975169181fb1358 100755
(executable)
--- a/
pctb/dictionary-update-receiver
+++ b/
pctb/dictionary-update-receiver
@@
-12,7
+12,7
@@
use strict (qw(vars));
use POSIX;
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/;
$CGI::DISABLE_UPLOADS= 1;
use CGI qw/:standard -private_tempfiles/;
@@
-155,7
+155,7
@@
sub pipeval ($@) {
my $dict= param('dict');
my $entry_in= param('entry');
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');
my $ocean= param('ocean');
my $pirate= param('pirate');
@@
-268,7
+268,7
@@
L->flush or die $!;
if (eval {
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 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 $!;
print L "$ll stored\n" or die $!;
} else {
print L "$ll ERROR! $@\n" or die $!;
+ exit 1;
}
close L or die $!;
}
close L or die $!;