[pve-devel] r6352 - in pve-access-control/trunk: . PVE PVE/API2

[svn-commits at proxmox.com]

Author: dietmar
Date: 2011-07-22 09:48:56 +0200 (Fri, 22 Jul 2011)
New Revision: 6352

Modified:
   pve-access-control/trunk/ChangeLog
   pve-access-control/trunk/PVE/API2/Domains.pm
   pve-access-control/trunk/PVE/AccessControl.pm
Log:
bug fix: use lower case: s/AD/ad/ and s/LDAP/ldap/


Modified: pve-access-control/trunk/ChangeLog
===================================================================
--- pve-access-control/trunk/ChangeLog	2011-07-22 07:05:27 UTC (rev 6351)
+++ pve-access-control/trunk/ChangeLog	2011-07-22 07:48:56 UTC (rev 6352)
@@ -1,3 +1,10 @@
+2011-07-22  Proxmox Support Team  <support at proxmox.com>
+
+	* PVE/API2/Domains.pm (create): use lower case: s/AD/ad/ and
+	s/LDAP/ldap/
+
+	* PVE/AccessControl.pm (write_domains): use lc($type)
+
 2011-07-14  Proxmox Support Team  <support at proxmox.com>
 
 	* control.in (Depends): remove depend on liburi-perl (code moved

Modified: pve-access-control/trunk/PVE/API2/Domains.pm
===================================================================
--- pve-access-control/trunk/PVE/API2/Domains.pm	2011-07-22 07:05:27 UTC (rev 6351)
+++ pve-access-control/trunk/PVE/API2/Domains.pm	2011-07-22 07:48:56 UTC (rev 6352)
@@ -68,7 +68,7 @@
 	    type => {
 		description => "Server type.",
 		type => 'string', 
-		enum => [ 'AD', 'LDAP' ],
+		enum => [ 'ad', 'ldap' ],
 	    },
 	    server1 => { 
 		description => "Server IP address (or DNS name)",		

Modified: pve-access-control/trunk/PVE/AccessControl.pm
===================================================================
--- pve-access-control/trunk/PVE/AccessControl.pm	2011-07-22 07:05:27 UTC (rev 6351)
+++ pve-access-control/trunk/PVE/AccessControl.pm	2011-07-22 07:48:56 UTC (rev 6352)
@@ -889,7 +889,8 @@
 
     foreach my $realm (sort keys %$cfg) {
 	my $entry = $cfg->{$realm};
-	my $type = $entry->{type};
+	my $type = lc($entry->{type});
+
 	next if !$type;
 
 	next if ($type eq 'pam') || ($type eq 'pve');