mattf
95a7645b95
fchanged MP3_DATE script to use /etc/astguiclient.conf for settings git-svn-id: svn://192.168.202.10@123 3d104415-ff17-0410-8863-d5cf3c621b8a
142 lines
2.8 KiB
Perl
142 lines
2.8 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
# ADMIN_keepalive_AST_update.pl version 0.4
|
|
#
|
|
# designed to keep the AST_update processes aline and check every minute
|
|
#
|
|
# Copyright (C) 2006 Matt Florell <vicidial@gmail.com> LICENSE: GPLv2
|
|
#
|
|
#
|
|
# 50810-1451 - removed '-L' flag for screen logging of output (optimization)
|
|
# 50823-1446 - Added commandline debug options with debug printouts
|
|
# 51229-1027 - fixed typo of array name
|
|
# 60807-1315 - changed to use /etc/astguiclient.conf for settings
|
|
#
|
|
|
|
$DB=0; # Debug flag
|
|
$MT[0]=''; $MT[1]='';
|
|
@psline=@MT;
|
|
|
|
### 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 [-t] = test\n [-debug] = verbose debug messages\n[-debugX] = Extra-verbose debug messages\n\n";
|
|
}
|
|
else
|
|
{
|
|
if ($args =~ /-debug/i)
|
|
{
|
|
$DB=1; # Debug flag
|
|
}
|
|
if ($args =~ /--debugX/i)
|
|
{
|
|
$DBX=1;
|
|
print "\n----- SUPER-DUPER DEBUGGING -----\n\n";
|
|
}
|
|
if ($args =~ /-t/i)
|
|
{
|
|
$TEST=1;
|
|
$T=1;
|
|
}
|
|
}
|
|
}
|
|
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;}
|
|
$i++;
|
|
}
|
|
|
|
$REGhome = $PATHhome;
|
|
$REGhome =~ s/\//\\\//gi;
|
|
|
|
#@psoutput = `ps -f -C AST_update --no-headers`;
|
|
#@psoutput = `ps -f -C AST_updat* --no-headers`;
|
|
#@psoutput = `/bin/ps -f --no-headers -A`;
|
|
@psoutput = `/bin/ps -o "%p %a" --no-headers -A`;
|
|
|
|
$running_update = 0;
|
|
|
|
$i=0;
|
|
foreach (@psoutput)
|
|
{
|
|
chomp($psoutput[$i]);
|
|
if ($DBX) {print "$i|$psoutput[$i]| \n";}
|
|
@psline = split(/\/usr\/bin\/perl /,$psoutput[$i]);
|
|
|
|
if ($psline[1] =~ /$REGhome\/AST_update\.pl/)
|
|
{
|
|
$running_update++;
|
|
if ($DB) {print "UPDATE RUNNING: |$psline[1]|\n";}
|
|
}
|
|
|
|
$i++;
|
|
}
|
|
|
|
|
|
if (!$running_update)
|
|
{
|
|
# print "double check that update is not running\n";
|
|
|
|
sleep(5);
|
|
|
|
#@psoutput = `ps -f -C AST_update --no-headers`;
|
|
#@psoutput = `ps -f -C AST_updat* --no-headers`;
|
|
#@psoutput = `/bin/ps -f --no-headers -A`;
|
|
@psoutput2 = `/bin/ps -o "%p %a" --no-headers -A`;
|
|
$i=0;
|
|
foreach (@psoutput2)
|
|
{
|
|
chomp($psoutput2[$i]);
|
|
if ($DBX) {print "$i|$psoutput[$i]| \n";}
|
|
@psline = split(/\/usr\/bin\/perl /,$psoutput2[$i]);
|
|
|
|
if ($psline[1] =~ /$REGhome\/AST_update\.pl/)
|
|
{
|
|
$running_update++;
|
|
if ($DB) {print "UPDATE RUNNING: |$psline[1]|\n";}
|
|
}
|
|
|
|
$i++;
|
|
}
|
|
|
|
if (!$running_update)
|
|
{
|
|
if ($DB) {print "starting AST_update...\n";}
|
|
# add a '-L' to the command below to activate logging
|
|
`/usr/bin/screen -d -m -S ASTupdate $PATHhome/AST_update.pl`;
|
|
}
|
|
}
|
|
|
|
|
|
|
|
|
|
if ($DB) {print "DONE\n";}
|
|
|
|
exit;
|