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