From facb092fc79d0fffea96e48581c2e32e07d7443e Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Mon, 27 Feb 2012 03:30:36 +0000
Subject: join channels WAY faster on startup

---
 modules/services.pl | 8 +++++---
 1 file 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$/ )
-- 
cgit v1.2.3