CatalystX::Usul::Controller::Admin::Config - Editor for config files

CatalystX-Usul documentation Contained in the CatalystX-Usul distribution.

Index

Code Index:

Name

Top

CatalystX::Usul::Controller::Admin::Config - Editor for config files

Version

Top

0.3.$Revision: 576 $

Synopsis

Top

   package MyApp::Controller::Admin;

   use base qw(CatalystX::Usul::Controller::Admin);

   __PACKAGE__->build_subcontrollers;

Description

Top

CRUD methods for the configuration files

Subroutines/Methods

Top

config_base

Stash some parameters used by all the other actions which chain off this one

configuration

Redirects to default configuration page

buttons_delete

Called in response to the Delete button on the buttons_view page being pressed, this method deletes the currently selected button definition

buttons_save

Called in response to the Insert or Save buttons on the buttons_view page being pressed, this method either updates the currently selected button definition or inserts a new one

buttons_view

Displays the button defintion form. Button defintions define the help, prompt and error text associated with a form submission image button

credentials

Displays the credential defintion form. Credentials contain the data used to connect to a database

credentials_delete

Called in response to the Delete button on the credentials page being pressed, this method deletes the currently selected credential definition

credentials_save

Called in response to the Insert or Save buttons on the credential page being pressed, this method either updates the currently selected credentials or inserts a new one

fields_delete

Called in response to the Delete button on the fields_view page being pressed, this method deletes the currently selected fields definition

fields_save

Called in response to the Insert or Save buttons on the fields_view page being pressed, this method either updates the currently selected fields definition or inserts a new one

fields_view

Displays the fields defintion form. Field defintions define the attributes passed to the HTML::FormWidgets class that is used by the view to create user interface widgets

globals

Displays the globals attributes form. Global attributes are loaded into the "top level" of the stash

globals_save

Called in response to the Save buttons on the globals page being pressed

keys_delete

Called in response to the Delete button on the keys_view page being pressed, this method deletes the currently selected keys definition

keys_save

Called in response to the Insert or Save buttons on the keys_view page being pressed, this method either updates the currently selected keys definition or inserts a new one

keys_view

Displays the keys defintion form. Keys defintions define the attributes that CatalystX::Usul::PersistentState uses

messages_delete

Called in response to the Delete button on the messages_view page being pressed, this method deletes the currently selected message definition

messages_save

Called in response to the Insert or Save buttons on the messages_view page being pressed, this method either updates the currently selected message definition or inserts a new one

messages_view

Displays the message definition form. Messages are language dependent and are used to localize output

pages_delete

Called in response to the Delete button on the pages_view page being pressed, this method deletes the currently selected page definition

pages_save

Called in response to the Insert or Save buttons on the pages_view page being pressed, this method either updates the currently selected page definition or inserts a new one

pages_view

Displays the page definition form. Page definitions define the contents of a simple page

Diagnostics

Top

None

Configuration and Environment

Top

None

Dependencies

Top

CatalystX::Usul::Controller

Incompatibilities

Top

There are no known incompatibilities in this module

Bugs and Limitations

Top

There are no known bugs in this module. Please report problems to the address below. Patches are welcome

Author

Top

Peter Flanigan, <Support at RoxSoft.co.uk>

License and Copyright

Top

Copyright (c) 2008 Peter Flanigan. All rights reserved

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic

This program is distributed in the hope that it will be useful, but WITHOUT WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE

CatalystX-Usul documentation Contained in the CatalystX-Usul distribution. 
# @(#)$Id: Config.pm 576 2009-06-09 23:23:46Z pjf $

package CatalystX::Usul::Controller::Admin::Config;

use strict;
use warnings;
use version; our $VERSION = qv( sprintf '0.3.%d', q$Rev: 576 $ =~ /\d+/gmx );
use parent qw(CatalystX::Usul::Controller);

my $SEP = q(/);

__PACKAGE__->config( namespace => q(admin) );

