commit - f039763e19b82fdd2a36fde0b0c4af118211ddf4
commit + a4dd93af25d0f72543f9ae096fa2f66f5357b745
blob - /dev/null
blob + 6c7d753af46acf20d82a704d82a9f5a5c172d45b (mode 644)
--- /dev/null
+++ bin/README
@@ -0,0 +1,12 @@
+This directory contains example scripts using the IRCNOW library.  The intent
+is to provide useful tools as well as examples of how to use the library.
+
+Contributions welcome.
+
+If you don't have the IRCNOW library installed system wide, you'll need to run
+these programs from the git repo root like this:
+
+bin/cliNow.pl
+
+
+
blob - /dev/null
blob + a5adf897916a4e983103004c327023809f1eda4b (mode 755)
--- /dev/null
+++ bin/cliNow.pl
@@ -0,0 +1,39 @@
+#!/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 => 6667,
+	pass => 'secret',
+	expires => 1800,
+	networks => 'ircnow',
+	chans => '#bottest',
+	teamchans => '',
+);
+
+$irc->run();
+
blob - /dev/null
blob + c2ff41ca00091ba6e7448ef49c870e987802735f (mode 755)
--- /dev/null
+++ bin/parseznc.pl
@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+#
+
+use strict;
+use warnings;
+
+use lib qw(./lib);
+use IRCNOW::Database;
+use IRCNOW::ParseLog::Znc;
+use IRCNOW::IO qw(:DEBUG);
+$verbosity=INFO;
+my $dbase='/var/www/botnow/botnow.db';
+debug(INFO, "Loading Database $dbase");
+my $botnowDB = IRCNOW::Database->new(dbpath=>$dbase);
+
+my $znclog = IRCNOW::ParseLog::Znc->new(
+	database=>$botnowDB,
+	zncLog=>'/home/znc/home/znc/.znc/moddata/adminlog/znc.log',
+);
+
+use Data::Dumper;
+
+my $lastRecord=$znclog->dbLastRecord() || [];
+my $data = $znclog->parseLog($lastRecord->[1],$lastRecord->[3],$lastRecord->[4]);
+debug (WARNINGS, "znclog: New entries to insert: \n" . Dumper($data));
+
+if (@$data) {
+	$znclog->dbInsertRecord($data);
+}
+
+
+#print Dumper($znclog->parseLog($lastRecord->[1],$lastRecord->[3],$lastRecord->[4]));
+
+#$znclog->createTable();
+
blob - c2ff41ca00091ba6e7448ef49c870e987802735f (mode 755)
blob + /dev/null
--- parseznc.pl
+++ /dev/null
@@ -1,35 +0,0 @@
-#!/usr/bin/perl
-#
-
-use strict;
-use warnings;
-
-use lib qw(./lib);
-use IRCNOW::Database;
-use IRCNOW::ParseLog::Znc;
-use IRCNOW::IO qw(:DEBUG);
-$verbosity=INFO;
-my $dbase='/var/www/botnow/botnow.db';
-debug(INFO, "Loading Database $dbase");
-my $botnowDB = IRCNOW::Database->new(dbpath=>$dbase);
-
-my $znclog = IRCNOW::ParseLog::Znc->new(
-	database=>$botnowDB,
-	zncLog=>'/home/znc/home/znc/.znc/moddata/adminlog/znc.log',
-);
-
-use Data::Dumper;
-
-my $lastRecord=$znclog->dbLastRecord() || [];
-my $data = $znclog->parseLog($lastRecord->[1],$lastRecord->[3],$lastRecord->[4]);
-debug (WARNINGS, "znclog: New entries to insert: \n" . Dumper($data));
-
-if (@$data) {
-	$znclog->dbInsertRecord($data);
-}
-
-
-#print Dumper($znclog->parseLog($lastRecord->[1],$lastRecord->[3],$lastRecord->[4]));
-
-#$znclog->createTable();
-