source: LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Aliases.pm @ 929

package LATMOS::Accounts::Web::Controller::Aliases;

use strict;
use warnings;
use base 'Catalyst::Controller';

=head1 NAME

LATMOS::Accounts::Web::Controller::Aliases - Catalyst Controller

=head1 DESCRIPTION

Catalyst Controller.

=head1 METHODS

=cut


=head2 index

=cut

sub index :Path :Args(0) {
    my ( $self, $c ) = @_;

    my $db = $c->model('Accounts')->db;
    my @al = $c->req->param('al');
    my @name = $c->req->param('name');
    my @forward = $c->req->param('forward');
    $c->stash->{page}{title} = "Gestion des alias";
    foreach my $idx (0 .. scalar(@name) - 1) {

        if ($c->req->param('del' . ($idx+1))) {
            $db->delete_object('aliases', $al[$idx]);
        } elsif ($al[$idx] ne $name[$idx]) {
            # delete old, create new
            $db->delete_c_object('aliases', $al[$idx]) if($al[$idx]);
            $db->create_c_object('aliases', $name[$idx],
                forward => [ split(/\s*,\s*/, $forward[$idx]) ],
            );
        } else {
            my $obj = $db->get_object('aliases', $al[$idx]);
            $obj->set_c_fields(
                'forward' => [ split(/\s*,\s*/, $forward[$idx]) ],
            );
        }
    }

    $db->commit;
}

sub default :LocalPath {
    my ( $self, $c, undef, $alias) = @_;

    my $db = $c->model('Accounts')->db;
    if ($c->req->param('delete')) {
        $db->delete_object('aliases', $alias);
        $db->commit;
        $c->res->redirect($c->uri_for('/aliases'));
        return;
    }
    my $oalias = $db->get_object('aliases', $alias);
    $c->stash->{aliases} = $oalias;
    $c->stash->{page}{title} = "Gestion des alias";

    $c->stash->{form} = $c->model('AttrForms', 'aliases', $oalias);
    $c->stash->{form}->set_attrs;
}

=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

1;