config-pot
上传用户:sy_wanhua
上传日期:2013-07-25
资源大小:3048k
文件大小:6k
源码类别:

流媒体/Mpeg4/MP4

开发平台:

C/C++

  1. #!/usr/bin/perl
  2. # ====================================================================
  3. # The Vovida Software License, Version 1.0 
  4. # Copyright (c) 2000 Vovida Networks, Inc.  All rights reserved.
  5. # Redistribution and use in source and binary forms, with or without
  6. # modification, are permitted provided that the following conditions
  7. # are met:
  8. # 1. Redistributions of source code must retain the above copyright
  9. #    notice, this list of conditions and the following disclaimer.
  10. # 2. Redistributions in binary form must reproduce the above copyright
  11. #    notice, this list of conditions and the following disclaimer in
  12. #    the documentation and/or other materials provided with the
  13. #    distribution.
  14. # 3. The names "VOCAL", "Vovida Open Communication Application Library",
  15. #    and "Vovida Open Communication Application Library (VOCAL)" must
  16. #    not be used to endorse or promote products derived from this
  17. #    software without prior written permission. For written
  18. #    permission, please contact vocal@vovida.org.
  19. # 4. Products derived from this software may not be called "VOCAL", nor
  20. #    may "VOCAL" appear in their name, without prior written
  21. #    permission of Vovida Networks, Inc.
  22. # THIS SOFTWARE IS PROVIDED "AS IS" AND ANY EXPRESSED OR IMPLIED
  23. # WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  24. # OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, TITLE AND
  25. # NON-INFRINGEMENT ARE DISCLAIMED.  IN NO EVENT SHALL VOVIDA
  26. # NETWORKS, INC. OR ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT DAMAGES
  27. # IN EXCESS OF $1,000, NOR FOR ANY INDIRECT, INCIDENTAL, SPECIAL,
  28. # EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
  29. # PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
  30. # PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY
  31. # OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  32. # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
  33. # USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
  34. # DAMAGE.
  35. # ====================================================================
  36. # This software consists of voluntary contributions made by Vovida
  37. # Networks, Inc. and many individuals on behalf of Vovida Networks,
  38. # Inc.  For more information on Vovida Networks, Inc., please see
  39. # <http://www.vovida.org/>.
  40. $number_eps = 50;
  41. $agent_host = "localhost";
  42. chomp($billing_server = `hostname`);
  43. require "getopts.pl";
  44. &Getopts("a:n:b:");
  45. if($opt_b) {
  46.     $billing_server = $opt_b;
  47. if($opt_n) {
  48.     $number_eps = $opt_n;
  49. }
  50. if($opt_a) {
  51.     $agent_host = $opt_a;
  52. }
  53. $start_gw_number = 0;
  54. $start_port = 5050;
  55. $original_start_dn = 5000;
  56. $original_start_ep = 0;
  57. #$number_eps = 50;
  58. $gw_count = 0;
  59. $start_dn = $original_start_dn;
  60. $start_ep = $original_start_ep;
  61. foreach(@ARGV) {
  62.     open(POT, ">pot$gw_count.cfg");
  63.     print POT "# this file automatically generatednn";
  64.     print POT "domainName string $_n";
  65.     print POT "gatewayName string Residential-gatewayn";
  66.     print POT "remotePort int ", ($start_port + $gw_count), "n";
  67.     print POT "proxyAddress string $_n";
  68.     print POT "proxyPort int ",  ($start_port + $gw_count), "n";
  69.     print POT "endpoint string 1@pot$gw_count.cfgn";
  70.     if(($gw_count % 4) > 1) {
  71. print POT "inputQueue int 1n";
  72.     } else {
  73. print POT "inputQueue int 0n";
  74.     }
  75.     close(POT);
  76.     open(AT_POT, ">1@pot$gw_count.cfg");
  77.     print AT_POT "# this file automatically generatednn";
  78.     for($i = 0; $i < $number_eps; $i++) {
  79. print AT_POT "directoryNumber string ep", ($i + $start_ep), "@$_ ", ($i + $start_dn), "n";
  80.     }
  81.     close(AT_POT);
  82.     $start_ep = $start_ep + $number_eps;
  83.     $start_dn = $start_dn + $number_eps;
  84.     $gw_count++;
  85. }
  86. open(CA, ">ca.cfg");
  87. print CA "# this file automatically generatednn";
  88. print CA "localPort int 2427n";
  89. print CA "maxNumberOfEndpoints int ", ($gw_count  * $number_eps), "n";
  90. print CA "maxNumberOfCalls int ", ($gw_count * $number_eps), "n";
  91. print CA "billingServer string $billing_servern";
  92. print CA "billingServerPort int 1812n";
  93. print CA "numberOfThreads int 2n";
  94. for($i = 0; $i < $gw_count; $i++) {
  95.     print CA "residentialGateway string pot$i.cfgn";
  96. }
  97. close(CA);
  98. # now, do the gateways
  99. $j = 0;
  100. $start_dn = $original_start_dn;
  101. $start_ep = $original_start_ep;
  102. foreach(@ARGV) {
  103.     mkdir("gw$j", 0755);
  104.     open(GW, ">gw$j/gw.cfg");
  105.     print GW "# this file automatically generated for gw$jnn";
  106.     print GW "GatewayHardware            string   nulln";
  107.     print GW "GatewayPort                int      ", ($start_port + $j), "n";
  108.     print GW "GatewayAgentHostname       string   $agent_hostn";
  109.     print GW "GatewayAgentPort           int      2427n";
  110.     print GW "GatewayNumEndpoints        int      ", $number_eps, "n"; 
  111.     print GW "GatewayCntsPerEndpt        int      1n";
  112.     print GW "GatewayFirstRtpPort        int      6050n";
  113.     print GW "GatewayEndpoint            int      ", ($start_ep), "n";
  114.     print GW "n";
  115.     if($j % 2) {
  116. print GW "GatewayRunMode             string   CallingGWn";
  117.     } else {
  118. print GW "GatewayRunMode             string   ReceiveGWn";
  119.     }
  120.     print GW "GatewayCallDuration        int      2000n";
  121.     print GW "GatewayCallDelay           int      10n";
  122.     print GW "GatewayAnswerDelay         int      50n";
  123.     print GW "DebugMsgInterval           int      14n";
  124. #    if($j % 2) {
  125. # print GW "ReceiveGWHU                int      0n";
  126. #    } else {
  127. print GW "ReceiveGWHU                int      1n";
  128. #    }
  129.     
  130.     print GW "DialNumber               string     ", ($start_dn - $number_eps), "n";
  131.     close(GW);
  132.     $start_ep += $number_eps;
  133.     $start_dn += $number_eps;
  134.     $j++;
  135. }