1
0
Fork 0
mirror of git://git.psyced.org/git/psyced synced 2024-08-15 03:25:10 +00:00
psyced/place/indigestion.c
psyc://psyced.org/~lynX 47395d9962 the spiegel is broken
2009-01-27 22:42:29 +01:00

20 lines
572 B
C

#include <place.gen>
msg(source, mc, data, mapping vars) {
int rc = ::msg(source, mc, data, vars);
if (abbrev("_message", mc) && stringp(data)) {
#if __EFUN_DEFINED__(crypt)
castmsg(ME, "_notice_digest_crypt",
"\tcrypt: [_text_crypt]", ([ "_text_crypt" : md5(data) ]) );
#endif
#if __EFUN_DEFINED__(md5)
castmsg(ME, "_notice_digest_md5",
"\t MD5: [_text_md5]", ([ "_text_md5" : md5(data) ]) );
#endif
#if __EFUN_DEFINED__(sha1)
castmsg(ME, "_notice_digest_sha1",
"\t SHA1: [_text_sha1]", ([ "_text_sha1" : sha1(data) ]) );
#endif
}
return rc;
}