#
# Copyright 2009 Sun Microsystems, Inc.  All rights reserved.
# Use is subject to license terms.
#

sub pre_run {
        # Initialize filebench to appropriate personality, create files
	# and processes
        op_init();

        # The op_load command automatically creates files
        op_load(conf_reqval("personality"));

        # Flush the FS cache
	op_fsflush();

        # Initialise statistics and argument arrays
        @ext_stats=();
        @file_stats=();
        @arg_stats=();
}

sub post_run {
        my $statsbase = get_STATSBASE();

        # Create a html summary of the run
	system ("cd $statsbase; " . get_FILEBENCH() . "/scripts/filebench_compare $statsbase")
}

sub bm_run {
        my $runtime = conf_reqval("runtime");
        my $fs = get_CONFNAME();
	my $warmuptime = "";

	if (conf_exists("warmuptime") == 1) {
	    $warmuptime = conf_reqval("warmuptime");
	}

	# The following array must not contain empty values ! This causes the
	# statistics scripts to miss arguments !
        # Clear, run the benchmark, snap statistics 
        # This command will also run external statistics (supplied in an array)
	# if desired 
        # Statistics automatically dumped into directory matching stats
	# profile variable
        # <stats>/<hostname>-<date-time>/<personality>

	# create processes and start run, then collect statistics
        op_stats($runtime,$warmuptime,"stats.$fs",@ext_stats,@file_stats,@arg_stats);
}

1;