# # Routines to be editted by the developer to provide validation for parameters # and provison of the control data for table(s) # # Generated by SM2Gen version:${version} # #$cdb=$main::cdb; #$adb=$main::adb; #$ndb=$main::ndb; #$hdb=$main::hdb; #$ddb=$main::ddb; 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 { $ret = 'ok'; return $ret; } sub validate_TABLE { $ret = 'ok'; return $ret; } # Get control data for tables(s) sub get_ibays { my @res; my @ibays = $adb->ibays(); foreach my $i (@ibays){ my %hash = ('Name'=> $i->prop('Name'), 'Description' => $i->prop('Description'), 'Flag' => 1, 'PARAMS' => 'Modify' ); push(@res,\%hash); } return \@res } 1;