1
0
Fork 0
mirror of git://git.psyced.org/git/psyced synced 2024-07-31 16:56:08 +00:00
psyced/place/indigestion.c
psyc://psyced.org/~lynX bdfae4e350 january 2009
2009-01-26 21:26:52 +01:00

21 lines
572 B
C
Executable file

#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;
}