Changeset 135 for trunk/gsdl/perllib/util.pm

Timestamp:

1999-02-02T22:59:06+13:00 (25 years ago)

Author:

rjmcnab

Message:

Used GSDLCOLLECTDIR which is now defined in util.pm.

File:

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

trunk/gsdl/perllib/util.pm

@@ -362 +362 @@
 
 
+# will return the collection name if successful, "" otherwise
+sub use_collection {
+    my ($collection) = @_;
+
+    # get and check the collection
+    if (!defined($collection) || $collection eq "") {
+    if (defined $ENV{'GSDLCOLLECTION'}) {
+        $collection = $ENV{'GSDLCOLLECTION'};
+    } else {
+        print STDERR "No collection specified\n";
+        return "";
+    }
+    }
+    
+    if ($collection eq "modelcol") {
+    print STDERR "You can't use modelcol.\n";
+    return "";
+    }
+
+    # make sure the environment variables GSDLCOLLECTION and GSDLCOLLECTDIR
+    # are defined
+    $ENV{'GSDLCOLLECTION'} = $collection unless defined $ENV{'GSDLCOLLECTION'};
+    $ENV{'GSDLCOLLECTDIR'} = "$ENV{'GSDLHOME'}/collect/$collection";
+
+    # make sure this collection exists
+    if (!-e $ENV{'GSDLCOLLECTDIR'}) {
+    print STDERR "Invalid collection ($collection).\n";
+    return "";
+    }
+
+    # everything is ready to go
+    return $collection;
+}
+
 1;