<?php

/*************************************************

Snoopy - the PHP net client
Author: Monte Ohrt <monte@ispi.net>
Copyright (c): 1999-2000 ispi, all rights reserved
Version: 1.01

 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

You may contact the author of Snoopy by e-mail at:
monte@ispi.net

Or, write to:
Monte Ohrt
CTO, ispi
237 S. 70th suite 220
Lincoln, NE 68510

The latest version of Snoopy can be obtained from:
http://snoopy.sourceforge.net/

*************************************************/

class Snoopy
{
    
/**** Public variables ****/
    
    /* user definable vars */

    
var $host            =    "www.php.net";        // host name we are connecting to
    
var $port            =    80;                    // port we are connecting to
    
var $proxy_host        =    "";                    // proxy host to use
    
var $proxy_port        =    "";                    // proxy port to use
    
var $proxy_user        =    "";                    // proxy user to use
    
var $proxy_pass        =    "";                    // proxy password to use
    
    
var $agent            =    "Snoopy v1.2.3";    // agent we masquerade as
    
var    $referer        =    "";                    // referer info to pass
    
var $cookies        =    array();            // array of cookies to pass
                                                // $cookies["username"]="joe";
    
var    $rawheaders        =    array();            // array of raw headers to send
                                                // $rawheaders["Content-type"]="text/html";

    
var $maxredirs        =    5;                    // http redirection depth maximum. 0 = disallow
    
var $lastredirectaddr    =    "";                // contains address of last redirected address
    
var    $offsiteok        =    true;                // allows redirection off-site
    
var $maxframes        =    0;                    // frame content depth maximum. 0 = disallow
    
var $expandlinks    =    true;                // expand links to fully qualified URLs.
                                                // this only applies to fetchlinks()
                                                // submitlinks(), and submittext()
    
var $passcookies    =    true;                // pass set cookies back through redirects
                                                // NOTE: this currently does not respect
                                                // dates, domains or paths.
    
    
var    $user            =    "";                    // user for http authentication
    
var    $pass            =    "";                    // password for http authentication
    
    // http accept types
    
var $accept            =    "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*";
    
    var 
$results        =    "";                    // where the content is put
        
    
var $error            =    "";                    // error messages sent here
    
var    $response_code    =    "";                    // response code returned from server
    
var    $headers        =    array();            // headers returned from server sent here
    
var    $maxlength        =    500000;                // max return data length (body)
    
var $read_timeout    =    0;                    // timeout on read operations, in seconds
                                                // supported only since PHP 4 Beta 4
                                                // set to 0 to disallow timeouts
    
var $timed_out        =    false;                // if a read operation timed out
    
var    $status            =    0;                    // http request status

    
var $temp_dir        =    "/tmp";                // temporary directory that the webserver
                                                // has permission to write to.
                                                // under Windows, this should be C:\temp

    
var    $curl_path        =    "/usr/local/bin/curl";
                                                
// Snoopy will use cURL for fetching
                                                // SSL content if a full system path to
                                                // the cURL binary is supplied here.
                                                // set to false if you do not have
                                                // cURL installed. See http://curl.haxx.se
                                                // for details on installing cURL.
                                                // Snoopy does *not* use the cURL
                                                // library functions built into php,
                                                // as these functions are not stable
                                                // as of this Snoopy release.
    
