Changeset 25486 for gs2-extensions/tdb-edit

Timestamp:

2012-04-26T12:39:28+12:00 (12 years ago)

Author:

jmt12

Message:

Making calls to debugPrint a little cheaper when debugging disabled

File:

• gs2-extensions/tdb-edit/trunk/src/bin/script/TDBServer.pl (modified) (11 diffs)

gs2-extensions/tdb-edit/trunk/src/bin/script/TDBServer.pl

@@ -82 +82 @@
 my $collection = '';
 my $no_daemon = 0;
-my $debug = 1;
+my $debug = 0;
 my $server;
 my $server_host;
@@ -326 +326 @@
     # //unlock($msg_counter);
   }
-  &debugPrint($the_count, $tid, 'RECV', $data);
+  &debugPrint($the_count, $tid, 'RECV', $data) unless !$debug;
   # process special commands first
   if ($data =~ /^#([arq]):(.*)$/)
@@ -417 +417 @@
     my $payload = $4;
     $payload =~ s/^\s+|\s+$//g;
-    &debugPrint($the_count, $tid, 'PARSED', 'database=' . $database . ', key=' . $key . ', action=' . $action . ', payload=' . $payload);
+    &debugPrint($the_count, $tid, 'PARSED', 'database=' . $database . ', key=' . $key . ', action=' . $action . ', payload=' . $payload) unless !$debug;
     # Build path to database file
     my $tdb_path = '';
@@ -438 +438 @@
       my $record = '[' . $key . ']' . $action . $payload;
       # Open harness to TDBCLI
-      &debugPrint($the_count, $tid, 'TDBCLI', 'Opening harness');
+      &debugPrint($the_count, $tid, 'TDBCLI', 'Opening harness') unless !$debug;
       my @tdb_command = ($tdbexe, $tdb_path, '-mid ' . $the_count);
       my $buffer_to_tdb = '';
@@ -455 +455 @@
       }
       # - read any response from TDBCLI
-      &debugPrint($the_count, $tid, 'TDBCLI', 'Reading');
+      &debugPrint($the_count, $tid, 'TDBCLI', 'Reading') unless !$debug;
       while ($buffer_from_tdb !~ /-{70}/)
       {
@@ -461 +461 @@
       }
       # - explicitly tell the pipe to quit (empty key)
-      &debugPrint($the_count, $tid, 'TDBCLI', 'Closing');
+      &debugPrint($the_count, $tid, 'TDBCLI', 'Closing') unless !$debug;
       $buffer_to_tdb = "[]\n";
       while (length($buffer_to_tdb))
@@ -472 +472 @@
       chomp($result);
       # Finished with harness
-      &debugPrint($the_count, $tid, 'TDBCLI', 'Finishing harness');
+      &debugPrint($the_count, $tid, 'TDBCLI', 'Finishing harness') unless !$debug;
       finish($tdb_harness);
-      &debugPrint($the_count, $tid, 'TDBCLI', 'Complete');
+      &debugPrint($the_count, $tid, 'TDBCLI', 'Complete') unless !$debug;
     }
     # Use different TDB tools depending on arguments
@@ -493 +493 @@
         $command1 = 'tdbget "' . $tdb_path . '" "' . $key . '"';
       }
-      &debugPrint($the_count, $tid, $command_name, 'Command: ' . $command1);
+      &debugPrint($the_count, $tid, $command_name, 'Command: ' . $command1) unless !$debug;
       $result = `$command1`;
-      &debugPrint($the_count, $tid, $command_name, 'Result: ' . $result);
+      &debugPrint($the_count, $tid, $command_name, 'Result: ' . $result) unless !$debug;
       if ($result =~ /-{70}/)
       {
@@ -505 +505 @@
     {
       my $command2 = 'txt2tdb -append "' . $tdb_path . '"';
-      &debugPrint($the_count, $tid, 'TXT2TDB', 'Command: ' . $command2);
+      &debugPrint($the_count, $tid, 'TXT2TDB', 'Command: ' . $command2) unless !$debug;
       open(my $infodb_handle, '| ' . $command2) or die("Error! Failed to open pipe to TXT2TDB\n");
       print $infodb_handle '[' . $key . ']';
@@ -515 +515 @@
       close($infodb_handle);
       $result = "-"x70 . "\n";
-      &debugPrint($the_count, $tid, 'TXT2TDB', 'Result: ' . $result);
+      &debugPrint($the_count, $tid, 'TXT2TDB', 'Result: ' . $result) unless !$debug;
     }
     else
@@ -523 +523 @@
   }
   # Synchronized debug log writing
-  &debugPrint($the_count, $tid, 'SEND', $result);
+  &debugPrint($the_count, $tid, 'SEND', $result) unless !$debug;
   return $result;
 }