[Cpan-forum-commit] rev 198 - in trunk: . lib/CPAN lib/CPAN/Forum/RM

[svn at pti.co.il]

Author: gabor
Date: 2006-08-29 18:43:22 +0300 (Tue, 29 Aug 2006)
New Revision: 198

Added:
   trunk/lib/CPAN/Forum/RM/Dist.pm
Modified:
   trunk/
   trunk/lib/CPAN/Forum.pm
Log:
move the dist run mode to separate file



Property changes on: trunk
___________________________________________________________________
Name: svk:merge
   - 8c4c90e1-83eb-0310-96eb-e7cb62807872:/local/cpan-forum:11062
   + 8c4c90e1-83eb-0310-96eb-e7cb62807872:/local/cpan-forum:11063

Added: trunk/lib/CPAN/Forum/RM/Dist.pm
===================================================================
--- trunk/lib/CPAN/Forum/RM/Dist.pm	2006-08-29 15:43:15 UTC (rev 197)
+++ trunk/lib/CPAN/Forum/RM/Dist.pm	2006-08-29 15:43:22 UTC (rev 198)
@@ -0,0 +1,63 @@
+package CPAN::Forum::RM::Dist;
+use strict;
+use warnings;
+
+=head2 dist
+
+List last few posts belonging to this group, provides a link to post a new 
+message within this group
+
+=cut
+
+sub dist {
+    my ($self) = @_;
+    my $q = $self->query;
+
+    my $group_name = ${$self->param("path_parameters")}[0] || '';
+    if ($group_name =~ /^([\w-]+)$/) {
+        $group_name = $1;
+    } else {
+        return $self->internal_error(
+            "Probably bad regex when checking group name for $group_name called in $ENV{PATH_INFO}",
+            );
+    }
+    $self->log->debug("show dist: '$group_name'");
+
+    my $t = $self->load_tmpl("groups.tmpl",
+        loop_context_vars => 1,
+        global_vars => 1,
+    );
+    $t->param(hide_group => 1);
+                
+    $t->param(group => $group_name);
+    $t->param(title => "CPAN Forum - $group_name");
+
+    my ($gr) = CPAN::Forum::Groups->search(name => $group_name);
+    if (not $gr) {
+        $self->log->warning("Invalid group $group_name called in $ENV{PATH_INFO}");
+        $gr = $self->process_missing_dist($group_name);
+        if (not $gr) {
+            return $self->internal_error(
+                "",
+                "no_such_group",
+            );
+        }
+    }
+    my $gid = $gr->id;
+    if ($gid =~ /^(\d+)$/) {
+        $gid = $1;
+    } else {
+        return $self->internal_error(
+            "Invalid gid received $gid called in $ENV{PATH_INFO}",
+            );
+    }
+
+    $self->set_ratings($t, $group_name);
+    my $page = $q->param('page') || 1;
+    $self->_search_results($t, {where => {gid => $gid}, page => $page});
+    $self->_subscriptions($t, $gr);
+    $t->output;
+}
+
+1;
+

Modified: trunk/lib/CPAN/Forum.pm
===================================================================
--- trunk/lib/CPAN/Forum.pm	2006-08-29 15:43:15 UTC (rev 197)
+++ trunk/lib/CPAN/Forum.pm	2006-08-29 15:43:22 UTC (rev 198)
@@ -538,6 +538,7 @@
 
 my %RM_MAP = (
     author => 'CPAN::Forum::RM::Author',
+    dist   => 'CPAN::Forum::RM::Dist',
 );
 
 =head2 setup
@@ -1602,64 +1603,6 @@
     }
 }
 
-
-=head2 dist
-
-List last few posts belonging to this group, provides a link to post a new 
-message within this group
-
-=cut
-
-sub dist {
-    my ($self) = @_;
-    my $q = $self->query;
-
-    my $group_name = ${$self->param("path_parameters")}[0] || '';
-    if ($group_name =~ /^([\w-]+)$/) {
-        $group_name = $1;
-    } else {
-        return $self->internal_error(
-            "Probably bad regex when checking group name for $group_name called in $ENV{PATH_INFO}",
-            );
-    }
-    $self->log->debug("show dist: '$group_name'");
-
-    my $t = $self->load_tmpl("groups.tmpl",
-        loop_context_vars => 1,
-        global_vars => 1,
-    );
-    $t->param(hide_group => 1);
-                
-    $t->param(group => $group_name);
-    $t->param(title => "CPAN Forum - $group_name");
-
-    my ($gr) = CPAN::Forum::Groups->search(name => $group_name);
-    if (not $gr) {
-        $self->log->warning("Invalid group $group_name called in $ENV{PATH_INFO}");
-        $gr = $self->process_missing_dist($group_name);
-        if (not $gr) {
-            return $self->internal_error(
-                "",
-                "no_such_group",
-            );
-        }
-    }
-    my $gid = $gr->id;
-    if ($gid =~ /^(\d+)$/) {
-        $gid = $1;
-    } else {
-        return $self->internal_error(
-            "Invalid gid received $gid called in $ENV{PATH_INFO}",
-            );
-    }
-
-    $self->set_ratings($t, $group_name);
-    my $page = $q->param('page') || 1;
-    $self->_search_results($t, {where => {gid => $gid}, page => $page});
-    $self->_subscriptions($t, $gr);
-    $t->output;
-}
-
 sub _subscriptions {
     my ($self, $t, $group) = @_;