Index: squid/helpers/external_acl/wbinfo_group/wbinfo_group.pl
diff -c squid/helpers/external_acl/wbinfo_group/wbinfo_group.pl:1.1.2.2 squid/helpers/external_acl/wbinfo_group/wbinfo_group.pl:1.1.2.3
*** squid/helpers/external_acl/wbinfo_group/wbinfo_group.pl:1.1.2.2	Tue Feb 17 15:37:51 2004
--- squid/helpers/external_acl/wbinfo_group/wbinfo_group.pl	Wed Jun 29 14:34:14 2005
***************
*** 15,20 ****
--- 15,23 ----
 # 2002年07月05日 Jerry Murdock <jmurdock@itraktech.com>
 #		Initial release
 #
+ # 2005年06月28日 Arno Streuli <astreuli@gmail.com>
+ # Add multi group check
+ 
 
 # external_acl uses shell style lines in it's protocol
 require 'shellwords.pl';
***************
*** 47,54 ****
 while (<stdin>) {
 chop;
 	&debug ("Got $_ from squid");
! ($user, $group) = &shellwords;
! 	$ans = &check($user, $group);
 	&debug ("Sending $ans to squid");
 	print "$ans\n";
 }
--- 50,61 ----
 while (<stdin>) {
 chop;
 	&debug ("Got $_ from squid");
! 	($user, @groups) = &shellwords;
! 	# test for each group squid send in it's request
! 	foreach $group (@groups) {
! 		$ans = &check($user, $group);
! 		last if $ans eq "OK";
! 	}
 	&debug ("Sending $ans to squid");
 	print "$ans\n";
 }
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="http://www.squid-cache.org/Versions/v2/2.5/bugs/squid-2.5.STABLE10-wbinfo_groups.patch">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="http://www.squid-cache.org/Versions/v2/2.5/bugs/squid-2.5.STABLE10-wbinfo_groups.patch" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>