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

Added ability to use 0.08 asterisk-perl module in local /usr/share/astguiclient/libs directory

Browse Source 
git-svn-id: svn://192.168.202.10@576 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
mattf
2007-03-29 19:52:08 +00:00
parent 6bec655997
commit 37ce001008
4 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bin/start_asterisk_boot.pl
+4
View File
@@ -19,6 +19,8 @@ foreach(@conf)
{
$line = $conf[$i];
$line =~ s/ |>|\n|\r|\t|\#.*|;.*//gi;
if ( ($line =~ /^PATHhome/) && ($CLIhome < 1) )
{$PATHhome = $line; $PATHhome =~ s/.*=//gi;}
if ( ($line =~ /^VARserver_ip/) && ($CLIserver_ip < 1) )
{$VARserver_ip = $line; $VARserver_ip =~ s/.*=//gi;}
if ( ($line =~ /^VARDB_server/) && ($CLIDB_server < 1) )
@@ -34,6 +36,8 @@ foreach(@conf)
$i++;
}
`PERL5LIB="$PATHhome/libs"; export PERL5LIB`;
use DBI;
$dbhA = DBI->connect("DBI:mysql:$VARDB_database:$VARDB_server:$VARDB_port", "$VARDB_user", "$VARDB_pass")