SM2Gen/Templates/controller.pm.tem

package SrvMngr::Controller::${PackageName};

#----------------------------------------------------------------------
# heading     : ${MenuHeading}
# description : ${MenuDescription}
# navigation  : ${MenuNavigation}
#
# name : ${lcPackageName},    method : get,   url : /${lcPackageName},   ctlact : ${lcPackageName}#main
# name : ${lcPackageName}d,   method : post,  url : /${lcPackageName}d,  ctlact : ${lcPackageName}#do_update
#
# routes : end
#
# Documentation: https://wiki.contribs.org/{PackageName}
#----------------------------------------------------------------------

use strict;
use warnings;
use Mojo::Base 'Mojolicious::Controller';

use constant FALSE => 0;
use constant TRUE  => 1;

use Locale::gettext;
use SrvMngr::I18N;
use SrvMngr qw(theme_list init_session);

use Data::Dumper;

use esmith::util;
use esmith::HostsDB;
use esmith::AccountsDB;
use esmith::NetworksDB;
use esmith::HostsDB;
use esmith::DomainsDB;


#The most common ones
our $cdb = esmith::ConfigDB->open()   || die("Couldn't open config db");
our $adb = esmith::AccountsDB->open() || die("Couldn't open Accounts db");
our $ndb = esmith::NetworksDB->open() || die("Couldn't open Network db");
our $hdb = esmith::HostsDB->open() 	  || die("Couldn't open Hosts db");
our $ddb = esmith::DomainsDB->open()  || die("Couldn't open Domains db");

sub main {

    my $c = shift;
    $c->app->log->info( $c->log_req );

    my %${prefix}_data = ();
    my $title = $c->l("${prefix}_${MenuDescription}");
    my $modul = '';

    $$${prefix}_data{trt} = '${firstPanel}';
    
    #Load any DB entries into the <prefix>_data area so as they are preset in the form
    # which DB
    my $db = $$${db | 'cdb'}; #Default to config
    <tal:block tal:repeat="dbentry dbentries">
	$$${prefix}_data{${dbentry}} = $db->prop('${dbentry}') || ${dbdefault}
	</tal:block>

    $c->stash(
        title         => $title,
        modul         => $modul,
        ${prefix}_data      => \%${prefix}_data
    );
    $c->render( template => "${PackageName}" );
}

sub do_update {
    my $c = shift;
    $c->app->log->info($c->log_req);
    
    my %${prefix}_data = ();
    my $title = $c->l("${prefix}_${MenuDescription}");

	# Accessing all POST parameters
    my %params = $c->req->params->to_hash;

    # Get number of POST parameters
    my $num_params = keys %params;
    
    #Params are available in the hash "params"
    # you may use:
    foreach my $key (keys %params) {
        my $value = $params{$key};
        $c->app->log->debug("$key: $value");
    }

    # the value of trt will tell you which panel has returned    
    my $trt = $c->param('trt') || '${firstPanel}' ; #hidden control on every form.
    my $ret = 'ok';
    #Validate the parameters accordingly
    <tal:block tal:repeat="condition conditions">
    if ($trt eq '${condition}'){
		#Validate form parameters for panel ${condition}
		# and set $ret = $c->l('Error message') if invalid'
		# otherwise set $ret to "ok"
		if ($ret ne "ok"){
			$c->stash(error => $c->l($ret))
		} else {
			#Do whatever is needed, including writing values to the DB
		    my $db = $$${db | 'cdb'}; #Default to config
			<tal:block tal:repeat="dbentry dbentries">
			$db->set_prop('${dbentry}'=> param{'${dbentry}'};  #Copy back into db
			$$${prefix}_data{${dbentry}} = $db->prop('${dbentry}'); #Copy out into stash
			</tal:block>
			
		}	$c->stash( success => $c->l('ok message'))
	}
	</tal:block>
    # set ${prefix}_data{trt} = <route>; 
	$c->stash( 
		title 			=> $title, 
        ${prefix}_data  => \%${prefix}_data
		# Extra data in here - repeat for each stash data entry needed for panels
 	);

    $c->render("${PackageName}")
}

# get routines for the stash contents here.


1;