From b82b8af408fca57df6ac274e76aa81ac9ce0c57d Mon Sep 17 00:00:00 2001
From: cajus <cajus@594d385d-05f5-0310-b6e9-bd551577e9d8>
Date: Fri, 30 Mar 2007 06:11:36 +0000
Subject: [PATCH] Added missing backslash for perl mkntpasswd generation.

git-svn-id: https://oss.gonicus.de/repositories/gosa/branches/2.5@5932 594d385d-05f5-0310-b6e9-bd551577e9d8
---
 Changelog                   | 2 ++
 include/functions_setup.inc | 4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/Changelog b/Changelog
index 42e0fb1ae..3cd4ce031 100644
--- a/Changelog
+++ b/Changelog
@@ -6,6 +6,8 @@ GOsa2 changelog
   - Included vacation date range specification
   - Fixed non-saved Samba-Domain changes in groups
   - Freezed application parameters are not editable anymore
+  - Fixed problem with removing commata based DN's
+  - Corrected setup generated perl mkntpasswd string
 
 * gosa 2.5.9
   - Fixed ldap tls connections when schema check was being used
diff --git a/include/functions_setup.inc b/include/functions_setup.inc
index 0db0df0d2..3cd14af18 100644
--- a/include/functions_setup.inc
+++ b/include/functions_setup.inc
@@ -420,7 +420,7 @@ function perform_additional_checks(&$faults)
   $alt = 0;
 
   if (!$have_mkntpwd){
-    $query= 'LC_ALL=C LANG=C perl -MCrypt::SmbHash -e "print join(q[:], ntlmgen $ARGV[0]), $/;" &>/dev/null';
+    $query= 'LC_ALL=C LANG=C perl -MCrypt::SmbHash -e "print join(q[:], ntlmgen \$ARGV[0]), $/;" &>/dev/null';
     system ($query, $ret);
     $alt= ($ret == 0);
   }
@@ -505,7 +505,7 @@ function parse_contrib_conf()
   } elseif (preg_match("/^Usage: mkntpwd /", shell_exec ("mkntpwd 2>&1"))){
     $pwdhash= "mkntpwd";
   } else {
-    $pwdhash= 'perl -MCrypt::SmbHash -e "print join(q[:], ntlmgen $ARGV[0]), $/;"';
+    $pwdhash= 'perl -MCrypt::SmbHash -e "print join(q[:], ntlmgen \$ARGV[0]), $/;"';
   }
 
 
-- 
2.30.2