A3C/View/LDAP.pm

package A3C::View::LDAP;

=head1 NAME

A3C::View::LDAP

=head1 DESCRIPTION

Provide LDAP interface

=cut

use strict;
use warnings;

use Jifty::View::Declare -base;
use Data::Dump qw/dump/;

template 'sync' => page {

        h1 { _('Sync school from LDAP') }

        my $action = new_action(
                class   => 'SyncOrganization',
                moniker => 'sync-organization'
        );

        form {
                render_action( $action => [ 'org_uid' ] );
                form_submit( label => _('Sync Organization') );
        };

        if ( my $users = $action->result->content('synced-users') ) {
                ol {
                        while (my $user = $users->next) {
                                li {
                                        span { $user->cn }
                                        tt { { class is 'email' } '<' . $user->mail . '>' }
                                }
                        }
                }
        }

};


template 'dump' => page {
        h1 { _('LDAP data about Schools in system') };
        my $ldap = A3C::LDAP->new;
        div {
                $ldap->search(
                        base    => 'dc=skole,dc=hr',
                        filter  => '(objectClass=hrEduOrg)',
                        sizelimit => 10,
                );
                while ( my $entry = $ldap->current_search->shift_entry ) {
                        #warn $entry->dump;
                        ul {
                                foreach my $attr ( $entry->attributes ) {
                                        li {
                                                tt { $attr }
                                                span { dump( $entry->get_value( $attr ) ) }
                                        }
                                }
                        }
                }
        }
};


1	package A3C::View::LDAP;
2
3	=head1 NAME
4
5	A3C::View::LDAP
6
7	=head1 DESCRIPTION
8
9	Provide LDAP interface
10
11	=cut
12
13	use strict;
14	use warnings;
15
16	use Jifty::View::Declare -base;
17	use Data::Dump qw/dump/;
18
19	template 'sync' => page {
20
21	h1 { _('Sync school from LDAP') }
22
23	my $action = new_action(
24	class => 'SyncOrganization',
25	moniker => 'sync-organization'
26	);
27
28	form {
29	render_action( $action => [ 'org_uid' ] );
30	form_submit( label => _('Sync Organization') );
31	};
32
33	if ( my $users = $action->result->content('synced-users') ) {
34	ol {
35	while (my $user = $users->next) {
36	li {
37	span { $user->cn }
38	tt { { class is 'email' } '<' . $user->mail . '>' }
39	}
40	}
41	}
42	}
43
44	};
45
46
47	template 'dump' => page {
48	h1 { _('LDAP data about Schools in system') };
49	my $ldap = A3C::LDAP->new;
50	div {
51	$ldap->search(
52	base => 'dc=skole,dc=hr',
53	filter => '(objectClass=hrEduOrg)',
54	sizelimit => 10,
55	);
56	while ( my $entry = $ldap->current_search->shift_entry ) {
57	#warn $entry->dump;
58	ul {
59	foreach my $attr ( $entry->attributes ) {
60	li {
61	tt { $attr }
62	span { dump( $entry->get_value( $attr ) ) }
63	}
64	}
65	}
66	}
67	}
68	};
69
70
71