function fetch_alt_ip() 
    { 
        if (isset($_SERVER['HTTP_CLIENT_IP'])) 
        { 
            $alt_ip = $_SERVER['HTTP_CLIENT_IP']; 
        } 
else if (isset($_SERVER['HTTP_X_FORWARDED_FOR']) AND preg_match_all('#\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}#s', $_SERVER['HTTP_X_FORWARDED_FOR'], $matches)) 
        { 
            // make sure we dont pick up an internal IP defined by RFC1918 
            foreach ($matches[0] AS $ip) 
            { 
                if (!preg_match("#^(10|172\.16|192\.168)\.#", $ip)) 
                { 
                    $alt_ip = $ip; 
                    break; 
                } 
            } 
        } 
        else if (isset($_SERVER['HTTP_FROM'])) 
        { 
            $alt_ip = $_SERVER['HTTP_FROM']; 
        } 
        else 
        { 
            $alt_ip = $_SERVER['REMOTE_ADDR']; 
        } 

        return $alt_ip; 
    }

// Paul M - if possible, detect realip when proxy in use. 
    function fetch_alt_ip() 
    { 
        $ignoreprivate = false; // Set to true to ignore private 'real' ip's //     
        if ($_SERVER['HTTP_FROM'] != '') $alt_ip = $_SERVER['HTTP_FROM'];  
        if ($_SERVER['HTTP_FORWARDED'] != '') $alt_ip = $_SERVER['HTTP_FORWARDED'];  
        if ($_SERVER['HTTP_CLIENT_IP'] != '') $alt_ip = $_SERVER['HTTP_CLIENT_IP'];  
        if ($_SERVER['HTTP_X_FORWARDED_FOR'] != '') $alt_ip = $_SERVER['HTTP_X_FORWARDED_FOR']; 
        if (preg_match("#\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}#", $alt_ip, $iplist)) 
        { 
            $alt_ip = $iplist[0];  
            if ($ignoreprivate) 
            {  
                if (preg_match("#^(127|10|172\.(1[6-9]|2[0-9]|3[0-1])|192\.168|169\.254)\.#", $alt_ip)) $alt_ip = ''; 
            }  
        } 
        else 
        { 
            $alt_ip = '';  
        } 
        return $alt_ip; 
    }

// fetch client IP address 
        $registry->ipaddress = $this->fetch_ip(); 
        define('IPADDRESS', $registry->ipaddress); 

        // attempt to fetch IP address from behind proxies - useful, but don't rely on it... 
        $registry->alt_ip = $this->fetch_alt_ip(); 
        define('ALT_IP', $registry->alt_ip);

// Paul M - Fetch client IP address & Proxy server address if detected 
        $registry->ipaddress = $this->fetch_ip(); 
        $registry->alt_ip = $this->fetch_alt_ip(); 
        define('ALT_IP', $registry->ipaddress); 
        if ($registry->alt_ip == '') 
        { 
            define('PROXYIP', '');  
            define('IPADDRESS', $registry->ipaddress); 
        } 
        else 
        { 
            define('PROXYIP', $registry->ipaddress); 
            define('IPADDRESS', $registry->alt_ip);  
        }

// define session constants 
 define('SESSION_IDHASH', md5($_SERVER['HTTP_USER_AGENT'] . $registry->alt_ip)); // this should *never* change during a session 
        define('SESSION_HOST',   substr($registry->ipaddress, 0, 15));

// Paul M - define session constants 
        define('SESSION_IDHASH', md5($_SERVER['HTTP_USER_AGENT'] . IPADDRESS)); // this should *never* change during a session 
        define('SESSION_HOST',   substr(IPADDRESS, 0, 15));