/usr/local/CPAN/Arepa/Arepa/Web/Repository.pm

• package Arepa::Web::Repository
  • index
  • sync
• EOF

package Arepa::Web::Repository;

use strict;
use warnings;

use base 'Arepa::Web::Base';

use Parse::Debian::PackageDesc;
use Arepa::Config;
use Arepa::Repository;
use Arepa::BuilderFarm;

sub index {
    my ($self) = @_;

    my $repository = Arepa::Repository->new($self->config_path);
    my $pdb = Arepa::PackageDb->new($self->config->get_key('package_db'));

    my %packages = $repository->get_package_list;
    my %comments = ();
    foreach my $pkg (keys %packages) {
        foreach my $comp (keys %{$packages{$pkg}}) {
            foreach my $version (keys %{$packages{$pkg}->{$comp}}) {
                if (grep { $_ eq 'source' }
                         @{$packages{$pkg}->{$comp}->{$version}}) {
                    my $id = $pdb->get_source_package_id($pkg, $version);
                    my %source_pkg = $pdb->get_source_package_by_id($id);
                    $comments{$pkg}->{$version} = $source_pkg{comments};
                }
            }
        }
    }

    $self->show_view({ packages => \%packages,
                       comments => \%comments });
}

sub sync {
    my ($self) = @_;

    if ($self->config->key_exists('repository:remote_path')) {
        my $cmd = "sudo -H -u arepa-master arepa sync";
        if (system("$cmd >/dev/null") != 0) {
            $self->_add_error("Couldn't synchronize the repository with the command '$cmd'");
        }
    }
    $self->redirect_to('home');
}

1;