modules/commentcount.pl

   1 # Copyright (C) 2004  Brock Wilcox <awwaiid@thelackthereof.org>
   2 #
   3 # This program is free software; you can redistribute it and/or modify
   4 # it under the terms of the GNU General Public License as published by
   5 # the Free Software Foundation; either version 2 of the License, or
   6 # (at your option) any later version.
   7 #
   8 # This program is distributed in the hope that it will be useful,
   9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 # GNU General Public License for more details.
  12 #
  13 # You should have received a copy of the GNU General Public License
  14 # along with this program; if not, write to the
  15 #    Free Software Foundation, Inc.
  16 #    59 Temple Place, Suite 330
  17 #    Boston, MA 02111-1307 USA
  18
  19 $ModulesDescription .= '<p><a href="http://git.savannah.gnu.org/cgit/oddmuse.git/tree/modules/commentcount.pl">commentcount.pl</a>, see <a href="http://www.oddmuse.org/cgi-bin/oddmuse/Comment_Count_Extension">Comment Count Extension</a></p>';
  20
  21 *OldCommentcountAddComment = *AddComment;
  22 *AddComment = *NewCommentcountAddComment;
  23
  24 sub NewCommentcountAddComment {
  25   my ($old, $comment) = @_;
  26   my $new = OldCommentcountAddComment($old,$comment);
  27   if($new eq $old) {
  28     # no comment added
  29   } else {
  30     my $num = $new;
  31     if($num =~ /=== (\d+) Comments?\. ===/) {
  32       $num = $1;
  33       $num++;
  34       $new =~ s/=== (\d+) Comments?\. ===/=== $num Comments. ===/;
  35     } else {
  36       $new = "=== 1 Comment. ===\n" . $new;
  37     }
  38   }
  39   return $new;
  40 }
  41
  42 *OldCommentcountScriptLink = *ScriptLink;
  43 *ScriptLink = *NewCommentcountScriptLink;
  44
  45 sub NewCommentcountScriptLink {
  46   my ($action, $text, @rest) = @_;
  47   if ($CommentsPrefix && $action =~ /^$CommentsPrefix(.*)/) {
  48     # Add the number of comments here
  49     my $id = $action;
  50     $id =~ s/%([0-9a-f][0-9a-f])/chr(hex($1))/ge; # undo urlencode
  51     my $comments = GetPageContent($id);
  52     my $num = 0;
  53     if($comments =~ /=== (\d+) Comments?\. ===/) {
  54       $num = $1;
  55     }
  56     # Fix plurals
  57     my $plural = T('Comments on ');
  58     my $singular = T('Comment on ');
  59     $text =~ s/$plural/$singular/ if($num == 1);
  60     $text = $num . ' ' . $text;
  61   }
  62   return OldCommentcountScriptLink($action, $text, @rest);
  63 }