Blame
Date:
Tue Dec 21 08:11:28 2021 UTC
Message:
Added README to install dependencies
01
2021-12-17
jrmu
#!/usr/bin/perl
02
2021-12-17
jrmu
use strict;
03
2021-12-17
jrmu
use warnings;
04
2021-12-17
jrmu
05
2021-12-17
jrmu
package IDBot;
06
2021-12-17
jrmu
use base qw(Bot::BasicBot);
07
2021-12-17
jrmu
08
2021-12-17
jrmu
sub said {
09
2021-12-17
jrmu
my $self = shift;
10
2021-12-17
jrmu
my $arguments = shift;
11
2021-12-17
jrmu
if ($arguments->{who} =~ /^yournick$/) {
12
2021-12-17
jrmu
return "You're the boss!";
13
2021-12-17
jrmu
} else {
14
2021-12-17
jrmu
return "I don't recognize you!";
15
2021-12-17
jrmu
}
16
2021-12-17
jrmu
}
17
2021-12-17
jrmu
18
2021-12-17
jrmu
package main;
19
2021-12-17
jrmu
20
2021-12-17
jrmu
my $bot = IDBot->new(
21
2021-12-17
jrmu
server => 'irc.example.com',
22
2021-12-17
jrmu
port => '6667',
23
2021-12-17
jrmu
channels => ['#perl101'],
24
2021-12-17
jrmu
nick => 'nickname',
25
2021-12-17
jrmu
name => 'username',
26
2021-12-17
jrmu
);
27
2021-12-17
jrmu
$bot->run();
IRCNow