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

Various formatting fixes

Browse Source 
Added more logging to emergency agent logout processes
changed start_asterisk_boot.pl script to launch unique astshell screen sessions

git-svn-id: svn://192.168.202.10@1275 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
mattf
2009-12-11 01:59:57 +00:00
parent a79154a890
commit 878f15f431
11 changed files with 2116 additions and 1615 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bin/start_asterisk_boot.pl
+31 -21
View File
@@ -10,6 +10,7 @@
# 90309-0905 - mattf - Added deleting of asterisk command files
# 90325-2238 - mattf - Rewrote launching of Asterisk, removed command files
# 90506-1443 - mikec - Added the T option to the asterisk command. This enables timestamping.
# 91210-1500 - mattf - Added datetimestamp to astshell screen
#
# default path to astguiclient configuration file:
@@ -40,6 +41,17 @@ foreach(@conf)
$i++;
}
$secX = time();
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($secX);
$mon++;
$year = ($year + 1900);
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";}
$launch_date = "$year$mon$mday$hour$min$sec";
`PERL5LIB="$PATHhome/libs"; export PERL5LIB`;
use DBI;
@@ -48,38 +60,36 @@ $dbhA = DBI->connect("DBI:mysql:$VARDB_database:$VARDB_server:$VARDB_port", "$VA
or die "Couldn't connect to database: " . DBI->errstr;
### Grab Server values from the database
$stmtA = "SELECT vd_server_logs FROM servers where server_ip = '$VARserver_ip';";
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
$sthArows=$sthA->rows;
$rec_count=0;
while ($sthArows > $rec_count)
{
@aryA = $sthA->fetchrow_array;
$DBvd_server_logs = "$aryA[0]";
if ($DBvd_server_logs =~ /Y/) {$SYSLOG = '1';}
else {$SYSLOG = '0';}
$rec_count++;
}
$sthA->finish();
$stmtA = "SELECT vd_server_logs FROM servers where server_ip = '$VARserver_ip';";
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
$sthArows=$sthA->rows;
if ($sthArows > 0)
{
@aryA = $sthA->fetchrow_array;
$DBvd_server_logs = $aryA[0];
if ($DBvd_server_logs =~ /Y/) {$SYSLOG = '1';}
else {$SYSLOG = '0';}
}
$sthA->finish();
`ulimit -n 65536`;
if ($SYSLOG)
{
`/usr/bin/screen -d -m -S astershell /usr/bin/screen -S astshell`;
`/usr/bin/screen -d -m -S astershell$launch_date /usr/bin/screen -S astshell$launch_date`;
print "started screen\n";
sleep(1);
`screen -XS astshell eval 'stuff "cd /var/log/astguiclient\015"'`;
`screen -XS astshell$launch_date eval 'stuff "cd /var/log/astguiclient\015"'`;
print "changed directory\n";
sleep(1);
`screen -XS astshell eval 'stuff "screen -L -S asterisk\015"'`;
`screen -XS astshell$launch_date eval 'stuff "screen -L -S asterisk\015"'`;
print "started new screen session\n";
sleep(1);
`screen -d astshell`;
`screen -d astshell$launch_date`;
`screen -d asterisk`;
print "detached screens\n";
@@ -93,7 +103,7 @@ if ($SYSLOG)
}
else
{
`/usr/bin/screen -d -m -S astershell /usr/bin/screen -S asterisk`;
`/usr/bin/screen -d -m -S astershell$launch_date /usr/bin/screen -S asterisk`;
print "started screen\n";
sleep(1);
@@ -111,8 +121,8 @@ else
### Set the conf files to automatically update
$stmtA = "UPDATE servers SET rebuild_conf_files='Y' where server_ip = '$VARserver_ip';";
$affected_rows = $dbhA->do($stmtA);
$stmtA = "UPDATE servers SET rebuild_conf_files='Y' where server_ip = '$VARserver_ip';";
$affected_rows = $dbhA->do($stmtA);
exit;