lib/A3C/View.pm

package A3C::View;

use strict;
use warnings;

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

use Data::Dump qw/dump/;

template '/' => page {

        h1 { _('Statistics') }

        my $orgs = A3C::Model::OrganizationCollection->new;
        $orgs->unlimit;

        dt { _('Number of schools in system') }
        dd { $orgs->count }

        my $people = A3C::Model::PersonCollection->new;
        $people->unlimit;

        dt { _('Number of persons in system') }
        dd { $people->count }

        my $sql = A3C::SQL->new({ query => qq{
                select count(uid),l
                from organizations
                inner join towns on towns.name = l
                group by l
                order by count desc
                limit 25
        }});

        dt { _('Top %1 towns by schools', $sql->count) }
        dd {
                ul {
                        while ( my $row = $sql->next ) {
                                li { outs_raw( $row->count, ' ', $row->l ) }
                        }
                }
        }

};


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	dpavlin	79	use A3C::SQL;
9	dpavlin	37
10			use Data::Dump qw/dump/;
11
12	dpavlin	72	template '/' => page {
13	dpavlin	37
14	dpavlin	72	h1 { _('Statistics') }
15
16			my $orgs = A3C::Model::OrganizationCollection->new;
17			$orgs->unlimit;
18
19			dt { _('Number of schools in system') }
20			dd { $orgs->count }
21
22			my $people = A3C::Model::PersonCollection->new;
23			$people->unlimit;
24
25			dt { _('Number of persons in system') }
26			dd { $people->count }
27
28	dpavlin	79	my $sql = A3C::SQL->new({ query => qq{
29			select count(uid),l
30			from organizations
31			inner join towns on towns.name = l
32			group by l
33			order by count desc
34			limit 25
35			}});
36	dpavlin	72
37	dpavlin	79	dt { _('Top %1 towns by schools', $sql->count) }
38	dpavlin	72	dd {
39			ul {
40	dpavlin	79	while ( my $row = $sql->next ) {
41			li { outs_raw( $row->count, ' ', $row->l ) }
42	dpavlin	72	}
43			}
44			}
45
46			};
47
48
49	dpavlin	71	template 'ldap' => page {
50			h1 { _('LDAP data about Schools in system') };
51	dpavlin	40	my $ldap = A3C::LDAP->new;
52	dpavlin	37	div {
53	dpavlin	40	$ldap->search(
54	dpavlin	37	base => 'dc=skole,dc=hr',
55			filter => '(objectClass=hrEduOrg)',
56			sizelimit => 10,
57			);
58	dpavlin	41	while ( my $entry = $ldap->current_search->shift_entry ) {
59	dpavlin	37	#warn $entry->dump;
60			ul {
61			foreach my $attr ( $entry->attributes ) {
62			li {
63			tt { $attr }
64	dpavlin	39	span { dump( $entry->get_value( $attr ) ) }
65	dpavlin	37	}
66			}
67			}
68			}
69			}
70			};
71
72	dpavlin	71	template 'people' => page {
73
74			h1 { _('Find people') }
75	dpavlin	49
76			my $action = new_action(
77	dpavlin	71	class => 'SearchPerson',
78			moniker => 'search-users',
79			sticky_on_success => 1,
80			sticky_on_failure => 1,
81	dpavlin	49	);
82
83	dpavlin	71
84	dpavlin	49	form {
85			render_action( $action => [ 'uid_contains', 'cn_contains' ] );
86			form_submit( label => _('Find someone') );
87			};
88
89			# warn dump( $action->result->content );
90
91			if ( my $search = $action->result->content('search') ) {
92			div { sprintf(_('Found %d results'), $search->count ) }
93			ol {
94			while (my $user = $search->next) {
95			li {
96			span { $user->cn }
97			tt { $user->uid }
98			}
99			}
100			}
101			}
102
103			};
104
105	dpavlin	71	template 'sync' => page {
106	dpavlin	55
107	dpavlin	71	h1 { _('Sync school from LDAP') }
108
109	dpavlin	55	my $action = new_action(
110			class => 'SyncOrganization',
111			moniker => 'sync-organization'
112			);
113
114			form {
115			render_action( $action => [ 'cn' ] );
116			form_submit( label => _('Sync Organization') );
117			};
118
119			if ( my $users = $action->result->content('synced-users') ) {
120			ol {
121			while (my $user = $users->next) {
122			li {
123			span { $user->cn }
124	dpavlin	57	tt { { class is 'email' } '<' . $user->mail . '>' }
125	dpavlin	55	}
126			}
127			}
128			}
129
130			};