Changeset 11348 for trunk/gsdl/bin/script/explode_metadata_database.pl

Timestamp:

2006-03-13T15:48:44+13:00 (18 years ago)

Author:

mdewsnip

Message:

Now only tries to obtain documents locally if the values (formed by -document_prefix, -document_field and -document_suffix) contain path information.

File:

• trunk/gsdl/bin/script/explode_metadata_database.pl (modified) (2 diffs)

trunk/gsdl/bin/script/explode_metadata_database.pl

@@ -341 +341 @@
     $wget_options .= " --timestamping";  # Only re-download files if they're newer
     `wget $wget_options $document_file_full --output-document $local_document_file`;
+
+    # Check the document was obtained successfully
+    if (!-e $local_document_file) {
+        print STDERR "WARNING: Could not obtain document file $document_file_full\n";
+    }
     }
     # Document specified is on the disk
@@ -349 +354 @@
     $local_document_file = &util::filename_cat($documents_directory, $document_file_name);
 
-    &util::cp($document_file_full, $documents_directory);
-    }
-
-    # Check the document was obtained successfully
+    # Only bother trying to copy the file if it contained some path information
+    if ($document_file_full ne $document_file_name) {
+        &util::cp($document_file_full, $documents_directory);
+
+        # Check the document was obtained successfully
+        if (!-e $local_document_file) {
+        print STDERR "WARNING: Could not obtain document file $document_file_full\n";
+        }
+    }
+    }
+
+    # If the document wasn't obtained successfully, create a .nul file for it
     if (!-e $local_document_file) {
-    print STDERR "WARNING: Could not obtain document file $document_file_full\n";
-
     $document_file_name .= ".nul";
     open(NULL_FILE, ">$local_document_file.nul");