Changeset 884 for LATMOS-Accounts-Web
- Timestamp:
- 12/30/11 06:59:17 (13 years ago)
- Location:
- LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web
- Files:
-
- 1 deleted
- 9 edited
Legend:
- Unmodified
- Added
- Removed
-
LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Ajax.pm
r873 r884 3 3 use strict; 4 4 use warnings; 5 use base ' LATMOS::Accounts::Web::Controller';5 use base 'Catalyst::Controller'; 6 6 7 7 =head1 NAME -
LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Aliases.pm
r861 r884 3 3 use strict; 4 4 use warnings; 5 use base ' LATMOS::Accounts::Web::Controller';5 use base 'Catalyst::Controller'; 6 6 7 7 =head1 NAME -
LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Create.pm
r861 r884 3 3 use strict; 4 4 use warnings; 5 use base ' LATMOS::Accounts::Web::Controller';5 use base 'Catalyst::Controller'; 6 6 use LATMOS::Accounts::Utils; 7 7 use LATMOS::Accounts::Log; -
LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Groups.pm
r861 r884 3 3 use strict; 4 4 use warnings; 5 use base ' LATMOS::Accounts::Web::Controller';5 use base 'Catalyst::Controller'; 6 6 7 7 =head1 NAME -
LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/NetHosts.pm
r861 r884 3 3 use strict; 4 4 use warnings; 5 use base ' LATMOS::Accounts::Web::Controller';5 use base 'Catalyst::Controller'; 6 6 7 7 =head1 NAME -
LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/NetZones.pm
r861 r884 3 3 use strict; 4 4 use warnings; 5 use base ' LATMOS::Accounts::Web::Controller';5 use base 'Catalyst::Controller'; 6 6 7 7 =head1 NAME -
LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Root.pm
r782 r884 3 3 use strict; 4 4 use warnings; 5 use base ' LATMOS::Accounts::Web::Controller';5 use base 'Catalyst::Controller'; 6 6 7 7 # … … 22 22 23 23 =cut 24 25 sub begin : Private { 26 my ( $self, $c ) = @_; 27 28 if (!$c->user_exists) { 29 # No need to login for About section 30 if ($c->namespace ne 'about') { 31 if ($c->req->path ne 'login') { 32 $c->forward('/login'); 33 } 34 return; 35 } 36 } else { 37 $c->model('Accounts')->db->connect( 38 $c->user->{username}, 39 $c->user->{password}); 40 } 41 } 24 42 25 43 =head2 default … … 60 78 } 61 79 80 sub no_object : Local { 81 my ($self, $c) = @_; 82 $c->stash->{template} = 'no_object.tt'; 83 } 84 85 =head2 end 86 87 Attempt to render a view, if needed. 88 89 =cut 90 91 sub end : ActionClass('RenderView') { 92 my ($self, $c) = @_; 93 $c->forward($c->view('TT')); 94 $c->model('Accounts')->db->rollback; 95 $c->model('Accounts')->call_batch_sync; 96 } 97 62 98 =head1 AUTHOR 63 99 -
LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Sites.pm
r861 r884 3 3 use strict; 4 4 use warnings; 5 use base ' LATMOS::Accounts::Web::Controller';5 use base 'Catalyst::Controller'; 6 6 7 7 =head1 NAME -
LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Users.pm
r870 r884 3 3 use strict; 4 4 use warnings; 5 use base ' LATMOS::Accounts::Web::Controller';5 use base 'Catalyst::Controller'; 6 6 7 7 =head1 NAME
Note: See TracChangeset
for help on using the changeset viewer.