*** wbinfo_group.pl	2011-12-27 01:58:23.579142026 +0100
--- wbinfo_group_new.pl	2011-12-27 01:58:38.553134526 +0100
***************
*** 86,98 ****
  #
  while (<STDIN>) {
          chop;
- 	$ans = 'ERR';
  	&debug ("Got $_ from squid");
          ($user, @groups) = split(/\s+/);
! 	$user =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C",hex($1))/eg;
   	# test for each group squid send in it's request
   	foreach $group (@groups) {
! 		$group =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C",hex($1))/eg;
   		$ans = &check($user, $group);
   		last if $ans eq "OK";
   	}
--- 86,97 ----
  #
  while (<STDIN>) {
          chop;
  	&debug ("Got $_ from squid");
          ($user, @groups) = split(/\s+/);
! 	$user =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("c",hex($1))/eg;
   	# test for each group squid send in it's request
   	foreach $group (@groups) {
! 		$group =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("c",hex($1))/eg;
   		$ans = &check($user, $group);
   		last if $ans eq "OK";
   	}