Changeset 23119

Timestamp:

2010-10-12T13:58:44+13:00 (14 years ago)

Author:

kjdon

Message:

removed some print statements, and don't go into .svn folder when reading through a directory

File:

• main/trunk/greenstone2/perllib/inexport.pm (modified) (7 diffs)

main/trunk/greenstone2/perllib/inexport.pm

@@ -376 +376 @@
     my $manifest_lookup = new manifest($collectcfg->{'infodbtype'},$archivedir);
     if ($self->{'manifest'} ne "") {
-    print STDERR "parsing manifest\n";
     my $manifest_filename = $self->{'manifest'};
 
@@ -528 +527 @@
     # 1. Process delete files first
     # 
-
     my @deleted_files = keys %{$manifest_lookup->{'delete'}};
     my @full_deleted_files = ();
@@ -534 +532 @@
     # ensure all filenames are absolute
     foreach my $df (@deleted_files) {
-        #print STDERR "**delete file $df\n";
         my $full_df =
         (&util::filename_is_absolute($df)) 
@@ -559 +556 @@
     my @reindex_files = keys %{$manifest_lookup->{'reindex'}};
     my @full_reindex_files = ();
-
     # ensure all filenames are absolute
     foreach my $rf (@reindex_files) {       
@@ -580 +576 @@
     # appropriate plugin, we need to add it to block_hash reindex list
     foreach my $full_rf (@full_reindex_files) {
-        #print STDERR "***reindex file $full_rf\n";
         $block_hash->{'reindex_files'}->{$full_rf} = 1;
     }
@@ -593 +588 @@
 
     foreach my $nf (@new_files) {
-        #print STDERR "***index file $nf\n";
         # ensure filename is absolute
         my $full_nf =
@@ -1159 +1153 @@
     my $subfile = $dir[$i];
     next if ($subfile =~ m/^\.\.?$/);
+    next if ($subfile =~ /^\.svn$/);
     my $full_file = &util::filename_cat($dirname, $subfile);
     if (-d $full_file) {