# # Generated by ${version} # # # 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; use esmith::HostsDB; use esmith::AccountsDB; use esmith::NetworksDB; use esmith::DomainsDB; use constant FALSE => 0; use constant TRUE => 1; #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"); # Validation routines - parameters for each panel sub validate_${panel} { my $c = shift; my $prefix_data = shift; #Data hash as parameter # Validation for each field my $ret = ""; if (! TRUE) #validate $c->param('${field}') {$ret .= 'Validation for ${field} failed';} if ($ret eq "") {$ret = 'ok';} return $ret; } # Get singleton data for each panel sub get_data_for_panel_${panel} { # Return a hash with the fields required which will be loaded into the shared data my $c = shift; my %ret = ( 'Data1'=>'Data for ${panel}', #Example # fields from Inputs in ${panel} $fields['${panel}'] '${field}'=>'${field} contents', ); return %ret; } # Get control data for table(s) # Define a constant hash for field name mapping use constant ${tablecontrol[0]}_FIELD_MAPPING => ( '${col}' => 'Source-for-${col}', #'target_field2' => 'source_field2', # Add more mappings as needed ); sub actual_${tablecontrol[0]} { my @ret = (); # Actual code for extracting ${tablecontrol[0]} return @ret; } sub get_${tablecontrol[0]} { # Return an array of hashes of the contents for each row and column for ${tablecontrol[0]} my $c = shift; my @source_records = $c->actual_${tablecontrol[0]}(); my @transformed_records; my %Field_Mapping = ${tablecontrol[0]}_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_${panel} { my $c = shift; my $selected = shift; #Parameter is name of selected row. my $is_new_record = shift; #Indicates new record required (defaults) my %ret = {}; return $ret; } #after sucessful modify or create or whatever and submit then perfom (if the params validate) sub perform_${panel} { my $c = shift; my $prefix_data = shift; #Data hash as parameter my $ret = ""; my $db = $cdb; #maybe one of the others my $dbkey = 'ChangeThis'; if (! TRUE) #copy or perform with value: ${field} e.g. $c->setprop($db,$dbkey,$c->param('${field}'))) {$ret .= 'Perform/save failed for ${field}';} 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;