Changeset 269


Ignore:
Timestamp:
01/02/11 03:18:39 (13 years ago)
Author:
nanardon
Message:
  • readd old functions existing in previous sophie
File:
1 edited

Legend:

Unmodified
Added
Removed
  • server/trunk/web/lib/Sophie/Controller/Chat/Cmd.pm

    r268 r269  
    487487} 
    488488 
    489 =head2 qf rpmname format 
    490  
    491 Perform an rpm -q --qf on package named C<rpmname> 
    492  
    493 =cut 
     489=head2 rpmversion NAME 
     490 
     491Show the C<rpmversion> tag of package C<NAME>. 
     492 
     493=cut 
     494 
     495sub rpmversion : XMLRPC { 
     496    my ($self, $c, $reqspec, @args) = @_; 
     497 
     498    $c->forward('qf', [ $reqspec, @args, '%{rpmversion}' ]); 
     499} 
     500 
     501=head2 rpmbuildversion NAME 
     502 
     503Is an alias for C<rpmversion> command. 
     504 
     505=cut 
     506 
     507sub rpmbuildversion : XMLRPC { 
     508    my ($self, $c, $reqspec, @args) = @_; 
     509 
     510    $c->forward('rpmversion', [ $reqspec, @args ]); 
     511} 
     512 
     513 
     514=head2 buildhost NAME 
     515 
     516Show the C<buildhost> tag of package C<NAME>. 
     517 
     518=cut 
     519 
     520sub buildhost : XMLRPC { 
     521    my ($self, $c, $reqspec, @args) = @_; 
     522 
     523    $c->forward('qf', [ $reqspec, @args, '%{buildhost}' ]); 
     524} 
     525 
     526=head2 host NAME 
     527 
     528Is an alias for C<buildhost> command. 
     529 
     530=cut 
     531 
     532sub host : XMLRPC { 
     533    my ($self, $c, $reqspec, @args) = @_; 
     534 
     535    $c->forward('host', [ $reqspec, @args ]); 
     536} 
     537 
     538=head2 h NAME 
     539 
     540Is an alias for C<buildhost> command. 
     541 
     542=cut 
     543 
     544sub h : XMLRPC { 
     545    my ($self, $c, $reqspec, @args) = @_; 
     546 
     547    $c->forward('host', [ $reqspec, @args ]); 
     548} 
     549 
     550 
     551 
     552=head2 distribution NAME 
     553 
     554Show the C<distribution> tag of package C<NAME>. 
     555 
     556=cut 
     557 
     558sub distribution : XMLRPC { 
     559    my ($self, $c, $reqspec, @args) = @_; 
     560 
     561    $c->forward('qf', [ $reqspec, @args, '%{distribution}' ]); 
     562} 
     563 
     564=head2 distrib NAME 
     565 
     566Is an alias for C<distribution> command. 
     567 
     568=cut 
     569 
     570sub distrib : XMLRPC { 
     571    my ($self, $c, $reqspec, @args) = @_; 
     572 
     573    $c->forward('distribution', [ $reqspec, @args ]); 
     574} 
     575 
     576 
     577 
     578=head2 vendor NAME 
     579 
     580Show the C<vendor> tag of package C<NAME>. 
     581 
     582=cut 
     583 
     584sub vendor : XMLRPC { 
     585    my ($self, $c, $reqspec, @args) = @_; 
     586 
     587    $c->forward('qf', [ $reqspec, @args, '%{vendor}' ]); 
     588} 
     589 
     590 
    494591 
    495592sub qf : XMLRPC { 
Note: See TracChangeset for help on using the changeset viewer.