diff options
author | Holden Rohrer <hr@hrhr.dev> | 2020-01-15 16:31:16 -0500 |
---|---|---|
committer | Holden Rohrer <hr@hrhr.dev> | 2020-01-15 16:31:16 -0500 |
commit | eb0487ed502fec108cb70a2aac8535f435f99453 (patch) | |
tree | 097f4293288f882afa8dc83c6718c8d844e98b84 | |
parent | 0d3ff889ef111b502457283485404d4bf9968a2d (diff) |
removed extraneous lines in script
-rwxr-xr-x | minimun | 15 |
1 files changed, 4 insertions, 11 deletions
@@ -6,20 +6,13 @@ use IPC::Run qw(run); my ($in, $out); -$in .= "\\relax\n"; - -open(FORMAT, '<', 'format.tex'); -while (my $line = <FORMAT>){ - $in .= $line; -} -close(FORMAT); - -$in .= "bruh\n"; +$in .= "\\award\n"; $in .= "\\bye\n"; -run ['/usr/bin/pdftex'], '<', \$in, '>', \$out; +run ['/usr/bin/pdftex', 'format.tex'], '<', \$in, '>', \$out; print "Content-type: application/pdf\n\n"; -open(DOC, '<', 'texput.pdf'); +open(DOC, '<', 'format.pdf'); while (<DOC>){ print; } +close(DOC); |