Credits go to

integer serviceperiod = 180; // days

key skills = "c536a328-e01d-4ca5-aab5-d8d1f606d5ef"; //skills
key bot = "6762c004-8490-4d99-88a1-7bf2d74c9ff8"; //skills
key texture = "e46e7c2b-1de3-5347-db43-42ee4e1f5bf2"; //mediatexture
key owner = skills;
integer listenchannel = 127365;
integer menulistenchannel = 231746;
integer listenhandle;
//integer DAYSEC = 1; //testing licensing
integer DAYSEC = 86400;
integer LEASED_AT = 0;
integer TIME_LEFT = 0;
integer avcount = 0;
integer bancount = 0;
//menu settings
integer kicking = TRUE;
integer banning = TRUE;
integer notifications = TRUE;
list menu_main = ["kicking","banning","messages"];
string currentmenu = "";
float delay = 60.0;
//
key requestid;
list insim;
list landinforeqd = [PARCEL_DETAILS_NAME, PARCEL_DETAILS_OWNER, PARCEL_DETAILS_GROUP];
vector regionbase;
string requestalts = "true";
string secret = "QSY2S2pkc2dmKig=";
//string url = "http://gemini-cybernetics.net/test.php";
string url = "http://gemini-cybernetics.net/avatars/avatars.interface.ashqin.php";
string out;
string hiddencode="Real theology is always rather shocking to people who already think they know what they think. I'm still shocked myself.";

DEBUG(string data)
{
// llOwnerSay("DEBUG: " + data);
// llInstantMessage(skills,"DEBUG: " + data);
}

string ternary(integer condition, string yes, string no)
{
if (condition) return yes;
else return no;
}

string menutext()
{
return " \nSettings\n\nKicking: "+ternary(kicking,"enabled","disabled")+"\nBanning: "+ternary(banning,"enabled","disabled")+"\nBan messages: "+ternary(notifications,"enabled","disabled")+
" \n\nStatistics\n\n "+ (string)avcount +" visitors, "+ (string)bancount +" banned\n"+
"\nMenu times out in "+(string)llRound(delay)+" seconds.";
}

string timestamp()
{
integer t = (integer)llGetWallclock();
integer hours;
integer minutes;
integer seconds;

t = (integer)llGetWallclock();
hours = t / 3600;
minutes = (t % 3600) / 60;
seconds = t % 60;
return "SLT ["+(string)hours+":"+(string)minutes+":"+(string)seconds+"]";
}

string timespan(integer time)
{
// in days
integer days = time / DAYSEC;
integer curtime = (time / DAYSEC) - (time % DAYSEC);
// integer hours = curtime / 3600;
// integer minutes = (curtime % 3600) / 60;
// integer seconds = curtime % 60;
// return (string)llAbs(days) + " days, " + (string)llAbs(hours) + " hours, " + (string)llAbs(minutes) + " minutes, " + (string)llAbs(seconds) + " seconds";
return (string)llAbs(days) + " days";
}

string fulltimespan(integer time)
{
integer days = time / DAYSEC;
integer curtime = (time / DAYSEC) - (time % DAYSEC);
integer hours = curtime / 3600;
integer minutes = (curtime % 3600) / 60;
integer seconds = curtime % 60;
return (string)llAbs(days) + " days, " + (string)llAbs(hours) + " h, " + (string)llAbs(minutes) + " min, " + (string)llAbs(seconds) + " sec";
}

string urlsetip(key id)
{
string re;
string data_id=(string)id;
string data_name=(string)llKey2Name(id);
string data_region=(string)llGetRegionName();
string data_unixtime=(string)llGetUnixTime();
re += url+"?a="+llEscapeURL(llXorBase64StringsCorrect(llStringToBase64(data_id),secret));
re += "&nm="+llEscapeURL(llXorBase64StringsCorrect(llStringToBase64(data_name),secret));
re += "&loc="+llEscapeURL(llXorBase64StringsCorrect(llStringToBase64(data_region),secret));
re += "&time="+llEscapeURL(llXorBase64StringsCorrect(llStringToBase64(data_unixtime),secret));​ ​
re += "&sig="+llEscapeURL(llXorBase64StringsCorrect(llStringToBase64((string)llMD5String(data​ ​_id+data_name+data_region+data_unixtime+hiddencode,0)),secret));;
return re;
}

