diff options
| author |   William Heimbigner <william.heimbigner@gmail.com> | 2016-01-07 19:55:36 -0700 |
|---|---|---|
| committer | William Heimbigner <william.heimbigner@gmail.com> | 2016-01-07 19:55:36 -0700 |
| commit | 645cc36c05909b0ffd0ec9423e3633c8a1b8673b (patch) | |
| tree | 434152404ce86d9150c442cf71c474dfcc815c59 /lib/ASM/Services.pm | |
| parent | 1cb83fe999b03d2c913ca409650036a8d4dd462e (diff) | |
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
Diffstat (limited to 'lib/ASM/Services.pm')
| -rw-r--r-- | lib/ASM/Services.pm | 9 |
1 files changed, 8 insertions, 1 deletions
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)/ ) { |