Changeset 14179

Show
Ignore:
Timestamp:
14.06.2007 13:25:09 (12 years ago)
Author:
xiao
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/downloaders/OAIDownload.pm

    r13961 r14179  
    247247        my $strFullDocFilePath = &util::filename_cat($strSoureDirPath,$strDocFile); 
    248248         
    249         my $wget_cmd = $strWgetOptions." -q -O $strFullDocFilePath \"$strDocURL\""; 
     249        my $wget_cmd = $strWgetOptions." -q -O \"$strFullDocFilePath\" \"$strDocURL\""; 
    250250 
    251251        my $strResponse =  $self->useWget($wget_cmd,1); 
     
    298298        $host =~ s/:.*//g;  
    299299 
    300     my $strFileURL = "$strOutputDir/$host/$fileDirs[0]/$fileDirs[1].oai"; 
    301      
     300    my $midDir = join ("/",@fileDirs); 
     301    my $strFileURL = "$strOutputDir/$host/".$midDir.".oai"; 
     302 
    302303    # prepare subdirectory for record (if needed) 
    303304    my ($strSubDirPath,$unused) = ("", "");