42 lines
888 B
Perl
42 lines
888 B
Perl
# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
|
|
# Copyright (C) 2010-2011 Xelhua Development Group, et al.
|
|
# This program is free software; rights to this code are stated in doc/LICENSE.
|
|
package m_HelloChan;
|
|
use strict;
|
|
use warnings;
|
|
use API::Std qw(hook_add hook_del);
|
|
use API::IRC qw(privmsg);
|
|
|
|
# Initialization subroutine.
|
|
sub _init
|
|
{
|
|
# Add a hook for when we join a channel.
|
|
hook_add("on_ucjoin", "HelloChan", \&m_HelloChan::hello) or return 0;
|
|
return 1;
|
|
}
|
|
|
|
# Void subroutine.
|
|
sub _void
|
|
{
|
|
# Delete the hook.
|
|
hook_del("on_ucjoin", "HelloChan") or return 0;
|
|
return 1;
|
|
}
|
|
|
|
# Main subroutine.
|
|
sub hello
|
|
{
|
|
my (($svr, $chan)) = @_;
|
|
|
|
# Send a PRIVMSG.
|
|
privmsg($svr, $chan, "Hello channel! I am a bot!");
|
|
|
|
return 1;
|
|
}
|
|
|
|
|
|
# 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
|