    /**** Private variables ****/    
    
    
var    $_maxlinelen    =    4096;                // max line length (headers)
    
    
var $_httpmethod    =    "GET";                // default http request method
    
var $_httpversion    =    "HTTP/1.0";            // default http request version
    
var $_submit_method    =    "POST";                // default submit method
    
var $_submit_type    =    "application/x-www-form-urlencoded";    // default submit type
    
var $_mime_boundary    =   "";                    // MIME boundary for multipart/form-data submit type
    
var $_redirectaddr    =    false;                // will be set if page fetched is a redirect
    
var $_redirectdepth    =    0;                    // increments on an http redirect
    
var $_frameurls        =     array();            // frame src urls
    
var $_framedepth    =    0;                    // increments on frame depth
    
    
var $_isproxy        =    false;                // set if using a proxy server
    
var $_fp_timeout    =    30;                    // timeout for socket connection

/*======================================================================*\
    Function:    fetch
    Purpose:    fetch the contents of a web page
                (and possibly other protocols in the
                future like ftp, nntp, gopher, etc.)
    Input:        $URI    the location of the page to fetch
    Output:        $this->results    the output text from the fetch
\*======================================================================*/

    
function fetch($URI)
    {
    
        
//preg_match("|^([^:]+)://([^:/]+)(:[\d]+)*(.*)|",$URI,$URI_PARTS);
        
$URI_PARTS parse_url($URI);
        if (!empty(
$URI_PARTS["user"]))
            
$this->user $URI_PARTS["user"];
        if (!empty(
$URI_PARTS["pass"]))
            
$this->pass $URI_PARTS["pass"];
        if (empty(
$URI_PARTS["query"]))
            
$URI_PARTS["query"] = '';
        if (empty(
$URI_PARTS["path"]))
            
$URI_PARTS["path"] = '';
                
        switch(
strtolower($URI_PARTS["scheme"]))
        {
            case 
"http":
                
$this->host $URI_PARTS["host"];
                if(!empty(
$URI_PARTS["port"]))
                    
$this->port $URI_PARTS["port"];
                if(
$this->_connect($fp))
                {
                    if(
$this->_isproxy)
                    {
                        
// using proxy, send entire URI
                        
$this->_httprequest($URI,$fp,$URI,$this->_httpmethod);
                    }
                    else
                    {
                        
$path $URI_PARTS["path"].($URI_PARTS["query"] ? "?".$URI_PARTS["query"] : "");
                        
// no proxy, send only the path
                        
$this->_httprequest($path$fp$URI$this->_httpmethod);
                    }
                    
                    
$this->_disconnect($fp);

                    if(
$this->_redirectaddr)
                    {
                        
/* url was redirected, check if we've hit the max depth */
                        
if($this->maxredirs $this->_redirectdepth)
                        {
                            
// only follow redirect if it's on this site, or offsiteok is true
                            
if(preg_match("|^http://".preg_quote($this->host)."|i",$this->_redirectaddr) || $this->offsiteok)
                            {
                                
/* follow the redirect */
                                
$this->_redirectdepth++;
                                
$this->lastredirectaddr=$this->_redirectaddr;
                                
$this->fetch($this->_redirectaddr);
                            }
                        }
                    }

                    if(
$this->_framedepth $this->maxframes && count($this->_frameurls) > 0)
                    {
                        
$frameurls $this->_frameurls;
                        
$this->_frameurls = array();
                        
                        while(list(,
$frameurl) = each($frameurls))
                        {
                            if(
$this->_framedepth $this->maxframes)
                            {
                                
$this->fetch($frameurl);
                                
$this->_framedepth++;
                            }
                            else
                                break;
                        }
                    }                    
                }
                else
                {
                    return 
false;
                }
                return 
true;                    
                break;
            case 
"https":
                if(!
$this->curl_path)
                    return 
false;
                if(
function_exists("is_executable"))
                    if (!
is_executable($this->curl_path))
                        return 
false;
                
$this->host $URI_PARTS["host"];
                if(!empty(
$URI_PARTS["port"]))
                    
$this->port $URI_PARTS["port"];
                if(
$this->_isproxy)
                {
                    
// using proxy, send entire URI
                    
$this->_httpsrequest($URI,$URI,$this->_httpmethod);
                }
                else
                {
                    
$path $URI_PARTS["path"].($URI_PARTS["query"] ? "?".$URI_PARTS["query"] : "");
                    
// no proxy, send only the path
                    
$this->_httpsrequest($path$URI$this->_httpmethod);
                }

                if(
$this->_redirectaddr)
                {
                    
/* url was redirected, check if we've hit the max depth */
                    
if($this->maxredirs $this->_redirectdepth)
                    {
                        
// only follow redirect if it's on this site, or offsiteok is true
                        
if(preg_match("|^http://".preg_quote($this->host)."|i",$this->_redirectaddr) || $this->offsiteok)
                        {
                            
/* follow the redirect */
                            
$this->_redirectdepth++;
                            
$this->lastredirectaddr=$this->_redirectaddr;
                            
$this->fetch($this->_redirectaddr);
                        }
                    }
                }

                if(
$this->_framedepth $this->maxframes && count($this->_frameurls) > 0)
                {
                    
$frameurls $this->_frameurls;
                    
$this->_frameurls = array();

                    while(list(,
$frameurl) = each($frameurls))
                    {
                        if(
$this->_framedepth $this->maxframes)
                        {
                            
$this->fetch($frameurl);
                            
$this->_framedepth++;
                        }
                        else
                            break;
                    }
                }                    
                return 
true;                    
                break;
            default:
                
// not a valid protocol
                
$this->error    =    'Invalid protocol "'.$URI_PARTS["scheme"].'"\n';
                return 
false;
                break;
        }        
        return 
true;
    }

/*======================================================================*\
    Function:    submit
    Purpose:    submit an http form
    Input:        $URI    the location to post the data
                $formvars    the formvars to use.
                    format: $formvars["var"] = "val";
                $formfiles  an array of files to submit
                    format: $formfiles["var"] = "/dir/filename.ext";
    Output:        $this->results    the text output from the post
\*======================================================================*/

    
function submit($URI$formvars=""$formfiles="")
    {
        unset(
$postdata);
        
        
$postdata $this->_prepare_post_body($formvars$formfiles);
            
        
$URI_PARTS parse_url($URI);
        if (!empty(
$URI_PARTS["user"]))
            
$this->user $URI_PARTS["user"];
        if (!empty(
$URI_PARTS["pass"]))
            
$this->pass $URI_PARTS["pass"];
        if (empty(
$URI_PARTS["query"]))
            
$URI_PARTS["query"] = '';
        if (empty(
$URI_PARTS["path"]))
            
$URI_PARTS["path"] = '';

        switch(
strtolower($URI_PARTS["scheme"]))
        {
            case 
"http":
                
$this->host $URI_PARTS["host"];
                if(!empty(
$URI_PARTS["port"]))
                    
$this->port $URI_PARTS["port"];
                if(
$this->_connect($fp))
                {
                    if(
$this->_isproxy)
                    {
                        
// using proxy, send entire URI
                        
$this->_httprequest($URI,$fp,$URI,$this->_submit_method,$this->_submit_type,$postdata);
                    }
                    else
                    {
                        
$path $URI_PARTS["path"].($URI_PARTS["query"] ? "?".$URI_PARTS["query"] : "");
                        
// no proxy, send only the path
                        
$this->_httprequest($path$fp$URI$this->_submit_method$this->_submit_type$postdata);
                    }
                    
                    
$this->_disconnect($fp);

                    if(
$this->_redirectaddr)
                    {
                        
/* url was redirected, check if we've hit the max depth */
                        
if($this->maxredirs $this->_redirectdepth)
                        {                        
                            if(!
preg_match("|^".$URI_PARTS["scheme"]."://|"$this->_redirectaddr))
                                
$this->_redirectaddr $this->_expandlinks($this->_redirectaddr,$URI_PARTS["scheme"]."://".$URI_PARTS["host"]);                        
                            
                            
// only follow redirect if it's on this site, or offsiteok is true
                            
if(preg_match("|^http://".preg_quote($this->host)."|i",$this->_redirectaddr) || $this->offsiteok)
                            {
                                
/* follow the redirect */
                                
$this->_redirectdepth++;
                                
$this->lastredirectaddr=$this->_redirectaddr;
                                if( 
strpos$this->_redirectaddr"?" ) > )
                                    
$this->fetch($this->_redirectaddr); // the redirect has changed the request method from post to get
                                
else
                                    
$this->submit($this->_redirectaddr,$formvars$formfiles);
                            }
                        }
                    }

                    if(
$this->_framedepth $this->maxframes && count($this->_frameurls) > 0)
                    {
                        
$frameurls $this->_frameurls;
                        
$this->_frameurls = array();
                        
                        while(list(,
$frameurl) = each($frameurls))
                        {                                                        
                            if(
$this->_framedepth $this->maxframes)
                            {
                                
$this->fetch($frameurl);
                                
$this->_framedepth++;
                            }
                            else
                                break;
                        }
                    }                    
                    
                }
                else
                {
                    return 
false;
                }
                return 
true;                    
                break;
            case 
"https":
                if(!
$this->curl_path)
                    return 
false;
                if(
function_exists("is_executable"))
                    if (!
is_executable($this->curl_path))
                        return 
false;
                
$this->host $URI_PARTS["host"];
                if(!empty(
$URI_PARTS["port"]))
                    
$this->port $URI_PARTS["port"];
                if(
$this->_isproxy)
                {
                    
// using proxy, send entire URI
                    
$this->_httpsrequest($URI$URI$this->_submit_method$this->_submit_type$postdata);
                }
                else
                {
                    
$path $URI_PARTS["path"].($URI_PARTS["query"] ? "?".$URI_PARTS["query"] : "");
                    
// no proxy, send only the path
                    
$this->_httpsrequest($path$URI$this->_submit_method$this->_submit_type$postdata);
                }

                if(
$this->_redirectaddr)
                {
                    
/* url was redirected, check if we've hit the max depth */
                    
if($this->maxredirs $this->_redirectdepth)
                    {                        
                        if(!
preg_match("|^".$URI_PARTS["scheme"]."://|"$this->_redirectaddr))
                            
$this->_redirectaddr $this->_expandlinks($this->_redirectaddr,$URI_PARTS["scheme"]."://".$URI_PARTS["host"]);                        

                        
// only follow redirect if it's on this site, or offsiteok is true
                        
if(preg_match("|^http://".preg_quote($this->host)."|i",$this->_redirectaddr) || $this->offsiteok)
                        {
                            
/* follow the redirect */
                            
$this->_redirectdepth++;
                            
$this->lastredirectaddr=$this->_redirectaddr;
                            if( 
strpos$this->_redirectaddr"?" ) > )
                                
$this->fetch($this->_redirectaddr); // the redirect has changed the request method from post to get
                            
else
                                
$this->submit($this->_redirectaddr,$formvars$formfiles);
                        }
                    }
                }

