Changeset 3522 for trunk/gsdl

Timestamp:

2002-11-11T15:17:25+13:00 (22 years ago)

Author:

jrm21

Message:

added a test to make sure that we can create the output file. Otherwise
pdftohtml prints out gibberish as the output filename in an error message.

File:

• trunk/gsdl/bin/script/pdftohtml.pl (modified) (1 diff)

trunk/gsdl/bin/script/pdftohtml.pl

@@ -75 +75 @@
     my $input_filename = $ARGV[0];
     my $output_filestem = $ARGV[1];
+
     $output_filestem =~ s/\.html$//i; # pdftohtml adds this suffix
+
+    # test that the directories exist to create the output file, or
+    # we should exit immediately. (File:: is included by util.pm)
+    my $output_dir =  File::Basename::dirname($output_filestem);
+    if (! -d $output_dir || ! -w $output_dir) {
+    die "pdftohtml.pl: cannot write to directory $output_dir\n";
+    }
 
     my @dir = split (/(\/|\\)/, $input_filename);