Profile Picture Retrieval

Profile Picture Retrieval by Pazako Karu (Quick, Dirty, NEW WAY - August 8, 2010)

//Couldnt care less about saying I did this, have fun with it
//Pazako Karu 8/8/2010

key ppReqID;
key ProfilePic;
getProfilePic(key AvatarKey)
{
    ppReqID = llHTTPRequest( "http://world.secondlife.com/resident/" + (string)AvatarKey,[HTTP_METHOD,"GET"],"");
}
setProfilePic(key Texture)
{
    if (Texture != NULL_KEY)
    {
        llSetTexture(Texture,ALL_SIDES);
    }
    else llOwnerSay("Invalid texture returned!");
}
default
{
    state_entry()
    {
        getProfilePic(llGetOwner());
    }

    http_response(key req,integer stat, list meta, string body)
    {
        if (req == ppReqID)
        {
            integer s1  = llSubStringIndex(body,"<meta name=\"imageid\" content=\"");
        integer s1l = llStringLength("<meta name=\"imageid\" content=\"");
        integer s2  = llSubStringIndex(body,"\" /> \n    <meta name=\"agentid\"") - 1;
        if(s1 == -1) ProfilePic = NULL_KEY;
        else    ProfilePic = (key)llGetSubString(body,s1+s1l,s2);
            setProfilePic(ProfilePic);
        }
    }
}