Correct capitalisation on module names

6 files changed, 12 insertions, 13 deletions

diff --git a/plugin/antiflood.pm b/Plugin/Antiflood.pm
index a44c07c..4db7ace 100644
--- a/plugin/antiflood.pm
+++ b/Plugin/Antiflood.pm
@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 
-package plugin::antiflood;
+package Plugin::Antiflood;
 
 use strict;
 use warnings;
diff --git a/plugin/map.pm b/Plugin/Map.pm
index f8cb256..9ca8cef 100644
--- a/plugin/map.pm
+++ b/Plugin/Map.pm
@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 
-package plugin::map;
+package Plugin::Map;
 
 use strict;
 use warnings;
diff --git a/plugin/timezone.pm b/Plugin/Timezone.pm
index 8807d54..eaea907 100644
--- a/plugin/timezone.pm
+++ b/Plugin/Timezone.pm
@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 
-package plugin::timezone;
+package Plugin::Timezone;
 
 use strict;
 use warnings;
diff --git a/plugin/tittilate.pm b/Plugin/Tittilate.pm
index 4df6b07..b2c2286 100644
--- a/plugin/tittilate.pm
+++ b/Plugin/Tittilate.pm
@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 
-package plugin::tittilate;
+package Plugin::Tittilate;
 
 use strict;
 use warnings;
diff --git a/plugin/url_title.pm b/Plugin/URL_Title.pm
index 32995fd..495df8e 100644
--- a/plugin/url_title.pm
+++ b/Plugin/URL_Title.pm
@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 
-package plugin::url_title;
+package Plugin::URL_Title;
 
 use strict;
 use warnings;
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.