                if(
$this->_framedepth $this->maxframes && count($this->_frameurls) > 0)
                {
                    
$frameurls $this->_frameurls;
                    
$this->_frameurls = array();

                    while(list(,
$frameurl) = each($frameurls))
                    {                                                        
                        if(
$this->_framedepth $this->maxframes)
                        {
                            
$this->fetch($frameurl);
                            
$this->_framedepth++;
                        }
                        else
                            break;
                    }
                }                    
                return 
true;                    
                break;
                
            default:
                
// not a valid protocol
                
$this->error    =    'Invalid protocol "'.$URI_PARTS["scheme"].'"\n';
                return 
false;
                break;
        }        
        return 
true;
    }

/*======================================================================*\
    Function:    fetchlinks
    Purpose:    fetch the links from a web page
    Input:        $URI    where you are fetching from
    Output:        $this->results    an array of the URLs
\*======================================================================*/

    
function fetchlinks($URI)
    {
        if (
$this->fetch($URI))
        {            
            if(
$this->lastredirectaddr)
                
$URI $this->lastredirectaddr;
            if(
is_array($this->results))
            {
                for(
$x=0;$x<count($this->results);$x++)
                    
$this->results[$x] = $this->_striplinks($this->results[$x]);
            }
            else
                
$this->results $this->_striplinks($this->results);

            if(
$this->expandlinks)
                
$this->results $this->_expandlinks($this->results$URI);
            return 
true;
        }
        else
            return 
false;
    }