sub config_base : Chained(common) PathPart(configuration) CaptureArgs(0) {
   my ($self, $c) = @_; my $model = $c->model( q(Base) );

   $c->stash->{model_args} = { file => $self->get_key( $c, q(level) ),
                               name => $model->query_value( q(name)  ) };
   return;
}

sub configuration : Chained(config_base) PathPart('') Args(0) Public {
   my ($self, $c) = @_;

   return $self->redirect_to_path( $c, $SEP.q(globals) );
}

sub buttons_delete : ActionFor(buttons_view.delete) {
   my ($self, $c) = @_;

   my $s     = $c->stash;
   my $args  = $s->{model_args};
   my $model = $c->model( q(Config::Buttons) );
   my $attr  = $model->keys_attr;

   $args->{name} = $self->get_key( $c, $attr );
   $model->delete( $args );
   $self->set_key( $c, $attr, $s->{newtag} );
   return 1;
}

sub buttons_save : ActionFor(buttons_view.save)
                   ActionFor(buttons_view.insert) {
   my ($self, $c) = @_;

   my $model = $c->model( q(Config::Buttons) );
   my $name  = $model->create_or_update( $c->stash->{model_args} );

   $self->set_key( $c, $model->keys_attr, $name );
   return 1;
}

sub buttons_view : Chained(config_base) PathPart(buttons) Args HasActions {
   my ($self, $c, $namespace, $name) = @_;

   my $model  = $c->model( q(Config::Buttons) );

   $namespace = $self->set_key( $c, q(level), $namespace );
   $name      = $self->set_key( $c, $model->keys_attr, $name );
   $model->config_form( $namespace, $name );
   return;
}

sub credentials : Chained(config_base) Args HasActions {
   my ($self, $c, $namespace, $name) = @_;

   my $model  = $c->model( q(Config::Credentials) );

   $namespace = $self->set_key( $c, q(level), $namespace );
   $name      = $self->set_key( $c, $model->keys_attr, $name );
   $model->form( $namespace, $name );
   return;
}

sub credentials_delete : ActionFor(credentials.delete) {
   my ($self, $c) = @_;

   my $s     = $c->stash;
   my $args  = $s->{model_args};
   my $model = $c->model( q(Config::Credentials) );
   my $attr  = $model->keys_attr;

   $args->{name} = $self->get_key( $c, $attr );
   $model->delete( $args );
   $self->set_key( $c, $attr, $s->{newtag} );
   return 1;
}

sub credentials_save : ActionFor(credentials.save)
                       ActionFor(credentials.insert) {
   my ($self, $c) = @_;

   my $model = $c->model( q(Config::Credentials) );
   my $name  = $model->create_or_update( $c->stash->{model_args} );

   $self->set_key( $c, $model->keys_attr, $name );
   return 1;
}

sub fields_delete : ActionFor(fields_view.delete) {
   my ($self, $c) = @_;

   my $s     = $c->stash;
   my $args  = $s->{model_args};
   my $model = $c->model( q(Config::Fields) );
   my $attr  = $model->keys_attr;

   $args->{name} = $self->get_key( $c, $attr );
   $model->delete( $args );
   $self->set_key( $c, $attr, $s->{newtag} );
   return 1;
}

sub fields_save : ActionFor(fields_view.save) ActionFor(fields_view.insert) {
   my ($self, $c) = @_;

   my $model = $c->model( q(Config::Fields) );
   my $name  = $model->create_or_update( $c->stash->{model_args} );

   $self->set_key( $c, $model->keys_attr, $name );
   return 1;
}

sub fields_view : Chained(config_base) PathPart(fields) Args HasActions {
   my ($self, $c, $namespace, $name) = @_;

   my $model  = $c->model( q(Config::Fields) );

   $namespace = $self->set_key( $c, q(level), $namespace );
   $name      = $self->set_key( $c, $model->keys_attr, $name );
   $model->config_form( $namespace, $name );
   return;
}

