Changeset 9198

Timestamp:

2005-02-25T17:13:38+13:00 (19 years ago)

Author:

kjdon

Message:

changed the dirsep to be escaped so it works on windows

File:

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

trunk/gsdl/bin/script/lucene_passes.pl

@@ -62 +62 @@
 {
     my ($full_textdir,$output_filename,$doc_xml) = @_;
-
-    $dir_sep = &util::get_dirsep();
+    $dir_sep = &util::get_os_dirsep();
 
     my $full_output_filename 
     = &util::filename_cat($full_textdir,$output_filename);
-
     my ($full_output_dir) = ($full_output_filename =~ m/^(.*$dir_sep)/x);
     &util::mk_all_dir($full_output_dir);
-
+    
     open(DOCOUT,">$full_output_filename") 
     || die "Unable to open $full_output_filename";
 
     print DOCOUT $doc_xml;
-
     close(DOCOUT);
 }
@@ -106 +103 @@
     
     if ($line =~ m/^<\/Doc>$/) {
-        # save as file
-        #save_xml_doc($full_textdir,$output_filename,$doc_xml);
         if ($mode eq "text") {
         save_xml_doc($full_textdir,$output_filename,$doc_xml);