Changeset 7904 for trunk/gsdl/perllib/plugin.pm

Timestamp:

2004-08-06T16:38:44+12:00 (20 years ago)

Author:

chi

Message:

Minor changes to layout of code.

File:

• trunk/gsdl/perllib/plugin.pm (modified) (5 diffs)

trunk/gsdl/perllib/plugin.pm

@@ -83 +83 @@
     }
     $options =~ s/\$/\\\$/g;
-    
+
     eval ("\$plugobj = new \$pluginname($options)");
     die "$@" if $@;
@@ -100 +100 @@
 sub begin {
     my ($pluginfo, $base_dir, $processor, $maxdocs) = @_;
+   
 
     map { $_->begin($pluginfo, $base_dir, $processor, $maxdocs); } @$pluginfo;
@@ -106 +107 @@
 sub read {
     my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs, $gli, $aux) = @_;
+  
 
     $maxdocs = -1 unless defined $maxdocs && $maxdocs =~ /\d/;
     $gli = 0 unless defined $gli;
 
+ 
     my $rv = 0;
     my $glifile = $file;
+    
     $glifile =~ s/^[\/\\]+//; # file sometimes starts with a / so get rid of it
     # Announce to GLI that we are handling a file
     print STDERR "<File n='$glifile'>\n" if $gli;
 
+ 
     # the .kill file is a handy (if not very elegant) way of aborting 
     # an import.pl or buildcol.pl process
@@ -134 +139 @@
     $rv = $plugobj->read($pluginfo, $base_dir, $file, 
                  $metadata, $processor, $maxdocs, $gli, $aux);
-    if (defined $rv) {
+        if (defined $rv) {
         if ($rv == -1) {
-        # an error has occurred
+            # an error has occurred
         $had_error = 1;
         print STDERR "<ProcessingError n='$glifile'>\n" if $gli;
         } else {
-        return $rv;
+            return $rv;
         }
     } # else undefined - was not recognised by the plugin
     }
-    
+
     if ($had_error) {
     # was recognised but couldn't be processed
@@ -152 +157 @@
     # tell the GLI that it was not processed
     print STDERR "<NonProcessedFile n='$glifile'>\n" if $gli;
-    
+      
     $file =~ s/.*?([^\\\/]+)$/$1/;
     gsprintf($failhandle, "$file: {plugin.no_plugin_could_process_this_file}\n");