- added http support to Debian - no more corruption!

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

diff --git a/src/Modules/News.pl b/src/Modules/News.pl
index 0e5e8432d10d06340af278d73eaa4c122eaf39d9..419dfb8f2330a1790cdcedc016cdb3ac555344b0 100644 (file)
--- a/src/Modules/News.pl
+++ b/src/Modules/News.pl
@@ -786,7 +786,11 @@ sub latest {
     # scalar @new, !$flag
     my $unread = scalar @new;
     my $total  = scalar keys %{ $::news{$chan} };
-    if (!$flag && &::IsChanConf("newsTellUnread")) {
+    if (!$flag && !&::IsChanConf("newsTellUnread")) {
+       return;
+    }
+
+    if (!$flag) {
        return unless ($unread);
 
        # just a temporary measure not to flood ourself off the 
@@ -826,11 +830,11 @@ sub latest {
            my $news = $sorted[$i];
            next unless (defined $news);
 
-           my $age = time() - $::news{$chan}{$news}{Time};
+#          my $age = time() - $::news{$chan}{$news}{Time};
+           my $msg = sprintf("\002[\002%2d\002]\002 %s", $i, $news);
+###                    $i, $_, &::Time2String($age)
            $::conn->schedule(int((2+$i)/2), sub {
-               &::notice($who, sprintf("\002[\002%2d\002]\002 %s",
-                       $i, $news) );
-#                      $i, $_, &::Time2String($age) ) );
+               &::notice($who, $msg);
            } );
        }