Changeset 31690 for main/trunk/greenstone2/perllib

Timestamp:

2017-05-18T14:40:47+12:00 (7 years ago)

Author:

kjdon

Message:

removing debug statements

File:

• main/trunk/greenstone2/perllib/plugins/DirectoryPlugin.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/plugins/DirectoryPlugin.pm

@@ -271 +271 @@
     return $directory_ok unless (defined $directory_ok && $directory_ok == 1);
 
-    print $outhandle "Global file scan checking directory: $dirname\n";
+    print $outhandle "Global file scan checking directory: $dirname\n" if ($verbosity > 2);
 
     $block_hash->{'all_files'} = {} unless defined $block_hash->{'all_files'};
@@ -436 +436 @@
     my $raw_full_filename = &FileUtils::filenameConcatenate($this_file_base_dir, $raw_file_subfile);
     if ($self->raw_file_is_blocked($block_hash, $raw_full_filename)) {
-        print STDERR "DirectoryPlugin: file $raw_full_filename was blocked for metadata_read\n";# if ($verbosity > 2);
-        print STDERR "raw file was blocked for metadata read\n";
-        print STDERR &unicode::debug_unicode_string($raw_full_filename)."\n";
+        print STDERR "DirectoryPlugin: file $raw_full_filename was blocked for metadata_read\n" if ($verbosity > 2);
         next;
     }
 
     # Recursively read each $raw_subfile
-    print $outhandle "DirectoryPlugin metadata recurring: $raw_subfile\n"; # if ($verbosity > 2);
+    print $outhandle "DirectoryPlugin metadata recurring: $raw_subfile\n" if ($verbosity > 2);
     
     &plugin::metadata_read ($pluginfo, $this_file_base_dir,
@@ -521 +519 @@
         = &FileUtils::filenameConcatenate($this_file_base_dir,$raw_file_subfile);
     my $full_unicode_file = $self->raw_filename_to_unicode($raw_full_filename);
-    print STDERR "full unicode filename $full_unicode_file\n";
-    print STDERR &unicode::debug_unicode_string($full_unicode_file)."\n";
+
     if ($self->file_is_blocked($block_hash,$full_unicode_file)) {
-        print STDERR "Actually, we have blocked the unicode version\n";
         next;
     }
     if ($self->file_is_blocked($block_hash,$raw_full_filename)) {
-        print STDERR "DirectoryPlugin: file $raw_full_filename was blocked for read\n"; # if ($verbosity > 2);
+        print STDERR "DirectoryPlugin: file $raw_full_filename was blocked for read\n"  if ($verbosity > 2);
         next;
     }