2 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
#
use Bot::BasicBot;
my $bot = Bot::BasicBot -> new(
server => "irc.euirc.net",
channels => ["#aaaa_chan"],
nick => "basicbot_a"
);
$bot -> run();
$bot -> say(who => "basicbot_a", channel => "#tobias_chan", body => "hallo" );
$bot -> say(who => "basicbot_tobi", channel => "#tobias_chan", body => "hallo" );
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
#
use Bot::BasicBot;
my $bot = Bot::BasicBot -> new(
server => "irc.euirc.net",
channels => ["#aaaa_chan"],
nick => "basicbot_a"
);
$bot -> run();
$bot -> say(who => "basicbot_a", channel => "#tobias_chan", body => "hallo" );
run()
connected
2 Einträge, 1 Seite |