Fix error on json5 lint fail and add AdminLTE theme generated templates
This commit is contained in:
53
Targets/Example1/AdminLTE/_ex1_PARAMS.html.ep
Normal file
53
Targets/Example1/AdminLTE/_ex1_PARAMS.html.ep
Normal file
@@ -0,0 +1,53 @@
|
||||
%#
|
||||
%# Generated by SM2Gen version:0.9(20Jan2025) Chameleon version:4.5.4 On Python:3.12.3 at 2025-09-06 06:03:54
|
||||
%#
|
||||
%# Specific for AdminLTE theme
|
||||
%#
|
||||
<div id="Example1-PARAMS" class="partial Example1-PARAMS">
|
||||
%# <script>
|
||||
%# window.onload = function() {
|
||||
%# SelectInput();
|
||||
%# };
|
||||
%# </script>
|
||||
% if (config->{debug} == 1) {
|
||||
<pre>
|
||||
%= dumper $ex1_data
|
||||
</pre>
|
||||
% }
|
||||
% my $btn = l('ex1_SAVE');
|
||||
% $c->param(Selected => undef); #This may need deleting for a params panel - only needed for a table
|
||||
|
||||
%= form_for "example1u" => (method => 'POST') => begin
|
||||
% param 'trt' => $ex1_data->{trt} unless param 'trt';
|
||||
%= hidden_field 'trt' => $ex1_data->{trt}
|
||||
%# Inputs etc in here.
|
||||
<div class="row g-3 align-items-center">
|
||||
<h1 class='head'><%=l('ex1_Example_Contrib')%></h1></div><br>
|
||||
<div class="row g-3 align-items-center">
|
||||
<h2 class='subh'><%=l('ex1_Manage_Ibay_settings:')%></h2></div><br>
|
||||
<div class="row g-3 align-items-center">
|
||||
<p class='paragraph para1'>
|
||||
%=l('ex1_These_parameters_will_be_effective')
|
||||
|
||||
</div><br><div class="row g-3 align-items-center">
|
||||
<div class="col-md-1">
|
||||
%=l('ex1_Information_Bay_name')
|
||||
</div><div class="col-auto">
|
||||
% param 'IbayName' => $ex1_data->{IbayName} unless param 'IbayName';
|
||||
%= text_field 'IbayName', size => '50', class => 'textinput IbayName' , pattern=>'.*' , placeholder=>'IbayName', title =>'Pattern regex mismatch', id => 'IbayName_text'
|
||||
</div>
|
||||
</div><br><div class="row g-3 align-items-center">
|
||||
<div class="col-md-1">
|
||||
%=l('ex1_Share_owner_Group')
|
||||
</div><div class="col-auto">
|
||||
% my @ShareOwnerGrp_options = [['Write = admin, Read = group' => 'All'], ['Write = group, Read = everyone' => 'Read:All-Write:Grp']];
|
||||
% param 'ShareOwnerGrp' => $ex1_data->{ShareOwnerGrp} unless param 'ShareOwnerGrp';
|
||||
%= select_field 'ShareOwnerGrp' => @ShareOwnerGrp_options, class => 'input', id => 'ShareOwnerGrp_select'
|
||||
</div>
|
||||
</div><br>
|
||||
%# ....
|
||||
%# Probably finally by a submit.
|
||||
%= submit_button $btn, class => 'action'
|
||||
%end
|
||||
<br>
|
||||
</div>
|
||||
57
Targets/Example1/AdminLTE/_ex1_TABLE.html.ep
Normal file
57
Targets/Example1/AdminLTE/_ex1_TABLE.html.ep
Normal file
@@ -0,0 +1,57 @@
|
||||
%#
|
||||
%# Generated by SM2Gen version:0.9(20Jan2025) Chameleon version:4.5.4 On Python:3.12.3 at 2025-09-06 06:03:54
|
||||
%#
|
||||
%# Specific for AdminLTE theme
|
||||
%#
|
||||
<div id="Example1-TABLE" class="partial Example1-TABLE">
|
||||
%# <script>
|
||||
%# window.onload = function() {
|
||||
%# SelectInput();
|
||||
%# };
|
||||
%# </script>
|
||||
% if (config->{debug} == 1) {
|
||||
<pre>
|
||||
%= dumper $ex1_data
|
||||
</pre>
|
||||
% }
|
||||
% my $btn = l('ex1_SAVE');
|
||||
% $c->param(Selected => undef); #This may need deleting for a params panel - only needed for a table
|
||||
|
||||
%= form_for "example1u" => (method => 'POST') => begin
|
||||
% param 'trt' => $ex1_data->{trt} unless param 'trt';
|
||||
%= hidden_field 'trt' => $ex1_data->{trt}
|
||||
%# Inputs etc in here.
|
||||
<div class="row g-3 align-items-center">
|
||||
<h1 class='head'><%=l('ex1_NFS_Share_Contrib')%></h1></div><br>
|
||||
<div class="row g-3 align-items-center">
|
||||
<h2 class='subh'><%=l('ex1_Manage_NFS_Ibay_settings:')%></h2></div><br>
|
||||
<div class="row g-3 align-items-center">
|
||||
<br /><table class="sme-border TableSort sme-table tabl1 ">
|
||||
<thead class='tabl1'>
|
||||
<tr table-head-row>
|
||||
<th class='sme-border table-head-col table-head-col-Name '><%=l('ex1_Name')%></th>
|
||||
<th class='sme-border table-head-col table-head-col-Description '><%=l('ex1_Description')%></th>
|
||||
<th class='sme-border table-head-col table-head-col-Status '><%=l('ex1_Status')%></th>
|
||||
<th class='sme-border table-head-col table-head-col-Action '><%=l('ex1_Action')%></th>
|
||||
</tr>
|
||||
</thead>
|
||||
<tbody class='tabl1'>
|
||||
% my $control_data = $c->stash('ibays');
|
||||
% foreach my $row (@$control_data) {
|
||||
<tr class='table-row'>
|
||||
<td class='sme-border table-col table-col-Name'><%=$c->render_to_string(inline=>$row->{'Name'})%></td>
|
||||
<td class='sme-border table-col table-col-Description'><%=$c->render_to_string(inline=>$row->{'Description'})%></td>
|
||||
<td class='sme-border table-col table-col-flag'><%=$c->render_to_string(inline=>$row->{'flag'})%></td>
|
||||
<td class='sme-border table-col table-col-Modify'><%=$c->render_to_string(inline=>$row->{'Modify'})%></td>
|
||||
</tr>
|
||||
%}
|
||||
</tbody>
|
||||
</table>
|
||||
</div><br>
|
||||
|
||||
%# ....
|
||||
%# Probably finally by a submit.
|
||||
%= submit_button $btn, class => 'action'
|
||||
%end
|
||||
<br>
|
||||
</div>
|
||||
20
Targets/Example1/AdminLTE/example1.css
Normal file
20
Targets/Example1/AdminLTE/example1.css
Normal file
@@ -0,0 +1,20 @@
|
||||
/*
|
||||
Generated by: SM2Gen version:0.9(20Jan2025) Chameleon version:4.5.4 On Python:3.12.3 at 2025-09-06 06:03:54
|
||||
*/
|
||||
.Example1-panel {}
|
||||
.name {}
|
||||
.rout {}
|
||||
.head {}
|
||||
.subh {}
|
||||
.para1 {}
|
||||
.text1 {}
|
||||
.sele2 {}
|
||||
.name {}
|
||||
.rout {}
|
||||
.head {}
|
||||
.subh {}
|
||||
.next {}
|
||||
.tabl1 {}
|
||||
thead .tabl1 {}
|
||||
tbody .tabl1 {}
|
||||
.next {}
|
||||
58
Targets/Example1/AdminLTE/example1.html.ep
Normal file
58
Targets/Example1/AdminLTE/example1.html.ep
Normal file
@@ -0,0 +1,58 @@
|
||||
%#
|
||||
%# Generated by SM2Gen version:0.9(20Jan2025) Chameleon version:4.5.4 On Python:3.12.3 at 2025-09-06 06:03:54
|
||||
%#
|
||||
%# AdminLTE specific layout
|
||||
%#
|
||||
% layout 'default', title => "Sme server 2 - Example 1", share_dir => './';
|
||||
%# css specific to this panel:
|
||||
% content_for 'module' => begin
|
||||
%= stylesheet '/css/example1.css'
|
||||
%= javascript '/js/example1.js'
|
||||
<div id="module" class="card-body module Example1-panel">
|
||||
|
||||
% if (config->{debug} == 1) {
|
||||
<pre>
|
||||
%= dumper $c->current_route
|
||||
%= dumper $ex1_data->{trt}
|
||||
</pre>
|
||||
% }
|
||||
|
||||
<h1><%=$title%></h1>
|
||||
|
||||
% if ( stash('modul')) {
|
||||
%= $c->render_to_string(inline => stash('modul') );
|
||||
% }
|
||||
|
||||
%if ($c->stash('first')) {
|
||||
<br><div>
|
||||
%=$c->render_to_string(inline =>$c->l($c->stash('first')))
|
||||
</div>
|
||||
|
||||
%} elsif ($c->stash('success')) {
|
||||
<div class='text-success'>
|
||||
%= $c->l($c->stash('success'));
|
||||
</div>
|
||||
|
||||
%} elsif ($c->stash('error')) {
|
||||
<div class='text-danger'>
|
||||
%= $c->l($c->stash('error'));
|
||||
</div>
|
||||
%}
|
||||
|
||||
%#Routing to partials according to trt parameter.
|
||||
%#This ought to be cascading if/then/elsif, but is easier to just stack the if/then's rather like a case statement'
|
||||
|
||||
<br>
|
||||
% if ($ex1_data->{trt} eq "PARAMS") {
|
||||
%= include 'partials/_ex1_PARAMS'
|
||||
%}
|
||||
|
||||
<br>
|
||||
% if ($ex1_data->{trt} eq "TABLE") {
|
||||
%= include 'partials/_ex1_TABLE'
|
||||
%}
|
||||
|
||||
<br>
|
||||
|
||||
</div>
|
||||
%end
|
||||
5
Targets/Example1/AdminLTE/example1.js
Normal file
5
Targets/Example1/AdminLTE/example1.js
Normal file
@@ -0,0 +1,5 @@
|
||||
//
|
||||
//Generated by: SM2Gen version:0.9(20Jan2025) Chameleon version:4.5.4 On Python:3.12.3 at 2025-09-06 06:03:54
|
||||
//
|
||||
$(document).ready(function() {
|
||||
});
|
||||
192
Targets/Example1/Example1-Custom.pm
Normal file
192
Targets/Example1/Example1-Custom.pm
Normal file
@@ -0,0 +1,192 @@
|
||||
#
|
||||
# Generated by SM2Gen version:0.9(20Jan2025) Chameleon version:4.5.4 On Python:3.12.3 at 2025-09-06 06:03:54
|
||||
#
|
||||
#
|
||||
# Routines to be edited by the developer to provide content and validation for parameters
|
||||
# and provison of the control data for table(s)
|
||||
#
|
||||
use esmith::util;
|
||||
use esmith::util::network;
|
||||
use esmith::ConfigDB::UTF8;
|
||||
use esmith::AccountsDB;
|
||||
use esmith::NetworksDB::UTF8;
|
||||
use esmith::HostsDB;
|
||||
use esmith::DomainsDB::UTF8;
|
||||
|
||||
use constant FALSE => 0;
|
||||
use constant TRUE => 1;
|
||||
|
||||
|
||||
#The most common ones - open DB when required.
|
||||
#my $cdb;
|
||||
#my $adb;
|
||||
#my $ndb;
|
||||
#my $hdb;
|
||||
#my $ddb;
|
||||
|
||||
#The most common ones - you might want to use these if you need to make sure that the DB is refreshed.
|
||||
#$cdb = esmith::ConfigDB::UTF8->open() || die("Couldn't open config db");
|
||||
#$adb = esmith::AccountsDB->open() || die("Couldn't open Accounts db");
|
||||
#$ndb = esmith::NetworksDB->open() || die("Couldn't open Network db");
|
||||
#$hdb = esmith::HostsDB::UTF8->open() || die("Couldn't open Hosts db");
|
||||
#$ddb = esmith::DomainsDB::UTF8->open() || die("Couldn't open Domains db");
|
||||
|
||||
|
||||
# Validation routines - parameters for each panel
|
||||
|
||||
sub validate_PARAMS {
|
||||
my $c = shift;
|
||||
my $ex1_data = shift; #Data hash as parameter
|
||||
# Validation for each field
|
||||
my $ret = '';
|
||||
|
||||
if (! TRUE) #validate $c->param('IbayName')
|
||||
{$ret .= 'Validation for IbayName failed';}
|
||||
if (! TRUE) #validate $c->param('ShareOwnerGrp')
|
||||
{$ret .= 'Validation for ShareOwnerGrp failed';}
|
||||
if ($ret eq '') {$ret = 'ok';}
|
||||
return $ret;
|
||||
}
|
||||
|
||||
sub validate_TABLE {
|
||||
my $c = shift;
|
||||
my $ex1_data = shift; #Data hash as parameter
|
||||
# Validation for each field
|
||||
my $ret = '';
|
||||
|
||||
if ($ret eq '') {$ret = 'ok';}
|
||||
return $ret;
|
||||
}
|
||||
|
||||
|
||||
# Get singleton data for each panel
|
||||
|
||||
sub get_data_for_panel_PARAMS {
|
||||
# Return a hash with the fields required which will be loaded into the shared data
|
||||
my $c = shift;
|
||||
my %ret = (
|
||||
'Data1'=>'Data for PARAMS', #Example
|
||||
# fields from Inputs in PARAMS $fields['PARAMS']
|
||||
'IbayName'=>'IbayName contents',
|
||||
'ShareOwnerGrp'=>'ShareOwnerGrp contents',
|
||||
|
||||
);
|
||||
return %ret;
|
||||
}
|
||||
|
||||
sub get_data_for_panel_TABLE {
|
||||
# Return a hash with the fields required which will be loaded into the shared data
|
||||
my $c = shift;
|
||||
my %ret = (
|
||||
'Data1'=>'Data for TABLE', #Example
|
||||
# fields from Inputs in TABLE $fields['TABLE']
|
||||
|
||||
);
|
||||
return %ret;
|
||||
}
|
||||
|
||||
|
||||
|
||||
# Get control data for table(s)
|
||||
|
||||
# Define a constant hash for field name mapping
|
||||
use constant ibays_FIELD_MAPPING => (
|
||||
'Name' => 'Source-for-Name',
|
||||
'Description' => 'Source-for-Description',
|
||||
'flag' => 'Source-for-flag',
|
||||
'Modify' => 'Source-for-Modify'
|
||||
#'target_field2' => 'source_field2',
|
||||
# Add more mappings as needed
|
||||
);
|
||||
|
||||
sub actual_ibays {
|
||||
my $c = shift;
|
||||
my @ret = ();
|
||||
# Actual code for extracting ibays
|
||||
return @ret;
|
||||
}
|
||||
|
||||
sub get_ibays {
|
||||
# Return an array of hashes of the contents for each row and column for ibays
|
||||
my $c = shift;
|
||||
my @source_records = $c->actual_ibays();
|
||||
my @transformed_records;
|
||||
my %Field_Mapping = ibays_FIELD_MAPPING();
|
||||
# Iterate over each record in the source array
|
||||
for my $source_record (@source_records) {
|
||||
my %transformed_record;
|
||||
# Iterate over each key-value pair in the $Field_Mapping constant
|
||||
while (my ($target, $source) = each %Field_Mapping) {
|
||||
# Check if the source field exists in the source record
|
||||
if (exists $source_record->{$source}) {
|
||||
# Assign the source field value to the target field in the transformed record
|
||||
$transformed_record{$target} = $source_record->{$source};
|
||||
}
|
||||
}
|
||||
# Add transformed record to the array if it's not empty
|
||||
push @transformed_records, \%transformed_record if %transformed_record;
|
||||
}
|
||||
return \@transformed_records;
|
||||
}
|
||||
|
||||
|
||||
|
||||
# Return hash with values from row in which link clicked on table
|
||||
|
||||
sub get_selected_PARAMS {
|
||||
my $c = shift;
|
||||
my $selected = shift; #Parameter is name of selected row.
|
||||
my $is_new_record = shift; #Indicates new record required (defaults)
|
||||
my %ret = ();
|
||||
#gather the values here
|
||||
return %ret;
|
||||
}
|
||||
|
||||
sub get_selected_TABLE {
|
||||
my $c = shift;
|
||||
my $selected = shift; #Parameter is name of selected row.
|
||||
my $is_new_record = shift; #Indicates new record required (defaults)
|
||||
my %ret = ();
|
||||
#gather the values here
|
||||
return %ret;
|
||||
}
|
||||
|
||||
|
||||
#after sucessful modify or create or whatever and submit then perfom (if the params validate)
|
||||
|
||||
sub perform_PARAMS {
|
||||
my $c = shift;
|
||||
my $ex1_data = shift; #Data hash as parameter
|
||||
my $ret = '';
|
||||
my $db = $cdb; #maybe one of the others
|
||||
my $dbkey = 'ChangeThis';
|
||||
# To make it write to DB as comment, delete this (regex) string in each if statement "TRUE\) \#copy or perform with value: .* e.g."
|
||||
|
||||
if (! TRUE) #copy or perform with value: IbayName e.g. $db->set_prop($dbkey,'IbayName',$c->param('IbayName'),type=>'service'))
|
||||
{$ret .= 'Perform/save failed for IbayName';}
|
||||
if (! TRUE) #copy or perform with value: ShareOwnerGrp e.g. $db->set_prop($dbkey,'ShareOwnerGrp',$c->param('ShareOwnerGrp'),type=>'service'))
|
||||
{$ret .= 'Perform/save failed for ShareOwnerGrp';}
|
||||
if ($ret eq '') {$ret = 'ok';}
|
||||
return $ret;
|
||||
}
|
||||
|
||||
sub perform_TABLE {
|
||||
my $c = shift;
|
||||
my $ex1_data = shift; #Data hash as parameter
|
||||
my $ret = '';
|
||||
my $db = $cdb; #maybe one of the others
|
||||
my $dbkey = 'ChangeThis';
|
||||
# To make it write to DB as comment, delete this (regex) string in each if statement "TRUE\) \#copy or perform with value: .* e.g."
|
||||
|
||||
if ($ret eq '') {$ret = 'ok';}
|
||||
return $ret;
|
||||
}
|
||||
|
||||
|
||||
sub create_link{
|
||||
# WIP
|
||||
my ($c,$route, $panel, $index) = @_;
|
||||
my $link = "$route?trt=$panel&Selected=$index";
|
||||
return $link;
|
||||
}
|
||||
1;
|
||||
321
Targets/Example1/Example1.pm
Normal file
321
Targets/Example1/Example1.pm
Normal file
@@ -0,0 +1,321 @@
|
||||
package SrvMngr::Controller::Example1;
|
||||
#
|
||||
# Generated by SM2Gen version:0.9(20Jan2025) Chameleon version:4.5.4 On Python:3.12.3 at 2025-09-06 06:03:54
|
||||
# Remember that each route must be unique (else they just overwrite each other).
|
||||
# you cannot have get and post on the same name and url.
|
||||
#
|
||||
#----------------------------------------------------------------------
|
||||
# heading : Network
|
||||
# description : Example 1
|
||||
# navigation : 2000 400
|
||||
#
|
||||
# name : example1, method : get, url : /example1, ctlact : Example1#main
|
||||
# name : example1u, method : post, url : /example1u, ctlact : Example1#do_update
|
||||
# name : example1d, method : get, url : /example1d, ctlact : Example1#do_display
|
||||
#
|
||||
# routes : end
|
||||
#
|
||||
# Documentation: https://wiki.contribs.org/Example1
|
||||
#----------------------------------------------------------------------
|
||||
|
||||
#
|
||||
# Scheme of things:
|
||||
#
|
||||
# TBA!!
|
||||
|
||||
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::util::network;
|
||||
use esmith::ConfigDB::UTF8;
|
||||
use esmith::AccountsDB;
|
||||
use esmith::NetworksDB::UTF8;
|
||||
use esmith::HostsDB;
|
||||
use esmith::DomainsDB::UTF8;
|
||||
|
||||
our $cdb;
|
||||
our $adb;
|
||||
our $ndb;
|
||||
our $hdb;
|
||||
our $ddb;
|
||||
|
||||
our %ex1_data;
|
||||
|
||||
require '/usr/share/smanager/lib/SrvMngr/Controller/Example1-Custom.pm'; #The code that is to be added by the developer
|
||||
|
||||
sub main {
|
||||
#
|
||||
# Initial entry - route is "/<whatever>"
|
||||
#
|
||||
#set initial panel
|
||||
#for initial panel:
|
||||
#Specifiy panel to enter
|
||||
#load up _data hash with DB fields
|
||||
#load up stash with pointer(s) to control fields hash(= get-))
|
||||
#and a pointer to the prefix_data hash
|
||||
#render initial panel
|
||||
|
||||
my $c = shift;
|
||||
$c->app->log->info( $c->log_req );
|
||||
|
||||
#The most common ones - you might want to delete some of these if they are not used.
|
||||
$cdb = esmith::ConfigDB::UTF8->open() || die("Couldn't open config db");
|
||||
$adb = esmith::AccountsDB->open() || die("Couldn't open Accounts db");
|
||||
$ndb = esmith::NetworksDB->open() || die("Couldn't open Network db");
|
||||
$hdb = esmith::HostsDB::UTF8->open() || die("Couldn't open Hosts db");
|
||||
$ddb = esmith::DomainsDB::UTF8->open() || die("Couldn't open Domains db");
|
||||
|
||||
%ex1_data = ();
|
||||
my $title = $c->l('ex1_Example_1');
|
||||
my $modul = '';
|
||||
|
||||
$ex1_data{'trt'} = 'TABLE';
|
||||
|
||||
#Load any DB entries into the <prefix>_data area so as they are preset in the form
|
||||
# which DB - this only really works if the initial panel is a PARAMS type panel and not a TABLE
|
||||
my $db = $cdb; #pickup local or global db or Default to config
|
||||
|
||||
|
||||
$c->do_display($ex1_data{'trt'});
|
||||
|
||||
}
|
||||
|
||||
# Post request with params - submit from the form
|
||||
sub do_update {
|
||||
#
|
||||
# Return after submit pushed on panel (this is a post) - route is "/<whatever>u"
|
||||
# parameters in the params hash.
|
||||
#
|
||||
#load up all params into prefix_data hash:
|
||||
#By panel (series of if statements - only one executed):
|
||||
#call validate-PANEL() - return ret = ok or error message
|
||||
|
||||
#if validation not ok:
|
||||
#render back to current panel with error message in stash
|
||||
#otherwise:
|
||||
#By panel (series of if statements - only one executed):
|
||||
#do whatever is required: call perform-PANEL() - return 'ok' or Error Message
|
||||
#call signal-event for any global actions specified (check it exists - error and continue?)
|
||||
#if action smeserver-<whatever>-update exists
|
||||
#signal_event smeserver-<whatever>-update
|
||||
#call signal-event for any specific actions for thids panel (check it exists first - error and continue)
|
||||
#set success in stash
|
||||
#if no "nextpanel" entry:
|
||||
#set firstpanel
|
||||
#else
|
||||
#set nextpanel
|
||||
#call render
|
||||
|
||||
my $c = shift;
|
||||
$c->app->log->info($c->log_req);
|
||||
my $modul = '';
|
||||
|
||||
#The most common ones - you might want to delete some of these if they are not used.
|
||||
$cdb = esmith::ConfigDB::UTF8->open() || die("Couldn't open config db");
|
||||
$adb = esmith::AccountsDB->open() || die("Couldn't open Accounts db");
|
||||
$ndb = esmith::NetworksDB->open() || die("Couldn't open Network db");
|
||||
$hdb = esmith::HostsDB::UTF8->open() || die("Couldn't open Hosts db");
|
||||
$ddb = esmith::DomainsDB::UTF8->open() || die("Couldn't open Domains db");
|
||||
|
||||
my $title = $c->l('ex1_Example_1');
|
||||
|
||||
# Accessing all POST/GET parameters
|
||||
my $params = $c->req->params->to_hash;
|
||||
|
||||
# Get number of POST parameters
|
||||
#my $num_params = keys scaler %$params;
|
||||
|
||||
#Params are available in the hash "params" - copy to the prefix_data hash
|
||||
#while (my ($key, $value) = each %{$c->req->params->to_hash}) {
|
||||
# $ex1_data{$key} = $value;
|
||||
#}
|
||||
|
||||
# the value of trt will tell you which panel has returned
|
||||
my $trt = $c->param('trt') || 'TABLE'; #hidden control on every form.
|
||||
my $ret = 'ok';
|
||||
|
||||
#Validate the parameters in a custom sub one for each panel (although only one of these will be executed)
|
||||
my $thispanel;
|
||||
|
||||
if ($trt eq 'PARAMS'){
|
||||
#Validate form parameters for panel PARAMS
|
||||
$ret = $c->validate_PARAMS(\%ex1_data);
|
||||
$thispanel = 'PARAMS';
|
||||
}
|
||||
|
||||
if ($trt eq 'TABLE'){
|
||||
#Validate form parameters for panel TABLE
|
||||
$ret = $c->validate_TABLE(\%ex1_data);
|
||||
$thispanel = 'TABLE';
|
||||
}
|
||||
|
||||
if ($ret ne 'ok'){
|
||||
$c->stash(error => $c->l($ret));
|
||||
$c->do_display($thispanel);
|
||||
} else {
|
||||
#Do whatever is needed, including writing values to the DB
|
||||
|
||||
|
||||
if ($trt eq 'PARAMS'){
|
||||
#do whatever is required ...
|
||||
$ret = $c->perform_PARAMS(\%ex1_data);
|
||||
if ($ret ne 'ok') {
|
||||
# return to the panel with error message
|
||||
$c->stash(error => $c->l($ret));
|
||||
$c->stash(
|
||||
title => $title,
|
||||
modul => $modul,
|
||||
ex1_data => \%ex1_data
|
||||
);
|
||||
$c->render(template => "example1");
|
||||
return
|
||||
} else {
|
||||
$c->stash( success => $c->l('ex1_PARAMS_panel_action_was_successful')); #A bit bland - edit it in the lex file
|
||||
}
|
||||
}
|
||||
|
||||
if ($trt eq 'TABLE'){
|
||||
#do whatever is required ...
|
||||
$ret = $c->perform_TABLE(\%ex1_data);
|
||||
if ($ret ne 'ok') {
|
||||
# return to the panel with error message
|
||||
$c->stash(error => $c->l($ret));
|
||||
$c->stash(
|
||||
title => $title,
|
||||
modul => $modul,
|
||||
ex1_data => \%ex1_data
|
||||
);
|
||||
$c->render(template => "example1");
|
||||
return
|
||||
} else {
|
||||
$c->stash( success => $c->l('ex1_TABLE_panel_action_was_successful')); #A bit bland - edit it in the lex file
|
||||
}
|
||||
}
|
||||
|
||||
# and call any signal-events needed
|
||||
#TBD
|
||||
# Setup shared data and call panel
|
||||
if ('none' eq 'none') {
|
||||
$ex1_data{'trt'} = 'TABLE';
|
||||
} else {
|
||||
$ex1_data{'trt'} = 'none';
|
||||
}
|
||||
$c->do_display($ex1_data{'trt'});
|
||||
}
|
||||
}
|
||||
|
||||
sub do_display {
|
||||
#
|
||||
# Return after link clicked in table (this is a get) - route is "/<whatever>d"
|
||||
# Expects ?trt=PANEL&selected="TableRowName" plus any other required
|
||||
#
|
||||
# OR it maybe a post from the main panel to add a new record
|
||||
#
|
||||
#load up all supplied params into prefix_data hash
|
||||
#call get-selected-PANEL() - returns hash of all relevent parameters
|
||||
#load up returned hash into prefix_data
|
||||
#render - to called panel
|
||||
|
||||
my ($c,$trt) = @_;
|
||||
$c->app->log->info($c->log_req);
|
||||
|
||||
#The most common ones - you might want to delete some of these if they are not used.
|
||||
$cdb = esmith::ConfigDB::UTF8->open() || die("Couldn't open config db");
|
||||
$adb = esmith::AccountsDB->open() || die("Couldn't open Accounts db");
|
||||
$ndb = esmith::NetworksDB->open() || die("Couldn't open Network db");
|
||||
$hdb = esmith::HostsDB::UTF8->open() || die("Couldn't open Hosts db");
|
||||
$ddb = esmith::DomainsDB::UTF8->open() || die("Couldn't open Domains db");
|
||||
|
||||
my $title = $c->l('ex1_Example_1');
|
||||
my $modul = '';
|
||||
|
||||
# Accessing all parameters
|
||||
my $params = $c->req->params->to_hash;
|
||||
|
||||
# Get number of parameters
|
||||
my $num_params = keys %$params;
|
||||
|
||||
#Tag as Post or Get (ie. create new entry or edit existing one
|
||||
my $is_new_record = ($c->req->method() eq 'POST');
|
||||
|
||||
#Params are available in the hash "params" - copy to the prefix_data hash
|
||||
#while (my ($key, $value) = each %{$c->req->params->to_hash}) {
|
||||
# $ex1_data{$key} = $value;
|
||||
#}
|
||||
|
||||
# the value of trt will tell you which panel has returned
|
||||
if (! $trt){
|
||||
$trt = $c->param('trt') || 'TABLE'; #Indicates where to go now
|
||||
}
|
||||
|
||||
# Now add in the params from the selected row from the table
|
||||
|
||||
my %selectedrow;
|
||||
|
||||
if ($trt eq 'PARAMS'){
|
||||
#Validate Get selected row (if applicable) PARAMS
|
||||
%selectedrow = $c->get_selected_PARAMS($ex1_data{'Selected'},$is_new_record);
|
||||
}
|
||||
|
||||
if ($trt eq 'TABLE'){
|
||||
#Validate Get selected row (if applicable) TABLE
|
||||
%selectedrow = $c->get_selected_TABLE($ex1_data{'Selected'},$is_new_record);
|
||||
}
|
||||
|
||||
|
||||
#Copy in the selected row params to the prefix_data hash to pass to the panel
|
||||
while (my ($key, $value) = each %selectedrow){
|
||||
$ex1_data{$key} = $value;
|
||||
}
|
||||
# Where to go now
|
||||
$ex1_data{'trt'} = $trt;
|
||||
|
||||
# Set up other shared data according to the panel to go to
|
||||
|
||||
if ($trt eq 'PARAMS'){
|
||||
# pickup any other contents needed and load them into hash shared with panel
|
||||
my %returned_hash;
|
||||
# subroutine returns a hash directly
|
||||
%returned_hash = $c->get_data_for_panel_PARAMS();
|
||||
# Copy each key-value pair from the returned hash to the prefix data hash
|
||||
while (my ($key, $value) = each %returned_hash) {
|
||||
$ex1_data{$key} = $value;
|
||||
}
|
||||
}
|
||||
|
||||
if ($trt eq 'TABLE'){
|
||||
# pickup any other contents needed and load them into hash shared with panel
|
||||
my %returned_hash;
|
||||
# subroutine returns a hash directly
|
||||
%returned_hash = $c->get_data_for_panel_TABLE();
|
||||
# Copy each key-value pair from the returned hash to the prefix data hash
|
||||
while (my ($key, $value) = each %returned_hash) {
|
||||
$ex1_data{$key} = $value;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
# and table control fields
|
||||
$c->stash(ibays=>$c->get_ibays());
|
||||
|
||||
|
||||
# Data for panel
|
||||
$c->stash(
|
||||
title => $title,
|
||||
modul => $modul,
|
||||
ex1_data => \%ex1_data
|
||||
);
|
||||
$c->render(template => "example1");
|
||||
}
|
||||
1;
|
||||
50
Targets/Example1/_ex1_PARAMS.html.ep
Normal file
50
Targets/Example1/_ex1_PARAMS.html.ep
Normal file
@@ -0,0 +1,50 @@
|
||||
%#
|
||||
%# Generated by SM2Gen version:0.9(20Jan2025) Chameleon version:4.5.4 On Python:3.12.3 at 2025-09-06 06:03:54
|
||||
%#
|
||||
<div id="Example1-PARAMS" class="partial Example1-PARAMS">
|
||||
%# <script>
|
||||
%# window.onload = function() {
|
||||
%# SelectInput();
|
||||
%# };
|
||||
%# </script>
|
||||
% if (config->{debug} == 1) {
|
||||
<pre>
|
||||
%= dumper $ex1_data
|
||||
</pre>
|
||||
% }
|
||||
% my $btn = l('SAVE');
|
||||
% $c->param(Selected => undef); #This may need deleting for a params panel - only needed for a table
|
||||
|
||||
%= form_for "example1u" => (method => 'POST') => begin
|
||||
% param 'trt' => $ex1_data->{trt} unless param 'trt';
|
||||
%= hidden_field 'trt' => $ex1_data->{trt}
|
||||
%# Inputs etc in here.
|
||||
|
||||
<h1 class='head'><%=l('Example Contrib')%></h1>
|
||||
|
||||
<h2 class='subh'><%=l('Manage Ibay settings:')%></h2>
|
||||
|
||||
<p class='paragraph para1'>
|
||||
%=l('These parameters will be effective only if the share is enabled. The share is in /home/e-smith/files/ibays//files')
|
||||
</p>
|
||||
|
||||
<p><span class=label>
|
||||
%=l('ex1_Information Bay name')
|
||||
</span><span class=data>
|
||||
% param 'IbayName' => $ex1_data->{IbayName} unless param 'IbayName';
|
||||
%= text_field 'IbayName', size => '50', class => 'textinput IbayName' , pattern=>'.*' , placeholder=>'IbayName', title =>'Pattern regex mismatch', id => 'IbayName_text'
|
||||
<br></span></p>
|
||||
|
||||
<p><span class=label>
|
||||
%=l('ex1_Share owner Group')
|
||||
</span><span class=data>
|
||||
% my @ShareOwnerGrp_options = [['Write = admin, Read = group' => 'All'], ['Write = group, Read = everyone' => 'Read:All-Write:Grp']];
|
||||
% param 'ShareOwnerGrp' => $ex1_data->{ShareOwnerGrp} unless param 'ShareOwnerGrp';
|
||||
%= select_field 'ShareOwnerGrp' => @ShareOwnerGrp_options, class => 'input', id => 'ShareOwnerGrp_select'
|
||||
<br></span> </p>
|
||||
|
||||
%# ....
|
||||
%# Probably finally by a submit.
|
||||
%= submit_button $btn, class => 'action'
|
||||
%end
|
||||
</div>
|
||||
54
Targets/Example1/_ex1_TABLE.html.ep
Normal file
54
Targets/Example1/_ex1_TABLE.html.ep
Normal file
@@ -0,0 +1,54 @@
|
||||
%#
|
||||
%# Generated by SM2Gen version:0.9(20Jan2025) Chameleon version:4.5.4 On Python:3.12.3 at 2025-09-06 06:03:54
|
||||
%#
|
||||
<div id="Example1-TABLE" class="partial Example1-TABLE">
|
||||
%# <script>
|
||||
%# window.onload = function() {
|
||||
%# SelectInput();
|
||||
%# };
|
||||
%# </script>
|
||||
% if (config->{debug} == 1) {
|
||||
<pre>
|
||||
%= dumper $ex1_data
|
||||
</pre>
|
||||
% }
|
||||
% my $btn = l('SAVE');
|
||||
% $c->param(Selected => undef); #This may need deleting for a params panel - only needed for a table
|
||||
|
||||
%= form_for "example1u" => (method => 'POST') => begin
|
||||
% param 'trt' => $ex1_data->{trt} unless param 'trt';
|
||||
%= hidden_field 'trt' => $ex1_data->{trt}
|
||||
%# Inputs etc in here.
|
||||
|
||||
<h1 class='head'><%=l('NFS Share Contrib')%></h1>
|
||||
|
||||
<h2 class='subh'><%=l('Manage NFS Ibay settings:')%></h2>
|
||||
|
||||
<br /><table class="sme-border TableSort sme-table tabl1 ">
|
||||
<thead class='tabl1'>
|
||||
<tr table-head-row>
|
||||
<th class='sme-border table-head-col table-head-col-Name '><%=l('Name')%></th>
|
||||
<th class='sme-border table-head-col table-head-col-Description '><%=l('Description')%></th>
|
||||
<th class='sme-border table-head-col table-head-col-Status '><%=l('Status')%></th>
|
||||
<th class='sme-border table-head-col table-head-col-Action '><%=l('Action')%></th>
|
||||
</tr>
|
||||
</thead>
|
||||
<tbody class='tabl1'>
|
||||
% my $control_data = $c->stash('ibays');
|
||||
% foreach my $row (@$control_data) {
|
||||
<tr class='table-row'>
|
||||
<td class='sme-border table-col table-col-Name'><%=$c->render_to_string(inline=>$row->{'Name'})%></td>
|
||||
<td class='sme-border table-col table-col-Description'><%=$c->render_to_string(inline=>$row->{'Description'})%></td>
|
||||
<td class='sme-border table-col table-col-flag'><%=$c->render_to_string(inline=>$row->{'flag'})%></td>
|
||||
<td class='sme-border table-col table-col-Modify'><%=$c->render_to_string(inline=>$row->{'Modify'})%></td>
|
||||
</tr>
|
||||
%}
|
||||
</tbody>
|
||||
</table>
|
||||
|
||||
|
||||
%# ....
|
||||
%# Probably finally by a submit.
|
||||
%= submit_button $btn, class => 'action'
|
||||
%end
|
||||
</div>
|
||||
20
Targets/Example1/example1.css
Normal file
20
Targets/Example1/example1.css
Normal file
@@ -0,0 +1,20 @@
|
||||
/*
|
||||
Generated by: SM2Gen version:0.9(20Jan2025) Chameleon version:4.5.4 On Python:3.12.3 at 2025-09-06 06:03:54
|
||||
*/
|
||||
.Example1-panel {}
|
||||
.name {}
|
||||
.rout {}
|
||||
.head {}
|
||||
.subh {}
|
||||
.para1 {}
|
||||
.text1 {}
|
||||
.sele2 {}
|
||||
.name {}
|
||||
.rout {}
|
||||
.head {}
|
||||
.subh {}
|
||||
.next {}
|
||||
.tabl1 {}
|
||||
thead .tabl1 {}
|
||||
tbody .tabl1 {}
|
||||
.next {}
|
||||
56
Targets/Example1/example1.html.ep
Normal file
56
Targets/Example1/example1.html.ep
Normal file
@@ -0,0 +1,56 @@
|
||||
%#
|
||||
%# Generated by SM2Gen version:0.9(20Jan2025) Chameleon version:4.5.4 On Python:3.12.3 at 2025-09-06 06:03:54
|
||||
%#
|
||||
% layout 'default', title => "Sme server 2 - Example 1", share_dir => './';
|
||||
%# css specific to this panel:
|
||||
% content_for 'module' => begin
|
||||
%= stylesheet '/css/example1.css'
|
||||
%= javascript '/js/example1.js'
|
||||
<div id="module" class="module Example1-panel">
|
||||
|
||||
% if (config->{debug} == 1) {
|
||||
<pre>
|
||||
%= dumper $c->current_route
|
||||
%= dumper $ex1_data->{trt}
|
||||
</pre>
|
||||
% }
|
||||
|
||||
<h1><%=$title%></h1>
|
||||
|
||||
% if ( stash('modul')) {
|
||||
%= $c->render_to_string(inline => stash('modul') );
|
||||
% }
|
||||
|
||||
%if ($c->stash('first')) {
|
||||
<br><p>
|
||||
%=$c->render_to_string(inline =>$c->l($c->stash('first')))
|
||||
</p>
|
||||
|
||||
%} elsif ($c->stash('success')) {
|
||||
<div class='success '>
|
||||
%= $c->l($c->stash('success'));
|
||||
</div>
|
||||
<br />
|
||||
|
||||
%} elsif ($c->stash('error')) {
|
||||
<div class='sme-error'>
|
||||
%= $c->l($c->stash('error'));
|
||||
</div>
|
||||
<br />
|
||||
%}
|
||||
|
||||
%#Routing to partials according to trt parameter.
|
||||
%#This ought to be cascading if/then/elsif, but is easier to just stack the if/then's rather like a case statement'
|
||||
|
||||
% if ($ex1_data->{trt} eq "PARAMS") {
|
||||
%= include 'partials/_ex1_PARAMS'
|
||||
%}
|
||||
|
||||
% if ($ex1_data->{trt} eq "TABLE") {
|
||||
%= include 'partials/_ex1_TABLE'
|
||||
%}
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
%end
|
||||
5
Targets/Example1/example1.js
Normal file
5
Targets/Example1/example1.js
Normal file
@@ -0,0 +1,5 @@
|
||||
//
|
||||
//Generated by: SM2Gen version:0.9(20Jan2025) Chameleon version:4.5.4 On Python:3.12.3 at 2025-09-06 06:03:54
|
||||
//
|
||||
$(document).ready(function() {
|
||||
});
|
||||
18
Targets/Example1/example1_en.lex
Normal file
18
Targets/Example1/example1_en.lex
Normal file
@@ -0,0 +1,18 @@
|
||||
#
|
||||
# Generated by SM2Gen version: SM2Gen version:0.9(20Jan2025) Chameleon version:4.5.4 On Python:3.12.3 at 2025-09-06 06:03:54
|
||||
#
|
||||
'ex1_PARAMS_panel_action_was_successful' => 'PARAMS panel action was successful',
|
||||
'ex1_Example_1' => 'Example 1',
|
||||
'ex1_Description' => 'Description',
|
||||
'ex1_Status' => 'Status',
|
||||
'ex1_Action' => 'Action',
|
||||
'ex1_Name' => 'Name',
|
||||
'ex1_Information_Bay_name' => 'Information Bay name',
|
||||
'ex1_Example_Contrib' => 'Example control',
|
||||
'ex1_NFS_Share_Contrib' => 'NFS Share control',
|
||||
'ex1_These_parameters_will_be_effective' => 'These parameters will be effective only if the share is enabled The share is in /home/e-smith/files/ibays//files',
|
||||
'ex1_Manage_NFS_Ibay_settings:' => 'Manage NFS bay settings',
|
||||
'ex1_Share_owner_Group' => 'Share owner Group',
|
||||
'ex1_SAVE' => 'Save',
|
||||
'ex1_TABLE_panel_action_was_successful' => 'TABLE panel action was successful',
|
||||
'ex1_Manage_Ibay_settings:' => 'Manage bay settings',
|
||||
Reference in New Issue
Block a user