diff options
author | Holden Rohrer <hr@hrhr.dev> | 2020-06-03 01:21:19 -0400 |
---|---|---|
committer | Holden Rohrer <hr@hrhr.dev> | 2020-06-03 01:21:19 -0400 |
commit | 91336bc346dae1ffb3fc46b775cb7a86a42488bb (patch) | |
tree | 128620c421880762dd42309348a80d6806026b65 /orig | |
parent | d90c47ec2cd883204d964a3dc0362bac48f847fc (diff) |
realized that illegal characters should just be removed
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"; |