All pastes #350008 Raw Edit

SlackDeb

public text v1 · immutable
·published 2007-02-11 04:50 UTC
rendered paste body
#!/usr/bin/perl

IRC::register("Random Fortune", "0.2", "", "");
IRC::print "Loading Random Fortune script by SlackDeb";
IRC::add_command_handler("fortune","accion");

sub accion
{
    my $random = `fortune`;
    IRC::command("/me RandomFortune: ". $random ." ");
    return 1;
}