acs-proxy.pl

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use lib 'lib';
   7 use SIP2::ACS;
   8
   9 my @proxy = ( '10.60.0.11:6001' => '10.60.0.11:6002' );
  10 @proxy = @ARGV if @ARGV;
  11
  12 SIP2::ACS::proxy( @proxy );
  13