From 031ae130a8f716f1367bae34bb835224a55395a3 Mon Sep 17 00:00:00 2001
From: Ward Wouts <ward@wouts.nl>
Date: Sun, 25 Jan 2004 14:00:40 +0000
Subject: [PATCH] minor fixes

---
 mycp/mycp | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

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