Changeset 14179 for gsdl/trunk/perllib/downloaders/OAIDownload.pm

Timestamp:

2007-06-14T13:25:09+12:00 (17 years ago)

Author:

xiao

Message:

The directory arguments of wget command need to be quoted to work properly on Windows OS

File:

• gsdl/trunk/perllib/downloaders/OAIDownload.pm (modified) (2 diffs)

gsdl/trunk/perllib/downloaders/OAIDownload.pm

@@ -247 +247 @@
         my $strFullDocFilePath = &util::filename_cat($strSoureDirPath,$strDocFile);
         
-        my $wget_cmd = $strWgetOptions." -q -O $strFullDocFilePath \"$strDocURL\"";
+        my $wget_cmd = $strWgetOptions." -q -O \"$strFullDocFilePath\" \"$strDocURL\"";
 
         my $strResponse =  $self->useWget($wget_cmd,1);
@@ -298 +298 @@
         $host =~ s/:.*//g; 
 
-    my $strFileURL = "$strOutputDir/$host/$fileDirs[0]/$fileDirs[1].oai";
-    
+    my $midDir = join ("/",@fileDirs);
+    my $strFileURL = "$strOutputDir/$host/".$midDir.".oai";
+
     # prepare subdirectory for record (if needed)
     my ($strSubDirPath,$unused) = ("", "");