diff options
| author |   William Heimbigner <william.heimbigner@gmail.com> | 2012-05-09 16:03:32 +0000 |
|---|---|---|
| committer | William Heimbigner <william.heimbigner@gmail.com> | 2012-05-09 16:03:32 +0000 |
| commit | 1797c15c9842b1b91893c5b7289ce4542ff2b823 (patch) | |
| tree | 032d9509e459791a34fe31b75d1df11a1e1c2b14 /modules/services.pl | |
| parent | c63d064819f67536824b34e8772122440b6409e8 (diff) | |
Don't update quite as fast to avoid SendQ issues
Diffstat (limited to 'modules/services.pl')
| -rw-r--r-- | modules/services.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/modules/services.pl b/modules/services.pl index bc25659..e2c53e0 100644 --- a/modules/services.pl +++ b/modules/services.pl @@ -23,10 +23,11 @@ sub doServices { { my @autojoins = @{$::settings->{autojoins}}; while (@autojoins) { - my $joinstr = join (',', shift @autojoins, shift @autojoins, shift @autojoins, shift @autojoins, shift @autojoins); + my $joinstr = join (',', shift @autojoins, shift @autojoins, shift @autojoins, shift @autojoins); $conn->schedule($i, sub { $conn->join($joinstr); }); - $i += 5; + $i += 7; } + $conn->schedule($i-6, sub { $conn->privmsg('#antispammeta', 'Now joined to all channels in '. (time - $::starttime) . " seconds."); }); } elsif ($event->{args}->[0] =~ /has been killed$/ ) { |