sub anfang{
	my($p, $starttag, %attr) = @_;

	# beginnt eine neue Datei?
	if($starttag eq "testsuite") {

		# gibt es Fehler oder Abbrüche?
		if ($attr{errors} ne "0" or $attr{failures} ne "0"){
			# neuer test-eintrag
			print FILE "\t\t<testsuite name=\"$testSuitName\" time=\"$attr{timestamp}\">\n";
			$openTestSuite = 1;

		}
	}
	elsif ($starttag eq "testcase"){

		$testCaseClass = $attr{classname};
		$testCaseName  = $attr{name};
	}
	elsif ($starttag eq "error"){

		$attr{message} =~ tr/<>\"/[]'/;
		if ($attr{message} eq "") {$attr{message} = "."};

		print FILE "\t\t\t<error classname=\"$testCaseClass\" name=\"$testCaseName\" message=\"$attr{message}\" type=\"$attr{type}\" />\n";
	}
	elsif ($starttag eq "failure"){

		$attr{message} =~ tr/<>\"/[]'/;
		if ($attr{message} eq "") {$attr{message} = "."};

		print FILE "\t\t\t<failure classname=\"$testCaseClass\" name=\"$testCaseName\" message=\"$attr{message}\" type=\"$attr{type}\" />\n";
	}
}