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

流媒体/Mpeg4/MP4

开发平台:

C/C++

  1. #!/usr/bin/perl -w
  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. ###############################################################################
  41. #
  42. # script to generate x number of user accounts
  43. #
  44. # Usage: genUsers begin-userid num-users
  45. #
  46. #
  47. # $Id: genUsers.pl,v 1.2 2001/05/13 10:54:01 icahoon Exp $
  48. #
  49. #
  50. ###############################################################################
  51. # display usage message
  52. #
  53. if (@ARGV != 2 ) {
  54.   die "Usage:  $0  begin-userid num-usersn";
  55. }
  56. # verbose mode
  57. $verbose = 1;
  58. # parse arguments
  59. $idbase = $ARGV[0];   # begin userid
  60. $count = $ARGV[1];    # generate $count users
  61. # set template file:
  62. $at = "@";
  63. $template = "/usr/local/vocal/provisioning_data/Accounts.generated/99998".$at."vovida.com.xml";
  64. $id = $idbase;
  65. # using $template file, generate $idbase+n@vovida.com.xml file
  66. sub cloneAccount {
  67.    # assume <TEMPLATE> and <OUTFILE> are already opened:
  68.    while (<TEMPLATE>)
  69.    {
  70.        $line = $_;
  71.        chomp($line);
  72.        if (/(^<user><name>)/) {
  73.           $newline = "<user><name>$id".$at."vovida.com</name>";
  74.           print OUTFILE "$newlinen"; 
  75.           printf( "newline = $newlinen" );
  76.           next;
  77.        }
  78.        # ignore the rest of xml data, just output to OUTFILE:
  79.        print OUTFILE "$linen";
  80.    }
  81. }
  82. # set up file handles to generate new user xml files:
  83. sub prepareData {
  84.    $outfile = "$id".$at."vovida.com.xml";
  85.    if (-e $outfile )
  86.    {
  87.       rmdir $outfile;
  88.    }
  89.    # first, fix up the calling ua.cfg
  90.    open( TEMPLATE, "<" . $template) || die "Could not open $templaten";
  91.    open(OUTFILE, ">$outfile");
  92.       print "generating $outfile...n" if $verbose;
  93.       cloneAccount();
  94.    close( OUTFILE );
  95.    close( TEMPLATE );
  96. }
  97. # main prog
  98. sub main {
  99.    # loop $count times
  100.    $i = $count;
  101.    while ($i) {
  102.        prepareData();     
  103.        $id++;
  104.        $i--;
  105.    }   
  106. }
  107. main();
  108. ## end of program