From 1fd649a552dbd8910bb79f83163f4a4fdf832d65 Mon Sep 17 00:00:00 2001
From: Janik Kleinhoff <janik@kleinhoff.de>
Date: Sat, 7 Mar 2015 01:45:14 +0400
Subject: Add some checks for STATUSMSG prefixes on channels

This un-breaks /msg +#channel hi, mostly.
---
 modules/util.pl | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'modules/util.pl')

diff --git a/modules/util.pl b/modules/util.pl
index dfb715b..cb66919 100644
--- a/modules/util.pl
+++ b/modules/util.pl
@@ -70,6 +70,7 @@ sub maxlen {
 sub cs {
   my ($module, $chan) = @_;
   $chan = lc $chan;
+  $chan =~ s/^[@+]//;
   return $::channels->{channel}->{default} unless defined($::channels->{channel}->{$chan});
   if ( defined($::channels->{channel}->{$chan}->{link}) ) {
     return $::channels->{channel}->{ $::channels->{channel}->{$chan}->{link} };
@@ -81,6 +82,7 @@ sub getLink
 {
   my ($module, $chan) = @_;
   $chan = lc $chan;
+  $chan =~ s/^[@+]//;
   my $link = $::channels->{channel}->{$chan}->{link};
   if ( defined($link) ) {
     return $link;
@@ -92,6 +94,7 @@ sub speak
 {
   my ($module, $chan) = @_;
   $chan = lc $chan;
+  $chan =~ s/^[@+]//;
   if ( defined($::channels->{channel}->{$chan}->{silence}) ) {
     if ($::channels->{channel}->{$chan}->{silence} eq "no") {
       return 1;
@@ -134,6 +137,7 @@ sub getAlert {
   my @disable = ();
   my @x = ();
   $c = lc $c;
+  $c =~ s/^[@+]//;
   foreach my $prisk ( keys %::RISKS) {
     if ( $::RISKS{$risk} >= $::RISKS{$prisk} ) {
       push( @x, @{$::channels->{channel}->{master}->{$t}->{$prisk}} ) if defined $::channels->{channel}->{master}->{$t}->{$prisk};
-- 
cgit v1.2.3