Changeset 138 for server/trunk/web/lib
- Timestamp:
- 12/18/10 18:24:48 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
server/trunk/web/lib/Sophie/Controller/Chat/Cmd.pm
r137 r138 324 324 foreach (@{ $rpmlist->{results} }) { 325 325 my $info = $c->forward('/rpms/queryformat', [ $_, $args[1] ]); 326 push @message, $info; 326 push @message, $info . ' // ' . 327 $c->forward('_fmt_location', [ $_ ]); 327 328 } 328 329 return $c->stash->{xmlrpc} = { … … 331 332 } 332 333 334 =head2 more NAME 335 336 Show url where details about package named C<NAME> can be found 337 338 =cut 339 340 sub more : XMLRPC { 341 my ($self, $c, $reqspec, @args) = @_; 342 my @message; 343 $reqspec->{src} = 0; 344 345 @args = @{ $c->forward('_getopt', [ 346 { 347 'd=s' => \$reqspec->{distribution}, 348 'v=s' => \$reqspec->{release}, 349 'a=s' => \$reqspec->{arch}, 350 's' => sub { $reqspec->{src} = 1 }, 351 }, @args ]) }; 352 353 my $rpmlist = $c->forward('/search/byname', [ $reqspec, $args[0] ]); 354 foreach (@{ $rpmlist->{results} }) { 355 push @message, $c->uri_for('/rpms', $_) . ' // ' . 356 $c->forward('_fmt_location', [ $_ ]); 357 } 358 return $c->stash->{xmlrpc} = { 359 message => \@message, 360 } 361 } 362 333 363 =head1 AUTHOR 334 364
Note: See TracChangeset
for help on using the changeset viewer.