ViciDial/ViciDialSVN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Some code clean ups.

Browse Source 
git-svn-id: svn://192.168.202.10@1107 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
mikec
2009-05-04 21:28:38 +00:00
parent 8aca6cfc7f
commit 47ae3e28b1
1 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
agc_2-X/trunk/experimental/FastAGI_log_multi_server.pl
+12 -12
View File
@@ -72,9 +72,9 @@ $VARfastagi_log_checkforwait = '60';
# default path to astguiclient configuration file:
$PATHconf = '/etc/astguiclient.conf';
open(conf, "$PATHconf") || die "can't open $PATHconf: $!\n";
@conf = <conf>;
close(conf);
open(CONF, "$PATHconf") || die "can't open $PATHconf: $!\n";
@conf = <CONF>;
close(CONF);
$i=0;
foreach(@conf)
{
@@ -184,9 +184,9 @@ sub process_request {
# default path to astguiclient configuration file:
$PATHconf = '/etc/astguiclient.conf';
open(conf, "$PATHconf") || die "can't open $PATHconf: $!\n";
@conf = <conf>;
close(conf);
open(CONF, "$PATHconf") || die "can't open $PATHconf: $!\n";
@conf = <CONF>;
close(CONF);
$i=0;
foreach(@conf)
{
@@ -609,12 +609,12 @@ sub process_request {
if ($DEBUG =~ /^DEBUG$/)
{
### open the hangup cause out file for writing ###
open(out, ">>$PATHlogs/HANGUP_cause-output.txt")
open(DEBUGOUT, ">>$PATHlogs/HANGUP_cause-output.txt")
|| die "Can't open $PATHlogs/HANGUP_cause-output.txt: $!\n";
print out "$now_date|$hangup_cause|$dialstatus|$dial_time|$ring_time|$unique_id|$channel|$extension|$type|$callerid|$calleridname|$priority|\n";
print DEBUGOUT "$now_date|$hangup_cause|$dialstatus|$dial_time|$ring_time|$unique_id|$channel|$extension|$type|$callerid|$calleridname|$priority|\n";
close(out);
close(DEBUGOUT);
}
else
{
@@ -1228,10 +1228,10 @@ sub agi_output
if ($AGILOG >=2)
{
### open the log file for writing ###
open(Lout, ">>$AGILOGfile")
open(LOGOUT, ">>$AGILOGfile")
|| die "Can't open $AGILOGfile: $!\n";
print Lout "$now_date|$script|$process|$agi_string\n";
close(Lout);
print LOGOUT "$now_date|$script|$process|$agi_string\n";
close(LOGOUT);
}
### send to STDERR writing ###
if ( ($AGILOG == '1') || ($AGILOG == '3') )