#!/usr/bin/perl -w
#*********************************************************************
+*********
#
# Program : asset_mgr.pl
#
# Desc : Top level menu program to run the Asset Mgr software.
# Each DB table has it's own perl code file to manage it'
+s
# data. These are instantiated as pm (Perl module) files,
# one per table.
#
# Params : See get_cmd_line_params()
#
#*********************************************************************
+*********
#
# Amendment History
# -----------------
#
# Date Author Description
# ----------- ---------- --------------------------------------
+---------
# 04-Feb 2008 C Moden Orig version
#
#*********************************************************************
+*********
use locale; # Ensure correct charset for eg 'uc()'
use CGI::FormBuilder; # build GUI forms
use Asset_Mgr; # custom/local AM module
use adsl_routers; # routines to deal with adsl_routers
use strict; # Enforce declarations
# Get cfg params
get_cmd_line_params();
# Connect to DB
db_connect();
# run the code
asset_mgr_ctrl();
#*********************************************************************
+*********
#
# Function : asset_mgr_ctrl
#
# Description : Main processing loop.
# Setup a menu for user's to choose which asset type t
+o
# 'maintain' and call the appropriate module.
#
# Params : none
#
# Returns : none
#
#*********************************************************************
+*********
sub asset_mgr_ctrl
{
my (
$tmp,
@asset_type_opts, # list of asset types for drop down list
$asset_cnt, # count of asset id recs ie id exists ?
$form, # formbuilder object
$fields # hashref of form fields: name=>value
);
# Create form layout ...
$form = CGI::FormBuilder->new(
name => 'asset_mgr',
title => 'Asset Manager',
text => "Select Asset Type",
method => 'post',
sticky => 0,
header => 1,
submit => 'AM',
fields => [qw(action asset_type asset_id)],
required => [qw(action asset_type)]
);
$form->field(name => 'action',
options => [qw(CREATE UPDATE)],
type => 'select',
selectname => 0,
value => "CREATE"
);
$form->field(name => 'asset_type',
options => \@asset_type_opts,
type => 'select',
selectname => 0,
value => "$asset_type_opts[0]"
);
# Check form
$fields = $form->field;
if( $form->submitted eq "AM")
{
if( $fields->{'action'} eq 'UPDATE' )
{
# Check they've specified an extant asset id
$fields->{'asset_id'} = uc($fields->{'asset_id'});
#DEBUG
log_msg("type $fields->{'asset_type'} id $fields->{'asset_id'}");
$asset_cnt = db_check_asset_id($fields->{'asset_type'},
$fields->{'asset_id'});
if( !$asset_cnt )
{
# Invalid; show form and allow corrections
$cfg::err_flag = 0;
print $form->render(sticky => 1);
}
elsif( $form->validate )
{
# Call pm
$tmp ='ADSL';
adsl_routers_ctrl($fields->{'action'},
$fields->{'asset_id'});
log_msg("adsl done");
}
else
{
# Invalid; show form and allow corrections
$cfg::err_flag = 0;
print $form->render(sticky => 1);
}
}
else
{
# Print form
print $form->render;
}
}
elsif( $tmp eq "ADSL" )
{
log_msg("call do it");
adsl_routers_ctrl("DOIT","");
}
else
{
# Print form
print $form->render;
}
}
################### NEW FILE STARTS HERE #################3
#!/usr/bin/perl -w
#*********************************************************************
+*********
#
# Program : adsl_routers_maint.pm
#
# Desc : Insert/Update/Delete recs from the adsl_routers table i
+n
# the Asset Mgr DB.
# Also, update ZABBIX system. ????
#
# Params : See get_cmd_line_params()
#
#*********************************************************************
+*********
#
# Amendment History
# -----------------
#
# Date Author Description
# ----------- ---------- --------------------------------------
+---------
# 25-Jan 2008 C Moden Orig version
#
#*********************************************************************
+*********
package adsl_routers;
use locale; # Ensure correct charset for eg 'uc()'
use CGI::FormBuilder; # build GUI forms
use Asset_Mgr; # custom/local AM module
use strict; # Enforce declarations
use vars qw(@EXPORT);
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw( adsl_routers_ctrl );
#*********************************************************************
+*********
#
# Function : adsl_routers_ctrl
#
# Description : Main processing loop.
# Having got the new settings, insert or update the
# adsl_routers table as appropriate.
# Note that we never delete a box, we just set it's st
+atus
# to 'DECOMMISSIONED'.
#
# Params : $_[0] action CREATE/UPDATE
# $_[1] asset id (if UPDATE)
#
# Returns : none
#
#*********************************************************************
+*********
sub adsl_routers_ctrl
{
my (
$param_action, # create/update from prev form
$param_asset_id, # asset to update from prev form
$form, # formbuilder object
$fields, # hashref of form fields: name=>value
$asset_vals, # hashref to DB row for specified asset id
%tidy_fields # data for SQL processing
);
# Create the form & display it
$param_action = $_[0];
$param_asset_id = $_[1];
log_msg("adsl code: $param_action $param_asset_id");
if( uc($param_action) eq 'CREATE' )
{
# CREATE
# Create form layout ...
$form = CGI::FormBuilder->new(
name => 'adsl_routers',
title => 'ADSL Routers Maintenance',
text => "Create New ADSL Router",
method => 'post',
sticky => 0,
header => 1,
fields => [qw(ip_addr fqdn
alias operating_system location
purch_date purch_amt
install_date end_of_life
make model makers_serial
makers_desc notes)],
required => [qw(operating_system location
purch_date purch_amt
install_date end_of_life make
model makers_serial makers_desc)],
validate => { ip_addr => 'IPV4',
fqdn => 'DOMAIN',
purch_date => 'EUDATE',
purch_amt => '/^[+-]?\d+(\.\d{1,2})?$/',
install_date => 'EUDATE',
end_of_life => 'EUDATE'}
);
$form->field(name => 'purch_date',
comment => '(DD/MM/YYYY)');
$form->field(name => 'install_date',
comment => '(DD/MM/YYYY)');
$form->field(name => 'end_of_life',
comment => '(DD/MM/YYYY)');
}
elsif( uc($param_action) eq 'UPDATE' )
{
# for updates, get current DB rec values
if( defined($param_asset_id) )
{
$asset_vals = db_get_adsl_routers($param_asset_id);
}
# Create form layout ...
$form = CGI::FormBuilder->new(
name => 'adsl_routers',
title => 'ADSL Routers Maintenance',
text => "Update Information for $param_asset_id",
method => 'post',
sticky => 0,
header => 1,
submit => 'ADSL',
fields => [qw(ip_addr fqdn alias operating_system
location old_status new_status
purch_date purch_amt
install_date commission_date end_of_life
make model makers_serial
makers_desc notes)],
required => [qw(operating_system location
new_status purch_date purch_amt
install_date end_of_life make
model makers_serial makers_desc)],
validate => { ip_addr => 'IPV4',
fqdn => 'DOMAIN',
purch_date => 'EUDATE',
purch_amt => '/^[+-]?\d+(\.\d{1,2})?$/',
install_date => 'EUDATE',
commission_date => 'EUDATE',
end_of_life => 'EUDATE'}
);
$form->field(name => 'asset_id',
value => "$param_asset_id",
type => 'hidden'); # for db update
$form->field(name => 'old_status',
type => 'hidden',
sticky => 0 ); # for db update
$form->field(name => 'new_status',
comment =>
"(Current: $asset_vals->{'old_stat
+us'})",
options => \@Asset_Mgr::status_opts,
type => 'select',
selectname => 0,
value => "$asset_vals->{'old_status'}"
);
$form->field(name => 'purch_date',
comment => '(DD/MM/YYYY)');
$form->field(name => 'install_date',
comment => '(DD/MM/YYYY)');
$form->field(name => 'commission_date',
comment => '(DD/MM/YYYY)');
$form->field(name => 'end_of_life',
comment => '(DD/MM/YYYY)');
}
log_msg("form defined");
# Check form
if( $form->submitted )
{
#DEBUG
log_msg("submitted");
if( $form->validate )
{
#DEBUG
log_msg("validated");
# More data munging
$fields = $form->field;
%tidy_fields = do_data_tidy($param_action, %{$fields});
# Amend Database
$cfg::err_flag = 0;
db_start_txn() if( !$cfg::err_flag );
update_database(%tidy_fields) if( !$cfg::err_flag );
db_commit_txn() if( !$cfg::err_flag );
if( !$cfg::err_flag )
{
print $form->confirm(sticky => 1,header => 1);
}
else
{
#DEBUG
log_msg("mytrap");
# Invalid; show form and allow corrections
# $form->field(name => 'new_status',
# message => "Uknown change requested"
# );
# $form->validate(new_status => 'NONE');
$cfg::err_flag = 0;
print $form->render(sticky => 1, debug =>2);
}
}
else
{
# Invalid; show form and allow corrections
$cfg::err_flag = 0;
print $form->render(sticky => 1);
}
}
else
{
log_msg("not yet submitted");
# Clear flag & render (appropriate) form version
$cfg::err_flag = 0;
if( uc($param_action) eq 'CREATE' )
{
# CREATE:
# Print empty form for next part addition.
print $form->render;
}
else
{
log_msg("render update");
# UPDATE:
# Print form filled with values for selected asset_id
print $form->render(values => $asset_vals);
}
}
}
|
