All pastes #285070 Raw Edit

Stuff

public text v1 · immutable
#285070 ·published 2006-12-19 16:10 UTC
rendered paste body
package Example;

my $file = "../botcore.pm";
eval qq/use $file /;
    
use strict;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw();

&botcore::addhandler("Example", "public", "/[!@]hello/");

sub public {
  my ($nick, $chan, $text) = @_;
  if (&botcore::isop($chan, $nick)) {
    $botcore::conn->privmsg($chan, "Hello! Testing, 1, 2, 3")
  }
}

1;