Changeset 270

Timestamp:

01/02/11 03:37:43 (13 years ago)

Author:

nanardon

Message:

• readd whatis command

Location:

server/trunk/web/lib/Sophie/Controller

Files:

• Chat/Cmd.pm (modified) (1 diff)
• Search/Rpm.pm (modified) (1 diff)

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

@@ -217 +217 @@
 }
 
+sub whatis : XMLRPC {
+    my ($self, $c, $reqspec, @args) = @_;
+
+    $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 $res = $c->forward('/search/rpm/description', [ $reqspec, @args ]);
+
+    if (@{ $res }) {
+        if (@{ $res } > 100) {
+            return $c->stash->{xmlrpc} = {
+                message => [ 'I have ' . @{ $res } . ' results' ],
+            };
+        } else {
+            my @names = ();
+            foreach (@{ $res }) {
+                my $info = $c->forward('/rpms/basicinfo', [ $_ ]);
+                push(@names, $info->{name});
+            }
+            my @message = 'rpm name matching `' . $args[0] . '\':';
+            while (@names) {
+                my $str = '';
+                while (length($str) < 70) {
+                    my $item = shift(@names) or last;
+                    $str .= ', ' if ($str);
+                    $str .= $item;
+                }
+                push(@message, $str);
+            }
+            return $c->stash->{xmlrpc} = {
+                message => \@message,
+            };
+        }
+    } else {
+        return $c->stash->{xmlrpc} = {
+            message => [ 'No rpm description matches this keywords' ],
+        };
+    }
+}
+
 =head2 version [-s] NAME
 

server/trunk/web/lib/Sophie/Controller/Search/Rpm.pm

@@ -212 +212 @@
 }
 
-sub description : XMLRPCPath('description') {
+sub description : Private {
+    my ($self, $c, $searchspec, @keywords) = @_;
+    return [ $c->forward('description_rpc')->get_column('pkgid')->all ];
+}
+
+sub description_rpc : XMLRPCPath('description') {
     my ($self, $c, $searchspec, @keywords) = @_;
     $searchspec ||= {};