From 507db1a6df019db154b4771f602127b24d546df7 Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Thu, 8 Mar 2007 18:46:10 +0000
Subject: [PATCH] simplify

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@1306 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/UserExtra.pl | 30 +++++-------------------------
 1 file changed, 5 insertions(+), 25 deletions(-)

diff --git a/src/UserExtra.pl b/src/UserExtra.pl
index bd885cc..b139ad6 100644
--- a/src/UserExtra.pl
+++ b/src/UserExtra.pl
@@ -442,33 +442,13 @@ sub userCommands {
     }
 
     # crypt.
-    if ($message =~ /^crypt(\s+(.*))?$/i) {
-	# Sorry, its messy, but it seems to work now. Added $salt and $ciphertext -- troubled
-	my $salt;
-	my $ciphertext;
-	($salt, $ciphertext) = split /\s+(.*)$/, $2;
-	my @args	= split /\s+/, $2;
-
-	# Original was > 2 and thus only allowed 1 word to be passed to crypt.
-	# Although now it will crypt to random salt if only 1 param -- troubled
-	if (!scalar @args or scalar @args < 1) {
-	    &help("crypt");
-	    return;
-	}
-
-	if (scalar @args >= 2) {
-# disable cause $1$ will use md5
-#	    if (length $args[0] != 2) {
-#		&msg($who, "invalid format...");
-#		return;
-#	    }
-
-	    &performStrictReply( crypt($ciphertext, $salt) );
+    if ($message =~ /^crypt\s+(\S*)?\s*(.*)?$/i) {
+&status("crypt: $1:$2:$3");
+	if ("$2" ne '') {
+	    &performStrictReply(crypt($2, $1));
 	} else {
-	# When does this get called now since above commented out? -- troubled
-	    &performStrictReply( &mkcrypt($args[0]) );
+	    &performStrictReply(&mkcrypt($1));
 	}
-
 	return;
     }
 
-- 
2.39.2