X-Git-Url: https://git.exim.org/exim.git/blobdiff_plain/9b3719888275859f10e5a8c6e87a92899abc0d95..9537fc00a962f7f15c66e3151ee5fcfc62cc6f3f:/doc/doc-docbook/PageLabelPDF?ds=inline diff --git a/doc/doc-docbook/PageLabelPDF b/doc/doc-docbook/PageLabelPDF index aa144e208..454d0ec4a 100755 --- a/doc/doc-docbook/PageLabelPDF +++ b/doc/doc-docbook/PageLabelPDF @@ -1,20 +1,19 @@ #! /usr/bin/perl -w -# $Cambridge: exim/doc/doc-docbook/PageLabelPDF,v 1.1 2006/02/01 11:01:01 ph10 Exp $ - # Program to add page label information to the PDF output file. I have not # found a way of automatically discovering the number of frontmatter pages -# in the document. It is therefore screwed in as 12 in the next statement. +# in the document. It is therefore taken as an argument to be inserted into the +# next statement. $add = "/PageLabels << /Nums [ 0 << /S /r >>\n" . - " 12 << /S /D >>\n" . + " $ARGV[0] << /S /D >>\n" . " ]\n" . " >>\n"; $extra = length $add; $before = 0; -while (<>) +while () { print; $before += length($_); @@ -23,13 +22,13 @@ while (<>) print $add; -while (<>) +while () { print; last if $_ =~ /^xref$/; } -while (<>) +while () { if (/^(\d{10}) (.*)/) { @@ -40,7 +39,7 @@ while (<>) elsif (/^startxref/) { print; - $_ = <>; + $_ = ; if (/^(\d+)/) { print $1 + $extra, "\n";