commit - 3bc13fbbeed050a5635b42ea44aa69410ec34cf9
commit + 040156866f511f8b5b0f0ab5e6a5376f5fb72741
blob - d5ce0cde1c5086dfd065d28a2c30aeef13e5b49b
blob + 22712a6e08e33c5a16a2f3e2da507d34fff23d57
--- lib/IRCNOW/IO.pm
+++ lib/IRCNOW/IO.pm
my ($level, $msg) = @_;
if ($verbosity >= $level) { print "$msg\n"; }
}
+sub verbosity2const {
+ my $str=shift;
+ my $verbosity = {
+ NONE => 0,
+ ERRORS => 1,
+ WARNINGS => 2,
+ INFO => 3,
+ ALL => 4,
+ };
+ return $verbosity->{$str};
+}
+
#######################################################################################
# Basic file IO #
#######################################################################################