genFeatures.pl
上传用户:sy_wanhua
上传日期:2013-07-25
资源大小:3048k
文件大小:4k
- #!/usr/bin/perl -w
- #
- # ====================================================================
- # The Vovida Software License, Version 1.0
- #
- # Copyright (c) 2000 Vovida Networks, Inc. All rights reserved.
- #
- # Redistribution and use in source and binary forms, with or without
- # modification, are permitted provided that the following conditions
- # are met:
- #
- # 1. Redistributions of source code must retain the above copyright
- # notice, this list of conditions and the following disclaimer.
- #
- # 2. Redistributions in binary form must reproduce the above copyright
- # notice, this list of conditions and the following disclaimer in
- # the documentation and/or other materials provided with the
- # distribution.
- #
- # 3. The names "VOCAL", "Vovida Open Communication Application Library",
- # and "Vovida Open Communication Application Library (VOCAL)" must
- # not be used to endorse or promote products derived from this
- # software without prior written permission. For written
- # permission, please contact vocal@vovida.org.
- #
- # 4. Products derived from this software may not be called "VOCAL", nor
- # may "VOCAL" appear in their name, without prior written
- # permission of Vovida Networks, Inc.
- #
- # THIS SOFTWARE IS PROVIDED "AS IS" AND ANY EXPRESSED OR IMPLIED
- # WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
- # OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, TITLE AND
- # NON-INFRINGEMENT ARE DISCLAIMED. IN NO EVENT SHALL VOVIDA
- # NETWORKS, INC. OR ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT DAMAGES
- # IN EXCESS OF $1,000, NOR FOR ANY INDIRECT, INCIDENTAL, SPECIAL,
- # EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
- # PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
- # PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY
- # OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
- # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
- # USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
- # DAMAGE.
- #
- # ====================================================================
- #
- # This software consists of voluntary contributions made by Vovida
- # Networks, Inc. and many individuals on behalf of Vovida Networks,
- # Inc. For more information on Vovida Networks, Inc., please see
- # <http://www.vovida.org/>.
- ###############################################################################
- # script to generate x number of feature cpl scripts
- #
- # Usage: genFeatures begin-userid num-users
- #
- # $Id: genFeatures.pl,v 1.2 2001/05/13 10:54:01 icahoon Exp $
- #
- ###############################################################################
- # display usage message
- #
- if (@ARGV != 2 ) {
- die "Usage: $0 begin-userid num-usersn";
- }
- # verbose mode
- $verbose = 1;
- # parse arguments
- $idbase = $ARGV[0]; # begin userid
- $count = $ARGV[1]; # generate $count users
- # set template file:
- $at = "@";
- $template = "/usr/local/vocal/provisioning_data/Features/generated/1000".$at."vovida.com.cpl";
- $id = $idbase;
- # using $template file, generate $idbase+n@vovida.com.cpl file
- sub cloneAccount {
- # assume <TEMPLATE> and <OUTFILE> are already opened:
- while (<TEMPLATE>)
- {
- $line = $_;
- chomp($line);
- if (/(sip:XXXX)/) {
- $newline = " <lookup clear="yes" source="sip:$id".$at."vovida.com:5060;user=phone">";
- print OUTFILE "$newlinen";
- printf( "newline = $newlinen" );
- next;
- }
- # ignore the rest of cpl data, just output to OUTFILE:
- print OUTFILE "$linen";
- }
- }
- # set up file handles to generate new user cpl files:
- sub prepareData {
- $outfile = "$id".$at."vovida.com.cpl";
- if (-e $outfile )
- {
- rmdir $outfile;
- }
- # first, fix up the calling ua.cfg
- open( TEMPLATE, "<" . $template) || die "Could not open $templaten";
- open(OUTFILE, ">$outfile");
- print "generating $outfile...n" if $verbose;
- cloneAccount();
- close( OUTFILE );
- close( TEMPLATE );
- }
- # main prog
- sub main {
- # loop $count times
- $i = $count;
- while ($i) {
- prepareData();
- $id++;
- $i--;
- }
- }
- main();
- ## end of program