开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 多媒体 > 流媒体/Mpeg4/MP4 > 查看源码
proxyudp-audiocodes
资源名称：rtsp-1.0.1.tar.gz　[点击查看]
上传用户：sy_wanhua
上传日期：2013-07-25
资源大小：3048k
文件大小：9k
源码类别：

流媒体/Mpeg4/MP4

开发平台：

C/C++

proxyudp-audiocodes：源码内容
  1. #!/usr/bin/perl
  3. # ====================================================================
  4. # The Vovida Software License, Version 1.0 
  5. # 
  6. # Copyright (c) 2000 Vovida Networks, Inc.  All rights reserved.
  7. # 
  8. # Redistribution and use in source and binary forms, with or without
  9. # modification, are permitted provided that the following conditions
  10. # are met:
  11. # 
  12. # 1. Redistributions of source code must retain the above copyright
  13. #    notice, this list of conditions and the following disclaimer.
  14. # 
  15. # 2. Redistributions in binary form must reproduce the above copyright
  16. #    notice, this list of conditions and the following disclaimer in
  17. #    the documentation and/or other materials provided with the
  18. #    distribution.
  19. # 
  20. # 3. The names "VOCAL", "Vovida Open Communication Application Library",
  21. #    and "Vovida Open Communication Application Library (VOCAL)" must
  22. #    not be used to endorse or promote products derived from this
  23. #    software without prior written permission. For written
  24. #    permission, please contact vocal@vovida.org.
  25. # 
  26. # 4. Products derived from this software may not be called "VOCAL", nor
  27. #    may "VOCAL" appear in their name, without prior written
  28. #    permission of Vovida Networks, Inc.
  29. # 
  30. # THIS SOFTWARE IS PROVIDED "AS IS" AND ANY EXPRESSED OR IMPLIED
  31. # WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  32. # OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, TITLE AND
  33. # NON-INFRINGEMENT ARE DISCLAIMED.  IN NO EVENT SHALL VOVIDA
  34. # NETWORKS, INC. OR ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT DAMAGES
  35. # IN EXCESS OF $1,000, NOR FOR ANY INDIRECT, INCIDENTAL, SPECIAL,
  36. # EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
  37. # PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
  38. # PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY
  39. # OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  40. # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
  41. # USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
  42. # DAMAGE.
  43. # 
  44. # ====================================================================
  45. # 
  46. # This software consists of voluntary contributions made by Vovida
  47. # Networks, Inc. and many individuals on behalf of Vovida Networks,
  48. # Inc.  For more information on Vovida Networks, Inc., please see
  49. # <http://www.vovida.org/>.
  51. use Socket;
  52. require "getopts.pl";
  54. &Getopts("n:");
  56. $number = $opt_n;
  58. if($#ARGV < 1) {
  59.   print "Usage:n";
  60.   print "$0 a:b:c d:e:f gn";
  61.   print "where,n";
  62.   print "a = agent host e.g. 192.168.5.1n";
  63.   print "b = gateway sends to this port e.g. 2427n";
  64.   print "c = agent listens to this port e.g. 5010n";
  65.   print "d = gateway host e.g. 192.168.5.171n";
  66.   print "e = agent sends to this port e.g. 5050n";
  67.   print "f = gateway listens to this port e.g. 2427n";
  68.   print "g = filter filen";
  69.   print "e.g.n$0 192.168.22.17:2427:5011 192.168.5.122:5051:2427n";
  70.   exit(-1);
  71. }
  73. open(F, $ARGV[0]);
  74. while(<F>) {
  75.   chomp;
  76.   if(/^listener/) {
  77.     #listener  name        port     filter            default-sender
  78.     ($file, $in_name, $in_port, $in_filter_name, $in_default_sender) = split(/s+/);
  79.     &mksocket($in_port, "IN_$in_name");
  81.     $in_port{$in_name} = $in_port;
  82.     $in_filter{$in_name} = $in_filter_name;
  83.     $in_sender{$in_name} = $in_default_sender;
  85.     
  86.   } elsif(/^sender/) {
  87.     #sender   sender-name   destination-ip   destination-port   listener-name
  89.     ($file, $in_name, $in_port, $in_filter_name, $in_default_sender) = split(/s+/);
  90.   }
  92. }
  93. close(F);
  96. ($host1, $local_port1, $remote_port1) = split(/:/, $ARGV[0]);
  97. ($host2, $local_port2, $remote_port2) = split(/:/, $ARGV[1]);
  99. &mksocket($local_port1, S1);
  100. &mksocket($local_port2, S2);
  102. ($name,$aliases,$type,$len,$host1_addr) = gethostbyname($host1);
  103. ($name,$aliases,$type,$len,$host2_addr) = gethostbyname($host2);
  105. $them_S1 = pack($sockaddr,PF_INET, $remote_port1, $host1_addr);
  106. $them_S2 = pack($sockaddr,PF_INET, $remote_port2, $host2_addr);
  108. # ($name,$aliases,$type,$len,$host3_addr) = gethostbyname("192.168.5.1");
  109. # $them_agent1 = pack($sockaddr,PF_INET, "5012", $host3_addr);
  110. # $them_agent2= pack($sockaddr,PF_INET, "5011", $host3_addr);
  112. sub mksocket {
  113.   local($port, $socket) = @_;
  114.   
  115.   $sockaddr = "S n a4 x8";($name,$aliases,$proto) = getprotobyname('udp');
  116.   chomp($hostname  = `hostname`);
  117.   #$hostname  = "192.168.10.12";
  118.   
  119.   ($name,$aliases,$type,$len,$myaddr) = gethostbyname($hostname);
  120.   
  121.   $me   = pack($sockaddr,PF_INET, $port, $myaddr);
  122.   
  123.   print "myaddr: $myaddrn";
  124.   print "port: $portn";
  125.   
  126.   socket($socket, PF_INET, SOCK_DGRAM, $proto) || die $!;
  127.   bind($socket , $me) || die "died with port $port $!";
  128.   
  129. }
  132. while(1) {
  133.   $rin = '';
  134.   vec($rin, fileno(S1), 1) = 1;
  135.   vec($rin, fileno(S2), 1) = 1;
  136.   #        @bits = split(//, unpack("b*", $rin));
  137.   # if($bits[fileno(S)]) {
  138.   # print "got Sn";
  139.   # }
  140.   if(select($rin, undef, undef, undef)) {
  141.     @bits = split(//, unpack("b*", $rin));
  142.     undef($data);
  143.     undef($new_data);
  144.     if($bits[fileno(S1)]) {
  145.       print "got S1n";
  146.       $data = "";
  147.       $his_address = recv(S1, $data, 60000, 0);
  148.       if($data) {
  149. print "-----------------------------n";
  150. print "$data";
  151. print "-----------------------------n";
  152.         $new_data = &rewrite_S1($data);
  153.         if($new_data) {
  154.   print "$new_data";
  155.   print "-----------------------------n";
  156.   defined(send(S2,$new_data,0,$them_S1)) || die $!;
  157.         }
  158.       }
  159.     } elsif($bits[fileno(S2)]) {
  160.       print "got S2n";
  161.       $data = "";
  162.       $his_address = recv(S2, $data, 60000, 0);
  163.       if($data) {
  164. print "-----------------------------n";
  165. print "$data";
  166. print "-----------------------------n";
  167.         $new_data = &rewrite_S2($data);
  168.         if($new_data) {
  169.   print "$new_data";
  170.   print "-----------------------------n";
  171.   defined(send(S1,$new_data,0,$them_S2)) || die $!;
  172.         }
  173.       }
  174.     }
  175.   }
  176. }
  177. #$them = pack($sockaddr,PF_INET, $port, $myaddr);
  178. #send(S,$msg,0,$them) || die $!;
  181. sub renumber_S2 {
  182.   local($_) = $_[0];
  183.   
  184.   s/^([0-9]*)s([0-9]*)s/$1 $map{$2} /;
  185.   $map{$number} = $2;
  186.   
  187.   return $_;
  188. }
  191. sub renumber_S1 {
  192.   local($_) = $_[0];
  193.   if(s/^([a-zA-Z]*)s([0-9]*)s/$1 $number /) {
  194.     $map{$number} = $2;
  195.     $number++;
  196.   }
  197.   return $_;
  198. }
  201. # incoming messages to the call agent
  202. sub rewrite_S1
  203. {
  204.   local($_) = $_[0];
  205. #  if(y///d) {
  206. #    print "killed \0!n";
  207. #  }
  209.   # pretend a wild card is actually for the first endpoint
  210. #  s/*@ubr/aaln/0@ubr/;
  211.   # Use _ instead of / due to parsing problems (also change ubr924 to galileo)
  212. #  s/*@ubr924/aaln_0@galileo/;
  213. #  s/aaln/0@ubr924/aaln_0@galileo/g;
  214. #  s/aaln/([0-1])@ubr924/aaln_1@galileo/g;
  216.   # split up dialed digits
  217. #  s/O: D/9/o: d/5,d/0,d/0,d//;
  218.   s/O: D/9([0-9])([0-9])([0-9])([0-9])([0-9])([0-9])([0-9])/o: d/1,d/2,d/3,d/4,d/5,d/6,d/7/;
  219.   s/O: D/([0-9])([0-9])([0-9])([0-9])/o: d/1,d/2,d/3,d/4/;
  221.   s/ACgw0@[192.168.5.122]/6244@192.168.22.17/g;
  222.   s/ACgw1@[192.168.5.122]/5501@192.168.22.17/g;
  223.   s/ACgw2@[192.168.5.122]/5502@192.168.22.17/g;
  224.   s/ACgw3@[192.168.5.122]/5503@192.168.22.17/g;
  225.   s/ACgw4@[192.168.5.122]/5504@192.168.22.17/g;
  226.   s/ACgw5@[192.168.5.122]/5505@192.168.22.17/g;
  227.   s/ACgw6@[192.168.5.122]/5506@192.168.22.17/g;
  228.   s/ACgw7@[192.168.5.122]/5507@192.168.22.17/g;  
  229.  return $_;
  230. }
  233. # outgoing messages to the MGCP gateways
  234. sub rewrite_S2 
  235. {
  236.   local($_) = $_[0];
  237.   if(y///d)
  238.   {
  239.     print "killed \0!n";
  240.   }
  242. #  s/#[0-9]/5/;
  243. #  s/[0-9]/x/g;
  244. #  s/[2-9]/9/;
  246.   # Change _ back to /   (also change galileo back to ubr924)
  247. #  s/aaln_([0-1])@galileo/aaln/1@ubr924/g;
  249.   # change the use of wildcard x to explicit [0-9#*T], but it T needed here?
  250.   s/d/x(d)/d/[0-9#*T](D)/;
  252.   s/rnrn/rn/g;
  254.   if (/CRCX/)
  255.   {
  256.       if (!/v=0/)
  257.       {
  258.           s/M: sendrecv/M: recvonly/;
  259.       }
  260.       s/v=0/rnv=0/;
  261.       s/L: e:on/X: 1000rnR: l/hu(n)rnL: a:G711Mulaw, e:on/;
  262.   }
  266.   if (/RQNT/)
  267.   {
  268. #      s/R: l/hu(n),l/hf(n),d/x(n)/R: d/x(n)/;
  269.   }
  271.   if (/MDCX/)
  272.   {
  273.       s/v=0/rnv=0/;
  274.   }
  276. s/o=- 0 0 IN IP4 192.168.22.17rns=Vovida Gatewayrn//;
  278. s/o=- [0-9]+ [0-9]+ IN IP4 192.168.5.122rn//;
  280. s/s=-rn//;
  282. #s/o=CiscoSystemsSIP-GW-UserAgent [0-9][0-9][0-9][0-9] [0-9][0-9][0-9][0-9] IN IP4 192.168.6.210rns=SIP Callrn//;
  284. s/o=CiscoSystemsSIP-GW-UserAgent [0-9]+ [0-9]+ IN IP4 192.168.6.210rns=SIP Callrn//;
  287.  #changes here 
  288.  #  tr/r//d;
  289.   s/6244@192.168.22.17/ACgw0@[192.168.5.122]/g;
  290.   s/5501@192.168.22.17/ACgw1@[192.168.5.122]/g;
  291.   s/5502@192.168.22.17/ACgw2@[192.168.5.122]/g;
  292.   s/5503@192.168.22.17/ACgw3@[192.168.5.122]/g;
  293.   s/5504@192.168.22.17/ACgw4@[192.168.5.122]/g;
  294.   s/5505@192.168.22.17/ACgw5@[192.168.5.122]/g;
  295.   s/5506@192.168.22.17/ACgw6@[192.168.5.122]/g;
  296.   s/5507@192.168.22.17/ACgw7@[192.168.5.122]/g;
  297.   s/IN IP4 hera.private.vovida.com/IN IP4 192.168.22.17/g;
  298.   s/IN IP4 darwin.private.vovida.com/IN IP4 192.168.5.18/g;
  299.   return $_;
  300. }