really support negative booleans and and return -1 for IsChanConf() when they are...

[infobot.git] / blootbot / src / Modules / News.pl

diff --git a/blootbot/src/Modules/News.pl b/blootbot/src/Modules/News.pl
index c82b5772730d04daad16574ef74dd6338ac74849..25b049c28d5fb1f4aa4a4a47d0706700a933a4d1 100644 (file)
--- a/blootbot/src/Modules/News.pl
+++ b/blootbot/src/Modules/News.pl
@@ -119,7 +119,7 @@ sub Parse {
        my $state = ($1) ? 0 : 1;
 
        # TODO: don't notify even if "News" is called.
-       if (!&::IsChanConf("newsNotifyAll")) {
+       if (&::IsChanConf("newsNotifyAll") <= 0) {
            &::DEBUG("news: chan => $chan, ::chan => $::chan.");
            &::notice($who, "not available for this channel or disabled altogether.");
            return;
@@ -371,7 +371,7 @@ sub list {
        return;
     }
 
-    if (&::IsChanConf("newsKeepRead")) {
+    if (&::IsChanConf("newsKeepRead") > 0) {
        my $x = $::newsuser{$chan}{$who};
 
        if (defined $x and ($x == 0 or $x == -1)) {
@@ -751,8 +751,7 @@ sub latest {
     }
 
     $::chan    = $chan;
-    my $x = &::IsChanConf("newsNotifyAll");
-    return if (!$x);
+    return if (&::IsChanConf("newsNotifyAll") <= 0);
 
     # I don't understand this code ;)
     $t = 1 if (!defined $t);
@@ -792,7 +791,7 @@ sub latest {
     # scalar @new, !$flag
     my $unread = scalar @new;
     my $total  = scalar keys %{ $::news{$chan} };
-    if (!$flag && !&::IsChanConf("newsTellUnread")) {
+    if (!$flag && &::IsChanConf("newsTellUnread") <= 0) {
        return;
     }