sub initSurvRerun() {
	$textfield_listing->selectionSet(0, 'end');
	my @indexlist = $textfield_listing->curselection();
	$textfield_listing->selectionClear(0, 'end');
	
	foreach my $i ( @indexlist ) {
		my $packnum = $packetnumber[$i];
		my $host = $hostname[$i];
		if ($pack_status{$i} eq "running") {
			if (checkStatus($packnum, $host) == 1) {
				checkSchedules($packnum, $host);
			}
		}
	}
}

sub checkStatus() {
	my $blub = $_[0];
	my $blub2 = $_[1];
}


sub checkSchedules() {
	my $blub = $_[0];
	my $blub2 = $_[1];
}