#!/usr/bin/perl use CGI::Form; $REP_PS="/home/ps2pdf/"; $URL_PS="/ps2pdf/"; sub entete_html() { print "Content-type: text/html\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "Url source: $url
\n"; if (system ("wget \"$url\" -O $REP_PS$cible_ps") == 0) { if (system ("ps2pdf $REP_PS$cible_ps $REP_PS$cible_pdf") == 0) { print "\n"; } else { print "Erreur lors de la conversion du fichier.
\n"; } } else { print "Erreur lors du téléchargement du fichier (".$q->cgi_error()."
).
Convertir un autre fichier
\n"; pied_html (); } elsif ( ! $namefichierupload eq "" ) { entete_html (); print "Document source: $namefichierupload (local)
\n"; open (OUTFILE,">$REP_PS$cible_ps"); while ($bytesread=read($namefichierupload,$buffer,1024)) { print OUTFILE $buffer; } close OUTFILE; if (system ("ps2pdf $REP_PS$cible_ps $REP_PS$cible_pdf") == 0) { print "\n"; } else { print "Erreur lors de la conversion du fichier.
\n"; } print "Convertir un autre fichier
\n"; pied_html (); } else { # affichage de la page par défaut entete_html (); print "Ce script propose de convertir en ligne un document PS en document PDF. Vous pouvez soit\n"; print " donner l'adresse internet d'un document, soit convertir un document de votre disque dur.
\n"; print "Choisissez l'adresse d'un document PS à convertir\n"; print "
\n"; print "\n"; print "Choisissez sur votre ordinateur un document PS à convertir\n"; print "
\n"; print "\n"; pied_html (); }