Changeset 137

Timestamp:

12/18/10 18:11:06 (13 years ago)

Author:

nanardon

Message:

• factorize code

File:

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

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

@@ -185 +185 @@
     my ($self, $c, $reqspec, @args) = @_;
 
+    $c->forward('qf', [ $reqspec, @args, '%{packager}' ]);
+}
+
+=head2 p
+
+Is an alias for C<packager> command.
+
+=cut
+
+sub p : XMLRPC {
+    my ($self, $c, @args) = @_;
+    $c->forward('packager', [ @args ]);
+}
+
+=head2 arch [-s] NAME
+
+Show the architecture of package C<NAME>.
+
+=cut 
+
+sub arch : XMLRPC {
+    my ($self, $c, $reqspec, @args) = @_;
+
+    $c->forward('qf', [ $reqspec, @args, '%{arch}' ]);
+}
+
+=head2 a
+
+Is an alias to C<arch> command.
+
+=cut 
+
+sub a : XMLRPC {
+    my ($self, $c, @args) = @_;
+    $c->forward('arch', [ @args ]);
+}
+
+=head2 group [-s] NAME
+
+Show the group of package C<NAME>.
+
+=cut 
+
+sub group : XMLRPC {
+    my ($self, $c, $reqspec, @args) = @_;
+
+    $c->forward('qf', [ $reqspec, @args, '%{group}' ]);
+}
+
+=head2 g
+
+Is an alias to C<group> command.
+
+=cut 
+
+sub g : XMLRPC {
+    my ($self, $c, @args) = @_;
+    $c->forward('group', [ @args ]);
+}
+
+=head2 license [-s] NAME
+
+Show the license of package C<NAME>.
+
+=cut 
+
+sub license : XMLRPC {
+    my ($self, $c, $reqspec, @args) = @_;
+
+    $c->forward('qf', [ $reqspec, @args, '%{license}' ]);
+}
+
+=head2 l
+
+Is an alias to C<license> command.
+
+=cut 
+
+sub l : XMLRPC {
+    my ($self, $c, @args) = @_;
+    $c->forward('license', [ @args ]);
+}
+
+=head2 buildtime [-s] NAME
+
+Show the build time of package C<NAME>.
+
+=cut
+
+sub buildtime : XMLRPC {
+    my ($self, $c, $reqspec, @args) = @_;
+
+    $c->forward('qf', [ $reqspec, @args, '%{buildtime:date}' ]);
+}
+
+=head2 builddate
+
+Is an alias for C<buildtime> command.
+
+=cut
+
+sub builddate : XMLRPC {
+    my ($self, $c, @args) = @_;
+    $c->forward('buildtime', [ @args ]);
+}
+
+=head2 builddate
+
+Is an alias for C<buildtime> command.
+
+=cut
+
+sub b : XMLRPC {
+    my ($self, $c, @args) = @_;
+    $c->forward('builddate', [ @args ]);
+}
+
+=head2 qf rpmname format
+
+Perform an rpm -q --qf on package named C<rpmname>
+
+=cut
+
+sub qf : XMLRPC {
+    my ($self, $c, $reqspec, @args) = @_;
     my @message;
     $reqspec->{src} = 0;
@@ -198 +323 @@
     my $rpmlist = $c->forward('/search/byname', [ $reqspec, $args[0] ]);
     foreach (@{ $rpmlist->{results} }) {
-        my $info = $c->forward('/rpms/queryformat', [ $_, '%{packager}' ]);
-        push @message, $info . ' // ' .
-            $c->forward('_fmt_location', [ $_ ]);
+        my $info = $c->forward('/rpms/queryformat', [ $_, $args[1] ]);
+        push @message, $info;
     }
     return $c->stash->{xmlrpc} = {
@@ -207 +331 @@
 }
 
-=head2 p
-
-Is an alias for C<packager> command.
-
-=cut
-
-sub p : XMLRPC {
-    my ($self, $c, @args) = @_;
-    $c->forward('packager', [ @args ]);
-}
-
-=head2 arch [-s] NAME
-
-Show the architecture of package C<NAME>.
-
-=cut 
-
-sub arch : 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} }) {
-        my $info = $c->forward('/rpms/queryformat', [ $_, '%{arch}' ]);
-        push @message, $info . ' // ' .
-            $c->forward('_fmt_location', [ $_ ]);
-    }
-    return $c->stash->{xmlrpc} = {
-        message => \@message,
-    }
-}
-
-=head2 a
-
-Is an alias to C<arch> command.
-
-=cut 
-
-sub a : XMLRPC {
-    my ($self, $c, @args) = @_;
-    $c->forward('arch', [ @args ]);
-}
-
-=head2 group [-s] NAME
-
-Show the group of package C<NAME>.
-
-=cut 
-
-sub group : 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} }) {
-        my $info = $c->forward('/rpms/queryformat', [ $_, '%{group}' ]);
-        push @message, $info . ' // ' .
-            $c->forward('_fmt_location', [ $_ ]);
-    }
-    return $c->stash->{xmlrpc} = {
-        message => \@message,
-    }
-}
-
-=head2 g
-
-Is an alias to C<group> command.
-
-=cut 
-
-sub g : XMLRPC {
-    my ($self, $c, @args) = @_;
-    $c->forward('group', [ @args ]);
-}
-
-=head2 license [-s] NAME
-
-Show the license of package C<NAME>.
-
-=cut 
-
-sub group : 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} }) {
-        my $info = $c->forward('/rpms/queryformat', [ $_, '%{license}' ]);
-        push @message, $info . ' // ' .
-            $c->forward('_fmt_location', [ $_ ]);
-    }
-    return $c->stash->{xmlrpc} = {
-        message => \@message,
-    }
-}
-
-=head2 l
-
-Is an alias to C<license> command.
-
-=cut 
-
-sub l : XMLRPC {
-    my ($self, $c, @args) = @_;
-    $c->forward('license', [ @args ]);
-}
-
-=head2 buildtime [-s] NAME
-
-Show the build time of package C<NAME>.
-
-=cut
-
-sub buildtime : 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} }) {
-        my $info = $c->forward('/rpms/queryformat', [ $_, '%{buildtime:date}' ]);
-        push @message, $info . ' // ' .
-            $c->forward('_fmt_location', [ $_ ]);
-    }
-    return $c->stash->{xmlrpc} = {
-        message => \@message,
-    }
-}
-
-=head2 builddate
-
-Is an alias for C<buildtime> command.
-
-=cut
-
-sub builddate : XMLRPC {
-    my ($self, $c, @args) = @_;
-    $c->forward('buildtime', [ @args ]);
-}
-
-=head2 builddate
-
-Is an alias for C<buildtime> command.
-
-=cut
-
-sub b : XMLRPC {
-    my ($self, $c, @args) = @_;
-    $c->forward('builddate', [ @args ]);
-}
-
-=head2 qf rpmname format
-
-Perform an rpm -q --qf on package named C<rpmname>
-
-=cut
-
-sub qf : 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} }) {
-        my $info = $c->forward('/rpms/queryformat', [ $_, $args[1] ]);
-        push @message, $info;
-    }
-    return $c->stash->{xmlrpc} = {
-        message => \@message,
-    }
-}
-
 =head1 AUTHOR