diff options
Diffstat (limited to 'orig')
| -rw-r--r-- | orig/minimun | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/orig/minimun b/orig/minimun index 153bbb6..8e0cab1 100644 --- a/orig/minimun +++ b/orig/minimun @@ -18,7 +18,7 @@ foreach my $pair (@pairs) { my ($name, $val) = split(/=/, $pair); $val =~ tr/+/ /; $val =~ s/%(..)/pack("C", hex($1))/eg; - $val =~ s/([#%_\$^&{}\\])/\\$1/g; + $val =~ s/([#%_\$^&{}\\])//g; $FORM{$name} = $val; } @@ -42,7 +42,7 @@ else{ say $fh "\\bye"; -system ('/usr/bin/pdftex', $filename, '>/dev/null'); +`/usr/bin/pdftex "$filename"`; unlink "$filename.log"; open(DOC, '<', "$filename.pdf") or do { print "Content-type: text/html\n"; |