Module: sip-router Branch: ser_modules Commit: 36e77b35c20518c84f169a4092ca34c4908e81da URL: http://git.sip-router.org/cgi-bin/gitweb.cgi/sip-router/?a=commit;h=36e77b3… Author: Tomas Mandys &lt;tomas.mandys(a)iptel.org&gt; Committer: Tomas Mandys &lt;tomas.mandys(a)iptel.org&gt; Date: Wed Jul 15 23:02:15 2009 +0000 - socket support --- .../iptrtpproxy/examples/clean_rtpproxy_attrs | 18 ++++++++++++++++-- 1 files changed, 16 insertions(+), 2 deletions(-) diff --git a/modules_s/iptrtpproxy/examples/clean_rtpproxy_attrs b/modules_s/iptrtpproxy/examples/clean_rtpproxy_attrs index e034d5f..bd755a5 100755 --- a/modules_s/iptrtpproxy/examples/clean_rtpproxy_attrs +++ b/modules_s/iptrtpproxy/examples/clean_rtpproxy_attrs @@ -23,6 +23,8 @@ my $defmysqluser = 'ser'; my $mysqluser = $defmysqluser; my $defmysqlpassword = 'heslo'; my $mysqlpassword = $defmysqlpassword; +my $defmysqlsock = ""; +my $mysqlsock = $defmysqlsock; use Config::IniFiles; @@ -81,9 +83,10 @@ $scriptName =~ s!^.*/!!; sub printUsage { print "$scriptName, Version: $version\n"; - print "usage: $scriptName [-f <iptrtpproxy_config>] [-v] [-h] [-H <db_host>] [-D <db_name>] [-u <db_user>] [-p <db_password>]\n"; + print "usage: $scriptName [-f <iptrtpproxy_config>] [-v] [-h] [-H <db_host>] [-S <db_sock>] [-D <db_name>] [-u <db_user>] [-p <db_password>]\n"; print " iptrtpproxy_config .. iptrtpproxy_helper config, default: $defConfigFile\n"; print " db_host .. database MYSQL host, default: $defmysqlhost\n"; + print " db_sock .. MYSQL socket, default: $defmysqlsock\n"; print " db_name .. database name, default: $defmysqldb\n"; print " db_user .. database user, default: $defmysqluser\n"; $_ = substr $defmysqlpassword, 1, length($defmysqlpassword)-2; @@ -138,6 +141,14 @@ while ($#ARGV >= 0) { } else { $mysqlhost = shift(@ARGV); } + } elsif ($arg eq '-S') { + if ($#ARGV < 0) { + print STDERR "ERROR: socket required\n"; + &printUsage(); + exit(1); + } else { + $mysqlsock = shift(@ARGV); + } } elsif ($arg eq '-v') { $verbose++; } elsif ($arg eq '-h') { @@ -153,7 +164,10 @@ while ($#ARGV >= 0) { dbg "Verbose: $verbose"; dbg "Connecting: mysql://$mysqluser\@$mysqlhost/$mysqldb"; -myexit("Cannot connect database", 2) unless my $dbh = DBI->connect("dbi:mysql:database=$mysqldb;host=$mysqlhost", $mysqluser, $mysqlpassword); +myexit("Cannot connect database", 2) unless my $dbh = DBI->connect("dbi:mysql:database=$mysqldb". + ($mysqlhost?";host=$mysqlhost":''). + ($mysqlsock?";mysql_socket=$mysqlsock":'') + , $mysqluser, $mysqlpassword); dbg "Reading rtpproxy_attrs"; my %attrs = ();