[pve-devel] r4988 - pve-access-control/trunk

[svn-commits at proxmox.com]

Author: dietmar
Date: 2010-08-12 13:07:15 +0000 (Thu, 12 Aug 2010)
New Revision: 4988

Modified:
   pve-access-control/trunk/AccessControl.pm
   pve-access-control/trunk/ChangeLog
Log:
cleanups


Modified: pve-access-control/trunk/AccessControl.pm
===================================================================
--- pve-access-control/trunk/AccessControl.pm	2010-08-12 13:03:55 UTC (rev 4987)
+++ pve-access-control/trunk/AccessControl.pm	2010-08-12 13:07:15 UTC (rev 4988)
@@ -437,50 +437,6 @@
 
 }
 
-sub add_group {
-
-    my ($group) = @_;
-
-    lock_user_config(sub {
-    
-	my $usercfg = read_file($userconfigpath);
-
-	verify_groupname($group);
-	
-	die "group '$group' already exists\n" 
-	    if $usercfg->{groups}->{$group};
-
-	$usercfg->{groups}->{$group} = {};
-
-	write_file($userconfigpath, $usercfg);
-    });
-
-    my $err = $@;
-
-    die "add group failed: $err" if $err;
-}
-
-sub delete_group {
-    
-    my ($group) = @_;
-
-    lock_user_config(sub {
-
-	verify_groupname($group);
-
-	my $usercfg = read_file($userconfigpath);
-
-	delete ($usercfg->{groups}->{$group})
-	    if $usercfg->{groups}->{$group};
-
-	write_file($userconfigpath, $usercfg);
-    });
-
-    my $err = $@;
-
-    die "delete group failed: $err" if $err;
-}
-
 sub modify_acl {
 
     my ($pathtxt, $uglist, $rolelist, $opts) = @_;

Modified: pve-access-control/trunk/ChangeLog
===================================================================
--- pve-access-control/trunk/ChangeLog	2010-08-12 13:03:55 UTC (rev 4987)
+++ pve-access-control/trunk/ChangeLog	2010-08-12 13:07:15 UTC (rev 4988)
@@ -1,5 +1,8 @@
 2010-08-12  Proxmox Support Team  <support at proxmox.com>
 
+	* AccessControl.pm (add_group): moved to Group.pm
+	(delete_group): moved to Group.pm
+
 	* User.pm: strict error checking - use 'die' instead of 'warn'
 
 	* User.pm (delete_user): raise error when user does not exist.