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); |
