Blame

Date:
Message:
Moved database related functions to IRCNOW::Database.pm Added IRCNOW::Parselog.pm as a base class for log parsers. It has stub functions for common database functions to make the code easier to view/manage at the application level.
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 7deb630f 2023-05-19 izzyb use IRCNOW::Database;

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

10 16a10af0 2023-05-17 izzyb 

11 7deb630f 2023-05-19 izzyb my $botnowDB = IRCNOW::Database->new(dbpath=>'/var/www/botnow/botnow.db');

12 7deb630f 2023-05-19 izzyb 

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

14 7deb630f 2023-05-19 izzyb 	database=>$botnowDB,

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

16 16a10af0 2023-05-17 izzyb );

17 16a10af0 2023-05-17 izzyb 

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

19 16a10af0 2023-05-17 izzyb 

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

21 7deb630f 2023-05-19 izzyb my $data = $znclog->parseLog($lastRecord->[1],$lastRecord->[3],$lastRecord->[4]);

22 7deb630f 2023-05-19 izzyb print Dumper($data);

23 16a10af0 2023-05-17 izzyb 

24 7deb630f 2023-05-19 izzyb $znclog->dbInsertRecord($data);

25 7deb630f 2023-05-19 izzyb #print Dumper($znclog->parseLog($lastRecord->[1],$lastRecord->[3],$lastRecord->[4]));

26 16a10af0 2023-05-17 izzyb 

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

28 16a10af0 2023-05-17 izzyb