spamserv alerts to operchan

git-svn-id: http://svn.tabris.net/repos/srsv@3607 70d4eda1-72e9-0310-a436-91e5bd24443c

diff --git a/branches/0.4.3/modules/spamserv.pm b/branches/0.4.3/modules/spamserv.pm
index 941eb670c28bcb1ccb2810459ac5e026c077a78e..fec2b75cec953e42a6ee2835c173cefe5ff004b7 100644 (file)
--- a/branches/0.4.3/modules/spamserv.pm
+++ b/branches/0.4.3/modules/spamserv.pm
@@ -71,6 +71,8 @@ sub ss_privmsg {
        my ($src, $dst, $msg) = @_;
        if (lc $dst eq lc((split /!/,$fakehost)[0])) {
                ircd::privmsg("SpamServ", main_conf_diag, "Received PRIVMSG: <$src> $msg");
+               ircd::privmsg("SpamServ", main_conf_operchan, "Received PRIVMSG: <$src> $msg")
+                       if main_conf_operchan;
        }
        elsif (lc $dst eq "spamserv") {
                my $user = { NICK => $src, AGENT => $dst };
@@ -120,8 +122,12 @@ sub ss_notice {
        my ($src, $dst, $msg) = @_;
        if (lc $dst eq lc((split /!/,$fakehost)[0])) {
                ircd::privmsg("SpamServ", main_conf_diag, "Received NOTICE: -$src- $msg");
+               ircd::privmsg("SpamServ", main_conf_operchan, "Received NOTICE: -$src- $msg")
+                       if main_conf_operchan;
        }
        elsif ($dst =~ /^(?:\+|%|@|&|~)?(#.*)/ and exists($chanlist{lc $1})) {
+               ircd::privmsg("SpamServ", main_conf_operchan, "Received NOTICE: -$src:$dst- $msg")
+                       if main_conf_operchan;
                ircd::privmsg("SpamServ", main_conf_diag, "Received NOTICE: -$src:$dst- $msg");
        }