1/* 2 * Copyright (C) 1986-2005 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 source distribution. 12 * 13 * Create Administration. 14 * 15 * Creates a CVS administration directory based on the argument repository; the 16 * "Entries" file is prefilled from the "initrecord" argument. 17 */ 18#include <sys/cdefs.h> 19__RCSID("$NetBSD: create_adm.c,v 1.3 2018/04/29 15:47:01 christos Exp $"); 20 21#include "cvs.h" 22 23 24 25/* update_dir includes dir as its last component. 26 27 Return value is 0 for success, or 1 if we printed a warning message. 28 Note that many errors are still fatal; particularly for unlikely errors 29 a fatal error is probably better than a warning which might be missed 30 or after which CVS might do something non-useful. If WARN is zero, then 31 don't print warnings; all errors are fatal then. */ 32 33int 34Create_Admin (const char *dir, const char *update_dir, const char *repository, 35 const char *tag, const char *date, int nonbranch, int warn, 36 int dotemplate) 37{ 38 FILE *fout; 39 char *cp; 40 char *reposcopy; 41 char *tmp; 42 43 TRACE (TRACE_FUNCTION, "Create_Admin (%s, %s, %s, %s, %s, %d, %d, %d)", 44 dir, update_dir, repository, tag ? tag : "", 45 date ? date : "", nonbranch, warn, dotemplate); 46 47 if (noexec) 48 return 0; 49 50 tmp = Xasprintf ("%s/%s", dir, CVSADM); 51 if (isfile (tmp)) 52 { 53 error (0, 0, "there is a version in %s already", update_dir); 54 } 55 56 if (CVS_MKDIR (tmp, 0777) < 0) 57 { 58 free (tmp); 59 tmp = NULL; 60 61 /* We want to print out the entire update_dir, since a lot of 62 our code calls this function with dir == "." or dir == 63 NULL. I hope that gives enough information in cases like 64 absolute pathnames; printing out xgetcwd() or something would 65 be way too verbose in the common cases. */ 66 67 if (warn) 68 { 69 /* The reason that this is a warning, rather than silently 70 just skipping creating the directory, is that we don't want 71 CVS's behavior to vary subtly based on factors (like directory 72 permissions) which are not made clear to the user. With 73 the warning at least we let them know what is going on. */ 74 error (0, errno, "warning: cannot make directory %s in %s", 75 CVSADM, update_dir); 76 return 1; 77 } 78 else 79 error (1, errno, "cannot make directory %s in %s", 80 CVSADM, update_dir); 81 } 82 else 83 { 84 free (tmp); 85 tmp = NULL; 86 } 87 88 /* record the current cvs root for later use */ 89 90 Create_Root (dir, original_parsed_root->original); 91 if (dir != NULL) 92 tmp = Xasprintf ("%s/%s", dir, CVSADM_REP); 93 else 94 tmp = xstrdup (CVSADM_REP); 95 fout = CVS_FOPEN (tmp, "w+"); 96 if (fout == NULL) 97 { 98 if (update_dir[0] == '\0') 99 error (1, errno, "cannot open %s", tmp); 100 else 101 error (1, errno, "cannot open %s/%s", update_dir, CVSADM_REP); 102 } 103 reposcopy = xstrdup (repository); 104 Sanitize_Repository_Name (reposcopy); 105 106 /* The top level of the repository is a special case -- we need to 107 write it with an extra dot at the end. This trailing `.' stuff 108 rubs me the wrong way -- on the other hand, I don't want to 109 spend the time making sure all of the code can handle it if we 110 don't do it. */ 111 112 if (strcmp (reposcopy, current_parsed_root->directory) == 0) 113 { 114 reposcopy = xrealloc (reposcopy, strlen (reposcopy) + 3); 115 strcat (reposcopy, "/."); 116 } 117 118 cp = reposcopy; 119 120 /* 121 * If the Repository file is to hold a relative path, try to strip off 122 * the leading CVSroot argument. 123 */ 124 { 125 char *path = Xasprintf ("%s/", current_parsed_root->directory); 126 if (strncmp (cp, path, strlen (path)) == 0) 127 cp += strlen (path); 128 free (path); 129 } 130 131 if (fprintf (fout, "%s\n", cp) < 0) 132 { 133 if (update_dir[0] == '\0') 134 error (1, errno, "write to %s failed", tmp); 135 else 136 error (1, errno, "write to %s/%s failed", update_dir, CVSADM_REP); 137 } 138 if (fclose (fout) == EOF) 139 { 140 if (update_dir[0] == '\0') 141 error (1, errno, "cannot close %s", tmp); 142 else 143 error (1, errno, "cannot close %s/%s", update_dir, CVSADM_REP); 144 } 145 146 /* now, do the Entries file */ 147 if (dir != NULL) 148 (void) sprintf (tmp, "%s/%s", dir, CVSADM_ENT); 149 else 150 (void) strcpy (tmp, CVSADM_ENT); 151 fout = CVS_FOPEN (tmp, "w+"); 152 if (fout == NULL) 153 { 154 if (update_dir[0] == '\0') 155 error (1, errno, "cannot open %s", tmp); 156 else 157 error (1, errno, "cannot open %s/%s", update_dir, CVSADM_ENT); 158 } 159 if (fclose (fout) == EOF) 160 { 161 if (update_dir[0] == '\0') 162 error (1, errno, "cannot close %s", tmp); 163 else 164 error (1, errno, "cannot close %s/%s", update_dir, CVSADM_ENT); 165 } 166 167 /* Create a new CVS/Tag file */ 168 WriteTag (dir, tag, date, nonbranch, update_dir, repository); 169 170 TRACE (TRACE_FUNCTION, "Create_Admin"); 171 172 free (reposcopy); 173 free (tmp); 174 return 0; 175} 176