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