1/* 2 * Copyright (C) 1986-2008 The Free Software Foundation, Inc. 3 * 4 * Portions Copyright (C) 1998-2005 Derek Price, Ximbiot <http://ximbiot.com>, 5 * and others. 6 * 7 * Portions Copyright (C) 1992, Brian Berliner and Jeff Polk 8 * Portions Copyright (C) 1989-1992, Brian Berliner 9 * 10 * You may distribute under the terms of the GNU General Public License as 11 * specified in the README file that comes with the CVS kit. */ 12 13#include <assert.h> 14#include "cvs.h" 15#include "getline.h" 16#include "history.h" 17#include "savecwd.h" 18 19#ifndef DBLKSIZ 20#define DBLKSIZ 4096 /* since GNU ndbm doesn't define it */ 21#endif 22 23static int checkout_file PROTO((char *file, char *temp)); 24static char *make_tempfile PROTO((void)); 25static void rename_rcsfile PROTO((char *temp, char *real)); 26 27#ifndef MY_NDBM 28static void rename_dbmfile PROTO((char *temp)); 29static void write_dbmfile PROTO((char *temp)); 30#endif /* !MY_NDBM */ 31 32/* Structure which describes an administrative file. */ 33struct admin_file { 34 /* Name of the file, within the CVSROOT directory. */ 35 char *filename; 36 37 /* This is a one line description of what the file is for. It is not 38 currently used, although one wonders whether it should be, somehow. 39 If NULL, then don't process this file in mkmodules (FIXME?: a bit of 40 a kludge; probably should replace this with a flags field). */ 41 char *errormsg; 42 43 /* Contents which the file should have in a new repository. To avoid 44 problems with brain-dead compilers which choke on long string constants, 45 this is a pointer to an array of char * terminated by NULL--each of 46 the strings is concatenated. 47 48 If this field is NULL, the file is not created in a new 49 repository, but it can be added with "cvs add" (just as if one 50 had created the repository with a version of CVS which didn't 51 know about the file) and the checked-out copy will be updated 52 without having to add it to checkoutlist. */ 53 const char * const *contents; 54}; 55 56static const char *const loginfo_contents[] = { 57 "# The \"loginfo\" file controls where \"cvs commit\" log information\n", 58 "# is sent. The first entry on a line is a regular expression which must match\n", 59 "# the directory that the change is being made to, relative to the\n", 60 "# $CVSROOT. If a match is found, then the remainder of the line is a filter\n", 61 "# program that should expect log information on its standard input.\n", 62 "#\n", 63 "# If the repository name does not match any of the regular expressions in this\n", 64 "# file, the \"DEFAULT\" line is used, if it is specified.\n", 65 "#\n", 66 "# If the name ALL appears as a regular expression it is always used\n", 67 "# in addition to the first matching regex or DEFAULT.\n", 68 "#\n", 69 "# You may specify a format string as part of the\n", 70 "# filter. The string is composed of a `%' followed\n", 71 "# by a single format character, or followed by a set of format\n", 72 "# characters surrounded by `{' and `}' as separators. The format\n", 73 "# characters are:\n", 74 "#\n", 75 "# s = file name\n", 76 "# V = old version number (pre-checkin)\n", 77 "# v = new version number (post-checkin)\n", 78 "#\n", 79 "# For example:\n", 80 "#DEFAULT (echo \"\"; id; echo %s; date; cat) >> $CVSROOT/CVSROOT/commitlog\n", 81 "# or\n", 82 "#DEFAULT (echo \"\"; id; echo %{sVv}; date; cat) >> $CVSROOT/CVSROOT/commitlog\n", 83 NULL 84}; 85 86static const char *const rcsinfo_contents[] = { 87 "# The \"rcsinfo\" file is used to control templates with which the editor\n", 88 "# is invoked on commit and import.\n", 89 "#\n", 90 "# The first entry on a line is a regular expression which is tested\n", 91 "# against the directory that the change is being made to, relative to the\n", 92 "# $CVSROOT. For the first match that is found, then the remainder of the\n", 93 "# line is the name of the file that contains the template.\n", 94 "#\n", 95 "# If the repository name does not match any of the regular expressions in this\n", 96 "# file, the \"DEFAULT\" line is used, if it is specified.\n", 97 "#\n", 98 "# If the name \"ALL\" appears as a regular expression it is always used\n", 99 "# in addition to the first matching regex or \"DEFAULT\".\n", 100 NULL 101}; 102 103static const char *const editinfo_contents[] = { 104 "# The \"editinfo\" file is used to allow verification of logging\n", 105 "# information. It works best when a template (as specified in the\n", 106 "# rcsinfo file) is provided for the logging procedure. Given a\n", 107 "# template with locations for, a bug-id number, a list of people who\n", 108 "# reviewed the code before it can be checked in, and an external\n", 109 "# process to catalog the differences that were code reviewed, the\n", 110 "# following test can be applied to the code:\n", 111 "#\n", 112 "# Making sure that the entered bug-id number is correct.\n", 113 "# Validating that the code that was reviewed is indeed the code being\n", 114 "# checked in (using the bug-id number or a seperate review\n", 115 "# number to identify this particular code set.).\n", 116 "#\n", 117 "# If any of the above test failed, then the commit would be aborted.\n", 118 "#\n", 119 "# Actions such as mailing a copy of the report to each reviewer are\n", 120 "# better handled by an entry in the loginfo file.\n", 121 "#\n", 122 "# One thing that should be noted is the the ALL keyword is not\n", 123 "# supported. There can be only one entry that matches a given\n", 124 "# repository.\n", 125 NULL 126}; 127 128static const char *const verifymsg_contents[] = { 129 "# The \"verifymsg\" file is used to allow verification of logging\n", 130 "# information. It works best when a template (as specified in the\n", 131 "# rcsinfo file) is provided for the logging procedure. Given a\n", 132 "# template with locations for, a bug-id number, a list of people who\n", 133 "# reviewed the code before it can be checked in, and an external\n", 134 "# process to catalog the differences that were code reviewed, the\n", 135 "# following test can be applied to the code:\n", 136 "#\n", 137 "# Making sure that the entered bug-id number is correct.\n", 138 "# Validating that the code that was reviewed is indeed the code being\n", 139 "# checked in (using the bug-id number or a seperate review\n", 140 "# number to identify this particular code set.).\n", 141 "#\n", 142 "# If any of the above test failed, then the commit would be aborted.\n", 143 "#\n", 144 "# Actions such as mailing a copy of the report to each reviewer are\n", 145 "# better handled by an entry in the loginfo file.\n", 146 "#\n", 147 "# One thing that should be noted is the the ALL keyword is not\n", 148 "# supported. There can be only one entry that matches a given\n", 149 "# repository.\n", 150 NULL 151}; 152 153static const char *const commitinfo_contents[] = { 154 "# The \"commitinfo\" file is used to control pre-commit checks.\n", 155 "# The filter on the right is invoked with the repository and a list \n", 156 "# of files to check. A non-zero exit of the filter program will \n", 157 "# cause the commit to be aborted.\n", 158 "#\n", 159 "# The first entry on a line is a regular expression which is tested\n", 160 "# against the directory that the change is being committed to, relative\n", 161 "# to the $CVSROOT. For the first match that is found, then the remainder\n", 162 "# of the line is the name of the filter to run.\n", 163 "#\n", 164 "# If the repository name does not match any of the regular expressions in this\n", 165 "# file, the \"DEFAULT\" line is used, if it is specified.\n", 166 "#\n", 167 "# If the name \"ALL\" appears as a regular expression it is always used\n", 168 "# in addition to the first matching regex or \"DEFAULT\".\n", 169 NULL 170}; 171 172static const char *const taginfo_contents[] = { 173 "# The \"taginfo\" file is used to control pre-tag checks.\n", 174 "# The filter on the right is invoked with the following arguments:\n", 175 "#\n", 176 "# $1 -- tagname\n", 177 "# $2 -- operation \"add\" for tag, \"mov\" for tag -F, and \"del\" for tag -d\n", 178 "# $3 -- repository\n", 179 "# $4-> file revision [file revision ...]\n", 180 "#\n", 181 "# A non-zero exit of the filter program will cause the tag to be aborted.\n", 182 "#\n", 183 "# The first entry on a line is a regular expression which is tested\n", 184 "# against the directory that the change is being committed to, relative\n", 185 "# to the $CVSROOT. For the first match that is found, then the remainder\n", 186 "# of the line is the name of the filter to run.\n", 187 "#\n", 188 "# If the repository name does not match any of the regular expressions in this\n", 189 "# file, the \"DEFAULT\" line is used, if it is specified.\n", 190 "#\n", 191 "# If the name \"ALL\" appears as a regular expression it is always used\n", 192 "# in addition to the first matching regex or \"DEFAULT\".\n", 193 NULL 194}; 195 196static const char *const checkoutlist_contents[] = { 197 "# The \"checkoutlist\" file is used to support additional version controlled\n", 198 "# administrative files in $CVSROOT/CVSROOT, such as template files.\n", 199 "#\n", 200 "# The first entry on a line is a filename which will be checked out from\n", 201 "# the corresponding RCS file in the $CVSROOT/CVSROOT directory.\n", 202 "# The remainder of the line is an error message to use if the file cannot\n", 203 "# be checked out.\n", 204 "#\n", 205 "# File format:\n", 206 "#\n", 207 "# [<whitespace>]<filename>[<whitespace><error message>]<end-of-line>\n", 208 "#\n", 209 "# comment lines begin with '#'\n", 210 NULL 211}; 212 213static const char *const cvswrappers_contents[] = { 214 "# This file affects handling of files based on their names.\n", 215 "#\n", 216#if 0 /* see comments in wrap_add in wrapper.c */ 217 "# The -t/-f options allow one to treat directories of files\n", 218 "# as a single file, or to transform a file in other ways on\n", 219 "# its way in and out of CVS.\n", 220 "#\n", 221#endif 222 "# The -m option specifies whether CVS attempts to merge files.\n", 223 "#\n", 224 "# The -k option specifies keyword expansion (e.g. -kb for binary).\n", 225 "#\n", 226 "# Format of wrapper file ($CVSROOT/CVSROOT/cvswrappers or .cvswrappers)\n", 227 "#\n", 228 "# wildcard [option value][option value]...\n", 229 "#\n", 230 "# where option is one of\n", 231 "# -f from cvs filter value: path to filter\n", 232 "# -t to cvs filter value: path to filter\n", 233 "# -m update methodology value: MERGE or COPY\n", 234 "# -k expansion mode value: b, o, kkv, &c\n", 235 "#\n", 236 "# and value is a single-quote delimited value.\n", 237 "# For example:\n", 238 "#*.gif -k 'b'\n", 239 NULL 240}; 241 242static const char *const notify_contents[] = { 243 "# The \"notify\" file controls where notifications from watches set by\n", 244 "# \"cvs watch add\" or \"cvs edit\" are sent. The first entry on a line is\n", 245 "# a regular expression which is tested against the directory that the\n", 246 "# change is being made to, relative to the $CVSROOT. If it matches,\n", 247 "# then the remainder of the line is a filter program that should contain\n", 248 "# one occurrence of %s for the user to notify, and information on its\n", 249 "# standard input.\n", 250 "#\n", 251 "# \"ALL\" or \"DEFAULT\" can be used in place of the regular expression.\n", 252 "#\n", 253 "# For example:\n", 254 "#ALL mail -s \"CVS notification\" %s\n", 255 NULL 256}; 257 258static const char *const modules_contents[] = { 259 "# Three different line formats are valid:\n", 260 "# key -a aliases...\n", 261 "# key [options] directory\n", 262 "# key [options] directory files...\n", 263 "#\n", 264 "# Where \"options\" are composed of:\n", 265 "# -o prog Run \"prog\" on \"cvs checkout\" of module.\n", 266 "# -e prog Run \"prog\" on \"cvs export\" of module.\n", 267 "# -t prog Run \"prog\" on \"cvs rtag\" of module.\n", 268 "# -u prog Run \"prog\" on \"cvs update\" of module.\n", 269 "# -d dir Place module in directory \"dir\" instead of module name.\n", 270 "# -l Top-level directory only -- do not recurse.\n", 271 "#\n", 272 "# NOTE: If you change any of the \"Run\" options above, you'll have to\n", 273 "# release and re-checkout any working directories of these modules.\n", 274 "#\n", 275 "# And \"directory\" is a path to a directory relative to $CVSROOT.\n", 276 "#\n", 277 "# The \"-a\" option specifies an alias. An alias is interpreted as if\n", 278 "# everything on the right of the \"-a\" had been typed on the command line.\n", 279 "#\n", 280 "# You can encode a module within a module by using the special '&'\n", 281 "# character to interpose another module into the current module. This\n", 282 "# can be useful for creating a module that consists of many directories\n", 283 "# spread out over the entire source repository.\n", 284 NULL 285}; 286 287static const char *const config_contents[] = { 288 "# Set this to \"no\" if pserver shouldn't check system users/passwords\n", 289 "#SystemAuth=yes\n", 290 "\n", 291 "# Set `IgnoreUnknownConfigKeys' to `yes' to ignore unknown config\n", 292 "# keys which are supported in a future version of CVS.\n", 293 "# This option is intended to be useful as a transition for read-only\n", 294 "# mirror sites when sites may need to be updated later than the\n", 295 "# primary CVS repository.\n", 296 "#IgnoreUnknownConfigKeys=no\n", 297 "\n", 298 "# Put CVS lock files in this directory rather than directly in the repository.\n", 299 "#LockDir=/var/lock/cvs\n", 300 "\n", 301#ifdef PRESERVE_PERMISSIONS_SUPPORT 302 "# Set `PreservePermissions' to `yes' to save file status information\n", 303 "# in the repository.\n", 304 "#PreservePermissions=no\n", 305 "\n", 306#endif 307 "# Set `TopLevelAdmin' to `yes' to create a CVS directory at the top\n", 308 "# level of the new working directory when using the `cvs checkout'\n", 309 "# command.\n", 310 "#TopLevelAdmin=no\n", 311 "\n", 312 "# Set `LogHistory' to `all' or `" ALL_HISTORY_REC_TYPES "' to log all transactions to the\n", 313 "# history file, or a subset as needed (ie `TMAR' logs all write operations)\n", 314 "#LogHistory=" ALL_HISTORY_REC_TYPES "\n", 315 "\n", 316 "# Set `RereadLogAfterVerify' to `always' (the default) to allow the verifymsg\n", 317 "# script to change the log message. Set it to `stat' to force CVS to verify\n", 318 "# that the file has changed before reading it (this can take up to an extra\n", 319 "# second per directory being committed, so it is not recommended for large\n", 320 "# repositories. Set it to `never' (the previous CVS behavior) to prevent\n", 321 "# verifymsg scripts from changing the log message.\n", 322 "#RereadLogAfterVerify=always\n", 323 NULL 324}; 325 326static const struct admin_file filelist[] = { 327 {CVSROOTADM_LOGINFO, 328 "no logging of 'cvs commit' messages is done without a %s file", 329 &loginfo_contents[0]}, 330 {CVSROOTADM_RCSINFO, 331 "a %s file can be used to configure 'cvs commit' templates", 332 rcsinfo_contents}, 333 {CVSROOTADM_EDITINFO, 334 "a %s file can be used to validate log messages", 335 editinfo_contents}, 336 {CVSROOTADM_VERIFYMSG, 337 "a %s file can be used to validate log messages", 338 verifymsg_contents}, 339 {CVSROOTADM_COMMITINFO, 340 "a %s file can be used to configure 'cvs commit' checking", 341 commitinfo_contents}, 342 {CVSROOTADM_TAGINFO, 343 "a %s file can be used to configure 'cvs tag' checking", 344 taginfo_contents}, 345 {CVSROOTADM_IGNORE, 346 "a %s file can be used to specify files to ignore", 347 NULL}, 348 {CVSROOTADM_CHECKOUTLIST, 349 "a %s file can specify extra CVSROOT files to auto-checkout", 350 checkoutlist_contents}, 351 {CVSROOTADM_WRAPPER, 352 "a %s file can be used to specify files to treat as wrappers", 353 cvswrappers_contents}, 354 {CVSROOTADM_NOTIFY, 355 "a %s file can be used to specify where notifications go", 356 notify_contents}, 357 {CVSROOTADM_MODULES, 358 /* modules is special-cased in mkmodules. */ 359 NULL, 360 modules_contents}, 361 {CVSROOTADM_READERS, 362 "a %s file specifies read-only users", 363 NULL}, 364 {CVSROOTADM_WRITERS, 365 "a %s file specifies read/write users", 366 NULL}, 367 368 /* Some have suggested listing CVSROOTADM_PASSWD here too. This 369 would mean that CVS commands which operate on the 370 CVSROOTADM_PASSWD file would transmit hashed passwords over the 371 net. This might seem to be no big deal, as pserver normally 372 transmits cleartext passwords, but the difference is that 373 CVSROOTADM_PASSWD contains *all* passwords, not just the ones 374 currently being used. For example, it could be too easy to 375 accidentally give someone readonly access to CVSROOTADM_PASSWD 376 (e.g. via anonymous CVS or cvsweb), and then if there are any 377 guessable passwords for read/write access (usually there will be) 378 they get read/write access. 379 380 Another worry is the implications of storing old passwords--if 381 someone used a password in the past they might be using it 382 elsewhere, using a similar password, etc, and so saving old 383 passwords, even hashed, is probably not a good idea. */ 384 385 {CVSROOTADM_CONFIG, 386 "a %s file configures various behaviors", 387 config_contents}, 388 {NULL, NULL, NULL} 389}; 390 391/* Rebuild the checked out administrative files in directory DIR. */ 392int 393mkmodules (dir) 394 char *dir; 395{ 396 struct saved_cwd cwd; 397 char *temp; 398 char *cp, *last, *fname; 399#ifdef MY_NDBM 400 DBM *db; 401#endif 402 FILE *fp; 403 char *line = NULL; 404 size_t line_allocated = 0; 405 const struct admin_file *fileptr; 406 407 if (noexec) 408 return 0; 409 410 if (save_cwd (&cwd)) 411 error_exit (); 412 413 if ( CVS_CHDIR (dir) < 0) 414 error (1, errno, "cannot chdir to %s", dir); 415 416 /* 417 * First, do the work necessary to update the "modules" database. 418 */ 419 temp = make_tempfile (); 420 switch (checkout_file (CVSROOTADM_MODULES, temp)) 421 { 422 423 case 0: /* everything ok */ 424#ifdef MY_NDBM 425 /* open it, to generate any duplicate errors */ 426 if ((db = dbm_open (temp, O_RDONLY, 0666)) != NULL) 427 dbm_close (db); 428#else 429 write_dbmfile (temp); 430 rename_dbmfile (temp); 431#endif 432 rename_rcsfile (temp, CVSROOTADM_MODULES); 433 break; 434 435 default: 436 error (0, 0, 437 "'cvs checkout' is less functional without a %s file", 438 CVSROOTADM_MODULES); 439 break; 440 } /* switch on checkout_file() */ 441 442 if (unlink_file (temp) < 0 443 && !existence_error (errno)) 444 error (0, errno, "cannot remove %s", temp); 445 free (temp); 446 447 /* Checkout the files that need it in CVSROOT dir */ 448 for (fileptr = filelist; fileptr && fileptr->filename; fileptr++) { 449 if (fileptr->errormsg == NULL) 450 continue; 451 temp = make_tempfile (); 452 if (checkout_file (fileptr->filename, temp) == 0) 453 rename_rcsfile (temp, fileptr->filename); 454#if 0 455 /* 456 * If there was some problem other than the file not existing, 457 * checkout_file already printed a real error message. If the 458 * file does not exist, it is harmless--it probably just means 459 * that the repository was created with an old version of CVS 460 * which didn't have so many files in CVSROOT. 461 */ 462 else if (fileptr->errormsg) 463 error (0, 0, fileptr->errormsg, fileptr->filename); 464#endif 465 if (unlink_file (temp) < 0 466 && !existence_error (errno)) 467 error (0, errno, "cannot remove %s", temp); 468 free (temp); 469 } 470 471 fp = CVS_FOPEN (CVSROOTADM_CHECKOUTLIST, "r"); 472 if (fp) 473 { 474 /* 475 * File format: 476 * [<whitespace>]<filename>[<whitespace><error message>]<end-of-line> 477 * 478 * comment lines begin with '#' 479 */ 480 while (getline (&line, &line_allocated, fp) >= 0) 481 { 482 /* skip lines starting with # */ 483 if (line[0] == '#') 484 continue; 485 486 if ((last = strrchr (line, '\n')) != NULL) 487 *last = '\0'; /* strip the newline */ 488 489 /* Skip leading white space. */ 490 for (fname = line; 491 *fname && isspace ((unsigned char) *fname); 492 fname++) 493 ; 494 495 /* Find end of filename. */ 496 for (cp = fname; *cp && !isspace ((unsigned char) *cp); cp++) 497 ; 498 *cp = '\0'; 499 500 temp = make_tempfile (); 501 if (checkout_file (fname, temp) == 0) 502 { 503 rename_rcsfile (temp, fname); 504 } 505 else 506 { 507 /* Skip leading white space before the error message. */ 508 for (cp++; 509 cp < last && *cp && isspace ((unsigned char) *cp); 510 cp++) 511 ; 512 if (cp < last && *cp) 513 error (0, 0, "%s", cp); 514 } 515 if (unlink_file (temp) < 0 516 && !existence_error (errno)) 517 error (0, errno, "cannot remove %s", temp); 518 free (temp); 519 } 520 if (line) 521 free (line); 522 if (ferror (fp)) 523 error (0, errno, "cannot read %s", CVSROOTADM_CHECKOUTLIST); 524 if (fclose (fp) < 0) 525 error (0, errno, "cannot close %s", CVSROOTADM_CHECKOUTLIST); 526 } 527 else 528 { 529 /* Error from CVS_FOPEN. */ 530 if (!existence_error (errno)) 531 error (0, errno, "cannot open %s", CVSROOTADM_CHECKOUTLIST); 532 } 533 534 if (restore_cwd (&cwd, NULL)) 535 error_exit (); 536 free_cwd (&cwd); 537 538 return (0); 539} 540 541/* 542 * Yeah, I know, there are NFS race conditions here. 543 */ 544static char * 545make_tempfile () 546{ 547 static int seed = 0; 548 int fd; 549 char *temp; 550 551 if (seed == 0) 552 seed = getpid (); 553 temp = xmalloc (sizeof (BAKPREFIX) + 40); 554 while (1) 555 { 556 (void) sprintf (temp, "%s%d", BAKPREFIX, seed++); 557 if ((fd = CVS_OPEN (temp, O_CREAT|O_EXCL|O_RDWR, 0666)) != -1) 558 break; 559 if (errno != EEXIST) 560 error (1, errno, "cannot create temporary file %s", temp); 561 } 562 if (close(fd) < 0) 563 error(1, errno, "cannot close temporary file %s", temp); 564 return temp; 565} 566 567/* Get a file. If the file does not exist, return 1 silently. If 568 there is an error, print a message and return 1 (FIXME: probably 569 not a very clean convention). On success, return 0. */ 570 571static int 572checkout_file (file, temp) 573 char *file; 574 char *temp; 575{ 576 char *rcs; 577 RCSNode *rcsnode; 578 int retcode = 0; 579 580 if (noexec) 581 return 0; 582 583 rcs = xmalloc (strlen (file) + 5); 584 strcpy (rcs, file); 585 strcat (rcs, RCSEXT); 586 if (!isfile (rcs)) 587 { 588 free (rcs); 589 return (1); 590 } 591 592 rcsnode = RCS_parsercsfile (rcs); 593 if (!rcsnode) 594 { 595 /* Probably not necessary (?); RCS_parsercsfile already printed a 596 message. */ 597 error (0, 0, "Failed to parse `%s'.", rcs); 598 free (rcs); 599 return 1; 600 } 601 602 retcode = RCS_checkout (rcsnode, NULL, NULL, NULL, NULL, temp, 603 (RCSCHECKOUTPROC) NULL, (void *) NULL); 604 if (retcode != 0) 605 { 606 /* Probably not necessary (?); RCS_checkout already printed a 607 message. */ 608 error (0, 0, "failed to check out %s file", 609 file); 610 } 611 freercsnode (&rcsnode); 612 free (rcs); 613 return (retcode); 614} 615 616#ifndef MY_NDBM 617 618static void 619write_dbmfile (temp) 620 char *temp; 621{ 622 char line[DBLKSIZ], value[DBLKSIZ]; 623 FILE *fp; 624 DBM *db; 625 char *cp, *vp; 626 datum key, val; 627 int len, cont, err = 0; 628 629 fp = open_file (temp, "r"); 630 if ((db = dbm_open (temp, O_RDWR | O_CREAT | O_TRUNC, 0666)) == NULL) 631 error (1, errno, "cannot open dbm file %s for creation", temp); 632 for (cont = 0; fgets (line, sizeof (line), fp) != NULL;) 633 { 634 if ((cp = strrchr (line, '\n')) != NULL) 635 *cp = '\0'; /* strip the newline */ 636 637 /* 638 * Add the line to the value, at the end if this is a continuation 639 * line; otherwise at the beginning, but only after any trailing 640 * backslash is removed. 641 */ 642 vp = value; 643 if (cont) 644 vp += strlen (value); 645 646 /* 647 * See if the line we read is a continuation line, and strip the 648 * backslash if so. 649 */ 650 len = strlen (line); 651 if (len > 0) 652 cp = &line[len - 1]; 653 else 654 cp = line; 655 if (*cp == '\\') 656 { 657 cont = 1; 658 *cp = '\0'; 659 } 660 else 661 { 662 cont = 0; 663 } 664 (void) strcpy (vp, line); 665 if (value[0] == '#') 666 continue; /* comment line */ 667 vp = value; 668 while (*vp && isspace ((unsigned char) *vp)) 669 vp++; 670 if (*vp == '\0') 671 continue; /* empty line */ 672 673 /* 674 * If this was not a continuation line, add the entry to the database 675 */ 676 if (!cont) 677 { 678 key.dptr = vp; 679 while (*vp && !isspace ((unsigned char) *vp)) 680 vp++; 681 key.dsize = vp - key.dptr; 682 *vp++ = '\0'; /* NULL terminate the key */ 683 while (*vp && isspace ((unsigned char) *vp)) 684 vp++; /* skip whitespace to value */ 685 if (*vp == '\0') 686 { 687 error (0, 0, "warning: NULL value for key `%s'", key.dptr); 688 continue; 689 } 690 val.dptr = vp; 691 val.dsize = strlen (vp); 692 if (dbm_store (db, key, val, DBM_INSERT) == 1) 693 { 694 error (0, 0, "duplicate key found for `%s'", key.dptr); 695 err++; 696 } 697 } 698 } 699 dbm_close (db); 700 if (fclose (fp) < 0) 701 error (0, errno, "cannot close %s", temp); 702 if (err) 703 { 704 /* I think that the size of the buffer needed here is 705 just determined by sizeof (CVSROOTADM_MODULES), the 706 filenames created by make_tempfile, and other things that won't 707 overflow. */ 708 char dotdir[50], dotpag[50], dotdb[50]; 709 710 (void) sprintf (dotdir, "%s.dir", temp); 711 (void) sprintf (dotpag, "%s.pag", temp); 712 (void) sprintf (dotdb, "%s.db", temp); 713 if (unlink_file (dotdir) < 0 714 && !existence_error (errno)) 715 error (0, errno, "cannot remove %s", dotdir); 716 if (unlink_file (dotpag) < 0 717 && !existence_error (errno)) 718 error (0, errno, "cannot remove %s", dotpag); 719 if (unlink_file (dotdb) < 0 720 && !existence_error (errno)) 721 error (0, errno, "cannot remove %s", dotdb); 722 error (1, 0, "DBM creation failed; correct above errors"); 723 } 724} 725 726static void 727rename_dbmfile (temp) 728 char *temp; 729{ 730 /* I think that the size of the buffer needed here is 731 just determined by sizeof (CVSROOTADM_MODULES), the 732 filenames created by make_tempfile, and other things that won't 733 overflow. */ 734 char newdir[50], newpag[50], newdb[50]; 735 char dotdir[50], dotpag[50], dotdb[50]; 736 char bakdir[50], bakpag[50], bakdb[50]; 737 738 int dir1_errno = 0, pag1_errno = 0, db1_errno = 0; 739 int dir2_errno = 0, pag2_errno = 0, db2_errno = 0; 740 int dir3_errno = 0, pag3_errno = 0, db3_errno = 0; 741 742 (void) sprintf (dotdir, "%s.dir", CVSROOTADM_MODULES); 743 (void) sprintf (dotpag, "%s.pag", CVSROOTADM_MODULES); 744 (void) sprintf (dotdb, "%s.db", CVSROOTADM_MODULES); 745 (void) sprintf (bakdir, "%s%s.dir", BAKPREFIX, CVSROOTADM_MODULES); 746 (void) sprintf (bakpag, "%s%s.pag", BAKPREFIX, CVSROOTADM_MODULES); 747 (void) sprintf (bakdb, "%s%s.db", BAKPREFIX, CVSROOTADM_MODULES); 748 (void) sprintf (newdir, "%s.dir", temp); 749 (void) sprintf (newpag, "%s.pag", temp); 750 (void) sprintf (newdb, "%s.db", temp); 751 752 (void) chmod (newdir, 0666); 753 (void) chmod (newpag, 0666); 754 (void) chmod (newdb, 0666); 755 756 /* don't mess with me */ 757 SIG_beginCrSect (); 758 759 /* rm .#modules.dir .#modules.pag */ 760 if (unlink_file (bakdir) < 0) 761 dir1_errno = errno; 762 if (unlink_file (bakpag) < 0) 763 pag1_errno = errno; 764 if (unlink_file (bakdb) < 0) 765 db1_errno = errno; 766 767 /* mv modules.dir .#modules.dir */ 768 if (CVS_RENAME (dotdir, bakdir) < 0) 769 dir2_errno = errno; 770 /* mv modules.pag .#modules.pag */ 771 if (CVS_RENAME (dotpag, bakpag) < 0) 772 pag2_errno = errno; 773 /* mv modules.db .#modules.db */ 774 if (CVS_RENAME (dotdb, bakdb) < 0) 775 db2_errno = errno; 776 777 /* mv "temp".dir modules.dir */ 778 if (CVS_RENAME (newdir, dotdir) < 0) 779 dir3_errno = errno; 780 /* mv "temp".pag modules.pag */ 781 if (CVS_RENAME (newpag, dotpag) < 0) 782 pag3_errno = errno; 783 /* mv "temp".db modules.db */ 784 if (CVS_RENAME (newdb, dotdb) < 0) 785 db3_errno = errno; 786 787 /* OK -- make my day */ 788 SIG_endCrSect (); 789 790 /* I didn't want to call error() when we had signals blocked 791 (unnecessary?), but do it now. */ 792 if (dir1_errno && !existence_error (dir1_errno)) 793 error (0, dir1_errno, "cannot remove %s", bakdir); 794 if (pag1_errno && !existence_error (pag1_errno)) 795 error (0, pag1_errno, "cannot remove %s", bakpag); 796 if (db1_errno && !existence_error (db1_errno)) 797 error (0, db1_errno, "cannot remove %s", bakdb); 798 799 if (dir2_errno && !existence_error (dir2_errno)) 800 error (0, dir2_errno, "cannot remove %s", bakdir); 801 if (pag2_errno && !existence_error (pag2_errno)) 802 error (0, pag2_errno, "cannot remove %s", bakpag); 803 if (db2_errno && !existence_error (db2_errno)) 804 error (0, db2_errno, "cannot remove %s", bakdb); 805 806 if (dir3_errno && !existence_error (dir3_errno)) 807 error (0, dir3_errno, "cannot remove %s", bakdir); 808 if (pag3_errno && !existence_error (pag3_errno)) 809 error (0, pag3_errno, "cannot remove %s", bakpag); 810 if (db3_errno && !existence_error (db3_errno)) 811 error (0, db3_errno, "cannot remove %s", bakdb); 812} 813 814#endif /* !MY_NDBM */ 815 816static void 817rename_rcsfile (temp, real) 818 char *temp; 819 char *real; 820{ 821 char *bak; 822 struct stat statbuf; 823 char *rcs; 824 825 /* Set "x" bits if set in original. */ 826 rcs = xmalloc (strlen (real) + sizeof (RCSEXT) + 10); 827 (void) sprintf (rcs, "%s%s", real, RCSEXT); 828 statbuf.st_mode = 0; /* in case rcs file doesn't exist, but it should... */ 829 if (CVS_STAT (rcs, &statbuf) < 0 830 && !existence_error (errno)) 831 error (0, errno, "cannot stat %s", rcs); 832 free (rcs); 833 834 if (chmod (temp, 0444 | (statbuf.st_mode & 0111)) < 0) 835 error (0, errno, "warning: cannot chmod %s", temp); 836 bak = xmalloc (strlen (real) + sizeof (BAKPREFIX) + 10); 837 (void) sprintf (bak, "%s%s", BAKPREFIX, real); 838 839 /* rm .#loginfo */ 840 if (unlink_file (bak) < 0 841 && !existence_error (errno)) 842 error (0, errno, "cannot remove %s", bak); 843 844 /* mv loginfo .#loginfo */ 845 if (CVS_RENAME (real, bak) < 0 846 && !existence_error (errno)) 847 error (0, errno, "cannot rename %s to %s", real, bak); 848 849 /* mv "temp" loginfo */ 850 if (CVS_RENAME (temp, real) < 0 851 && !existence_error (errno)) 852 error (0, errno, "cannot rename %s to %s", temp, real); 853 854 free (bak); 855} 856 857/* 858 * Walk PATH backwards to the root directory looking for the root of a 859 * repository. 860 */ 861static char * 862in_repository (const char *path) 863{ 864 char *cp = xstrdup (path); 865 866 for (;;) 867 { 868 if (isdir (cp)) 869 { 870 int foundit; 871 char *adm = xmalloc (strlen(cp) + strlen(CVSROOTADM) + 2); 872 sprintf (adm, "%s/%s", cp, CVSROOTADM); 873 foundit = isdir (adm); 874 free (adm); 875 if (foundit) return cp; 876 } 877 878 /* If last_component() returns the empty string, then cp either 879 * points at the system root or is the empty string itself. 880 */ 881 if (!*last_component (cp) || !strcmp (cp, ".") 882 || last_component(cp) == cp) 883 break; 884 885 cp[strlen(cp) - strlen(last_component(cp)) - 1] = '\0'; 886 } 887 888 return NULL; 889} 890 891 892const char *const init_usage[] = { 893 "Usage: %s %s\n", 894 "(Specify the --help global option for a list of other help options)\n", 895 NULL 896}; 897 898int 899init (argc, argv) 900 int argc; 901 char **argv; 902{ 903 /* Name of CVSROOT directory. */ 904 char *adm; 905 /* Name of this administrative file. */ 906 char *info; 907 /* Name of ,v file for this administrative file. */ 908 char *info_v; 909 /* Exit status. */ 910 int err = 0; 911 912 char *root_dir; 913 const struct admin_file *fileptr; 914 915 assert (!server_active); 916 917 umask (cvsumask); 918 919 if (argc == -1 || argc > 1) 920 usage (init_usage); 921 922#ifdef CLIENT_SUPPORT 923 if (current_parsed_root->isremote) 924 { 925 start_server (); 926 927 ign_setup (); 928 send_init_command (); 929 return get_responses_and_close (); 930 } 931#endif /* CLIENT_SUPPORT */ 932 933 root_dir = in_repository (current_parsed_root->directory); 934 935 if (root_dir && strcmp (root_dir, current_parsed_root->directory)) 936 error (1, 0, 937 "Cannot initialize repository under existing CVSROOT: `%s'", 938 root_dir); 939 free (root_dir); 940 941 /* Note: we do *not* create parent directories as needed like the 942 old cvsinit.sh script did. Few utilities do that, and a 943 non-existent parent directory is as likely to be a typo as something 944 which needs to be created. */ 945 mkdir_if_needed (current_parsed_root->directory); 946 947 adm = xmalloc (strlen (current_parsed_root->directory) + sizeof (CVSROOTADM) + 2); 948 sprintf (adm, "%s/%s", current_parsed_root->directory, CVSROOTADM); 949 mkdir_if_needed (adm); 950 951 /* This is needed because we pass "fileptr->filename" not "info" 952 to add_rcs_file below. I think this would be easy to change, 953 thus nuking the need for CVS_CHDIR here, but I haven't looked 954 closely (e.g. see wrappers calls within add_rcs_file). */ 955 if ( CVS_CHDIR (adm) < 0) 956 error (1, errno, "cannot change to directory %s", adm); 957 958 /* Make Emptydir so it's there if we need it */ 959 mkdir_if_needed (CVSNULLREPOS); 960 961 /* 80 is long enough for all the administrative file names, plus 962 "/" and so on. */ 963 info = xmalloc (strlen (adm) + 80); 964 info_v = xmalloc (strlen (adm) + 80); 965 for (fileptr = filelist; fileptr && fileptr->filename; ++fileptr) 966 { 967 if (fileptr->contents == NULL) 968 continue; 969 strcpy (info, adm); 970 strcat (info, "/"); 971 strcat (info, fileptr->filename); 972 strcpy (info_v, info); 973 strcat (info_v, RCSEXT); 974 if (isfile (info_v)) 975 /* We will check out this file in the mkmodules step. 976 Nothing else is required. */ 977 ; 978 else 979 { 980 int retcode; 981 982 if (!isfile (info)) 983 { 984 FILE *fp; 985 const char * const *p; 986 987 fp = open_file (info, "w"); 988 for (p = fileptr->contents; *p != NULL; ++p) 989 if (fputs (*p, fp) < 0) 990 error (1, errno, "cannot write %s", info); 991 if (fclose (fp) < 0) 992 error (1, errno, "cannot close %s", info); 993 } 994 /* The message used to say " of " and fileptr->filename after 995 "initial checkin" but I fail to see the point as we know what 996 file it is from the name. */ 997 retcode = add_rcs_file ("initial checkin", info_v, 998 fileptr->filename, "1.1", NULL, 999 1000 /* No vendor branch. */ 1001 NULL, NULL, 0, NULL, 1002 1003 NULL, 0, NULL); 1004 if (retcode != 0) 1005 /* add_rcs_file already printed an error message. */ 1006 err = 1; 1007 } 1008 } 1009 1010 /* Turn on history logging by default. The user can remove the file 1011 to disable it. */ 1012 strcpy (info, adm); 1013 strcat (info, "/"); 1014 strcat (info, CVSROOTADM_HISTORY); 1015 if (!isfile (info)) 1016 { 1017 FILE *fp; 1018 1019 fp = open_file (info, "w"); 1020 if (fclose (fp) < 0) 1021 error (1, errno, "cannot close %s", info); 1022 1023 /* Make the new history file world-writeable, since every CVS 1024 user will need to be able to write to it. We use chmod() 1025 because xchmod() is too shy. */ 1026 chmod (info, 0666); 1027 } 1028 1029 /* Make an empty val-tags file to prevent problems creating it later. */ 1030 strcpy (info, adm); 1031 strcat (info, "/"); 1032 strcat (info, CVSROOTADM_VALTAGS); 1033 if (!isfile (info)) 1034 { 1035 FILE *fp; 1036 1037 fp = open_file (info, "w"); 1038 if (fclose (fp) < 0) 1039 error (1, errno, "cannot close %s", info); 1040 1041 /* Make the new val-tags file world-writeable, since every CVS 1042 user will need to be able to write to it. We use chmod() 1043 because xchmod() is too shy. */ 1044 chmod (info, 0666); 1045 } 1046 1047 free (info); 1048 free (info_v); 1049 1050 mkmodules (adm); 1051 1052 free (adm); 1053 return err; 1054} 1055