aboutsummaryrefslogtreecommitdiff
path: root/idalius.pl
diff options
context:
space:
mode:
authorDavid Phillips <david@sighup.nz>2018-04-10 15:20:24 +1200
committerDavid Phillips <david@sighup.nz>2018-04-10 15:20:24 +1200
commitcd1fc57841deab0e9b8bcfad49d527c6b263534c (patch)
tree83bc8874a4b6970e0850f9aaca3a8c801bce293c /idalius.pl
parentbb1808b1ef92af9a14a073f2e14973ac132b7e7e (diff)
downloadidalius-cd1fc57841deab0e9b8bcfad49d527c6b263534c.tar.xz
Correct capitalisation on module names
Diffstat (limited to 'idalius.pl')
-rwxr-xr-xidalius.pl15
1 files changed, 7 insertions, 8 deletions
diff --git a/idalius.pl b/idalius.pl
index 0e01e32..89b74ca 100755
--- a/idalius.pl
+++ b/idalius.pl
@@ -9,7 +9,7 @@ use POE::Component::IRC;
use POE::Component::IRC::Plugin::NickServID;
use config_file;
use IRC::Utils qw(strip_color strip_formatting);
-use Module::Pluggable search_path => "plugin", instantiate => 'configure';
+use Module::Pluggable search_path => "Plugin", instantiate => 'configure';
my $config_file = "bot.conf";
my %config = config_file::parse_config($config_file);
@@ -69,11 +69,16 @@ drop_priv();
$poe_kernel->run();
+sub log_info {
+ # FIXME direct to a log file instead of stdout
+ my $stamp = strftime("%Y-%m-%d %H:%M:%S %z", localtime);
+ print "$stamp | @_\n";
+}
# Register a command name to a certain sub
sub register_command {
my ($command, $action) = @_;
- print ("registering $command to $action\n");
+ log_info "Registering command: $command";
$commands{$command} = $action;
}
@@ -100,12 +105,6 @@ sub drop_priv {
setuid($config{uid}) or die "Failed to setuid: $!\n";
}
-sub log_info {
- # FIXME direct to a log file instead of stdout
- my $stamp = strftime("%Y-%m-%d %H:%M:%S %z", localtime);
- print "$stamp | @_\n";
-}
-
# Add a strike against a nick for module flood protection
# This differs from antiflood.pm in that it is used only for when users have
# triggered a response from the bot.