From: Victor Wagner <vitus@wagner.pp.ru>
Date: Tue, 18 Mar 2008 21:44:04 +0000 (+0000)
Subject: fixed typo
X-Git-Url: http://www.wagner.pp.ru/gitweb/?p=oss%2Fstilllife.git;a=commitdiff_plain;h=f5b8e195f7fea3b8a3b1886a1e96f912b3198460

fixed typo
---

diff --git a/forum/forum b/forum/forum
index cecacc3..3407034 100755
--- a/forum/forum
+++ b/forum/forum
@@ -463,8 +463,8 @@ sub register {
 	}
 	my $saltstring = 'ABCDEFGHIJKLMNOPQRSTUVWXUZabcdefghijklmnopqrstuvwxuz0123456789./';
 	my $salt = substr($saltstring,int(rand(64)),1).
-				substr($altstring,int(rand(64)),1);
-	my $password=crypt($cgi->param("pass1",$salt));			
+				substr($saltstring,int(rand(64)),1);
+	my $password=crypt($cgi->param("pass1"),$salt);			
 	my $userinfo = {passwd=>$password};
 	# Удаляем лишние поля
 	$cgi->delete("required");