Changeset 5295 for trunk/gsdl

Timestamp:

2003-08-27T15:03:33+12:00 (21 years ago)

Author:

mdewsnip

Message:

Added one tiny little option to help the GLI out with monitoring the progress of importing.

File:

• trunk/gsdl/perllib/plugins/RecPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/RecPlug.pm

@@ -146 +146 @@
     if (!parsargv::parse(\@_,
              q^use_metadata_files^, \$self->{'use_metadata_files'},
+             q^show_progress^, \$self->{'show_progress'}, # Undocumented (for GLI)
              "allow_extra_options")) {
     print STDERR "\nRecPlug uses an incorrect option.\n";
@@ -307 +308 @@
     # Recursively read each $subfile
     print $outhandle "RecPlug recurring: $subfile\n" if ($verbosity > 2);
+    print $outhandle "RecPlug - $subfile\n" if ($self->{'show_progress'});
+
     $count += &plugin::read ($pluginfo, $base_dir, 
                  &util::filename_cat($file, $subfile),