Print CD Case

#!/usr/bin/perl -w use strict; use CGI; use CGI::Carp qw(fatalsToBrowser); my $cgi = new CGI; # default front: my $front = <header(); if ($cgi->param()) { $result = Process(); # store oufile value: open(OUTF, ">.outfile"); print OUTF $cgi->param('outfile'); close(OUTF); } else { # restore previous oufile value: if (-e ".outfile") { open(OUTF, "<.outfile"); while (my $content = ) { $outfile = $content; } close(OUTF); } } sub Process { $outfile = $cgi->param('outfile'); $front = $cgi->param('front'); $back = $cgi->param('back'); open(TEMPL, "Error: Could not open template.tex."; my @texlines = ; close(TEMPL); foreach (@texlines) { $_ =~ s/!front/$front/; $_ =~ s/!back/$back/; } my $outtex = substr($outfile,0,-1)."tex"; open(TEXFILE, ">$outtex") || return "

Error: Could not write $outtex.

"; print TEXFILE @texlines; close(TEXFILE); $_ = `latex $outtex`; if (!($_ =~ /output written/i)) { return "

LaTeX Errors in $outtex

$_

"; } my $outdvi = substr($outfile,0,-1)."dvi"; my $outps = substr($outfile,0,-1)."ps"; $_ = `dvips $outdvi`; if ($_) { return "

dvips Error: $_

"; } return "

Result: $outps, $outtex

\n"; } print < Print CD Case

Paper CD Case

$result EOD ;