| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
package PDF::Extract;
|
|
2
|
1
|
|
|
1
|
|
25184
|
use strict;
|
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
53
|
|
|
3
|
|
|
|
|
|
|
#use warnings;
|
|
4
|
1
|
|
|
1
|
|
6
|
use vars qw($VERSION);
|
|
|
1
|
|
|
|
|
3
|
|
|
|
1
|
|
|
|
|
3982
|
|
|
5
|
|
|
|
|
|
|
$VERSION = '3.04';
|
|
6
|
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
=head1 NAME
|
|
8
|
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
PDF::Extract - Extracting sub PDF documents from a multi page PDF document
|
|
10
|
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
=head1 SYNOPSIS
|
|
12
|
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
use PDF::Extract;
|
|
14
|
|
|
|
|
|
|
$pdf=new PDF::Extract;
|
|
15
|
|
|
|
|
|
|
$pdf->servePDFExtract( PDFDoc=>"c:/Docs/my.pdf", PDFPages=>"1-3 31-36" );
|
|
16
|
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
or
|
|
18
|
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
use PDF::Extract;
|
|
20
|
|
|
|
|
|
|
$pdf = new PDF::Extract( PDFDoc=>'C:/my.pdf' );
|
|
21
|
|
|
|
|
|
|
$pdf->getPDFExtract( PDFPages=>$PDFPages );
|
|
22
|
|
|
|
|
|
|
print "Content-Type text/plain\n\n<![CDATA[", $pdf->getVars("PDFExtract");
</td>
</tr>
<tr>
<td class="h" >
<a name="23">23</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> print $pdf->getVars("PDFError");
</td>
</tr>
<tr>
<td class="h" >
<a name="24">24</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="25">25</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> or
</td>
</tr>
<tr>
<td class="h" >
<a name="26">26</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="27">27</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # Extract and save, in the current directory, all the pages in a pdf document
</td>
</tr>
<tr>
<td class="h" >
<a name="28">28</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> use PDF::Extract;
</td>
</tr>
<tr>
<td class="h" >
<a name="29">29</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $pdf=new PDF::Extract( PDFDoc=>"test.pdf");
</td>
</tr>
<tr>
<td class="h" >
<a name="30">30</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $i=1;
</td>
</tr>
<tr>
<td class="h" >
<a name="31">31</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $i++ while ( $pdf->savePDFExtract( PDFPages=>$i ) );
</td>
</tr>
<tr>
<td class="h" >
<a name="32">32</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="33">33</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="34">34</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =head1 DESCRIPTION
</td>
</tr>
<tr>
<td class="h" >
<a name="35">35</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="36">36</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDF Extract is a group of methods that allow the user to quickly grab pages
</td>
</tr>
<tr>
<td class="h" >
<a name="37">37</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> as a new PDF document from a pre-existing PDF document.
</td>
</tr>
<tr>
<td class="h" >
<a name="38">38</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="39">39</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> With PDF::Extract a new PDF document can be:-
</td>
</tr>
<tr>
<td class="h" >
<a name="40">40</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="41">41</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =over 4
</td>
</tr>
<tr>
<td class="h" >
<a name="42">42</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="43">43</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =item *
</td>
</tr>
<tr>
<td class="h" >
<a name="44">44</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="45">45</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> assigned to a scalar variable with getPDFExtract.
</td>
</tr>
<tr>
<td class="h" >
<a name="46">46</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="47">47</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =item *
</td>
</tr>
<tr>
<td class="h" >
<a name="48">48</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="49">49</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> saved to disk with savePDFExtract.
</td>
</tr>
<tr>
<td class="h" >
<a name="50">50</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="51">51</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =item *
</td>
</tr>
<tr>
<td class="h" >
<a name="52">52</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="53">53</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> printed to STDOUT as a PDF web document with servePDFExtract.
</td>
</tr>
<tr>
<td class="h" >
<a name="54">54</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="55">55</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =item *
</td>
</tr>
<tr>
<td class="h" >
<a name="56">56</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="57">57</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> cached and served for a faster PDF web document service with fastServePDFExtract.
</td>
</tr>
<tr>
<td class="h" >
<a name="58">58</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="59">59</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =back
</td>
</tr>
<tr>
<td class="h" >
<a name="60">60</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="61">61</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> These four main methods can be called with or without arguments. The methods
</td>
</tr>
<tr>
<td class="h" >
<a name="62">62</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> will not work unless they know the location of the original PDF document.
</td>
</tr>
<tr>
<td class="h" >
<a name="63">63</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFPages defaults to "1". There are no other default values.
</td>
</tr>
<tr>
<td class="h" >
<a name="64">64</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="65">65</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> There are four other methods that deal with setting and getting the public variables.
</td>
</tr>
<tr>
<td class="h" >
<a name="66">66</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="67">67</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =over 4
</td>
</tr>
<tr>
<td class="h" >
<a name="68">68</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="69">69</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =item *
</td>
</tr>
<tr>
<td class="h" >
<a name="70">70</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="71">71</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> getPDFExtractVariables can return an array of variables.
</td>
</tr>
<tr>
<td class="h" >
<a name="72">72</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="73">73</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =item *
</td>
</tr>
<tr>
<td class="h" >
<a name="74">74</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="75">75</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> getVars is an alias of getPDFExtractVariables
</td>
</tr>
<tr>
<td class="h" >
<a name="76">76</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="77">77</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =item *
</td>
</tr>
<tr>
<td class="h" >
<a name="78">78</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="79">79</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> setPDFExtractVariables can set the public variables.
</td>
</tr>
<tr>
<td class="h" >
<a name="80">80</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="81">81</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =item *
</td>
</tr>
<tr>
<td class="h" >
<a name="82">82</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="83">83</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> setVars is an alias of setPDFExtractVariables
</td>
</tr>
<tr>
<td class="h" >
<a name="84">84</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="85">85</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =back
</td>
</tr>
<tr>
<td class="h" >
<a name="86">86</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="87">87</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =cut
</td>
</tr>
<tr>
<td class="h" >
<a name="88">88</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="89">89</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="90">90</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my ( $pages, $fileNumber, $filename, $CatalogPages, $Catalog, $Root, $pdf, $pdfFile, $object, $encryptedPdf, $trailerObject )=(1,1); #default PDFPages to 1
</td>
</tr>
<tr>
<td class="h" >
<a name="91">91</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my ( @object, @obj, @instnum, @pages );
</td>
</tr>
<tr>
<td class="h" >
<a name="92">92</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my ( %vars, %getPages, %pageObject );
</td>
</tr>
<tr>
<td class="h" >
<a name="93">93</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="94">94</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $vars{"PDFCache"}="."; # defaults to this directory
</td>
</tr>
<tr>
<td class="h" >
<a name="95">95</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="96">96</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $CRLF = '[ \t\r\n\f\0]'."*(?:\015|\012|(?:\015\012))";
</td>
</tr>
<tr>
<td class="h" >
<a name="97">97</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="98">98</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # ----------------------------------------------------------- The Public Methods --------------------------------------------------------------
</td>
</tr>
<tr>
<td class="h" >
<a name="99">99</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="100">100</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =head1 METHODS
</td>
</tr>
<tr>
<td class="h" >
<a name="101">101</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="102">102</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =head2 new PDF::Extract
</td>
</tr>
<tr>
<td class="h" >
<a name="103">103</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="104">104</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> Creates a new Extract object with empty state information ready for processing
</td>
</tr>
<tr>
<td class="h" >
<a name="105">105</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> data both input and output. New can be called with a hash array argument.
</td>
</tr>
<tr>
<td class="h" >
<a name="106">106</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="107">107</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> new PDF::Extract( PDFDoc=>"c:/Docs/my.pdf", PDFPages=>"1-3 31-36" )
</td>
</tr>
<tr>
<td class="h" >
<a name="108">108</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="109">109</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> This will cause a new PDF document to be generated unless there is an error.
</td>
</tr>
<tr>
<td class="h" >
<a name="110">110</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> Extract->new() simply calls getPDFExtract() if there is an argument.
</td>
</tr>
<tr>
<td class="h" >
<a name="111">111</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="112">112</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =cut
</td>
</tr>
<tr>
<td class="h" >
<a name="113">113</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="114">114</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub new {
</td>
</tr>
<tr>
<td class="h" >
<a name="115">115</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#115-1">
0
</a>
</td>
<td class="c3" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#115-1">
1
</a>
</td>
<td >
</td>
<td class="s"> my $this = shift;
</td>
</tr>
<tr>
<td class="h" >
<a name="116">116</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--condition.html#116-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $class = ref($this) || $this;
</td>
</tr>
<tr>
<td class="h" >
<a name="117">117</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $self = {};
</td>
</tr>
<tr>
<td class="h" >
<a name="118">118</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> bless $self, $class;
</td>
</tr>
<tr>
<td class="h" >
<a name="119">119</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#119-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $self->getPDFExtract(@_) if @_;
</td>
</tr>
<tr>
<td class="h" >
<a name="120">120</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return $self;
</td>
</tr>
<tr>
<td class="h" >
<a name="121">121</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="122">122</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="123">123</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =head2 getPDFExtract
</td>
</tr>
<tr>
<td class="h" >
<a name="124">124</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="125">125</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> This method is the main workhorse of the package. It does all the PDF processing
</td>
</tr>
<tr>
<td class="h" >
<a name="126">126</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> and sets PDFError if its unable to create a new PDF document. It requires
</td>
</tr>
<tr>
<td class="h" >
<a name="127">127</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFDoc and PDFPages to be set either in this call of before to function.
</td>
</tr>
<tr>
<td class="h" >
<a name="128">128</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> It outputs a PDF document as a string or undef if there is an error.
</td>
</tr>
<tr>
<td class="h" >
<a name="129">129</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="130">130</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> To create an array of PDF documents, each consisting of a single page,
</td>
</tr>
<tr>
<td class="h" >
<a name="131">131</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> from a multi page PDF document.
</td>
</tr>
<tr>
<td class="h" >
<a name="132">132</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="133">133</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $pdf = new PDF::Extract( PDFDoc=>'C:/my.pdf' );
</td>
</tr>
<tr>
<td class="h" >
<a name="134">134</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $i=1;
</td>
</tr>
<tr>
<td class="h" >
<a name="135">135</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> while ( $pdf[$i++]=$pdf->getPDFExtract( PDFPages=>$i ) );
</td>
</tr>
<tr>
<td class="h" >
<a name="136">136</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="137">137</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> The lowest valid page number for PDFPages is 1. A value of undef will produce no
</td>
</tr>
<tr>
<td class="h" >
<a name="138">138</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> output and raise an error. An error will be raised if the PDFPages values do
</td>
</tr>
<tr>
<td class="h" >
<a name="139">139</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> not correspond to any pages.
</td>
</tr>
<tr>
<td class="h" >
<a name="140">140</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="141">141</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =cut
</td>
</tr>
<tr>
<td class="h" >
<a name="142">142</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="143">143</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub getPDFExtract{
</td>
</tr>
<tr>
<td class="h" >
<a name="144">144</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#144-1">
0
</a>
</td>
<td class="c3" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#144-1">
1
</a>
</td>
<td >
</td>
<td class="s"> &setEnv(@_);
</td>
</tr>
<tr>
<td class="h" >
<a name="145">145</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> &getDoc;
</td>
</tr>
<tr>
<td class="h" >
<a name="146">146</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#146-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $vars{"PDFExtract"} ? $vars{"PDFExtract"} : undef;
</td>
</tr>
<tr>
<td class="h" >
<a name="147">147</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="148">148</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="149">149</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =head2 savePDFExtract
</td>
</tr>
<tr>
<td class="h" >
<a name="150">150</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="151">151</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> This method saves its output to the directory defined for PDFCache. (see PDFCache)
</td>
</tr>
<tr>
<td class="h" >
<a name="152">152</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> If PDFSaveAs is unset the new PDF's filename will be an amalgam of the original filename, the
</td>
</tr>
<tr>
<td class="h" >
<a name="153">153</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> requested page numbers and the .pdf file type suffix. If more than one page is extracted into a new PDF
</td>
</tr>
<tr>
<td class="h" >
<a name="154">154</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> the page numbers will be separated with an underscore "_" for individual pages, ".." for a range of pages.
</td>
</tr>
<tr>
<td class="h" >
<a name="155">155</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> eg. my6.pdf for a single page (page 6) and my1_3..6.pdf for a multi page PDF (pages 1, 3, 4, 5, 6)
</td>
</tr>
<tr>
<td class="h" >
<a name="156">156</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="157">157</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $pdf->savePDFExtract(PDFPages=>"1 3-6", PDFDoc=>'C:/my.pdf', PDFCache=>"C:/myCache" );
</td>
</tr>
<tr>
<td class="h" >
<a name="158">158</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="159">159</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> If there is an error then an error page will be served and savePDFExtract will return a "0".
</td>
</tr>
<tr>
<td class="h" >
<a name="160">160</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> Otherwise savePDFExtract will return "1" and the saved PDF location and file name will be "C:/myCache/my1_3..5.pdf".
</td>
</tr>
<tr>
<td class="h" >
<a name="161">161</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="162">162</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =cut
</td>
</tr>
<tr>
<td class="h" >
<a name="163">163</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="164">164</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="165">165</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub savePDFExtract{
</td>
</tr>
<tr>
<td class="h" >
<a name="166">166</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#166-1">
0
</a>
</td>
<td class="c3" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#166-1">
1
</a>
</td>
<td >
</td>
<td class="s"> &setEnv(@_);
</td>
</tr>
<tr>
<td class="h" >
<a name="167">167</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> &getDoc;
</td>
</tr>
<tr>
<td class="h" >
<a name="168">168</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> &savePdfDoc;
</td>
</tr>
<tr>
<td class="h" >
<a name="169">169</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#169-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $vars{"PDFError"} ? 0 : 1;
</td>
</tr>
<tr>
<td class="h" >
<a name="170">170</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="171">171</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="172">172</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =head2 servePDFExtract
</td>
</tr>
<tr>
<td class="h" >
<a name="173">173</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="174">174</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> This method serves its output to STDOUT with the correct header for a PDF document served on the web.
</td>
</tr>
<tr>
<td class="h" >
<a name="175">175</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="176">176</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $pdf = PDF::Extract->new(
</td>
</tr>
<tr>
<td class="h" >
<a name="177">177</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFDoc=>'C:/my.pdf',
</td>
</tr>
<tr>
<td class="h" >
<a name="178">178</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFErrorPage=>"C:/myErrorPage.html" );
</td>
</tr>
<tr>
<td class="h" >
<a name="179">179</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $pdf->servePDFExtract( PDFPages=>1);
</td>
</tr>
<tr>
<td class="h" >
<a name="180">180</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="181">181</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> If there is an error then an error page will be served and servePDFExtract will return "0".
</td>
</tr>
<tr>
<td class="h" >
<a name="182">182</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> Otherwise servePDFExtract will return "1"
</td>
</tr>
<tr>
<td class="h" >
<a name="183">183</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="184">184</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =cut
</td>
</tr>
<tr>
<td class="h" >
<a name="185">185</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="186">186</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub servePDFExtract{
</td>
</tr>
<tr>
<td class="h" >
<a name="187">187</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#187-1">
0
</a>
</td>
<td class="c3" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#187-1">
1
</a>
</td>
<td >
</td>
<td class="s"> &setEnv(@_);
</td>
</tr>
<tr>
<td class="h" >
<a name="188">188</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> &getDoc;
</td>
</tr>
<tr>
<td class="h" >
<a name="189">189</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> &uploadPDFDoc;
</td>
</tr>
<tr>
<td class="h" >
<a name="190">190</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#190-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $vars{"PDFError"} ? 0 : 1;
</td>
</tr>
<tr>
<td class="h" >
<a name="191">191</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="192">192</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="193">193</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =head2 fastServePDFExtract
</td>
</tr>
<tr>
<td class="h" >
<a name="194">194</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="195">195</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> This method serves its output to STDOUT with the correct header for a PDF document served on the web.
</td>
</tr>
<tr>
<td class="h" >
<a name="196">196</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="197">197</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> If PDFSaveAs is unset the new PDF's filename will be an amalgam of the original filename, the
</td>
</tr>
<tr>
<td class="h" >
<a name="198">198</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> requested page numbers and the .pdf file type suffix. If more than one page is extracted into a new PDF
</td>
</tr>
<tr>
<td class="h" >
<a name="199">199</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> the page numbers will be separated with an underscore "_" for individual pages, ".." for a range of pages.
</td>
</tr>
<tr>
<td class="h" >
<a name="200">200</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> eg. my6.pdf for a single page (page 6) and my1_3..6.pdf for a multi page PDF (pages 1, 3, 4, 5, 6).
</td>
</tr>
<tr>
<td class="h" >
<a name="201">201</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> If there is an error then an error page will be served and fastServePDFExtract will return "0".
</td>
</tr>
<tr>
<td class="h" >
<a name="202">202</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> fastServePDFExtract will return "1" on success.
</td>
</tr>
<tr>
<td class="h" >
<a name="203">203</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="204">204</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $pdf->setVars(
</td>
</tr>
<tr>
<td class="h" >
<a name="205">205</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFDoc=>'C:/my.pdf',
</td>
</tr>
<tr>
<td class="h" >
<a name="206">206</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFCache=>"C:/myCache",
</td>
</tr>
<tr>
<td class="h" >
<a name="207">207</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFErrorPage=>"C:/myErrorPage.html",
</td>
</tr>
<tr>
<td class="h" >
<a name="208">208</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFPages=>1);
</td>
</tr>
<tr>
<td class="h" >
<a name="209">209</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> unless ($pdf->fastServePDFExtract ) {
</td>
</tr>
<tr>
<td class="h" >
<a name="210">210</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # there was an error
</td>
</tr>
<tr>
<td class="h" >
<a name="211">211</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $error=$pdf->getVars("PDFError") ;
</td>
</tr>
<tr>
<td class="h" >
<a name="212">212</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="213">213</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="214">214</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =cut
</td>
</tr>
<tr>
<td class="h" >
<a name="215">215</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="216">216</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub fastServePDFExtract{
</td>
</tr>
<tr>
<td class="h" >
<a name="217">217</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#217-1">
0
</a>
</td>
<td class="c3" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#217-1">
1
</a>
</td>
<td >
</td>
<td class="s"> &setEnv(@_);
</td>
</tr>
<tr>
<td class="h" >
<a name="218">218</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#218-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> &redirect if -e "$vars{\"PDFCache\"}/$vars{\"PDFFilename\"} ";
</td>
</tr>
<tr>
<td class="h" >
<a name="219">219</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> &getDoc;
</td>
</tr>
<tr>
<td class="h" >
<a name="220">220</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> &savePdfDoc;
</td>
</tr>
<tr>
<td class="h" >
<a name="221">221</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> &redirect;
</td>
</tr>
<tr>
<td class="h" >
<a name="222">222</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> &uploadPDFDoc;
</td>
</tr>
<tr>
<td class="h" >
<a name="223">223</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#223-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $vars{"PDFError"} ? 0 : 1;
</td>
</tr>
<tr>
<td class="h" >
<a name="224">224</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="225">225</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="226">226</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =head2 getPDFExtractVariables
</td>
</tr>
<tr>
<td class="h" >
<a name="227">227</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="228">228</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> Get any of the public variables using a list of the variables to get
</td>
</tr>
<tr>
<td class="h" >
<a name="229">229</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="230">230</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> ($error,$found)=$pdf->getPDFExtractVariables( "PDFError", "PDFPagesFound");
</td>
</tr>
<tr>
<td class="h" >
<a name="231">231</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="232">232</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> This method returns an an array of variables corresponding to the named variables passed in as arguments.
</td>
</tr>
<tr>
<td class="h" >
<a name="233">233</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> If a variable is undefined then its returned value will be undefined.
</td>
</tr>
<tr>
<td class="h" >
<a name="234">234</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="235">235</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =cut
</td>
</tr>
<tr>
<td class="h" >
<a name="236">236</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="237">237</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub getPDFExtractVariables {
</td>
</tr>
<tr>
<td class="h" >
<a name="238">238</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#238-1">
0
</a>
</td>
<td class="c3" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#238-1">
1
</a>
</td>
<td >
</td>
<td class="s"> my @var;
</td>
</tr>
<tr>
<td class="h" >
<a name="239">239</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $i;
</td>
</tr>
<tr>
<td class="h" >
<a name="240">240</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> shift;
</td>
</tr>
<tr>
<td class="h" >
<a name="241">241</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> foreach my $key (@_) {
</td>
</tr>
<tr>
<td class="h" >
<a name="242">242</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $var[$i++]=$vars{$key};
</td>
</tr>
<tr>
<td class="h" >
<a name="243">243</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="244">244</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> @var;
</td>
</tr>
<tr>
<td class="h" >
<a name="245">245</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="246">246</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="247">247</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =head2 getVars
</td>
</tr>
<tr>
<td class="h" >
<a name="248">248</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="249">249</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> This methos is an alias for getPDFExtractVariables. Get any of the public variables using a list of the variables to get
</td>
</tr>
<tr>
<td class="h" >
<a name="250">250</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="251">251</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> @vars=$pdf->getVars( @varNames );
</td>
</tr>
<tr>
<td class="h" >
<a name="252">252</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="253">253</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> This method returns an an array of variables corresponding to the named variables passed in as arguments.
</td>
</tr>
<tr>
<td class="h" >
<a name="254">254</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> If a variable is undefined then its returned value will be undefined.
</td>
</tr>
<tr>
<td class="h" >
<a name="255">255</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="256">256</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =cut
</td>
</tr>
<tr>
<td class="h" >
<a name="257">257</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="258">258</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub getVars {
</td>
</tr>
<tr>
<td class="h" >
<a name="259">259</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#259-1">
0
</a>
</td>
<td class="c3" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#259-1">
1
</a>
</td>
<td >
</td>
<td class="s"> &getPDFExtractVariables(@_);
</td>
</tr>
<tr>
<td class="h" >
<a name="260">260</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="261">261</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="262">262</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =head2 setPDFExtractVariables
</td>
</tr>
<tr>
<td class="h" >
<a name="263">263</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="264">264</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> Set any of the public variables using a hash of the variables and their values.
</td>
</tr>
<tr>
<td class="h" >
<a name="265">265</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="266">266</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> ($doc,$pages)=$pdf->setPDFExtractVariables(PDFDoc=>'C:/my.pdf', PDFPages=>1);
</td>
</tr>
<tr>
<td class="h" >
<a name="267">267</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="268">268</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> This method sets the variables specified in the argument hash.
</td>
</tr>
<tr>
<td class="h" >
<a name="269">269</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> They return an array of the new values set.
</td>
</tr>
<tr>
<td class="h" >
<a name="270">270</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="271">271</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =cut
</td>
</tr>
<tr>
<td class="h" >
<a name="272">272</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="273">273</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub setPDFExtractVariables {
</td>
</tr>
<tr>
<td class="h" >
<a name="274">274</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#274-1">
0
</a>
</td>
<td class="c3" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#274-1">
1
</a>
</td>
<td >
</td>
<td class="s"> &setEnv( @_ );
</td>
</tr>
<tr>
<td class="h" >
<a name="275">275</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> shift;
</td>
</tr>
<tr>
<td class="h" >
<a name="276">276</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my %var=@_;
</td>
</tr>
<tr>
<td class="h" >
<a name="277">277</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> &getVars( undef, keys %var);
</td>
</tr>
<tr>
<td class="h" >
<a name="278">278</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="279">279</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="280">280</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =head2 setVars
</td>
</tr>
<tr>
<td class="h" >
<a name="281">281</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="282">282</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> This methos is an alias for setPDFExtractVariables. Set any of the public variables using a hash of the variables and their values.
</td>
</tr>
<tr>
<td class="h" >
<a name="283">283</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="284">284</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> @vars=$pdf->setVars( %vars );
</td>
</tr>
<tr>
<td class="h" >
<a name="285">285</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="286">286</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> This method sets the variables specified in the argument hash.
</td>
</tr>
<tr>
<td class="h" >
<a name="287">287</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> They return an array of the new values set.
</td>
</tr>
<tr>
<td class="h" >
<a name="288">288</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="289">289</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =cut
</td>
</tr>
<tr>
<td class="h" >
<a name="290">290</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="291">291</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub setVars {
</td>
</tr>
<tr>
<td class="h" >
<a name="292">292</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#292-1">
0
</a>
</td>
<td class="c3" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#292-1">
1
</a>
</td>
<td >
</td>
<td class="s"> &setPDFExtractVariables(@_);
</td>
</tr>
<tr>
<td class="h" >
<a name="293">293</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="294">294</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="295">295</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =head1 VARIABLES
</td>
</tr>
<tr>
<td class="h" >
<a name="296">296</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="297">297</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =head2 PDFDoc
</td>
</tr>
<tr>
<td class="h" >
<a name="298">298</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> (set and get)
</td>
</tr>
<tr>
<td class="h" >
<a name="299">299</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="300">300</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $file=$pdf->getVars("PDFDoc");
</td>
</tr>
<tr>
<td class="h" >
<a name="301">301</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="302">302</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> This variable contains the path to the last original PDF document accessed by
</td>
</tr>
<tr>
<td class="h" >
<a name="303">303</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> getPDFExtract, savePDFExtract, servePDFExtract and fastServePDFExtract.
</td>
</tr>
<tr>
<td class="h" >
<a name="304">304</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFDoc will be an empty string if there was an error.
</td>
</tr>
<tr>
<td class="h" >
<a name="305">305</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="306">306</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =head2 PDFPages
</td>
</tr>
<tr>
<td class="h" >
<a name="307">307</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> (set and get)
</td>
</tr>
<tr>
<td class="h" >
<a name="308">308</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="309">309</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $pages=$pdf->setVars( PDFPages =>"1 18-23");
</td>
</tr>
<tr>
<td class="h" >
<a name="310">310</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> or
</td>
</tr>
<tr>
<td class="h" >
<a name="311">311</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $pages=$pdf->getVars("PDFPages");
</td>
</tr>
<tr>
<td class="h" >
<a name="312">312</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="313">313</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> This variable contains a list of pages to extract from the original PDF document accessed by
</td>
</tr>
<tr>
<td class="h" >
<a name="314">314</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> getPDFExtract, savePDFExtract, servePDFExtract and fastServePDFExtract.
</td>
</tr>
<tr>
<td class="h" >
<a name="315">315</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> Use the join function to create a list of pages from an array.
</td>
</tr>
<tr>
<td class="h" >
<a name="316">316</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> Such a an array of pages sent from a multi select box on a web form.
</td>
</tr>
<tr>
<td class="h" >
<a name="317">317</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFPages will default to "1" if unset or there is an error processing the pages string.
</td>
</tr>
<tr>
<td class="h" >
<a name="318">318</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="319">319</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFPages => join( " ", $cgi->param( "PDFPages" )),
</td>
</tr>
<tr>
<td class="h" >
<a name="320">320</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="321">321</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =head2 PDFCache
</td>
</tr>
<tr>
<td class="h" >
<a name="322">322</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> (set and get)
</td>
</tr>
<tr>
<td class="h" >
<a name="323">323</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="324">324</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $cachePath=$pdf->setVars( PDFCache =>"C:/myCache");
</td>
</tr>
<tr>
<td class="h" >
<a name="325">325</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> or
</td>
</tr>
<tr>
<td class="h" >
<a name="326">326</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $cachePath=$pdf->getVars("PDFCache");
</td>
</tr>
<tr>
<td class="h" >
<a name="327">327</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="328">328</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> This variable, if set, should contain the FULL PATH to the PDF document cache.
</td>
</tr>
<tr>
<td class="h" >
<a name="329">329</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> This value is used by savePDFExtract and fastServePDFExtract method calls.
</td>
</tr>
<tr>
<td class="h" >
<a name="330">330</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFCache will be an empty string if there was an error in setting the value.
</td>
</tr>
<tr>
<td class="h" >
<a name="331">331</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> If PDFCache path does not exist an attempt will be made to create it recursively.
</td>
</tr>
<tr>
<td class="h" >
<a name="332">332</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> Any directories that need to be created will be created with permissions of 0x777.
</td>
</tr>
<tr>
<td class="h" >
<a name="333">333</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFCache defaults to ".", the current directory.
</td>
</tr>
<tr>
<td class="h" >
<a name="334">334</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="335">335</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =head2 PDFSaveAs
</td>
</tr>
<tr>
<td class="h" >
<a name="336">336</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> (set and get)
</td>
</tr>
<tr>
<td class="h" >
<a name="337">337</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="338">338</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $filename=$pdf->setVars( PDFSaveAs =>"myFileName");
</td>
</tr>
<tr>
<td class="h" >
<a name="339">339</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> or
</td>
</tr>
<tr>
<td class="h" >
<a name="340">340</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $filename=$pdf->getVars("PDFSaveAs");
</td>
</tr>
<tr>
<td class="h" >
<a name="341">341</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="342">342</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> If PDFSaveAs is unset the new PDF's filename will be an amalgam of the original filename, the
</td>
</tr>
<tr>
<td class="h" >
<a name="343">343</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> requested page numbers and the .pdf file type suffix. If more than one page is extracted into a new PDF
</td>
</tr>
<tr>
<td class="h" >
<a name="344">344</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> the page numbers will be separated with an underscore "_" for individual pages, ".." for a range of pages.
</td>
</tr>
<tr>
<td class="h" >
<a name="345">345</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> eg. my6.pdf for a single page (page 6) and my1_3..6.pdf for a multi page PDF (pages 1, 3, 4, 5, 6)
</td>
</tr>
<tr>
<td class="h" >
<a name="346">346</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="347">347</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> Setting PDFSaveAs to something other than "" or 0 will cause the output to be named with the content of PDFSaveAs.
</td>
</tr>
<tr>
<td class="h" >
<a name="348">348</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> The .pdf filename extension and any path informationwill be stripped from the variable if set.
</td>
</tr>
<tr>
<td class="h" >
<a name="349">349</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFFilename will contain the actual filename used for the last extracted pdf'.
</td>
</tr>
<tr>
<td class="h" >
<a name="350">350</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="351">351</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =head2 PDFErrorPage
</td>
</tr>
<tr>
<td class="h" >
<a name="352">352</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> (set and get)
</td>
</tr>
<tr>
<td class="h" >
<a name="353">353</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="354">354</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $errorPagePath=$pdf->setVars("PDFErrorPage"=>"C:/myError.html");
</td>
</tr>
<tr>
<td class="h" >
<a name="355">355</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> or
</td>
</tr>
<tr>
<td class="h" >
<a name="356">356</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $errorPagePath=$pdf->getVars("PDFErrorPage");
</td>
</tr>
<tr>
<td class="h" >
<a name="357">357</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="358">358</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFErrorPage is a text file that can be used as a template for the error page.
</td>
</tr>
<tr>
<td class="h" >
<a name="359">359</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> If the PDFErrorPage contains [PDFError], the word PDFError surrounded by square brackets,
</td>
</tr>
<tr>
<td class="h" >
<a name="360">360</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> then the error description will replace [PDFError].
</td>
</tr>
<tr>
<td class="h" >
<a name="361">361</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> Otherwise you can devise a generic error description and describe remedial actions to be taken by the viewer.
</td>
</tr>
<tr>
<td class="h" >
<a name="362">362</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="363">363</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> If this variable is not set then a default error page will be used.
</td>
</tr>
<tr>
<td class="h" >
<a name="364">364</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> The default page has a message in red at the top,
</td>
</tr>
<tr>
<td class="h" >
<a name="365">365</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> "There is system problem in processing your PDF Pages request.",
</td>
</tr>
<tr>
<td class="h" >
<a name="366">366</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> and then a description of the actual error follows underneath in black.
</td>
</tr>
<tr>
<td class="h" >
<a name="367">367</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="368">368</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =head2 PDFExtract
</td>
</tr>
<tr>
<td class="h" >
<a name="369">369</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> (get only)
</td>
</tr>
<tr>
<td class="h" >
<a name="370">370</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="371">371</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $out=$pdf->getVars("PDFExtract");
</td>
</tr>
<tr>
<td class="h" >
<a name="372">372</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="373">373</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> This variable contains the last PDF document processed by getPDFExtract, savePDFExtract, servePDFExtract and fastServePDFExtract.
</td>
</tr>
<tr>
<td class="h" >
<a name="374">374</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFExtract will be an empty string if there was an error.
</td>
</tr>
<tr>
<td class="h" >
<a name="375">375</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="376">376</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =head2 PDFPagesFound
</td>
</tr>
<tr>
<td class="h" >
<a name="377">377</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> (get only)
</td>
</tr>
<tr>
<td class="h" >
<a name="378">378</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="379">379</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $pagesFound=$pdf->getVars("PDFPagesFound");
</td>
</tr>
<tr>
<td class="h" >
<a name="380">380</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> or
</td>
</tr>
<tr>
<td class="h" >
<a name="381">381</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> @pages = split ", ", $pdf->getVars("PDFPagesFound");
</td>
</tr>
<tr>
<td class="h" >
<a name="382">382</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="383">383</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> This variable contains a comma seperated list of the page numbers that were selected and found within the original PDF document.
</td>
</tr>
<tr>
<td class="h" >
<a name="384">384</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFPagesFound will be a undefined if there was an error in finding any pages.
</td>
</tr>
<tr>
<td class="h" >
<a name="385">385</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="386">386</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =head2 PDFPageCount
</td>
</tr>
<tr>
<td class="h" >
<a name="387">387</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> (get only)
</td>
</tr>
<tr>
<td class="h" >
<a name="388">388</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="389">389</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $pageCount=$pdf->getVars("PDFPageCount");
</td>
</tr>
<tr>
<td class="h" >
<a name="390">390</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="391">391</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="392">392</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> This variable contains the number of the pages that were selected and found within the original PDF document.
</td>
</tr>
<tr>
<td class="h" >
<a name="393">393</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFPageCount will be an empty string if there was an error in finding any pages.
</td>
</tr>
<tr>
<td class="h" >
<a name="394">394</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="395">395</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =head2 PDFFileName
</td>
</tr>
<tr>
<td class="h" >
<a name="396">396</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> (get only)
</td>
</tr>
<tr>
<td class="h" >
<a name="397">397</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="398">398</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $filename=$pdf->getVars("PDFFilename");
</td>
</tr>
<tr>
<td class="h" >
<a name="399">399</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="400">400</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> This variable will contain the actual filename.
</td>
</tr>
<tr>
<td class="h" >
<a name="401">401</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> If PDFSaveAs is unset the new PDF's filename will be an amalgam of the original filename, the
</td>
</tr>
<tr>
<td class="h" >
<a name="402">402</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> requested page numbers and the .pdf file type suffix. If more than one page is extracted into a new PDF
</td>
</tr>
<tr>
<td class="h" >
<a name="403">403</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> the page numbers will be separated with an underscore "_" for individual pages, ".." for a range of pages.
</td>
</tr>
<tr>
<td class="h" >
<a name="404">404</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> eg. my6.pdf for a single page (page 6) and my1_3..6.pdf for a multi page PDF (pages 1, 3, 4, 5, 6).
</td>
</tr>
<tr>
<td class="h" >
<a name="405">405</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> If PDFSaveAs is set then PDFSaveAs will be used to construct PDFFilename.
</td>
</tr>
<tr>
<td class="h" >
<a name="406">406</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> The full path to the extracted pdf file can be obtained by -
</td>
</tr>
<tr>
<td class="h" >
<a name="407">407</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="408">408</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $fullpath = $pdf->getVars("PDFCache") ."/". $pdf->getVars("PDFFilename");
</td>
</tr>
<tr>
<td class="h" >
<a name="409">409</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> or
</td>
</tr>
<tr>
<td class="h" >
<a name="410">410</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> ($path,$filename) = $pdf->getVars("PDFCache","PDFFilename");
</td>
</tr>
<tr>
<td class="h" >
<a name="411">411</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="412">412</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =head2 PDFError
</td>
</tr>
<tr>
<td class="h" >
<a name="413">413</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> (get only)
</td>
</tr>
<tr>
<td class="h" >
<a name="414">414</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="415">415</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $error=$pdf->getVars("PDFError");
</td>
</tr>
<tr>
<td class="h" >
<a name="416">416</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="417">417</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> This variable contains a string describing the errors if any in processing the original PDF file.
</td>
</tr>
<tr>
<td class="h" >
<a name="418">418</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFError is guarenteed to be set if getPDFExtract, savePDFExtract, servePDFExtract or fastServePDFExtract fail and return a "0".
</td>
</tr>
<tr>
<td class="h" >
<a name="419">419</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFError will be an empty string if there was no error.
</td>
</tr>
<tr>
<td class="h" >
<a name="420">420</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="421">421</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =head2 PDFDebug
</td>
</tr>
<tr>
<td class="h" >
<a name="422">422</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> (set for method call duration only)
</td>
</tr>
<tr>
<td class="h" >
<a name="423">423</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="424">424</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $pdf->setVars(
</td>
</tr>
<tr>
<td class="h" >
<a name="425">425</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFDoc=>'C:\docs\pdf',
</td>
</tr>
<tr>
<td class="h" >
<a name="426">426</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFPages=>"2 6-8 ",
</td>
</tr>
<tr>
<td class="h" >
<a name="427">427</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFDebug=>1);
</td>
</tr>
<tr>
<td class="h" >
<a name="428">428</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="429">429</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> This really a directive and not a true variable. It is used to debug the setting of variables in a PDF::Extract method call.
</td>
</tr>
<tr>
<td class="h" >
<a name="430">430</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFDebug as used above will print:-
</td>
</tr>
<tr>
<td class="h" >
<a name="431">431</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="432">432</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> These variables are to be set
</td>
</tr>
<tr>
<td class="h" >
<a name="433">433</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFDoc="C:\docs\pdf/"
</td>
</tr>
<tr>
<td class="h" >
<a name="434">434</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFPages="2 6-8 "
</td>
</tr>
<tr>
<td class="h" >
<a name="435">435</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFDebug="1"
</td>
</tr>
<tr>
<td class="h" >
<a name="436">436</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> These variables have been set
</td>
</tr>
<tr>
<td class="h" >
<a name="437">437</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFCache="C:/myCache"
</td>
</tr>
<tr>
<td class="h" >
<a name="438">438</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFFilename="2_6..8_.pdf"
</td>
</tr>
<tr>
<td class="h" >
<a name="439">439</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFPagesFound=""
</td>
</tr>
<tr>
<td class="h" >
<a name="440">440</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFDoc=""
</td>
</tr>
<tr>
<td class="h" >
<a name="441">441</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFPages="2, 6, 7, 8"
</td>
</tr>
<tr>
<td class="h" >
<a name="442">442</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFPageCount=""
</td>
</tr>
<tr>
<td class="h" >
<a name="443">443</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFExtract=""
</td>
</tr>
<tr>
<td class="h" >
<a name="444">444</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> PDFError="PDF document "" not found at C:/Perl/site/lib/PDF/Extract.pm line 467"
</td>
</tr>
<tr>
<td class="h" >
<a name="445">445</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="446">446</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =cut
</td>
</tr>
<tr>
<td class="h" >
<a name="447">447</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="448">448</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="449">449</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # ----------------------------------------------------------- The Private Functions --------------------------------------------------------------
</td>
</tr>
<tr>
<td class="h" >
<a name="450">450</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="451">451</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub setEnv {
</td>
</tr>
<tr>
<td class="h" >
<a name="452">452</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#452-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#452-1">
0
</a>
</td>
<td >
</td>
<td class="s"> my (undef, %PDF)=@_;
</td>
</tr>
<tr>
<td class="h" >
<a name="453">453</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $requestedPages=0;
</td>
</tr>
<tr>
<td class="h" >
<a name="454">454</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $vars{"PDFError"}="";
</td>
</tr>
<tr>
<td class="h" >
<a name="455">455</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#455-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if ($PDF{"PDFDebug"} ) {
</td>
</tr>
<tr>
<td class="h" >
<a name="456">456</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> print "These variables are to be set\n";
</td>
</tr>
<tr>
<td class="h" >
<a name="457">457</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> foreach my $key (keys %PDF) {
</td>
</tr>
<tr>
<td class="h" >
<a name="458">458</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> print "\t$key=\"$PDF{$key}\"\n";
</td>
</tr>
<tr>
<td class="h" >
<a name="459">459</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="460">460</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="461">461</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#461-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if ($PDF{"PDFErrorPage"} ) {
</td>
</tr>
<tr>
<td class="h" >
<a name="462">462</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $vars{"PDFErrorPage"}="";
</td>
</tr>
<tr>
<td class="h" >
<a name="463">463</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#463-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if ( -f $PDF{"PDFErrorPage"} ) {
</td>
</tr>
<tr>
<td class="h" >
<a name="464">464</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#464-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if (open FILE, $PDF{"PDFErrorPage"} ) {
</td>
</tr>
<tr>
<td class="h" >
<a name="465">465</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $vars{"PDFErrorFile"} = join('', <FILE>);
</td>
</tr>
<tr>
<td class="h" >
<a name="466">466</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> close FILE;
</td>
</tr>
<tr>
<td class="h" >
<a name="467">467</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $vars{"PDFErrorPage"}=$PDF{ "PDFErrorPage"};
</td>
</tr>
<tr>
<td class="h" >
<a name="468">468</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } else {
</td>
</tr>
<tr>
<td class="h" >
<a name="469">469</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> &error( "Can't open PDF Error page template file $PDF{\"PDFErrorPage\"} to read\n",__FILE__,__LINE__);
</td>
</tr>
<tr>
<td class="h" >
<a name="470">470</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="471">471</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } else {
</td>
</tr>
<tr>
<td class="h" >
<a name="472">472</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> &error("PDF Error page template file \"$PDF{PDFErrorPage}\" not found",__FILE__,__LINE__);
</td>
</tr>
<tr>
<td class="h" >
<a name="473">473</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="474">474</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="475">475</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#475-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if ($PDF{ "PDFDoc" } ) {
</td>
</tr>
<tr>
<td class="h" >
<a name="476">476</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $vars{"PDFDoc"}="";
</td>
</tr>
<tr>
<td class="h" >
<a name="477">477</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $vars{"PDFPageCount"}=$vars{"PDFPagesFound"}=$vars{"PDFExtract"}="";
</td>
</tr>
<tr>
<td class="h" >
<a name="478">478</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $pdfFile=$filename=$CatalogPages=$Root=$object=$encryptedPdf=$trailerObject="";
</td>
</tr>
<tr>
<td class="h" >
<a name="479">479</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> @object=@obj=@pages=();
</td>
</tr>
<tr>
<td class="h" >
<a name="480">480</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> %pageObject=();
</td>
</tr>
<tr>
<td class="h" >
<a name="481">481</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#481-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $filename=$1 if $PDF{"PDFDoc"}=~/([^\\\/]+)\.pdf$/i;
</td>
</tr>
<tr>
<td class="h" >
<a name="482">482</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#482-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if ( -f $PDF{"PDFDoc"} ) {
</td>
</tr>
<tr>
<td class="h" >
<a name="483">483</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#483-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if (open FILE, $PDF{"PDFDoc"} ) {
</td>
</tr>
<tr>
<td class="h" >
<a name="484">484</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> binmode FILE;
</td>
</tr>
<tr>
<td class="h" >
<a name="485">485</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $pdfFile = join('', <FILE>);
</td>
</tr>
<tr>
<td class="h" >
<a name="486">486</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> close FILE;
</td>
</tr>
<tr>
<td class="h" >
<a name="487">487</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $vars{"PDFDoc"}=$PDF{"PDFDoc"};
</td>
</tr>
<tr>
<td class="h" >
<a name="488">488</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } else {
</td>
</tr>
<tr>
<td class="h" >
<a name="489">489</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> &error( "Can't open PDF document $PDF{\"PDFDoc\"} to read\n",__FILE__,__LINE__);
</td>
</tr>
<tr>
<td class="h" >
<a name="490">490</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="491">491</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } else {
</td>
</tr>
<tr>
<td class="h" >
<a name="492">492</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> &error(" PDF document \"$filename\" not found",__FILE__,__LINE__);
</td>
</tr>
<tr>
<td class="h" >
<a name="493">493</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="494">494</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="495">495</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#495-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if ($PDF{ "PDFPages" } ) {
</td>
</tr>
<tr>
<td class="h" >
<a name="496">496</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $vars{ "PDFPages"}="";
</td>
</tr>
<tr>
<td class="h" >
<a name="497">497</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $vars{"PDFPageCount"}=$vars{"PDFPagesFound"}=$vars{"PDFExtract"}="";
</td>
</tr>
<tr>
<td class="h" >
<a name="498">498</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $CatalogPages=$Root=$object=$encryptedPdf=$trailerObject="";
</td>
</tr>
<tr>
<td class="h" >
<a name="499">499</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> @object=@obj=@pages=();
</td>
</tr>
<tr>
<td class="h" >
<a name="500">500</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> %getPages=%pageObject=();
</td>
</tr>
<tr>
<td class="h" >
<a name="501">501</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $pages=$PDF{ "PDFPages" };
</td>
</tr>
<tr>
<td class="h" >
<a name="502">502</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $pageError=$pages;
</td>
</tr>
<tr>
<td class="h" >
<a name="503">503</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $pages=~s/\.\./-/g;
</td>
</tr>
<tr>
<td class="h" >
<a name="504">504</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $pages=~s/\.//g;
</td>
</tr>
<tr>
<td class="h" >
<a name="505">505</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $pages=~s/\-/../g;
</td>
</tr>
<tr>
<td class="h" >
<a name="506">506</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $pages=~s/ +/,/g;
</td>
</tr>
<tr>
<td class="h" >
<a name="507">507</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $pages=~s/[^\d,\.]//g; # allow only numbers to be processed
</td>
</tr>
<tr>
<td class="h" >
<a name="508">508</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#508-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $pages=1 unless $pages; # defaults to 1
</td>
</tr>
<tr>
<td class="h" >
<a name="509">509</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $fileNumber=$pages;
</td>
</tr>
<tr>
<td class="h" >
<a name="510">510</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $fileNumber=~s/,/_/g;
</td>
</tr>
<tr>
<td class="h" >
<a name="511">511</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> foreach my $page ( eval $pages ) {
</td>
</tr>
<tr>
<td class="h" >
<a name="512">512</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#512-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> next unless int $page;
</td>
</tr>
<tr>
<td class="h" >
<a name="513">513</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $getPages{int $page}=1;
</td>
</tr>
<tr>
<td class="h" >
<a name="514">514</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $requestedPages++;
</td>
</tr>
<tr>
<td class="h" >
<a name="515">515</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="516">516</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#516-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if ( $requestedPages ) {
</td>
</tr>
<tr>
<td class="h" >
<a name="517">517</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $pages="";
</td>
</tr>
<tr>
<td class="h" >
<a name="518">518</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> foreach my $page ( sort keys %getPages) {
</td>
</tr>
<tr>
<td class="h" >
<a name="519">519</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $pages.="$page, ";
</td>
</tr>
<tr>
<td class="h" >
<a name="520">520</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="521">521</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $pages=~s/, $//;
</td>
</tr>
<tr>
<td class="h" >
<a name="522">522</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $vars{ "PDFPages"}=$pages;
</td>
</tr>
<tr>
<td class="h" >
<a name="523">523</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } else {
</td>
</tr>
<tr>
<td class="h" >
<a name="524">524</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> &error("Can't get PDF Pages. No page numbers were set with '$pages' ",__FILE__,__LINE__);
</td>
</tr>
<tr>
<td class="h" >
<a name="525">525</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="526">526</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="527">527</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#527-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if ($PDF{ "PDFCache"} ) {
</td>
</tr>
<tr>
<td class="h" >
<a name="528">528</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $vars{"PDFCache"}=dir($PDF{ "PDFCache"});
</td>
</tr>
<tr>
<td class="h" >
<a name="529">529</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="530">530</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#530-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if ( defined $PDF{ "PDFSaveAs" } ) { # we also want to be able to set PDFSaveAs to nothing ("")
</td>
</tr>
<tr>
<td class="h" >
<a name="531">531</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $vars{"PDFSaveAs"} = $PDF{"PDFSaveAs"};
</td>
</tr>
<tr>
<td class="h" >
<a name="532">532</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $vars{"PDFSaveAs"}=~s/\.pdf$//i; # just want the name, not the path and not the .pdf tag
</td>
</tr>
<tr>
<td class="h" >
<a name="533">533</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $vars{"PDFSaveAs"}=~s/^.*[\/\\]//;
</td>
</tr>
<tr>
<td class="h" >
<a name="534">534</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="535">535</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#535-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--condition.html#535-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $vars{"PDFFilename"}=$vars{"PDFSaveAs"} ? $vars{"PDFSaveAs"}.".pdf" : $filename.($fileNumber||1).'.pdf'; # Reported bug 41628 - $fileNumber might not be defined. Suggested fix by Patrick Bourdon to avoid warnings
</td>
</tr>
<tr>
<td class="h" >
<a name="536">536</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="537">537</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#537-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if ( $PDF{"PDFDebug"} ) {
</td>
</tr>
<tr>
<td class="h" >
<a name="538">538</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> print "These variables have been set\n";
</td>
</tr>
<tr>
<td class="h" >
<a name="539">539</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> foreach my $key (keys %vars) {
</td>
</tr>
<tr>
<td class="h" >
<a name="540">540</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> print "\t$key=\"$vars{$key}\"\n";
</td>
</tr>
<tr>
<td class="h" >
<a name="541">541</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="542">542</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="543">543</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="544">544</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="545">545</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub dir {
</td>
</tr>
<tr>
<td class="h" >
<a name="546">546</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#546-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#546-1">
0
</a>
</td>
<td >
</td>
<td class="s"> my($path,$dir,@folders)=@_;
</td>
</tr>
<tr>
<td class="h" >
<a name="547">547</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $path=~s/\\/\//g;
</td>
</tr>
<tr>
<td class="h" >
<a name="548">548</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> (@folders)=split "/", $path;
</td>
</tr>
<tr>
<td class="h" >
<a name="549">549</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> foreach my $folder (@folders) {
</td>
</tr>
<tr>
<td class="h" >
<a name="550">550</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#550-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $dir.= $folder=~/:/ ? $folder : "/$folder";
</td>
</tr>
<tr>
<td class="h" >
<a name="551">551</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#551-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> next if $folder=~/:/;
</td>
</tr>
<tr>
<td class="h" >
<a name="552">552</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#552-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> mkdir $dir, 0x777 unless -d $dir;
</td>
</tr>
<tr>
<td class="h" >
<a name="553">553</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # print "$dir\n";
</td>
</tr>
<tr>
<td class="h" >
<a name="554">554</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="555">555</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#555-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $path=~s/\//\\/g if ($^O eq "MSWin32");
</td>
</tr>
<tr>
<td class="h" >
<a name="556">556</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#556-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return &error("This Cache path \"$path\" can't be created",__FILE__,__LINE__)
</td>
</tr>
<tr>
<td class="h" >
<a name="557">557</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> unless -d $path;
</td>
</tr>
<tr>
<td class="h" >
<a name="558">558</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $path;
</td>
</tr>
<tr>
<td class="h" >
<a name="559">559</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="560">560</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="561">561</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub redirect {
</td>
</tr>
<tr>
<td class="h" >
<a name="562">562</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#562-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#562-1">
0
</a>
</td>
<td >
</td>
<td class="s"> exit print "Content-Type: text/html\n\n<META HTTP-EQUIV='refresh' content='0;url=$vars{'PDFFilename'}.pdf'>";
</td>
</tr>
<tr>
<td class="h" >
<a name="563">563</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="564">564</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="565">565</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub getDoc {
</td>
</tr>
<tr>
<td class="h" >
<a name="566">566</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#566-1">
0
</a>
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#566-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#566-1">
0
</a>
</td>
<td >
</td>
<td class="s"> return if $vars{"PDFExtract"};
</td>
</tr>
<tr>
<td class="h" >
<a name="567">567</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#567-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return &error("There is no pdf document to extract pages from",__FILE__,__LINE__) unless $pdfFile;
</td>
</tr>
<tr>
<td class="h" >
<a name="568">568</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> &getRoot;
</td>
</tr>
<tr>
<td class="h" >
<a name="569">569</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> &getPages($CatalogPages,0);
</td>
</tr>
<tr>
<td class="h" >
<a name="570">570</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#570-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return &error("There are no pages in $filename.pdf that match '".((defined $pages) ? $pages : '?')."' ",__FILE__,__LINE__) # Reported bug 41628 - $pages might not be defined. Suggested fix by Patrick Bourdon to avoid warnings
</td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#-2">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="571">571</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> unless $vars{"PDFPageCount"};
</td>
</tr>
<tr>
<td class="h" >
<a name="572">572</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> &getObj($Root,0);
</td>
</tr>
<tr>
<td class="h" >
<a name="573">573</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> &makePdfDoc;
</td>
</tr>
<tr>
<td class="h" >
<a name="574">574</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="575">575</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="576">576</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub savePdfDoc {
</td>
</tr>
<tr>
<td class="h" >
<a name="577">577</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#577-1">
0
</a>
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#577-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#577-1">
0
</a>
</td>
<td >
</td>
<td class="s"> return "" if $vars{"PDFError"};
</td>
</tr>
<tr>
<td class="h" >
<a name="578">578</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#578-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return &error("Can't open $vars{'PDFCache'}/$vars{'PDFFilename'}",__FILE__,__LINE__)
</td>
</tr>
<tr>
<td class="h" >
<a name="579">579</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> unless open FILE, ">$vars{'PDFCache'}/$vars{'PDFFilename'}";
</td>
</tr>
<tr>
<td class="h" >
<a name="580">580</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> binmode FILE;
</td>
</tr>
<tr>
<td class="h" >
<a name="581">581</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> print FILE $vars{"PDFExtract"};
</td>
</tr>
<tr>
<td class="h" >
<a name="582">582</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> close FILE;
</td>
</tr>
<tr>
<td class="h" >
<a name="583">583</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="584">584</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="585">585</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub uploadPDFDoc {
</td>
</tr>
<tr>
<td class="h" >
<a name="586">586</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#586-1">
0
</a>
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#586-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#586-1">
0
</a>
</td>
<td >
</td>
<td class="s"> return &servError("") if $vars{"PDFError"};
</td>
</tr>
<tr>
<td class="h" >
<a name="587">587</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $len=length $vars{"PDFExtract"};
</td>
</tr>
<tr>
<td class="h" >
<a name="588">588</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#588-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return &servError("PDF output is null, No output",__FILE__,__LINE__) unless $len;
</td>
</tr>
<tr>
<td class="h" >
<a name="589">589</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> print <<EOF;
</td>
</tr>
<tr>
<td class="h" >
<a name="590">590</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> Content-Disposition: inline; filename=$vars{"PDFFilename"}\r
</td>
</tr>
<tr>
<td class="h" >
<a name="591">591</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> Content-Length: $len\r
</td>
</tr>
<tr>
<td class="h" >
<a name="592">592</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> Content-Type: application/pdf\r
</td>
</tr>
<tr>
<td class="h" >
<a name="593">593</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> \r
</td>
</tr>
<tr>
<td class="h" >
<a name="594">594</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $vars{"PDFExtract"}\r
</td>
</tr>
<tr>
<td class="h" >
<a name="595">595</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> EOF
</td>
</tr>
<tr>
<td class="h" >
<a name="596">596</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> }
</td>
</tr>
<tr>
<td class="h" >
<a name="597">597</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="598">598</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> #------------------------------------ support Routines --------------------------------------------
</td>
</tr>
<tr>
<td class="h" >
<a name="599">599</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s">
</td>
</tr>
<tr>
<td class="h" >
<a name="600">600</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub servError {
</td>
</tr>
<tr>
<td class="h" >
<a name="601">601</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#601-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--subroutine.html#601-1">
0
</a>
</td>
<td >
</td>
<td class="s"> my ($error,$file,$line)=@_;
</td>
</tr>
<tr>
<td class="h" >
<a name="602">602</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#602-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> &error($error,$file,$line) if $error;
</td>
</tr>
<tr>
<td class="h" >
<a name="603">603</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-PDF-Extract-pm--branch.html#603-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if ($vars{"PDFErrorPage"}) {
</td>
</tr>
<tr>
<td class="h" >
<a name="604">604</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $error=$vars{"PDFErrorFile"};
</td>
</tr>
<tr>
<td class="h" >
<a name="605">605</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $error=~s/\[PDFError\]/$vars{"PDFError"}/sg;
</td>
</tr>
<tr>
<td class="h" >
<a name="606">606</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } else {
</td>
</tr>
<tr>
<td class="h" >
<a name="607">607</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $error="<font color=red><h2>There is system problem in processing your PDF Pages request</h2></font><xmp>ERROR: $vars{\"PDFError\"} ]]>";
|
|
608
|
|
|
|
|
|
|
}
|
|
609
|
0
|
|
|
|
|
|
print "Content-Type: text/html\n\n$error";
|
|
610
|
0
|
|
|
|
|
|
"";
|
|
611
|
|
|
|
|
|
|
}
|
|
612
|
|
|
|
|
|
|
|
|
613
|
|
|
|
|
|
|
sub error {
|
|
614
|
0
|
|
|
0
|
0
|
|
my ($error,$file,$line)=@_;
|
|
615
|
0
|
|
|
|
|
|
$vars{"PDFError"}.="$error\nat $file line $line\n";
|
|
616
|
0
|
|
|
|
|
|
"";
|
|
617
|
|
|
|
|
|
|
}
|
|
618
|
|
|
|
|
|
|
|
|
619
|
|
|
|
|
|
|
#------------------------------------ PDF Page Routines --------------------------------------------
|
|
620
|
|
|
|
|
|
|
sub getRoot {
|
|
621
|
0
|
0
|
|
0
|
0
|
|
return "" if $vars{"PDFError"};
|
|
622
|
0
|
0
|
|
|
|
|
return if $Root;
|
|
623
|
0
|
|
|
|
|
|
$pdf=$pdfFile;
|
|
624
|
0
|
0
|
|
|
|
|
my $val=$1 if $pdf=~/(trailer\s*<<.*?>>\s*)/s;
|
|
625
|
0
|
0
|
|
|
|
|
$Root=int $1 if $val=~/\/Root (\d+) 0 R/s;
|
|
626
|
0
|
|
|
|
|
|
$val=~s/\/Size \d+/\/Size __Size__/s;
|
|
627
|
0
|
|
|
|
|
|
$val=~s/\/Prev \d+//s; # delete Prev reference if its there was delelte to CRLF but croaked in 1.5
|
|
628
|
|
|
|
|
|
|
|
|
629
|
0
|
0
|
|
|
|
|
&getObj($1, $2 ) if $val=~/\/Info (\d+) (\d+) R/s;
|
|
630
|
0
|
0
|
|
|
|
|
&getObj( $encryptedPdf=$1, $2 ) if $val=~/\/Encrypt (\d+) (\d+) R/s;
|
|
631
|
0
|
|
|
|
|
|
$trailerObject=$val;
|
|
632
|
0
|
0
|
|
|
|
|
$Catalog=$1 if $pdf=~/\D($Root 0 obj.*?endobj\s*)/s;
|
|
633
|
0
|
0
|
|
|
|
|
$CatalogPages=int $1 if $Catalog=~/\/Pages (\d+) 0 R\s*/s;
|
|
634
|
0
|
|
|
|
|
|
$Catalog=~s/\/Outlines \d+ \d+ R//; # delete outlines as they won't conform to extracted pages 3.01
|
|
635
|
0
|
|
|
|
|
|
$Catalog=~s/\/PageLabels \d+ \d+ R//; # delete PageLabels as they won't conform to extracted pages 3.01
|
|
636
|
0
|
|
|
|
|
|
$Catalog=~s/\/Threads \d+ \d+ R//; # delete Threads as they won't conform to extracted pages 3.01
|
|
637
|
0
|
|
|
|
|
|
$Catalog=~s/\/StructTreeRoot \d+ \d+ R//; # delete StructTreeRoot as it won't conform to extracted pages 3.01
|
|
638
|
0
|
|
|
|
|
|
$pdf=~s/(\D)$Root 0 obj.*?endobj\s*/$1$Catalog/s;
|
|
639
|
|
|
|
|
|
|
}
|
|
640
|
|
|
|
|
|
|
|
|
641
|
|
|
|
|
|
|
sub getObj {
|
|
642
|
0
|
0
|
|
0
|
0
|
|
return "" if $vars{"PDFError"};
|
|
643
|
0
|
|
|
|
|
|
my($obj,$instnum,$gd)=@_;
|
|
644
|
0
|
0
|
|
|
|
|
unless ($obj[$obj] ) {
|
|
645
|
0
|
0
|
|
|
|
|
if ($pdf=~/\D($obj $instnum obj.*?endobj\s*)/s ) {
|
|
646
|
0
|
|
|
|
|
|
$object = $1;
|
|
647
|
|
|
|
|
|
|
# return "" if $object=~/\/GoToR/; # Don't want these link objects
|
|
648
|
0
|
|
|
|
|
|
$obj[$obj]++;
|
|
649
|
0
|
|
|
|
|
|
$object[$obj]=$object;
|
|
650
|
0
|
|
|
|
|
|
$instnum[$obj]=$instnum;
|
|
651
|
|
|
|
|
|
|
|
|
652
|
0
|
|
|
|
|
|
$object[$obj]=~s/(\/Dest \[ )(\d+)( \d.*?)/&uri($1,$2,$3)/es; # Convert page dest to uri if not present
|
|
|
0
|
|
|
|
|
|
|
|
653
|
0
|
|
|
|
|
|
$object[$obj]=~s/(\d+) (\d+) R([^GD])/&getObj($1, $2, $3)/ges; # Reported bug 33707 found 0 0 R in 0 0 0 RG generated by BUFFETTI software
|
|
|
0
|
|
|
|
|
|
|
|
654
|
|
|
|
|
|
|
# $object[$obj]=~s/(\/Dest \[ \d+)==/$1 0/s; # Don't follow this path
|
|
655
|
0
|
|
|
|
|
|
$object[$obj]=~s/\/Annots \[\s+\]\s+//s; # Delete empty Annots array
|
|
656
|
|
|
|
|
|
|
} else {
|
|
657
|
0
|
|
|
|
|
|
&error("Can't find object $obj $instnum obj ",__FILE__,__LINE__);
|
|
658
|
|
|
|
|
|
|
}
|
|
659
|
|
|
|
|
|
|
}
|
|
660
|
0
|
0
|
|
|
|
|
(defined $gd) ? "$obj 0 R$gd" : "$obj 0 R"; # Reported bugs 38579 & 41628 - $gd might not be defined. Suggested fix by Patrick Bourdon to avoid warnings
|
|
661
|
|
|
|
|
|
|
}
|
|
662
|
|
|
|
|
|
|
|
|
663
|
|
|
|
|
|
|
sub uri {
|
|
664
|
0
|
|
|
0
|
0
|
|
my($dest,$obj,$param)=@_;
|
|
665
|
0
|
0
|
|
|
|
|
return "$dest$obj$param" if $getPages{ $pageObject{$obj} }; # page is in document
|
|
666
|
|
|
|
|
|
|
#return "/A << /S /URI /URI ($web?PDFDoc%26$vars{PDFDoc}&PDFExtract%26$pageObject{$obj})>> \r"
|
|
667
|
|
|
|
|
|
|
# unless $encryptedPdf;
|
|
668
|
0
|
|
|
|
|
|
"";
|
|
669
|
|
|
|
|
|
|
}
|
|
670
|
|
|
|
|
|
|
|
|
671
|
|
|
|
|
|
|
sub getPages {
|
|
672
|
0
|
0
|
|
0
|
0
|
|
return "" if $vars{"PDFError"};
|
|
673
|
0
|
|
|
|
|
|
my($obj, $instnum)=@_;
|
|
674
|
0
|
0
|
|
|
|
|
my $val=$1 if $pdf=~/\s($obj $instnum obj.*?endobj\s*)/s;#by Stefano Capuzzimato. There can be even no space after endobj (* instead of +)
|
|
675
|
0
|
|
|
|
|
|
my $found="";
|
|
676
|
0
|
|
|
|
|
|
my $count=0;
|
|
677
|
0
|
0
|
|
|
|
|
if ($val=~/\/Kids\s*\[\s*(.*?)\]/s ) {#by Stefano Capuzzimato. You can find spaces between "Kids" and "["
|
|
678
|
0
|
|
|
|
|
|
my $kids=$1;
|
|
679
|
0
|
|
|
|
|
|
$kids=~s/\s+/ /gs;
|
|
680
|
0
|
|
|
|
|
|
foreach my $kid (split " R ", $kids) {
|
|
681
|
0
|
|
|
|
|
|
my($f,$c)=&getPages(split " ", $kid);
|
|
682
|
0
|
|
|
|
|
|
$found.=$f;
|
|
683
|
0
|
|
|
|
|
|
$count+=$c;
|
|
684
|
|
|
|
|
|
|
}
|
|
685
|
0
|
|
|
|
|
|
$pdf=~s/(\D$obj $instnum obj.*?\/Kids\s*\[).*?\]/$1$found\]/s;#by Stefano Capuzzimato. Between "Kids" and "[" there can be even no space
|
|
686
|
0
|
|
|
|
|
|
$pdf=~s/(\D$obj $instnum obj.*?\/Count )\d+/$1$count/s;
|
|
687
|
0
|
0
|
|
|
|
|
$found="$obj $instnum R " if $found;
|
|
688
|
|
|
|
|
|
|
} else {
|
|
689
|
0
|
|
|
|
|
|
$pageObject{$obj}=push @pages, $obj; # create a hash of all pages
|
|
690
|
0
|
0
|
|
|
|
|
if ( $getPages{$pageObject{$obj}} ) {
|
|
691
|
0
|
|
|
|
|
|
$found="$obj $instnum R ";
|
|
692
|
0
|
|
|
|
|
|
$count=1;
|
|
693
|
0
|
0
|
|
|
|
|
$vars{"PDFPagesFound"}.= $vars{"PDFPagesFound"} ? ", $pageObject{$obj}" : $pageObject{$obj};
|
|
694
|
0
|
|
|
|
|
|
$vars{"PDFPageCount"}++;
|
|
695
|
|
|
|
|
|
|
}
|
|
696
|
|
|
|
|
|
|
}
|
|
697
|
0
|
|
|
|
|
|
($found,$count);
|
|
698
|
|
|
|
|
|
|
}
|
|
699
|
|
|
|
|
|
|
|
|
700
|
|
|
|
|
|
|
sub makePdfDoc {
|
|
701
|
0
|
0
|
|
0
|
0
|
|
return "" if $vars{"PDFError"};
|
|
702
|
0
|
0
|
|
|
|
|
return &error("$vars{PDFDoc} is not a PDF file \n$pdf",__FILE__,__LINE__)
|
|
703
|
|
|
|
|
|
|
unless $pdf=~s/^(.*?)($CRLF+)/$2/;
|
|
704
|
0
|
|
|
|
|
|
$vars{"PDFExtract"}=$1.$2;
|
|
705
|
0
|
|
|
|
|
|
$vars{"PDFExtract"}.=$1.$2
|
|
706
|
|
|
|
|
|
|
while( $pdf=~s/^\s+(\%.*?)($CRLF+)/$2/); #include comment lines if any
|
|
707
|
0
|
|
|
|
|
|
my $xref="xxxxxxxxxx 65535 f\015\012";
|
|
708
|
0
|
|
|
|
|
|
my $objCount=1;
|
|
709
|
0
|
|
|
|
|
|
my $cnt=0;
|
|
710
|
0
|
|
|
|
|
|
for( ;$objCount<@object;$objCount++) {
|
|
711
|
0
|
0
|
|
|
|
|
if ($object[$objCount]) {
|
|
712
|
0
|
|
|
|
|
|
$xref.=sprintf("%0.10d %0.5d n\015\012",
|
|
713
|
|
|
|
|
|
|
length $vars{"PDFExtract"},
|
|
714
|
|
|
|
|
|
|
$instnum[$objCount] );
|
|
715
|
0
|
|
|
|
|
|
$vars{"PDFExtract"}.=$object[$objCount];
|
|
716
|
0
|
|
|
|
|
|
$cnt++;
|
|
717
|
|
|
|
|
|
|
}
|
|
718
|
|
|
|
|
|
|
}
|
|
719
|
0
|
0
|
|
|
|
|
return &error("$vars{PDFDoc} does not contain objects",__FILE__,__LINE__)
|
|
720
|
|
|
|
|
|
|
if $cnt==0;
|
|
721
|
0
|
|
|
|
|
|
$xref=~s/xxxxxxxxxx/0000000000/s;
|
|
722
|
0
|
|
|
|
|
|
my $startXref=length $vars{"PDFExtract"};
|
|
723
|
0
|
|
|
|
|
|
$vars{"PDFExtract"}.="xref\n0 $cnt\n$xref"; # changed \r to \n for unixish systems by Alberto Accomazzi
|
|
724
|
0
|
|
|
|
|
|
$trailerObject=~s/__Size__/$cnt/s;
|
|
725
|
0
|
|
|
|
|
|
$vars{"PDFExtract"}.="$trailerObject\nstartxref\n$startXref\n\%\%EOF\n"; # changed \r to \n for unixish systems by Alberto Accomazzi
|
|
726
|
|
|
|
|
|
|
}
|
|
727
|
|
|
|
|
|
|
|
|
728
|
|
|
|
|
|
|
=head1 NOTES
|
|
729
|
|
|
|
|
|
|
|
|
730
|
|
|
|
|
|
|
This version of PDF::Extract has been designed to produce output to the PDF Standard as defined in the PDF Reference Seventh Edition.
|
|
731
|
|
|
|
|
|
|
|
|
732
|
|
|
|
|
|
|
However some third party PDF applications require a non standard feature of PDF documents.
|
|
733
|
|
|
|
|
|
|
Namely: The sequential numbering of objects starting at zero.
|
|
734
|
|
|
|
|
|
|
|
|
735
|
|
|
|
|
|
|
PDF::Extract treats a PDF file as a flat file, for speed of processing, and consequently knows nothing of PDF objects.
|
|
736
|
|
|
|
|
|
|
Objects extracted remain exactly as they were in the original document.
|
|
737
|
|
|
|
|
|
|
These objects are not renumbered. There will be gaps in the object number sequence. This is allowed in the specification.
|
|
738
|
|
|
|
|
|
|
Only the catalog and page tree objects are altered.
|
|
739
|
|
|
|
|
|
|
|
|
740
|
|
|
|
|
|
|
See the web site if you need information how to make PDF documents comply with what your third party PDF application expects.
|
|
741
|
|
|
|
|
|
|
|
|
742
|
|
|
|
|
|
|
=head1 BUGS
|
|
743
|
|
|
|
|
|
|
|
|
744
|
|
|
|
|
|
|
There is a bug that Jon Schaeffer reported that had to do with some font resources not being found in the extracted PDF.
|
|
745
|
|
|
|
|
|
|
The source of the bug has, as yet, not been found.
|
|
746
|
|
|
|
|
|
|
If you find such a bug can you email a one page original pdf that can produce a PDF extract that has this bug.
|
|
747
|
|
|
|
|
|
|
|
|
748
|
|
|
|
|
|
|
Please report any bugs you find.
|
|
749
|
|
|
|
|
|
|
|
|
750
|
|
|
|
|
|
|
=head1 AUTHOR
|
|
751
|
|
|
|
|
|
|
|
|
752
|
|
|
|
|
|
|
Noel Sharrock Emailto:nsharrok@lgmedia.com.auE
|
|
753
|
|
|
|
|
|
|
|
|
754
|
|
|
|
|
|
|
PDF::Extract's home page http://www.lgmedia.com.au/page.aspx?ID=8
|
|
755
|
|
|
|
|
|
|
|
|
756
|
|
|
|
|
|
|
Forum for users and developers has been hacked and database no longer exists. There are some sad folk around.
|
|
757
|
|
|
|
|
|
|
|
|
758
|
|
|
|
|
|
|
=head1 SUPPORT
|
|
759
|
|
|
|
|
|
|
|
|
760
|
|
|
|
|
|
|
Much thanks to:-
|
|
761
|
|
|
|
|
|
|
|
|
762
|
|
|
|
|
|
|
Lyman Byrd for his welcome programming suggestions and editorial comments on the POD.
|
|
763
|
|
|
|
|
|
|
Michael Cox for his suggestion of PDFSaveAs and for the time he spent in testing the module.
|
|
764
|
|
|
|
|
|
|
Alberto Accomazzi for sharing his time and his knowledge of Unixish PDF voodoo magick.
|
|
765
|
|
|
|
|
|
|
Stefano Capuzzimato for correcting some stuff in the regexes he found.
|
|
766
|
|
|
|
|
|
|
Geert Theys for finding a small bug and supplying an excelent solution.
|
|
767
|
|
|
|
|
|
|
Jon Schaeffer for help with finding a solution to a bug in extracting Adobe 6+ pages.
|
|
768
|
|
|
|
|
|
|
Dario Santini for reporting a bug at http://rt.cpan.org//Ticket/Display.html?id=33707
|
|
769
|
|
|
|
|
|
|
Patrick Bourdon suggested several fixes for undefind string concatination warnings.
|
|
770
|
|
|
|
|
|
|
|
|
771
|
|
|
|
|
|
|
=head1 COPYRIGHT
|
|
772
|
|
|
|
|
|
|
|
|
773
|
|
|
|
|
|
|
Copyright (c) 2005 by Noel Sharrock. All rights reserved.
|
|
774
|
|
|
|
|
|
|
|
|
775
|
|
|
|
|
|
|
=head1 LICENSE
|
|
776
|
|
|
|
|
|
|
|
|
777
|
|
|
|
|
|
|
This package is free software; you can redistribute it and/or modify it under the same terms as Perl itself,
|
|
778
|
|
|
|
|
|
|
i.e., under the terms of the ``Artistic License'' or the ``GNU General Public License''.
|
|
779
|
|
|
|
|
|
|
|
|
780
|
|
|
|
|
|
|
The C library at the core of this Perl module can additionally be redistributed and/or modified
|
|
781
|
|
|
|
|
|
|
under the terms of the ``GNU Library General Public License''.
|
|
782
|
|
|
|
|
|
|
|
|
783
|
|
|
|
|
|
|
=head1 DISCLAIMER
|
|
784
|
|
|
|
|
|
|
|
|
785
|
|
|
|
|
|
|
This package is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
|
|
786
|
|
|
|
|
|
|
without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
787
|
|
|
|
|
|
|
|
|
788
|
|
|
|
|
|
|
See the ``GNU General Public License'' for more details.
|
|
789
|
|
|
|
|
|
|
|
|
790
|
|
|
|
|
|
|
PDF::Extract - Extracting sub PDF documents from a multipage PDF document
|
|
791
|
|
|
|
|
|
|
|
|
792
|
|
|
|
|
|
|
=cut
|
|
793
|
|
|
|
|
|
|
|
|
794
|
|
|
|
|
|
|
#------------------------------------------ End PDF Page ------------------------------------------
|
|
795
|
|
|
|
|
|
|
|
|
796
|
|
|
|
|
|
|
1;
|