A3C/Action/SyncOrganization.pm

use strict;
use warnings;

=head1 NAME

A3C::Action::SyncOrganization

=cut

package A3C::Action::SyncOrganization;
use base qw/A3C::Action Jifty::Action/;

use A3C::LDAP;

use Jifty::Param::Schema;
use Jifty::Action schema {

        param cn =>
                label is _('Organization'),
                available are defer {
                        my $coll = A3C::Model::OrganizationCollection->new;
                        # unlimit, order_by works, other way around doesn't!
                        $coll->unlimit;
                        $coll->order_by( column => 'cn', order => 'ASC' );
                        [{
                                display_from => 'name',
                                value_from => 'cn',
                                collection => $coll,
                        }];
                },
                render as 'Select';

};

sub sticky_on_success { 1 }
sub sticky_on_failure { 1 }

=head2 take_action

=cut

sub take_action {
    my $self = shift;

        if ( $self->result->success ) {

                my $organization = A3C::Model::Organization->new;
                my $cn = $self->argument_value( 'cn' );
                $organization->load_by_cols( cn => $cn ) or die "can't load organization";

                my $ldap = A3C::LDAP->new;
                my $coll = $ldap->collection( 'User', filter => "(HrEduPersonHomeOrg=$cn)" );

                $self->result->content( 'synced-users' => $coll );

                $self->result->message( sprintf('Imported %d users from %s (%s)', $coll->count, $organization->name, $cn) );

#       } else {
#               $self->result->error();
        }

    return 1;
}

1;

1	dpavlin	55	use strict;
2			use warnings;
3
4			=head1 NAME
5
6			A3C::Action::SyncOrganization
7
8			=cut
9
10			package A3C::Action::SyncOrganization;
11			use base qw/A3C::Action Jifty::Action/;
12
13			use A3C::LDAP;
14
15			use Jifty::Param::Schema;
16			use Jifty::Action schema {
17
18			param cn =>
19			label is _('Organization'),
20			available are defer {
21			my $coll = A3C::Model::OrganizationCollection->new;
22			# unlimit, order_by works, other way around doesn't!
23			$coll->unlimit;
24			$coll->order_by( column => 'cn', order => 'ASC' );
25			[{
26			display_from => 'name',
27			value_from => 'cn',
28			collection => $coll,
29			}];
30			},
31			render as 'Select';
32
33			};
34
35			sub sticky_on_success { 1 }
36			sub sticky_on_failure { 1 }
37
38			=head2 take_action
39
40			=cut
41
42			sub take_action {
43			my $self = shift;
44
45			if ( $self->result->success ) {
46
47			my $organization = A3C::Model::Organization->new;
48			my $cn = $self->argument_value( 'cn' );
49			$organization->load_by_cols( cn => $cn ) or die "can't load organization";
50
51			my $ldap = A3C::LDAP->new;
52			my $coll = $ldap->collection( 'User', filter => "(HrEduPersonHomeOrg=$cn)" );
53
54			$self->result->content( 'synced-users' => $coll );
55
56			$self->result->message( sprintf('Imported %d users from %s (%s)', $coll->count, $organization->name, $cn) );
57
58			# } else {
59			# $self->result->error();
60			}
61
62			return 1;
63			}
64
65			1;
66