Added the ability to do connection debugging in Net::IRC without doing full-blown debugging, and made use of that feature in meta.pl. Also fixed the debugging output of Net::IRC to print to STDERR regardless of what debug method is used

1 files changed, 9 insertions, 0 deletions

diff --git a/meta.pl b/meta.pl
index 99c02a1..50e0fbc 100755
--- a/meta.pl
+++ b/meta.pl
@@ -96,6 +96,9 @@ sub init {
               'pass|p=s'   => \$::pass,
               'config|c=s' => \$::cset
             );
+  if (-e "debugmode") {
+    $::debug = 1;
+  }
   if ($::cset eq '') { $::cset = 'config-default'; }
                 else { $::cset = "config-$::cset"; }
   ASM::XML->readXML();
@@ -106,6 +109,9 @@ sub init {
   $host = ${$::settings->{server}}[rand @{$::settings->{server}}];
   ASM::Util->dprint( "Connecting to $host", "startup");
   $irc->debug($::debug);
+  if (-e "debugsock") {
+    $irc->debugsock(1);
+  }
   if (!$::mysql->{disable}) {
       $::db = ASM::DB->new($::mysql->{db}, $::mysql->{host}, $::mysql->{port},
                            $::mysql->{user}, $::mysql->{pass}, $::mysql->{table},
@@ -120,6 +126,9 @@ sub init {
                          Password => $::settings->{pass},
 			 Pacing => 0 );
   $conn->debug($::debug);
+  if (-e "debugsock") {
+    $conn->debugsock(1);
+  }
   $::inspector = ASM::Inspect->new();
   $::services = ASM::Services->new();
   $::commander = ASM::Commander->new();