join channels WAY faster on startup

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$/ )