source: server/trunk/web/lib/Sophie/Controller/0Explorer.pm @ 43

package Sophie::Controller::0Explorer;
use Moose;
use namespace::autoclean;

BEGIN {extends 'Catalyst::Controller'; }

=head1 NAME

Sophie::Controller::0Explorer - Catalyst Controller

=head1 DESCRIPTION

Catalyst Controller.

=head1 METHODS

=cut


=head2 index

=cut

sub dir :Local {
    my ( $self, $c, @args ) = @_;
    my $dir = join('/', map { "$_" } grep { $_ } @args);
    $c->stash->{path} = $dir;
    $c->stash->{explorerurl} = '/explorer' . ($dir ? "/$dir" : '');

    my $rsdist = $c->forward('/search/distrib_search', [ $c->session->{__explorer} ]);
    $c->stash->{xmlrpc} = [ $c->model('Base')
      ->resultset('Files')
      ->search(
          {
              dirname => '/' . ($dir ? "$dir/" : ''),
              pkgid => { IN => $rsdist->get_column('pkgid')->as_query, },
          },
          {
              order_by => [ 'basename' ],
              group_by => [ 'basename' ], 
              select => [ 'basename' ],
          }
      )->get_column('basename')->all ];
}

sub file :Local {
    my ( $self, $c, @args ) = @_;
    my $basename = pop(@args);
    my $dir = join('/', map { "$_" } grep { $_ } @args);
    $c->stash->{path} = $dir;
    $c->stash->{explorerurl} = '/explorer' . ($dir ? "/$dir" : '');

    my $rsdist = $c->forward('/search/distrib_search', [ $c->session->{__explorer} ]);

    $c->stash->{xmlrpc} = [ 
        map { { pkgid => $_->get_column('pkgid') } }
        $c->model('Base')
      ->resultset('Files')
      ->search({
              dirname => '/' . ($dir ? "$dir/" : ''), basename => $basename,
              pkgid => { IN => $rsdist->get_column('pkgid')->as_query, },
          },
          { 
              'select' => [
                  'contents IS NULL as has_contents', 'pkgid'
              ],
              as => [ qw(has_content pkgid) ],
              order_by => 'pkgid' 
          }
      )->all ];
}

=head1 AUTHOR

Olivier Thauvin

=head1 LICENSE

This library is free software. You can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

__PACKAGE__->meta->make_immutable;

1;