| 
									
										
										
										
											2024-04-26 09:26:38 +01:00
										 |  |  | # | 
					
						
							| 
									
										
										
										
											2024-06-13 16:38:25 +01:00
										 |  |  | # Routines to be edited by the developer to provide validation for parameters | 
					
						
							| 
									
										
										
										
											2024-04-26 09:26:38 +01:00
										 |  |  | # and provison of the control data for table(s) | 
					
						
							|  |  |  | # | 
					
						
							| 
									
										
										
										
											2024-09-14 11:39:26 +01:00
										 |  |  | # Generated by SM2Gen version:0.8 Chameleon version:4.5.4 On Python:3.12.3 at 2024-09-13 19:20  | 
					
						
							| 
									
										
										
										
											2024-04-28 12:03:06 +01:00
										 |  |  | # | 
					
						
							| 
									
										
										
										
											2024-04-26 09:26:38 +01:00
										 |  |  | 
 | 
					
						
							|  |  |  | 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"); | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | # Validation routines - parameters for each panel | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | 	sub validate_PARAMS { | 
					
						
							| 
									
										
										
										
											2024-05-06 10:05:43 +01:00
										 |  |  | 		my $c = shift; | 
					
						
							|  |  |  | 		my $prefix_data = shift; #Data hash as parameter | 
					
						
							|  |  |  | 		my $ret = 'ok'; | 
					
						
							| 
									
										
										
										
											2024-04-26 09:26:38 +01:00
										 |  |  | 		return $ret; | 
					
						
							|  |  |  | 	} | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | 	 | 
					
						
							|  |  |  | # Get control data for tables(s) | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2024-04-28 12:03:06 +01:00
										 |  |  | 
 | 
					
						
							|  |  |  | # Return hash with values from row in which link clicked on table | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2024-05-06 10:05:43 +01:00
										 |  |  | 	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 = {}; | 
					
						
							| 
									
										
										
										
											2024-04-28 12:03:06 +01:00
										 |  |  | 		return $ret; | 
					
						
							|  |  |  | 	} | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | #after sucessful modify or create or whatever and submit then perfom (if the params validate) | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | 	sub perform_PARAMS { | 
					
						
							| 
									
										
										
										
											2024-05-06 10:05:43 +01:00
										 |  |  | 		my $c = shift; | 
					
						
							|  |  |  | 		my $prefix_data = shift; #Data hash as parameter | 
					
						
							|  |  |  | 		my $ret = 'ok'; | 
					
						
							| 
									
										
										
										
											2024-04-28 12:03:06 +01:00
										 |  |  | 		return $ret; | 
					
						
							|  |  |  | 	} | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2024-04-26 09:26:38 +01:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2024-05-03 18:08:44 +01:00
										 |  |  | sub create_link{ | 
					
						
							|  |  |  | 	# WIP | 
					
						
							|  |  |  | 	my ($c,$route, $panel, $index) = shift; | 
					
						
							|  |  |  | 	my $link = "$route?trt=$panel&Selected=$index"; | 
					
						
							|  |  |  | 	return $link; | 
					
						
							|  |  |  | } | 
					
						
							| 
									
										
										
										
											2024-04-26 09:26:38 +01:00
										 |  |  | 1; |