?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Optimización mayor en carga de modulos.
[xmensajitos.php.git] / pruebas / snoopy.php
blobd415f5e48880a8693d31d74bd57fc24ac1fcecea
1 <?php
2 //INICIO IDENTIFICADOR DE VERSION No MODIFICAR
3 /**VERSIONID=1.2.3**/
4 //FIN IDENTIFICADOR DE VERSION No MODIFICAR
5 /*************************************************
6
7 Snoopy - the PHP net client
8 Author: Monte Ohrt <monte@ispi.net>
9 Copyright (c): 1999-2000 ispi, all rights reserved
10 Version: 1.2
11
12 * This library is free software; you can redistribute it and/or
13 * modify it under the terms of the GNU Lesser General Public
14 * License as published by the Free Software Foundation; either
15 * version 2.1 of the License, or (at your option) any later version.
16 *
17 * This library is distributed in the hope that it will be useful,
18 * but WITHOUT ANY WARRANTY; without even the implied warranty of
19 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
20 * Lesser General Public License for more details.
21 *
22 * You should have received a copy of the GNU Lesser General Public
23 * License along with this library; if not, write to the Free Software
24 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
25
26 You may contact the author of Snoopy by e-mail at:
27 monte@ispi.net
28
29 Or, write to:
30 Monte Ohrt
31 CTO, ispi
32 237 S. 70th suite 220
33 Lincoln, NE 68510
34
35 The latest version of Snoopy can be obtained from:
36 http://snoopy.sourceforge.net/
37
38 *************************************************/
39
40 class Snoopy
41 {
42 /**** Public variables ****/
43
44 /* user definable vars */
45
46 var $host = "www.php.net"; // host name we are connecting to
47 var $port = 80; // port we are connecting to
48 var $proxy_host = ""; // proxy host to use
49 var $proxy_port = ""; // proxy port to use
50 var $proxy_user = ""; // proxy user to use
51 var $proxy_pass = ""; // proxy password to use
52
53 var $agent = "Snoopy v1.2"; // agent we masquerade as
54 var $referer = ""; // referer info to pass
55 var $cookies = array(); // array of cookies to pass
56 // $cookies["username"]="joe";
57 var $rawheaders = array(); // array of raw headers to send
58 // $rawheaders["Content-type"]="text/html";
59
60 var $maxredirs = 0; // http redirection depth maximum. 0 = disallow
61 var $lastredirectaddr = ""; // contains address of last redirected address
62 var $offsiteok = true; // allows redirection off-site
63 var $maxframes = 0; // frame content depth maximum. 0 = disallow
64 var $expandlinks = true; // expand links to fully qualified URLs.
65 // this only applies to fetchlinks()
66 // or submitlinks()
67 var $passcookies = true; // pass set cookies back through redirects
68 // NOTE: this currently does not respect
69 // dates, domains or paths.
70
71 var $user = ""; // user for http authentication
72 var $pass = ""; // password for http authentication
73
74 // http accept types
75 var $accept = "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*";
76
77 var $results = ""; // where the content is put
78
79 var $error = ""; // error messages sent here
80 var $response_code = ""; // response code returned from server
81 var $headers = array(); // headers returned from server sent here
82 var $maxlength = 500000; // max return data length (body)
83 var $read_timeout = 0; // timeout on read operations, in seconds
84 // supported only since PHP 4 Beta 4
85 // set to 0 to disallow timeouts
86 var $timed_out = false; // if a read operation timed out
87 var $status = 0; // http request status
88
89 var $temp_dir = "/tmp"; // temporary directory that the webserver
90 // has permission to write to.
91 // under Windows, this should be C:\temp
92
93 var $curl_path = "/usr/local/bin/curl";
94 // Snoopy will use cURL for fetching
95 // SSL content if a full system path to
96 // the cURL binary is supplied here.
97 // set to false if you do not have
98 // cURL installed. See http://curl.haxx.se
99 // for details on installing cURL.
100 // Snoopy does *not* use the cURL
101 // library functions built into php,
102 // as these functions are not stable
103 // as of this Snoopy release.
104
105 /**** Private variables ****/
106
107 var $_maxlinelen = 4096; // max line length (headers)
108
109 var $_httpmethod = "GET"; // default http request method
110 var $_httpversion = "HTTP/1.0"; // default http request version
111 var $_submit_method = "POST"; // default submit method
112 var $_submit_type = "application/x-www-form-urlencoded"; // default submit type
113 var $_mime_boundary = ""; // MIME boundary for multipart/form-data submit type
114 var $_redirectaddr = false; // will be set if page fetched is a redirect
115 var $_redirectdepth = 0; // increments on an http redirect
116 var $_frameurls = array(); // frame src urls
117 var $_framedepth = 0; // increments on frame depth
118
119 var $_isproxy = false; // set if using a proxy server
120 var $_fp_timeout = 30; // timeout for socket connection
121
122 /*======================================================================*\
123 Function: useproxy
124 Purpose: Enables use of proxy server
125 Input: $state may be true or false
126 Output: $this->results current _isproxy value
127 \*======================================================================*/
128
129 function useproxy($state) {
130 return $_isproxy = $state;
131 }
132
133 /*======================================================================*\
134 Function: fetch
135 Purpose: fetch the contents of a web page
136 (and possibly other protocols in the
137 future like ftp, nntp, gopher, etc.)
138 Input: $URI the location of the page to fetch
139 Output: $this->results the output text from the fetch
140 \*======================================================================*/
141
142 function fetch($URI)
143 {
144
145 //preg_match("|^([^:]+)://([^:/]+)(:[\d]+)*(.*)|",$URI,$URI_PARTS);
146 $URI_PARTS = parse_url($URI);
147 if (!empty($URI_PARTS["user"]))
148 $this->user = $URI_PARTS["user"];
149 if (!empty($URI_PARTS["pass"]))
150 $this->pass = $URI_PARTS["pass"];
151 if (empty($URI_PARTS["query"]))
152 $URI_PARTS["query"] = '';
153
154 switch($URI_PARTS["scheme"])
155 {
156 case "http":
157 $this->host = $URI_PARTS["host"];
158 if(!empty($URI_PARTS["port"]))
159 $this->port = $URI_PARTS["port"];
160 if($this->_connect($fp))
161 {
162 if($this->_isproxy)
163 {
164 // using proxy, send entire URI
165 $this->_httprequest($URI,$fp,$URI,$this->_httpmethod);
166 }
167 else
168 {
169 $path = $URI_PARTS["path"].($URI_PARTS["query"] ? "?".$URI_PARTS["query"] : "");
170 // no proxy, send only the path
171 $this->_httprequest($path, $fp, $URI, $this->_httpmethod);
172 }
173
174 $this->_disconnect($fp);
175
176 if($this->_redirectaddr)
177 {
178 /* url was redirected, check if we've hit the max depth */
179 if($this->maxredirs > $this->_redirectdepth)
180 {
181 // only follow redirect if it's on this site, or offsiteok is true
182 if(preg_match("|^http://".preg_quote($this->host)."|i",$this->_redirectaddr) || $this->offsiteok)
183 {
184 /* follow the redirect */
185 $this->_redirectdepth++;
186 $this->lastredirectaddr=$this->_redirectaddr;
187 $this->fetch($this->_redirectaddr);
188 }
189 }
190 }
191
192 if($this->_framedepth < $this->maxframes && count($this->_frameurls) > 0)
193 {
194 $frameurls = $this->_frameurls;
195 $this->_frameurls = array();
196
197 while(list(,$frameurl) = each($frameurls))
198 {
199 if($this->_framedepth < $this->maxframes)
200 {
201 $this->fetch($frameurl);
202 $this->_framedepth++;
203 }
204 else
205 break;
206 }
207 }
208 }
209 else
210 {
211 return false;
212 }
213 return true;
214 break;
215 case "https":
216 if(!$this->curl_path)
217 return false;
218 if(function_exists("is_executable"))
219 if (!is_executable($this->curl_path))
220 return false;
221 $this->host = $URI_PARTS["host"];
222 if(!empty($URI_PARTS["port"]))
223 $this->port = $URI_PARTS["port"];
224 if($this->_isproxy)
225 {
226 // using proxy, send entire URI
227 $this->_httpsrequest($URI,$URI,$this->_httpmethod);
228 }
229 else
230 {
231 $path = $URI_PARTS["path"].($URI_PARTS["query"] ? "?".$URI_PARTS["query"] : "");
232 // no proxy, send only the path
233 $this->_httpsrequest($path, $URI, $this->_httpmethod);
234 }
235
236 if($this->_redirectaddr)
237 {
238 /* url was redirected, check if we've hit the max depth */
239 if($this->maxredirs > $this->_redirectdepth)
240 {
241 // only follow redirect if it's on this site, or offsiteok is true
242 if(preg_match("|^http://".preg_quote($this->host)."|i",$this->_redirectaddr) || $this->offsiteok)
243 {
244 /* follow the redirect */
245 $this->_redirectdepth++;
246 $this->lastredirectaddr=$this->_redirectaddr;
247 $this->fetch($this->_redirectaddr);
248 }
249 }
250 }
251
252 if($this->_framedepth < $this->maxframes && count($this->_frameurls) > 0)
253 {
254 $frameurls = $this->_frameurls;
255 $this->_frameurls = array();
256
257 while(list(,$frameurl) = each($frameurls))
258 {
259 if($this->_framedepth < $this->maxframes)
260 {
261 $this->fetch($frameurl);
262 $this->_framedepth++;
263 }
264 else
265 break;
266 }
267 }
268 return true;
269 break;
270 default:
271 // not a valid protocol
272 $this->error = 'Invalid protocol "'.$URI_PARTS["scheme"].'"\n';
273 return false;
274 break;
275 }
276 return true;
277 }
278
279 /*======================================================================*\
280 Function: submit
281 Purpose: submit an http form
282 Input: $URI the location to post the data
283 $formvars the formvars to use.
284 format: $formvars["var"] = "val";
285 $formfiles an array of files to submit
286 format: $formfiles["var"] = "/dir/filename.ext";
287 Output: $this->results the text output from the post
288 \*======================================================================*/
289
290 function submit($URI, $formvars="", $formfiles="")
291 {
292 unset($postdata);
293
294 $postdata = $this->_prepare_post_body($formvars, $formfiles);
295
296 $URI_PARTS = parse_url($URI);
297 if (!empty($URI_PARTS["user"]))
298 $this->user = $URI_PARTS["user"];
299 if (!empty($URI_PARTS["pass"]))
300 $this->pass = $URI_PARTS["pass"];
301 if (empty($URI_PARTS["query"]))
302 $URI_PARTS["query"] = '';
303
304 switch($URI_PARTS["scheme"])
305 {
306 case "http":
307 $this->host = $URI_PARTS["host"];
308 if(!empty($URI_PARTS["port"]))
309 $this->port = $URI_PARTS["port"];
310 if($this->_connect($fp))
311 {
312 if($this->_isproxy)
313 {
314 // using proxy, send entire URI
315 $this->_httprequest($URI,$fp,$URI,$this->_submit_method,$this->_submit_type,$postdata);
316 }
317 else
318 {
319 $path = $URI_PARTS["path"].($URI_PARTS["query"] ? "?".$URI_PARTS["query"] : "");
320 // no proxy, send only the path
321 $this->_httprequest($path, $fp, $URI, $this->_submit_method, $this->_submit_type, $postdata);
322 }
323
324 $this->_disconnect($fp);
325
326 if($this->_redirectaddr)
327 {
328 /* url was redirected, check if we've hit the max depth */
329 if($this->maxredirs > $this->_redirectdepth)
330 {
331 if(!preg_match("|^".$URI_PARTS["scheme"]."://|", $this->_redirectaddr))
332 $this->_redirectaddr = $this->_expandlinks($this->_redirectaddr,$URI_PARTS["scheme"]."://".$URI_PARTS["host"]);
333
334 // only follow redirect if it's on this site, or offsiteok is true
335 if(preg_match("|^http://".preg_quote($this->host)."|i",$this->_redirectaddr) || $this->offsiteok)
336 {
337 /* follow the redirect */
338 $this->_redirectdepth++;
339 $this->lastredirectaddr=$this->_redirectaddr;
340 if( strpos( $this->_redirectaddr, "?" ) > 0 )
341 $this->fetch($this->_redirectaddr); // the redirect has changed the request method from post to get
342 else
343 $this->submit($this->_redirectaddr,$formvars, $formfiles);
344 }
345 }
346 }
347
348 if($this->_framedepth < $this->maxframes && count($this->_frameurls) > 0)
349 {
350 $frameurls = $this->_frameurls;
351 $this->_frameurls = array();
352
353 while(list(,$frameurl) = each($frameurls))
354 {
355 if($this->_framedepth < $this->maxframes)
356 {
357 $this->fetch($frameurl);
358 $this->_framedepth++;
359 }
360 else
361 break;
362 }
363 }
364
365 }
366 else
367 {
368 return false;
369 }
370 return true;
371 break;
372 case "https":
373 if(!$this->curl_path)
374 return false;
375 if(function_exists("is_executable"))
376 if (!is_executable($this->curl_path))
377 return false;
378 $this->host = $URI_PARTS["host"];
379 if(!empty($URI_PARTS["port"]))
380 $this->port = $URI_PARTS["port"];
381 if($this->_isproxy)
382 {
383 // using proxy, send entire URI
384 $this->_httpsrequest($URI, $URI, $this->_submit_method, $this->_submit_type, $postdata);
385 }
386 else
387 {
388 $path = $URI_PARTS["path"].($URI_PARTS["query"] ? "?".$URI_PARTS["query"] : "");
389 // no proxy, send only the path
390 $this->_httpsrequest($path, $URI, $this->_submit_method, $this->_submit_type, $postdata);
391 }
392
393 if($this->_redirectaddr)
394 {
395 /* url was redirected, check if we've hit the max depth */
396 if($this->maxredirs > $this->_redirectdepth)
397 {
398 if(!preg_match("|^".$URI_PARTS["scheme"]."://|", $this->_redirectaddr))
399 $this->_redirectaddr = $this->_expandlinks($this->_redirectaddr,$URI_PARTS["scheme"]."://".$URI_PARTS["host"]);
400
401 // only follow redirect if it's on this site, or offsiteok is true
402 if(preg_match("|^http://".preg_quote($this->host)."|i",$this->_redirectaddr) || $this->offsiteok)
403 {
404 /* follow the redirect */
405 $this->_redirectdepth++;
406 $this->lastredirectaddr=$this->_redirectaddr;
407 if( strpos( $this->_redirectaddr, "?" ) > 0 )
408 $this->fetch($this->_redirectaddr); // the redirect has changed the request method from post to get
409 else
410 $this->submit($this->_redirectaddr,$formvars, $formfiles);
411 }
412 }
413 }
414
415 if($this->_framedepth < $this->maxframes && count($this->_frameurls) > 0)
416 {
417 $frameurls = $this->_frameurls;
418 $this->_frameurls = array();
419
420 while(list(,$frameurl) = each($frameurls))
421 {
422 if($this->_framedepth < $this->maxframes)
423 {
424 $this->fetch($frameurl);
425 $this->_framedepth++;
426 }
427 else
428 break;
429 }
430 }
431 return true;
432 break;
433
434 default:
435 // not a valid protocol
436 $this->error = 'Invalid protocol "'.$URI_PARTS["scheme"].'"\n';
437 return false;
438 break;
439 }
440 return true;
441 }
442
443 /*======================================================================*\
444 Function: fetchlinks
445 Purpose: fetch the links from a web page
446 Input: $URI where you are fetching from
447 Output: $this->results an array of the URLs
448 \*======================================================================*/
449
450 function fetchlinks($URI)
451 {
452 if ($this->fetch($URI))
453 {
454
455 if(is_array($this->results))
456 {
457 for($x=0;$x<count($this->results);$x++)
458 $this->results[$x] = $this->_striplinks($this->results[$x]);
459 }
460 else
461 $this->results = $this->_striplinks($this->results);
462
463 if($this->expandlinks)
464 $this->results = $this->_expandlinks($this->results, $URI);
465 return true;
466 }
467 else
468 return false;
469 }
470
471 /*======================================================================*\
472 Function: fetchform
473 Purpose: fetch the form elements from a web page
474 Input: $URI where you are fetching from
475 Output: $this->results the resulting html form
476 \*======================================================================*/
477
478 function fetchform($URI)
479 {
480
481 if ($this->fetch($URI))
482 {
483
484 if(is_array($this->results))
485 {
486 for($x=0;$x<count($this->results);$x++)
487 $this->results[$x] = $this->_stripform($this->results[$x]);
488 }
489 else
490 $this->results = $this->_stripform($this->results);
491
492 return true;
493 }
494 else
495 return false;
496 }
497
498
499 /*======================================================================*\
500 Function: fetchtext
501 Purpose: fetch the text from a web page, stripping the links
502 Input: $URI where you are fetching from
503 Output: $this->results the text from the web page
504 \*======================================================================*/
505
506 function fetchtext($URI)
507 {
508 if($this->fetch($URI))
509 {
510 if(is_array($this->results))
511 {
512 for($x=0;$x<count($this->results);$x++)
513 $this->results[$x] = $this->_striptext($this->results[$x]);
514 }
515 else
516 $this->results = $this->_striptext($this->results);
517 return true;
518 }
519 else
520 return false;
521 }
522
523 /*======================================================================*\
524 Function: submitlinks
525 Purpose: grab links from a form submission
526 Input: $URI where you are submitting from
527 Output: $this->results an array of the links from the post
528 \*======================================================================*/
529
530 function submitlinks($URI, $formvars="", $formfiles="")
531 {
532 if($this->submit($URI,$formvars, $formfiles))
533 {
534 if(is_array($this->results))
535 {
536 for($x=0;$x<count($this->results);$x++)
537 {
538 $this->results[$x] = $this->_striplinks($this->results[$x]);
539 if($this->expandlinks)
540 $this->results[$x] = $this->_expandlinks($this->results[$x],$URI);
541 }
542 }
543 else
544 {
545 $this->results = $this->_striplinks($this->results);
546 if($this->expandlinks)
547 $this->results = $this->_expandlinks($this->results,$URI);
548 }
549 return true;
550 }
551 else
552 return false;
553 }
554
555 /*======================================================================*\
556 Function: submittext
557 Purpose: grab text from a form submission
558 Input: $URI where you are submitting from
559 Output: $this->results the text from the web page
560 \*======================================================================*/
561
562 function submittext($URI, $formvars = "", $formfiles = "")
563 {
564 if($this->submit($URI,$formvars, $formfiles))
565 {
566 if(is_array($this->results))
567 {
568 for($x=0;$x<count($this->results);$x++)
569 {
570 $this->results[$x] = $this->_striptext($this->results[$x]);
571 if($this->expandlinks)
572 $this->results[$x] = $this->_expandlinks($this->results[$x],$URI);
573 }
574 }
575 else
576 {
577 $this->results = $this->_striptext($this->results);
578 if($this->expandlinks)
579 $this->results = $this->_expandlinks($this->results,$URI);
580 }
581 return true;
582 }
583 else
584 return false;
585 }
586
587
588
589 /*======================================================================*\
590 Function: set_submit_multipart
591 Purpose: Set the form submission content type to
592 multipart/form-data
593 \*======================================================================*/
594 function set_submit_multipart()
595 {
596 $this->_submit_type = "multipart/form-data";
597 }
598
599
600 /*======================================================================*\
601 Function: set_submit_normal
602 Purpose: Set the form submission content type to
603 application/x-www-form-urlencoded
604 \*======================================================================*/
605 function set_submit_normal()
606 {
607 $this->_submit_type = "application/x-www-form-urlencoded";
608 }
609
610
611
612
613 /*======================================================================*\
614 Private functions
615 \*======================================================================*/
616
617
618 /*======================================================================*\
619 Function: _striplinks
620 Purpose: strip the hyperlinks from an html document
621 Input: $document document to strip.
622 Output: $match an array of the links
623 \*======================================================================*/
624
625 function _striplinks($document)
626 {
627 preg_match_all("'<\s*a\s.*?href\s*=\s* # find <a href=
628 ([\"\'])? # find single or double quote
629 (?(1) (.*?)\\1 | ([^\s\>]+)) # if quote found, match up to next matching
630 # quote, otherwise match up to next space
631 'isx",$document,$links);
632
633
634 // catenate the non-empty matches from the conditional subpattern
635
636 while(list($key,$val) = each($links[2]))
637 {
638 if(!empty($val))
639 $match[] = $val;
640 }
641
642 while(list($key,$val) = each($links[3]))
643 {
644 if(!empty($val))
645 $match[] = $val;
646 }
647
648 // return the links
649 return $match;
650 }
651
652 /*======================================================================*\
653 Function: _stripform
654 Purpose: strip the form elements from an html document
655 Input: $document document to strip.
656 Output: $match an array of the links
657 \*======================================================================*/
658
659 function _stripform($document)
660 {
661 preg_match_all("'<\/?(FORM|INPUT|SELECT|TEXTAREA|(OPTION))[^<>]*>(?(2)(.*(?=<\/?(option|select)[^<>]*>[\r\n]*)|(?=[\r\n]*))|(?=[\r\n]*))'Usi",$document,$elements);
662
663 // catenate the matches
664 $match = implode("\r\n",$elements[0]);
665
666 // return the links
667 return $match;
668 }
669
670
671
672 /*======================================================================*\
673 Function: _striptext
674 Purpose: strip the text from an html document
675 Input: $document document to strip.
676 Output: $text the resulting text
677 \*======================================================================*/
678
679 function _striptext($document)
680 {
681
682 // I didn't use preg eval (//e) since that is only available in PHP 4.0.
683 // so, list your entities one by one here. I included some of the
684 // more common ones.
685
686 $search = array("'<script[^>]*?>.*?</script>'si", // strip out javascript
687 "'<[\/\!]*?[^<>]*?>'si", // strip out html tags
688 "'([\r\n])[\s]+'", // strip out white space
689 "'&(quot|#34|#034|#x22);'i", // replace html entities
690 "'&(amp|#38|#038|#x26);'i", // added hexadecimal values
691 "'&(lt|#60|#060|#x3c);'i",
692 "'&(gt|#62|#062|#x3e);'i",
693 "'&(nbsp|#160|#xa0);'i",
694 "'&(iexcl|#161);'i",
695 "'&(cent|#162);'i",
696 "'&(pound|#163);'i",
697 "'&(copy|#169);'i",
698 "'&(reg|#174);'i",
699 "'&(deg|#176);'i",
700 "'&(#39|#039|#x27);'",
701 "'&(euro|#8364);'i", // europe
702 "'&a(uml|UML);'", // german
703 "'&o(uml|UML);'",
704 "'&u(uml|UML);'",
705 "'&A(uml|UML);'",
706 "'&O(uml|UML);'",
707 "'&U(uml|UML);'",
708 "'&szlig;'i",
709 );
710 $replace = array( "",
711 "",
712 "\\1",
713 "\"",
714 "&",
715 "<",
716 ">",
717 " ",
718 chr(161),
719 chr(162),
720 chr(163),
721 chr(169),
722 chr(174),
723 chr(176),
724 chr(39),
725 chr(128),
726 "�",
727 "�",
728 "�",
729 "�",
730 "�",
731 "�",
732 "�",
733 );
734
735 $text = preg_replace($search,$replace,$document);
736
737 return $text;
738 }
739
740 /*======================================================================*\
741 Function: _expandlinks
742 Purpose: expand each link into a fully qualified URL
743 Input: $links the links to qualify
744 $URI the full URI to get the base from
745 Output: $expandedLinks the expanded links
746 \*======================================================================*/
747
748 function _expandlinks($links,$URI)
749 {
750
751 preg_match("/^[^\?]+/",$URI,$match);
752
753 $match = preg_replace("|/[^\/\.]+\.[^\/\.]+$|","",$match[0]);
754 $match = preg_replace("|/$|","",$match);
755
756 $search = array( "|^http://".preg_quote($this->host)."|i",
757 "|^(?!http://)(\/)?(?!mailto:)|i",
758 "|/\./|",
759 "|/[^\/]+/\.\./|"
760 );
761
762 $replace = array( "",
763 $match."/",
764 "/",
765 "/"
766 );
767
768 $expandedLinks = preg_replace($search,$replace,$links);
769
770 return $expandedLinks;
771 }
772
773 /*======================================================================*\
774 Function: _httprequest
775 Purpose: go get the http data from the server
776 Input: $url the url to fetch
777 $fp the current open file pointer
778 $URI the full URI
779 $body body contents to send if any (POST)
780 Output:
781 \*======================================================================*/
782
783 function _httprequest($url,$fp,$URI,$http_method,$content_type="",$body="")
784 {
785 $cookie_headers = '';
786 if($this->passcookies && $this->_redirectaddr)
787 $this->setcookies();
788
789 $URI_PARTS = parse_url($URI);
790 if(empty($url))
791 $url = "/";
792 $headers = $http_method." ".$url." ".$this->_httpversion."\r\n";
793 if(!empty($this->agent))
794 $headers .= "User-Agent: ".$this->agent."\r\n";
795 if(!empty($this->host) && !isset($this->rawheaders['Host']))
796 $headers .= "Host: ".$this->host."\r\n";
797 if(!empty($this->accept))
798 $headers .= "Accept: ".$this->accept."\r\n";
799 if(!empty($this->referer))
800 $headers .= "Referer: ".$this->referer."\r\n";
801 if(!empty($this->cookies))
802 {
803 if(!is_array($this->cookies))
804 $this->cookies = (array)$this->cookies;
805
806 reset($this->cookies);
807 if ( count($this->cookies) > 0 ) {
808 $cookie_headers .= 'Cookie: ';
809 foreach ( $this->cookies as $cookieKey => $cookieVal ) {
810 $cookie_headers .= $cookieKey."=".urlencode($cookieVal)."; ";
811 }
812 $headers .= substr($cookie_headers,0,-2) . "\r\n";
813 }
814 }
815 if(!empty($this->rawheaders))
816 {
817 if(!is_array($this->rawheaders))
818 $this->rawheaders = (array)$this->rawheaders;
819 while(list($headerKey,$headerVal) = each($this->rawheaders))
820 $headers .= $headerKey.": ".$headerVal."\r\n";
821 }
822 if(!empty($content_type)) {
823 $headers .= "Content-type: $content_type";
824 if ($content_type == "multipart/form-data")
825 $headers .= "; boundary=".$this->_mime_boundary;
826 $headers .= "\r\n";
827 }
828 if(!empty($body))
829 $headers .= "Content-length: ".strlen($body)."\r\n";
830 if(!empty($this->user) || !empty($this->pass))
831 $headers .= "Authorization: Basic ".base64_encode($this->user.":".$this->pass)."\r\n";
832
833 //add proxy auth headers
834 if(!empty($this->proxy_user))
835 $headers .= 'Proxy-Authorization: ' . 'Basic ' . base64_encode($this->proxy_user . ':' . $this->proxy_pass)."\r\n";
836
837
838 $headers .= "\r\n";
839
840 // set the read timeout if needed
841 if ($this->read_timeout > 0)
842 socket_set_timeout($fp, $this->read_timeout);
843 $this->timed_out = false;
844
845 fwrite($fp,$headers.$body,strlen($headers.$body));
846
847 $this->_redirectaddr = false;
848 unset($this->headers);
849
850 while($currentHeader = fgets($fp,$this->_maxlinelen))
851 {
852 if ($this->read_timeout > 0 && $this->_check_timeout($fp))
853 {
854 $this->status=-100;
855 return false;
856 }
857
858 if($currentHeader == "\r\n")
859 break;
860
861 // if a header begins with Location: or URI:, set the redirect
862 if(preg_match("/^(Location:|URI:)/i",$currentHeader))
863 {
864 // get URL portion of the redirect
865 preg_match("/^(Location:|URI:)[ ]+(.*)/",chop($currentHeader),$matches);
866 // look for :// in the Location header to see if hostname is included
867 if(!preg_match("|\:\/\/|",$matches[2]))
868 {
869 // no host in the path, so prepend
870 $this->_redirectaddr = $URI_PARTS["scheme"]."://".$this->host.":".$this->port;
871 // eliminate double slash
872 if(!preg_match("|^/|",$matches[2]))
873 $this->_redirectaddr .= "/".$matches[2];
874 else
875 $this->_redirectaddr .= $matches[2];
876 }
877 else
878 $this->_redirectaddr = $matches[2];
879 }
880
881 if(preg_match("|^HTTP/|",$currentHeader))
882 {
883 if(preg_match("|^HTTP/[^\s]*\s(.*?)\s|",$currentHeader, $status))
884 {
885 $this->status= $status[1];
886 }
887 $this->response_code = $currentHeader;
888 }
889
890 $this->headers[] = $currentHeader;
891 }
892
893 $results = '';
894 do {
895 $_data = fread($fp, $this->maxlength);
896 if (strlen($_data) == 0) {
897 break;
898 }
899 $results .= $_data;
900 } while(true);
901
902 if ($this->read_timeout > 0 && $this->_check_timeout($fp))
903 {
904 $this->status=-100;
905 return false;
906 }
907
908 // check if there is a a redirect meta tag
909
910 if(preg_match("'<meta[\s]*http-equiv[^>]*?content[\s]*=[\s]*[\"\']?\d+;[\s]*URL[\s]*=[\s]*([^\"\']*?)[\"\']?>'i",$results,$match))
911
912 {
913 $this->_redirectaddr = $this->_expandlinks($match[1],$URI);
914 }
915
916 // have we hit our frame depth and is there frame src to fetch?
917 if(($this->_framedepth < $this->maxframes) && preg_match_all("'<frame\s+.*src[\s]*=[\'\"]?([^\'\"\>]+)'i",$results,$match))
918 {
919 $this->results[] = $results;
920 for($x=0; $x<count($match[1]); $x++)
921 $this->_frameurls[] = $this->_expandlinks($match[1][$x],$URI_PARTS["scheme"]."://".$this->host);
922 }
923 // have we already fetched framed content?
924 elseif(is_array($this->results))
925 $this->results[] = $results;
926 // no framed content
927 else
928 $this->results = $results;
929
930 return true;
931 }
932
933 /*======================================================================*\
934 Function: _httpsrequest
935 Purpose: go get the https data from the server using curl
936 Input: $url the url to fetch
937 $URI the full URI
938 $body body contents to send if any (POST)
939 Output:
940 \*======================================================================*/
941
942 function _httpsrequest($url,$URI,$http_method,$content_type="",$body="")
943 {
944 if($this->passcookies && $this->_redirectaddr)
945 $this->setcookies();
946
947 $headers = array();
948
949 $URI_PARTS = parse_url($URI);
950 if(empty($url))
951 $url = "/";
952 // GET ... header not needed for curl
953 //$headers[] = $http_method." ".$url." ".$this->_httpversion;
954 if(!empty($this->agent))
955 $headers[] = "User-Agent: ".$this->agent;
956 if(!empty($this->host))
957 $headers[] = "Host: ".$this->host;
958 if(!empty($this->accept))
959 $headers[] = "Accept: ".$this->accept;
960 if(!empty($this->referer))
961 $headers[] = "Referer: ".$this->referer;
962 if(!empty($this->cookies))
963 {
964 if(!is_array($this->cookies))
965 $this->cookies = (array)$this->cookies;
966
967 reset($this->cookies);
968 if ( count($this->cookies) > 0 ) {
969 $cookie_str = 'Cookie: ';
970 foreach ( $this->cookies as $cookieKey => $cookieVal ) {
971 $cookie_str .= $cookieKey."=".urlencode($cookieVal)."; ";
972 }
973 $headers[] = substr($cookie_str,0,-2);
974 }
975 }
976 if(!empty($this->rawheaders))
977 {
978 if(!is_array($this->rawheaders))
979 $this->rawheaders = (array)$this->rawheaders;
980 while(list($headerKey,$headerVal) = each($this->rawheaders))
981 $headers[] = $headerKey.": ".$headerVal;
982 }
983 if(!empty($content_type)) {
984 if ($content_type == "multipart/form-data")
985 $headers[] = "Content-type: $content_type; boundary=".$this->_mime_boundary;
986 else
987 $headers[] = "Content-type: $content_type";
988 }
989 if(!empty($body))
990 $headers[] = "Content-length: ".strlen($body);
991 if(!empty($this->user) || !empty($this->pass))
992 $headers[] = "Authorization: BASIC ".base64_encode($this->user.":".$this->pass);
993
994 for($curr_header = 0; $curr_header < count($headers); $curr_header++)
995 $cmdline_params .= " -H \"".$headers[$curr_header]."\"";
996
997 if(!empty($body))
998 $cmdline_params .= " -d \"$body\"";
999
1000 if($this->read_timeout > 0)
1001 $cmdline_params .= " -m ".$this->read_timeout;
1002
1003 $headerfile = tempnam($temp_dir, "sno");
1004
1005 $safer_URI = strtr( $URI, "\"", " " ); // strip quotes from the URI to avoid shell access
1006 exec($this->curl_path." -D \"$headerfile\"".$cmdline_params." \"".$safer_URI."\"",$results,$return);
1007
1008 if($return)
1009 {
1010 $this->error = "Error: cURL could not retrieve the document, error $return.";
1011 return false;
1012 }
1013
1014
1015 $results = implode("\r\n",$results);
1016
1017 $result_headers = file("$headerfile");
1018
1019 $this->_redirectaddr = false;
1020 unset($this->headers);
1021
1022 for($currentHeader = 0; $currentHeader < count($result_headers); $currentHeader++)
1023 {
1024
1025 // if a header begins with Location: or URI:, set the redirect
1026 if(preg_match("/^(Location: |URI: )/i",$result_headers[$currentHeader]))
1027 {
1028 // get URL portion of the redirect
1029 preg_match("/^(Location: |URI:)\s+(.*)/",chop($result_headers[$currentHeader]),$matches);
1030 // look for :// in the Location header to see if hostname is included
1031 if(!preg_match("|\:\/\/|",$matches[2]))
1032 {
1033 // no host in the path, so prepend
1034 $this->_redirectaddr = $URI_PARTS["scheme"]."://".$this->host.":".$this->port;
1035 // eliminate double slash
1036 if(!preg_match("|^/|",$matches[2]))
1037 $this->_redirectaddr .= "/".$matches[2];
1038 else
1039 $this->_redirectaddr .= $matches[2];
1040 }
1041 else
1042 $this->_redirectaddr = $matches[2];
1043 }
1044
1045 if(preg_match("|^HTTP/|",$result_headers[$currentHeader]))
1046 $this->response_code = $result_headers[$currentHeader];
1047
1048 $this->headers[] = $result_headers[$currentHeader];
1049 }
1050
1051 // check if there is a a redirect meta tag
1052
1053 if(preg_match("'<meta[\s]*http-equiv[^>]*?content[\s]*=[\s]*[\"\']?\d+;[\s]+URL[\s]*=[\s]*([^\"\']*?)[\"\']?>'i",$results,$match))
1054 {
1055 $this->_redirectaddr = $this->_expandlinks($match[1],$URI);
1056 }
1057
1058 // have we hit our frame depth and is there frame src to fetch?
1059 if(($this->_framedepth < $this->maxframes) && preg_match_all("'<frame\s+.*src[\s]*=[\'\"]?([^\'\"\>]+)'i",$results,$match))
1060 {
1061 $this->results[] = $results;
1062 for($x=0; $x<count($match[1]); $x++)
1063 $this->_frameurls[] = $this->_expandlinks($match[1][$x],$URI_PARTS["scheme"]."://".$this->host);
1064 }
1065 // have we already fetched framed content?
1066 elseif(is_array($this->results))
1067 $this->results[] = $results;
1068 // no framed content
1069 else
1070 $this->results = $results;
1071
1072 unlink("$headerfile");
1073
1074 return true;
1075 }
1076
1077 /*======================================================================*\
1078 Function: setcookies()
1079 Purpose: set cookies for a redirection
1080 \*======================================================================*/
1081
1082 function setcookies()
1083 {
1084 for($x=0; $x<count($this->headers); $x++)
1085 {
1086 if(preg_match('/^set-cookie:[\s]+([^=]+)=([^;]+)/i', $this->headers[$x],$match))
1087 $this->cookies[$match[1]] = urldecode($match[2]);
1088 }
1089 }
1090
1091
1092 /*======================================================================*\
1093 Function: _check_timeout
1094 Purpose: checks whether timeout has occurred
1095 Input: $fp file pointer
1096 \*======================================================================*/
1097
1098 function _check_timeout($fp)
1099 {
1100 if ($this->read_timeout > 0) {
1101 $fp_status = socket_get_status($fp);
1102 if ($fp_status["timed_out"]) {
1103 $this->timed_out = true;
1104 return true;
1105 }
1106 }
1107 return false;
1108 }
1109
1110 /*======================================================================*\
1111 Function: _connect
1112 Purpose: make a socket connection
1113 Input: $fp file pointer
1114 \*======================================================================*/
1115
1116 function _connect(&$fp)
1117 {
1118 if(!empty($this->proxy_host) && !empty($this->proxy_port))
1119 {
1120 $this->_isproxy = true;
1121
1122 $host = $this->proxy_host;
1123 $port = $this->proxy_port;
1124 }
1125 else
1126 {
1127 $host = $this->host;
1128 $port = $this->port;
1129 }
1130
1131 $this->status = 0;
1132
1133 if($fp = fsockopen(
1134 $host,
1135 $port,
1136 $errno,
1137 $errstr,
1138 $this->_fp_timeout
1139 ))
1140 {
1141 // socket connection succeeded
1142
1143 return true;
1144 }
1145 else
1146 {
1147 // socket connection failed
1148 $this->status = $errno;
1149 switch($errno)
1150 {
1151 case -3:
1152 $this->error="socket creation failed (-3)";
1153 case -4:
1154 $this->error="dns lookup failure (-4)";
1155 case -5:
1156 $this->error="connection refused or timed out (-5)";
1157 default:
1158 $this->error="connection failed (".$errno.")";
1159 }
1160 return false;
1161 }
1162 }
1163 /*======================================================================*\
1164 Function: _disconnect
1165 Purpose: disconnect a socket connection
1166 Input: $fp file pointer
1167 \*======================================================================*/
1168
1169 function _disconnect($fp)
1170 {
1171 return(fclose($fp));
1172 }
1173
1174
1175 /*======================================================================*\
1176 Function: _prepare_post_body
1177 Purpose: Prepare post body according to encoding type
1178 Input: $formvars - form variables
1179 $formfiles - form upload files
1180 Output: post body
1181 \*======================================================================*/
1182
1183 function _prepare_post_body($formvars, $formfiles)
1184 {
1185 settype($formvars, "array");
1186 settype($formfiles, "array");
1187 $postdata = '';
1188
1189 if (count($formvars) == 0 && count($formfiles) == 0)
1190 return;
1191
1192 switch ($this->_submit_type) {
1193 case "application/x-www-form-urlencoded":
1194 reset($formvars);
1195 while(list($key,$val) = each($formvars)) {
1196 if (is_array($val) || is_object($val)) {
1197 while (list($cur_key, $cur_val) = each($val)) {
1198 $postdata .= urlencode($key)."[]=".urlencode($cur_val)."&";
1199 }
1200 } else
1201 $postdata .= urlencode($key)."=".urlencode($val)."&";
1202 }
1203 break;
1204
1205 case "multipart/form-data":
1206 $this->_mime_boundary = "Snoopy".md5(uniqid(microtime()));
1207
1208 reset($formvars);
1209 while(list($key,$val) = each($formvars)) {
1210 if (is_array($val) || is_object($val)) {
1211 while (list($cur_key, $cur_val) = each($val)) {
1212 $postdata .= "--".$this->_mime_boundary."\r\n";
1213 $postdata .= "Content-Disposition: form-data; name=\"$key\[\]\"\r\n\r\n";
1214 $postdata .= "$cur_val\r\n";
1215 }
1216 } else {
1217 $postdata .= "--".$this->_mime_boundary."\r\n";
1218 $postdata .= "Content-Disposition: form-data; name=\"$key\"\r\n\r\n";
1219 $postdata .= "$val\r\n";
1220 }
1221 }
1222
1223 reset($formfiles);
1224 while (list($field_name, $file_names) = each($formfiles)) {
1225 settype($file_names, "array");
1226 while (list(, $file_name) = each($file_names)) {
1227 if (!is_readable($file_name)) continue;
1228
1229 $fp = fopen($file_name, "r");
1230 $file_content = fread($fp, filesize($file_name));
1231 fclose($fp);
1232 $base_name = basename($file_name);
1233
1234 $postdata .= "--".$this->_mime_boundary."\r\n";
1235 $postdata .= "Content-Disposition: form-data; name=\"$field_name\"; filename=\"$base_name\"\r\n\r\n";
1236 $postdata .= "$file_content\r\n";
1237 }
1238 }
1239 $postdata .= "--".$this->_mime_boundary."--\r\n";
1240 break;
1241 }
1242
1243 return $postdata;
1244 }
1245 }
1246
1247 ?>
xMensajitos.php is a central portal to send SMS