shadow/modules/ChanServ.pm at master · ablakely/shadow · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
package ChanServ;

use lib './Oper.pm';

my $bot = Shadow::Core;
my $jchan = "";

sub loader {
  $bot->add_handler('chancmd kill', 'ChanServ_kill');
  $bot->add_handler('event join', 'ChanServ_join');
  $bot->add_handler('event namesend', 'ChanServ_joinme');
}

sub ChanServ_join {
  my ($nick, $host, $chan) = @_;
  if ($bot->isbotadmin($nick, $host)) {
    $bot->raw("SAMODE $chan +o :$nick");
  }
}

sub ChanServ_joinme {
  my ($chan) = @_;

  $bot->listusers_async($chan, sub {
    my ($chan, @userlist) = @_;
    $bot->raw("SAMODE $chan +o :".$Shadow::Core::nick);

    foreach my $u (@userlist) {
      my $uhost = $bot->gethost($chan, $u);
      if ($bot->isbotadmin($u, $host)) {
        $bot->raw("SAMODE $chan +o :$u");
      }
    }
  });
}


sub ChanServ_kill {
  my ($nick, $host, $chan, $text) = @_;

  Oper::oper_kill($nick, $host, $text);
}

sub unloader {
  $bot->del_handler('chancmd kill', 'ChanServ_kill');
}

1;