--- TransHandler.pm.ancien	2007-05-27 16:02:33.000000000 +0200
+++ TransHandler.pm	2007-05-27 16:03:10.000000000 +0200
@@ -46,11 +46,12 @@
 	my ($exp, $rule) = split (/=>/, $line);
 	$rule =~ s/\s*//g;
 	$exp =~ s/\s*//g;
-
-	my ($cond) = ($rule =~ /\[(.*)\]/);
+	
+	$line =~ /\[([A-Z0-9]+)\]/;
+	my ($cond) = $1;
 	return unless ($rule and $exp and ($$uri.($r->args ? "?".$r->args : "")) =~ /$exp/x);
 	return if ($cond =~ /,NOCERT$/ and $r->ssl_lookup('SSL_CLIENT_M_SERIAL'));
-
+	return if ($cond eq "H" or $cond eq "MH" or $cond eq "F" or $cond eq "UH" or $cond eq "L"); 
 	$rule =~ s/\[$cond\]//;
 	$cond =~ s/,NOCERT$//;