/[A3C]/lib/A3C/View/Strix.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /lib/A3C/View/Strix.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 214 - (hide annotations)
Fri Jun 20 20:54:41 2008 UTC (15 years, 10 months ago) by dpavlin
File size: 9302 byte(s)
rename to name which flows better with a code
1 dpavlin 142 package A3C::View::Strix;
2    
3     =head1 NAME
4    
5     A3C::View::Strix
6    
7     =head1 DESCRIPTION
8    
9 dpavlin 174 Display information about Strix instances
10 dpavlin 142
11 dpavlin 157 =head1 TEMPLATES
12    
13 dpavlin 142 =cut
14    
15     use strict;
16     use warnings;
17    
18     use Jifty::View::Declare -base;
19     use Data::Dump qw/dump/;
20    
21 dpavlin 157 =head2 /
22    
23 dpavlin 174 Display instaces search and some stats
24 dpavlin 157
25     =cut
26    
27 dpavlin 142 template 'index.html' => page {
28    
29 dpavlin 174 title is _('Strix instances');
30 dpavlin 153
31 dpavlin 174 my $orgs = A3C::Model::StrixInstanceCollection->new;
32 dpavlin 166 $orgs->unlimit;
33    
34 dpavlin 174 div { _('Number of instances in Strix: %1', $orgs->count ) };
35 dpavlin 166
36 dpavlin 157 render_region(
37 dpavlin 174 name => 'selected-instances',
38     path => '/strix/selected-instances'
39 dpavlin 157 );
40    
41     render_region(
42 dpavlin 174 name => 'search-instances',
43     path => '/strix/search-instances',
44 dpavlin 157 );
45    
46 dpavlin 153 };
47    
48 dpavlin 157 =head2 name_diff
49    
50     =cut
51    
52 dpavlin 153 template 'name_diff' => page {
53    
54 dpavlin 166 title is _('Strix name differences');
55 dpavlin 153
56 dpavlin 183 render_region(
57     name => 'selected-instances',
58     path => '/strix/selected-instances'
59     );
60    
61 dpavlin 142 my $name_diff = A3C::SQL->new({ query => qq{
62     select
63 dpavlin 174 instance,hreduorgurl,
64 dpavlin 142 _site_name,o
65 dpavlin 174 from strix_instances
66     join hr_edu_orgs on cn = instance
67 dpavlin 142 where o != _site_name
68     }});
69    
70 dpavlin 166 if ( $name_diff->count > 0 ) {
71    
72 dpavlin 142 table {
73     row {
74 dpavlin 183 th {}
75 dpavlin 174 th { _('Instance') }
76     th { _('Strix instance name') }
77 dpavlin 142 th { _('hrEduOrg.o') }
78     };
79     while ( my $row = $name_diff->next ) {
80     row {
81 dpavlin 183 cell { show( 'instance-op', 'Create', '+', $row->instance ) }
82     cell { $row->instance }
83 dpavlin 142 cell { $row->_site_name }
84     cell { $row->o }
85     }
86     }
87     }
88 dpavlin 166
89     } else {
90 dpavlin 174 div { _("Can't find any instance of strix which has different name than data from LDAP") }
91 dpavlin 142 }
92    
93     };
94    
95 dpavlin 161 =head2 sql
96    
97 dpavlin 174 Execute SQL query on instance
98 dpavlin 161
99     =cut
100    
101     template 'sql' => page {
102    
103     title is _('Execute SQL');
104    
105 dpavlin 166 render_region(
106 dpavlin 174 name => 'selected-instances',
107     path => '/strix/selected-instances'
108 dpavlin 166 );
109    
110     render_region(
111     name => 'execute-sql',
112     path => '/strix/execute-sql',
113     );
114    
115     };
116    
117 dpavlin 174 sub strix {
118 dpavlin 186 my $instance = get('instance');
119 dpavlin 174 return Strix->new({ instance => $instance });
120     }
121    
122 dpavlin 187 sub strix_link {
123     my ( $url, $label ) = @_;
124     hyperlink(
125     url => 'http://' . get('instance') . '.cms-qa.skole.hr' . $url,
126     label => $label || $url,
127     target => 'strix',
128     );
129     }
130    
131 dpavlin 211 =head2 navigation
132    
133     =cut
134    
135 dpavlin 205 template 'navigation' => page {
136 dpavlin 172
137 dpavlin 197 title is _('Site navigation');
138 dpavlin 172
139 dpavlin 183 render_region(
140 dpavlin 200 name => 'selected-instances',
141     path => '/strix/selected-instances'
142     );
143    
144     render_region(
145 dpavlin 211 name => 'strix-site',
146     path => '/strix/site'
147 dpavlin 183 );
148    
149 dpavlin 172 };
150    
151 dpavlin 174 =head2 layout
152    
153     =cut
154    
155 dpavlin 211 template 'layout' => sub {
156 dpavlin 174
157     my $url = get('url') || '/';
158    
159     my $category = strix->category( $url );
160    
161     warn dump( $category );
162    
163 dpavlin 187 strix_link( $category->{url}, $category->{naziv} );
164 dpavlin 174
165     my $layout = strix->layout( $url );
166    
167     pre {
168     dump( $layout );
169     }
170    
171     };
172    
173 dpavlin 166 =head1 REGIONS
174    
175     =head2 execute-sql
176    
177 dpavlin 174 Execute SQL query on instance
178 dpavlin 166
179     =cut
180    
181     template 'execute-sql' => sub {
182    
183 dpavlin 161 my $action = new_action(
184     class => 'StrixSQL',
185     moniker => 'strix-sql',
186     sticky_on_success => 1,
187     sticky_on_failure => 1,
188 dpavlin 166 arguments => {
189 dpavlin 183 instance => get('instance')
190 dpavlin 166 }
191 dpavlin 161 );
192    
193     form {
194 dpavlin 183 render_action( $action => [ 'instance', 'sql' ] );
195 dpavlin 161 form_submit( label => _('Execute SQL') );
196     };
197    
198     if ( my $sql = $action->result->content('sql') ) {
199     div { _('Found %1 results', $sql->count ) }
200     table {
201     row { map { th { $_ } } $sql->_column_names };
202     while (my $row = $sql->next) {
203     row {
204     foreach my $col ( $sql->_column_names ) {
205     cell { $row->$col }
206     }
207     }
208     }
209     }
210     }
211     };
212    
213 dpavlin 174 =head2 search-instances
214 dpavlin 157
215     =cut
216    
217 dpavlin 174 template 'search-instances' => sub {
218 dpavlin 157
219 dpavlin 174 h1 { _('Find instance') }
220 dpavlin 157
221     my $action = new_action(
222 dpavlin 174 class => 'SearchStrixInstance',
223     moniker => 'search-strix-instance',
224 dpavlin 157 sticky_on_success => 1,
225     sticky_on_failure => 1,
226     );
227    
228    
229     form {
230 dpavlin 174 render_action( $action => [ 'instance_contains', '_site_name_contains' ] );
231 dpavlin 157 form_submit( label => _('Search') );
232     };
233    
234     # warn dump( $action->result->content );
235    
236     if ( my $search = $action->result->content('search') ) {
237     div { _('Found %1 results', $search->count ) }
238     table {
239     while (my $strix = $search->next) {
240     row {
241 dpavlin 189 cell { show( 'instance-op', 'Create', '+', $strix->instance ) }
242 dpavlin 174 cell { tt { $strix->instance } }
243 dpavlin 157 cell { $strix->_site_name }
244     }
245     }
246     }
247     }
248    
249     };
250    
251 dpavlin 174 =head2 selected-instances
252 dpavlin 157
253 dpavlin 174 Show Selected instances for current user
254 dpavlin 157
255     =cut
256    
257 dpavlin 174 template 'selected-instances' => sub {
258 dpavlin 157 my $self = shift;
259    
260 dpavlin 186 # warn "## IN selected-instances ",dump( @_ );
261 dpavlin 157
262     if ( my $op = get 'op' ) {
263 dpavlin 211 my $op_instance = get 'op_instance';
264     return unless $op_instance;
265 dpavlin 186 warn "# selected-instances $op on $op_instance";
266 dpavlin 157
267     my $a;
268    
269     if ( $op eq 'Create' ) {
270    
271     $a = new_action(
272 dpavlin 174 class => $op . 'StrixInstanceSelection',
273 dpavlin 157 moniker => $op,
274     arguments => {
275 dpavlin 186 instance => $op_instance,
276 dpavlin 157 by_user => $self->current_user->id,
277     },
278     );
279    
280     } elsif ( $op eq 'Delete' ) {
281    
282 dpavlin 174 my $strix = A3C::Model::StrixInstanceSelection->new;
283 dpavlin 186 $strix->load_by_cols( instance => $op_instance, by_user => $self->current_user->id );
284     warn "can't find instance $op_instance" unless $strix->id;
285 dpavlin 157 $a = $strix->as_delete_action;
286    
287     }
288 dpavlin 186 # warn "# argument_values = ",dump( $a->argument_values );
289 dpavlin 157 $a->run;
290 dpavlin 186
291     if ( $a->result->error ) {
292     div {
293     { class is 'note error' }
294     $a->result->error;
295     }
296     }
297    
298     set( op => '' );
299 dpavlin 157 }
300    
301 dpavlin 174 my $selected = A3C::Model::StrixInstanceSelectionCollection->new;
302 dpavlin 157 $selected->limit( column => 'by_user', value => Jifty->web->current_user->id );
303    
304     if ( $selected->count > 0 ) {
305    
306 dpavlin 186 my $instance = get('instance');
307 dpavlin 200 warn "# selected-instances -- selected: $instance\n";
308 dpavlin 186
309 dpavlin 183 div { _('%1 instances selected', $selected->count ) };
310 dpavlin 157 table {
311     while (my $s = $selected->next) {
312     row {
313 dpavlin 186 cell { tt {
314     if ( $s->instance->instance eq $instance ) {
315     b { $instance }
316     } else {
317     hyperlink(
318     url => '?instance=' . $s->instance->instance,
319     label => $s->instance->instance
320     )
321     }
322 dpavlin 183 } }
323     cell { $s->instance->_site_name }
324     cell { show( 'instance-op', 'Delete', '-', $s->instance->instance ) }
325 dpavlin 157 }
326     }
327     }
328     } else {
329 dpavlin 174 div { _('No instances selected') }
330 dpavlin 157 }
331     };
332    
333 dpavlin 174 =head2 instance-op
334 dpavlin 157
335 dpavlin 174 Display button to add/remove instance from selection
336 dpavlin 157
337 dpavlin 174 show( 'instance-op', 'Delete', '-', $strix->instace );
338 dpavlin 157
339     =cut
340    
341 dpavlin 174 template 'instance-op' => sub {
342 dpavlin 157 my $self = shift;
343    
344 dpavlin 186 # warn "# instance-op = ",dump( @_ );
345 dpavlin 157
346 dpavlin 174 my ( $op, $label, $instance ) = @_;
347 dpavlin 157
348     form {
349     hyperlink(
350     label => $label,
351     onclick => {
352 dpavlin 174 refresh => 'selected-instances',
353     path => '/strix/selected-instances',
354 dpavlin 157 args => {
355 dpavlin 186 op_instance => $instance,
356 dpavlin 157 op => $op,
357     }
358     },
359     );
360     }
361    
362     };
363    
364 dpavlin 211 =head2 site
365 dpavlin 157
366 dpavlin 197 =cut
367    
368 dpavlin 211 template 'site' => sub {
369 dpavlin 197
370     my $action = new_action(
371     class => 'StrixSelectSite',
372     moniker => 'strix-select-site',
373     );
374    
375 dpavlin 200 warn "# action = ", dump( $action );
376 dpavlin 197
377 dpavlin 200 warn "# argument_values = ", dump( $action->argument_values );
378    
379     if ( ! $action->argument_value('instance') ) {
380     $action->argument_value( 'instance', get('instance') );
381     warn "# run action with instance\n";
382     $action->run;
383     }
384    
385     my $magic = [
386     { submit => $action, refresh_self => 1 },
387     # this is basically a closure
388     { refresh => 'selected-instances', path => '/strix/selected-instances', args => {
389     instance => { result_of => $action, name => 'instance' }
390 dpavlin 211 } },
391     { refresh => 'strix-site-layout', path => '/__jifty/empty' },
392 dpavlin 200 ];
393    
394 dpavlin 197 form {
395 dpavlin 200 render_param( $action, 'instance', onchange => $magic );
396     render_param( $action, 'site_id', onchange => $magic );
397     form_submit( label => _('Show navigation'), onclick => $magic );
398 dpavlin 197 };
399    
400     warn "## select-site action ",dump( $action->result );
401    
402 dpavlin 211 render_region(
403     name => 'layout',
404     path => '/__jifty/empty',
405     );
406    
407 dpavlin 197 if ( my $site_id = $action->result->content('site_id') ) {
408 dpavlin 214 show('navigation-tree', $action->result->content('instance'), $site_id);
409 dpavlin 197 }
410     };
411    
412     =head1 PRIVATE TEMPLATES
413    
414 dpavlin 214 =head2 navigation-tree-category
415 dpavlin 197
416 dpavlin 214 show('navigation-tree-category',$kat_row);
417 dpavlin 197
418     =cut
419    
420 dpavlin 214 private template 'navigation-tree-category' => sub {
421 dpavlin 211 my $self = shift;
422 dpavlin 214 #warn "## navigation-tree-category",dump( @_ );
423 dpavlin 211 my $p = shift;
424     strix_link( $p->{url}, $p->{naziv} );
425     if ( $p->{type} eq 'category' ) {
426     outs_raw(' ');
427     hyperlink(
428     # url => '/strix/layout?url=' . $p->{url} . ';instance=' . get('instance'),
429     onclick => {
430     region => 'strix-site-layout', # FIXME do we have to hard-code region name here?
431     replace_with => '/strix/layout',
432     args => {
433     url => $p->{url},
434     instance => get('instance'),
435     }
436     },
437     label => _('layout'),
438     class => 'layout',
439     );
440     }
441     };
442    
443 dpavlin 214 =head2 navigation-tree
444    
445     show('navigation-tree',$instance,$site_id);
446    
447     =cut
448    
449     private template 'navigation-tree' => sub {
450 dpavlin 197 my $self = shift;
451     my ( $instance, $site_id ) = @_;
452    
453     warn ">>>> instance: $instance site_id: $site_id";
454    
455     set 'instance' => $instance;
456    
457    
458     sub children {
459     my $c = shift;
460     return unless defined $c->{children};
461     ul {
462     foreach my $p ( @{ $c->{children} } ) {
463     li {
464 dpavlin 212 if ( defined( $p->{class} ) ) {
465     { class is $p->{class} };
466     }
467 dpavlin 214 show( 'navigation-tree-category', $p );
468 dpavlin 197 children( $p );
469     }
470     }
471     }
472     }
473    
474     my $strix = Strix->new({ instance => $instance });
475    
476 dpavlin 214 my $navigation = $strix->site_navigation( $site_id );
477     #warn "## navigation = ",dump( $navigation );
478     if ( $navigation ) {
479 dpavlin 197 ul {
480 dpavlin 214 foreach my $p ( @$navigation ) {
481 dpavlin 197 li {
482 dpavlin 214 show( 'navigation-tree-category', $p );
483 dpavlin 197 children( $p );
484     }
485     }
486     }
487     } else {
488     div {
489     { class is 'note error' }
490     _('No navigation found for instance %1 site_id %2', $instance, $site_id)
491     }
492    
493     }
494    
495     };
496    
497 dpavlin 142 1;

  ViewVC Help
Powered by ViewVC 1.1.26