gmtime

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

diff --git a/src/Modules/News.pl b/src/Modules/News.pl
index 33d8933d86b923f3b833bd29b5cb98ab8abc91aa..3df9f42d1ce4b98dd7dbeb1da6d5156fe9de5fc8 100644 (file)
--- a/src/Modules/News.pl
+++ b/src/Modules/News.pl
@@ -15,10 +15,12 @@
 #      Text    - Actual text.
 ###
 
-use vars qw($who $chan);
-
 package News;
 
+use strict;
+
+use vars qw($who $chan);
+
 sub Parse {
     my($what)  = @_;
     $chan      = undef;
@@ -225,6 +227,7 @@ sub writeNews {
        $c = scalar keys %{ $::news{$chan} };
        next unless ($c);
        $cc++;
+       my $item;
 
        foreach $item (sort keys %{ $::news{$chan} }) {
            $c = scalar keys %{ $::news{$chan}{$item} };
@@ -232,6 +235,7 @@ sub writeNews {
            $ci++;
 
            print NEWS "$chan $item\n";
+           my $what;
            foreach $what (sort keys %{ $::news{$chan}{$item} }) {
                print NEWS "    $what: $::news{$chan}{$item}{$what}\n";
            }
@@ -283,11 +287,11 @@ sub add {
 
     my $agestr = &::Time2String($::news{$chan}{$str}{Expire} - time() );
     my $item   = &newsS2N($str);
-    &::notice($who, "Added '\037$str\037' at [".localtime(time).
+    &::notice($who, "Added '\037$str\037' at [".gmtime(time).
                "] by \002$::who\002 for item #\002$item\002.");
     &::notice($who, "Now do 'news text $item <your_description>'");
     &::notice($who, "This item will expire at \002".
-       localtime($::news{$chan}{$str}{Expire})."\002 [$agestr from now] "
+       gmtime($::news{$chan}{$str}{Expire})."\002 [$agestr from now] "
     );
 
     &writeNews();
@@ -393,7 +397,9 @@ sub list {
        $newest = $t if ($t > $newest);
        if ($e > 1 and $e < $expire) {
            $expire     = $e;
-           $eno        = &newsS2N($item);
+           &::DEBUG("before newsS2N($_)");
+           $eno        = &newsS2N($_);
+           &::DEBUG("after newsS2N($_) == $eno");
        }
     }
     my $timestr = &::Time2String(time() - $newest);
@@ -464,7 +470,7 @@ sub read {
        return;
     }
 
-    my $t      = localtime( $::news{$chan}{$item}{Time} );
+    my $t      = gmtime( $::news{$chan}{$item}{Time} );
     my $a      = $::news{$chan}{$item}{Author};
     my $text   = $::news{$chan}{$item}{Text};
     my $num    = &newsS2N($item);
@@ -486,7 +492,7 @@ sub read {
     my $e;
     if ($_) {
        $e = sprintf("\037%s\037  [%s from now]",
-               scalar(localtime($_)),
+               scalar(gmtime($_)),
                &::Time2String($_ - time())
        );
     }
@@ -674,7 +680,7 @@ sub set {
            return;
        } else {
            &::notice($who, "Set expire for \002$item\002, to ".
-               localtime($time) ." [".&::Time2String($time - time())."]" );
+               gmtime($time) ." [".&::Time2String($time - time())."]" );
 
            if (time() > $time) {
                &::DEBUG("news: hrm... time() > $time, should expire.");
@@ -751,9 +757,9 @@ sub latest {
     }
 
     if (!defined $t) {
+#      &::msg($who, "News is disabled for $chan");
        &::DEBUG("news: something went really wrong.");
-       &::DEBUG("news: chan => $chan, ::chan => $::chan");
-#      &::notice($who, "something went really wrong.");
+       &::DEBUG("news: chan => $chan.");
        return;
     }
 
@@ -786,9 +792,22 @@ sub latest {
     # scalar @new, !$flag
     my $unread = scalar @new;
     my $total  = scalar keys %{ $::news{$chan} };
+    if (!$flag && !&::IsChanConf("newsTellUnread")) {
+       return;
+    }
+
     if (!$flag) {
        return unless ($unread);
 
+       # just a temporary measure not to flood ourself off the 
+       # network with news until we get global notice() and msg()
+       # throttling.
+       if (time() - ($::cache{newsTime} || 0) < 5) {
+           &::status("news: not displaying latest notice to $who/$chan.");
+           return;
+       }
+
+       $::cache{newsTime} = time();
        my $reply = "There are unread news in $chan ($unread unread, $total total). /msg $::ident news $::chan latest";
        $reply   .= "  If you don't want further news notification, /msg $::ident news unnotify" if ($unread == $total);
        &::notice($who, $reply);
@@ -806,23 +825,29 @@ sub latest {
            &::notice($who, "|= Last time read $timestr ago");
        }
 
+       my $i;
        my @sorted;
        foreach (@new) {
-           my $i   = &newsS2N($_);
+           $i   = &newsS2N($_);
            $sorted[$i] = $_;
        }
-
-       for (my $i=0; $i<=scalar(@sorted); $i++) {
+       
+       for ($i=0; $i<=scalar(@sorted); $i++) {
            my $news = $sorted[$i];
            next unless (defined $news);
 
-           my $age = time() - $::news{$chan}{$news}{Time};
-           &::notice($who, sprintf("\002[\002%2d\002]\002 %s",
-               $i, $news) );
-#              $i, $_, &::Time2String($age) ) );
+#          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, $msg);
+           } );
        }
 
-       &::notice($who, "|= to read, do \002news $chan read <#>\002 or \002news $chan read <keyword>\002");
+       # todo: implement throttling via schedule into &notice() / &msg().
+       $::conn->schedule(int((2+$i)/2), sub {
+           &::notice($who, "|= to read, do \002news $chan read <#>\002 or \002news $chan read <keyword>\002");
+       } );
 
        # lame hack to prevent dupes if we just ignore it.
        my $x = $::newsuser{$chan}{$who};
@@ -883,6 +908,8 @@ sub getNewsItem {
     my($what)  = @_;
     my $item   = 0;
 
+    $what =~ s/^\#//;  # '#1' for example.
+
     my %time;
     foreach (keys %{ $::news{$chan} }) {
        my $t = $::news{$chan}{$_}{Time};