/*======================================================================*\
    Function:    fetchform
    Purpose:    fetch the form elements from a web page
    Input:        $URI    where you are fetching from
    Output:        $this->results    the resulting html form
\*======================================================================*/

    
function fetchform($URI)
    {
        
        if (
$this->fetch($URI))
        {            

            if(
is_array($this->results))
            {
                for(
$x=0;$x<count($this->results);$x++)
                    
$this->results[$x] = $this->_stripform($this->results[$x]);
            }
            else
                
$this->results $this->_stripform($this->results);
            
            return 
true;
        }
        else
            return 
false;
    }
    
    
/*======================================================================*\
    Function:    fetchtext
    Purpose:    fetch the text from a web page, stripping the links
    Input:        $URI    where you are fetching from
    Output:        $this->results    the text from the web page
\*======================================================================*/

    
function fetchtext($URI)
    {
        if(
$this->fetch($URI))
        {            
            if(
is_array($this->results))
            {
                for(
$x=0;$x<count($this->results);$x++)
                    
$this->results[$x] = $this->_striptext($this->results[$x]);
            }
            else
                
$this->results $this->_striptext($this->results);
            return 
true;
        }
        else
            return 
false;
    }

/*======================================================================*\
    Function:    submitlinks
    Purpose:    grab links from a form submission
    Input:        $URI    where you are submitting from
    Output:        $this->results    an array of the links from the post
\*======================================================================*/

    
function submitlinks($URI$formvars=""$formfiles="")
    {
        if(
$this->submit($URI,$formvars$formfiles))
        {            
            if(
$this->lastredirectaddr)
                
$URI $this->lastredirectaddr;
            if(
is_array($this->results))
            {
                for(
$x=0;$x<count($this->results);$x++)
                {
                    
$this->results[$x] = $this->_striplinks($this->results[$x]);
                    if(
$this->expandlinks)
                        
$this->results[$x] = $this->_expandlinks($this->results[$x],$URI);
                }
            }
            else
            {
                
$this->results $this->_striplinks($this->results);
                if(
$this->expandlinks)
                    
$this->results $this->_expandlinks($this->results,$URI);
            }
            return 
true;
        }
        else
            return 
false;
    }

/*======================================================================*\
    Function:    submittext
    Purpose:    grab text from a form submission
    Input:        $URI    where you are submitting from
    Output:        $this->results    the text from the web page
\*======================================================================*/

    
function submittext($URI$formvars ""$formfiles "")
    {
        if(
$this->submit($URI,$formvars$formfiles))
        {            
            if(
$this->lastredirectaddr)
                
$URI $this->lastredirectaddr;
            if(
is_array($this->results))
            {
                for(
$x=0;$x<count($this->results);$x++)
                {
                    
$this->results[$x] = $this->_striptext($this->results[$x]);
                    if(
$this->expandlinks)
                        
$this->results[$x] = $this->_expandlinks($this->results[$x],$URI);
                }
            }
            else
            {
                
$this->results $this->_striptext($this->results);
                if(
$this->expandlinks)
                    
$this->results $this->_expandlinks($this->results,$URI);
            }
            return 
true;
        }
        else
            return 
false;
    }

    

/*======================================================================*\
    Function:    set_submit_multipart
    Purpose:    Set the form submission content type to
                multipart/form-data
\*======================================================================*/
    
function set_submit_multipart()
    {
        
$this->_submit_type "multipart/form-data";
    }

    
/*======================================================================*\
    Function:    set_submit_normal
    Purpose:    Set the form submission content type to
                application/x-www-form-urlencoded
\*======================================================================*/
    
function set_submit_normal()
    {
        
$this->_submit_type "application/x-www-form-urlencoded";
    }

    
    

