<?php

    // MySpaceDP
    // Copyright 2008 W. Andrew Burden
    // Some rights reserved. Released under the Creative Commons Attribution-ShareAlike 2.5 license.
    // http://creativecommons.org/licenses/by-sa/2.5/
    // -----
    // Version 7.3 (28 Mar 2009)

    
    /*if ($_SERVER['SERVER_NAME'] == "apps.drewburden.com") {
    if (strpos($_SERVER['HTTP_REFERER'], "http://bulletins.myspace.com") !== FALSE) {
	include ("./indexwm.php");
	exit;
    }
    if (strpos($_SERVER['HTTP_REFERER'], "http://messaging.myspace.com") !== FALSE) {
	include ("./indexwm.php");
	exit;
    }
    }*/

    
    
    $friendid = $_GET["friendid"];
    if (isset ($_GET["mode"])) {
        $mode = $_GET["mode"];
    } else {
        $mode = "medium";
    }
	
	// New feature: You can now use either someone's Friend ID or MySpace name. 
	$idlen = strlen ($friendid);
	$newid = preg_replace ("/[a-z]||[A-Z]/", "", $friendid);
	$nidlen = strlen ($newid);
	if ($nidlen < $idlen) {
		$msname = TRUE;
	} else {
		$fid = TRUE;
	}

    // Scrape this person's profile for their default pic.
	if ($fid) {
		$xml = file_get_contents("http://profile.myspace.com/index.cfm?fuseaction=user.viewprofile&friendid=" . $friendid);
	} elseif ($msname) {
		$xml = file_get_contents("http://www.myspace.com/" . $friendid);
	}
	// Get a second copy just as a backup.
	$xml2 = $xml;
	// MySpace changed up their image URLs and so I had to write more code to outsmart them
	// Let's isolate the default image. We'll have to do some slicing, I bet THIS will be great on the overhead
	$ilarea = strpos ($xml, "myspace:photo");
	$xml = substr ($xml, $ilarea);
	$afteri = strpos ($xml, "http://x.myspacecdn.com/modules/common/static/img/clear.gif");
	$xml = substr ($xml, 0, $afteri);
	// Now that we have some code that has the image URL in it, let's break out that exacto-knife
	$starturl = strpos ($xml, "src=\"");
	$xml = substr ($xml, ($starturl + 5));
	$endurl = strpos ($xml, "\"");
	$xml = substr ($xml, 0, $endurl);
	//  End slicing.
    // The following old lines of code I've kept for posterity; the unnecessary ones are commented out
	// $iustart = strpos ($xml, "http://a");
    $host = "akamai";
    /*
	// Stupid myspace started using Akamai instead of LimeLight Networks for image hosting, so this is a dirty hack to detect which one...
    if ($iustart === FALSE || $iustart > 10675) {
        $iustart = strpos ($xml, "http://b");
        $host = "akamai";
    }
    $iuend = strpos ($xml, "\"", $iustart);
    $imageurl = substr ($xml, $iustart, ($iuend - $iustart));
    */

	//// NEW FOR 7.0
	//   If at this point $xml is empty, they have Profile 2.0. Let's do this.
	if (strlen ($xml) === 0) {
		$iurlprepre = strpos ($xml2, "alt=\"Photo of");
		$iurlpre = (strpos ($xml2, "src=\"", $iurlprepre) + 5);
		$xml2 = substr ($xml2, $iurlpre);
		$iurlend = strpos ($xml2, "\" />");
		$xml2 = substr ($xml2, 0, $iurlend);
		// Now get $xml back to the way it should be. :)
		$xml = $xml2;
	}

	$imageurl = $xml;
    if (substr ($imageurl, -3, 3) == "jpg") {
        $itype = "jpeg";
    } elseif (substr ($imageurl, -3, 3) == "gif") {
        $itype = "gif";
    } elseif (substr ($imageurl, -3, 3) == "png") {
		$itype = "png";
	}
    
	// Just about all the pictures have migrated over to the Akamai system now, but some of them still have the
	// old LLNW naming scheme. Here's the override just in case:
	$iupresplit = explode ("/", $imageurl);
	foreach ($iupresplit as $iupart) {
		$imfn = $iupart;
	}
	if (substr ($imfn, 1, 1) == "_") {
		$host = "akamai";
	}
	if (substr ($imfn, -6, 1) == "_") {
		$host = "llnw";
	}
	
    // This routine is for pictures on the old Limelight Networks system, or using the naming scheme.
    if ($host == "llnw") {
    $iusplit = explode ("_", $imageurl);
    
    if ($itype == "jpeg") {
        if ($mode == "small") {
            $iufinal = $iusplit[0] . "_s.jpg";
        } elseif ($mode == "medium") {
            $iufinal = $imageurl;
        } elseif ($mode == "large") {
            $iufinal = $iusplit[0] . "_l.jpg";
        }
    } elseif ($itype == "gif") {
        if ($mode == "small") {
            $iufinal = $iusplit[0] . "_s.gif";
        } elseif ($mode == "medium") {
            $iufinal = $imageurl;
        } elseif ($mode == "large") {
            $iufinal = $iusplit[0] . "_l.gif";
        }
    } elseif ($itype == "png") {
        if ($mode == "small") {
            $iufinal = $iusplit[0] . "_s.png";
        } elseif ($mode == "medium") {
            $iufinal = $imageurl;
        } elseif ($mode == "large") {
            $iufinal = $iusplit[0] . "_l.png";
        }
    }
    }
    
    // The new Akamai system is a bit more complicated than LLNW, but it has the same concept. 
    // I do like, however, that now you don't need to take the image format into consideration.
    if ($host == "akamai") {
    $iusplit = explode ("_", $imageurl);
    
    $iprefix = substr ($iusplit[0], 0, (strlen($iusplit[0]) - 1));
    
    if ($mode == "small") {
        $iufinal = $iprefix . "s_" . $iusplit[1];
    } elseif ($mode == "medium") {
        $iufinal = $imageurl;
    } elseif ($mode == "large") {
        $iufinal = $iprefix . "l_" . $iusplit[1];
    }
    }

    //echo ("<code>" . $xml . "</code>");

    // Stolen from the manual, hacked extensively.
    function loadpic ($imgname){
        $im = file_get_contents ($imgname);
        return $im;
    }

    //echo ("<script language=\"JavaScript\"> alert('Host:  " . $host . "\\nImageurl:  " . $iufinal . "\\n');</script>");
    
    if ($itype == "jpeg") {
        $ii = loadpic ($iufinal);
        header ("Content-type: image/jpeg");
        echo ($ii);
    } elseif ($itype == "gif") {
        $ii = loadpic ($iufinal);
        header ("Content-type: image/gif");
        echo ($ii);
    } elseif ($itype == "png") {
        $ii = loadpic ($iufinal);
        header ("Content-type: image/png");
        echo ($ii);
    }
?>