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

Timestamp:

2000-08-27T23:04:47+12:00 (24 years ago)

Author:

stefan

Message:

Lots of changes to perl building code for collectoraction

File:

• trunk/gsdl/perllib/plugin.pm (modified) (1 diff)

trunk/gsdl/perllib/plugin.pm

@@ -80 +80 @@
     my $rv = 0;
 
+    # the .kill file is a handy (if not very elegant) way of aborting 
+    # an import.pl or buildcol.pl process
+    if (-e &util::filename_cat ($ENV{'GSDLCOLLECTDIR'}, ".kill")) {
+    print $outhandle "Process killed by .kill file\n";
+    die "\n";
+    }
+    
     # pass this file by each of the plugins in turn until one
     # is found which will process it