Changeset 1812

Timestamp:

2000-12-19T16:52:58+13:00 (23 years ago)

Author:

sjboddie

Message:

ZIPPlug is now disabled under windows

File:

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

trunk/gsdl/perllib/plugins/ZIPPlug.pm

@@ -41 +41 @@
 # tar (for tar) 
 
+# ZIPPlug is currently disabled on windows as we can't expect any of the
+# above utilities to be present on that OS. We should probably provide
+# binaries with Greenstone some day.
+
 package ZIPPlug;
 
@@ -74 +78 @@
     my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs) = @_;
     my $outhandle = $self->{'outhandle'};
+
+    # disabled on windows
+    return undef if ($ENV{'GSDLOS'} =~ /^windows$/i);
 
     if ($file =~ /\.(gz|tgz|z|taz|bz|zip|jar|tar)$/i) {