/*======================================================================*\
    Private functions
\*======================================================================*/
    
    
/*======================================================================*\
    Function:    _striplinks
    Purpose:    strip the hyperlinks from an html document
    Input:        $document    document to strip.
    Output:        $match        an array of the links
\*======================================================================*/

    
function _striplinks($document)
    {    
        
preg_match_all("'<\s*a\s.*?href\s*=\s*            # find <a href=
                        ([\"\'])?                    # find single or double quote
                        (?(1) (.*?)\\1 | ([^\s\>]+))        # if quote found, match up to next matching
                                                    # quote, otherwise match up to next space
                        'isx"
,$document,$links);
                        

        
// catenate the non-empty matches from the conditional subpattern

        
while(list($key,$val) = each($links[2]))
        {
            if(!empty(
$val))
                
$match[] = $val;
        }                
        
        while(list(
$key,$val) = each($links[3]))
        {
            if(!empty(
$val))
                
$match[] = $val;
        }        
        
        
// return the links
        
return $match;
    }

/*======================================================================*\
    Function:    _stripform
    Purpose:    strip the form elements from an html document
    Input:        $document    document to strip.
    Output:        $match        an array of the links
\*======================================================================*/

    
function _stripform($document)
    {    
        
preg_match_all("'<\/?(FORM|INPUT|SELECT|TEXTAREA|(OPTION))[^<>]*>(?(2)(.*(?=<\/?(option|select)[^<>]*>[\r\n]*)|(?=[\r\n]*))|(?=[\r\n]*))'Usi",$document,$elements);
        
        
// catenate the matches
        
$match implode("\r\n",$elements[0]);
                
        
// return the links
        
return $match;
    }

    
    
/*======================================================================*\
    Function:    _striptext
    Purpose:    strip the text from an html document
    Input:        $document    document to strip.
    Output:        $text        the resulting text
\*======================================================================*/

    
function _striptext($document)
    {
        
        
// I didn't use preg eval (//e) since that is only available in PHP 4.0.
        // so, list your entities one by one here. I included some of the
        // more common ones.
                                
        
$search = array("'<script[^>]*?>.*?</script>'si",    // strip out javascript
                        
"'<[\/\!]*?[^<>]*?>'si",            // strip out html tags
                        
"'([\r\n])[\s]+'",                    // strip out white space
                        
"'&(quot|#34|#034|#x22);'i",        // replace html entities
                        
"'&(amp|#38|#038|#x26);'i",            // added hexadecimal values
                        
"'&(lt|#60|#060|#x3c);'i",
                        
"'&(gt|#62|#062|#x3e);'i",
                        
"'&(nbsp|#160|#xa0);'i",
                        
"'&(iexcl|#161);'i",
                        
"'&(cent|#162);'i",
                        
"'&(pound|#163);'i",
                        
"'&(copy|#169);'i",
                        
"'&(reg|#174);'i",
                        
"'&(deg|#176);'i",
                        
"'&(#39|#039|#x27);'",
                        
"'&(euro|#8364);'i",                // europe
                        
"'&a(uml|UML);'",                    // german
                        
"'&o(uml|UML);'",
                        
"'&u(uml|UML);'",
                        
"'&A(uml|UML);'",
                        
"'&O(uml|UML);'",
                        
"'&U(uml|UML);'",
                        
"'&szlig;'i",
                        );
        
$replace = array(    "",
                            
"",
                            
"\\1",
                            
"\"",
                            
"&",
                            
"<",
                            
">",
                            
" ",
                            
chr(161),
                            
chr(162),
                            
chr(163),
                            
chr(169),
                            
chr(174),
                            
chr(176),
                            
chr(39),
                            
chr(128),
                            
"",
                            
"",
                            
"",
                            
"",
                            
"",
                            
"",
                            
"",
                        );
                    
        
$text preg_replace($search,$replace,$document);
                                
        return 
$text;
    }

/*======================================================================*\
    Function:    _expandlinks
    Purpose:    expand each link into a fully qualified URL
    Input:        $links            the links to qualify
                $URI            the full URI to get the base from
    Output:        $expandedLinks    the expanded links
\*======================================================================*/

    
function _expandlinks($links,$URI)
    {
        
        
preg_match("/^[^\?]+/",$URI,$match);

        
$match preg_replace("|/[^\/\.]+\.[^\/\.]+$|","",$match[0]);
        
$match preg_replace("|/$|","",$match);
        
$match_part parse_url($match);
        
$match_root =
        
$match_part["scheme"]."://".$match_part["host"];
                
        
$search = array(     "|^http://".preg_quote($this->host)."|i",
                            
"|^(\/)|i",
                            
"|^(?!http://)(?!mailto:)|i",
                            
"|/\./|",
                            
"|/[^\/]+/\.\./|"
                        
);
                        
        
$replace = array(    "",
                            
$match_root."/",
                            
$match."/",
                            
"/",
                            
"/"
                        
);            
                
        
$expandedLinks preg_replace($search,$replace,$links);

        return 
$expandedLinks;
    }

/*======================================================================*\
    Function:    _httprequest
    Purpose:    go get the http data from the server
    Input:        $url        the url to fetch
                $fp            the current open file pointer
                $URI        the full URI
                $body        body contents to send if any (POST)
    Output:        
\*======================================================================*/
    
    
function _httprequest($url,$fp,$URI,$http_method,$content_type="",$body="")
    {
        
$cookie_headers '';
        if(
$this->passcookies && $this->_redirectaddr)
            
$this->setcookies();
            
        
$URI_PARTS parse_url($URI);
        if(empty(
$url))
            
$url "/";
        
$headers $http_method." ".$url." ".$this->_httpversion."\r\n";        
        if(!empty(
$this->agent))
            
$headers .= "User-Agent: ".$this->agent."\r\n";
        if(!empty(
$this->host) && !isset($this->rawheaders['Host'])) {
            
$headers .= "Host: ".$this->host;
            if(!empty(
$this->port))
                
$headers .= ":".$this->port;
            
$headers .= "\r\n";
        }
        if(!empty(
$this->accept))
            
$headers .= "Accept: ".$this->accept."\r\n";
        if(!empty(
$this->referer))
            
$headers .= "Referer: ".$this->referer."\r\n";
        if(!empty(
$this->cookies))
        {            
            if(!
is_array($this->cookies))
                
$this->cookies = (array)$this->cookies;
    
            
reset($this->cookies);
            if ( 
count($this->cookies) > ) {
                
$cookie_headers .= 'Cookie: ';
                foreach ( 
$this->cookies as $cookieKey => $cookieVal ) {
                
$cookie_headers .= $cookieKey."=".urlencode($cookieVal)."; ";
                }
                
$headers .= substr($cookie_headers,0,-2) . "\r\n";
            } 
        }
        if(!empty(
$this->rawheaders))
        {
            if(!
is_array($this->rawheaders))
                
$this->rawheaders = (array)$this->rawheaders;
            while(list(
$headerKey,$headerVal) = each($this->rawheaders))
                
$headers .= $headerKey.": ".$headerVal."\r\n";
        }
        if(!empty(
$content_type)) {
            
$headers .= "Content-type: $content_type";
            if (
$content_type == "multipart/form-data")
                
$headers .= "; boundary=".$this->_mime_boundary;
            
$headers .= "\r\n";
        }
        if(!empty(
$body))    
            
$headers .= "Content-length: ".strlen($body)."\r\n";
        if(!empty(
$this->user) || !empty($this->pass))    
            
$headers .= "Authorization: Basic ".base64_encode($this->user.":".$this->pass)."\r\n";
        
        
//add proxy auth headers
        
if(!empty($this->proxy_user))    
            
$headers .= 'Proxy-Authorization: ' 'Basic ' base64_encode($this->proxy_user ':' $this->proxy_pass)."\r\n";


        
$headers .= "\r\n";
        
        
// set the read timeout if needed
        
if ($this->read_timeout 0)
            
socket_set_timeout($fp$this->read_timeout);
        
$this->timed_out false;
        
        
fwrite($fp,$headers.$body,strlen($headers.$body));
        
        
$this->_redirectaddr false;
        unset(
$this->headers);
                        
        while(
$currentHeader fgets($fp,$this->_maxlinelen))
        {
            if (
$this->read_timeout && $this->_check_timeout($fp))
            {
                
$this->status=-100;
                return 
false;
            }
                
            if(
$currentHeader == "\r\n")
                break;
                        
            
// if a header begins with Location: or URI:, set the redirect
            
if(preg_match("/^(Location:|URI:)/i",$currentHeader))
            {
                
// get URL portion of the redirect
                
preg_match("/^(Location:|URI:)[ ]+(.*)/i",chop($currentHeader),$matches);
                
// look for :// in the Location header to see if hostname is included
                
if(!preg_match("|\:\/\/|",$matches[2]))
                {
                    
// no host in the path, so prepend
                    
$this->_redirectaddr $URI_PARTS["scheme"]."://".$this->host.":".$this->port;
                    
// eliminate double slash
                    
if(!preg_match("|^/|",$matches[2]))
                            
$this->_redirectaddr .= "/".$matches[2];
                    else
                            
$this->_redirectaddr .= $matches[2];
                }
                else
                    
$this->_redirectaddr $matches[2];
            }
        
            if(
preg_match("|^HTTP/|",$currentHeader))
            {
                if(
preg_match("|^HTTP/[^\s]*\s(.*?)\s|",$currentHeader$status))
                {
                    
$this->status$status[1];
                }                
                
$this->response_code $currentHeader;
            }
                
            
$this->headers[] = $currentHeader;
        }

        
$results '';
        do {
            
$_data fread($fp$this->maxlength);
            if (
strlen($_data) == 0) {
                break;
            }
            
$results .= $_data;
        } while(
true);

        if (
$this->read_timeout && $this->_check_timeout($fp))
        {
            
$this->status=-100;
            return 
false;
        }
        
        
// check if there is a a redirect meta tag
        
        
if(preg_match("'<meta[\s]*http-equiv[^>]*?content[\s]*=[\s]*[\"\']?\d+;[\s]*URL[\s]*=[\s]*([^\"\']*?)[\"\']?>'i",$results,$match))

        {
            
$this->_redirectaddr $this->_expandlinks($match[1],$URI);    
        }

        
// have we hit our frame depth and is there frame src to fetch?
        
if(($this->_framedepth $this->maxframes) && preg_match_all("'<frame\s+.*src[\s]*=[\'\"]?([^\'\"\>]+)'i",$results,$match))
        {
            
$this->results[] = $results;
            for(
$x=0$x<count($match[1]); $x++)
                
$this->_frameurls[] = $this->_expandlinks($match[1][$x],$URI_PARTS["scheme"]."://".$this->host);
        }
        
// have we already fetched framed content?
        
elseif(is_array($this->results))
            
$this->results[] = $results;
        
// no framed content
        
else
            
$this->results $results;
        
        return 
true;
    }

/*======================================================================*\
    Function:    _httpsrequest
    Purpose:    go get the https data from the server using curl
    Input:        $url        the url to fetch
                $URI        the full URI
                $body        body contents to send if any (POST)
    Output:        
\*======================================================================*/
    
    
function _httpsrequest($url,$URI,$http_method,$content_type="",$body="")
    {
        if(
$this->passcookies && $this->_redirectaddr)
            
$this->setcookies();

        
$headers = array();        
                    
        
$URI_PARTS parse_url($URI);
        if(empty(
$url))
            
$url "/";
        
// GET ... header not needed for curl
        //$headers[] = $http_method." ".$url." ".$this->_httpversion;        
        
if(!empty($this->agent))
            
$headers[] = "User-Agent: ".$this->agent;
        if(!empty(
$this->host))
            if(!empty(
$this->port))
                
$headers[] = "Host: ".$this->host.":".$this->port;
            else
                
$headers[] = "Host: ".$this->host;
        if(!empty(
$this->accept))
            
$headers[] = "Accept: ".$this->accept;
        if(!empty(
$this->referer))
            
$headers[] = "Referer: ".$this->referer;
        if(!empty(
$this->cookies))
        {            
            if(!
is_array($this->cookies))
                
$this->cookies = (array)$this->cookies;
    
            
reset($this->cookies);
            if ( 
count($this->cookies) > ) {
                
$cookie_str 'Cookie: ';
                foreach ( 
$this->cookies as $cookieKey => $cookieVal ) {
                
$cookie_str .= $cookieKey."=".urlencode($cookieVal)."; ";
                }
                
$headers[] = substr($cookie_str,0,-2);
            }
        }
        if(!empty(
$this->rawheaders))
        {
            if(!
is_array($this->rawheaders))
                
$this->rawheaders = (array)$this->rawheaders;
            while(list(
$headerKey,$headerVal) = each($this->rawheaders))
                
$headers[] = $headerKey.": ".$headerVal;
        }
        if(!empty(
$content_type)) {
            if (
$content_type == "multipart/form-data")
                
$headers[] = "Content-type: $content_type; boundary=".$this->_mime_boundary;
            else
                
$headers[] = "Content-type: $content_type";
        }
        if(!empty(
$body))    
            
$headers[] = "Content-length: ".strlen($body);
        if(!empty(
$this->user) || !empty($this->pass))    
            
$headers[] = "Authorization: BASIC ".base64_encode($this->user.":".$this->pass);
            
        for(
$curr_header 0$curr_header count($headers); $curr_header++) {
            
$safer_header strtr$headers[$curr_header], "\""" " );
            
$cmdline_params .= " -H \"".$safer_header."\"";
        }
        
        if(!empty(
$body))
            
$cmdline_params .= " -d \"$body\"";
        
        if(
$this->read_timeout 0)
            
$cmdline_params .= " -m ".$this->read_timeout;
        
        
$headerfile tempnam($temp_dir"sno");

        
$safer_URI strtr$URI"\""" " ); // strip quotes from the URI to avoid shell access
        
exec($this->curl_path." -D \"$headerfile\"".$cmdline_params." \"".$safer_URI."\"",$results,$return);
        
        if(
$return)
        {
            
$this->error "Error: cURL could not retrieve the document, error $return.";
            return 
false;
        }
            
            
        
$results implode("\r\n",$results);
        
        
$result_headers file("$headerfile");
                        
        
$this->_redirectaddr false;
        unset(
$this->headers);
                        
        for(
$currentHeader 0$currentHeader count($result_headers); $currentHeader++)
        {
            
            
// if a header begins with Location: or URI:, set the redirect
            
if(preg_match("/^(Location: |URI: )/i",$result_headers[$currentHeader]))
            {
                
// get URL portion of the redirect
                
preg_match("/^(Location: |URI:)\s+(.*)/",chop($result_headers[$currentHeader]),$matches);
                
// look for :// in the Location header to see if hostname is included
                
if(!preg_match("|\:\/\/|",$matches[2]))
                {
                    
// no host in the path, so prepend
                    
$this->_redirectaddr $URI_PARTS["scheme"]."://".$this->host.":".$this->port;
                    
// eliminate double slash
                    
if(!preg_match("|^/|",$matches[2]))
                            
$this->_redirectaddr .= "/".$matches[2];
                    else
                            
$this->_redirectaddr .= $matches[2];
                }
                else
                    
$this->_redirectaddr $matches[2];
            }
        
            if(
preg_match("|^HTTP/|",$result_headers[$currentHeader]))
                
$this->response_code $result_headers[$currentHeader];

            
$this->headers[] = $result_headers[$currentHeader];
        }

        
// check if there is a a redirect meta tag
        
        
if(preg_match("'<meta[\s]*http-equiv[^>]*?content[\s]*=[\s]*[\"\']?\d+;[\s]*URL[\s]*=[\s]*([^\"\']*?)[\"\']?>'i",$results,$match))
        {
            
$this->_redirectaddr $this->_expandlinks($match[1],$URI);    
        }

        
// have we hit our frame depth and is there frame src to fetch?
        
if(($this->_framedepth $this->maxframes) && preg_match_all("'<frame\s+.*src[\s]*=[\'\"]?([^\'\"\>]+)'i",$results,$match))
        {
            
$this->results[] = $results;
            for(
$x=0$x<count($match[1]); $x++)
                
$this->_frameurls[] = $this->_expandlinks($match[1][$x],$URI_PARTS["scheme"]."://".$this->host);
        }
        
// have we already fetched framed content?
        
elseif(is_array($this->results))
            
$this->results[] = $results;
        
// no framed content
        
else
            
$this->results $results;

        
unlink("$headerfile");
        
        return 
true;
    }

