Changeset 205 for server

Timestamp:

12/27/10 20:50:51 (13 years ago)

Author:

nanardon

Message:

• add what functions to bot

File:

• server/trunk/web/lib/Sophie/Controller/Chat/Cmd.pm (modified) (1 diff)

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

@@ -563 +563 @@
 }
 
+sub what : XMLRPC {
+    my ($self, $c, $reqspec, @args) = @_;
+        
+    @args = @{ $c->forward('_getopt', [
+        {
+            'd=s' => \$reqspec->{distribution},
+            'v=s' => \$reqspec->{release},
+            'a=s' => \$reqspec->{arch},
+            's'   => \$reqspec->{src},
+        }, @args ]) };
+
+    my ($type, $depname, $sense, $evr) = @args;
+
+    my $deptype = uc(substr($type, 0, 1));
+    my $rpmlist = $c->forward('/search/rpm/bydep',
+        [ $reqspec, $deptype, $depname, $sense, $evr ]);
+
+    if (@{ $rpmlist } < 20) {
+        my @name;
+        foreach (@{ $rpmlist }) {
+            my $info = $c->forward('/rpms/basicinfo', [ $_ ]);
+            push @name, $info->{name} . '-' . $info->{evr};
+        }
+        return $c->stash->{xmlrpc} = {
+            message => [
+                "Package requiring $depname" . ($evr ? " $sense $evr" : '') .
+                ':', 
+                join(' ', @name),
+            ],
+        }
+    } else {
+        return $c->stash->{xmlrpc} = {
+            message => [ 'Too many result' ],
+        };
+    }
+
+}
+
 =head2 maint RPMNAME