$request = \"HEAD \" . $url_parts[\'path\'] . (isset($url_parts[\'query\']) ? \'?\'.$url_parts[\'query\'] : \'\') . \" HTTP/1.1\\r\\n\";
    $request .= \'Host: \' . $url_parts[\'host\'] . \"\\r\\n\";
    $request .= \"Connection: Close\\r\\n\\r\\n\";
    fwrite($sock, $request);
    $response = \'\';
    while(!feof($sock)) $response .= fread($sock, 8192);
    fclose($sock);
    if (preg_match(\'/^Location: (.+?)$/m\', $response, $matches)){
        if ( substr($matches[1], 0, 1) == \"/\" )
            return $url_parts[\'scheme\'] . \"://\" . $url_parts[\'host\'] . trim($matches[1]);
        else
            return trim($matches[1]);

    } else {
        return false;
    }

}
/**
 * get_all_redirects()
 * Follows and collects all redirects, in order, for the given URL.
 *
 * @param string $url
 * @return array
 */
function get_all_redirects($url){
    $redirects = array();
    while ($newurl = get_redirect_url($url)){
        if (in_array($newurl, $redirects)){
            break;
        }
        $redirects[] = $newurl;
        $url = $newurl;
    }
    return $redirects;
}