Changeset 6132 for trunk/gsdl/bin/script/importfrom.pl

Timestamp:

2003-12-05T14:01:40+13:00 (20 years ago)

Author:

kjdon

Message:

importfrom now puts src docs into srcdocs instead of .orig

File:

• trunk/gsdl/bin/script/importfrom.pl (modified) (2 diffs)

trunk/gsdl/bin/script/importfrom.pl

@@ -139 +139 @@
     print $out "Getting document $doc_url\n";
 
-    `mkdir $output_dir/.orig` if (!-e "$output_dir/.orig");
+    `mkdir $output_dir/srcdocs` if (!-e "$output_dir/srcdocs");
     
-    my $wget_cmd = "wget -q -O $output_dir/.orig/$id_fname \"$doc_url\"";
+    my $wget_cmd = "wget -q -O $output_dir/srcdocs/$id_fname \"$doc_url\"";
 
     (system($wget_cmd)==0)
@@ -199 +199 @@
             my ($id_dir,$id_fname) = dir_file_split($doc_url);
 
-            $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;
+            $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;
         }
         }