Subversion Repositories DevTools

Rev

Rev 4011 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4011 Rev 7367
Line 56... Line 56...
56 
        if ( m~^#\s+owner:\s+(.*)~ );
 56 
        if ( m~^#\s+owner:\s+(.*)~ );
57 
    $group = $1
 57 
    $group = $1
58 
        if ( m~^#\s+group:\s+(.*)~ );
 58 
        if ( m~^#\s+group:\s+(.*)~ );
59 
     if ( m~^user:(.*?):(.*)~  ) {
 59 
     if ( m~^user:(.*?):(.*)~  ) {
60 
        $user = $1;
 60 
        $user = $1;
61 
        if ( $user ne '' && $user ne 'buildadm' ) {
 61 
        if ( $user ne '' && $user ne 'pkgadm' ) {
62 
            push @users, $user;
 62 
            push @users, $user;
63 
        }
 63 
        }
64 
    }
 64 
    }
65 
}
 65 
}
66 
close DIR;
 66 
close DIR;
Line 80... Line 80...
80 
{
 80 
{
81 
    return unless ( defined $file );
 81 
    return unless ( defined $file );
82 
    if ( @users ) {
 82 
    if ( @users ) {
83 
        printf("%-30s:%s\n", $file , join(' ', sort @users));
 83 
        printf("%-30s:%s\n", $file , join(' ', sort @users));
84 
    }
 84 
    }
85 
    if ( $owner ne 'buildadm' ) {
 85 
    if ( $owner ne 'pkgadm' ) {
86 
        print "$file : OWNER: $owner\n";
 86 
        print "$file : OWNER: $owner\n";
87 
    }
 87 
    }
88 
    if ( $group ne 'ccperdev' ) {
 88 
    if ( $group ne 'ccperdev' ) {
89 
        print "$file : GROUP: $group\n";
 89 
        print "$file : GROUP: $group\n";
90 
    }
 90 
    }