#!/usr/local/links/bin/perl -w

# CVS info
# $Date: 2007/03/13 17:06:57 $
# $Revision: 1.5 $
# $RCSfile: sim_res_runs.pl,v $
# $Name: rel_7 $

use strict;
use English;
use Cwd;

my $comd;
my $future;

#my $odir         = "/tmp/". $getlogin . "/io_test_input";
#my $odir         = "/tmp/". $getlogin . "/io_test_input";

#my $odir         = "/data/stage/RES/io_test_input";
my $odir         = "/tmp/sid/io_test_input";

# Input file names
my $rfcc_in      = "cnode_caching_150M";
my $mfi_in       = "mmap_file_input_750M";
my $rfiosc_in    = "read_from_IO_server_cache_4G";
my $rfd_in       = "read_disk_512G";
my $wmf_in;
my $delay = 5;

# The files Input file names above must be created in the IO stage
# directories for the programs to work. For successful timings these
# files must be deleted and recreated as per the documentation in the
# README file.

# Run $delay seconds in the future


# A launcher must add enough time to the $future variable to insure that
# all of the programs will be running on the compute nodes when that time
# arrives

$future = time()+$delay;
$comd = "read_from_cnode_cache  1 1 1 $future $odir" ;
print "Perl running->   $comd\n";
system( "gen_file $odir/$rfcc_in 150M" );
system( $comd  );
unlink "$odir/$rfcc_in" ;

$future = time()+$delay;
$comd = "mmap_file_in 1 7 1 $future $odir";
print "Perl running->   $comd\n";
system( "gen_file $odir/$mfi_in 150M" );
system( $comd  );
unlink "$odir/$mfi_in" ;

$future = time()+$delay;
$comd = "read_from_ioserver_cache 1 7 1 $future $odir";
print "Perl running->   $comd\n";
system( "gen_file $odir/$rfiosc_in  150M" );
system( $comd  );
unlink "$odir/$rfiosc_in" ;

$future = time()+$delay;
$comd = "read_from_disk 1 7 1 $future $odir";
print "Perl running->   $comd\n";
system( "gen_file $odir/$rfd_in 150M" );
system( $comd  );
unlink "$odir/$rfd_in" ;

$future = time()+$delay;
$comd = "write_many_files 1 7 1 $future $odir";
print "Perl running->   $comd\n";
system( $comd  );
system( "/bin/rm -f $odir/b4_*"  );









#__END__