diff options
Diffstat (limited to 'modules')
| -rw-r--r-- | modules/services.pl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/modules/services.pl b/modules/services.pl index 597435f..bc25659 100644 --- a/modules/services.pl +++ b/modules/services.pl @@ -21,9 +21,11 @@ sub doServices { } elsif ( $event->{args}->[0] =~ /^You are now identified/ ) { - foreach my $x ( @{$::settings->{autojoins}} ) { - $conn->schedule($i, sub { $conn->join($x); }); - $i = $i + 5; + my @autojoins = @{$::settings->{autojoins}}; + while (@autojoins) { + my $joinstr = join (',', shift @autojoins, shift @autojoins, shift @autojoins, shift @autojoins, shift @autojoins); + $conn->schedule($i, sub { $conn->join($joinstr); }); + $i += 5; } } elsif ($event->{args}->[0] =~ /has been killed$/ ) |