From 91336bc346dae1ffb3fc46b775cb7a86a42488bb Mon Sep 17 00:00:00 2001
From: Holden Rohrer <hr@hrhr.dev>
Date: Wed, 3 Jun 2020 01:21:19 -0400
Subject: realized that illegal characters should just be removed

---
 orig/minimun | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'orig')

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";
-- 
cgit