Commit Diff

Commit:
c62b325b973092b8ce0cf3e11d5e273c570c3379
From:
Izzy Blacklock <izzyb@planetofnix.com>
Date:
Message:
New parser for znc tables in chat Started breaking up the irc response parser up into smaller chunks. can now parse table responses from znc *status channel. More debug messages then necessary. no useful output at this point. Parses the field header and field data into an array of arrays. Need to capture from *controlpanel and *blockuser still
Actions:
Patch | Tree
commit - b15a3128cdaa0f3f1a2013f45cb8dd71560b7cd4
commit + c62b325b973092b8ce0cf3e11d5e273c570c3379
blob - /dev/null
blob + 5de58945dcbd237991749bfa288156f3e452d889 (mode 755)
--- /dev/null
+++ bin/zncTest.pl
@@ -0,0 +1,49 @@
+#!/usr/bin/perl
+#
+
+use strict;
+use warnings;
+
+use lib qw(./lib);
+use IRCNOW::Database;
+
+use IRCNOW::IO::IRC;
+use IRCNOW::Acct;
+
+use IRCNOW::IO qw(:DEBUG);
+$verbosity=ALL;
+#my $dbase='/var/www/botnow/botnow.db';
+#debug(INFO, "Loading Database $dbase");
+#my $botnowDB = IRCNOW::Database->new(dbpath=>$dbase);
+
+use Data::Dumper;
+
+#my $acct=new IRCNOW::Acct();
+#print $acct->newpass() . "\n";
+
+my $irc = new IRCNOW::IO::IRC(
+	localnet => 'ircnow',
+	staff => 'izzyb',
+	nick => 'cliNow',
+	host => '127.0.0.1',
+	port => 1337,
+	pass => 'Secerate!pwd',
+	expires => 1800,
+	networks => 'ircnow',
+	chans => '#bottest',
+	teamchans => '',
+);
+
+
+
+$irc->{bots}->[0]->{actions} = [
+	'privmsg *status :Traffic',
+	'privmsg *status :listusers',
+	'privmsg *controlpanel :listusers',
+	'privmsg #bottest : ',
+];
+
+
+
+$irc->run();
+
blob - 8f38a942c8bcdc6e0d6284a5c170fd6e22f82e2a
blob + 419c632a0712d04cf232a732c16d45f3f4bbd529
Binary files lib/IRCNOW/IO/IRC.pm and lib/IRCNOW/IO/IRC.pm differ