From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Thu, 9 Dec 2004 21:30:57 +0000 (+0000)
Subject: md5
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5e7175c4593dbaf95ed1db318f98dd7dab8836fb;p=infobot.git

md5


git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@1101 c11ca15a-4712-0410-83d8-924469b57eb5
---

diff --git a/blootbot/files/sample/blootbot.chan b/blootbot/files/sample/blootbot.chan
index fb8e67f..0d496b0 100644
--- a/blootbot/files/sample/blootbot.chan
+++ b/blootbot/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/blootbot/src/CommandStubs.pl b/blootbot/src/CommandStubs.pl
index 22983b9..0f2c5c8 100644
--- a/blootbot/src/CommandStubs.pl
+++ b/blootbot/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/blootbot/src/Modules/md5.pl b/blootbot/src/Modules/md5.pl
new file mode 100644
index 0000000..8b59b7c
--- /dev/null
+++ b/blootbot/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;