blob: 4cb0152d66e2a4293db3a8cec8ed3de603a72826 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
#!/usr/bin/perl
use warnings;
use strict;
use POE;
use POE::Component::IRC;
my $irc = POE::Component::IRC->spawn(
nick => "messengerz",
server => "irc.ircnow.org",
port => 6667,
ircname => "monSSH Bot",
);
POE::Session->create(
package_states => [
main => [qw(_start irc_001 irc_public)],
],
);
$poe_kernel->run();
sub _start {
$irc->yield(register => "all");
$irc->yield(connect => {});
return;
}
sub irc_001 {
my $sender = $_[SENDER];
$irc->yield(join => "#debian");
return;
}
sub irc_public {
my ($sender, $who, $where, $what) = @_[SENDER, ARG0 .. ARG2];
my $nick = (split /!/, $who)[0];
my $channel = $where->[0];
if ($what =~ /^!help/) {
$irc->yield(privmsg => $channel => "Please for more information Private message /query monSSH !help");
} elsif ($what =~ /^!info/) {
$irc->yield(privmsg => $channel => "Information: The server is running okay !");
} elsif ($what =~ /^!shqip/) {
$irc->yield(privmsg => $channel => "Informatat ne shqipe jane akoma nen perpunim !");
}
return;
}
|
