neingeist
/
puddingbrumsel
Archived
1
0
Fork 0
Code Releases Activity

mehr pudding weniger bugs

Browse Source
master
puddingbrumsel 17 years ago
parent a18968e8a2
commit ef1223d6a4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File

4
puddingbrumsel
Unescape Escape View File

@ -76,10 +76,10 @@ sub on_msg {
$conn->privmsg($conn->{channel}, "$nick: " . pudding); $conn->privmsg($conn->{channel}, "$nick: " . pudding);
$conn->{lastpudding} = time(); $conn->{lastpudding} = time();
} else { } else {
my $wait = 24 * 3600 * (rand()-0.5); my $wait = 24 * 3600 * (0.5 + 0.5*rand());
my (undef, undef, undef, undef, undef, undef, $wday) = localtime(time()); my (undef, undef, undef, undef, undef, undef, $wday) = localtime(time());
if ($wday == $conn->{specialwday}) { if ($wday == $conn->{specialwday}) {
$wait = 6 * 3600 * (rand()-0.5); $wait = 6 * 3600 * (0.5 + 0.5*rand());
} }
if (time() > $conn->{lastpudding} + $wait) { if (time() > $conn->{lastpudding} + $wait) {
print "=> $conn->{channel}\n"; print "=> $conn->{channel}\n";