A3C/Action/SearchLDAP.pm

use strict;
use warnings;

=head1 NAME

A3C::Action::SearchLDAP

=cut

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

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

        param base =>
                label is _('LDAP base'),
                default is 'dc=skole,dc=hr',
                is mandatory;
        
        param filter =>
                label is _('LDAP filter'),
                default is '(objectClass=hrEduOrg)',
                is mandatory;

        param sizelimit =>
                label is _('Maximum results'),
                default is 10,
                available are [ 10, 50, 100, 500, 1000 ],
                render as 'Select';

};

use A3C::LDAP;
use Data::Dump qw/dump/;

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 $ldap = A3C::LDAP->new;
                $ldap->search(
                        base => $self->argument_value( 'base' ),
                        filter => $self->argument_value( 'filter' ),
                        sizelimit => $self->argument_value( 'sizelimit' ),
                );
                $self->result->message( _('Found %1 LDAP entries', scalar $ldap->current_search->entries ) );
                $self->result->content( 'current_search' => $ldap->current_search );
#       } else {
#               $self->result->error();
        }

    return 1;
}

1;

1	use strict;
2	use warnings;
3
4	=head1 NAME
5
6	A3C::Action::SearchLDAP
7
8	=cut
9
10	package A3C::Action::SearchLDAP;
11	use base qw/A3C::Action Jifty::Action/;
12
13	use Jifty::Param::Schema;
14	use Jifty::Action schema {
15
16	param base =>
17	label is _('LDAP base'),
18	default is 'dc=skole,dc=hr',
19	is mandatory;
20
21	param filter =>
22	label is _('LDAP filter'),
23	default is '(objectClass=hrEduOrg)',
24	is mandatory;
25
26	param sizelimit =>
27	label is _('Maximum results'),
28	default is 10,
29	available are [ 10, 50, 100, 500, 1000 ],
30	render as 'Select';
31
32	};
33
34	use A3C::LDAP;
35	use Data::Dump qw/dump/;
36
37	sub sticky_on_success { 1 }
38	sub sticky_on_failure { 1 }
39
40	=head2 take_action
41
42	=cut
43
44	sub take_action {
45	my $self = shift;
46
47	if ( $self->result->success ) {
48	my $ldap = A3C::LDAP->new;
49	$ldap->search(
50	base => $self->argument_value( 'base' ),
51	filter => $self->argument_value( 'filter' ),
52	sizelimit => $self->argument_value( 'sizelimit' ),
53	);
54	$self->result->message( _('Found %1 LDAP entries', scalar $ldap->current_search->entries ) );
55	$self->result->content( 'current_search' => $ldap->current_search );
56	# } else {
57	# $self->result->error();
58	}
59
60	return 1;
61	}
62
63	1;
64