<?
	if ($_GET['ip'])
		$ip = $_GET['ip'];
	else
		$ip = $_POST['ip'];

	if ($_GET['mode'])
		$mode = $_GET['mode'];
	else
		$mode = $_POST['mode'];
?>


<table width=100%>
<tr><td>
		Check result for IP '<span style='color:green;'><? echo $ip; ?></span>':
	</td>
	<td align=right>
		<button onClick='history.back();' style='height:14pt;'>back</button>
	</td>
</tr>
</table>
<p>

<?
	//
	// You should replace '$bin' with your own rblcheck binary.
	// the rblcheck binary comes from http://rblcheck.sourceforge.net/
	//
	if ($mode == 3)
		$bin = '/usr/local/bin/rblchk_3';
	else if ($mode == 2)
		$bin = '/usr/local/bin/rblchk_2';
	else 
		$bin = '/usr/local/bin/rblchk_1';

	$a_ip = explode('.', $ip);

	sscanf($a_ip[0], "%d", $ip1);
	sscanf($a_ip[1], "%d", $ip2);
	sscanf($a_ip[2], "%d", $ip3);
	sscanf($a_ip[3], "%d", $ip4);

	$res = array();
	$idx = 0;

	if ($ip1 == '' || $ip2 == '' || $ip3 == '' || $ip4 == '' ||
		!($fp = popen("$bin $ip1.$ip2.$ip3.$ip4", "r"))
		)
	{
		echo "Error: invalid IP format '$ip'\n";
	}
	else
	{
		while(($res[$idx] = fgets($fp)))
			$idx++;
		pclose($fp);

		?>

		<table width=100% bgcolor=#c0c0c0 cellspacing=1>
		<tr bgcolor=#e0e0e0>
			<td width=*>  RBL List Name</td>
			<td width=100>Status</td>
			<td width=100>Listed</td>
		</tr>


		<?

		$spam_cnt = 0;

		for ($i=0; $i<$idx; $i++)
		{
			if (!($k = strpos($res[$i], " by ")))
				continue;

			$rbl_name = '  '. substr($res[$i], $k + 4);
				

			if (strstr($res[$i], ' not '))
			{
				if (strstr($res[$i], ' (TIMEOUT)'))
				{
					$rbl_name = str_replace('(TIMEOUT)', '', $rbl_name);
					echo "<tr bgcolor=white><td>$rbl_name</td><td style='color:red;'>  timeout</td><td>--</td></tr>";
				}
				else
					echo "<tr bgcolor=white><td>$rbl_name</td><td></td><td>no</td></tr>";
			}
			else
			{
				echo "<tr bgcolor=#ffe0e0><td>$rbl_name</td><td></td><td style='color:red;'>yes</td></tr>";
				$spam_cnt++;
			}
		}

		echo "<span style='color:green;'>Check $idx lists, $spam_cnt report listed.</span>\n</table>\n";
		echo "<p><span style='color:green;'>Check $idx lists, $spam_cnt report listed.</span>\n";
	}
?>