From 645cc36c05909b0ffd0ec9423e3633c8a1b8673b Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Thu, 7 Jan 2016 19:55:36 -0700
Subject: Use Tie::CPHash to make %::sn and %::sc case-insensitiveish. Clean up
 commands.xml and fix some bugs Add clone detection Minimize some excessive
 warnings Greatly improve syncing speed

---
 lib/ASM/Services.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'lib/ASM/Services.pm')

diff --git a/lib/ASM/Services.pm b/lib/ASM/Services.pm
index f88ddac..7cbf1ff 100644
--- a/lib/ASM/Services.pm
+++ b/lib/ASM/Services.pm
@@ -38,7 +38,14 @@ sub doServices {
         $conn->join(join(',', @autojoins));
       }
       $conn->sl("PING :" . time);
-      $conn->schedule(2, sub { $conn->privmsg($::settings->{masterchan}, 'Now joined to all channels in '. (time - $::starttime) . " seconds."); });
+      foreach my $chan (@autojoins[0..1]) {
+        ASM::Util->dprint("Syncing $chan", "sync");
+        $conn->sl('who ' . $chan . ' %tcnuhra,314');
+        $conn->sl('mode ' . $chan);
+        $conn->sl('mode ' . $chan . ' b');
+      }
+        @::syncqueue = @autojoins[1..$#autojoins];
+#      $conn->schedule(2, sub { $conn->privmsg($::settings->{masterchan}, 'Now joined to all channels in '. (time - $::starttime) . " seconds."); });
     }
     elsif ($event->{args}->[0] =~ /has been (killed|released)/ )
     {
-- 
cgit v1.2.3