111 lines
3.1 KiB
Perl
Executable File
111 lines
3.1 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
# STTA Rev. 1.3 Copyright (c) 2001-2004 Jesús Pérez Lorenzo --- license GNU GPL
|
|
# stta: (@#) 1.31051043346- [2004_01_29_102036]
|
|
|
|
$debug=0;
|
|
$do_reload = $ARGV[0];
|
|
|
|
if ( $do_reload eq "?" || $do_reload eq "help" | $do_reload eq "-h" ) {
|
|
print "ttasess: \"$task_type\" unknown option task \n";
|
|
print "ttasess [ -r | reload | true]\n";
|
|
exit 1;
|
|
};
|
|
$is_reload=false;
|
|
if ( $do_reload eq "reload" || $do_reload eq "true" | $do_reload eq "-r" ) {
|
|
$is_reload=true;
|
|
}
|
|
# where is config file for parameters .... (same as Webmin)
|
|
$config_directory="/etc/webmin";
|
|
|
|
do './base-lib.pl';
|
|
do './global-lib.pl';
|
|
do './lists-lib.pl';
|
|
do './print-lib.pl';
|
|
require './ttasess-lib.pl';
|
|
|
|
$tool_name="ttasess";
|
|
$tta_logfile=$ENV{'TTA_LOGFILE'};
|
|
$tta_logfile="/tmp/.webmin/stta_log";
|
|
$default_lang = "en";
|
|
$current_lang = "en";
|
|
$module_name = "stta";
|
|
$remote_user="admin";
|
|
$session_id="$$";
|
|
$hostname=`hostname`;
|
|
$hostname=~s/\n//g;
|
|
$ENV{'REMOTE_HOST'}=$hostname;
|
|
$action_id_count=0;
|
|
%ttaprops=();
|
|
@ttahosts=();
|
|
%sttaparams=();
|
|
$cginame= $0 =~ /([^\/]+)$/ ? $1 : '-';
|
|
$ldap_ok=true;
|
|
$ldapcache_ok=true;
|
|
$tta_ok=true;
|
|
|
|
&initialize();
|
|
&load_dataconf();
|
|
&start_debug();
|
|
%access = &get_module_acl();
|
|
%text = &load_language();
|
|
|
|
# globals to keep STTA info
|
|
%ttaprops=();
|
|
@ttahosts=();
|
|
%sttaparams=();
|
|
$ldap_ok=true;
|
|
$ldapcache_ok=true;
|
|
$tta_ok=true;
|
|
|
|
&load_ttaprops();
|
|
$mhost=$sttaparams{'tta'}{'masthost'};
|
|
&scanSTTA_services("all");
|
|
if ( $debug gt 0 ) {
|
|
&out_params();
|
|
&checkSTTA_services("all","warn");
|
|
}
|
|
|
|
|
|
$run_exec_user=$config{run_exec_user};
|
|
|
|
if ( $config{has_cronsess} ne "true" || $config{'countsessout_file'} eq "" ) {
|
|
$err_msg=$text{nohascountsess_err};
|
|
&webmin_log($tool_name, "has_cronsess",$err_msg);
|
|
exit;
|
|
}
|
|
|
|
$ahora=&set_now();
|
|
|
|
# call to ttasess_tables()
|
|
#
|
|
# To load TTA session Tables
|
|
# if "has_cronsess" and "tta_sessout_file" it will try to use stored info
|
|
# $is_reload force to reload in case of true
|
|
# $counter_time & $counter_date are checked to match upon defined $config{sessout_timeout}# $config{'tta_sessout_file'} & $config{'countsessout_file'} are read, clean or write
|
|
# %h_countsess for counters and @tta_sess order ($sort_on) from @all_ttasess are set
|
|
# There are many Globals in this module ...
|
|
# CGI calling this function should pay attention to:
|
|
# $is_reload (true|false) as default
|
|
# $sort_op ( "pe_id"; "application"; "user"; "startTime"; "resume"; "status";
|
|
# "applicationServer"; "client"; "serverUser"; "user"; )
|
|
# should use;
|
|
# $counter_time, $ttasess_time %h_countsess @tta_sess order on $sort_on @all_ttasess
|
|
|
|
$status_ret=&ttasess_tables();
|
|
if ( $status_ret eq -2 ) {
|
|
# if ( $is_reload ne true && "$counter_time" ne "$ttasess_time" )
|
|
$status_ret=&ttasess_tables();
|
|
if ( $status_ret ne 0 ) {
|
|
$err_msg=$text{sessdiff_err};
|
|
&webmin_log($tool_name, "load_ttasess",$err_msg);
|
|
exit;
|
|
}
|
|
}
|
|
if ( $status_ret eq -1 || $#all_ttasess < 0) {
|
|
$err_msg=$text{nosess_err};
|
|
&webmin_log($tool_name, "load_ttasess",$err_msg);
|
|
exit;
|
|
}
|
|
if ( $debug gt 0 ) { &endclose_debug(); }
|
|
exit;
|