casa6

#!/usr/bin/perl -sW

#

# Run a test when load average is low

#

# Note:

#    WARNING: The given workdir is recursively deleted!

#    $SHELL should be /bin/bash

#    If $DISPLAY is defined, that X connection is used

#    If $DISPLAY is undefined, a virtual Xvfb server is

#    started and stopped

​

# Distribution: END_USER_BINARY

​

use FindBin;

use Sys::Hostname;

​

###$#ARGV == 3 or die "Usage: $0 [options] reg_dir data_dir load_limit timeout";

$#ARGV == 1 or die "Usage: $0 [options] load_limit timeout";

​

$la_limit = $ARGV[0];

$timeout  = $ARGV[1];

​

###

### Avoid perl error for command line options

###

$pack_all = "" if (0);   # create a result-all.tgz from all the tar files?

​

if ( ! $prefix ) {

    $prefix = "/casa/regression/01";

}

if ( ! $work_dir ) {

    $work_dir = "$prefix/work/";

}

if (! $reg_dir) {

    $reg_dir = "$prefix/result/";

}

if (! $res_dir) {

    $res_dir = "$prefix/sresult/";

}

​

if (! $install_dir) {

    $install_dir = "$prefix/install/";

}

if (! $data_dir) {

    $data_dir = "$prefix/data/";

}

​

(-d $res_dir) or mkdir($res_dir) or die;

​

$cmd="date -u +%Y%m%d%H%M";

$date=`$cmd`;

if ($?) {

    print STDERR "$cmd: $! ". "bailing out";

    exit 1;

}

chomp($date);

​

$admin_dir = $FindBin::Bin;

$hostname = hostname();

$file_next  = $reg_dir . "/tests_next.txt";

$file_tests = $reg_dir . "/tests_list.txt";

(-d $reg_dir) or mkdir($reg_dir) or die "$reg_dir: $!";

(-e $file_tests) or $file_tests = $admin_dir . "/tests_list.txt";