Get Profile Picture

Get Profile Picture by Valentine Foxdale

Important: This script relies on data scraped from world.secondlife.com. That site, and the page format it currently serves, will probably be replaced by my.secondlife.com pages in the coming months. The new pages use a different format and have different access controls, so expect this script to stop working if and when the change is made. See WEB-3510 for details.

<lsl> // Snippets and HTTPRequest bits were taken from: //~ RANDOM PROFILE PROJECTOR v5.4.5 by Debbie Trilling ~

// Get Profile Picture by Valentine Foxdale // optmisation by SignpostMarv Martin // workaround for WEB-1384 by Viktoria Dovgal: // try meta tag instead of img first, try img as backup in case meta breaks list sides; list deftextures;

string profile_key_prefix = "<meta name=\"imageid\" content=\""; string profile_img_prefix = "<img alt=\"profile image\" src=\"http://secondlife.com/app/image/"; integer profile_key_prefix_length; // calculated from profile_key_prefix in state_entry() integer profile_img_prefix_length; // calculated from profile_key_prefix in state_entry()

GetProfilePic(key id) //Run the HTTP Request then set the texture {

   //key id=llDetectedKey(0); This breaks the function, better off not used
   string URL_RESIDENT = "http://world.secondlife.com/resident/";
   llHTTPRequest( URL_RESIDENT + (string)id,[HTTP_METHOD,"GET"],"");

} GetDefaultTextures() //Get the default textures from each side {

   integer    i;
   integer    faces = llGetNumberOfSides();
   for (i = 0; i < faces; i++)
   {
       sides+=i;
       deftextures+=llGetTexture(i);
   }

} SetDefaultTextures() //Set the sides to their default textures {

   integer    i;
   integer    faces;
   faces = llGetNumberOfSides();
   for (i = 0; i < faces; i++)
   {
       llSetTexture(llList2String(deftextures,i),i);
   }

} default {

   state_entry()
   {
       profile_key_prefix_length = llStringLength(profile_key_prefix);
       profile_img_prefix_length = llStringLength(profile_img_prefix);
       llSetText("Touch for this object to display your profile picture!",<0.8,0,1>,1); 
       //Note: Usage of another person's profile picture without their permission may be viewed as copyright infringement. 
       GetDefaultTextures();
   }
   touch_start(integer total_number)
   {
       GetProfilePic(llDetectedKey(0));
   }
   http_response(key req,integer stat, list met, string body)
   {
       integer s1 = llSubStringIndex(body, profile_key_prefix);
       integer s1l = profile_key_prefix_length;
       if(s1 == -1)
       { // second try
           s1 = llSubStringIndex(body, profile_img_prefix);
           s1l = profile_img_prefix_length;
       }
       
       if(s1 == -1)
       { // still no match?
           SetDefaultTextures();
       }
       else
       {
           s1 += s1l;
           key UUID=llGetSubString(body, s1, s1 + 35);
           if (UUID == NULL_KEY) {
               SetDefaultTextures();
           }
           else {
               llSetTexture(UUID,ALL_SIDES);
           }
       }
   }

} </lsl>