From 5805d3c2ba935ffb3d6fa0dc53ba5debe2536eda Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Tue, 12 Jan 2016 15:54:14 -0700
Subject: 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

---
 meta.pl | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'meta.pl')

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();
-- 
cgit v1.2.3