//deliver collar
//deliver sub ao
//offer group membership
 
key rcpt;
string groupID = "45d71cc1-17fc-8ee4-8799-7164ee264811";
 
key collarhttpid;
key aohttpid;
string baseurl = "http://collardata.appspot.com/dist/deliver";
 
default
{
    state_entry()
    {
        rcpt = llGetOwner();
        collarhttpid = llHTTPRequest(baseurl, [HTTP_METHOD, "POST"], "objname=OpenCollar\nrcpt=" + (string)rcpt);
        aohttpid = llHTTPRequest(baseurl, [HTTP_METHOD, "POST"], "objname=OpenCollar Sub AO\nrcpt=" + (string)rcpt);
 
        string url = "secondlife:///app/group/" + groupID + "/about";
        llInstantMessage(rcpt, "The OpenCollar group gives you access to exclusive collar designs and compatible toys.  To join the OpenCollar group, click this link:\n" + url);        
 
    }
 
    http_response(key id, integer status, list meta, string body)
    {
        if (id == collarhttpid)
        {
            if (status == 200)
            {
                llInstantMessage(rcpt, "OpenCollar should be delivered in the next 30 seconds.");
            }
        }
        else if (id == aohttpid)
        {
            if (status == 200)
            {
                llInstantMessage(rcpt, "OpenCollar Sub AO should be delivered in the next 30 seconds.");
            }
        }
    }        
 
    on_rez(integer param)
    {
        llResetScript();
    }
}