commit a4dd93af25d0f72543f9ae096fa2f66f5357b745 from: Izzy Blacklock date: Tue Aug 08 17:36:54 2023 UTC Created ./bin dir for example code with README 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(); -