Monday, November 08, 2010 at 12:01 AM.

---

system.verbs.apps.Eudora.examples.formResponse

on formResponse (templatename) {
	local (text = string (user.Eudora.templates.[templatename]));
	
	local (x = Eudora.getCurrentMessageObject ());
	local (subject = Eudora.getMessageSubject (x));
	local (sender = Eudora.getMessageSender (x));
	local (sentat = Eudora.getMessageDate (x));
	
	local (greetings);
	bundle { <<set greetings string
		local (day, month, year, hour, minute, second);
		date.get (clock.now (), @day, @month, @year, @hour, @minute, @second);
		if hour < 12 {
			s = "Morning"}
		else {
			if hour < 19 {
				s = "Afternoon"}
			else {
				s = "Evening"}};
		greetings = "Good " + s};
	
	text = string.replaceAll (text, "<greetings>", greetings);
	text = string.replaceAll (text, "<subject>", subject);
	text = string.replaceAll (text, "<date>", sentat);
	text = string.replaceAll (text, "<user>", user.prefs.name);
	text = string.replaceAll (text, "<org>", user.prefs.organization);
	
	text = Eudora.ucmds.massageText (0, 60, text);
	
	if not (subject beginsWith "Re:") {
		subject = "Re: " + subject};
	
	Eudora.newOutgoingMessage (sender, user.prefs.mailaddress, subject, text)}

---

This listing is for code that runs in the OPML Editor environment. I created these listings because I wanted the search engines to index it, so that when I want to look up something in my codebase I don't have to use the much slower search functionality in my object database. Dave Winer.