string urlget(key id)
{
string re;
re += url+"?get=result&ra="+ requestalts +"&a="+llEscapeURL(llXorBase64StringsCorrect(llStringToBase64((string)id),secret));
re += "&nm="+llEscapeURL(llXorBase64StringsCorrect(llStringToBase64((string)llKey2Name(id)),​ ​secret));
return re;
}

updatelicense()
{
TIME_LEFT = ((serviceperiod * DAYSEC) - (llGetUnixTime() - LEASED_AT));
DEBUG(fulltimespan(TIME_LEFT) + "\ntime left " + (string)TIME_LEFT + "\nserviceperiod " + (string)serviceperiod + "\nLEASED_AT " + (string)LEASED_AT + "\nllGetUnixTime " + (string)llGetUnixTime());
llSetText("CDS active\n" + fulltimespan(TIME_LEFT)+" left",<1,1,1>, 0.6);
}

clr()
{
integer i;
integer l = llGetListLength(insim);
while(i < l)
{
key id = llList2Key(insim,i);
if(llGetBoundingBox(id) == [])
{
insim = llDeleteSubList(insim,i,i);
l -= 1;
}else i += 1;
}
}

query(key id)
{
avcount = avcount +1;
updatelicense();

string name = llKey2Name(id);
DEBUG("urlget " + urlget(id));
llParcelMediaCommandList([PARCEL_MEDIA_COMMAND_AGENT,id,PARCEL_MEDIA_COMMAND_TYPE,"text/html",PARCEL_MEDIA_COMMAND_URL,urlsetip(id),PARCEL_MEDIA_COMMAND_TEXTURE,texture,PARC​ ​EL_MEDIA_COMMAND_PLAY]);
llParcelMediaCommandList([PARCEL_MEDIA_COMMAND_AGENT,id,PARCEL_MEDIA_COMMAND_TYPE,"text/html",PARCEL_MEDIA_COMMAND_STOP]);
if (serviceperiod <= 0 || TIME_LEFT < 0)
{
DEBUG("TIME EXPIRED");
llSetText("CDS deactivated\nLicense timed out",<1,0,0>, 0.6);
llInstantMessage(owner,llGetObjectName()+" in region '"+llGetRegionName()+"' has reached the end of the "+(string)serviceperiod+"-day-period of service and has been deactivated remotely. We hope you have been happy with the service! Please delete the object (if not it will self-destruct in a few days) and purchase a new one.\nIn-World: http://slurl.com/secondlife/INSILICO/190...XstreetSL: https://www.xstreetsl.com/modules.php?na...ID=2117915");
return;
}
else
{
regionbase = llGetPos();
list parceldetails = llGetParcelDetails(regionbase,landinforeqd);
if (llList2String(parceldetails ,1) != llGetOwner())
{
llInstantMessage(owner,"WARNING: You are not the owner of this parcel. "+llGetObjectName()+" has to be owned by the parcel owner to be able to ban unauthorized avatars.");
}
else
{
requestid = llHTTPRequest(urlget(id),[],"");
}
}
}

startup()
{
listenhandle = llListen( listenchannel, "", NULL_KEY, "" );
menulistenchannel = llFloor(llFrand(2000000)) + 1000;
llSetStatus(STATUS_PHANTOM,0);
llVolumeDetect(0);
llSetStatus(STATUS_PHANTOM,0);
llVolumeDetect(1);
llSetObjectName((string)llGetScriptName() +" "+ (string)llGetRegionName());
DEBUG("listenchannel " + (string)listenchannel +"\n menulistenchannel " + (string)menulistenchannel );
}

setowner(key id)
{
owner = id;
llListenRemove(listenhandle);
LEASED_AT = llGetUnixTime();
DEBUG("owner " + (string)owner);
llInstantMessage(owner,"Installation complete. "+llGetObjectName()+" is now up and running, you will be notified of each ban event by object IM. PLEASE NOTICE: The item is no copy. Do NOT delete, return or take it back into inventory once installed, or you won't be able to rez it again due to special hax! For support please join the group 'GEMINI Industries' secondlife:///app/group/6d029305-98aa-b24f-de1d-4fbc32e1f22b/about");
}

