psyced/place/indigestion.c

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