diff --git a/modules/Badwords.pm b/modules/Badwords.pm index 65a5d03..f994143 100644 --- a/modules/Badwords.pm +++ b/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__ diff --git a/modules/Bitly.pm b/modules/Bitly.pm index 5d5e509..37c0c46 100644 --- a/modules/Bitly.pm +++ b/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__ diff --git a/modules/Calc.pm b/modules/Calc.pm index 90c9d42..9690178 100644 --- a/modules/Calc.pm +++ b/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__ diff --git a/modules/EightBall.pm b/modules/EightBall.pm index c45e11e..3d4081b 100644 --- a/modules/EightBall.pm +++ b/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__ diff --git a/modules/FML.pm b/modules/FML.pm index bda7c7c..12068b8 100644 --- a/modules/FML.pm +++ b/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__ diff --git a/modules/HelloChan.pm b/modules/HelloChan.pm index 8de1fc9..3f808e8 100644 --- a/modules/HelloChan.pm +++ b/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 diff --git a/modules/IsItUp.pm b/modules/IsItUp.pm index 8d30e2e..e84cffe 100644 --- a/modules/IsItUp.pm +++ b/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__ diff --git a/modules/QDB.pm b/modules/QDB.pm index 938576e..ba0ebab 100644 --- a/modules/QDB.pm +++ b/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__ diff --git a/modules/SASLAuth.pm b/modules/SASLAuth.pm index 3472881..a0818d9 100644 --- a/modules/SASLAuth.pm +++ b/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__ diff --git a/modules/Weather.pm b/modules/Weather.pm index bfff816..58f3efb 100644 --- a/modules/Weather.pm +++ b/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__