Changeset 297

Timestamp:

01/12/11 14:10:48 (13 years ago)

Author:

nanardon

Message:

• resurect nb_rpm chat command

Location:

server/trunk/web/lib/Sophie/Controller

Files:

• Chat/Cmd.pm (modified) (1 diff)
• Maintainers.pm (modified) (1 diff)

server/trunk/web/lib/Sophie/Controller/Chat/Cmd.pm

@@ -982 +982 @@
 }
 
+=head2 nb_rpm [-d distrib] NAME
+
+Show the count of rpm maintains by packager matching C<NAME>.
+
+=cut
+
+sub nb_rpm : XMLRPC {
+    my ($self, $c, $reqspec, @args) = @_;
+    my @message;
+    my $dist = { distribution => $reqspec->{distribution} };
+    @args = @{ $c->forward('_getopt', [
+        {
+            'd=s' => \$dist->{distribution},
+        }, @args ]) };
+    if (!$c->forward('/distrib/exists', [ $dist ])) {
+        return $c->stash->{xmlrpc} = {
+            message => [ "I don't have such distribution" ]
+        };
+    }
+
+    my $maints = $c->forward('/maintainers/search',
+        [ $args[0], $dist->{distribution} ]);
+    if (@$maints > 3) {
+        return $c->stash->{xmlrpc} = {
+            message => [ 
+                scalar(@$maints) . " maintainers found matching `$args[0]'"
+            ]
+        };
+    } elsif (! @$maints) {
+        return $c->stash->{xmlrpc} = {
+            message => [ "No maintainers found matching `$args[0]'" ]
+        };
+    } else {
+        my @messages;
+        foreach (@$maints) {
+            my $rpms = $c->forward('/maintainers/bymaintainer', [
+                $_->{owner}, $dist->{distribution} ]);
+            push(@messages, sprintf('%s (%s) maintains %d rpms',
+                    $_->{owner},
+                    $_->{vendor},
+                    scalar(@$rpms),
+                )
+            );
+        }
+        return $c->stash->{xmlrpc} = {
+            message => \@messages,
+        };
+    }
+}
+
 =head1 AUTHOR
 

server/trunk/web/lib/Sophie/Controller/Maintainers.pm

@@ -74 +74 @@
 }
 
+sub bymaintainer : XMLRPC {
+    my ($self, $c, $maint, $distrib) = @_;
+    $c->stash->{xmlrpc} = [ map { { $_->get_columns } } 
+    $c->model('Base::MaintRpm')->
+        search(
+            { owner => $maint },
+            { select => [ qw(rpm) ] },
+        )->
+        search_related('MaintSources')->
+        search_related('MaintDistrib')->
+        search_related('Distribution',
+            $distrib ? {
+                '-or' => [
+                    { shortname => $distrib },
+                    { name => $distrib },
+                ],
+            } : (),
+        )->search({},
+            {
+                'select' => [ qw'rpm name label' ],
+                'as'     => [ qw'rpm distribution vendor' ],
+            }
+        )->all ];
+    
+}
+
+sub search :XMLRPC {
+    my ($self, $c, $maint, $distrib) = @_;
+
+    $c->stash->{xmlrpc} = [ map { { $_->get_columns } }
+        $c->model('Base::MaintRpm')->search(
+            { owner => { 'LIKE' => "%$maint%" } }
+        )->search_related('MaintSources'
+        )->search_related('MaintDistrib'
+        )->search_related('Distribution',
+            $distrib ? {
+                '-or' => [
+                    { shortname => $distrib },
+                    { name => $distrib },
+                ],
+            } : (),
+        )->search({},
+            {
+                'select' => [ qw'owner name label' ],
+                'as'     => [ qw'owner distribution vendor' ],
+                'group_by' => [ qw'owner name label' ],
+                'order_by' => [ qw'owner name label' ],
+            }
+        )->all ];
+}
 
 =head1 AUTHOR