Changeset 13065

Timestamp:

2006-10-10T14:05:55+13:00 (18 years ago)

Author:

shaoqun

Message:

added the host name to the downloaded oai file path

File:

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

trunk/gsdl/perllib/downloaders/OAIDownload.pm

@@ -285 +285 @@
 
         $strOutputDir  =~ s/"//g; #"
+
+        my $host =$self->{'url'}; 
   
-    my $strFileURL = "$strOutputDir/$fileDirs[0]/$fileDirs[1].oai";
+        $host =~ s/http:\/\///g;
+
+        $host =~ s/:.*//g; 
+
+    my $strFileURL = "$strOutputDir/$host/$fileDirs[0]/$fileDirs[1].oai";
     
     # prepare subdirectory for record (if needed)