genFeatures.pl
上传用户:sy_wanhua
上传日期:2013-07-25
资源大小:3048k
文件大小:4k
源码类别:

流媒体/Mpeg4/MP4

开发平台:

C/C++

  1. #!/usr/bin/perl -w
  2. #
  3. # ====================================================================
  4. # The Vovida Software License, Version 1.0 
  5. # Copyright (c) 2000 Vovida Networks, Inc.  All rights reserved.
  6. # Redistribution and use in source and binary forms, with or without
  7. # modification, are permitted provided that the following conditions
  8. # are met:
  9. # 1. Redistributions of source code must retain the above copyright
  10. #    notice, this list of conditions and the following disclaimer.
  11. # 2. Redistributions in binary form must reproduce the above copyright
  12. #    notice, this list of conditions and the following disclaimer in
  13. #    the documentation and/or other materials provided with the
  14. #    distribution.
  15. # 3. The names "VOCAL", "Vovida Open Communication Application Library",
  16. #    and "Vovida Open Communication Application Library (VOCAL)" must
  17. #    not be used to endorse or promote products derived from this
  18. #    software without prior written permission. For written
  19. #    permission, please contact vocal@vovida.org.
  20. # 4. Products derived from this software may not be called "VOCAL", nor
  21. #    may "VOCAL" appear in their name, without prior written
  22. #    permission of Vovida Networks, Inc.
  23. # THIS SOFTWARE IS PROVIDED "AS IS" AND ANY EXPRESSED OR IMPLIED
  24. # WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  25. # OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, TITLE AND
  26. # NON-INFRINGEMENT ARE DISCLAIMED.  IN NO EVENT SHALL VOVIDA
  27. # NETWORKS, INC. OR ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT DAMAGES
  28. # IN EXCESS OF $1,000, NOR FOR ANY INDIRECT, INCIDENTAL, SPECIAL,
  29. # EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
  30. # PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
  31. # PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY
  32. # OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  33. # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
  34. # USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
  35. # DAMAGE.
  36. # ====================================================================
  37. # This software consists of voluntary contributions made by Vovida
  38. # Networks, Inc. and many individuals on behalf of Vovida Networks,
  39. # Inc.  For more information on Vovida Networks, Inc., please see
  40. # <http://www.vovida.org/>.
  41. ###############################################################################
  42. # script to generate x number of feature cpl scripts
  43. #
  44. # Usage: genFeatures begin-userid num-users
  45. #
  46. # $Id: genFeatures.pl,v 1.2 2001/05/13 10:54:01 icahoon Exp $
  47. #
  48. ###############################################################################
  49. # display usage message
  50. #
  51. if (@ARGV != 2 ) {
  52.   die "Usage:  $0  begin-userid num-usersn";
  53. }
  54. # verbose mode
  55. $verbose = 1;
  56. # parse arguments
  57. $idbase = $ARGV[0];   # begin userid
  58. $count = $ARGV[1];    # generate $count users
  59. # set template file:
  60. $at = "@";
  61. $template = "/usr/local/vocal/provisioning_data/Features/generated/1000".$at."vovida.com.cpl";
  62. $id = $idbase;
  63. # using $template file, generate $idbase+n@vovida.com.cpl file
  64. sub cloneAccount {
  65.    # assume <TEMPLATE> and <OUTFILE> are already opened:
  66.    while (<TEMPLATE>)
  67.    {
  68.        $line = $_;
  69.        chomp($line);
  70.        if (/(sip:XXXX)/) {
  71.           $newline = "  <lookup clear="yes" source="sip:$id".$at."vovida.com:5060;user=phone">";
  72.           print OUTFILE "$newlinen"; 
  73.           printf( "newline = $newlinen" );
  74.           next;
  75.        }
  76.        # ignore the rest of cpl data, just output to OUTFILE:
  77.        print OUTFILE "$linen";
  78.    }
  79. }
  80. # set up file handles to generate new user cpl files:
  81. sub prepareData {
  82.    $outfile = "$id".$at."vovida.com.cpl";
  83.    if (-e $outfile )
  84.    {
  85.       rmdir $outfile;
  86.    }
  87.    # first, fix up the calling ua.cfg
  88.    open( TEMPLATE, "<" . $template) || die "Could not open $templaten";
  89.    open(OUTFILE, ">$outfile");
  90.       print "generating $outfile...n" if $verbose;
  91.       cloneAccount();
  92.    close( OUTFILE );
  93.    close( TEMPLATE );
  94. }
  95. # main prog
  96. sub main {
  97.    # loop $count times
  98.    $i = $count;
  99.    while ($i) {
  100.        prepareData();     
  101.        $id++;
  102.        $i--;
  103.    }   
  104. }
  105. main();
  106. ## end of program