#!/usr/bin/perl

use PDF;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
$IN = new CGI;

if ($IN->param('action') eq 'make_pdf') {
open(PDF, "test.pdf") || print $IN->header('text/html')."can't open PDF file. Reason: $!";
undef $/;
$_ = <PDF>;
close(PDF);



$_ =~ s/Title/test/sig;
#s/##first_name##/$IN->param('first_name')}/;
#s/##last_name##/$IN->param('last_name')}/;



open(OUT, '>out.pdf') || print $IN->header('text/html').'can\'t open out file';
print OUT $_;
close(OUT);

print $IN->header('text/html');
print 'Your PDF has been created. It is available <a href="out.pdf">here</A>';

} else {

print $IN->header().'
<FORM ACTION="'.$ENV{SCRIPT_NAME}.'" METHOD="post">
Enter your info to make your own summersault business card in PDF format:<P>
First Name: <INPUT TYPE="text" NAME="first_name" SIZE="32" MAXLENGTH="32"><BR>
Last Name: <INPUT TYPE="text" NAME="last_name" SIZE="32" MAXLENGTH="32"><BR>
Email Address: <INPUT TYPE="text" NAME="email" SIZE="32" MAXLENGTH="32"><BR>
<INPUT TYPE="hidden" NAME="action" VALUE="make_pdf">
<INPUT TYPE="submit">
</FORM>


';
}

Õ×
«›{'ןÂs4;§|öÛÚ{‹?Y»ò{J‹›Ëufè·^Z¿ib±;�§æ„ûhï£ÆlL[×xŽ½CE±&¯5e›Âf0ÕÖ§/@�5^><Ü™½Û•¥í7ÁWT`2ÙIÙ™œM.
�)Úé:ë/XAÚÕUøZ<%~ø“baqUUQnMÁ]C„þ9žÌah>É©+6ö׎§�ÜÈE5WtmêHi*–ªªZ+–Á|«Ýûƒâ6ôíš:<*vVÆÉÑìÌ«KM(ÁÉ™®ÊíjHw><Ld*p;²‡1ü5æZCš‚§%4$>öYv&ÖÊà>

#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);
use PDF;

$pdf= PDF->new;
$pdf= PDF->new("out.pdf");

#$result=$pdf->TargetFile("testing.pdf");

print "is a pdf file\n" if ( $pdf->IsaPDF ) ;
print "Has ",$pdf->Pages," Pages \n";
print "Use a PDF Version ",$pdf->Version ," \n";
# print "and it is crypted " if ( $pdf->IscryptedPDF) ;

print "filename with title",$pdf->GetInfo("Title"),"\n";
print "and with subject ",$pdf->GetInfo("Subject"),"\n";
print "was written by ",$pdf->GetInfo("Author"),"\n";
print "in date ",$pdf->GetInfo("CreationDate"),"\n";
print "using ",$pdf->GetInfo("Creator"),"\n";
print "and converted with ",$pdf->GetInfo("Producer"),"\n";
print "The last modification occurred ",$pdf->GetInfo("ModDate"),"\n";
print "The associated keywords are ",$pdf->GetInfo("Keywords"),"\n";

my ($startx,$starty, $endx,$endy) = $pdf->PageSize ($page) ;

print "Content-type: text/html \n\n";
print "Done...";

#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);
use Carp;
use Getopt::Long;
use PDF;

my $version="1.0";
my $help="";
my $verbose="";

GetOptions( "help" => \$help , "verbose" => \$verbose );

$help and printusage();

foreach (@ARGV) {
do_the_dirty_job_on($_);
}

exit(1);

sub do_the_dirty_job_on {

my $file = shift;

my $PDFfile = PDF->new($file);

if ($PDFfile->IsaPDF) {
$verbose ? print "File $file has ",$PDFfile->Pages," page",$PDFfile->Pages > 1 ? "s" :"","\n"
: print $file,":",$PDFfile->Pages,"\n" ;
} else {
$verbose && print "File $file isn't a PDF file\n";
}
}

sub printusage {

print <<ANTRO;

Return the number of pages of a PDF file format.

usage:
pdf_pages [-options ...] files

where options include:
-help print out this message
-verbose verbose

or the abbreviate version -h, -v

files:
with files you can use metacharacters and relative and absolute path name

example:
pdf_pages *.pdf
pdf_pages -h
pdf_pages -v . "*.pdf" "/tmp/path/to/work/*.pdf"

ANTRO

exit(1);

};