/*======================================================================*\
    Function:    setcookies()
    Purpose:    set cookies for a redirection
\*======================================================================*/
    
    
function setcookies()
    {
        for(
$x=0$x<count($this->headers); $x++)
        {
        if(
preg_match('/^set-cookie:[\s]+([^=]+)=([^;]+)/i'$this->headers[$x],$match))
            
$this->cookies[$match[1]] = urldecode($match[2]);
        }
    }

    
/*======================================================================*\
    Function:    _check_timeout
    Purpose:    checks whether timeout has occurred
    Input:        $fp    file pointer
\*======================================================================*/

    
function _check_timeout($fp)
    {
        if (
$this->read_timeout 0) {
            
$fp_status socket_get_status($fp);
            if (
$fp_status["timed_out"]) {
                
$this->timed_out true;
                return 
true;
            }
        }
        return 
false;
    }

/*======================================================================*\
    Function:    _connect
    Purpose:    make a socket connection
    Input:        $fp    file pointer
\*======================================================================*/
    
    
function _connect(&$fp)
    {
        if(!empty(
$this->proxy_host) && !empty($this->proxy_port))
            {
                
$this->_isproxy true;
                
                
$host $this->proxy_host;
                
$port $this->proxy_port;
            }
        else
        {
            
$host $this->host;
            
$port $this->port;
        }
    
        
$this->status 0;
        
        if(
$fp fsockopen(
                    
$host,
                    
$port,
                    
$errno,
                    
$errstr,
                    
$this->_fp_timeout
                    
))
        {
            
// socket connection succeeded

            
return true;
        }
        else
        {
            
// socket connection failed
            
$this->status $errno;
            switch(
$errno)
            {
                case -
3:
                    
$this->error="socket creation failed (-3)";
                case -
4:
                    
$this->error="dns lookup failure (-4)";
                case -
5:
                    
$this->error="connection refused or timed out (-5)";
                default:
                    
$this->error="connection failed (".$errno.")";
            }
            return 
false;
        }
    }
