Blame

Date:
Message:
Start of a library set for accessing data on ircnow network servers Current version connects to an botnow database and the parses the znc log file. It can create a database table for the znc log and read the last line from the database table. The test application parseznc.pl does a simple dump of the parsed data file. It can skip the records from the dump based on a passed record. Working to abstract some of the code into a IRCNOW::ParseLog and IRCNOW::Database library to make future log parsing tasks easier.
Actions:
History | Blob | Raw File
 1 16a10af0 2023-05-17 izzyb #!/usr/bin/perl

 2 16a10af0 2023-05-17 izzyb #

 3 16a10af0 2023-05-17 izzyb 

 4 16a10af0 2023-05-17 izzyb use strict;

 5 16a10af0 2023-05-17 izzyb use warnings;

 6 16a10af0 2023-05-17 izzyb 

 7 16a10af0 2023-05-17 izzyb use lib qw(./lib);

 8 16a10af0 2023-05-17 izzyb use IRCNOW::ParseLog::Znc;

 9 16a10af0 2023-05-17 izzyb 

10 16a10af0 2023-05-17 izzyb my $znclog = IRCNOW::ParseLog::Znc->new(

11 16a10af0 2023-05-17 izzyb 	database=>'/var/www/botnow/botnow.db',

12 16a10af0 2023-05-17 izzyb 	zncLog=>'/home/znc/home/znc/.znc/moddata/adminlog/znc.log',

13 16a10af0 2023-05-17 izzyb );

14 16a10af0 2023-05-17 izzyb 

15 16a10af0 2023-05-17 izzyb use Data::Dumper;

16 16a10af0 2023-05-17 izzyb 

17 16a10af0 2023-05-17 izzyb my $lastRecord=$znclog->dbLastRecord() || [];

18 16a10af0 2023-05-17 izzyb 

19 16a10af0 2023-05-17 izzyb print Dumper($znclog->parseLog($lastRecord->[1],$lastRecord->[3],$lastRecord->[4]));

20 16a10af0 2023-05-17 izzyb 

21 16a10af0 2023-05-17 izzyb #$znclog->createTable();

22 16a10af0 2023-05-17 izzyb