Merge branch 'mirbsd'
[alioth/cvs.git] / src / mkmodules.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 kit.  */
12
13 #include "cvs.h"
14 #include "getline.h"
15 #include "history.h"
16 #include "save-cwd.h"
17
18 #ifndef DBLKSIZ
19 #define DBLKSIZ 4096                    /* since GNU ndbm doesn't define it */
20 #endif
21
22 static int checkout_file (char *file, char *temp);
23 static char *make_tempfile (void);
24 static void rename_rcsfile (char *temp, char *real);
25
26 #ifndef MY_NDBM
27 static void rename_dbmfile (char *temp);
28 static void write_dbmfile (char *temp);
29 #endif                          /* !MY_NDBM */
30
31 /* Structure which describes an administrative file.  */
32 struct admin_file {
33    /* Name of the file, within the CVSROOT directory.  */
34    char *filename;
35
36    /* This is a one line description of what the file is for.  It is not
37       currently used, although one wonders whether it should be, somehow.
38       If NULL, then don't process this file in mkmodules (FIXME?: a bit of
39       a kludge; probably should replace this with a flags field).  */
40    char *errormsg;
41
42    /* Contents which the file should have in a new repository.  To avoid
43       problems with brain-dead compilers which choke on long string constants,
44       this is a pointer to an array of char * terminated by NULL--each of
45       the strings is concatenated.
46
47       If this field is NULL, the file is not created in a new
48       repository, but it can be added with "cvs add" (just as if one
49       had created the repository with a version of CVS which didn't
50       know about the file) and the checked-out copy will be updated
51       without having to add it to checkoutlist.  */
52    const char * const *contents;
53 };
54
55 static const char *const loginfo_contents[] = {
56     "# The \"loginfo\" file controls where \"cvs commit\" log information is\n",
57     "# sent. The first entry on a line is a regular expression which must\n",
58     "# match the directory that the change is being made to, relative to the\n",
59     "# $CVSROOT.  If a match is found, then the remainder of the line is a\n",
60     "# filter program that should expect log information on its standard input.\n",
61     "#\n",
62     "# If the repository name does not match any of the regular expressions in this\n",
63     "# file, the \"DEFAULT\" line is used, if it is specified.\n",
64     "#\n",
65     "# If the name ALL appears as a regular expression it is always used\n",
66     "# in addition to the first matching regex or DEFAULT.\n",
67     "#\n",
68     "# If any format strings are present in the filter, they will be replaced\n",
69     "# as follows:\n",
70     "#    %c = canonical name of the command being executed\n",
71     "#    %I = unique (randomly generated) commit ID\n",
72 #ifdef PROXY_SUPPORT
73     "#    %R = the name of the referrer, if any, otherwise the value NONE\n",
74 #endif
75     "#    %p = path relative to repository\n",
76     "#    %r = repository (path portion of $CVSROOT)\n",
77     "#    %{sVv} = attribute list = file name, old version number (pre-checkin),\n",
78     "#           new version number (post-checkin).  When either old or new revision\n",
79     "#           is unknown, doesn't exist, or isn't applicable, the string \"NONE\"\n",
80     "#           will be placed on the command line instead.\n",
81     "#\n",
82     "# Note that %{sVv} is a list operator and not all elements are necessary.\n",
83     "# Thus %{sv} is a legal format string, but will only be replaced with\n",
84     "# file name and new revision.\n",
85     "# It also generates multiple arguments for each file being operated upon.\n",
86     "# That is, if two files, file1 & file2, are being committed from 1.1 to\n",
87     "# version 1.1.2.1 and from 1.1.2.2 to 1.1.2.3, respectively, %{sVv} will\n",
88     "# generate the following six arguments in this order:\n",
89     "# file1, 1.1, 1.1.2.1, file2, 1.1.2.2, 1.1.2.3.\n",
90     "#\n",
91     "# For example:\n",
92     "#DEFAULT (echo \"\"; id; echo %s; date; cat) >> $CVSROOT/CVSROOT/commitlog\n",
93     "# or\n",
94     "#DEFAULT (echo \"\"; id; echo %{sVv}; date; cat) >> $CVSROOT/CVSROOT/commitlog\n",
95     NULL
96 };
97
98 static const char *const rcsinfo_contents[] = {
99     "# The \"rcsinfo\" file is used to control templates with which the editor\n",
100     "# is invoked on commit and import.\n",
101     "#\n",
102     "# The first entry on a line is a regular expression which is tested\n",
103     "# against the directory that the change is being made to, relative to the\n",
104     "# $CVSROOT.  For the first match that is found, then the remainder of the\n",
105     "# line is the name of the file that contains the template.\n",
106     "#\n",
107     "# If the repository name does not match any of the regular expressions in this\n",
108     "# file, the \"DEFAULT\" line is used, if it is specified.\n",
109     "#\n",
110     "# If the name \"ALL\" appears as a regular expression it is always used\n",
111     "# in addition to the first matching regex or \"DEFAULT\".\n",
112     NULL
113 };
114
115
116
117 static const char *const verifymsg_contents[] = {
118     "# The \"verifymsg\" file is used to allow verification of logging\n",
119     "# information.  It works best when a template (as specified in the\n",
120     "# rcsinfo file) is provided for the logging procedure.  Given a\n",
121     "# template with locations for, a bug-id number, a list of people who\n",
122     "# reviewed the code before it can be checked in, and an external\n",
123     "# process to catalog the differences that were code reviewed, the\n",
124     "# following test can be applied to the code:\n",
125     "#\n",
126     "#   Making sure that the entered bug-id number is correct.\n",
127     "#   Validating that the code that was reviewed is indeed the code being\n",
128     "#       checked in (using the bug-id number or a separate review\n",
129     "#       number to identify this particular code set.).\n",
130     "#\n",
131     "# If any of the above test failed, then the commit would be aborted.\n",
132     "#\n",
133     "# Format strings present in the filter will be replaced as follows:\n",
134     "#    %c = canonical name of the command being executed\n",
135     "#    %I = unique (randomly generated) commit ID\n",
136 #ifdef PROXY_SUPPORT
137     "#    %R = the name of the referrer, if any, otherwise the value NONE\n",
138 #endif
139     "#    %p = path relative to repository\n",
140     "#    %r = repository (path portion of $CVSROOT)\n",
141     "#    %l = name of log file to be verified.\n",
142     "#\n",
143     "# If no format strings are present in the filter, a default \" %l\" will\n",
144     "# be appended to the filter, but this usage is deprecated.\n",
145     "#\n",
146     "# Actions such as mailing a copy of the report to each reviewer are\n",
147     "# better handled by an entry in the loginfo file.\n",
148     "#\n",
149     "# One thing that should be noted is the the ALL keyword is not\n",
150     "# supported.  There can be only one entry that matches a given\n",
151     "# repository.\n",
152     NULL
153 };
154
155 static const char *const commitinfo_contents[] = {
156     "# The \"commitinfo\" file is used to control pre-commit checks.\n",
157     "# The filter on the right is invoked with the repository and a list\n",
158     "# of files to check.  A non-zero exit of the filter program will\n",
159     "# cause the commit to be aborted.\n",
160     "#\n",
161     "# The first entry on a line is a regular expression which is tested\n",
162     "# against the directory that the change is being committed to, relative\n",
163     "# to the $CVSROOT.  For the first match that is found, then the remainder\n",
164     "# of the line is the name of the filter to run.\n",
165     "#\n",
166     "# Format strings present in the filter will be replaced as follows:\n",
167     "#    %c = canonical name of the command being executed\n",
168     "#    %I = unique (randomly generated) commit ID\n",
169 #ifdef PROXY_SUPPORT
170     "#    %R = the name of the referrer, if any, otherwise the value NONE\n",
171 #endif
172     "#    %p = path relative to repository\n",
173     "#    %r = repository (path portion of $CVSROOT)\n",
174     "#    %{s} = file name, file name, ...\n",
175     "#\n",
176     "# If no format strings are present in the filter string, a default of\n",
177     "# \" %r %s\" will be appended to the filter string, but this usage is\n",
178     "# deprecated.\n",
179     "#\n",
180     "# If the repository name does not match any of the regular expressions in this\n",
181     "# file, the \"DEFAULT\" line is used, if it is specified.\n",
182     "#\n",
183     "# If the name \"ALL\" appears as a regular expression it is always used\n",
184     "# in addition to the first matching regex or \"DEFAULT\".\n",
185     NULL
186 };
187
188 static const char *const taginfo_contents[] = {
189     "# The \"taginfo\" file is used to control pre-tag checks.\n",
190     "# The filter on the right is invoked with the following arguments\n",
191     "# if no format strings are present:\n",
192     "#\n",
193     "# $1 -- tagname\n",
194     "# $2 -- operation \"add\" for tag, \"mov\" for tag -F, and \"del\" for tag -d\n",
195     "# $3 -- tagtype \"?\" on delete, \"T\" for branch, \"N\" for static\n",
196     "# $4 -- repository\n",
197     "# $5->  file revision [file revision ...]\n",
198     "#\n",
199     "# If any format strings are present in the filter, they will be replaced\n",
200     "# as follows:\n",
201     "#    %b = branch mode = \"?\" (delete ops - unknown) | \"T\" (branch)\n",
202     "#                     | \"N\" (not branch)\n",
203     "#    %o = operation = \"add\" | \"mov\" | \"del\"\n",
204     "#    %c = canonical name of the command being executed\n",
205     "#    %I = unique (randomly generated) commit ID\n",
206 #ifdef PROXY_SUPPORT
207     "#    %R = the name of the referrer, if any, otherwise the value NONE\n",
208 #endif
209     "#    %p = path relative to repository\n",
210     "#    %r = repository (path portion of $CVSROOT)\n",
211     "#    %t = tagname\n",
212     "#    %{sVv} = attribute list = file name, old version tag will be deleted\n",
213     "#             from, new version tag will be added to (or deleted from, but\n",
214     "#             this feature is deprecated.  When either old or new revision is\n",
215     "#             unknown, doesn't exist, or isn't applicable, the string \"NONE\"\n",
216     "#             will be placed on the command line.\n",
217     "#\n",
218     "# Note that %{sVv} is a list operator and not all elements are necessary.\n",
219     "# Thus %{sV} is a legal format string, but will only be replaced with file\n",
220     "# name and old revision. it also generates multiple arguments for each file\n",
221     "# being operated upon.  i.e. if two files, file1 & file2, are having a tag\n",
222     "# moved from version 1.1 to version 1.1.2.9, %{sVv} will generate the\n",
223     "# following six arguments in this order:\n",
224     "# file1, 1.1, 1.1.2.9, file2, 1.1, 1.1.2.9.\n",
225     "#\n",
226     "# A non-zero exit of the filter program will cause the tag to be aborted.\n",
227     "#\n",
228     "# The first entry on a line is a regular expression which is tested\n",
229     "# against the directory that the change is being committed to, relative\n",
230     "# to the $CVSROOT.  For the first match that is found, then the remainder\n",
231     "# of the line is the name of the filter to run.\n",
232     "#\n",
233     "# If the repository name does not match any of the regular expressions in this\n",
234     "# file, the \"DEFAULT\" line is used, if it is specified.\n",
235     "#\n",
236     "# If the name \"ALL\" appears as a regular expression it is always used\n",
237     "# in addition to the first matching regex or \"DEFAULT\".\n",
238     NULL
239 };
240
241 static const char *const preproxy_contents[] = {
242     "# The \"preproxy\" file is called form the secondary server as soon as\n",
243     "# the secondary server determines that it will be proxying a write\n",
244     "# command to a primary server and immediately before it opens a\n",
245     "# connection to the primary server.  This script might, for example, be\n",
246     "# used to launch a dial up or VPN connection to the primary server's\n",
247     "# network.\n",
248     "#\n",
249     "# If any format strings are present in the filter, they will be replaced\n",
250     "# as follows:\n",
251     "#    %c = canonical name of the command being executed\n",
252     "#    %I = unique (randomly generated) commit ID\n",
253 #ifdef PROXY_SUPPORT
254     "#    %R = the name of the referrer, if any, otherwise the value NONE\n",
255 #endif
256     "#    %p = path relative to repository (currently always \".\")\n",
257     "#    %r = repository (path portion of $CVSROOT)\n",
258     "#\n",
259     "# The first entry on a line is a regular expression which is tested\n",
260     "# against the directory that the change is being committed to, relative\n",
261     "# to the $CVSROOT.  For the first match that is found, then the remainder\n",
262     "# of the line is the name of the filter to run.\n",
263     "#\n",
264     "# If the repository name does not match any of the regular expressions in this\n",
265     "# file, the \"DEFAULT\" line is used, if it is specified.\n",
266     "#\n",
267     "# If the name \"ALL\" appears as a regular expression it is always used\n",
268     "# in addition to the first matching regex or \"DEFAULT\".\n",
269     NULL
270 };
271
272 static const char *const postadmin_contents[] = {
273     "# The \"postadmin\" file is called after the \"admin\" command finishes\n",
274     "# processing a directory.\n",
275     "#\n",
276     "# If any format strings are present in the filter, they will be replaced\n",
277     "# as follows:\n",
278     "#    %c = canonical name of the command being executed\n",
279     "#    %I = unique (randomly generated) commit ID\n",
280 #ifdef PROXY_SUPPORT
281     "#    %R = the name of the referrer, if any, otherwise the value NONE\n",
282 #endif
283     "#    %p = path relative to repository\n",
284     "#    %r = repository (path portion of $CVSROOT)\n",
285     "#\n",
286     "# The first entry on a line is a regular expression which is tested\n",
287     "# against the directory that the change is being committed to, relative\n",
288     "# to the $CVSROOT.  For the first match that is found, then the remainder\n",
289     "# of the line is the name of the filter to run.\n",
290     "#\n",
291     "# If the repository name does not match any of the regular expressions in this\n",
292     "# file, the \"DEFAULT\" line is used, if it is specified.\n",
293     "#\n",
294     "# If the name \"ALL\" appears as a regular expression it is always used\n",
295     "# in addition to the first matching regex or \"DEFAULT\".\n",
296     NULL
297 };
298
299 static const char *const postproxy_contents[] = {
300     "# The \"postproxy\" file is called from a secondary server as soon as\n",
301     "# the secondary server closes its connection to the primary server.\n",
302     "# This script might, for example, be used to shut down a dial up\n",
303     "# or VPN connection to the primary server's network.\n",
304     "#\n",
305     "# If any format strings are present in the filter, they will be replaced\n",
306     "# as follows:\n",
307     "#    %c = canonical name of the command being executed\n",
308     "#    %I = unique (randomly generated) commit ID\n",
309 #ifdef PROXY_SUPPORT
310     "#    %R = the name of the referrer, if any, otherwise the value NONE\n",
311 #endif
312     "#    %p = path relative to repository (currently always \".\")\n",
313     "#    %r = repository (path portion of $CVSROOT)\n",
314     "#\n",
315     "# The first entry on a line is a regular expression which is tested\n",
316     "# against the directory that the change is being committed to, relative\n",
317     "# to the $CVSROOT.  For the first match that is found, then the remainder\n",
318     "# of the line is the name of the filter to run.\n",
319     "#\n",
320     "# If the repository name does not match any of the regular expressions in this\n",
321     "# file, the \"DEFAULT\" line is used, if it is specified.\n",
322     "#\n",
323     "# If the name \"ALL\" appears as a regular expression it is always used\n",
324     "# in addition to the first matching regex or \"DEFAULT\".\n",
325     NULL
326 };
327
328 static const char *const posttag_contents[] = {
329     "# The \"posttag\" file is called after the \"tag\" command finishes\n",
330     "# processing a directory.\n",
331     "#\n",
332     "# If any format strings are present in the filter, they will be replaced\n",
333     "# as follows:\n",
334     "#    %b = branch mode = \"?\" (delete ops - unknown) | \"T\" (branch)\n",
335     "#                     | \"N\" (not branch)\n",
336     "#    %o = operation = \"add\" | \"mov\" | \"del\"\n",
337     "#    %c = canonical name of the command being executed\n",
338     "#    %I = unique (randomly generated) commit ID\n",
339 #ifdef PROXY_SUPPORT
340     "#    %R = the name of the referrer, if any, otherwise the value NONE\n",
341 #endif
342     "#    %p = path relative to repository\n",
343     "#    %r = repository (path portion of $CVSROOT)\n",
344     "#    %t = tagname\n",
345     "#    %{sVv} = attribute list = file name, old version tag will be deleted\n",
346     "#             from, new version tag will be added to (or deleted from, but\n",
347     "#             this feature is deprecated.  When either old or new revision is\n",
348     "#             unknown, doesn't exist, or isn't applicable, the string \"NONE\"\n",
349     "#             will be placed on the command line.\n",
350     "#\n",
351     "# Note that %{sVv} is a list operator and not all elements are necessary.\n",
352     "# Thus %{sV} is a legal format string, but will only be replaced with file\n",
353     "# name and old revision. it also generates multiple arguments for each file\n",
354     "# being operated upon.  i.e. if two files, file1 & file2, are having a tag\n",
355     "# moved from version 1.1 to version 1.1.2.9, %{sVv} will generate the\n",
356     "# following six arguments in this order:\n",
357     "# file1, 1.1, 1.1.2.9, file2, 1.1, 1.1.2.9.\n",
358     "#\n",
359     "# The first entry on a line is a regular expression which is tested\n",
360     "# against the directory that the change is being committed to, relative\n",
361     "# to the $CVSROOT.  For the first match that is found, then the remainder\n",
362     "# of the line is the name of the filter to run.\n",
363     "#\n",
364     "# If the repository name does not match any of the regular expressions in this\n",
365     "# file, the \"DEFAULT\" line is used, if it is specified.\n",
366     "#\n",
367     "# If the name \"ALL\" appears as a regular expression it is always used\n",
368     "# in addition to the first matching regex or \"DEFAULT\".\n",
369     NULL
370 };
371
372 static const char *const postwatch_contents[] = {
373     "# The \"postwatch\" file is called after any command finishes writing new\n",
374     "# file attribute (watch/edit) information in a directory.\n",
375     "#\n",
376     "# If any format strings are present in the filter, they will be replaced\n",
377     "# as follows:\n",
378     "#    %c = canonical name of the command being executed\n",
379     "#    %I = unique (randomly generated) commit ID\n",
380 #ifdef PROXY_SUPPORT
381     "#    %R = the name of the referrer, if any, otherwise the value NONE\n",
382 #endif
383     "#    %p = path relative to repository\n",
384     "#    %r = repository (path portion of $CVSROOT)\n",
385     "#\n",
386     "# The first entry on a line is a regular expression which is tested\n",
387     "# against the directory that the change is being committed to, relative\n",
388     "# to the $CVSROOT.  For the first match that is found, then the remainder\n",
389     "# of the line is the name of the filter to run.\n",
390     "#\n",
391     "# If the repository name does not match any of the regular expressions in this\n",
392     "# file, the \"DEFAULT\" line is used, if it is specified.\n",
393     "#\n",
394     "# If the name \"ALL\" appears as a regular expression it is always used\n",
395     "# in addition to the first matching regex or \"DEFAULT\".\n",
396     NULL
397 };
398
399 static const char *const checkoutlist_contents[] = {
400     "# The \"checkoutlist\" file is used to support additional version controlled\n",
401     "# administrative files in $CVSROOT/CVSROOT, such as template files.\n",
402     "#\n",
403     "# The first entry on a line is a filename which will be checked out from\n",
404     "# the corresponding RCS file in the $CVSROOT/CVSROOT directory.\n",
405     "# The remainder of the line is an error message to use if the file cannot\n",
406     "# be checked out.\n",
407     "#\n",
408     "# File format:\n",
409     "#\n",
410     "#  [<whitespace>]<filename>[<whitespace><error message>]<end-of-line>\n",
411     "#\n",
412     "# comment lines begin with '#'\n",
413     NULL
414 };
415
416 static const char *const cvswrappers_contents[] = {
417     "# This file affects handling of files based on their names.\n",
418     "#\n",
419 #if 0    /* see comments in wrap_add in wrapper.c */
420     "# The -t/-f options allow one to treat directories of files\n",
421     "# as a single file, or to transform a file in other ways on\n",
422     "# its way in and out of CVS.\n",
423     "#\n",
424 #endif
425     "# The -m option specifies whether CVS attempts to merge files.\n",
426     "#\n",
427     "# The -k option specifies keyword expansion (e.g. -kb for binary).\n",
428     "#\n",
429     "# Format of wrapper file ($CVSROOT/CVSROOT/cvswrappers or .cvswrappers)\n",
430     "#\n",
431     "#  wildcard        [option value][option value]...\n",
432     "#\n",
433     "#  where option is one of\n",
434     "#  -f              from cvs filter         value: path to filter\n",
435     "#  -t              to cvs filter           value: path to filter\n",
436     "#  -m              update methodology      value: MERGE or COPY\n",
437     "#  -k              expansion mode          value: b, o, kkv, &c\n",
438     "#\n",
439     "#  and value is a single-quote delimited value.\n",
440     "# For example:\n",
441     "#*.gif -k 'b'\n",
442     NULL
443 };
444
445 static const char *const notify_contents[] = {
446     "# The \"notify\" file controls where notifications from watches set by\n",
447     "# \"cvs watch add\" or \"cvs edit\" are sent.  The first entry on a line is\n",
448     "# a regular expression which is tested against the directory that the\n",
449     "# change is being made to, relative to the $CVSROOT.  If it matches,\n",
450     "# then the remainder of the line is a filter program that should contain\n",
451     "# one occurrence of %s for the user to notify, and information on its\n",
452     "# standard input.\n",
453     "#\n",
454     "# \"ALL\" or \"DEFAULT\" can be used in place of the regular expression.\n",
455     "#\n",
456     "# format strings are replaceed as follows:\n",
457     "#    %c = canonical name of the command being executed\n",
458     "#    %I = unique (randomly generated) commit ID\n",
459 #ifdef PROXY_SUPPORT
460     "#    %R = the name of the referrer, if any, otherwise the value NONE\n",
461 #endif
462     "#    %p = path relative to repository\n",
463     "#    %r = repository (path portion of $CVSROOT)\n",
464     "#    %s = user to notify\n",
465     "#\n",
466     "# For example:\n",
467     "#ALL (echo Committed to %r/%p; cat) |mail %s -s \"CVS notification\"\n",
468     NULL
469 };
470
471 static const char *const modules_contents[] = {
472     "# Three different line formats are valid:\n",
473     "#  key     -a    aliases...\n",
474     "#  key [options] directory\n",
475     "#  key [options] directory files...\n",
476     "#\n",
477     "# Where \"options\" are composed of:\n",
478     "#  -o prog         Run \"prog\" on \"cvs checkout\" of module.\n",
479     "#  -e prog         Run \"prog\" on \"cvs export\" of module.\n",
480     "#  -s status       Assign a status to the module.\n",
481     "#  -t prog         Run \"prog\" on \"cvs rtag\" of module.\n",
482     "#  -d dir          Place module in directory \"dir\" instead of module name.\n",
483     "#  -l              Top-level directory only -- do not recurse.\n",
484     "#\n",
485     "# NOTE:  If you change any of the \"Run\" options above, you'll have to\n",
486     "# release and re-checkout any working directories of these modules.\n",
487     "#\n",
488     "# And \"directory\" is a path to a directory relative to $CVSROOT.\n",
489     "#\n",
490     "# The \"-a\" option specifies an alias.  An alias is interpreted as if\n",
491     "# everything on the right of the \"-a\" had been typed on the command line.\n",
492     "#\n",
493     "# You can encode a module within a module by using the special '&'\n",
494     "# character to interpose another module into the current module.  This\n",
495     "# can be useful for creating a module that consists of many directories\n",
496     "# spread out over the entire source repository.\n",
497     NULL
498 };
499
500 static const char *const config_contents[] = {
501     "# Set 'SystemAuth' to 'no' if pserver shouldn't check system users/passwords.\n",
502     "#SystemAuth=no\n",
503     "\n",
504     "# Set 'LocalKeyword' to specify a local alias for a standard keyword.\n",
505     "#LocalKeyword=MYCVS=CVSHeader\n",
506     "\n",
507     "# Set 'KeywordExpand' to 'i' followed by a list of keywords to expand or\n",
508     "# 'e' followed by a list of keywords to not expand.\n"
509     "#KeywordExpand=iMYCVS,Name,Date,Mdocdate\n",
510     "#KeywordExpand=eCVSHeader\n",
511     "\n",
512 #ifdef PRESERVE_PERMISSIONS_SUPPORT
513     "# Set 'PreservePermissions' to 'yes' to save file status information\n",
514     "# in the repository.\n",
515     "#PreservePermissions=no\n",
516     "\n",
517 #endif
518     "# Set 'TopLevelAdmin' to 'yes' to create a CVS directory at the top\n",
519     "# level of the new working directory when using the 'cvs checkout'\n",
520     "# command.\n",
521     "#TopLevelAdmin=no\n",
522     "\n",
523     "# Put CVS lock files in this directory rather than directly in the repository.\n",
524     "#LockDir=/var/lock/cvs\n",
525     "\n",
526     "# Set 'LogHistory' to 'all' or '" ALL_HISTORY_REC_TYPES "' to log all transactions to the\n",
527     "# history file, or a subset as needed (ie 'TMAR' logs all write operations)\n",
528     "#LogHistory=" ALL_HISTORY_REC_TYPES "\n",
529     "LogHistory=TMAR\n",
530     "\n",
531     "# Set 'RereadLogAfterVerify' to 'always' (the default) to allow the verifymsg\n",
532     "# script to change the log message.  Set it to 'stat' to force CVS to verify\n",
533     "# that the file has changed before reading it (this can take up to an extra\n",
534     "# second per directory being committed, so it is not recommended for large\n",
535     "# repositories.  Set it to 'never' (the previous CVS behavior) to prevent\n",
536     "# verifymsg scripts from changing the log message.\n",
537     "#RereadLogAfterVerify=always\n",
538     "\n",
539     "# Set 'UserAdminOptions' to the list of 'cvs admin' commands (options)\n",
540     "# that users not in the '_cvsadmin' group are allowed to run.  This\n",
541     "# defaults to 'k', or only allowing the changing of the default\n",
542     "# keyword expansion mode for files for users not in the '_cvsadmin' group.\n",
543     "# This value is ignored if the '_cvsadmin' group does not exist.\n",
544     "#\n",
545     "# The following string would enable all 'cvs admin' commands for all\n",
546     "# users:\n",
547     "#UserAdminOptions=aAbceIklLmnNostuU\n",
548 #ifdef SUPPORT_OLD_INFO_FMT_STRINGS
549     "\n",
550     "# Set 'UseNewInfoFmtStrings' to 'no' if you must support a legacy system by\n",
551     "# enabling the deprecated old style info file command line format strings.\n",
552     "# Be warned that these strings could be disabled in any new version of CVS.\n",
553     "UseNewInfoFmtStrings=yes\n",
554 #endif /* SUPPORT_OLD_INFO_FMT_STRINGS */
555     "\n",
556     "# Set 'ImportNewFilesToVendorBranchOnly' to 'yes' if you wish to force\n",
557     "# every 'cvs import' command to behave as if the '-X' flag was\n",
558     "# specified.\n",
559     "#ImportNewFilesToVendorBranchOnly=no\n",
560 #ifdef PROXY_SUPPORT
561     "\n",
562     "# Set 'PrimaryServer' to the CVSROOT to the primary, or write, server when\n",
563     "# establishing one or more read-only mirrors which serve as proxies for\n",
564     "# the write server in write mode or redirect the client to the primary for\n",
565     "# write requests.\n",
566     "#\n",
567     "# For example:\n",
568     "#\n",
569     "#   PrimaryServer=:fork:localhost/cvsroot\n",
570     "\n",
571     "# Set 'MaxProxyBufferSize' to the the maximum allowable secondary\n",
572     "# buffer memory cache size before the buffer begins being stored to disk, in\n",
573     "# bytes.  Must be a positive integer but may end in 'K', 'M', 'G', or 'T' (for\n",
574     "# Kibi, Mebi, Gibi, & Tebi, respectively).  If an otherwise valid number you\n",
575     "# specify is greater than the SIZE_MAX defined by your system's C compiler,\n",
576     "# then it will be resolved to SIZE_MAX without a warning.  Defaults to 8M (8\n",
577     "# Mebibytes). The 'i' from 'Ki', 'Mi', etc. is omitted.\n",
578     "#\n",
579     "# High values for MaxProxyBufferSize may speed up a secondary server\n",
580     "# with old hardware and a lot of available memory but can actually slow a\n",
581     "# modern system down slightly.\n",
582     "#\n",
583     "# For example:\n",
584     "#\n",
585     "#   MaxProxyBufferSize=1G\n",
586 #endif /* PROXY_SUPPORT */
587     "\n",
588     "# Set 'MaxCommentLeaderLength' to the maximum length permitted for the\n",
589     "# automagically determined comment leader used when expanding the Log\n",
590     "# keyword, in bytes.  CVS's behavior when the automagically determined\n",
591     "# comment leader exceeds this length is dependent on the value of\n",
592     "# 'UseArchiveCommentLeader' set in this file.  'unlimited' is a valid\n",
593     "# setting for this value.  Defaults to 20 bytes.\n",
594     "#\n",
595     "# For example:\n",
596     "#\n",
597     "#   MaxCommentLeaderLength=20\n",
598     "\n",
599     "# Set 'UseArchiveCommentLeader' to 'yes' to cause CVS to fall back on\n",
600     "# the comment leader set in the RCS archive file, if any, when the\n",
601     "# automagically determined comment leader exceeds 'MaxCommentLeaderLength'\n",
602     "# bytes.  If 'UseArchiveCommentLeader' is not set and a comment leader\n",
603     "# greater than 'MaxCommentLeaderLength' is calculated, the Log keyword\n",
604     "# being examined will not be expanded.  Defaults to 'no'.\n",
605     "#\n",
606     "# For example:\n",
607     "#\n",
608     "#   UseArchiveCommentLeader=no\n",
609     NULL
610 };
611
612 static const struct admin_file filelist[] = {
613     {CVSROOTADM_CHECKOUTLIST,
614         "a %s file can specify extra CVSROOT files to auto-checkout",
615         checkoutlist_contents},
616     {CVSROOTADM_COMMITINFO,
617         "a %s file can be used to configure 'cvs commit' checking",
618         commitinfo_contents},
619     {CVSROOTADM_IGNORE,
620         "a %s file can be used to specify files to ignore",
621         NULL},
622     {CVSROOTADM_LOGINFO, 
623         "no logging of 'cvs commit' messages is done without a %s file",
624         &loginfo_contents[0]},
625     {CVSROOTADM_MODULES,
626         /* modules is special-cased in mkmodules.  */
627         NULL,
628         modules_contents},
629     {CVSROOTADM_NOTIFY,
630         "a %s file can be used to specify where notifications go",
631         notify_contents},
632     {CVSROOTADM_POSTADMIN,
633         "a %s file can be used to configure 'cvs admin' logging",
634         postadmin_contents},
635     {CVSROOTADM_POSTPROXY,
636         "a %s file can be used to close or log connections to a primary server",
637         postproxy_contents},
638     {CVSROOTADM_POSTTAG,
639         "a %s file can be used to configure 'cvs tag' logging",
640         posttag_contents},
641     {CVSROOTADM_POSTWATCH,
642         "a %s file can be used to configure 'cvs watch' logging",
643         postwatch_contents},
644     {CVSROOTADM_PREPROXY,
645         "a %s file can be used to open or log connections to a primary server",
646         preproxy_contents},
647     {CVSROOTADM_RCSINFO,
648         "a %s file can be used to configure 'cvs commit' templates",
649         rcsinfo_contents},
650     {CVSROOTADM_READERS,
651         "a %s file specifies read-only users",
652         NULL},
653     {CVSROOTADM_TAGINFO,
654         "a %s file can be used to configure 'cvs tag' checking",
655         taginfo_contents},
656     {CVSROOTADM_VERIFYMSG,
657         "a %s file can be used to validate log messages",
658         verifymsg_contents},
659     {CVSROOTADM_WRAPPER,
660         "a %s file can be used to specify files to treat as wrappers",
661         cvswrappers_contents},
662     {CVSROOTADM_WRITERS,
663         "a %s file specifies read/write users",
664         NULL},
665
666     /* Some have suggested listing CVSROOTADM_PASSWD here too.  This
667        would mean that CVS commands which operate on the
668        CVSROOTADM_PASSWD file would transmit hashed passwords over the
669        net.  This might seem to be no big deal, as pserver normally
670        transmits cleartext passwords, but the difference is that
671        CVSROOTADM_PASSWD contains *all* passwords, not just the ones
672        currently being used.  For example, it could be too easy to
673        accidentally give someone readonly access to CVSROOTADM_PASSWD
674        (e.g. via anonymous CVS or cvsweb), and then if there are any
675        guessable passwords for read/write access (usually there will be)
676        they get read/write access.
677
678        Another worry is the implications of storing old passwords--if
679        someone used a password in the past they might be using it
680        elsewhere, using a similar password, etc, and so saving old
681        passwords, even hashed, is probably not a good idea.  */
682
683     {CVSROOTADM_CONFIG,
684          "a %s file configures various behaviors",
685          config_contents},
686     {NULL, NULL, NULL}
687 };
688
689 /* Rebuild the checked out administrative files in directory DIR.  */
690 int
691 mkmodules (char *dir)
692 {
693     struct saved_cwd cwd;
694     char *temp;
695     char *cp, *last, *fname;
696 #ifdef MY_NDBM
697     DBM *db;
698 #endif
699     FILE *fp;
700     char *line = NULL;
701     size_t line_allocated = 0;
702     const struct admin_file *fileptr;
703
704     if (noexec)
705         return 0;
706
707     if (save_cwd (&cwd))
708         error (1, errno, "Failed to save current directory.");
709
710     if (CVS_CHDIR (dir) < 0)
711         error (1, errno, "cannot chdir to %s", dir);
712
713     /*
714      * First, do the work necessary to update the "modules" database.
715      */
716     temp = make_tempfile ();
717     switch (checkout_file (CVSROOTADM_MODULES, temp))
718     {
719
720         case 0:                 /* everything ok */
721 #ifdef MY_NDBM
722             /* open it, to generate any duplicate errors */
723             if ((db = dbm_open (temp, O_RDONLY, 0666)) != NULL)
724                 dbm_close (db);
725 #else
726             write_dbmfile (temp);
727             rename_dbmfile (temp);
728 #endif
729             rename_rcsfile (temp, CVSROOTADM_MODULES);
730             break;
731
732         default:
733             error (0, 0,
734                 "'cvs checkout' is less functional without a %s file",
735                 CVSROOTADM_MODULES);
736             break;
737     }                                   /* switch on checkout_file() */
738
739     if (unlink_file (temp) < 0
740         && !existence_error (errno))
741         error (0, errno, "cannot remove %s", temp);
742     free (temp);
743
744     /* Checkout the files that need it in CVSROOT dir */
745     for (fileptr = filelist; fileptr && fileptr->filename; fileptr++) {
746         if (fileptr->errormsg == NULL)
747             continue;
748         temp = make_tempfile ();
749         if (checkout_file (fileptr->filename, temp) == 0)
750             rename_rcsfile (temp, fileptr->filename);
751         /* else
752          *   If there was some problem other than the file not existing,
753          *   checkout_file already printed a real error message.  If the
754          *   file does not exist, it is harmless--it probably just means
755          *   that the repository was created with an old version of CVS
756          *   which didn't have so many files in CVSROOT.
757          */
758
759         if (unlink_file (temp) < 0
760             && !existence_error (errno))
761             error (0, errno, "cannot remove %s", temp);
762         free (temp);
763     }
764
765     fp = CVS_FOPEN (CVSROOTADM_CHECKOUTLIST, "r");
766     if (fp)
767     {
768         /*
769          * File format:
770          *  [<whitespace>]<filename>[<whitespace><error message>]<end-of-line>
771          *
772          * comment lines begin with '#'
773          */
774         while (getline (&line, &line_allocated, fp) >= 0)
775         {
776             /* skip lines starting with # */
777             if (line[0] == '#')
778                 continue;
779
780             if ((last = strrchr (line, '\n')) != NULL)
781                 *last = '\0';                   /* strip the newline */
782
783             /* Skip leading white space. */
784             for (fname = line;
785                  *fname && isspace ((unsigned char) *fname);
786                  fname++)
787                 ;
788
789             /* Find end of filename. */
790             for (cp = fname; *cp && !isspace ((unsigned char) *cp); cp++)
791                 ;
792             *cp = '\0';
793
794             temp = make_tempfile ();
795             if (checkout_file (fname, temp) == 0)
796             {
797                 rename_rcsfile (temp, fname);
798             }
799             else
800             {
801                 /* Skip leading white space before the error message.  */
802                 for (cp++;
803                      cp < last && *cp && isspace ((unsigned char) *cp);
804                      cp++)
805                     ;
806                 if (cp < last && *cp)
807                     error (0, 0, "%s", cp);
808             }
809             if (unlink_file (temp) < 0
810                 && !existence_error (errno))
811                 error (0, errno, "cannot remove %s", temp);
812             free (temp);
813         }
814         if (line)
815             free (line);
816         if (ferror (fp))
817             error (0, errno, "cannot read %s", CVSROOTADM_CHECKOUTLIST);
818         if (fclose (fp) < 0)
819             error (0, errno, "cannot close %s", CVSROOTADM_CHECKOUTLIST);
820     }
821     else
822     {
823         /* Error from CVS_FOPEN.  */
824         if (!existence_error (errno))
825             error (0, errno, "cannot open %s", CVSROOTADM_CHECKOUTLIST);
826     }
827
828     if (restore_cwd (&cwd))
829         error (1, errno, "Failed to restore current directory, '%s'.",
830                cwd.name);
831     free_cwd (&cwd);
832
833     return 0;
834 }
835
836
837
838 /*
839  * Yeah, I know, there are NFS race conditions here.
840  */
841 static char *
842 make_tempfile (void)
843 {
844     static int seed = 0;
845     int fd;
846     char *temp;
847
848     if (seed == 0)
849         seed = getpid ();
850     temp = xmalloc (sizeof (BAKPREFIX) + 40);
851     while (1)
852     {
853         (void) sprintf (temp, "%s%d", BAKPREFIX, seed++);
854         if ((fd = CVS_OPEN (temp, O_CREAT|O_EXCL|O_RDWR, 0666)) != -1)
855             break;
856         if (errno != EEXIST)
857             error (1, errno, "cannot create temporary file %s", temp);
858     }
859     if (close(fd) < 0)
860         error(1, errno, "cannot close temporary file %s", temp);
861     return temp;
862 }
863
864
865
866 /* Get a file.  If the file does not exist, return 1 silently.  If
867    there is an error, print a message and return 1 (FIXME: probably
868    not a very clean convention).  On success, return 0.  */
869 static int
870 checkout_file (char *file, char *temp)
871 {
872     char *rcs;
873     RCSNode *rcsnode;
874     int retcode = 0;
875
876     if (noexec)
877         return 0;
878
879     rcs = Xasprintf ("%s%s", file, RCSEXT);
880     if (!isfile (rcs))
881     {
882         free (rcs);
883         return 1;
884     }
885
886     rcsnode = RCS_parsercsfile (rcs);
887     if (!rcsnode)
888     {
889         /* Probably not necessary (?); RCS_parsercsfile already printed a
890            message.  */
891         error (0, 0, "Failed to parse '%s'.", rcs);
892         free (rcs);
893         return 1;
894     }
895
896     retcode = RCS_checkout (rcsnode, NULL, NULL, NULL, NULL, temp, NULL, NULL);
897     if (retcode != 0)
898     {
899         /* Probably not necessary (?); RCS_checkout already printed a
900            message.  */
901         error (0, 0, "failed to check out %s file",
902                file);
903     }
904     freercsnode (&rcsnode);
905     free (rcs);
906     return retcode;
907 }
908
909
910
911 #ifndef MY_NDBM
912
913 static void
914 write_dbmfile( char *temp )
915 {
916     char line[DBLKSIZ], value[DBLKSIZ];
917     FILE *fp;
918     DBM *db;
919     char *cp, *vp;
920     datum key, val;
921     int len, cont, err = 0;
922
923     fp = xfopen (temp, "r");
924     if ((db = dbm_open (temp, O_RDWR | O_CREAT | O_TRUNC, 0666)) == NULL)
925         error (1, errno, "cannot open dbm file %s for creation", temp);
926     for (cont = 0; fgets (line, sizeof (line), fp) != NULL;)
927     {
928         if ((cp = strrchr (line, '\n')) != NULL)
929             *cp = '\0';                 /* strip the newline */
930
931         /*
932          * Add the line to the value, at the end if this is a continuation
933          * line; otherwise at the beginning, but only after any trailing
934          * backslash is removed.
935          */
936         vp = value;
937         if (cont)
938             vp += strlen (value);
939
940         /*
941          * See if the line we read is a continuation line, and strip the
942          * backslash if so.
943          */
944         len = strlen (line);
945         if (len > 0)
946             cp = &line[len - 1];
947         else
948             cp = line;
949         if (*cp == '\\')
950         {
951             cont = 1;
952             *cp = '\0';
953         }
954         else
955         {
956             cont = 0;
957         }
958         (void) strcpy (vp, line);
959         if (value[0] == '#')
960             continue;                   /* comment line */
961         vp = value;
962         while (*vp && isspace ((unsigned char) *vp))
963             vp++;
964         if (*vp == '\0')
965             continue;                   /* empty line */
966
967         /*
968          * If this was not a continuation line, add the entry to the database
969          */
970         if (!cont)
971         {
972             key.dptr = vp;
973             while (*vp && !isspace ((unsigned char) *vp))
974                 vp++;
975             key.dsize = vp - (char *)key.dptr;
976             *vp++ = '\0';               /* NULL terminate the key */
977             while (*vp && isspace ((unsigned char) *vp))
978                 vp++;                   /* skip whitespace to value */
979             if (*vp == '\0')
980             {
981                 error (0, 0, "warning: NULL value for key '%s'",
982                     (char *)key.dptr);
983                 continue;
984             }
985             val.dptr = vp;
986             val.dsize = strlen (vp);
987             if (dbm_store (db, key, val, DBM_INSERT) == 1)
988             {
989                 error (0, 0, "duplicate key found for '%s'",
990                     (char *)key.dptr);
991                 err++;
992             }
993         }
994     }
995     dbm_close (db);
996     if (fclose (fp) < 0)
997         error (0, errno, "cannot close %s", temp);
998     if (err)
999     {
1000         /* I think that the size of the buffer needed here is
1001            just determined by sizeof (CVSROOTADM_MODULES), the
1002            filenames created by make_tempfile, and other things that won't
1003            overflow.  */
1004         char dotdir[50], dotpag[50], dotdb[50];
1005
1006         (void) sprintf (dotdir, "%s.dir", temp);
1007         (void) sprintf (dotpag, "%s.pag", temp);
1008         (void) sprintf (dotdb, "%s.db", temp);
1009         if (unlink_file (dotdir) < 0
1010             && !existence_error (errno))
1011             error (0, errno, "cannot remove %s", dotdir);
1012         if (unlink_file (dotpag) < 0
1013             && !existence_error (errno))
1014             error (0, errno, "cannot remove %s", dotpag);
1015         if (unlink_file (dotdb) < 0
1016             && !existence_error (errno))
1017             error (0, errno, "cannot remove %s", dotdb);
1018         error (1, 0, "DBM creation failed; correct above errors");
1019     }
1020 }
1021
1022 static void
1023 rename_dbmfile( char *temp )
1024 {
1025     /* I think that the size of the buffer needed here is
1026        just determined by sizeof (CVSROOTADM_MODULES), the
1027        filenames created by make_tempfile, and other things that won't
1028        overflow.  */
1029     char newdir[50], newpag[50], newdb[50];
1030     char dotdir[50], dotpag[50], dotdb[50];
1031     char bakdir[50], bakpag[50], bakdb[50];
1032
1033     int dir1_errno = 0, pag1_errno = 0, db1_errno = 0;
1034     int dir2_errno = 0, pag2_errno = 0, db2_errno = 0;
1035     int dir3_errno = 0, pag3_errno = 0, db3_errno = 0;
1036
1037     (void) sprintf (dotdir, "%s.dir", CVSROOTADM_MODULES);
1038     (void) sprintf (dotpag, "%s.pag", CVSROOTADM_MODULES);
1039     (void) sprintf (dotdb, "%s.db", CVSROOTADM_MODULES);
1040     (void) sprintf (bakdir, "%s%s.dir", BAKPREFIX, CVSROOTADM_MODULES);
1041     (void) sprintf (bakpag, "%s%s.pag", BAKPREFIX, CVSROOTADM_MODULES);
1042     (void) sprintf (bakdb, "%s%s.db", BAKPREFIX, CVSROOTADM_MODULES);
1043     (void) sprintf (newdir, "%s.dir", temp);
1044     (void) sprintf (newpag, "%s.pag", temp);
1045     (void) sprintf (newdb, "%s.db", temp);
1046
1047     (void) chmod (newdir, 0666);
1048     (void) chmod (newpag, 0666);
1049     (void) chmod (newdb, 0666);
1050
1051     /* don't mess with me */
1052     SIG_beginCrSect ();
1053
1054     /* rm .#modules.dir .#modules.pag */
1055     if (unlink_file (bakdir) < 0)
1056         dir1_errno = errno;
1057     if (unlink_file (bakpag) < 0)
1058         pag1_errno = errno;
1059     if (unlink_file (bakdb) < 0)
1060         db1_errno = errno;
1061
1062     /* mv modules.dir .#modules.dir */
1063     if (CVS_RENAME (dotdir, bakdir) < 0)
1064         dir2_errno = errno;
1065     /* mv modules.pag .#modules.pag */
1066     if (CVS_RENAME (dotpag, bakpag) < 0)
1067         pag2_errno = errno;
1068     /* mv modules.db .#modules.db */
1069     if (CVS_RENAME (dotdb, bakdb) < 0)
1070         db2_errno = errno;
1071
1072     /* mv "temp".dir modules.dir */
1073     if (CVS_RENAME (newdir, dotdir) < 0)
1074         dir3_errno = errno;
1075     /* mv "temp".pag modules.pag */
1076     if (CVS_RENAME (newpag, dotpag) < 0)
1077         pag3_errno = errno;
1078     /* mv "temp".db modules.db */
1079     if (CVS_RENAME (newdb, dotdb) < 0)
1080         db3_errno = errno;
1081
1082     /* OK -- make my day */
1083     SIG_endCrSect ();
1084
1085     /* I didn't want to call error() when we had signals blocked
1086        (unnecessary?), but do it now.  */
1087     if (dir1_errno && !existence_error (dir1_errno))
1088         error (0, dir1_errno, "cannot remove %s", bakdir);
1089     if (pag1_errno && !existence_error (pag1_errno))
1090         error (0, pag1_errno, "cannot remove %s", bakpag);
1091     if (db1_errno && !existence_error (db1_errno))
1092         error (0, db1_errno, "cannot remove %s", bakdb);
1093
1094     if (dir2_errno && !existence_error (dir2_errno))
1095         error (0, dir2_errno, "cannot remove %s", bakdir);
1096     if (pag2_errno && !existence_error (pag2_errno))
1097         error (0, pag2_errno, "cannot remove %s", bakpag);
1098     if (db2_errno && !existence_error (db2_errno))
1099         error (0, db2_errno, "cannot remove %s", bakdb);
1100
1101     if (dir3_errno && !existence_error (dir3_errno))
1102         error (0, dir3_errno, "cannot remove %s", bakdir);
1103     if (pag3_errno && !existence_error (pag3_errno))
1104         error (0, pag3_errno, "cannot remove %s", bakpag);
1105     if (db3_errno && !existence_error (db3_errno))
1106         error (0, db3_errno, "cannot remove %s", bakdb);
1107 }
1108
1109 #endif                          /* !MY_NDBM */
1110
1111 static void
1112 rename_rcsfile (char *temp, char *real)
1113 {
1114     char *bak;
1115     struct stat statbuf;
1116     char *rcs;
1117
1118     /* Set "x" bits if set in original. */
1119     rcs = Xasprintf ("%s%s", real, RCSEXT);
1120     statbuf.st_mode = 0; /* in case rcs file doesn't exist, but it should... */
1121     if (stat (rcs, &statbuf) < 0
1122         && !existence_error (errno))
1123         error (0, errno, "cannot stat %s", rcs);
1124     free (rcs);
1125
1126     if (chmod (temp, 0444 | (statbuf.st_mode & 0111)) < 0)
1127         error (0, errno, "warning: cannot chmod %s", temp);
1128     bak = Xasprintf ("%s%s", BAKPREFIX, real);
1129
1130     /* rm .#loginfo */
1131     if (unlink_file (bak) < 0
1132         && !existence_error (errno))
1133         error (0, errno, "cannot remove %s", bak);
1134
1135     /* mv loginfo .#loginfo */
1136     if (CVS_RENAME (real, bak) < 0
1137         && !existence_error (errno))
1138         error (0, errno, "cannot rename %s to %s", real, bak);
1139
1140     /* mv "temp" loginfo */
1141     if (CVS_RENAME (temp, real) < 0
1142         && !existence_error (errno))
1143         error (0, errno, "cannot rename %s to %s", temp, real);
1144
1145     free (bak);
1146 }
1147 \f
1148 const char *const init_usage[] = {
1149     "Usage: %s %s\n",
1150     "(Specify the --help global option for a list of other help options)\n",
1151     NULL
1152 };
1153
1154 int
1155 init (int argc, char **argv)
1156 {
1157     /* Name of CVSROOT directory.  */
1158     char *adm;
1159     /* Name of this administrative file.  */
1160     char *info;
1161     /* Name of ,v file for this administrative file.  */
1162     char *info_v;
1163     /* Exit status.  */
1164     int err = 0;
1165
1166     const struct admin_file *fileptr;
1167
1168     umask (cvsumask);
1169
1170     if (argc == -1 || argc > 1)
1171         usage (init_usage);
1172
1173 #ifdef CLIENT_SUPPORT
1174     if (current_parsed_root->isremote)
1175     {
1176         start_server ();
1177
1178         ign_setup ();
1179         send_init_command ();
1180         return get_responses_and_close ();
1181     }
1182 #endif /* CLIENT_SUPPORT */
1183
1184     /* Note: we do *not* create parent directories as needed like the
1185        old cvsinit.sh script did.  Few utilities do that, and a
1186        non-existent parent directory is as likely to be a typo as something
1187        which needs to be created.  */
1188     mkdir_if_needed (current_parsed_root->directory);
1189
1190     if (noexec)
1191         return (0);
1192
1193     adm = Xasprintf ("%s/%s", current_parsed_root->directory, CVSROOTADM);
1194     mkdir_if_needed (adm);
1195
1196     /* This is needed because we pass "fileptr->filename" not "info"
1197        to add_rcs_file below.  I think this would be easy to change,
1198        thus nuking the need for CVS_CHDIR here, but I haven't looked
1199        closely (e.g. see wrappers calls within add_rcs_file).  */
1200     if ( CVS_CHDIR (adm) < 0)
1201         error (1, errno, "cannot change to directory %s", adm);
1202
1203     /* Make Emptydir so it's there if we need it */
1204     mkdir_if_needed (CVSNULLREPOS);
1205
1206     /* 80 is long enough for all the administrative file names, plus
1207        "/" and so on.  */
1208     info = xmalloc (strlen (adm) + 80);
1209     info_v = xmalloc (strlen (adm) + 80);
1210     for (fileptr = filelist; fileptr && fileptr->filename; ++fileptr)
1211     {
1212         if (fileptr->contents == NULL)
1213             continue;
1214         strcpy (info, adm);
1215         strcat (info, "/");
1216         strcat (info, fileptr->filename);
1217         strcpy (info_v, info);
1218         strcat (info_v, RCSEXT);
1219         if (isfile (info_v))
1220             /* We will check out this file in the mkmodules step.
1221                Nothing else is required.  */
1222             ;
1223         else
1224         {
1225             int retcode;
1226
1227             if (!isfile (info))
1228             {
1229                 FILE *fp;
1230                 const char * const *p;
1231
1232                 fp = xfopen (info, "w");
1233                 for (p = fileptr->contents; *p != NULL; ++p)
1234                     if (fputs (*p, fp) < 0)
1235                         error (1, errno, "cannot write %s", info);
1236                 if (fclose (fp) < 0)
1237                     error (1, errno, "cannot close %s", info);
1238             }
1239             /* The message used to say " of " and fileptr->filename after
1240                "initial checkin" but I fail to see the point as we know what
1241                file it is from the name.  */
1242             retcode = add_rcs_file ("initial checkin", info_v,
1243                                     fileptr->filename, "1.1", NULL,
1244
1245                                     /* No vendor branch.  */
1246                                     NULL, NULL, 0, NULL,
1247
1248                                     NULL, 0, NULL, 0);
1249             if (retcode != 0)
1250                 /* add_rcs_file already printed an error message.  */
1251                 err = 1;
1252         }
1253     }
1254
1255     /* Turn on history logging by default.  The user can remove the file
1256        to disable it.  */
1257     strcpy (info, adm);
1258     strcat (info, "/");
1259     strcat (info, CVSROOTADM_HISTORY);
1260     if (!isfile (info))
1261     {
1262         FILE *fp;
1263
1264         fp = xfopen (info, "w");
1265         if (fclose (fp) < 0)
1266             error (1, errno, "cannot close %s", info);
1267     }
1268
1269     /* Make an empty val-tags file to prevent problems creating it later.  */
1270     strcpy (info, adm);
1271     strcat (info, "/");
1272     strcat (info, CVSROOTADM_VALTAGS);
1273     if (!isfile (info))
1274     {
1275         FILE *fp;
1276
1277         fp = xfopen (info, "w");
1278         if (fclose (fp) < 0)
1279             error (1, errno, "cannot close %s", info);
1280     }
1281
1282     free (info);
1283     free (info_v);
1284
1285     mkmodules (adm);
1286
1287     free (adm);
1288     return err;
1289 }