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 14:00:40 +00:00
parent 25608cc2b6
commit 031ae130a8
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
mycp/mycp
View file

@ -182,8 +182,6 @@ sub inperms($) {
my $mode = sprintf "%lo", $stats[2]; my $mode = sprintf "%lo", $stats[2];
$mode =~ s/.*(\d{4})$/$1/; $mode =~ s/.*(\d{4})$/$1/;
print "$mode:$user:$group:$fullname\n";
unless ( -f $permsfile ) { unless ( -f $permsfile ) {
open FH, ">$permsfile"; open FH, ">$permsfile";
print FH <<EOT; print FH <<EOT;
@ -192,8 +190,8 @@ sub inperms($) {
EOT EOT
close FH; close FH;
system("$cvscmd add $permsfile"); &cvsadd($permsfile);
system("$cvscmd ci -m initial $permsfile"); &checkin($permsfile);
} }
my $perms = &slurp($permsfile); my $perms = &slurp($permsfile);