Revision: 7558
          http://sourceforge.net/p/ipcop/svn/7558
Author:   owes
Date:     2014-05-22 13:03:59 +0000 (Thu, 22 May 2014)
Log Message:
-----------
Open with hash parameter to set and use MD5. Without MD5 longer passwords (> 8 
characters) will fail.

Modified Paths:
--------------
    ipcop/trunk/html/cgi-bin/changepw.cgi
    ipcop/trunk/html/vhost81/cgi-bin/chpasswd.cgi
    ipcop/trunk/updates/2.1.6/ROOTFILES.i486-2.1.6

Modified: ipcop/trunk/html/cgi-bin/changepw.cgi
===================================================================
--- ipcop/trunk/html/cgi-bin/changepw.cgi       2014-05-21 16:48:48 UTC (rev 
7557)
+++ ipcop/trunk/html/cgi-bin/changepw.cgi       2014-05-22 13:03:59 UTC (rev 
7558)
@@ -58,7 +58,7 @@
             $error_admin  = 'error';
         }
         elsif (length($password1) >= 6) {
-            my $htpasswd = new Apache::Htpasswd('/var/ipcop/auth/users', 
UseMD5 => 1);
+            my $htpasswd = new Apache::Htpasswd({passwdFile => 
'/var/ipcop/auth/users', UseMD5 => 1});
             $htpasswd->htDelete('admin');
             if (!$htpasswd->htpasswd('admin', $cgiparams{'ADMIN_PASSWORD1'})) {
                 $errormessage = $Lang::tr{'errmsg change fail'};
@@ -88,7 +88,7 @@
             $error_dial   = 'error';
         }
         elsif (length($password1) >= 6) {
-            my $htpasswd = new Apache::Htpasswd('/var/ipcop/auth/users', 
UseMD5 => 1);
+            my $htpasswd = new Apache::Htpasswd({passwdFile => 
'/var/ipcop/auth/users', UseMD5 => 1});
             $htpasswd->htDelete('dial');
             if (!$htpasswd->htpasswd('dial', $cgiparams{'DIAL_PASSWORD1'})) {
                 $errormessage = $Lang::tr{'errmsg change fail'};

Modified: ipcop/trunk/html/vhost81/cgi-bin/chpasswd.cgi
===================================================================
--- ipcop/trunk/html/vhost81/cgi-bin/chpasswd.cgi       2014-05-21 16:48:48 UTC 
(rev 7557)
+++ ipcop/trunk/html/vhost81/cgi-bin/chpasswd.cgi       2014-05-22 13:03:59 UTC 
(rev 7558)
@@ -77,7 +77,7 @@
         goto ERROR;
     }
 
-    my $htpasswd = new Apache::Htpasswd($userdb);
+    my $htpasswd = new Apache::Htpasswd({passwdFile => $userdb, UseMD5 => 1});
     $cryptpwd = $htpasswd->fetchPass($cgiparams{'USERNAME'});
     if (!$cryptpwd) {
         $errormessage = $Lang::tr{'errmsg invalid user'};

Modified: ipcop/trunk/updates/2.1.6/ROOTFILES.i486-2.1.6
===================================================================
--- ipcop/trunk/updates/2.1.6/ROOTFILES.i486-2.1.6      2014-05-21 16:48:48 UTC 
(rev 7557)
+++ ipcop/trunk/updates/2.1.6/ROOTFILES.i486-2.1.6      2014-05-22 13:03:59 UTC 
(rev 7558)
@@ -9,6 +9,7 @@
 /home/httpd/cgi-bin/openvpn.cgi
 /home/httpd/cgi-bin/proxy.cgi
 /home/httpd/cgi-bin/vpnca.cgi
+/home/httpd/vhost81/cgi-bin/chpasswd.cgi
 /usr/lib/ipcop/DataAccess.pl
 /usr/local/bin/puzzleFwRules.pl
 /usr/local/bin/restarthttpd

This was sent by the SourceForge.net collaborative development platform, the 
world's largest Open Source development site.


------------------------------------------------------------------------------
"Accelerate Dev Cycles with Automated Cross-Browser Testing - For FREE
Instantly run your Selenium tests across 300+ browser/OS combos.
Get unparalleled scalability from the best Selenium testing platform available
Simple to use. Nothing to install. Get started now for free."
http://p.sf.net/sfu/SauceLabs
_______________________________________________
Ipcop-svn mailing list
Ipcop-svn@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/ipcop-svn

Reply via email to