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

minor fixes

Browse source
This commit is contained in:
Ward Wouts 2004-01-25 13:50:42 +00:00
parent 78768a35fe
commit d0676d1896
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
mycp/mycp
View file

@ -183,7 +183,6 @@ sub inperms($) {
$mode =~ s/.*(\d{4})$/$1/; $mode =~ s/.*(\d{4})$/$1/;
print "$mode:$user:$group:$fullname\n"; print "$mode:$user:$group:$fullname\n";
exit;
unless ( -f $permsfile ) { unless ( -f $permsfile ) {
print <<EOT; print <<EOT;
@ -201,7 +200,7 @@ EOT
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:$filename/o; $perms =~ s/^(\d{4}):([^-:][^:]*):([^:]+?):$fullname$/$mode:$user:$group:$fullname/o;
open(FH, ">>$permsfile"); open(FH, ">>$permsfile");
print FH $perms; print FH $perms;
close FH; close FH;