Email-to-IM - Revision history

ObviousAltIsObvious Resident: tag to

2015-01-25T03:10:11Z

← Older revision		Revision as of 20:10, 24 January 2015
Line 6:		Line 6:

	You are welcome to correct, add features or otherwise improve the script.		You are welcome to correct, add features or otherwise improve the script.
	<~~lsl~~>		<source lang="lsl2">
	// Email-to-IM		// Email-to-IM
	// DoteDote Edison		// DoteDote Edison
Line 82:		Line 82:
	}		}
	}		}
	</~~lsl~~>		</source>

	{{LSLC\|Library}}		{{LSLC\|Library}}
	[[category:LSL Email]]		[[category:LSL Email]]

Opensource Obscure: added to LSL Email category

2011-03-06T13:06:40Z

added to LSL Email category

Show changes

Elite Runner at 23:39, 5 March 2011

2011-03-05T23:39:07Z

← Older revision		Revision as of 16:39, 5 March 2011
Line 7:		Line 7:
	You are welcome to correct, add features or otherwise improve the script.		You are welcome to correct, add features or otherwise improve the script.

	UPDATED ON 2011.03.03-Th BY ELITE RUNNER		UPDATED ON 2011.03.05-Sa BY ELITE RUNNER
	~~LATEST~~ UPDATE: Improved date/time readout, improved output
			PREVIOUS UPDATE(S):
			Improved date/time readout, improved output

			LATEST UPDATE:
			CODE CLEAN-UP AND ADDED TIMEZONE FEATURE
	<lsl>		<lsl>
	~~integer timezone =~~ -8; //~~Change to~~ -~~7 if DST is present~~		//E-MAIL TO IM SCRIPT v2.1
			//UPDATED/MODIFIED BY ELITE RUNNER - ELITE 3000 SECOND LIFE UNIT
			//DISTRIBUTED AS GPL
			//CREDITS TO FLENNAN ROFFO FOR UNIX2DATETIME
			//ORIGINAL SCRIPT BY DoteDote Edison

	integer DAYS_PER_YEAR = 365;		integer DAYS_PER_YEAR = 365;
	integer SECONDS_PER_YEAR = 31536000;		integer SECONDS_PER_YEAR = 31536000;
Line 86:		Line 96:
	else		else
	return DAYS_PER_YEAR;		return DAYS_PER_YEAR;
	}		}
	list Unix2DateTime(string time)		list Unix2DateTime(string time, float timezone)
	{		{
	integer time2 = (integer)time;		integer time2 = (integer)time;
	integer days_since_1_1_1970 = (time2+(~~timezone~~*3600)) / SECONDS_PER_DAY;		integer tz = (integer)timezone;
			integer days_since_1_1_1970 = (time2+(tz*3600)) / SECONDS_PER_DAY;
	integer day2 = days_since_1_1_1970 + 1;		integer day2 = days_since_1_1_1970 + 1;
	integer year = 1970;		integer year = 1970;
Line 118:		Line 129:
	}		}

	integer seconds_since_midnight = (time2+(~~timezone~~*3600)) % SECONDS_PER_DAY;		integer seconds_since_midnight = (time2+(tz*3600)) % SECONDS_PER_DAY;
	integer hour24 = seconds_since_midnight / SECONDS_PER_HOUR;		integer hour24 = seconds_since_midnight / SECONDS_PER_HOUR;
	integer second = seconds_since_midnight % SECONDS_PER_HOUR;		integer second = seconds_since_midnight % SECONDS_PER_HOUR;
