md5

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

diff --git a/files/sample/blootbot.chan b/files/sample/blootbot.chan
index fb8e67fb4c86a0cf6f4c787a08e4a32cb9f332f6..0d496b0d312591576a08cdbb356a94c683af63bf 100644 (file)
--- 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 22983b9f87fe3394afb91aff96d7783838d248d7..0f2c5c86b579bf3614f8d2351a3cea9029f8cdbc 100644 (file)
--- 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 (file)
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;