ASNMTAP
view release on metacpan or search on metacpan
lib/ASNMTAP/Asnmtap/Applications.pm view on Meta::CPAN
# ----------------------------------------------------------------------------------------------------------
# © Copyright 2000-2011 by Alex Peeters [alex.peeters@citap.be]
# ----------------------------------------------------------------------------------------------------------
# 2011/mm/dd, v3.002.003, package ASNMTAP::Asnmtap::Applications
# ----------------------------------------------------------------------------------------------------------
package ASNMTAP::Asnmtap::Applications;
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
use strict;
use warnings; # Must be used in test mode only. This reduces a little process speed
#use diagnostics; # Must be used in test mode only. This reduces a lot of process speed
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
use Carp qw(cluck);
use Date::Calc qw(Today);
use Time::Local;
# include the class files - - - - - - - - - - - - - - - - - - - - - - - -
use ASNMTAP::Time qw(&get_csvfiledate &get_datetimeSignal);
use ASNMTAP::Asnmtap qw(:ASNMTAP :COMMANDS :_HIDDEN :APPLICATIONS :PLUGINS);
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
BEGIN {
use Exporter ();
@ASNMTAP::Asnmtap::Applications::ISA = qw(Exporter ASNMTAP::Asnmtap);
%ASNMTAP::Asnmtap::Applications::EXPORT_TAGS = (ALL => [ qw($APPLICATION $BUSINESS $DEPARTMENT $COPYRIGHT $SENDEMAILTO $TYPEMONITORING $RUNCMDONDEMAND
$CAPTUREOUTPUT
$PREFIXPATH $LOGPATH $PIDPATH $PERL5LIB $MANPATH $LD_LIBRARY_PATH
%ERRORS %STATE %TYPE @EVENTS %EVENTS
$CHATCOMMAND $DIFFCOMMAND $KILLALLCOMMAND $PERLCOMMAND $PPPDCOMMAND $ROUTECOMMAND $RSYNCCOMMAND $SCPCOMMAND $SSHCOMMAND
&_checkAccObjRef
&_checkSubArgs0 &_checkSubArgs1 &_checkSubArgs2
&_checkReadOnly0 &_checkReadOnly1 &_checkReadOnly2
&_dumpValue
$APPLICATIONPATH $PLUGINPATH
$ASNMTAPMANUAL
$DATABASE $CATALOGID
$AWSTATSENABLED
$CONFIGDIR $CGISESSDIR $DEBUGDIR $REPORTDIR $RESULTSDIR
$CGISESSPATH $HTTPSPATH $IMAGESPATH $PDPHELPPATH $RESULTSPATH $SSHKEYPATH $WWWKEYPATH
$HTTPSSERVER $REMOTE_HOST $REMOTE_ADDR $HTTPSURL $IMAGESURL $PDPHELPURL $RESULTSURL
$SMTPUNIXSYSTEM $SERVERLISTSMTP $SERVERSMTP $SENDMAILFROM
$SSHLOGONNAME $RSYNCIDENTITY $SSHIDENTITY $WWWIDENTITY
$RMVERSION $RMDEFAULTUSER
$CHARTDIRECTORLIB
$HTMLTOPDFPRG $HTMLTOPDFHOW $HTMLTOPDFOPTNS
$PERFPARSEBIN $PERFPARSEETC $PERFPARSELIB $PERFPARSESHARE $PERFPARSECGI $PERFPARSEENABLED
$PERFPARSEVERSION $PERFPARSECONFIG $PERFPARSEDATABASE $PERFPARSEHOST $PERFPARSEPORT $PERFPARSEUSERNAME $PERFPARSEPASSWORD
$RECORDSONPAGE $NUMBEROFFTESTS $VERIFYNUMBEROK $VERIFYMINUTEOK $FIRSTSTARTDATE $STRICTDATE $STATUSHEADER01
%COLORS %COLORSPIE %COLORSRRD %COLORSTABLE %ICONS %ICONSACK %ICONSUNSTABLE %ICONSRECORD %ICONSSYSTEM %ENVIRONMENT %SOUND %QUARTERS
$SERVERMYSQLVERSION $SERVERMYSQLMERGE
$SERVERNAMEREADWRITE $SERVERPORTREADWRITE $SERVERUSERREADWRITE $SERVERPASSREADWRITE
$SERVERNAMEREADONLY $SERVERPORTREADONLY $SERVERUSERREADONLY $SERVERPASSREADONLY
$SERVERTABLCATALOG $SERVERTABLCLLCTRDMNS $SERVERTABLCOMMENTS $SERVERTABLCOUNTRIES $SERVERTABLCRONTABS $SERVERTABLDISPLAYDMNS $SERVERTABLDISPLAYGRPS $SERVERTABLENVIRONMENT $SERVERT...
&read_table &get_session_param &get_trendline_from_test
&set_doIt_and_doOffline
&create_header &create_footer &encode_html_entities &decode_html_entities &print_header &print_legend
&init_email_report &send_email_report &sending_mail
&CSV_prepare_table &CSV_insert_into_table &CSV_import_from_table &CSV_cleanup_table
&DBI_connect &DBI_do &DBI_execute &DBI_error_trap
&LOG_init_log4perl
&print_revision &usage &call_system) ],
APPLICATIONS => [ qw($APPLICATION $BUSINESS $DEPARTMENT $COPYRIGHT $SENDEMAILTO $TYPEMONITORING $RUNCMDONDEMAND
$CAPTUREOUTPUT
$PREFIXPATH $PLUGINPATH $LOGPATH $PIDPATH $PERL5LIB $MANPATH $LD_LIBRARY_PATH
%ERRORS %STATE %TYPE
&sending_mail
&print_revision &usage &call_system) ],
COMMANDS => [ qw($CHATCOMMAND $DIFFCOMMAND $KILLALLCOMMAND $PERLCOMMAND $PPPDCOMMAND $ROUTECOMMAND $RSYNCCOMMAND $SCPCOMMAND $SSHCOMMAND) ],
_HIDDEN => [ qw(&_checkAccObjRef
&_checkSubArgs0 &_checkSubArgs1 &_checkSubArgs2
&_checkReadOnly0 &_checkReadOnly1 &_checkReadOnly2
&_dumpValue) ],
ARCHIVE => [ qw($DATABASE $CATALOGID
$DEBUGDIR $REPORTDIR
$CGISESSPATH $RESULTSPATH
$SMTPUNIXSYSTEM $SERVERLISTSMTP $SERVERSMTP $SENDMAILFROM
@EVENTS %EVENTS
&read_table &get_session_param
&init_email_report &send_email_report
&CSV_prepare_table &CSV_insert_into_table &CSV_import_from_table &CSV_cleanup_table
&DBI_connect &DBI_do &DBI_execute
&LOG_init_log4perl) ],
DBARCHIVE => [ qw($DATABASE $CATALOGID $SERVERMYSQLVERSION $SERVERMYSQLMERGE $SERVERNAMEREADWRITE $SERVERPORTREADWRITE $SERVERUSERREADWRITE $SERVERPASSREADWRITE $SERVERTABLEVENTS $SERVERTABLCOMMENT...
COLLECTOR => [ qw($APPLICATIONPATH
$DEBUGDIR
$CHARTDIRECTORLIB
$HTTPSPATH $RESULTSPATH $PIDPATH
$PERFPARSEBIN $PERFPARSEETC $PERFPARSELIB $PERFPARSESHARE $PERFPARSECGI $PERFPARSEENABLED
$SERVERSMTP $SMTPUNIXSYSTEM $SERVERLISTSMTP $SENDMAILFROM
%COLORSRRD %ENVIRONMENT @EVENTS %EVENTS
&read_table &get_trendline_from_test
&set_doIt_and_doOffline
&create_header &create_footer
&CSV_prepare_table &CSV_insert_into_table &CSV_import_from_table &CSV_cleanup_table
&DBI_connect &DBI_do &DBI_execute
&LOG_init_log4perl
&print_revision &usage &call_system) ],
DBCOLLECTOR => [ qw($DATABASE $CATALOGID $SERVERMYSQLVERSION $SERVERMYSQLMERGE $SERVERNAMEREADWRITE $SERVERPORTREADWRITE $SERVERUSERREADWRITE $SERVERPASSREADWRITE
$SERVERTABLCOMMENTS $SERVERTABLEVENTS $SERVERTABLEVENTSCHNGSLGDT $SERVERTABLEVENTSDISPLAYDT) ],
DISPLAY => [ qw($APPLICATIONPATH
$AWSTATSENABLED
$HTTPSPATH $RESULTSPATH $PIDPATH
$HTTPSURL $IMAGESURL $RESULTSURL
$SERVERSMTP $SMTPUNIXSYSTEM $SERVERLISTSMTP $SENDMAILFROM
$NUMBEROFFTESTS $VERIFYNUMBEROK $VERIFYMINUTEOK $STATUSHEADER01
%COLORS %ICONS %ICONSACK %ICONSUNSTABLE %ICONSRECORD %ENVIRONMENT %SOUND
&read_table &get_trendline_from_test
&create_header &create_footer &encode_html_entities &decode_html_entities &print_header &print_legend
&print_revision &usage &call_system) ],
DBDISPLAY => [ qw($DATABASE $CATALOGID $SERVERMYSQLVERSION $SERVERMYSQLMERGE $SERVERNAMEREADWRITE $SERVERPORTREADWRITE $SERVERUSERREADWRITE $SERVERPASSREADWRITE
lib/ASNMTAP/Asnmtap/Applications.pm view on Meta::CPAN
$RMVERSION $RMDEFAULTUSER
$CHARTDIRECTORLIB
$HTMLTOPDFPRG $HTMLTOPDFHOW $HTMLTOPDFOPTNS
$PERFPARSEBIN $PERFPARSEETC $PERFPARSELIB $PERFPARSESHARE $PERFPARSECGI $PERFPARSEENABLED
$PERFPARSEVERSION $PERFPARSECONFIG $PERFPARSEDATABASE $PERFPARSEHOST $PERFPARSEPORT $PERFPARSEUSERNAME $PERFPARSEPASSWORD
$RECORDSONPAGE $NUMBEROFFTESTS $VERIFYNUMBEROK $VERIFYMINUTEOK $FIRSTSTARTDATE $STRICTDATE
%COLORS %COLORSPIE %COLORSRRD %COLORSTABLE %ICONS %ICONSACK %ICONSUNSTABLE %ICONSRECORD %ICONSSYSTEM %ENVIRONMENT %SOUND %QUARTERS
&get_session_param
&set_doIt_and_doOffline
&encode_html_entities &print_header &print_legend
$SERVERMYSQLVERSION $SERVERMYSQLMERGE
$SERVERNAMEREADWRITE $SERVERPORTREADWRITE $SERVERUSERREADWRITE $SERVERPASSREADWRITE
$SERVERNAMEREADONLY $SERVERPORTREADONLY $SERVERUSERREADONLY $SERVERPASSREADONLY
$SERVERTABLCATALOG $SERVERTABLCLLCTRDMNS $SERVERTABLCOMMENTS $SERVERTABLCOUNTRIES $SERVERTABLCRONTABS $SERVERTABLDISPLAYDMNS $SERVERTABLDISPLAYGRPS $SERVERTABLENVIRONMENT $SERVERT...
@ASNMTAP::Asnmtap::Applications::EXPORT_OK = ( @{ $ASNMTAP::Asnmtap::Applications::EXPORT_TAGS{ALL} } );
$ASNMTAP::Asnmtap::Applications::VERSION = do { my @r = (q$Revision: 3.002.003$ =~ /\d+/g); sprintf "%d."."%03d" x $#r, @r };
}
# = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
# Public subs = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
# = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
# TMP, exist into: Asnmtap
sub print_revision ($$);
sub usage;
sub call_system;
sub print_revision ($$) {
my $commandName = shift;
my $pluginRevision = shift;
$pluginRevision =~ s/^\$Revision: //;
$pluginRevision =~ s/ \$\s*$//;
print "
$commandName $pluginRevision
© Copyright $COPYRIGHT Alex Peeters [alex.peeters\@citap.be]
";
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
sub usage {
my $format = shift;
printf($format, @_);
exit $ERRORS{UNKNOWN};
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
sub call_system {
my ($system_action, $debug) = @_;
my ($stdout, $stderr, $exit_value, $signal_num, $dumped_core, $status);
if ($CAPTUREOUTPUT) {
use IO::CaptureOutput qw(capture_exec);
($stdout, $stderr) = capture_exec("$system_action");
chomp($stdout); chomp($stderr);
} else {
system ("$system_action"); $stdout = $stderr = '';
}
$exit_value = $? >> 8;
$signal_num = $? & 127;
$dumped_core = $? & 128;
$status = ( $exit_value == 0 && $signal_num == 0 && $dumped_core == 0 && $stderr eq '' ) ? 1 : 0;
print "< $system_action >< $exit_value >< $signal_num >< $dumped_core >< $status >< $stdout >< $stderr >\n" if ($debug);
return ($status, $stdout, $stderr);
}
# = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
sub read_table;
sub get_session_param;
sub get_trendline_from_test;
# = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
sub _in_cyclus;
sub set_doIt_and_doOffline;
# = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
sub create_header;
sub create_footer;
sub encode_html_entities;
sub decode_html_entities;
sub print_header;
sub print_legend;
# = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
sub init_email_report;
sub send_email_report;
sub sending_mail;
# = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
sub CSV_prepare_table;
sub CSV_insert_into_table;
sub CSV_import_from_table;
sub CSV_cleanup_table;
# = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
sub DBI_connect;
sub DBI_do;
sub DBI_execute;
sub DBI_error_trap;
# = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
sub LOG_init_log4perl;
( run in 0.620 second using v1.01-cache-2.11-cpan-39bf76dae61 )