summaryrefslogtreecommitdiffstats
path: root/modules/util.pl
diff options
context:
space:
mode:
Diffstat (limited to 'modules/util.pl')
-rw-r--r--modules/util.pl4
1 files changed, 4 insertions, 0 deletions
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};