Added Vim modelines and Auto buildlines.

modules/Badwords.pm

@@ -73,6 +73,8 @@ sub actonbadword
 
 
 API::Std::mod_init("Badwords", "Xelhua", "1.00", "3.0.0d", __PACKAGE__);
+# vim: set ai sw=4 ts=4:
+# build: perl=5.010000
 
 __END__
 

modules/Bitly.pm

@@ -121,6 +121,8 @@ sub reverse
 
 # Start initialization.
 API::Std::mod_init("Bitly", "Xelhua", "1.00", "3.0.0d", __PACKAGE__);
+# vim: set ai sw=4 ts=4:
+# build: cpan=LWP::UserAgent,URI::Escape perl=5.010000
 
 __END__
 

modules/Calc.pm

@@ -85,6 +85,8 @@ sub calc
 
 # Start initialization.
 API::Std::mod_init("Calc", "Xelhua", "1.00", "3.0.0d", __PACKAGE__);
+# vim: set ai sw=4 ts=4:
+# build: cpan=LWP::UserAgent,URI::Escape,JSON,JSON::PP perl=5.010000
 
 __END__
 

modules/EightBall.pm

@@ -102,6 +102,8 @@ sub rigball
 
 # Start initialization.
 API::Std::mod_init("EightBall", "Xelhua", "1.00", "3.0.0d", __PACKAGE__);
+# vim: set ai sw=4 ts=4:
+# build: perl=5.010000
 
 __END__
 

modules/FML.pm

@@ -68,6 +68,8 @@ sub fml
 
 # Start initialization.
 API::Std::mod_init("FML", "Xelhua", "1.00", "3.0.0d", __PACKAGE__);
+# vim: set ai sw=4 ts=4:
+# build: cpan=LWP::UserAgent perl=5.010000
 
 __END__
 

modules/HelloChan.pm

@@ -11,7 +11,7 @@ use API::IRC qw(privmsg);
 sub _init
 {
 	# Add a hook for when we join a channel.
-	hook_add("on_ucjoin", "HelloChan", \&m_HelloChan::hello) or return 0;
+	hook_add("on_rcjoin", "HelloChan", \&m_HelloChan::hello) or return 0;
 	return 1;
 }
 
@@ -19,17 +19,17 @@ sub _init
 sub _void
 {
 	# Delete the hook.
-	hook_del("on_ucjoin", "HelloChan") or return 0;
+	hook_del("on_rcjoin", "HelloChan") or return 0;
 	return 1;
 }
 
 # Main subroutine.
 sub hello
 {
-	my (($svr, $chan)) = @_;
+	my (($svr, %src, $chan)) = @_;
 	
 	# Send a PRIVMSG.
-	privmsg($svr, $chan, "Hello channel! I am a bot!");
+	privmsg($svr, $chan, "Hello ".$src{nick});
 	
 	return 1;
 }
@@ -37,3 +37,5 @@ sub hello
 
 # Start initialization.
 API::Std::mod_init("HelloChan", "Xelhua", "1.00", "3.0.0d", __PACKAGE__);
+# vim: set ai sw=4 ts=4:
+# build: perl=5.010000

modules/IsItUp.pm

@@ -71,6 +71,8 @@ sub check
 
 # Start initialization.
 API::Std::mod_init("IsItUp", "Xelhua", "1.00", "3.0.0d", __PACKAGE__);
+# vim: set ai sw=4 ts=4:
+# build: cpan=LWP::UserAgent perl=5.010000
 
 __END__
 

modules/QDB.pm

@@ -138,6 +138,7 @@ sub cmd_qdb
 
 API::Std::mod_init('QDB', 'Xelhua', '1.00', '3.0.0d', __PACKAGE__);
 # vim: set ai sw=4 ts=4:
+# build: perl=5.010000
 
 __END__
 

modules/SASLAuth.pm

@@ -131,6 +131,8 @@ sub handle_906
 
 # Start initialization.
 API::Std::mod_init("SASLAuth", "Xelhua", "1.00", "3.0.0d", __PACKAGE__);
+# vim: set ai sw=4 ts=4:
+# build: perl=5.010000
 
 __END__
 

modules/Weather.pm

@@ -80,6 +80,8 @@ sub weather
 
 # Start initialization.
 API::Std::mod_init("Weather", "Xelhua", "1.00", "3.0.0d", __PACKAGE__);
+# vim: set ai sw=4 ts=4:
+# build: cpan=LWP::UserAgent,XML::Simple perl=5.010000
 
 __END__