Changeset 170 for trunk/gsdl/perllib

Timestamp:

1999-02-24T14:48:34+13:00 (25 years ago)

Author:

sjboddie

Message:

add verbosity option for import.pl

Location:

trunk/gsdl/perllib

Files:

• docsave.pm (modified) (1 diff)
• plugin.pm (modified) (1 diff)

trunk/gsdl/perllib/docsave.pm

@@ -15 +15 @@
 
 sub new {
-    my ($class, $collection, $archive_info) = @_;
+    my ($class, $collection, $archive_info, $verbosity) = @_;
     my $self = new docproc ();
 
     $self->{'collection'} = $collection;
     $self->{'archive_info'} = $archive_info;
+    $self->{'verbosity'} = $verbosity;
 
     # set a default for the archive directory

trunk/gsdl/perllib/plugin.pm

@@ -43 +43 @@
     }
 
-    print STDERR "WARNING - no plugin could process " . 
-    &util::filename_cat($base_dir,$file) . "\n";
+    if ($processor->{'verbosity'}) {
+    print STDERR "WARNING - no plugin could process " . 
+        &util::filename_cat($base_dir,$file) . "\n";
+    }
 }