ward/publicscripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix perms regexpes

Browse source
This commit is contained in:
Ward Wouts 2004-01-25 16:25:32 +00:00
parent 4d56e4552d
commit ffef6ccb5d
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
mycp/mycp
View file

@ -201,11 +201,11 @@ EOT
my $perms = &slurp($permsfile); my $perms = &slurp($permsfile);
if ( $perms =~ /^(\d{4}):([^-:][^:]*):([^:]+?):$fullname$/mo ) { if ( $perms =~ /^(\d{4}):([^-:][^:]*):([^:]+?):($fullname)$/m ) {
if ( $1 eq $mode && $2 eq $user && $3 eq $group ) { if ( $1 eq $mode && $2 eq $user && $3 eq $group ) {
return 1; return 1;
} elsif ( $option{p} ){ } elsif ( $option{p} ){
$perms =~ s/^(\d{4}):([^-:][^:]*):([^:]+?):$fullname$/$mode:$user:$group:$fullname/o; $perms =~ s/^(\d{4}):([^-:][^:]*):([^:]+?):$fullname$/$mode:$user:$group:$fullname/m;
open(FH, ">>$permsfile"); open(FH, ">>$permsfile");
print FH $perms; print FH $perms;
close FH; close FH;