From 7905613e417ae1c2c44612a938ee7f595a6a0417 Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Thu, 9 Dec 2004 21:30:57 +0000
Subject: [PATCH] md5

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@1101 c11ca15a-4712-0410-83d8-924469b57eb5
---
 files/sample/blootbot.chan |  3 ++-
 src/CommandStubs.pl        |  3 +++
 src/Modules/md5.pl         | 19 +++++++++++++++++++
 3 files changed, 24 insertions(+), 1 deletion(-)
 create mode 100644 src/Modules/md5.pl

diff --git a/files/sample/blootbot.chan b/files/sample/blootbot.chan
index fb8e67f..0d496b0 100644
--- a/files/sample/blootbot.chan
+++ b/files/sample/blootbot.chan
@@ -1,4 +1,4 @@
-#v1: blootbot -- blootbot -- written Thu Dec  9 19:57:51 2004
+#v1: blootbot -- blootbot -- written Thu Dec  9 21:27:25 2004
 
 #botpark
     +RootWarn
@@ -59,6 +59,7 @@ _default
     +lart
     +limitcheck
     +log
+    +md5
     +nickometer
     +page
     randomFactoidInterval 60
diff --git a/src/CommandStubs.pl b/src/CommandStubs.pl
index 22983b9..0f2c5c8 100644
--- a/src/CommandStubs.pl
+++ b/src/CommandStubs.pl
@@ -259,6 +259,9 @@ sub parseCmdHook {
 &addCmdHook("extra", 'scramble', ('CODEREF' => 'scramble::scramble',
 	'Identifier' => 'scramble', 'Cmdstats' => 'scramble',
 	'Forker' => 1) );
+&addCmdHook("extra", 'md5(sum)?', ('CODEREF' => 'md5::md5',
+	'Identifier' => 'md5', 'Cmdstats' => 'md5',
+	'Forker' => 1) );
 &addCmdHook("extra", 'Rss', ('CODEREF' => 'Rss::Rss',
 	'Identifier' => 'Rss', 'Cmdstats' => 'Rss',
 	'Forker' => 1, 'Help' => 'rss') );
diff --git a/src/Modules/md5.pl b/src/Modules/md5.pl
new file mode 100644
index 0000000..8b59b7c
--- /dev/null
+++ b/src/Modules/md5.pl
@@ -0,0 +1,19 @@
+#       md5.pl: md5 a string
+#       Author: Tim Riker
+#    Licensing: Artistic License
+#      Version: v0.1 (20041209)
+#
+use strict;
+
+package md5;
+
+sub md5 {
+    my($message) = @_;
+    return unless &::loadPerlModule("Digest::MD5");
+
+#perl -e'use Digest::MD5 qw(md5_hex); print md5_hex("foo\n") . "\n";'
+
+    &::pSReply(&Digest::MD5::md5_hex($message));
+}
+
+1;
-- 
2.39.5