lib/A3C/View.pm

package A3C::View;

use strict;
use warnings;

use Jifty::View::Declare -base;
use A3C::LDAP;

use Data::Dump qw/dump/;


template 'ldap' => 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 ) ) }
                                        }
                                }
                        }
                }
        }
};

template 'people' => page {
        
        h1 { _('Find people') }

        my $action = new_action(
                class   => 'SearchPerson',
                moniker => 'search-users',
                sticky_on_success => 1,
                sticky_on_failure => 1,
        );


        form {
                render_action( $action => [ 'uid_contains', 'cn_contains' ] );
                form_submit( label => _('Find someone') );
        };

#       warn dump( $action->result->content );

        if ( my $search = $action->result->content('search') ) {
                div { sprintf(_('Found %d results'), $search->count ) }
                ol {
                        while (my $user = $search->next) {
                                li {
                                        span { $user->cn }
                                        tt { $user->uid }
                                }
                        }
                }
        }

};

template 'sync' => page {

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

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

        form {
                render_action( $action => [ 'cn' ] );
                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 . '>' }
                                }
                        }
                }
        }

};
1	dpavlin	37	package A3C::View;
2
3			use strict;
4			use warnings;
5
6			use Jifty::View::Declare -base;
7			use A3C::LDAP;
8
9			use Data::Dump qw/dump/;
10
11
12	dpavlin	71	template 'ldap' => page {
13			h1 { _('LDAP data about Schools in system') };
14	dpavlin	40	my $ldap = A3C::LDAP->new;
15	dpavlin	37	div {
16	dpavlin	40	$ldap->search(
17	dpavlin	37	base => 'dc=skole,dc=hr',
18			filter => '(objectClass=hrEduOrg)',
19			sizelimit => 10,
20			);
21	dpavlin	41	while ( my $entry = $ldap->current_search->shift_entry ) {
22	dpavlin	37	#warn $entry->dump;
23			ul {
24			foreach my $attr ( $entry->attributes ) {
25			li {
26			tt { $attr }
27	dpavlin	39	span { dump( $entry->get_value( $attr ) ) }
28	dpavlin	37	}
29			}
30			}
31			}
32			}
33			};
34
35	dpavlin	71	template 'people' => page {
36
37			h1 { _('Find people') }
38	dpavlin	49
39			my $action = new_action(
40	dpavlin	71	class => 'SearchPerson',
41			moniker => 'search-users',
42			sticky_on_success => 1,
43			sticky_on_failure => 1,
44	dpavlin	49	);
45
46	dpavlin	71
47	dpavlin	49	form {
48			render_action( $action => [ 'uid_contains', 'cn_contains' ] );
49			form_submit( label => _('Find someone') );
50			};
51
52			# warn dump( $action->result->content );
53
54			if ( my $search = $action->result->content('search') ) {
55			div { sprintf(_('Found %d results'), $search->count ) }
56			ol {
57			while (my $user = $search->next) {
58			li {
59			span { $user->cn }
60			tt { $user->uid }
61			}
62			}
63			}
64			}
65
66			};
67
68	dpavlin	71	template 'sync' => page {
69	dpavlin	55
70	dpavlin	71	h1 { _('Sync school from LDAP') }
71
72	dpavlin	55	my $action = new_action(
73			class => 'SyncOrganization',
74			moniker => 'sync-organization'
75			);
76
77			form {
78			render_action( $action => [ 'cn' ] );
79			form_submit( label => _('Sync Organization') );
80			};
81
82			if ( my $users = $action->result->content('synced-users') ) {
83			ol {
84			while (my $user = $users->next) {
85			li {
86			span { $user->cn }
87	dpavlin	57	tt { { class is 'email' } '<' . $user->mail . '>' }
88	dpavlin	55	}
89			}
90			}
91			}
92
93			};