? functions.php_
Index: functions.php
===================================================================
RCS file: /cvsroot/usebb/UseBB/sources/functions.php,v
retrieving revision 1.341
diff -r1.341 functions.php
234a235,260
>  * gethostbyname replacement for Windows
>  *
>  * @author Tadashi Jokagi <elf2000@users.sourceforge.net>
>  * @param string $host host
>  * @returns string IP address(Success) or $host(Error).
>  */
> function gethostbyname_win($host) {
> 	
> 	$output = array();
> 	@exec('nslookup -type=A '.$host, $output);
> 	
> 	$output = array_map( "trim", $output);
> 	foreach ( $output as $index=>$line ) {
> 		
> 		if ( preg_match('#^Name:[ \t]+'.$host.'#', $line) &&
> 		  preg_match('#^Address:[ \t]+([0-9\.]+)#', $output[ $index + 1], $match)) {
> 			return $match[ 1];
> 		}
> 		
> 	}
> 	
> 	return $host;
> 	
> } 
> 
> /**
Index: session.php
===================================================================
RCS file: /cvsroot/usebb/UseBB/sources/session.php,v
retrieving revision 1.70
diff -r1.70 session.php
275c275
< 			$dnsrr_function = 'checkdnsrr';
---
> 			$dnsrr_function = 'gethostbyname';
280c280
< 			$dnsrr_function = 'checkdnsrr_win';
---
> 			$dnsrr_function = 'gethostbyname_win';
330d329
< 				
334c333
< 					if ( preg_match('#^([a-z0-9\-]+\.){1,}[a-z]{2,}$#i', $dnsbl_server) && call_user_func($dnsrr_function, $dnsbl.'.'.$dnsbl_server, 'A') )
---
> 					if ( preg_match('#^([a-z0-9\-]+\.){1,}[a-z]{2,}$#i', $dnsbl_server) && call_user_func($dnsrr_function, $dnsbl.'.'.$dnsbl_server) == "127.0.0.2" )
338d336
<