Changeset 159

Timestamp:

12/21/10 03:51:17 (13 years ago)

Author:

nanardon

Message:

• add Chat/findfile()

Location:

server/trunk/web

Files:

• lib/Sophie/Controller/Chat/Cmd.pm (modified) (1 diff)
• t/controller_Chat-Cmd.t (modified) (1 diff)

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

@@ -512 +512 @@
 }
 
+=head2 findfile
+
+=cut
+
+sub findfile : 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},
+        }, @args ]) };
+
+    if (!$c->forward('/distrib/exists', [ $reqspec ])) {
+        return $c->stash->{xmlrpc} = {
+            message => [ "I don't have such distribution" ]
+        };
+    }
+
+    my $rpmlist = $c->forward('/search/rpm/byfile', [ $reqspec, $args[0] ]);
+    if (!@{ $rpmlist }) {
+        return $c->stash->{xmlrpc} = {
+            message => [ "Sorry, no file $args[0] found" ],
+        }
+    } elsif (@{ $rpmlist } > 20) {
+        foreach (@{ $rpmlist }) {
+            my $info = $c->forward('/rpms/basicinfo', [ $_ ]);
+            push @message, $info->{name} . ' // ' .
+                $c->forward('_fmt_location', [ $reqspec, $_ ]);
+        }
+        return $c->stash->{xmlrpc} = {
+            message => \@message,
+        }
+    } else {
+        my %list;
+        foreach (@{ $rpmlist }) {
+            my $info = $c->forward('/rpms/basicinfo', [ $_ ]);
+            $list{$info->{name}} = 1;
+        }
+        return $c->stash->{xmlrpc} = {
+            message => [ join(', ', sort keys %list) ],
+        };
+    }
+}
+
 =head1 AUTHOR
 

server/trunk/web/t/controller_Chat-Cmd.t

@@ -15 +15 @@
 }
 
+ok( xmlrequest_ok("chat.cmd.findfile", {}, "/bin/rpm"),
+    "XML::RPC chat.cmd.findfile"
+);
+
 done_testing();