1 ================================================================================
2 
3                                    Challenge
4 
5   In this challenge, we will modify our original dicebot.pl to convert it
6   into a bot that checks the person who messages it.
7 
8   Every time the owner messages the channel, it will say, "You're the boss!"
9   Every time another user messages it, it will say, "I don't recognize you!"
10 
11 ================================================================================
12 
13                               Modifying dicebot.pl
14 
15   Let's start with our original dicebot.pl. With just a few modifications, we
16   can make the bot chat in new and interactive ways.
17 
18   Let's edit the subroutine said:
19 
20 sub said {
21 	my $self      = shift;
22 	my $arguments = shift;
23 	if ($arguments->{body} =~ /^!roll/) {
24 		my $dice = int(rand(12))+1;
25 		return "You rolled $dice!";
26 	}
27 }
28 
29   Let's change the if test. Instead of testing if the body of the message
30   starts with !roll, let's test if the sender has the right nick:
31 
32   We replace:
33 
34 	if ($arguments->{body} =~ /^!roll/) {
35 
36   with:
37 
38 	if ($arguments->{who} =~ /^yournick$/) {
39 
40   Replace yournick with your nick on IRC.
41 
42   The if (...) conditional tests whether the expression inside is true.
43   Here, we check the sender of the message with $arguments->{who}. 
44   We use =~ to test if it matches the string yournick. The carat
45   symbol ^ marks the beginning of the string and the dollar symbol $
46   marks the end of the string.
47 
48   Now that we're no longer rolling dice, we can delete this line:
49 
50 		my $dice = int(rand(12))+1;
51 
52   Next, we should change the message. We replace:
53 
54 		return "You rolled $dice!";
55 
56   with:
57 
58 		return "You're the boss!";
59 
60   We now have this snippet of code:
61 
62 	if ($arguments->{who} =~ /^yournick$/) {
63 		return "You're the boss!";
64 	}
65 
66   This means: If the message comes from yournick, say "You're the boss!"
67   in the same channel that the message came from.
68 
69   Let's use an else statement to send a message for users
70   that do not match yournick:
71 
72 	else {
73 		return "I don't recognize you!";
74 	}
75 
76   Finally, we will replace DiceBot on lines 5 and 20 with IDBot (because
77   this bot checks our ID):
78 
79 package DiceBot;
80 
81   becomes:
82 
83 package IDBot;
84 
85   and:
86 
87 my $bot = DiceBot->new(
88 
89   becomes:
90 
91 my $bot = IDBot->new(
92 
93   (Hint: the answer is in /home/perl102/idbot.pl)
94 
95 ================================================================================
96 
97       Username: perl102
98       Password: UoBnjdJd5P1
99       Server: freeirc.org
100       Port: 22
101 
102 ================================================================================