Changeset 433 for trunk/gsdl/perllib/plugins/GMLPlug.pm

Timestamp:

1999-08-04T17:23:41+12:00 (25 years ago)

Author:

sjboddie

Message:

added gzip option to import.pl

File:

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

trunk/gsdl/perllib/plugins/GMLPlug.pm

@@ -47 +47 @@
 
     # see if this is a gml book
-    return undef unless (-f $fullname && $fullname =~ /\.gml$/i);
+    return undef unless (-f $fullname && $fullname =~ /\.gml(\.gz)?$/i);
 
-    my ($parent_dir) = $fullname =~ /^(.*)\/[^\/]+.gml$/;
+    my ($parent_dir, $gz) = $fullname =~ /^(.*)\/[^\/]+.gml(\.gz)?$/i;
+
+    if (defined $gz && $gz =~ /\.gz/i) {
+    $gz = 1;
+    } else {
+    $gz = 0;
+    }
 
     # create a new document
@@ -60 +66 @@
     my $gml = "";
     my $line = "";
-    if (!open (INFILE, $fullname)) {
-    print STDERR "GMLPlug::read - couldn't read $fullname\n";
-    return undef;
+
+    if ($gz) {
+    if (!open (INFILE, "zcat $fullname |")) {
+        print STDERR "GMLPlug::read - zcat couldn't read $fullname\n";
+        return undef;
+    }
+    } else {
+    if (!open (INFILE, $fullname)) {
+        print STDERR "GMLPlug::read - couldn't read $fullname\n";
+        return undef;
+    }
     }
+
     while (defined ($line = <INFILE>)) {
     $gml .= $line;