Commit Diff

Commit:
b02dca5598d9151da4f4e9eca6d7bf6fa2dce5fa
From:
Izzy Blacklock <izzyb@planetofnix.com>
Date:
Message:
Modified report script to use IRCNOW::IO for debug() functions
Actions:
Patch | Tree
commit - 2f251bfc0c34d9da1cb9fbb517dfec8b15a35cea
commit + b02dca5598d9151da4f4e9eca6d7bf6fa2dce5fa
blob - 663c4d7ffa12688c9b62b0d7d83cd8bc5e5980b8
blob + 1b9d3c102d84fe256286ae734552cf81aa9d564c
--- report
+++ report
@@ -1,5 +1,5 @@
-# Original author is izzyb@planetofnix.com
 #!/usr/bin/perl
+# Original author is izzyb@planetofnix.com
 #
 use strict;
 #no strict 'refs';
@@ -13,22 +13,13 @@ use OpenBSD::Unveil;
 use DBI;
 use DBD::SQLite;
 
-# setup log level constents
-use constant {
-    NONE => 0,
-    ERRORS => 1,
-    WARNINGS => 2,
-    ALL => 3,
-};
-my $verbose = ERRORS;
-sub debug {
-	my ($level, $msg) = @_;
-	if ($verbose >= $level) { print "$msg\n"; }
-}
-
 # location of local modules
-use lib './';
+use lib './lib';
+use IRCNOW::IO qw(:DEBUG);
 
+
+my $verbosity = ERRORS;
+
 # Date string to epock used in init_ip_xref
 use Date::Parse;