Uplinking An Attachment To Pandorabot?

         
string mesg;
key gOwner;
list talkers;


listen_to(key talker)
{
        integer index = llListFindList( talkers, [talker] );
    if ( index != -1 )
        {
        talkers = llDeleteSubList(talkers, index, index);
         llMessageLinked(LINK_SET,0,"BYE",talker);
        }
    else
        {
        talkers = talkers + talker;
         llMessageLinked(LINK_SET,0,"HI",talker);
        }
}


default
{    
    state_entry()    
    {
        gOwner = llGetOwner();
        llListen(0,"",NULL_KEY,"");
    }

    on_rez(integer i) 
    {
        llWhisper(0,"Owner say /chat or touch me");
        llResetScript();
    }
    
    touch_start(integer num_detected)
    {
        listen_to(llDetectedKey(0));
    }

        listen(integer channel, string name, key id, string msg)
    {
        if (msg == "/chat")                                    
        {                                                              
            listen_to(id);                                         
            return;                                                 
        }                                                             
        if ((msg == "/reset") && (id == gOwner))  
        {                                                            
            llWhisper(0,"Resetting");                      
            llResetScript();                                   
        }                                                           
             


        integer index = llListFindList( talkers, [id] );
        if (index != -1)                                         //delete and it will respond to everyone
        {
            mesg = llToLower(msg);
            llMessageLinked(LINK_SET,0,msg,id);
        }
    }

}

key talker;
key requestid;
string botid;
string cust;
string bodyx;
string reply;
string newreply;
integer that_begin;
integer that_end;
integer cust_begin;
integer chat = 0;

string SearchAndReplace(string input, string old, string new) 
{
   return llDumpList2String(llParseString2List(input, [old], []), new);
} 


default
{
    state_entry()
    {
        cust="";
        botid="b1e9139eee362838";
    }

    on_rez(integer param)
    {
        llResetScript();
    }

    link_message(integer sender_num, integer num, string msg, key id)
    {
        requestid = llHTTPRequest("http://www.pandorabots.com/pandora/talk-xml?botid="+botid+"&input="+llEscapeURL(msg)+"&custid="+cust,[HTTP_METHOD,"POST"],"");
    }
    http_response(key request_id, integer status, list metadata, string body)
    {
        integer i;
        if (request_id == requestid)
        {
            cust_begin=llSubStringIndex(body, "custid=");
            cust=llGetSubString(body, cust_begin+8, cust_begin+23);
            that_begin = llSubStringIndex(body, "<that>");
            that_end = llSubStringIndex(body, "</that>");
            reply = llGetSubString(body, that_begin + 6, that_end - 1);
            newreply = SearchAndReplace(reply, "%20", " ");
            reply = newreply;
            newreply = SearchAndReplace(reply,""","\"");
            reply = newreply;
            newreply = SearchAndReplace(reply,"<br>","\n");
            reply = newreply;
            newreply = SearchAndReplace(reply, ">", ">");
            reply = newreply;
            newreply = SearchAndReplace(reply, "<", "<");
            
            llSay(0,newreply);

        }
    }


}