Changeset 269
- Timestamp:
- 01/02/11 03:18:39 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
server/trunk/web/lib/Sophie/Controller/Chat/Cmd.pm
r268 r269 487 487 } 488 488 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 491 Show the C<rpmversion> tag of package C<NAME>. 492 493 =cut 494 495 sub rpmversion : XMLRPC { 496 my ($self, $c, $reqspec, @args) = @_; 497 498 $c->forward('qf', [ $reqspec, @args, '%{rpmversion}' ]); 499 } 500 501 =head2 rpmbuildversion NAME 502 503 Is an alias for C<rpmversion> command. 504 505 =cut 506 507 sub rpmbuildversion : XMLRPC { 508 my ($self, $c, $reqspec, @args) = @_; 509 510 $c->forward('rpmversion', [ $reqspec, @args ]); 511 } 512 513 514 =head2 buildhost NAME 515 516 Show the C<buildhost> tag of package C<NAME>. 517 518 =cut 519 520 sub buildhost : XMLRPC { 521 my ($self, $c, $reqspec, @args) = @_; 522 523 $c->forward('qf', [ $reqspec, @args, '%{buildhost}' ]); 524 } 525 526 =head2 host NAME 527 528 Is an alias for C<buildhost> command. 529 530 =cut 531 532 sub host : XMLRPC { 533 my ($self, $c, $reqspec, @args) = @_; 534 535 $c->forward('host', [ $reqspec, @args ]); 536 } 537 538 =head2 h NAME 539 540 Is an alias for C<buildhost> command. 541 542 =cut 543 544 sub h : XMLRPC { 545 my ($self, $c, $reqspec, @args) = @_; 546 547 $c->forward('host', [ $reqspec, @args ]); 548 } 549 550 551 552 =head2 distribution NAME 553 554 Show the C<distribution> tag of package C<NAME>. 555 556 =cut 557 558 sub distribution : XMLRPC { 559 my ($self, $c, $reqspec, @args) = @_; 560 561 $c->forward('qf', [ $reqspec, @args, '%{distribution}' ]); 562 } 563 564 =head2 distrib NAME 565 566 Is an alias for C<distribution> command. 567 568 =cut 569 570 sub distrib : XMLRPC { 571 my ($self, $c, $reqspec, @args) = @_; 572 573 $c->forward('distribution', [ $reqspec, @args ]); 574 } 575 576 577 578 =head2 vendor NAME 579 580 Show the C<vendor> tag of package C<NAME>. 581 582 =cut 583 584 sub vendor : XMLRPC { 585 my ($self, $c, $reqspec, @args) = @_; 586 587 $c->forward('qf', [ $reqspec, @args, '%{vendor}' ]); 588 } 589 590 494 591 495 592 sub qf : XMLRPC {
Note: See TracChangeset
for help on using the changeset viewer.