#!/usr/bin/perl
use CGI; $q=new CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
my $n=$q->param('n');
my $s=$q->param('s');
my $f=$q->upload('pdf');
my $m=$n/2;
my $i=0;
my $j=0; $j=$n/4 if($s=~/^4/); $j++ if($j&1);
my $err='';
my $out='';
$err="Die Seitenanzahl ($n) muß ein Vielfaches von 2 sein!\n" if($s==2 and $n&1);
$err="Die Seitenanzahl ($n) muß ein Vielfaches von 4 sein!\n" if($s==4 and $n&3);
while($n && $s)
{
if($s==2) { $out.=sprintf("%d,%d,%d,%d,", $n-$i,$i+1, $i+2,$n-$i-1 ); }
if($s==4) { $out.=sprintf("%d,%d,%d,%d,%d,%d,%d,%d,",$n-$i,$i+1,$n-$j,$j+1,$i+2,$n-$i-1,$j+2,$n-$j-1); }
$i+=2; $j+=2; last if($j>=$m);
}
if($s==4 and 2*$i<$m) { $out.=sprintf("%d,%d,%d,%d,%d,%d,%d,%d,",$n-$i,$i+1,1,1,$i+2,$n-$i-1,1,1); }
$out=~s/,$//;
my $selectet2=($s==2)? 'selected':'';
my $selectet4=($s==4)? 'selected':'';
if($f)
{
open TMP,'>',"/srv/www/html/pdf.pdf";
print TMP join '',<$f>;
close TMP;
qx(cd /srv/www/html/;pdfjoin --outfile pdf-joined.pdf pdf.pdf 8p-empty.pdf);
}
my $textarea='textarea';
print $q->header(-type=>"text/html").qq{
Berechnung der Seitenfolge von N Seiten, die mit 2 oder 4 Seiten/Blatt als Broschüre gedruckt werden sollen ...
$err
Ergebnis kopieren (Strg+C) und als Druck-"Bereich" einfügen (Strg+V):
Testseiten: nummerierte Seiten 1-64 in Hochformat und Querformat
}.(!$f
?qq{PDF-Datei um 8 Leerseiten erweitern:
}
:qq{ ... und PDF-Datei von hier abholen.
})
.qq{
};