1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
#!/usr/bin/perl -w
##########################################################################################
#
# stressSuite
#
# A Perl script to stress the srmV1
#
# 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: srmv1Stress,v 1.3 2005/06/14 13:38:07 grodid Exp $
# Usage: srmv1Stress lxgate22 50 2100 gftp [domain]
use strict;
my $mach = shift;
my $many = shift;
my $label = shift;
my $proto = shift;
my $domain = shift || "cern.ch";
$label--;
my $command = "time srmv1Suite ${mach}.${domain} grodid $proto > /tmp/suite-SLC3-${proto}-${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;
|