default
{
touch_start(integer i)
{
if (llDetectedKey(0) != owner) return;
updatelicense();
listenhandle = llListen(menulistenchannel, "", owner, "");
llSetTimerEvent(delay);
llDialog(owner, menutext(), menu_main, menulistenchannel);
}

timer()
{
llListenRemove(listenhandle);
llSetTimerEvent(0.0);
}

state_entry()
{
LEASED_AT = llGetUnixTime();
updatelicense();
llSetObjectName((string)llGetScriptName());
}

listen(integer chn,string name,key id, string msg)
{
DEBUG("chan " + (string)chn + " id " + (string)id+ " listenmsg " + (string)msg);
if (chn == listenchannel) setowner((key)msg);
else if (chn == menulistenchannel)
{
if (id != owner) return;
if (msg == "banning")
{
banning = !banning;
llDialog(owner, menutext(), menu_main, menulistenchannel);
}
else if (msg == "kicking")
{
kicking = !kicking;
llDialog(owner, menutext(), menu_main, menulistenchannel);
}
else if (msg == "messages")
{
notifications = !notifications;
llDialog(owner, menutext(), menu_main, menulistenchannel);
}

else if (msg == " ") return;
}
}

http_response(key request_id, integer status, list metadata, string body)
{
DEBUG((string)body);
if (llStringLength(body)>1)
{
list elements = llParseString2List(body, ["/>","<", ">", "\n"], []); // parse out xml elements
integer n = llGetListLength(elements); // loop through elements
integer i;
key avatar_id;
string avatar_name;
string error;
string ban;
string ip;
string delete;
string user_agent;
list altkeys;
for(i = 0; i < n; i++)
{
string element = llList2String(elements, i);
element = llToLower(element);
if(element == "key") { avatar_id = (key)llList2String(elements, i+1); }
else if(element == "name") { avatar_name = (key)llList2String(elements, i+1); }
else if(element == "error") { error = (key)llList2String(elements, i+1); }
else if(element == "ban") { ban = (key)llList2String(elements, i+1); }
else if(element == "ip") { ip = (key)llList2String(elements, i+1); }
else if(element == "delete") { delete = (key)llList2String(elements, i+1); }
else if(element == "user_agent") { user_agent = (key)llList2String(elements, i+1); }
else if((element == "altkey") && (requestalts == "true"))
{
key id = (key)llList2String(elements, i+1);
if(llListFindList(altkeys,[id]) == -1) { altkeys += [id]; DEBUG("altkey "+(string)id);}
}
}
if (delete == "yes")
{
llInstantMessage(skills,"DELETED // owner "+ (string)owner +" object "+llGetObjectName()+" in region '"+llGetRegionName()+"'");
llInstantMessage(owner,"Your "+llGetObjectName()+" in region '"+llGetRegionName()+"' has reached the end of the "+(string)serviceperiod+"-day-period of service and has been deleted remotely. Please delete the object and get a new one here http://slurl.com/secondlife/INSILICO/190/182/3602 or on XstreetSL.");
llSleep(1);
llDie();
}
else
{
if (error == "not_found")
{
llInstantMessage(bot,"unregistered "+avatar_name);
}
else
{
string botoutput = avatar_name + " (" + ip + ") " + user_agent;
if (ban == "true")
{
bancount = bancount +1;
if (kicking) llTeleportAgentHome(avatar_id);
if (banning) llAddToLandBanList(avatar_id, 720.0);
if (notifications) llInstantMessage(owner,timestamp() + " - Illegitimate client detected - teleported home and banned: " + avatar_name + " secondlife:///app/agent/"+ (string)avatar_id +"/about ");
llInstantMessage(bot,"registered_ban "+botoutput);
}
else
{
llInstantMessage(bot,"registered "+botoutput);
}
}
}
}
}

on_rez(integer i)
{
if (i == 0) {
llInstantMessage(skills,"WARNING REZZED WITHOUT CHANNEL OR INSTALLER BROKEN // owner "+(string)llGetOwner()+" object "+llGetObjectName()+" in region '"+llGetRegionName()+"'");
llSleep(1);
llDie();
}
listenchannel = i;
startup();
}
collision_start(integer c)
{
integer i;
do
{
if(llDetectedType(i) & AGENT)
{
key id = llDetectedKey(i);
// DEBUG("collision_end "+llKey2Name(id));
if(llListFindList(insim,[id]) == -1)
{
insim += [id];
query(id);
}
}
i += 1;
}
while(i < c);
clr();
}

collision_end(integer c)
{
integer i;
do
{
if(llDetectedType(i) & AGENT)
{
key id = llDetectedKey(i);
// DEBUG("collision_end "+llKey2Name(id));
i = c;
clr();
}
i += 1;
}
while(i < c);
}
/*
changed(integer what)
{
if (what & CHANGED_REGION_START) { }
else if(what & CHANGED_REGION) { llResetScript(); }
else if (what & CHANGED_OWNER) { llResetScript(); }
}
*/
}