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 . '>' }
                                }
                        }
                }
        }

};

use Encode qw/decode/;

template 'search' => page {
        h1 { _('LDAP data about Schools in system') };

        my $action = new_action(
                class   => 'SearchLDAP',
                moniker => 'search-ldap'
        );

        form {
                render_action( $action => [ 'base', 'filter', 'sizelimit' ] );
                form_submit( label => _('Search LDAP') );
        };

        if ( my $search = $action->result->content( 'current_search' ) ) {
                div {
                        while ( my $entry = $search->shift_entry ) {
                                #warn $entry->dump;
                                ul {
                                        foreach my $attr ( $entry->attributes ) {
                                                li {
                                                        tt { $attr }
                                                        my $vals = decode('utf-8', join('<b>&bull;</b>', $entry->get_value( $attr ) ));
                                                        span { outs_raw( $vals ) }
                                                }
                                        }
                                }
                        }
                }
        }
};


1	dpavlin	209	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	dpavlin	231	use Encode qw/decode/;
47	dpavlin	209
48	dpavlin	231	template 'search' => page {
49	dpavlin	209	h1 { _('LDAP data about Schools in system') };
50	dpavlin	231
51			my $action = new_action(
52			class => 'SearchLDAP',
53			moniker => 'search-ldap'
54			);
55
56			form {
57			render_action( $action => [ 'base', 'filter', 'sizelimit' ] );
58			form_submit( label => _('Search LDAP') );
59			};
60
61			if ( my $search = $action->result->content( 'current_search' ) ) {
62			div {
63			while ( my $entry = $search->shift_entry ) {
64			#warn $entry->dump;
65			ul {
66			foreach my $attr ( $entry->attributes ) {
67			li {
68			tt { $attr }
69			my $vals = decode('utf-8', join('<b>•</b>', $entry->get_value( $attr ) ));
70			span { outs_raw( $vals ) }
71			}
72	dpavlin	209	}
73			}
74			}
75			}
76			}
77			};
78
79
80