Change mechanism for output file names

- Write output to current working directory
- Generate output PDF names based on meta file instead of origin PDF to
  allow for multiple stitch jobs per PDF

diff --git a/gencropped b/gencropped
index 1b99c2d108efc8388ee48b62ab824981d79634be..23af63a546fead9d7f7b6dd5d15156f6431e0d78 100755 (executable)
--- a/gencropped
+++ b/gencropped
@@ -28,5 +28,5 @@ foreach my $nr (@{$meta->{pageorder}})
     $page->cropbox($llx, $lly, $urx, $ury);
 }
 
-$cropped->saveas(basename($meta->{input}, '.pdf') . '-cropped.pdf');
+$cropped->saveas(basename($metafile, ('.pdf.stitch', '.stitch')) . '-cropped.pdf');
 

diff --git a/genmeta b/genmeta
index ee534b62ee81db6435e9362b05748bb4f4d1bf5f..c2988944566e99ab3740c79f1a9cd0242180263d 100755 (executable)
--- a/genmeta
+++ b/genmeta
@@ -2,6 +2,7 @@
 
 use strict;
 
+use File::Basename;
 use PDF::API2;
 use YAML;
 
@@ -10,7 +11,7 @@ my $infile = $ARGV[0];
 die "Please specify PDF to examine!\n" unless defined $infile;
 die "Could not open $infile!\n" unless -r $infile;
 
-my $outfile = "${infile}.stitch";
+my $outfile = basename($infile) . ".stitch";
 
 die "$outfile exists, aborting!\n" if -e $outfile;
 
@@ -22,7 +23,7 @@ my $page = $pdf->openpage(1);
 my ($llx, $lly, $urx, $ury) = $page->get_mediabox;
 
 my $meta = {
-    input => $infile,
+    input => basename($infile),
     x => (($urx - $llx)*0.1)/2,
     y => (($ury - $lly)*0.1)/2,
     width => ($urx - $llx)*0.9,

diff --git a/genpreview b/genpreview
index 6cd9b8f002f19120cae1e7ad1b32540779e26a1f..7526fe73d5f6af2fdc0d0d9eff3748e0f08b9301 100755 (executable)
--- a/genpreview
+++ b/genpreview
@@ -35,5 +35,5 @@ foreach my $nr (@{$meta->{pageorder}})
     $content->fill();
 }
 
-$outpdf->saveas(basename($meta->{input}, '.pdf') . '-preview.pdf');
+$outpdf->saveas(basename($metafile, ('.pdf.stitch','.stitch')) . '-preview.pdf');
 

diff --git a/pdfstitch b/pdfstitch
index 1794a8abd133508329d0bda637d5c11b82ddc421..0608bc87f8b5f2f9bc2efc517466a8a333434ad6 100755 (executable)
--- a/pdfstitch
+++ b/pdfstitch
@@ -51,5 +51,5 @@ foreach my $nr (@{$meta->{pageorder}})
 
 }
 
-$outpdf->saveas(basename($meta->{input}, '.pdf') . '-stitched.pdf');
+$outpdf->saveas(basename($metafile, ('.pdf.stitch','.stitch')) . '-stitched.pdf');