Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
pdf-logo.gif	8.95 KB	-rw-r--r--
pdf-logo.jpg	2.75 KB	-rw-r--r--
pdf-logo.svg	5.13 KB	-rw-r--r--
sample-cgi.pl	1.38 KB	-rwxr-xr-x
sample.pl	1.96 KB	-rwxr-xr-x
verify-char-width	1.77 KB	-rw-r--r--

Code Editor : sample-cgi.pl

#!/usr/bin/perl

# PDF::Create usage for a Web CGI
#
# Inspired by alr with a CPAN annotation

use strict; use warnings;
use PDF::Create;
use CGI;

# CGI Header designating the pdf data
print CGI::header(
    -type       => 'application/x-pdf',
    -attachment => 'sample.pdf'
);

# Open pdf to stdout
my $pdf = new PDF::Create(
    'filename' => '-',
    'Version'  => 1.2,
    'PageMode' => 'UseOutlines',
    'Author'   => 'John Doe',
    'Title'    => 'Sample Document',
);

# Prepare 2 fonts
my $font1 = $pdf->font(
    'Subtype'  => 'Type1',
    'Encoding' => 'WinAnsiEncoding',
    'BaseFont' => 'Helvetica'
);
my $font2 = $pdf->font(
    'Subtype'  => 'Type1',
    'Encoding' => 'WinAnsiEncoding',
    'BaseFont' => 'Helvetica-Bold'
);

# Prepare a Table of Content
my $toc = $pdf->new_outline('Title' => 'Sample Document');

# Create root page
my $page = $pdf->new_page('MediaBox' => $pdf->get_page_size('a4'));

# Add a entry to the outline
$toc->new_outline('Title' => 'Page 1', 'Destination' => $page);

# Write some text to the page
$page->stringc($font2, 40, 306, 426, 'PDF::Create');
$page->stringc($font1, 20, 306, 396, "version $PDF::Create::VERSION");
$page->stringc($font1, 20, 300, 300, 'Fabien Tassin');
$page->stringc($font1, 20, 300, 250, 'Markus Baertschi (markus@markus.org)');
$page->stringc($font1, 20, 300, 200, 'sample-cgi.pl');

# Wrap up the PDF and close the file
$pdf->close;

${this.title}

Code Editor : sample-cgi.pl