diff options
Diffstat (limited to 'modules')
| -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$/ ) { |