Changeset 138

Timestamp:

12/18/10 18:24:48 (13 years ago)

Author:

nanardon

Message:

• add 'more' command

File:

• server/trunk/web/lib/Sophie/Controller/Chat/Cmd.pm (modified) (2 diffs)

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

@@ -324 +324 @@
     foreach (@{ $rpmlist->{results} }) {
         my $info = $c->forward('/rpms/queryformat', [ $_, $args[1] ]);
-        push @message, $info;
+        push @message, $info . ' // ' .
+            $c->forward('_fmt_location', [ $_ ]);
     }
     return $c->stash->{xmlrpc} = {
@@ -331 +332 @@
 }
 
+=head2 more NAME
+
+Show url where details about package named C<NAME> can be found
+
+=cut
+
+sub more : XMLRPC {
+    my ($self, $c, $reqspec, @args) = @_;
+    my @message;
+    $reqspec->{src} = 0;
+
+    @args = @{ $c->forward('_getopt', [
+        {
+            'd=s' => \$reqspec->{distribution},
+            'v=s' => \$reqspec->{release},
+            'a=s' => \$reqspec->{arch},
+            's'   => sub { $reqspec->{src} = 1 },
+        }, @args ]) };
+
+    my $rpmlist = $c->forward('/search/byname', [ $reqspec, $args[0] ]);
+    foreach (@{ $rpmlist->{results} }) {
+        push @message, $c->uri_for('/rpms', $_) . ' // ' .
+            $c->forward('_fmt_location', [ $_ ]);
+    }
+    return $c->stash->{xmlrpc} = {
+        message => \@message,
+    }
+}
+
 =head1 AUTHOR