diff options
author | Holden Rohrer <hr@hrhr.dev> | 2020-01-15 22:28:43 -0500 |
---|---|---|
committer | Holden Rohrer <hr@hrhr.dev> | 2020-01-15 22:28:43 -0500 |
commit | 14e767dad2060073dfce2093c27300c4088f62dc (patch) | |
tree | 45e32d198f704acf67f7f91721aaff1d7342e69f | |
parent | 37c7d621cf105e2b1ddad9469b364528df7a35b6 (diff) |
stopped working in uwsgi
-rwxr-xr-x | minimun | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -5,13 +5,13 @@ use warnings; use IPC::Run qw(run); use Time::HiRes qw( time ); -my $in; +my ($in, $out); $in .= "\\award\n"; $in .= "\\bye\n"; my $timestamp = time; -run ['/usr/bin/pdftex', '-jobname', "$timestamp", 'format.tex'], '<', \$in; +run ['/usr/bin/pdftex', '-jobname', "$timestamp", 'format.tex'], '<', \$in, '>', \$out; print "Content-type: application/pdf\n\n"; open(DOC, '<', "$timestamp.pdf"); while (<DOC>){ |