- Timestamp:
- 2013-09-10T15:37:45+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/downloaders/SRWDownload.pm
r17230 r28250 127 127 $host =~ s/http:\/\///; 128 128 $strOutputDir =~ s/"//g; #" 129 my $strOutputFile = & util::filename_cat($strOutputDir,$host,"$strFileName.xml");129 my $strOutputFile = &FileUtils::filenameConcatenate($strOutputDir,$host,"$strFileName.xml"); 130 130 131 131 # prepare subdirectory for record (if needed) 132 132 133 133 my ($strSubDirPath,$unused) = $self->dirFileSplit($strOutputFile); 134 & util::mk_all_dir($strSubDirPath);134 &FileUtils::makeAllDirectories($strSubDirPath); 135 135 136 136 print STDERR "Saving records to \"$strOutputFile\"\n";
Note:
See TracChangeset
for help on using the changeset viewer.