mattf
df19fa53dc
AST_SERVER_conf.pl changed to lookup /etc/astguiclient.conf file for settings git-svn-id: svn://192.168.202.10@41 3d104415-ff17-0410-8863-d5cf3c621b8a
65 lines
2.3 KiB
Perl
65 lines
2.3 KiB
Perl
#!/usr/bin/perl
|
|
|
|
# AST_SERVER_conf.pl
|
|
#
|
|
# Copyright (C) 2006 Matt Florell <vicidial@gmail.com> LICENSE: GPLv2
|
|
#
|
|
|
|
# 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++;
|
|
}
|
|
|
|
|
|
# Customized Variables
|
|
$server_ip = $VARserver_ip; # Asterisk server IP
|
|
$DB_server = $VARDB_server; # MySQL server IP
|
|
$DB_database = $VARDB_database; # MySQL database name
|
|
$DB_user = $VARDB_user; # MySQL user
|
|
$DB_pass = $VARDB_pass; # MySQL pass
|
|
$DB_port = $VARDB_por; # MySQL connection port
|
|
|
|
$LOGfile = "$PATHlogs/LOG_AST_update.log";
|
|
$telnetlog = "$PATHlogs/telnetlog.log";
|
|
$MSLOGfile = "$PATHlogs/MSLOG_AST_update.log";
|
|
$MStelnetlog = "$PATHlogs/MStelnetlog.log";
|
|
$LILOGfile = "$PATHlogs/LILOG_AST_update.log";
|
|
$LItelnetlog = "$PATHlogs/LItelnetlog.log";
|
|
$KHLOGfile = "$PATHlogs/KHLOG_AST_update.log";
|
|
$VDADLOGfile = "$PATHlogs/VDLOG_AST_update.log";
|
|
|
|
return 1;
|