Line 158:		Line 169:
	return hourstr + ":" + minutestr + ":" + secondstr + apm;		return hourstr + ":" + minutestr + ":" + secondstr + apm;
	}		}
	string weekdayname( string time){		string weekdayname( string time, float timezone){
	float timetick = ((float)time/86400)+(~~(float)~~timezone/24);		float timetick = ((float)time/86400)+(timezone/24);
	integer weekdaynumber = llFloor(timetick)%7;		integer weekdaynumber = llFloor(timetick)%7;
	list weekdays = ["Th","Fr","Sa","Su","Mo","Tu","We"];		list weekdays = ["Th","Fr","Sa","Su","Mo","Tu","We"];
Line 165:		Line 176:
	return weekday;		return weekday;
	}		}

	~~key request;~~
	key owner;		key owner;
	~~integer owner_online;~~

	default {		default {
Line 174:		Line 182:
	owner = llGetOwner();		owner = llGetOwner();
	string address = (string)llGetKey() + "@lsl.secondlife.com";		string address = (string)llGetKey() + "@lsl.secondlife.com";
	llSetText("Email Server\nOnline", <0.25, 1.0, 0.25>, 1.0);		llSetText(llKey2Name(owner)+"'s Email Server\nOnline", <0.25, 1.0, 0.25>, 1.0);
	llOwnerSay("Now online. The Email-to-IM address for " + llKey2Name(owner) + " is:\n" + address);		llOwnerSay("Now online. The Email-to-IM address for " + llKey2Name(owner) + " is:\n" + address);
	llSetTimerEvent(30);		llSetTimerEvent(30);
Line 184:		Line 192:
	if (llDetectedKey(0) == owner) state off;		if (llDetectedKey(0) == owner) state off;
	}		}

			//CHANGE THE NUMBER -8 OR -5 TO CHOOSE YOUR TIMEZONE OFFSET FROM UTC IN HOURS AND CHANGE
			//TIMEZONE ABBREVIATION OR CITY NAME IF NEEDED
			//TO UTC (0), CET (-1), HK (Hong Kong) (8), CST (-6), TOK (Tokyo) -9, ETC
			//PLEASE SEE http://www.timeanddate.com FOR TIME LISTINGS AROUND THE WORLD
			//SUBTRACT VALUE BY 1 IF DAYLIGHT SAVING/SUMMER TIME IS PRESENT AND CHANGE
			//ABBREVIATION TO EDT, CDT, MDT, PDT, CEST, BST, ETC

	email(string time, string sender, string subject, string body, integer num_remain) {		email(string time, string sender, string subject, string body, integer num_remain) {
	llInstantMessage(owner, "From: "+sender +"\n \n Time/Date: \n " + DateString(Unix2DateTime(time))+"-"+weekdayname(time) +		llInstantMessage(owner, "From: "+sender +"\n \n Time/Date: \n"+ DateString(Unix2DateTime(time,-8))+"-"+weekdayname(time,-8) +
	"\n"+ TimeString(Unix2DateTime(time))+"~~SLT~~ \n \n Subject:"+subject+"\n \n Message: \n "+body+" \n ---------------");		" "+ TimeString(Unix2DateTime(time,-8))+"SLT \n "+
			DateString(Unix2DateTime(time,-5))+"-"+weekdayname(time,-5) +
			" "+ TimeString(Unix2DateTime(time,-5))+"EST \n \n Subject:"+subject+"\n \n Message: \n "+body+" \n ---------------");
	if (num_remain > 0) llGetNextEmail("", "");		if (num_remain > 0) llGetNextEmail("", "");
	}
	~~dataserver(key query, string data) {~~
	~~if (query == request) {~~
	~~request = "";~~
	~~if (data == "1") {~~
	~~owner_online = TRUE;~~
	~~llSetTimerEvent(30);~~
	}
	~~else {~~
	~~owner_online = FALSE;~~
	~~llSetTimerEvent(60);~~
	}
	}
	}		}
	timer() {		timer() {
	~~request = llRequestAgentData(owner, DATA_ONLINE);~~		llGetNextEmail("", "");
	~~if (owner_online)~~ llGetNextEmail("", "");
	}		}
	state_exit() {		state_exit() {
	llSetTimerEvent(0.0);		llSetTimerEvent(0.0);
	llSetText("Email Server\nOffline", <1.0, 0.25, 0.25>, 1.0);		llSetText(llKey2Name(owner)+"'s Email Server\nOffline", <1.0, 0.25, 0.25>, 1.0);
	}		}
	}		}

