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

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}, 1 ]);
    my %uniq;
    foreach (
        $c->model('Base')
        ->resultset('Files')
        ->search(
            {
                dirname => '/' . ($dir ? "$dir/" : ''),
                ($rsdist 
                    ? (pkgid => { IN => $rsdist->get_column('pkgid')->as_query, },)
                    : ()),
                ($c->req->param('filename')
                    ? ( basename => { LIKE => $c->req->param('filename') . '%' } )
                    : ()),
            },
            {
                #order_by => [ 'basename' ],
                #group_by => [ 'basename' ], 
                select => [ 'basename' ],
            }
        )->get_column('basename')->all) {
        $uniq{$_} = 1;
    }
    $c->stash->{xmlrpc} = [ sort keys %uniq ]; 
}

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}, 1 ]);

    my @col = qw(dirname basename md5 size pkgid count);
    $c->stash->{xmlrpc} = [ 
        map { {
                $_->get_columns
            } }
        $c->model('Base')
      ->resultset('Files')
      ->search({
              dirname => '/' . ($dir ? "$dir/" : ''), basename => $basename,
              ($rsdist 
                ? (pkgid => { IN => $rsdist->get_column('pkgid')->as_query, },)
                : ())
          },
          { 
              'select' => [ 'contents is NOT NULL as has_content', 'rpmfilesmode(mode) as perm', @col, '"group"',
                  '"user"' ],
              as => [ qw(has_content perm), @col, 'group', 'user' ],
              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;