2 * Copyright (C) 1986-2005 The Free Software Foundation, Inc.
4 * Portions Copyright (C) 1998-2005 Derek Price, Ximbiot <http://ximbiot.com>,
7 * Portions Copyright (C) 1992, Brian Berliner and Jeff Polk
8 * Portions Copyright (C) 1989-1992, Brian Berliner
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.
13 * Create Administration.
15 * Creates a CVS administration directory based on the argument repository; the
16 * "Entries" file is prefilled from the "initrecord" argument.
21 /* update_dir includes dir as its last component.
23 Return value is 0 for success, or 1 if we printed a warning message.
24 Note that many errors are still fatal; particularly for unlikely errors
25 a fatal error is probably better than a warning which might be missed
26 or after which CVS might do something non-useful. If WARN is zero, then
27 don't print warnings; all errors are fatal then. */
30 Create_Admin (dir, update_dir, repository, tag, date, nonbranch, warn,
33 const char *update_dir;
34 const char *repository;
48 fprintf (stderr, "%s-> Create_Admin (%s, %s, %s, %s, %s, %d, %d, %d)\n",
50 dir, update_dir, repository, tag ? tag : "",
51 date ? date : "", nonbranch, warn, dotemplate);
57 tmp = xmalloc (strlen (dir) + 100);
58 (void) sprintf (tmp, "%s/%s", dir, CVSADM);
60 error (1, 0, "there is a version in %s already", update_dir);
62 if (CVS_MKDIR (tmp, 0777) < 0)
64 /* We want to print out the entire update_dir, since a lot of
65 our code calls this function with dir == "." or dir ==
66 NULL. I hope that gives enough information in cases like
67 absolute pathnames; printing out xgetwd or something would
68 be way too verbose in the common cases. */
72 /* The reason that this is a warning, rather than silently
73 just skipping creating the directory, is that we don't want
74 CVS's behavior to vary subtly based on factors (like directory
75 permissions) which are not made clear to the user. With
76 the warning at least we let them know what is going on. */
77 error (0, errno, "warning: cannot make directory %s in %s",
83 error (1, errno, "cannot make directory %s in %s",
87 /* record the current cvs root for later use */
89 Create_Root (dir, current_parsed_root->original);
91 (void) sprintf (tmp, "%s/%s", dir, CVSADM_REP);
93 (void) strcpy (tmp, CVSADM_REP);
94 fout = CVS_FOPEN (tmp, "w+");
97 if (update_dir[0] == '\0')
98 error (1, errno, "cannot open %s", tmp);
100 error (1, errno, "cannot open %s/%s", update_dir, CVSADM_REP);
102 reposcopy = xstrdup (repository);
103 Sanitize_Repository_Name (reposcopy);
105 /* The top level of the repository is a special case -- we need to
106 write it with an extra dot at the end. This trailing `.' stuff
107 rubs me the wrong way -- on the other hand, I don't want to
108 spend the time making sure all of the code can handle it if we
111 if (strcmp (reposcopy, current_parsed_root->directory) == 0)
113 reposcopy = xrealloc (reposcopy, strlen (reposcopy) + 3);
114 strcat (reposcopy, "/.");
120 * If the Repository file is to hold a relative path, try to strip off
121 * the leading CVSroot argument.
124 char *path = xmalloc (strlen (current_parsed_root->directory) + 2);
126 (void) sprintf (path, "%s/", current_parsed_root->directory);
127 if (strncmp (cp, path, strlen (path)) == 0)
132 if (fprintf (fout, "%s\n", cp) < 0)
134 if (update_dir[0] == '\0')
135 error (1, errno, "write to %s failed", tmp);
137 error (1, errno, "write to %s/%s failed", update_dir, CVSADM_REP);
139 if (fclose (fout) == EOF)
141 if (update_dir[0] == '\0')
142 error (1, errno, "cannot close %s", tmp);
144 error (1, errno, "cannot close %s/%s", update_dir, CVSADM_REP);
147 /* now, do the Entries file */
149 (void) sprintf (tmp, "%s/%s", dir, CVSADM_ENT);
151 (void) strcpy (tmp, CVSADM_ENT);
152 fout = CVS_FOPEN (tmp, "w+");
155 if (update_dir[0] == '\0')
156 error (1, errno, "cannot open %s", tmp);
158 error (1, errno, "cannot open %s/%s", update_dir, CVSADM_ENT);
160 if (fclose (fout) == EOF)
162 if (update_dir[0] == '\0')
163 error (1, errno, "cannot close %s", tmp);
165 error (1, errno, "cannot close %s/%s", update_dir, CVSADM_ENT);
168 /* Create a new CVS/Tag file */
169 WriteTag (dir, tag, date, nonbranch, update_dir, repository);
171 #ifdef SERVER_SUPPORT
172 if (server_active && dotemplate)
174 server_template (update_dir, repository);
179 fprintf (stderr, "%c<- Create_Admin\n",
180 (server_active) ? 'S' : ' ');