ITunes RPC Email

I made this a long time ago, before HTTP, how l33t is that? >.> <lsl> string NOTIFY_EMAIL = "email@domain.tld";

integer USER_ID = 0; // Fox

// I always set constants for different idata commands sent through RPC. Then I just make sure they match the constants // that I set in my PHP file, and everything works great. integer RPC_ERROR = 0; integer SEND_SONG = 1; integer SEND_LINK = 2;

// Always reamins 99 integer RPC_SUCCESS = 99;

// This will be used as a reference later in case we need to know it. key rpc_chan; string rgn_name;

default {

   state_entry()
   {
       rgn_name = llGetRegionName();
       llOpenRemoteDataChannel();
       llListen(1, "Fox Diller", "", "");
       llSetTimerEvent(13);
   }
   
   timer()
   {
       if (llGetRegionName() != rgn_name)
       {
           llOwnerSay("Changing Sims");
           rgn_name = llGetRegionName();
           llOpenRemoteDataChannel();
       }
   }
   
   
   listen(integer chan, string name, key id, string msg)
   {
       if (llDetectedKey(0) == llGetOwner()) {
           
           if (msg == "key")
           {
               llOwnerSay((string)rpc_chan);
           }
           
           if (msg == "timeron")
           {
               llSetTimerEvent(13);
               llOwnerSay("Timer Turned On!");
           }
           
           if (msg == "timeroff")
           {
               llSetTimerEvent(0);
               llOwnerSay("Timer Turned Off!");
           }
           if (msg == "reset") llResetScript();
       }
   }
       
   remote_data(integer event_type, key channel, key message_id, string sender, integer idata, string sdata)
   {
       // If the RPC channel has just been opened, then we need to send off a notice to the webserver.
       if (event_type == REMOTE_DATA_CHANNEL)
       {
           // We should keep a reference to the RPC channel that has been opened.
           rpc_chan = channel;
           
           // Here, we can specify extra parameters in the email that we need the webserver to know, such as the RPC channel.
           string msg;
           msg = "Command: updatekey\n";
           msg += "RPC-Chan: "+(string)rpc_chan+"\n";
           msg += "UserID: "+(string)USER_ID+"\n";
           llEmail(NOTIFY_EMAIL, "RPC Chan Updated", msg);
           
           llOwnerSay("Sent Object ID string to MySQL server.");
       }
       
       // If an RPC request has been sent from the webserver.
       else if (event_type == REMOTE_DATA_REQUEST)
       {
           // We can check what command is coming through here, and handle them as needed.
           if (idata == SEND_SONG)
           {
               list songData;
               songData = llCSV2List(sdata);
               llSetText("iTunes <-> SecondLife\n-----------------------------------\nAlbum: "+llList2String(songData, 0)+"\nArtist: "+llList2String(songData, 1)+"\nSong: "+llList2String(songData,2), <1,1,1>, 1.0);
               llSay(0, "Fox is currently listening to: "+llList2String(songData, 1)+" - "+llList2String(songData, 2));
               llRemoteDataReply(channel, message_id, "success", RPC_SUCCESS);
           
           // Just checking for another command.
           } 
           else if (idata == SEND_LINK)
           {
               llOwnerSay("Th5s Feat4re Broken");

// llRemoteDataReply(channel, message_id, "success", RPC_COMMAND2);

            // If it was an unrecognized command, we still have to send some sort of reply back.
           } 
           else 
           {
               llOwnerSay("WARNING!!!!!!!!!!!!!!!!!!!");
               // llRemoteDataReply(channel, message_id, "", RPC_ERROR);
           }
       }
   }

} </lsl>