aboutsummaryrefslogtreecommitdiffhomepage
path: root/inc/3rdparty/libraries/MOBIClass/Http.php
diff options
context:
space:
mode:
authorThomas Citharel <tcit@tcit.fr>2014-12-14 00:16:39 +0100
committerThomas Citharel <tcit@tcit.fr>2014-12-14 00:16:39 +0100
commit1256e4c645c86f4165d052bf8116b957b373b837 (patch)
tree3cc3bd960df403a6e0645afcd9e4f5bbb68bfc0e /inc/3rdparty/libraries/MOBIClass/Http.php
parent9c55ed0923273da886497cb62302a79622e34a74 (diff)
parentdc69d3e8d895c87f9d26c2d1309e40d6090d4c8d (diff)
downloadwallabag-1256e4c645c86f4165d052bf8116b957b373b837.tar.gz
wallabag-1256e4c645c86f4165d052bf8116b957b373b837.tar.zst
wallabag-1256e4c645c86f4165d052bf8116b957b373b837.zip
Merge branch 'tcitworld-ebook' into dev
Diffstat (limited to 'inc/3rdparty/libraries/MOBIClass/Http.php')
-rw-r--r--inc/3rdparty/libraries/MOBIClass/Http.php171
1 files changed, 171 insertions, 0 deletions
diff --git a/inc/3rdparty/libraries/MOBIClass/Http.php b/inc/3rdparty/libraries/MOBIClass/Http.php
new file mode 100644
index 00000000..9e5852e3
--- /dev/null
+++ b/inc/3rdparty/libraries/MOBIClass/Http.php
@@ -0,0 +1,171 @@
1<?php
2class 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?> \ No newline at end of file