ViciDial/agc_2-X
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added AST_rec_monitor.pl script

Browse Source 
Added -recmon settings to keepalive script

git-svn-id: svn://192.168.202.10@3759 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
mattf
2023-09-25 20:09:30 +00:00
parent 383c421256
commit 171e265ec9
2 changed files with 347 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bin/ADMIN_keepalive_ALL.pl
+54 -1
View File
@@ -167,9 +167,10 @@
# 230524-2144 - Added weekday_resets
# 230609-1137 - Added VIDPROMPTSPECIAL call menu In-Group dialplan entries
# 230909-0846 - Added purging of vicidial_khomp_log records older than 7 days
# 230925-1454 - Added -recmon settings
#
$build = '230909-0846';
$build = '230925-1454';
$DB=0; # Debug flag
$teodDB=0; # flag to log Timeclock End of Day processes to log file
@@ -182,6 +183,7 @@ $cu3way_delay='';
$autodial_delay='';
$adfill_delay='';
$fill_staggered='';
$recmon=0;
# time variable definitions
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
@@ -294,6 +296,8 @@ if (length($ARGV[0])>1)
print " [-debugX] = Extra-verbose debug messages\n";
print " [-debugXXX] = Triple-Extra-verbose debug messages, debug flag on processes and screen logging\n";
print " [--teod] = log Timeclock End of Day processes to log file\n";
print " [-recmon] = log when recordings are created and deleted to log file\n";
print " [-recmon-sleepms=XXX] = how many ms to sleep between checking for files on recording monitoring\n";
print "\n";
exit;
}
@@ -385,6 +389,26 @@ if (length($ARGV[0])>1)
}
@CLIvarARY=@MT; @CLIvarARY=@MT;
}
if ($args =~ /-recmon/i)
{
$recmon=1;
if ($DB > 0) {print "\n----- Recording Monitoring ENABLED -----\n\n";}
}
if ($args =~ /-recmon-sleepms=/i) # CLI defined delay
{
@CLIvarARY = split(/-recmon-sleepms=/,$args);
@CLIvarARX = split(/ /,$CLIvarARY[1]);
if (length($CLIvarARX[0])>0)
{
$CLIsleepms = $CLIvarARX[0];
$CLIsleepms =~ s/\/$| |\r|\n|\t//gi;
$CLIsleepms =~ s/\D//gi;
if ( ($CLIsleepms > 0) && (length($CLIsleepms)> 0) )
{$recmon_sleepms = "--sleepms=$CLIsleepms";}
if ($DB > 0) {print "Recording Monitor Sleep ms set to $CLIsleepms $recmon_sleepms\n";}
}
@CLIvarARY=@MT; @CLIvarARY=@MT;
}
if ($args =~ /-test/i)
{
$TEST=1;
@@ -551,10 +575,12 @@ else
$runningAST_VDauto_dial_FILL=0;
$runningip_relay=0;
$runningAST_conf_3way=0;
$runningAST_rec_monitor=0;
$runningemail_inbound=0;
$runningASTERISK=0;
$runningsip_logger=0;
$AST_conf_3way=0;
$AST_rec_monitor=0;
if ($VARactive_keepalives =~ /1/)
{
@@ -616,6 +642,11 @@ else
$AST_conf_3way=1;
if ($DB) {print "AST_conf_3way set to keepalive\n";}
}
if ($recmon > 0)
{
$AST_rec_monitor=1;
if ($DB) {print "AST_rec_monitor set to keepalive\n";}
}
$REGhome = $PATHhome;
@@ -709,6 +740,11 @@ else
$runningAST_conf_3way++;
if ($DB) {print "AST_conf_3way RUNNING: |$psline[1]|\n";}
}
if ($psline[1] =~ /$REGhome\/AST_rec_monitor\.pl/)
{
$runningAST_rec_monitor++;
if ($DB) {print "AST_rec_monitor RUNNING: |$psline[1]|\n";}
}
$i++;
}
@@ -781,6 +817,7 @@ else
( ($AST_VDauto_dial_FILL > 0) && ($runningAST_VDauto_dial_FILL < 1) ) ||
( ($ip_relay > 0) && ($runningip_relay < 1) ) ||
( ($AST_conf_3way > 0) && ($runningAST_conf_3way < 1) ) ||
( ($AST_rec_monitor > 0) && ($runningAST_monitor < 1) ) ||
( ($email_inbound > 0) && ($runningemail_inbound < 1) ) ||
( ($sip_logger > 0) && ($runningsip_logger < 1) )
)
@@ -870,6 +907,11 @@ else
$runningAST_conf_3way++;
if ($DB) {print "AST_conf_3way RUNNING: |$psline[1]|\n";}
}
if ($psline[1] =~ /$REGhome\/AST_rec_monitor\.pl/)
{
$runningAST_rec_monitor++;
if ($DB) {print "AST_rec_monitor RUNNING: |$psline[1]|\n";}
}
$i++;
}
@@ -1015,6 +1057,17 @@ else
`/usr/bin/screen -S ASTconf3way -X log`;
}
}
if ( ($AST_rec_monitor > 0) && ($runningAST_rec_monitor < 1) )
{
if ($DB) {print "starting AST_rec_monitor...\n";}
# add a '-L' to the command below to activate logging
`/usr/bin/screen -d -m -S ASTrecmon $PATHhome/AST_rec_monitor.pl $recmon_sleepms $debug_string`;
if ($megaDB)
{
`/usr/bin/screen -S ASTrecmon -X logfile $PATHlogs/ASTrecmon-screenlog.0`;
`/usr/bin/screen -S ASTrecmon -X log`;
}
}
}
}
bin/AST_rec_monitor.pl
+293
View File
@@ -0,0 +1,293 @@
#!/usr/bin/perl
#
# AST_rec_monitor.pl version 2.14
#
# DESCRIPTION:
# Monitors the recording directory and logs to a file when a file is create or deleted
#
# Copyright (C) 2023 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2
#
# CHANGELOG:
# 230919-1309 - Initial Build
#
$sleepms=1000;
$DB=0;
$DBX=0;
$quiet=0;
### begin parsing run-time options ###
if (length($ARGV[0])>1)
{
$i=0;
while ($#ARGV >= $i)
{
$args = "$args $ARGV[$i]";
$i++;
}
if ($args =~ /--help/i)
{
print "allowed run time options:\n";
print " [--help] = this screen\n";
print " [--debug] = verbose debug messages\n";
print " [--sleepms=XXX] = how many milliseconds to sleep between loops\n";
print "\n";
exit;
}
else
{
if ($args =~ /--debug/i)
{
$DB=1; # Debug flag, set to 0 for no debug messages
print "\n-- DEBUG --\n\n";
}
if ($args =~ /--debugX/i)
{
$DB=1;
$DBX=1; # Debug flag, set to 0 for no debug messages
print "\n-- SUPER DEBUG --\n\n";
}
if ($args =~ /--quiet/i)
{
$quiet=1; # Debug flag, set to 0 for no debug messages
$DB=0;
$DBX=0;
}
if ($args =~ /--sleepms=/i)
{
@data_in = split(/--sleepms=/,$args);
@data_in2 = split(/ /,$data_in[1]);
$sleepms = @data_in2[0];
print "\n-- sleep = $sleepms ms --\n\n";
}
}
}
else
{
print "no command line options set\n";
}
### end parsing run-time options ###
# default path to astguiclient configuration file:
$PATHconf = '/etc/astguiclient.conf';
open(conf, "$PATHconf") || die "can't open $PATHconf: $!\n";
@conf = <conf>;
close(conf);
$i=0;
foreach(@conf)
{
$line = $conf[$i];
$line =~ s/ |>|\n|\r|\t|\#.*|;.*//gi;
if ( ($line =~ /^PATHhome/) && ($CLIhome < 1) )
{$PATHhome = $line; $PATHhome =~ s/.*=//gi;}
if ( ($line =~ /^PATHlogs/) && ($CLIlogs < 1) )
{$PATHlogs = $line; $PATHlogs =~ s/.*=//gi;}
if ( ($line =~ /^PATHagi/) && ($CLIagi < 1) )
{$PATHagi = $line; $PATHagi =~ s/.*=//gi;}
if ( ($line =~ /^PATHweb/) && ($CLIweb < 1) )
{$PATHweb = $line; $PATHweb =~ s/.*=//gi;}
if ( ($line =~ /^PATHsounds/) && ($CLIsounds < 1) )
{$PATHsounds = $line; $PATHsounds =~ s/.*=//gi;}
if ( ($line =~ /^PATHmonitor/) && ($CLImonitor < 1) )
{$PATHmonitor = $line; $PATHmonitor =~ s/.*=//gi;}
if ( ($line =~ /^VARserver_ip/) && ($CLIserver_ip < 1) )
{$VARserver_ip = $line; $VARserver_ip =~ s/.*=//gi;}
if ( ($line =~ /^VARDB_server/) && ($CLIDB_server < 1) )
{$VARDB_server = $line; $VARDB_server =~ s/.*=//gi;}
if ( ($line =~ /^VARDB_database/) && ($CLIDB_database < 1) )
{$VARDB_database = $line; $VARDB_database =~ s/.*=//gi;}
if ( ($line =~ /^VARDB_user/) && ($CLIDB_user < 1) )
{$VARDB_user = $line; $VARDB_user =~ s/.*=//gi;}
if ( ($line =~ /^VARDB_pass/) && ($CLIDB_pass < 1) )
{$VARDB_pass = $line; $VARDB_pass =~ s/.*=//gi;}
if ( ($line =~ /^VARDB_port/) && ($CLIDB_port < 1) )
{$VARDB_port = $line; $VARDB_port =~ s/.*=//gi;}
$i++;
}
use Term::ANSIColor;
use Time::HiRes ('gettimeofday','usleep','sleep'); # necessary to have perl sleep command of less than one second
use Time::Piece;
$RecLogFile = "$PATHlogs/rec_log.$year-$mon-$mday";
# hold all the files we are actively monitoring
@active_files = ();
# directory paths to monitor
@paths = ( "$PATHmonitor", "$PATHmonitor/MIX", "$PATHmonitor/STEREO" );
# files / directories to ignore
@ignores = ( "MIX", "STEREO", ".", ".." );
$startup = 1;
while(1) {
($sec,$usec) = gettimeofday();
$time_str = sprintf '%s.%06d', localtime($sec)->strftime('%Y-%m-%d %H:%M:%S'), $usec;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($sec);
$year = ($year + 1900);
$mon++;
if ($mon < 10) {$mon = "0$mon";}
if ($mday < 10) {$mday = "0$mday";}
if ($hour < 10) {$hour = "0$hour";}
if ($min < 10) {$min = "0$min";}
if ($sec < 10) {$sec = "0$sec";}
$RecLogFile = "$PATHlogs/rec_log.$year-$mon-$mday";
open( RLFH, '>>', $RecLogFile) or die $!;
my $cli_string = "";
if ( $startup )
{
$log_string = "$time_str :\tRecording Monitoring Starting\n";
$cli_string = $cli_string.$log_string;
print RLFH $log_string;
}
# holds all the files listed on this loop with their absolute path
my @all_files = ();
foreach( @paths )
{
$path = $_;
# make sure the path exists
if ( -d "$path" )
{
# open the directory for reading
opendir my $dir, "$path" or die "Cannot open directory: $!";
# read the files
my @list_files = readdir $dir;
# close the directory
closedir $dir;
foreach ( @list_files )
{
$list_file = $_;
if ( grep( /^$list_file$/, @ignores ) )
{
if ( $DBX ) { print "ignoring file $list_file\n"; }
}
else
{
$abs_file = "$path/$list_file";
if ( $DBX ) { print "$abs_file\n"; }
# add the absolute path to the file to the @all_files array
push ( @all_files, $abs_file );
}
}
}
}
# find all the new files
foreach( @all_files )
{
$allfile = $_;
if ( grep( /^$allfile$/, @active_files ) )
{
if ( $DB ) { print "$allfile already in active_files. Do nothing.\n"; }
}
else
{
if ( $DB ) { print "$allfile not in active_files. Add it and log it.\n"; }
push( @active_files, $allfile );
if ( $startup )
{
$log_string = "$time_str :\texisting recording detected\t$allfile\n";
}
else
{
$log_string = "$time_str :\tnew recording detected\t$allfile\n";
}
$cli_string = $cli_string.$log_string;
print RLFH $log_string;
}
}
@new_active_files = ();
# array of the index positions of the files to delete
my @del_index_arr = ();
foreach( @active_files )
{
$activefile = $_;
if ( grep( /^$activefile$/, @all_files ) )
{
if ( $DB ) { print "$activefile is in all_files. So it is still there. Add it to new_active_files.\n"; }
push( @new_active_files, $activefile );
}
else
{
if ( $DB ) { print "$activefile is not in all_files. It has been removed from active_files and log it.\n"; }
push( @del_index_arr, $arr_index );
$sus = "";
if ( $sec > 20 ) { $sus = "suspicious"; }
$log_string = "$time_str :\told recording removed\t$activefile\t$sus\n";
$cli_string = $cli_string.$log_string;
print RLFH $log_string;
}
}
# switch to the new active file list
@active_files = @new_active_files;
if ( ! $quiet )
{
print color('bold blue');
print "$cli_string";
print color('reset');
}
close( RLFH );
if ( $startup ) { $startup = 0 };
### sleep for sleepms milliseconds and do it all over again
usleep(1*$sleepms*1000);
}
$dbhA->disconnect();
if($DB){print "DONE... Exiting... Goodbye... See you later... Really I mean it this time\n";}
exit;