Changeset 494 for server/common

Timestamp:

Oct 16, 2007, 9:07:49 PM (18 years ago)

Author:

quentin

Message:

Allow system:scripts-root to connect to any user account.

File:

• server/common/oursrc/accountadm/admof.in (modified) (2 diffs)

server/common/oursrc/accountadm/admof.in

@@ +1 @@
+
 #!/usr/bin/perl
 use strict;
@@ -74 +75 @@
 }
 
-while(<LISTACL>) {
+my @targetacl = <LISTACL>;
+push(@targetacl, "  system:scripts-root rlidwka");
+
+close LISTACL;
+
+foreach(@targetacl) {
   last unless /^  /;
   my ($name) = /^  ([\w:_.-]+) \w*a\w*$/ or next;