Loading...   


sub EVENT_SAY{	
	my @arg = split(" ", $text);
	if($text=~/sub_event_stress/i){
		use Time::HiRes qw(time);
		my $start_run = time();
		for($i = 0; $i < $arg[1]; $i++){
			$client->SignalClient(20);
		}
		my $end_run = time();
		my $run_time = $end_run - $start_run;
		$client->Message(15, "Job took $run_time seconds - with " . $arg[1] . " samples...");
		
	}
}

sub EVENT_SIGNAL {
	
}

Raw Paste Data