Import of slightly trimmed cvs-1.8 distribution. Generated files

and non-unix code has been left out.

1 files changed, 168 insertions, 0 deletions

diff --git a/contrib/cvs/src/admin.c b/contrib/cvs/src/admin.c
new file mode 100644
index 0000000..214318a
--- /dev/null
+++ b/contrib/cvs/src/admin.c
@@ -0,0 +1,168 @@
+/*
+ * Copyright (c) 1992, Brian Berliner and Jeff Polk
+ * Copyright (c) 1989-1992, Brian Berliner
+ * 
+ * You may distribute under the terms of the GNU General Public License as
+ * specified in the README file that comes with the CVS 1.4 kit.
+ * 
+ * Administration
+ * 
+ * For now, this is basically a front end for rcs.  All options are passed
+ * directly on.
+ */
+
+#include "cvs.h"
+#ifdef CVS_ADMIN_GROUP
+#include <grp.h>
+#endif
+
+static Dtype admin_dirproc PROTO((char *dir, char *repos, char *update_dir));
+static int admin_fileproc PROTO((struct file_info *finfo));
+
+static const char *const admin_usage[] =
+{
+    "Usage: %s %s rcs-options files...\n",
+    NULL
+};
+
+static int ac;
+static char **av;
+
+int
+admin (argc, argv)
+    int argc;
+    char **argv;
+{
+    int err;
+#ifdef CVS_ADMIN_GROUP
+    struct group *grp;
+#endif
+    if (argc <= 1)
+	usage (admin_usage);
+
+#ifdef CVS_ADMIN_GROUP
+    grp = getgrnam(CVS_ADMIN_GROUP);
+     /* skip usage right check if group CVS_ADMIN_GROUP does not exist */
+    if (grp != NULL)
+    {
+	char *me = getcaller();
+	char **grnam = grp->gr_mem;
+	int denied = 1;
+	
+	while (*grnam)
+	{
+	    if (strcmp(*grnam, me) == 0) 
+	    {
+		denied = 0;
+		break;
+	    }
+	    grnam++;
+	}
+
+	if (denied)
+	    error (1, 0, "usage is restricted to members of the group %s",
+		   CVS_ADMIN_GROUP);
+    }
+#endif
+
+    wrap_setup ();
+
+    /* skip all optional arguments to see if we have any file names */
+    for (ac = 1; ac < argc; ac++)
+	if (argv[ac][0] != '-')
+	    break;
+    argc -= ac;
+    av = argv + 1;
+    argv += ac;
+    ac--;
+    if (ac == 0 || argc == 0)
+	usage (admin_usage);
+
+#ifdef CLIENT_SUPPORT
+    if (client_active)
+    {
+	int i;
+
+	/* We're the client side.  Fire up the remote server.  */
+	start_server ();
+	
+	ign_setup ();
+
+	for (i = 0; i <= ac; ++i)	/* XXX send -ko too with i = 0 */
+	    send_arg (av[i]);
+
+	send_file_names (argc, argv, SEND_EXPAND_WILD);
+	/* FIXME:  We shouldn't have to send current files, but I'm not sure
+	   whether it works.  So send the files --
+	   it's slower but it works.  */
+	send_files (argc, argv, 0, 0);
+	send_to_server ("admin\012", 0);
+        return get_responses_and_close ();
+    }
+#endif /* CLIENT_SUPPORT */
+
+    /* start the recursion processor */
+    err = start_recursion (admin_fileproc, (FILESDONEPROC) NULL, admin_dirproc,
+			   (DIRLEAVEPROC) NULL, argc, argv, 0,
+			   W_LOCAL, 0, 1, (char *) NULL, 1, 0);
+    return (err);
+}
+
+/*
+ * Called to run "rcs" on a particular file.
+ */
+/* ARGSUSED */
+static int
+admin_fileproc (finfo)
+    struct file_info *finfo;
+{
+    Vers_TS *vers;
+    char *version;
+    char **argv;
+    int argc;
+    int retcode = 0;
+    int status = 0;
+
+    vers = Version_TS (finfo->repository, (char *) NULL, (char *) NULL, (char *) NULL,
+		       finfo->file, 0, 0, finfo->entries, finfo->rcs);
+
+    version = vers->vn_user;
+    if (version == NULL)
+	goto exitfunc;
+    else if (strcmp (version, "0") == 0)
+    {
+	error (0, 0, "cannot admin newly added file `%s'", finfo->file);
+	goto exitfunc;
+    }
+
+    run_setup ("%s%s -x,v/", Rcsbin, RCS);
+    for (argc = ac, argv = av; argc; argc--, argv++)
+	run_arg (*argv);
+    run_arg (vers->srcfile->path);
+    if ((retcode = run_exec (RUN_TTY, RUN_TTY, RUN_TTY, RUN_NORMAL)) != 0)
+    {
+	if (!quiet)
+	    error (0, retcode == -1 ? errno : 0,
+		   "%s failed for `%s'", RCS, finfo->file);
+	status = 1;
+	goto exitfunc;
+    }
+  exitfunc:
+    freevers_ts (&vers);
+    return status;
+}
+
+/*
+ * Print a warm fuzzy message
+ */
+/* ARGSUSED */
+static Dtype
+admin_dirproc (dir, repos, update_dir)
+    char *dir;
+    char *repos;
+    char *update_dir;
+{
+    if (!quiet)
+	error (0, 0, "Administrating %s", update_dir);
+    return (R_PROCESS);
+}