Changeset 12902
- Timestamp:
- 2006-09-28T16:01:05+12:00 (18 years ago)
- Location:
- trunk/gsdl/perllib/downloaders
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/downloaders/SRWDownload.pm
r12586 r12902 137 137 $host =~ s/http:\/\///; 138 138 $strOutputDir =~ s/"//g; #" 139 my $str FileURL = "$strOutputDir/$host/$strFileName.xml";140 139 my $strOutputFile = &util::filename_cat($strOutputDir,$host,"$strFileName.xml"); 140 141 141 # prepare subdirectory for record (if needed) 142 142 143 my ($strSubDirPath,$unused) = $self->dirFileSplit($str FileURL);143 my ($strSubDirPath,$unused) = $self->dirFileSplit($strOutputFile); 144 144 &util::mk_all_dir($strSubDirPath); 145 145 146 my $ds = &util::get_dirsep(); 147 148 print STDERR "Saving records to \"$strFileURL\"\n"; 146 print STDERR "Saving records to \"$strOutputFile\"\n"; 149 147 150 148 # save record 151 open (ZOUT,">$str FileURL")149 open (ZOUT,">$strOutputFile") 152 150 || die "Unable to save oai metadata record: $!\n"; 153 151 print ZOUT $strRecords; -
trunk/gsdl/perllib/downloaders/Z3950Download.pm
r12587 r12902 239 239 $strOutputDir =~ s/"//g; #" 240 240 241 my $strFileURL = "$strOutputDir/$self->{'host'}/$strFileName.marc"; 241 my $strOutputFile = &util::filename_cat($strOutputDir,$self->{'host'},"$strFileName.marc"); 242 # prepare subdirectory for record (if needed) 243 my ($strSubDirPath,$unused) = $self->dirFileSplit($strOutputFile); 244 245 &util::mk_all_dir($strSubDirPath); 242 246 243 # prepare subdirectory for record (if needed)244 my ($strSubDirPath,$unused) = $self->dirFileSplit($strFileURL);245 246 &util::mk_all_dir($strSubDirPath);247 248 my $ds = &util::get_dirsep();249 my $strOutputFile = &util::filename_cat($strOutputDir,$self->{'host'},"$strFileName.marc");250 251 247 print STDERR "Saving records to \"$strOutputFile\"\n"; 252 248
Note:
See TracChangeset
for help on using the changeset viewer.