modules/actions.pl


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

use strict;
use warnings;

#package Actions;

sub Actions::ban {
  my ($conn, $event, $chan) = @_;
  $::oq->o_send( $conn, "mode $chan +b *!*\@$event->{host}" );
  return "mode $chan -b *!*\@$event->{host}";
}

sub Actions::kban {
  my ($conn, $event, $chan) = @_;
  $::oq->o_send($conn, "mode $chan +b *!*\@$event->{host}");
  $::oq->o_send($conn, "kick $chan $event->{nick} :Spamming");
  return "mode $chan -b *!*\@$event->{host}";
}

sub Actions::kick {
  my ($conn, $event, $chan) = @_;
  $::oq->o_send($conn, "kick $chan $event->{nick} :Spamming");
  return "";
}

sub Actions::none {
  return "";
}

sub Actions::quiet {
  my ($conn, $event, $chan) = @_;
  $::oq->o_send( $conn, "mode $chan +b %*!*\@$event->{host}" );
  return "mode $chan -b %*!*\@$event->{host}";
}

return 1;