File Coverage

blib/lib/iRedAdmin/Admin.pm

Criterion	Covered	Total	%
statement	3	51	5.8
branch	0	32	0.0
condition			n/a
subroutine	1	8	12.5
pod	6	6	100.0
total	10	97	10.3

package iRedAdmin::Admin;

use Moo;

has 'ref' => (is => 'ro');

sub Add {
    my ($self, %data) = @_;

    if (Email::Valid->address($data{email})) {
        $self->ref->mech->get($self->ref->_address . '/create/admin');
        $self->ref->mech->submit_form(
            form_number => 1,
            fields => {
                mail => $data{email},
                newpw => $data{password},
                confirmpw => $data{password},
                cn => $data{name},
                preferredLanguage => $self->ref->_lang($data{lang})
            }
        );

        my $success = $self->ref->_success;
        $self->Add(%data) if $success == 2;
        return $success ? 1 : 0;
    }else{
        $self->ref->set_error('Email is invalid!');
        return 0;
    }
}

sub Edit {
    my ($self, %data) = @_;

    if (Email::Valid->address($data{email})) {
        $self->ref->mech->get($self->ref->_address . '/profile/admin/general/' . $data{email});

        my %form;
        $form{cn} = $data{name} if exists $data{name};
        $form{preferredLanguage} = $self->ref->_lang($data{lang}) if $data{lang};
        if (exists $data{enable}) {
            $form{accountStatus} = 'active' if $data{enable};
            $self->ref->mech->untick('accountStatus', 'active') unless $data{enable};
        }
        $self->ref->mech->submit_form(
            form_number => 1,
            fields => \%form
        );

        my $success = $self->ref->_success;
        $self->Edit(%data) if $success == 2;
        return $success ? 1 : 0;
    }else{
        $self->ref->set_error('Email is invalid!');
        return 0;
    }
}

sub Password {
    my ($self, %data) = @_;

    if (Email::Valid->address($data{email})) {
        $self->ref->mech->get($self->ref->_address . '/profile/admin/general/' . $data{email});

        $self->ref->mech->submit_form(
            form_number => 2,
            fields => {
                newpw => $data{password},
                confirmpw => $data{password}
            }
        );

        my $success = $self->ref->_success;
        $self->Password(%data) if $success == 2;
        return $success ? 1 : 0;
    }else{
        $self->ref->set_error('Email is invalid!');
        return 0;
    }
}

sub Enable {
    my ($self, @email) = @_;

    $self->_apply('enable', [@email]);
}

sub Disable {
    my ($self, @email) = @_;

    $self->_apply('disable', [@email]);
}

sub Delete {
    my ($self, @email) = @_;

    $self->_apply('delete', [@email]);
}

sub _apply {
    my ($self, $type, @email) = @_;

    $self->ref->mech->get($self->ref->_address . '/admins');

    my %form;
    $form{action} = $type;
    $form{mail} = \@email;
    $self->ref->mech->submit_form(
        form_number => 1,
        fields => \%form
    );

    my $success = $self->ref->_success;
    $self->_apply($type, @email) if $success == 2;
    return $success ? 1 : 0;

}

1;

__END__