sub globals : Chained(config_base) PathPart(globals) Args(0) HasActions {
   my ($self, $c) = @_; $c->model( q(Config::Globals) )->form; return;
}

sub globals_save : ActionFor(globals.save) {
   my ($self, $c) = @_; $c->model( q(Config::Globals) )->save; return 1;
}

sub keys_delete : ActionFor(keys_view.delete) {
   my ($self, $c) = @_;

   my $s     = $c->stash;
   my $args  = $s->{model_args};
   my $model = $c->model( q(Config::Keys) );
   my $attr  = $model->keys_attr;

   $args->{name} = $self->get_key( $c, $attr );
   $model->delete( $args );
   $self->set_key( $c, $attr, $s->{newtag} );
   return 1;
}

sub keys_save : ActionFor(keys_view.save) ActionFor(keys_view.insert) {
   my ($self, $c) = @_;

   my $model = $c->model( q(Config::Keys) );
   my $name  = $model->create_or_update( $c->stash->{model_args} );

   $self->set_key( $c, $model->keys_attr, $name );
   return 1;
}

sub keys_view : Chained(config_base) PathPart(keys) Args HasActions {
   my ($self, $c, $namespace, $name) = @_;

   my $model  = $c->model( q(Config::Keys) );

   $namespace = $self->set_key( $c, q(level), $namespace );
   $name      = $self->set_key( $c, $model->keys_attr, $name );
   $model->config_form( $namespace, $name );
   return;
}

sub messages_delete : ActionFor(messages_view.delete) {
   my ($self, $c) = @_;

   my $s     = $c->stash;
   my $args  = $s->{model_args};
   my $model = $c->model( q(Config::Messages) );
   my $attr  = $model->keys_attr;

   $args->{name} = $self->get_key( $c, $attr );
   $model->delete( $args );
   $self->set_key( $c, $attr, $s->{newtag} );
   return 1;
}

sub messages_save : ActionFor(messages_view.save)
                    ActionFor(messages_view.insert) {
   my ($self, $c) = @_;

   my $model = $c->model( q(Config::Messages) );
   my $name  = $model->create_or_update( $c->stash->{model_args} );

   $self->set_key( $c, $model->keys_attr, $name );
   return 1;
}

sub messages_view : Chained(config_base) PathPart(messages) Args HasActions {
   my ($self, $c, $namespace, $name) = @_;

   my $model  = $c->model( q(Config::Messages) );

   $namespace = $self->set_key( $c, q(level), $namespace );
   $name      = $self->set_key( $c, $model->keys_attr, $name );
   $model->config_form( $namespace, $name );
   return;
}

sub pages_delete : ActionFor(pages_view.delete) {
   my ($self, $c) = @_;

   my $s     = $c->stash;
   my $args  = $s->{model_args};
   my $model = $c->model( q(Config::Pages) );
   my $attr  = $model->keys_attr;

   $args->{name} = $self->get_key( $c, $attr );
   $model->delete( $args );
   $self->set_key( $c, $attr, $s->{newtag} );
   return 1;
}

sub pages_save : ActionFor(pages_view.save) ActionFor(pages_view.insert) {
   my ($self, $c) = @_;

   my $model = $c->model( q(Config::Pages) );
   my $name  = $model->create_or_update( $c->stash->{model_args} );

   $self->set_key( $c, $model->keys_attr, $name );
   return 1;
}

sub pages_view : Chained(config_base) PathPart(pages) Args HasActions {
   my ($self, $c, $namespace, $name) = @_;

   my $model  = $c->model( q(Config::Pages) );

   $namespace = $self->set_key( $c, q(level), $namespace );
   $name      = $self->set_key( $c, $model->keys_attr, $name );
   $model->config_form( $namespace, $name );
   return;
}

1;

__END__


# Local Variables:
# mode: perl
# tab-width: 3
# End: