batchinator.pl

radius协议源码÷The Radius Stack will connect to a Radius Server. This stack implementation is built upo

#!/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 [e-mail].
# 
# 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/>.

#This program runs Tricorder in batch mode on each of the filenames in
#the command line, placing the paginated postscript output in subdirectories.
#For a file foo, the subdirectory will be called Call_flows--foo, and the
#Postscript output files will be Call_flows--foo/foo-1.eps,
#Call_flows--foo/foo-2.eps, et cetera.

use strict;
use constant DEBUG => 1;

my $program_name = 'batchinator.pl';
my $Tricorder = '/root/Tricorder/tricorder.pl --batch-process --paginate-snapshots=smart --logical-names /root/Tricorder/tools/server_maps/server_map--golden_with_additions.pl';
foreach my $file (@ARGV)
{
    if (! -f $file)
    {
	warn "$file is not a regular file; skipping...";
	next;
    }

    my $dir = "Call_flows--$file";
    if ( -e $dir )
    {
	die "Could not make directory $dir:  file exists.  Move it out of the way to avoid clobbering it, then run $program_name again.";
    }
    mkdir $dir, 755
	or warn "Could not make directory $dir:  $!";
    print "Made directory $dir\n" if DEBUG;
    system ("$Tricorder --log-file $file --snapshot-filename $dir/$file.eps");
    my $exit_value = $? >> 8;
    warn "Tricorder failed for file $file:  exit value $exit_value, errno $!" if $exit_value;
}