/*======================================================================*\
    Function:    _disconnect
    Purpose:    disconnect a socket connection
    Input:        $fp    file pointer
\*======================================================================*/
    
    
function _disconnect($fp)
    {
        return(
fclose($fp));
    }

    
/*======================================================================*\
    Function:    _prepare_post_body
    Purpose:    Prepare post body according to encoding type
    Input:        $formvars  - form variables
                $formfiles - form upload files
    Output:        post body
\*======================================================================*/
    
    
function _prepare_post_body($formvars$formfiles)
    {
        
settype($formvars"array");
        
settype($formfiles"array");
        
$postdata '';

        if (
count($formvars) == && count($formfiles) == 0)
            return;
        
        switch (
$this->_submit_type) {
            case 
"application/x-www-form-urlencoded":
                
reset($formvars);
                while(list(
$key,$val) = each($formvars)) {
                    if (
is_array($val) || is_object($val)) {
                        while (list(
$cur_key$cur_val) = each($val)) {
                            
$postdata .= urlencode($key)."[]=".urlencode($cur_val)."&";
                        }
                    } else
                        
$postdata .= urlencode($key)."=".urlencode($val)."&";
                }
                break;

            case 
"multipart/form-data":
                
$this->_mime_boundary "Snoopy".md5(uniqid(microtime()));
                
                
reset($formvars);
                while(list(
$key,$val) = each($formvars)) {
                    if (
is_array($val) || is_object($val)) {
                        while (list(
$cur_key$cur_val) = each($val)) {
                            
$postdata .= "--".$this->_mime_boundary."\r\n";
                            
$postdata .= "Content-Disposition: form-data; name=\"$key\[\]\"\r\n\r\n";
                            
$postdata .= "$cur_val\r\n";
                        }
                    } else {
                        
$postdata .= "--".$this->_mime_boundary."\r\n";
                        
$postdata .= "Content-Disposition: form-data; name=\"$key\"\r\n\r\n";
                        
$postdata .= "$val\r\n";
                    }
                }
                
                
reset($formfiles);
                while (list(
$field_name$file_names) = each($formfiles)) {
                    
settype($file_names"array");
                    while (list(, 
$file_name) = each($file_names)) {
                        if (!
is_readable($file_name)) continue;

                        
$fp fopen($file_name"r");
                        
$file_content fread($fpfilesize($file_name));
                        
fclose($fp);
                        
$base_name basename($file_name);

                        
$postdata .= "--".$this->_mime_boundary."\r\n";
                        
$postdata .= "Content-Disposition: form-data; name=\"$field_name\"; filename=\"$base_name\"\r\n\r\n";
                        
$postdata .= "$file_content\r\n";
                    }
                }
                
$postdata .= "--".$this->_mime_boundary."--\r\n";
                break;
        }

        return 
$postdata;
    }
}

?>