Changeset 26995

Timestamp:

2013-03-05T11:01:20+13:00 (11 years ago)

Author:

jmt12

Message:

Ensuring that errors go to STDERR and other messages go to STDOUT

File:

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

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

@@ -185 +185 @@
   if (-e $server_lockfile_path)
   {
-    print "Error! TDBServer already running!\n";
-    print "Lockfile found at: " . $server_lockfile_path . "\n";
-    exit(0);
+    die("Error! TDBServer already running!\nLockfile found at: " . $server_lockfile_path);
   }
   print "All clear!\n";
@@ -196 +194 @@
   if ($result !~ /usage:\s+$tdbexe/)
   {
-    print "Error! " . $tdbexe . " not available - check path.\n";
-    exit(0);
+    die("Error! " . $tdbexe . " not available - check path.");
   }
   print "Found!\n";
@@ -222 +219 @@
   if ($pid == 0)
   {
-    print STDERR "[" . time() . ":" . $server_host . ":" . $server_port . "]\n";
+    print "[" . time() . ":" . $server_host . ":" . $server_port . "]\n";
     print " * Starting server on " . $server_host . ":" . $server_port . "\n";
     # - create server object
@@ -420 +417 @@
     if (!defined $action || $action eq '')
     {
-      #rint STDERR "Warning! Detected request without action (#" . $the_count . ") - assuming add/update.\n";
+      print STDERR "Warning! Detected request without action (#" . $the_count . ") - assuming add/update.\n";
       $action = '+';
     }