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