|
|
@ -5,9 +5,9 @@ use strict;
|
|
|
|
|
|
|
|
|
|
|
|
my $irc = new Net::IRC;
|
|
|
|
my $irc = new Net::IRC;
|
|
|
|
my $conn = $irc->newconn(Nick => 'puddingbrumsel',
|
|
|
|
my $conn = $irc->newconn(Nick => 'puddingbrumsel',
|
|
|
|
Server => 'irc.belwue.de');
|
|
|
|
Server => shift || 'irc.belwue.de');
|
|
|
|
|
|
|
|
|
|
|
|
$conn->{channel} = "!6Y9HIabcde";
|
|
|
|
$conn->{channel} = shift || "!6Y9HIabcde";
|
|
|
|
$conn->{lastpudding} = time();
|
|
|
|
$conn->{lastpudding} = time();
|
|
|
|
$conn->{specialwday} = 0;
|
|
|
|
$conn->{specialwday} = 0;
|
|
|
|
|
|
|
|
|
|
|
|