mkmodules.c revision 18592
117721Speter/* 217721Speter * Copyright (c) 1992, Brian Berliner and Jeff Polk 317721Speter * Copyright (c) 1989-1992, Brian Berliner 417721Speter * 517721Speter * You may distribute under the terms of the GNU General Public License as 617721Speter * specified in the README file that comes with the CVS kit. */ 717721Speter 817721Speter#include "cvs.h" 917721Speter#include "savecwd.h" 1017721Speter 1117721Speter#ifndef DBLKSIZ 1217721Speter#define DBLKSIZ 4096 /* since GNU ndbm doesn't define it */ 1317721Speter#endif 1417721Speter 1517721Speterstatic int checkout_file PROTO((char *file, char *temp)); 1617721Speterstatic void make_tempfile PROTO((char *temp)); 1717721Speterstatic void rename_rcsfile PROTO((char *temp, char *real)); 1817721Speter 1917721Speter#ifndef MY_NDBM 2017721Speterstatic void rename_dbmfile PROTO((char *temp)); 2117721Speterstatic void write_dbmfile PROTO((char *temp)); 2217721Speter#endif /* !MY_NDBM */ 2317721Speter 2417721Speter/* Structure which describes an administrative file. */ 2517721Speterstruct admin_file { 2617721Speter /* Name of the file, within the CVSROOT directory. */ 2717721Speter char *filename; 2817721Speter 2917721Speter /* This is a one line description of what the file is for. It is not 3017721Speter currently used, although one wonders whether it should be, somehow. 3117721Speter If NULL, then don't process this file in mkmodules (FIXME: a bit of 3217721Speter a kludge; probably should replace this with a flags field). */ 3317721Speter char *errormsg; 3417721Speter 3517721Speter /* Contents which the file should have in a new repository. To avoid 3617721Speter problems with brain-dead compilers which choke on long string constants, 3717721Speter this is a pointer to an array of char * terminated by NULL--each of 3817721Speter the strings is concatenated. */ 3917721Speter const char * const *contents; 4017721Speter}; 4117721Speter 4217721Speterstatic const char *const loginfo_contents[] = { 4317721Speter "# The \"loginfo\" file is used to control where \"cvs commit\" log information\n", 4417721Speter "# is sent. The first entry on a line is a regular expression which is tested\n", 4517721Speter "# against the directory that the change is being made to, relative to the\n", 4617721Speter "# $CVSROOT. For the first match that is found, then the remainder of the\n", 4717721Speter "# line is a filter program that should expect log information on its standard\n", 4817721Speter "# input.\n", 4917721Speter "#\n", 5017721Speter "# If the repository name does not match any of the regular expressions in the\n", 5117721Speter "# first field of this file, the \"DEFAULT\" line is used, if it is specified.\n", 5217721Speter "#\n", 5317721Speter "# If the name \"ALL\" appears as a regular expression it is always used\n", 5417721Speter "# in addition to the first matching regex or \"DEFAULT\".\n", 5517721Speter "#\n", 5617721Speter "# The filter program may use one and only one \"%s\" modifier (ala printf). If\n", 5717721Speter "# such a \"%s\" is specified in the filter program, a brief title is included\n", 5817721Speter "# (as one argument, enclosed in single quotes) showing the relative directory\n", 5917721Speter "# name and listing the modified file names.\n", 6017721Speter "#\n", 6117721Speter "# For example:\n", 6217721Speter "#DEFAULT (echo \"\"; who am i; date; cat) >> $CVSROOT/CVSROOT/commitlog\n", 6317721Speter NULL 6417721Speter}; 6517721Speter 6617721Speterstatic const char *const rcsinfo_contents[] = { 6717721Speter "# The \"rcsinfo\" file is used to control templates with which the editor\n", 6817721Speter "# is invoked on commit and import.\n", 6917721Speter "#\n", 7017721Speter "# The first entry on a line is a regular expression which is tested\n", 7117721Speter "# against the directory that the change is being made to, relative to the\n", 7217721Speter "# $CVSROOT. For the first match that is found, then the remainder of the\n", 7317721Speter "# line is the name of the file that contains the template.\n", 7417721Speter "#\n", 7517721Speter "# If the repository name does not match any of the regular expressions in this\n", 7617721Speter "# file, the \"DEFAULT\" line is used, if it is specified.\n", 7717721Speter "#\n", 7817721Speter "# If the name \"ALL\" appears as a regular expression it is always used\n", 7917721Speter "# in addition to the first matching regex or \"DEFAULT\".\n", 8017721Speter NULL 8117721Speter}; 8217721Speter 8317721Speterstatic const char *const editinfo_contents[] = { 8417721Speter "# The \"editinfo\" file is used to allow verification of logging\n", 8517721Speter "# information. It works best when a template (as specified in the\n", 8617721Speter "# rcsinfo file) is provided for the logging procedure. Given a\n", 8717721Speter "# template with locations for, a bug-id number, a list of people who\n", 8817721Speter "# reviewed the code before it can be checked in, and an external\n", 8917721Speter "# process to catalog the differences that were code reviewed, the\n", 9017721Speter "# following test can be applied to the code:\n", 9117721Speter "#\n", 9217721Speter "# Making sure that the entered bug-id number is correct.\n", 9317721Speter "# Validating that the code that was reviewed is indeed the code being\n", 9417721Speter "# checked in (using the bug-id number or a seperate review\n", 9517721Speter "# number to identify this particular code set.).\n", 9617721Speter "#\n", 9717721Speter "# If any of the above test failed, then the commit would be aborted.\n", 9817721Speter "#\n", 9917721Speter "# Actions such as mailing a copy of the report to each reviewer are\n", 10017721Speter "# better handled by an entry in the loginfo file.\n", 10117721Speter "#\n", 10217721Speter "# One thing that should be noted is the the ALL keyword is not\n", 10317721Speter "# supported. There can be only one entry that matches a given\n", 10417721Speter "# repository.\n", 10517721Speter NULL 10617721Speter}; 10717721Speter 10817721Speterstatic const char *const commitinfo_contents[] = { 10917721Speter "# The \"commitinfo\" file is used to control pre-commit checks.\n", 11017721Speter "# The filter on the right is invoked with the repository and a list \n", 11117721Speter "# of files to check. A non-zero exit of the filter program will \n", 11217721Speter "# cause the commit to be aborted.\n", 11317721Speter "#\n", 11417721Speter "# The first entry on a line is a regular expression which is tested\n", 11517721Speter "# against the directory that the change is being committed to, relative\n", 11617721Speter "# to the $CVSROOT. For the first match that is found, then the remainder\n", 11717721Speter "# of the line is the name of the filter to run.\n", 11817721Speter "#\n", 11917721Speter "# If the repository name does not match any of the regular expressions in this\n", 12017721Speter "# file, the \"DEFAULT\" line is used, if it is specified.\n", 12117721Speter "#\n", 12217721Speter "# If the name \"ALL\" appears as a regular expression it is always used\n", 12317721Speter "# in addition to the first matching regex or \"DEFAULT\".\n", 12417721Speter NULL 12517721Speter}; 12617721Speter 12717721Speterstatic const char *const taginfo_contents[] = { 12817721Speter "# The \"taginfo\" file is used to control pre-tag checks.\n", 12917721Speter "# The filter on the right is invoked with the following arguments:\n", 13017721Speter "#\n", 13117721Speter "# $1 -- tagname\n", 13217721Speter "# $2 -- operation \"add\" for tag, \"mov\" for tag -F, and \"del\" for tag -d\n", 13317721Speter "# $3 -- repository\n", 13417721Speter "# $4-> file revision [file revision ...]\n", 13517721Speter "#\n", 13617721Speter "# A non-zero exit of the filter program will cause the tag to be aborted.\n", 13717721Speter "#\n", 13817721Speter "# The first entry on a line is a regular expression which is tested\n", 13917721Speter "# against the directory that the change is being committed to, relative\n", 14017721Speter "# to the $CVSROOT. For the first match that is found, then the remainder\n", 14117721Speter "# of the line is the name of the filter to run.\n", 14217721Speter "#\n", 14317721Speter "# If the repository name does not match any of the regular expressions in this\n", 14417721Speter "# file, the \"DEFAULT\" line is used, if it is specified.\n", 14517721Speter "#\n", 14617721Speter "# If the name \"ALL\" appears as a regular expression it is always used\n", 14717721Speter "# in addition to the first matching regex or \"DEFAULT\".\n", 14817721Speter NULL 14917721Speter}; 15017721Speter 15117721Speterstatic const char *const checkoutlist_contents[] = { 15217721Speter "# The \"checkoutlist\" file is used to support additional version controlled\n", 15317721Speter "# administrative files in $CVSROOT/CVSROOT, such as template files.\n", 15417721Speter "#\n", 15517721Speter "# The first entry on a line is a filename which will be checked out from\n", 15617721Speter "# the corresponding RCS file in the $CVSROOT/CVSROOT directory.\n", 15717721Speter "# The remainder of the line is an error message to use if the file cannot\n", 15817721Speter "# be checked out.\n", 15917721Speter "#\n", 16017721Speter "# File format:\n", 16117721Speter "#\n", 16217721Speter "# [<whitespace>]<filename><whitespace><error message><end-of-line>\n", 16317721Speter "#\n", 16417721Speter "# comment lines begin with '#'\n", 16517721Speter NULL 16617721Speter}; 16717721Speter 16817721Speterstatic const char *const cvswrappers_contents[] = { 16917721Speter "# This file describes wrappers and other binary files to CVS.\n", 17017721Speter "#\n", 17117721Speter "# Wrappers are the concept where directories of files are to be\n", 17217721Speter "# treated as a single file. The intended use is to wrap up a wrapper\n", 17317721Speter "# into a single tar such that the tar archive can be treated as a\n", 17417721Speter "# single binary file in CVS.\n", 17517721Speter "#\n", 17617721Speter "# To solve the problem effectively, it was also necessary to be able to\n", 17717721Speter "# prevent rcsmerge from merging these files.\n", 17817721Speter "#\n", 17917721Speter "# Format of wrapper file ($CVSROOT/CVSROOT/cvswrappers or .cvswrappers)\n", 18017721Speter "#\n", 18117721Speter "# wildcard [option value][option value]...\n", 18217721Speter "#\n", 18317721Speter "# where option is one of\n", 18417721Speter "# -f from cvs filter value: path to filter\n", 18517721Speter "# -t to cvs filter value: path to filter\n", 18617721Speter "# -m update methodology value: MERGE or COPY\n", 18717721Speter "#\n", 18817721Speter "# and value is a single-quote delimited value.\n", 18917721Speter "#\n", 19017721Speter "# For example:\n", 19117721Speter NULL 19217721Speter}; 19317721Speter 19417721Speterstatic const char *const notify_contents[] = { 19517721Speter "# The \"notify\" file controls where notifications from watches set by\n", 19617721Speter "# \"cvs watch add\" or \"cvs edit\" are sent. The first entry on a line is\n", 19717721Speter "# a regular expression which is tested against the directory that the\n", 19817721Speter "# change is being made to, relative to the $CVSROOT. If it matches,\n", 19917721Speter "# then the remainder of the line is a filter program that should contain\n", 20017721Speter "# one occurrence of %s for the user to notify, and information on its\n", 20117721Speter "# standard input.\n", 20217721Speter "#\n", 20317721Speter "# \"ALL\" or \"DEFAULT\" can be used in place of the regular expression.\n", 20417721Speter "#\n", 20517721Speter "# For example:\n", 20617721Speter "#ALL mail %s -s \"CVS notification\"\n", 20717721Speter NULL 20817721Speter}; 20917721Speter 21017721Speterstatic const char *const modules_contents[] = { 21117721Speter "# Three different line formats are valid:\n", 21217721Speter "# key -a aliases...\n", 21317721Speter "# key [options] directory\n", 21417721Speter "# key [options] directory files...\n", 21517721Speter "#\n", 21617721Speter "# Where \"options\" are composed of:\n", 21717721Speter "# -i prog Run \"prog\" on \"cvs commit\" from top-level of module.\n", 21817721Speter "# -o prog Run \"prog\" on \"cvs checkout\" of module.\n", 21917721Speter "# -e prog Run \"prog\" on \"cvs export\" of module.\n", 22017721Speter "# -t prog Run \"prog\" on \"cvs rtag\" of module.\n", 22117721Speter "# -u prog Run \"prog\" on \"cvs update\" of module.\n", 22217721Speter "# -d dir Place module in directory \"dir\" instead of module name.\n", 22317721Speter "# -l Top-level directory only -- do not recurse.\n", 22417721Speter "#\n", 22517721Speter "# And \"directory\" is a path to a directory relative to $CVSROOT.\n", 22617721Speter "#\n", 22717721Speter "# The \"-a\" option specifies an alias. An alias is interpreted as if\n", 22817721Speter "# everything on the right of the \"-a\" had been typed on the command line.\n", 22917721Speter "#\n", 23017721Speter "# You can encode a module within a module by using the special '&'\n", 23117721Speter "# character to interpose another module into the current module. This\n", 23217721Speter "# can be useful for creating a module that consists of many directories\n", 23317721Speter "# spread out over the entire source repository.\n", 23417721Speter NULL 23517721Speter}; 23617721Speter 23717721Speterstatic const struct admin_file filelist[] = { 23817721Speter {CVSROOTADM_LOGINFO, 23917721Speter "no logging of 'cvs commit' messages is done without a %s file", 24017721Speter &loginfo_contents[0]}, 24117721Speter {CVSROOTADM_RCSINFO, 24217721Speter "a %s file can be used to configure 'cvs commit' templates", 24317721Speter rcsinfo_contents}, 24417721Speter {CVSROOTADM_EDITINFO, 24517721Speter "a %s file can be used to validate log messages", 24617721Speter editinfo_contents}, 24717721Speter {CVSROOTADM_COMMITINFO, 24817721Speter "a %s file can be used to configure 'cvs commit' checking", 24917721Speter commitinfo_contents}, 25017721Speter {CVSROOTADM_TAGINFO, 25117721Speter "a %s file can be used to configure 'cvs tag' checking", 25217721Speter taginfo_contents}, 25317721Speter {CVSROOTADM_IGNORE, 25417721Speter "a %s file can be used to specify files to ignore", 25517721Speter NULL}, 25617721Speter {CVSROOTADM_CHECKOUTLIST, 25717721Speter "a %s file can specify extra CVSROOT files to auto-checkout", 25817721Speter checkoutlist_contents}, 25917721Speter {CVSROOTADM_WRAPPER, 26017721Speter "a %s file can be used to specify files to treat as wrappers", 26117721Speter cvswrappers_contents}, 26217721Speter {CVSROOTADM_NOTIFY, 26317721Speter "a %s file can be used to specify where notifications go", 26417721Speter notify_contents}, 26517721Speter {CVSROOTADM_MODULES, 26617721Speter /* modules is special-cased in mkmodules. */ 26717721Speter NULL, 26817721Speter modules_contents}, 26917721Speter {NULL, NULL} 27017721Speter}; 27117721Speter 27217721Speter/* Rebuild the checked out administrative files in directory DIR. */ 27317721Speterint 27417721Spetermkmodules (dir) 27517721Speter char *dir; 27617721Speter{ 27717721Speter struct saved_cwd cwd; 27817721Speter /* FIXME: arbitrary limit */ 27917721Speter char temp[PATH_MAX]; 28017721Speter char *cp, *last, *fname; 28117721Speter#ifdef MY_NDBM 28217721Speter DBM *db; 28317721Speter#endif 28417721Speter FILE *fp; 28517721Speter /* FIXME: arbitrary limit */ 28617721Speter char line[512]; 28717721Speter const struct admin_file *fileptr; 28817721Speter 28917721Speter if (save_cwd (&cwd)) 29017721Speter exit (EXIT_FAILURE); 29117721Speter 29217721Speter if (chdir (dir) < 0) 29317721Speter error (1, errno, "cannot chdir to %s", dir); 29417721Speter 29517721Speter /* 29617721Speter * First, do the work necessary to update the "modules" database. 29717721Speter */ 29817721Speter make_tempfile (temp); 29917721Speter switch (checkout_file (CVSROOTADM_MODULES, temp)) 30017721Speter { 30117721Speter 30217721Speter case 0: /* everything ok */ 30317721Speter#ifdef MY_NDBM 30417721Speter /* open it, to generate any duplicate errors */ 30517721Speter if ((db = dbm_open (temp, O_RDONLY, 0666)) != NULL) 30617721Speter dbm_close (db); 30717721Speter#else 30817721Speter write_dbmfile (temp); 30917721Speter rename_dbmfile (temp); 31017721Speter#endif 31117721Speter rename_rcsfile (temp, CVSROOTADM_MODULES); 31217721Speter break; 31317721Speter 31417721Speter case -1: /* fork failed */ 31517721Speter (void) unlink_file (temp); 31617721Speter exit (EXIT_FAILURE); 31717721Speter /* NOTREACHED */ 31817721Speter 31917721Speter default: 32017721Speter error (0, 0, 32117721Speter "'cvs checkout' is less functional without a %s file", 32217721Speter CVSROOTADM_MODULES); 32317721Speter break; 32417721Speter } /* switch on checkout_file() */ 32517721Speter 32617721Speter (void) unlink_file (temp); 32717721Speter 32817721Speter /* Checkout the files that need it in CVSROOT dir */ 32917721Speter for (fileptr = filelist; fileptr && fileptr->filename; fileptr++) { 33017721Speter if (fileptr->errormsg == NULL) 33117721Speter continue; 33217721Speter make_tempfile (temp); 33317721Speter if (checkout_file (fileptr->filename, temp) == 0) 33417721Speter rename_rcsfile (temp, fileptr->filename); 33517721Speter#if 0 33617721Speter /* 33717721Speter * If there was some problem other than the file not existing, 33817721Speter * checkout_file already printed a real error message. If the 33917721Speter * file does not exist, it is harmless--it probably just means 34017721Speter * that the repository was created with an old version of CVS 34117721Speter * which didn't have so many files in CVSROOT. 34217721Speter */ 34317721Speter else if (fileptr->errormsg) 34417721Speter error (0, 0, fileptr->errormsg, fileptr->filename); 34517721Speter#endif 34617721Speter (void) unlink_file (temp); 34717721Speter } 34817721Speter 34917721Speter /* Use 'fopen' instead of 'open_file' because we want to ignore error */ 35017721Speter fp = fopen (CVSROOTADM_CHECKOUTLIST, "r"); 35117721Speter if (fp) 35217721Speter { 35317721Speter /* 35417721Speter * File format: 35517721Speter * [<whitespace>]<filename><whitespace><error message><end-of-line> 35617721Speter * 35717721Speter * comment lines begin with '#' 35817721Speter */ 35917721Speter while (fgets (line, sizeof (line), fp) != NULL) 36017721Speter { 36117721Speter /* skip lines starting with # */ 36217721Speter if (line[0] == '#') 36317721Speter continue; 36417721Speter 36517721Speter if ((last = strrchr (line, '\n')) != NULL) 36617721Speter *last = '\0'; /* strip the newline */ 36717721Speter 36817721Speter /* Skip leading white space. */ 36917721Speter for (fname = line; *fname && isspace(*fname); fname++) 37017721Speter ; 37117721Speter 37217721Speter /* Find end of filename. */ 37317721Speter for (cp = fname; *cp && !isspace(*cp); cp++) 37417721Speter ; 37517721Speter *cp = '\0'; 37617721Speter 37717721Speter make_tempfile (temp); 37817721Speter if (checkout_file (fname, temp) == 0) 37917721Speter { 38017721Speter rename_rcsfile (temp, fname); 38117721Speter } 38217721Speter else 38317721Speter { 38417721Speter for (cp++; cp < last && *last && isspace(*last); cp++) 38517721Speter ; 38617721Speter if (cp < last && *cp) 38717721Speter error (0, 0, cp, fname); 38817721Speter } 38917721Speter } 39017721Speter (void) fclose (fp); 39117721Speter } 39217721Speter 39317721Speter if (restore_cwd (&cwd, NULL)) 39417721Speter exit (EXIT_FAILURE); 39517721Speter free_cwd (&cwd); 39617721Speter 39717721Speter return (0); 39817721Speter} 39917721Speter 40017721Speter/* 40117721Speter * Yeah, I know, there are NFS race conditions here. 40217721Speter */ 40317721Speterstatic void 40417721Spetermake_tempfile (temp) 40517721Speter char *temp; 40617721Speter{ 40717721Speter static int seed = 0; 40817721Speter int fd; 40917721Speter 41017721Speter if (seed == 0) 41117721Speter seed = getpid (); 41217721Speter while (1) 41317721Speter { 41417721Speter (void) sprintf (temp, "%s%d", BAKPREFIX, seed++); 41517721Speter if ((fd = open (temp, O_CREAT|O_EXCL|O_RDWR, 0666)) != -1) 41617721Speter break; 41717721Speter if (errno != EEXIST) 41817721Speter error (1, errno, "cannot create temporary file %s", temp); 41917721Speter } 42017721Speter if (close(fd) < 0) 42117721Speter error(1, errno, "cannot close temporary file %s", temp); 42217721Speter} 42317721Speter 42417721Speterstatic int 42517721Spetercheckout_file (file, temp) 42617721Speter char *file; 42717721Speter char *temp; 42817721Speter{ 42917721Speter char rcs[PATH_MAX]; 43017721Speter int retcode = 0; 43117721Speter 43217721Speter (void) sprintf (rcs, "%s%s", file, RCSEXT); 43317721Speter if (!isfile (rcs)) 43417721Speter return (1); 43517721Speter run_setup ("%s%s -x,v/ -q -p", Rcsbin, RCS_CO); 43617721Speter run_arg (rcs); 43717721Speter if ((retcode = run_exec (RUN_TTY, temp, RUN_TTY, RUN_NORMAL)) != 0) 43817721Speter { 43917721Speter error (0, retcode == -1 ? errno : 0, "failed to check out %s file", file); 44017721Speter } 44117721Speter return (retcode); 44217721Speter} 44317721Speter 44417721Speter#ifndef MY_NDBM 44517721Speter 44617721Speterstatic void 44717721Speterwrite_dbmfile (temp) 44817721Speter char *temp; 44917721Speter{ 45017721Speter char line[DBLKSIZ], value[DBLKSIZ]; 45117721Speter FILE *fp; 45217721Speter DBM *db; 45317721Speter char *cp, *vp; 45417721Speter datum key, val; 45517721Speter int len, cont, err = 0; 45617721Speter 45717721Speter fp = open_file (temp, "r"); 45817721Speter if ((db = dbm_open (temp, O_RDWR | O_CREAT | O_TRUNC, 0666)) == NULL) 45917721Speter error (1, errno, "cannot open dbm file %s for creation", temp); 46017721Speter for (cont = 0; fgets (line, sizeof (line), fp) != NULL;) 46117721Speter { 46217721Speter if ((cp = strrchr (line, '\n')) != NULL) 46317721Speter *cp = '\0'; /* strip the newline */ 46417721Speter 46517721Speter /* 46617721Speter * Add the line to the value, at the end if this is a continuation 46717721Speter * line; otherwise at the beginning, but only after any trailing 46817721Speter * backslash is removed. 46917721Speter */ 47017721Speter vp = value; 47117721Speter if (cont) 47217721Speter vp += strlen (value); 47317721Speter 47417721Speter /* 47517721Speter * See if the line we read is a continuation line, and strip the 47617721Speter * backslash if so. 47717721Speter */ 47817721Speter len = strlen (line); 47917721Speter if (len > 0) 48017721Speter cp = &line[len - 1]; 48117721Speter else 48217721Speter cp = line; 48317721Speter if (*cp == '\\') 48417721Speter { 48517721Speter cont = 1; 48617721Speter *cp = '\0'; 48717721Speter } 48817721Speter else 48917721Speter { 49017721Speter cont = 0; 49117721Speter } 49217721Speter (void) strcpy (vp, line); 49317721Speter if (value[0] == '#') 49417721Speter continue; /* comment line */ 49517721Speter vp = value; 49617721Speter while (*vp && isspace (*vp)) 49717721Speter vp++; 49817721Speter if (*vp == '\0') 49917721Speter continue; /* empty line */ 50017721Speter 50117721Speter /* 50217721Speter * If this was not a continuation line, add the entry to the database 50317721Speter */ 50417721Speter if (!cont) 50517721Speter { 50617721Speter key.dptr = vp; 50717721Speter while (*vp && !isspace (*vp)) 50817721Speter vp++; 50917721Speter key.dsize = vp - key.dptr; 51017721Speter *vp++ = '\0'; /* NULL terminate the key */ 51117721Speter while (*vp && isspace (*vp)) 51217721Speter vp++; /* skip whitespace to value */ 51317721Speter if (*vp == '\0') 51417721Speter { 51517721Speter error (0, 0, "warning: NULL value for key `%s'", key.dptr); 51617721Speter continue; 51717721Speter } 51817721Speter val.dptr = vp; 51917721Speter val.dsize = strlen (vp); 52017721Speter if (dbm_store (db, key, val, DBM_INSERT) == 1) 52117721Speter { 52217721Speter error (0, 0, "duplicate key found for `%s'", key.dptr); 52317721Speter err++; 52417721Speter } 52517721Speter } 52617721Speter } 52717721Speter dbm_close (db); 52817721Speter (void) fclose (fp); 52917721Speter if (err) 53017721Speter { 53117721Speter char dotdir[50], dotpag[50], dotdb[50]; 53217721Speter 53317721Speter (void) sprintf (dotdir, "%s.dir", temp); 53417721Speter (void) sprintf (dotpag, "%s.pag", temp); 53517721Speter (void) sprintf (dotdb, "%s.db", temp); 53617721Speter (void) unlink_file (dotdir); 53717721Speter (void) unlink_file (dotpag); 53817721Speter (void) unlink_file (dotdb); 53917721Speter error (1, 0, "DBM creation failed; correct above errors"); 54017721Speter } 54117721Speter} 54217721Speter 54317721Speterstatic void 54417721Speterrename_dbmfile (temp) 54517721Speter char *temp; 54617721Speter{ 54717721Speter char newdir[50], newpag[50], newdb[50]; 54817721Speter char dotdir[50], dotpag[50], dotdb[50]; 54917721Speter char bakdir[50], bakpag[50], bakdb[50]; 55017721Speter 55117721Speter (void) sprintf (dotdir, "%s.dir", CVSROOTADM_MODULES); 55217721Speter (void) sprintf (dotpag, "%s.pag", CVSROOTADM_MODULES); 55317721Speter (void) sprintf (dotdb, "%s.db", CVSROOTADM_MODULES); 55417721Speter (void) sprintf (bakdir, "%s%s.dir", BAKPREFIX, CVSROOTADM_MODULES); 55517721Speter (void) sprintf (bakpag, "%s%s.pag", BAKPREFIX, CVSROOTADM_MODULES); 55617721Speter (void) sprintf (bakdb, "%s%s.db", BAKPREFIX, CVSROOTADM_MODULES); 55717721Speter (void) sprintf (newdir, "%s.dir", temp); 55817721Speter (void) sprintf (newpag, "%s.pag", temp); 55917721Speter (void) sprintf (newdb, "%s.db", temp); 56017721Speter 56117721Speter (void) chmod (newdir, 0666); 56217721Speter (void) chmod (newpag, 0666); 56317721Speter (void) chmod (newdb, 0666); 56417721Speter 56517721Speter /* don't mess with me */ 56617721Speter SIG_beginCrSect (); 56717721Speter 56817721Speter (void) unlink_file (bakdir); /* rm .#modules.dir .#modules.pag */ 56917721Speter (void) unlink_file (bakpag); 57017721Speter (void) unlink_file (bakdb); 57117721Speter (void) rename (dotdir, bakdir); /* mv modules.dir .#modules.dir */ 57217721Speter (void) rename (dotpag, bakpag); /* mv modules.pag .#modules.pag */ 57317721Speter (void) rename (dotdb, bakdb); /* mv modules.db .#modules.db */ 57417721Speter (void) rename (newdir, dotdir); /* mv "temp".dir modules.dir */ 57517721Speter (void) rename (newpag, dotpag); /* mv "temp".pag modules.pag */ 57617721Speter (void) rename (newdb, dotdb); /* mv "temp".db modules.db */ 57717721Speter 57817721Speter /* OK -- make my day */ 57917721Speter SIG_endCrSect (); 58017721Speter} 58117721Speter 58217721Speter#endif /* !MY_NDBM */ 58317721Speter 58417721Speterstatic void 58517721Speterrename_rcsfile (temp, real) 58617721Speter char *temp; 58717721Speter char *real; 58817721Speter{ 58917721Speter char bak[50]; 59017721Speter struct stat statbuf; 59117721Speter char rcs[PATH_MAX]; 59217721Speter 59317721Speter /* Set "x" bits if set in original. */ 59417721Speter (void) sprintf (rcs, "%s%s", real, RCSEXT); 59517721Speter statbuf.st_mode = 0; /* in case rcs file doesn't exist, but it should... */ 59617721Speter (void) stat (rcs, &statbuf); 59717721Speter 59817721Speter if (chmod (temp, 0444 | (statbuf.st_mode & 0111)) < 0) 59917721Speter error (0, errno, "warning: cannot chmod %s", temp); 60017721Speter (void) sprintf (bak, "%s%s", BAKPREFIX, real); 60117721Speter (void) unlink_file (bak); /* rm .#loginfo */ 60217721Speter (void) rename (real, bak); /* mv loginfo .#loginfo */ 60317721Speter (void) rename (temp, real); /* mv "temp" loginfo */ 60417721Speter} 60517721Speter 60617721Speterconst char *const init_usage[] = { 60717721Speter "Usage: %s %s\n", 60817721Speter NULL 60917721Speter}; 61017721Speter 61117721Speter/* Create directory NAME if it does not already exist; fatal error for 61217721Speter other errors. FIXME: This should be in filesubr.c or thereabouts, 61317721Speter probably. Perhaps it should be further abstracted, though (for example 61417721Speter to handle CVSUMASK where appropriate?). */ 61517721Speterstatic void 61617721Spetermkdir_if_needed (name) 61717721Speter char *name; 61817721Speter{ 61917721Speter if (CVS_MKDIR (name, 0777) < 0) 62017721Speter { 62117721Speter if (errno != EEXIST 62217721Speter#ifdef EACCESS 62317721Speter /* OS/2; see longer comment in client.c. */ 62417721Speter && errno != EACCESS 62517721Speter#endif 62617721Speter ) 62717721Speter error (1, errno, "cannot mkdir %s", name); 62817721Speter } 62917721Speter} 63017721Speter 63117721Speterint 63217721Speterinit (argc, argv) 63317721Speter int argc; 63417721Speter char **argv; 63517721Speter{ 63617721Speter /* Name of CVSROOT directory. */ 63717721Speter char *adm; 63817721Speter /* Name of this administrative file. */ 63917721Speter char *info; 64017721Speter /* Name of ,v file for this administrative file. */ 64117721Speter char *info_v; 64217721Speter 64317721Speter const struct admin_file *fileptr; 64417721Speter 64517721Speter umask (cvsumask); 64617721Speter 64718592Sjdp if (argc == -1 || argc > 1) 64817721Speter usage (init_usage); 64917721Speter 65017721Speter if (client_active) 65117721Speter { 65217721Speter start_server (); 65317721Speter 65417721Speter ign_setup (); 65517721Speter send_init_command (); 65617721Speter return get_responses_and_close (); 65717721Speter } 65817721Speter 65917721Speter /* Note: we do *not* create parent directories as needed like the 66017721Speter old cvsinit.sh script did. Few utilities do that, and a 66117721Speter non-existent parent directory is as likely to be a typo as something 66217721Speter which needs to be created. */ 66317721Speter mkdir_if_needed (CVSroot); 66417721Speter 66517721Speter adm = xmalloc (strlen (CVSroot) + sizeof (CVSROOTADM) + 10); 66617721Speter strcpy (adm, CVSroot); 66717721Speter strcat (adm, "/"); 66817721Speter strcat (adm, CVSROOTADM); 66917721Speter mkdir_if_needed (adm); 67017721Speter 67117721Speter /* This is needed by the call to "ci" below. */ 67217721Speter if (chdir (adm) < 0) 67317721Speter error (1, errno, "cannot change to directory %s", adm); 67417721Speter 67517721Speter /* 80 is long enough for all the administrative file names, plus 67617721Speter "/" and so on. */ 67717721Speter info = xmalloc (strlen (adm) + 80); 67817721Speter info_v = xmalloc (strlen (adm) + 80); 67917721Speter for (fileptr = filelist; fileptr && fileptr->filename; ++fileptr) 68017721Speter { 68117721Speter if (fileptr->contents == NULL) 68217721Speter continue; 68317721Speter strcpy (info, adm); 68417721Speter strcat (info, "/"); 68517721Speter strcat (info, fileptr->filename); 68617721Speter strcpy (info_v, info); 68717721Speter strcat (info_v, RCSEXT); 68817721Speter if (isfile (info_v)) 68917721Speter /* We will check out this file in the mkmodules step. 69017721Speter Nothing else is required. */ 69117721Speter ; 69217721Speter else 69317721Speter { 69417721Speter int retcode; 69517721Speter 69617721Speter if (!isfile (info)) 69717721Speter { 69817721Speter FILE *fp; 69917721Speter const char * const *p; 70017721Speter 70117721Speter fp = open_file (info, "w"); 70217721Speter for (p = fileptr->contents; *p != NULL; ++p) 70317721Speter if (fputs (*p, fp) < 0) 70417721Speter error (1, errno, "cannot write %s", info); 70517721Speter if (fclose (fp) < 0) 70617721Speter error (1, errno, "cannot close %s", info); 70717721Speter } 70817721Speter /* Now check the file in. FIXME: we could be using 70917721Speter add_rcs_file from import.c which is faster (if it were 71017721Speter tweaked slightly). */ 71117721Speter run_setup ("%s%s -x,v/ -q -u -t-", Rcsbin, RCS_CI); 71217721Speter run_args ("-minitial checkin of %s", fileptr->filename); 71317721Speter run_arg (fileptr->filename); 71417721Speter retcode = run_exec (RUN_TTY, RUN_TTY, RUN_TTY, RUN_NORMAL); 71517721Speter if (retcode != 0) 71617721Speter error (1, retcode == -1 ? errno : 0, 71717721Speter "failed to check in %s", info); 71817721Speter } 71917721Speter } 72017721Speter 72117721Speter /* Turn on history logging by default. The user can remove the file 72217721Speter to disable it. */ 72317721Speter strcpy (info, adm); 72417721Speter strcat (info, "/"); 72517721Speter strcat (info, CVSROOTADM_HISTORY); 72617721Speter if (!isfile (info)) 72717721Speter { 72817721Speter FILE *fp; 72917721Speter 73017721Speter fp = open_file (info, "w"); 73117721Speter if (fclose (fp) < 0) 73217721Speter error (1, errno, "cannot close %s", info); 73317721Speter } 73417721Speter 73517721Speter free (info); 73617721Speter free (info_v); 73717721Speter 73817721Speter mkmodules (adm); 73917721Speter 74017721Speter free (adm); 74117721Speter return 0; 74217721Speter} 743