inc/3rdparty/libraries/MOBIClass/Http.php

   1 <?php
   2 class Http{
   3         private static $cache = false;
   4
   5         public static function Request($url){
   6                 $url_parts = parse_url($url);
   7                 $url_parts["port"] = isset($url_parts["port"]) ? $url_parts["port"] : 80;
   8                 $url_parts["path"] = isset($url_parts["path"]) ? $url_parts["path"] : "/";
   9
  10                 return self::FullRequest("GET", $url_parts["host"], $url_parts["port"], $url_parts["path"]);
  11         }
  12
  13         public static function FullRequest(
  14                         $verb = 'GET',             /* HTTP Request Method (GET and POST supported) */
  15                         $ip,                       /* Target IP/Hostname */
  16                         $port = 80,                /* Target TCP port */
  17                         $uri = '/',                /* Target URI */
  18                         $getdata = array(),        /* HTTP GET Data ie. array('var1' => 'val1', 'var2' => 'val2') */
  19                         $postdata = array(),       /* HTTP POST Data ie. array('var1' => 'val1', 'var2' => 'val2') */
  20                         $cookie = array(),         /* HTTP Cookie Data ie. array('var1' => 'val1', 'var2' => 'val2') */
  21                         $custom_headers = array(), /* Custom HTTP headers ie. array('Referer: http://localhost/ */
  22                         $timeout = 1000,           /* Socket timeout in milliseconds */
  23                         $req_hdr = false,          /* Include HTTP request headers */
  24                         $res_hdr = false,           /* Include HTTP response headers */
  25                         $depth = 4                                      /* Depth of the iteration left (to avoid redirection loops) */
  26                         )
  27         {
  28                 if(self::$cache){
  29                         $cacheFile = "cache/".$ip."/".str_replace("/", "...", $uri);
  30
  31                         if(is_file($cacheFile)){
  32                                 $data = file_get_contents($cacheFile);
  33
  34                                 return self::resolveTruncated($data);
  35                         }
  36                 }
  37                 $ret = '';
  38                 $verb = strtoupper($verb);
  39                 $cookie_str = '';
  40                 $getdata_str = count($getdata) ? '?' : '';
  41                 $postdata_str = '';
  42
  43                 foreach ($getdata as $k => $v)
  44                         $getdata_str .= urlencode($k) .'='. urlencode($v);
  45
  46                 foreach ($postdata as $k => $v)
  47                         $postdata_str .= urlencode($k) .'='. urlencode($v) .'&';
  48
  49                 foreach ($cookie as $k => $v)
  50                         $cookie_str .= urlencode($k) .'='. urlencode($v) .'; ';
  51
  52                 $crlf = "\r\n";
  53                 $req = $verb .' '. $uri . $getdata_str .' HTTP/1.1' . $crlf;
  54                 $req .= 'Host: '. $ip . $crlf;
  55                 $req .= 'User-Agent: Mozilla/5.0 Firefox/3.6.12' . $crlf;
  56                 $req .= 'Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8' . $crlf;
  57                 $req .= 'Accept-Language: en-us,en;q=0.5' . $crlf;
  58                 $req .= 'Accept-Encoding: deflate' . $crlf;
  59                 $req .= 'Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7' . $crlf;
  60
  61
  62                 foreach ($custom_headers as $k => $v)
  63                         $req .= $k .': '. $v . $crlf;
  64
  65                 if (!empty($cookie_str))
  66                         $req .= 'Cookie: '. substr($cookie_str, 0, -2) . $crlf;
  67
  68                 if ($verb == 'POST' && !empty($postdata_str))
  69                 {
  70                         $postdata_str = substr($postdata_str, 0, -1);
  71                         $req .= 'Content-Type: application/x-www-form-urlencoded' . $crlf;
  72                         $req .= 'Content-Length: '. strlen($postdata_str) . $crlf . $crlf;
  73                         $req .= $postdata_str;
  74                 }
  75                 else $req .= $crlf;
  76
  77                 if ($req_hdr)
  78                         $ret .= $req;
  79
  80                 if (($fp = @fsockopen($ip, $port, $errno, $errstr)) == false)
  81                         return "Error $errno: $errstr\n";
  82
  83                 stream_set_timeout($fp, 0, $timeout * 1000);
  84
  85                 fputs($fp, $req);
  86                 $ret .= stream_get_contents($fp);
  87                 fclose($fp);
  88
  89                 $headerSplit = strpos($ret, "\r\n\r\n");
  90                 $header = substr($ret, 0, $headerSplit);
  91
  92                 $redirectURL = self::CheckForRedirect($header);
  93
  94                 if($redirectURL !== false){
  95                         if($depth > 0){
  96                                 $url_parts = parse_url($redirectURL);
  97                                 $url_parts["port"] = isset($url_parts["port"]) ? $url_parts["port"] : 80;
  98                                 $url_parts["path"] = isset($url_parts["path"]) ? $url_parts["path"] : "/";
  99
 100                                 return self::FullRequest($verb, $url_parts["host"], $url_parts["port"], $url_parts["path"], $getdata, $postdata, $cookie, $custom_headers, $timeout, $req_hdr, $res_hdr, $depth-1);
 101                         }else{
 102                                 return "Redirect loop, stopping...";
 103                         }
 104                 }
 105
 106                 $truncated = false;
 107                 $headerLines = explode("\r\n", $header);
 108                 foreach($headerLines as $line){
 109                         list($name, $value) = explode(":", $line);
 110                         $name = trim($name);
 111                         $value = trim($value);
 112
 113                         if(strtolower($name) == "transfer-encoding" && strtolower($value) == "chunked"){                //TODO: Put right values!
 114                                 $truncated = true;
 115                         }
 116                 }
 117
 118                 if (!$res_hdr)
 119                         $ret = substr($ret, $headerSplit + 4);
 120
 121                 if($truncated){
 122                         $ret = self::resolveTruncated($ret);
 123                 }
 124                 if(self::$cache){
 125                         if(!is_dir("cache")){
 126                                 mkdir("cache");
 127                         }
 128                         if(!is_dir("cache/".$ip)){
 129                                 mkdir("cache/".$ip);
 130                         }
 131                         if(!is_file("cache/".$ip."/".str_replace("/", "...", $uri))){
 132                                 $h = fopen("cache/".$ip."/".str_replace("/", "...", $uri), "w");
 133                                 fwrite($h, $ret);
 134                                 fclose($h);
 135                         }
 136                 }
 137
 138                 return $ret;
 139         }
 140
 141         private static function resolveTruncated($data){
 142                 $pos = 0;
 143                 $end = strlen($data);
 144                 $out = "";
 145
 146                 while($pos < $end){
 147                         $endVal = strpos($data, "\r\n", $pos);
 148                         $value = hexdec(substr($data, $pos, $endVal-$pos));
 149                         $out .= substr($data, $endVal+2, $value);
 150                         $pos = $endVal+2+$value;
 151                 }
 152
 153                 return $out;
 154         }
 155
 156         private static function CheckForRedirect($header){
 157                 $firstLine = substr($header, 0, strpos($header, "\r\n"));
 158                 list($httpVersion, $statusCode, $message) = explode(" ", $firstLine);
 159
 160                 if(substr($statusCode, 0, 1) == "3"){
 161                         $part = substr($header, strpos(strtolower($header), "location: ")+strlen("location: "));
 162                         $location = trim(substr($part, 0, strpos($part, "\r\n")));
 163
 164                         if(strlen($location) > 0){
 165                                 return $location;
 166                         }
 167                 }
 168                 return false;
 169         }
 170 }
 171 ?>