Changeset 2755 for trunk/gsdl/perllib/plugins

Timestamp:

2001-09-26T10:43:44+12:00 (23 years ago)

Author:

jrm21

Message:

import.pl now takes an option for saving file conversion failures to a log.
By default, import.pl will use <collectdir>/etc/fail.log. Currently only
the plugins based on ConvertToPlug will do this. Not yet tested on Win9X.

Location:

trunk/gsdl/perllib/plugins

Files:

• BasPlug.pm (modified) (2 diffs)
• ConvertToPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -175 +175 @@
 sub init {
     my $self = shift (@_);
-    my ($verbosity, $outhandle) = @_;
+    my ($verbosity, $outhandle, $faillogname) = @_;
 
     # verbosity is passed through from the processor
@@ -182 +182 @@
     # as is the outhandle ...
     $self->{'outhandle'} = $outhandle if defined $outhandle;
+    $self->{'faillogname'} = $faillogname;
 
     # set process_exp and block_exp to defaults unless they were

trunk/gsdl/perllib/plugins/ConvertToPlug.pm

@@ -168 +168 @@
     print $outhandle "Converting $tailname$suffix to $convert_to format\n";
     }
+
+    my $errlog = &util::filename_cat($tmp_dirname, "err.log");
     
     # Execute the conversion command and get the type of the result,
     # making sure the converter gives us the appropriate output type
     my $output_type = lc($convert_to);
-    my $cmd = "perl -S gsConvert.pl -verbose $verbosity -output $output_type \"$tmp_filename\"";
+    my $cmd = "perl -S gsConvert.pl -verbose $verbosity -errlog \"$errlog\" -output $output_type \"$tmp_filename\"";
     $output_type = `$cmd`;
 
@@ -182 +184 @@
     if ($output_type eq "fail") {
     print $outhandle "Could not convert $tailname$suffix to $convert_to format\n";
+    if ($self->{'faillogname'} ne "" && -s "$errlog") {
+        open(SAVELOG, ">>$self->{'faillogname'}");
+        open(ERRLOG, "$errlog");
+        print SAVELOG "$tailname$suffix (converting to $convert_to) failed:\n";
+        while (<ERRLOG>) {
+        print SAVELOG "$_";
+        }
+        close ERRLOG;
+        print SAVELOG "\n";
+        close SAVELOG;
+    }
+    &util::rm("$errlog") if (-e "$errlog");
     return "";
     }