[Orca-checkins] r443 - trunk/orca/orca

[blair at orcaware.com]

Author: blair at orcaware.com
Date: Mon May  2 18:51:06 2005
New Revision: 443

Modified:
   trunk/orca/orca/orca.pl.in
Log:
If -v is given on the command line, then print Orca's version
information before any other information is printed out, otherwise if
there are configuration file errors generated by Orca, then Orca's
version information is not printed, making it hard to determine what
Orca version is being used.

* orca/orca.pl.in
  (main):
    Print the Orca, RRDs, and Perl version numbers immediately upon
    program startup.


Modified: trunk/orca/orca/orca.pl.in
==============================================================================
--- trunk/orca/orca/orca.pl.in	(original)
+++ trunk/orca/orca/orca.pl.in	Mon May  2 18:51:06 2005
@@ -127,6 +127,13 @@
            'verbose+'   => \$opt_verbose) or
   Usage;
 
+if ($opt_verbose) {
+  print "Orca at ", scalar localtime, " running on:\n",
+        "    Orca version $ORCA_VERSION\n",
+        "    RRDs version $RRDs::VERSION\n",
+        "    Perl version $]\n";
+}
+
 # Currently, Orca can only daemonize itself on Unix platforms.
 if ($opt_daemon and IS_WIN32) {
   die "$0: cannot daemonize on a Windows platform.\n";
@@ -207,11 +214,6 @@
     die "$0: cannot dup stdout: $!\n";
 }
 
-if ($opt_verbose) {
-  print "Orca version $ORCA_VERSION using RRDs version $RRDs::VERSION at ",
-        scalar localtime, ".\n";
-}
-
 # Load the file state information from disk.
 load_old_state($config_global{state_file});