Changeset 6132
- Timestamp:
- 2003-12-05T14:01:40+13:00 (20 years ago)
- Location:
- trunk/gsdl
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/bin/script/importfrom.pl
r4819 r6132 139 139 print $out "Getting document $doc_url\n"; 140 140 141 `mkdir $output_dir/ .orig` if (!-e "$output_dir/.orig");141 `mkdir $output_dir/srcdocs` if (!-e "$output_dir/srcdocs"); 142 142 143 my $wget_cmd = "wget -q -O $output_dir/ .orig/$id_fname \"$doc_url\"";143 my $wget_cmd = "wget -q -O $output_dir/srcdocs/$id_fname \"$doc_url\""; 144 144 145 145 (system($wget_cmd)==0) … … 199 199 my ($id_dir,$id_fname) = dir_file_split($doc_url); 200 200 201 $i_record =~ s/<metadata>(.*?)<(dc:)?identifier>$doc_url<\/(dc:)?identifier>(.*?)<\/metadata>/<metadata>$1<OrigURL>$doc_url<\/OrigURL>\n <identifier> .orig\/$id_fname<\/identifier>$4<\/metadata>/s;201 $i_record =~ s/<metadata>(.*?)<(dc:)?identifier>$doc_url<\/(dc:)?identifier>(.*?)<\/metadata>/<metadata>$1<OrigURL>$doc_url<\/OrigURL>\n <identifier>srcdocs\/$id_fname<\/identifier>$4<\/metadata>/s; 202 202 } 203 203 } -
trunk/gsdl/perllib/plugins/OAIPlug.pm
r5924 r6132 81 81 $filename = &util::filename_cat ($base_dir, $file) if $base_dir =~ /\w/; 82 82 83 return 0 if ((-d $filename) && ($filename =~ m/ .orig$/));83 return 0 if ((-d $filename) && ($filename =~ m/srcdocs$/)); 84 84 85 85 if ($self->{'block_exp'} ne "" && $filename =~ /$self->{'block_exp'}/) {
Note:
See TracChangeset
for help on using the changeset viewer.