mirror of git://git.psyced.org/git/psyced
70 lines
2.1 KiB
C
70 lines
2.1 KiB
C
// $Id: mailcast.c,v 1.7 2008/01/05 12:42:17 lynx Exp $
|
|
|
|
#include <net.h>
|
|
#include <person.h>
|
|
#include <status.h>
|
|
|
|
inherit NET_PATH "place/basic";
|
|
|
|
// noch nicht ganz klar ob das nicht einfach ein job der /history ist..
|
|
// und wir ganz generell hin und wieder mehrfache histories brauchen
|
|
//
|
|
array(mapping) mails = ({ });
|
|
//
|
|
// wieviele mails sollen gespeichert bleiben?
|
|
// ...waer gut, wenn man das im raumfile definieren koennt und hier bleibts..
|
|
//
|
|
#ifndef _limit_amount_history_mailcast
|
|
#define _limit_amount_history_mailcast 7
|
|
#endif
|
|
|
|
msg(source, mc, data, mapping vars) {
|
|
if (abbrev("_notice_email_delivered", mc)) {
|
|
// eine _notice_email_delivered wird im server-fenster angezeigt, nicht im raum..
|
|
// naja, der raum ist eh nicht zum chatten da..
|
|
// net/irc sollte das problem geschickter lösen dann..
|
|
// und nicht hier sowas komisches da:
|
|
castmsg(source, "_message_public_mail",
|
|
vars["_subject"]+":\n"+vars["_content"],
|
|
vars);
|
|
if (sizeof(mails) >= _limit_amount_history_mailcast) {
|
|
mails[0] = 0;
|
|
mails -= ({ 0 });
|
|
}
|
|
mails += ({ ([
|
|
"_source" : source,
|
|
"_subject" : vars["_subject"],
|
|
"_content" : vars["_content"]
|
|
]) });
|
|
save();
|
|
return;
|
|
}
|
|
return ::msg(source, mc, data, vars);
|
|
}
|
|
|
|
htget(prot, query, headers, qs, data, noprocess) {
|
|
htok(prot);
|
|
|
|
#ifndef STYLESHEET
|
|
# define STYLESHEET (v("_uniform_style") || "http://www.psyced.org/mail.css")
|
|
#endif
|
|
write("<link rel='stylesheet' type='text/css' href='"+
|
|
STYLESHEET +"'>\n");
|
|
|
|
// typically use textdb here to obtain different layouts
|
|
//
|
|
// write("<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n"
|
|
// " <tr>\n <td>Source</td>\n <td>Subject</td>\n <td>Content</td>\n </tr>\n");
|
|
for (int i=sizeof(mails)-1; i>=0; i--) {
|
|
mapping mail = mails[i];
|
|
string t = htquote(mail["_content"]);
|
|
t = replace(t, "\n", "<br/>\n");
|
|
|
|
// write(" <tr>\n <td>"+ mail["_source"] +"</td>\n <td>"+ mail["_subject"] +"</td>\n <td>"+ t +"</td>\n </tr>\n");
|
|
write("<ul>\n<li>"+ mail["_source"] +"</li>\n<li>"+ mail["_subject"] +"</li>\n<li>"+ t +"</li>\n</ul>\n");
|
|
}
|
|
// write("</table>");
|
|
return 1;
|
|
}
|
|
|