#!/usr/bin/perl -w

##########################################################################################
#
#  Socket-stressSuite
#
#  A Perl script to test the socket interface of DPM
#
#  Author: Gilbert Grosdidier, LAL (Universite Paris-Sud, Orsay)
#  Creation Date  : 3/11/2004
#  Migration :     27/12/2004
#  Last rev: 14/06/2005 (GG)
#
##########################################################################################

###
### Copyright (C) 2004-2005 by CERN/IT/GD/CT & CNRS/IN2P3/LAL
### All rights reserved
###

# $Id: socketStress,v 1.2 2005/06/14 13:38:06 grodid Exp $
# Usage: socketStress lxgate22 50 2100 [domain]

use strict;

my $mach = shift;
my $many = shift;
my $label = shift;
my $domain = shift || "cern.ch";
$label--;

my $command = "time socketSuite ${mach}.${domain} grodid > /tmp/suite-SLC3-${mach}-sec.lis";

foreach my $cn ( 1 .. $many ) {
    my $lab = $label + $cn;
    my $cm = "nohup $command$lab 2>&1 &";
    print "CM: >> $cm << \n";
    system ("$cm");
}

exit 0;
