BotModules/HelloWorld.bm

   1 ################################
   2 # Hello World Module           #
   3 ################################
   4
   5 package BotModules::HelloWorld;
   6 use vars qw(@ISA);
   7 @ISA = qw(BotModules);
   8 1;
   9
  10 sub Help {
  11     my $self = shift;
  12     my ($event) = @_;
  13     return {
  14         '' => 'This is the demo module that says Hello World.',
  15         'hi' => 'Requests that the bot emit a hello world string.',
  16     };
  17 }
  18
  19 sub Told {
  20     my $self = shift;
  21     my ($event, $message) = @_;
  22     if ($message =~ /^\s*hi\s*$/osi) {
  23         $self->say($event, 'Hello World!');
  24     } else {
  25         return $self->SUPER::Told(@_);
  26     }
  27     return 0; # we've dealt with it, no need to do anything else.
  28 }
  29