Changeset 17120

Timestamp:

2008-09-01T14:52:40+12:00 (16 years ago)

Author:

ak19

Message:

archivesinf_gdbm commented out until more testing under Windows has been done

File:

• gsdl/trunk/perllib/plugouts/BasPlugout.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugouts/BasPlugout.pm

@@ -404 +404 @@
     ##############################
     $self->saveas($doc_obj,$doc_dir);
-    $self->archiveinf_gdbm($doc_obj,$doc_dir); 
+##    $self->archiveinf_gdbm($doc_obj,$doc_dir); 
 
 }
@@ -668 +668 @@
 
         if (defined $collect_dir) {
-        $real_filename =~ s/^$collect_dir//;
+        my $collect_dir_re_safe = $collect_dir;
+        $collect_dir_re_safe =~ s/\\/\\\\/g;
+        $collect_dir_re_safe =~ s/\./\\./g;
+
+        $real_filename =~ s/^$collect_dir_re_safe//;
         }