Changeset 494 for server/common


Ignore:
Timestamp:
Oct 16, 2007, 9:07:49 PM (15 years ago)
Author:
quentin
Message:
Allow system:scripts-root to connect to any user account.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • server/common/oursrc/accountadm/admof.in

    r450 r494  
     1
    12#!/usr/bin/perl
    23use strict;
     
    7475}
    7576
    76 while(<LISTACL>) {
     77my @targetacl = <LISTACL>;
     78push(@targetacl, "  system:scripts-root rlidwka");
     79
     80close LISTACL;
     81
     82foreach(@targetacl) {
    7783  last unless /^  /;
    7884  my ($name) = /^  ([\w:_.-]+) \w*a\w*$/ or next;
Note: See TracChangeset for help on using the changeset viewer.