From: epg <>
Date: Tue, 27 Aug 2002 01:29:30 +0000 (+0000)
Subject: Move definition of logging constants to logging section.
X-Git-Url: https://diplodocus.org/git/minc/commitdiff_plain/3fcd946e4812c1c51d7dc7a122b1ed2ba30bc5f5?ds=sidebyside

Move definition of logging constants to logging section.
---

diff --git a/minc b/minc
index c192e59..6197d22 100755
--- a/minc
+++ b/minc
@@ -34,19 +34,6 @@ use Log::Dispatch;
 use Log::Dispatch::File;
 use POSIX qw(strftime WEXITSTATUS WIFEXITED);
 
-# debuglevels for the logger
-use constant LOG_DEBUGLEVEL     => 'info';
-use constant SCREEN_DEBUGLEVEL  => 'debug';
-
-# characters used to wrap around the id field in the log so I can more
-# easily parse the msg flow
-use constant DEBUGCHAR          => '%';
-use constant INFOCHAR           => '=';
-use constant INCOMINGCHAR       => '<';
-use constant SAVECHAR           => '>';
-use constant WARNCHAR           => 'W';
-use constant ERRORCHAR          => 'E';
-
 =head1 OPTIONS
 
 =over 4
@@ -164,6 +151,19 @@ if ($run) {
 ###############################################################################
 # Logging
 
+# debuglevels for the logger
+use constant LOG_DEBUGLEVEL     => 'info';
+use constant SCREEN_DEBUGLEVEL  => 'debug';
+
+# characters used to wrap around the id field in the log so I can more
+# easily parse the msg flow
+use constant DEBUGCHAR          => '%';
+use constant INFOCHAR           => '=';
+use constant INCOMINGCHAR       => '<';
+use constant SAVECHAR           => '>';
+use constant WARNCHAR           => 'W';
+use constant ERRORCHAR          => 'E';
+
 my $logger = new Log::Dispatch;
 $logger->add(new Log::Dispatch::File (name=>'logfile',
                                       filename=>$logfile,