+
+chownr(dir)
+ char *dir;
+{
+ register DIR *dirp;
+ register struct direct *dp;
+ struct stat st;
+ char savedir[1024];
+ int ecode;
+
+ if (getwd(savedir) == 0)
+ fatal(255, "%s", savedir);
+ /*
+ * Change what we are given before doing its contents.
+ */
+ if (chown(dir, -1, gid) < 0 && Perror(dir))
+ return (1);
+ if (chdir(dir) < 0) {
+ Perror(dir);
+ return (1);
+ }
+ if ((dirp = opendir(".")) == NULL) {
+ Perror(dir);
+ return (1);
+ }
+ dp = readdir(dirp);
+ dp = readdir(dirp); /* read "." and ".." */
+ ecode = 0;
+ for (dp = readdir(dirp); dp != NULL; dp = readdir(dirp)) {
+ if (lstat(dp->d_name, &st) < 0) {
+ ecode = Perror(dp->d_name);
+ if (ecode)
+ break;
+ continue;
+ }
+ if (uid && uid != st.st_uid) {
+ ecode = error("You are not the owner of %s",
+ dp->d_name);
+ continue;
+ }
+ if ((st.st_mode & S_IFMT) == S_IFDIR) {
+ ecode = chownr(dp->d_name);
+ if (ecode)
+ break;
+ continue;
+ }
+ if (chown(dp->d_name, -1, gid) < 0 &&
+ (ecode = Perror(dp->d_name)))
+ break;
+ }
+ closedir(dirp);
+ if (chdir(savedir) < 0)
+ fatal(255, "can't change back to %s", savedir);
+ return (ecode);
+}
+
+error(fmt, a)
+ char *fmt, *a;
+{
+
+ if (!fflag) {
+ fprintf(stderr, "chgrp: ");
+ fprintf(stderr, fmt, a);
+ putc('\n', stderr);
+ }
+ return (!fflag);
+}
+
+fatal(status, fmt, a)
+ int status;
+ char *fmt, *a;
+{
+
+ fflag = 0;
+ (void) error(fmt, a);
+ exit(status);
+}
+
+Perror(s)
+ char *s;
+{
+
+ if (!fflag) {
+ fprintf(stderr, "chgrp: ");
+ perror(s);
+ }
+ return (!fflag);
+}