Elite Runner at 06:48, 4 March 2011

2011-03-04T06:48:18Z

Show changes

Uzume Grigorovich: lsl code tagging

2008-03-31T05:21:05Z

lsl code tagging

← Older revision		Revision as of 22:21, 30 March 2008
Line 6:		Line 6:

	You are welcome to correct, add features or otherwise improve the script.		You are welcome to correct, add features or otherwise improve the script.
	<~~PRE~~>		<lsl>
	// Email-to-IM		// Email-to-IM
	// DoteDote Edison		// DoteDote Edison
Line 82:		Line 82:
	}		}
	}		}
	</~~PRE~~>		</lsl>

	{{LSLC\|Library}}		{{LSLC\|Library}}

Xaviar Czervik: Added to Library

2007-05-16T04:20:23Z

Added to Library

← Older revision		Revision as of 21:20, 15 May 2007
Line 83:		Line 83:
	}		}
	</PRE>		</PRE>

			{{LSLC\|Library}}

DoteDote Edison at 02:42, 3 April 2007

2007-04-03T02:42:05Z

New page

{{LSL Header}}
==Email-to-IM==
This is a basic script to translate emails into IMs. When initiated, the script says an email address, which is the [[UUID]] for the [[prim]] containing the script along with the lsl email domain. The body of any email sent to the address will be relayed as an object IM to the owner in SL. And a timestamp is included which is the time LL received the email (as opposed to the time the email is transmitted via IM).

The prim containing this script must have a stable UUID for longterm continued usage. This means, the object can not be taken into inventory and re-rezed.

You are welcome to correct, add features or otherwise improve the script.
<PRE>
// Email-to-IM
// DoteDote Edison

///////// constants /////////
// how often to check for new email when owner is online (seconds)
float FAST = 60.0;
// how often to check owner online status when owner is offline (seconds)
float SLOW = 300.0;
// timezone offset from UTC
integer OFFSET = -4;

////////// globals //////////
key request;
key owner;
integer owner_online;

string GetStamp(string time) {
list weekdays = ["THU", "FRI", "SAT", "SUN", "MON", "TUE", "WED"];
integer a = (integer)time + (OFFSET*3600);
integer hours = a/3600;
integer mins = a/60;
string day = llList2String(weekdays, (hours/24)%7);
return (string)(hours%24) + ":" + (string)(mins%60) + " " + day;
}

default {
state_entry() {
owner = llGetOwner();
string address = (string)llGetKey() + "@lsl.secondlife.com";
llSetText("Email Server\nOnline", <0.25, 1.0, 0.25>, 1.0);
llOwnerSay("Now online. The Email-to-IM address for " + llKey2Name(owner) + " is:\n" + address);
llSetTimerEvent(FAST);
}
on_rez(integer start_param) {
llResetScript();
}
touch_start(integer num_detect) {
if (llDetectedKey(0) == owner) state off;
}
email(string time, string sender, string subject, string body, integer num_remain) {
llInstantMessage(owner, "Email Received from: " + sender + " -- " + GetStamp(time));
llInstantMessage(owner, body);
if (num_remain > 0) llGetNextEmail("", "");
}
dataserver(key query, string data) {
if (query == request) {
request = "";
if (data == "1") {
owner_online = TRUE;
llSetTimerEvent(FAST);
}
else {
owner_online = FALSE;
llSetTimerEvent(SLOW);
}
}
}
timer() {
request = llRequestAgentData(owner, DATA_ONLINE);
if (owner_online) llGetNextEmail("", "");
}
state_exit() {
llSetTimerEvent(0.0);
llSetText("Email Server\nOffline", <1.0, 0.25, 0.25>, 1.0);
}
}

state off {
touch_start(integer num_detect) {
if (llDetectedKey(0) == owner) state default;
}
on_rez(integer start_param) {
llResetScript();
}
}
</PRE>