Changeset 13462

Timestamp:

2006-12-08T12:07:40+13:00 (17 years ago)

Author:

mdewsnip

Message:

Added a special case to the run_script action for explode_metadata_database.pl, since it takes a file rather than a collection as the main argument.

File:

• trunk/gsdl/cgi-bin/gliserver.pl (modified) (1 diff)

trunk/gsdl/cgi-bin/gliserver.pl

@@ -696 +696 @@
     &lock_collection($gsdl_cgi, $username, $collection) unless ($script eq "mkcol.pl");
 
+    # Last argument is the collection name, except for explode_metadata_database.pl
     my $perl_args = $collection;
+    if ($script eq "explode_metadata_database.pl") {
+    # Last argument is the file to be exploded
+    my $file = $gsdl_cgi->clean_param("file");
+    if ((!defined $file) || ($file =~ m/^\s*$/)) {
+        $gsdl_cgi->generate_error("No file specified.");
+    }
+    $gsdl_cgi->delete("file");
+    $perl_args = $file;
+    }
+
     foreach my $cgi_arg_name ($gsdl_cgi->param) {
     my $cgi_arg_value = $gsdl_cgi->safe_val($gsdl_cgi->clean_param($cgi_arg_name));