Fix blocks for non-memcache
[lhc/web/wiklou.git] / includes / proxy_check.php
1 <?php
2
3 # Command line script to check for an open proxy at a specified location
4
5 # Exit if there are not enough parameters, or if it's not command line mode
6
7 if ( ( isset( $_REQUEST ) && array_key_exists( "argv", $_REQUEST ) ) || count( $argv ) < 4 ) {
8 exit();
9 }
10
11 # Get parameters
12 $ip = $argv[1];
13 $port = $argv[2];
14 $url = $argv[3];
15
16 # Open socket
17 $sock = fsockopen($ip, $port, $errno, $errstr, 5);
18 if ($errno == 0 ) {
19 # Send payload
20 $request = "GET $url HTTP/1.0\r\n";
21 $request .= "Proxy-Connection: Keep-Alive\r\n";
22 $request .= "Pragma: no-cache\r\n";
23 $request .= "Host: ".$url."\r\n";
24 $request .= "User-Agent: MediaWiki open proxy check\r\n";
25 $request .= "\r\n";
26 fputs($sock, $request);
27 $response = fgets($sock, 128);
28 fclose($sock);
29 }
30 ?>