wrap and sort CLEANFILES
[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 attibute (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     "\n",
530     "# Set 'RereadLogAfterVerify' to 'always' (the default) to allow the verifymsg\n",
531     "# script to change the log message.  Set it to 'stat' to force CVS to verify\n",
532     "# that the file has changed before reading it (this can take up to an extra\n",
533     "# second per directory being committed, so it is not recommended for large\n",
534     "# repositories.  Set it to 'never' (the previous CVS behavior) to prevent\n",
535     "# verifymsg scripts from changing the log message.\n",
536     "#RereadLogAfterVerify=always\n",
537     "\n",
538     "# Set 'UserAdminOptions' to the list of 'cvs admin' commands (options)\n",
539     "# that users not in the '_cvsadmin' group are allowed to run.  This\n",
540     "# defaults to 'k', or only allowing the changing of the default\n",
541     "# keyword expansion mode for files for users not in the '_cvsadmin' group.\n",
542     "# This value is ignored if the '_cvsadmin' group does not exist.\n",
543     "#\n",
544     "# The following string would enable all 'cvs admin' commands for all\n",
545     "# users:\n",
546     "#UserAdminOptions=aAbceIklLmnNostuU\n",
547 #ifdef SUPPORT_OLD_INFO_FMT_STRINGS
548     "\n",
549     "# Set 'UseNewInfoFmtStrings' to 'no' if you must support a legacy system by\n",
550     "# enabling the deprecated old style info file command line format strings.\n",
551     "# Be warned that these strings could be disabled in any new version of CVS.\n",
552     "UseNewInfoFmtStrings=yes\n",
553 #endif /* SUPPORT_OLD_INFO_FMT_STRINGS */
554     "\n",
555     "# Set 'ImportNewFilesToVendorBranchOnly' to 'yes' if you wish to force\n",
556     "# every 'cvs import' command to behave as if the '-X' flag was\n",
557     "# specified.\n",
558     "#ImportNewFilesToVendorBranchOnly=no\n",
559 #ifdef PROXY_SUPPORT
560     "\n",
561     "# Set 'PrimaryServer' to the CVSROOT to the primary, or write, server when\n",
562     "# establishing one or more read-only mirrors which serve as proxies for\n",
563     "# the write server in write mode or redirect the client to the primary for\n",
564     "# write requests.\n",
565     "#\n",
566     "# For example:\n",
567     "#\n",
568     "#   PrimaryServer=:fork:localhost/cvsroot\n",
569     "\n",
570     "# Set 'MaxProxyBufferSize' to the the maximum allowable secondary\n",
571     "# buffer memory cache size before the buffer begins being stored to disk, in\n",
572     "# bytes.  Must be a positive integer but may end in 'K', 'M', 'G', or 'T' (for\n",
573     "# Kibi, Mebi, Gibi, & Tebi, respectively).  If an otherwise valid number you\n",
574     "# specify is greater than the SIZE_MAX defined by your system's C compiler,\n",
575     "# then it will be resolved to SIZE_MAX without a warning.  Defaults to 8M (8\n",
576     "# Mebibytes). The 'i' from 'Ki', 'Mi', etc. is omitted.\n",
577     "#\n",
578     "# High values for MaxProxyBufferSize may speed up a secondary server\n",
579     "# with old hardware and a lot of available memory but can actually slow a\n",
580     "# modern system down slightly.\n",
581     "#\n",
582     "# For example:\n",
583     "#\n",
584     "#   MaxProxyBufferSize=1G\n",
585 #endif /* PROXY_SUPPORT */
586     "\n",
587     "# Set 'MaxCommentLeaderLength' to the maximum length permitted for the\n",
588     "# automagically determined comment leader used when expanding the Log\n",
589     "# keyword, in bytes.  CVS's behavior when the automagically determined\n",
590     "# comment leader exceeds this length is dependent on the value of\n",
591     "# 'UseArchiveCommentLeader' set in this file.  'unlimited' is a valid\n",
592     "# setting for this value.  Defaults to 20 bytes.\n",
593     "#\n",
594     "# For example:\n",
595     "#\n",
596     "#   MaxCommentLeaderLength=20\n",
597     "\n",
598     "# Set 'UseArchiveCommentLeader' to 'yes' to cause CVS to fall back on\n",
599     "# the comment leader set in the RCS archive file, if any, when the\n",
600     "# automagically determined comment leader exceeds 'MaxCommentLeaderLength'\n",
601     "# bytes.  If 'UseArchiveCommentLeader' is not set and a comment leader\n",
602     "# greater than 'MaxCommentLeaderLength' is calculated, the Log keyword\n",
603     "# being examined will not be expanded.  Defaults to 'no'.\n",
604     "#\n",
605     "# For example:\n",
606     "#\n",
607     "#   UseArchiveCommentLeader=no\n",
608     NULL
609 };
610
611 static const struct admin_file filelist[] = {
612     {CVSROOTADM_CHECKOUTLIST,
613         "a %s file can specify extra CVSROOT files to auto-checkout",
614         checkoutlist_contents},
615     {CVSROOTADM_COMMITINFO,
616         "a %s file can be used to configure 'cvs commit' checking",
617         commitinfo_contents},
618     {CVSROOTADM_IGNORE,
619         "a %s file can be used to specify files to ignore",
620         NULL},
621     {CVSROOTADM_LOGINFO, 
622         "no logging of 'cvs commit' messages is done without a %s file",
623         &loginfo_contents[0]},
624     {CVSROOTADM_MODULES,
625         /* modules is special-cased in mkmodules.  */
626         NULL,
627         modules_contents},
628     {CVSROOTADM_NOTIFY,
629         "a %s file can be used to specify where notifications go",
630         notify_contents},
631     {CVSROOTADM_POSTADMIN,
632         "a %s file can be used to configure 'cvs admin' logging",
633         postadmin_contents},
634     {CVSROOTADM_POSTPROXY,
635         "a %s file can be used to close or log connections to a primary server",
636         postproxy_contents},
637     {CVSROOTADM_POSTTAG,
638         "a %s file can be used to configure 'cvs tag' logging",
639         posttag_contents},
640     {CVSROOTADM_POSTWATCH,
641         "a %s file can be used to configure 'cvs watch' logging",
642         postwatch_contents},
643     {CVSROOTADM_PREPROXY,
644         "a %s file can be used to open or log connections to a primary server",
645         preproxy_contents},
646     {CVSROOTADM_RCSINFO,
647         "a %s file can be used to configure 'cvs commit' templates",
648         rcsinfo_contents},
649     {CVSROOTADM_READERS,
650         "a %s file specifies read-only users",
651         NULL},
652     {CVSROOTADM_TAGINFO,
653         "a %s file can be used to configure 'cvs tag' checking",
654         taginfo_contents},
655     {CVSROOTADM_VERIFYMSG,
656         "a %s file can be used to validate log messages",
657         verifymsg_contents},
658     {CVSROOTADM_WRAPPER,
659         "a %s file can be used to specify files to treat as wrappers",
660         cvswrappers_contents},
661     {CVSROOTADM_WRITERS,
662         "a %s file specifies read/write users",
663         NULL},
664
665     /* Some have suggested listing CVSROOTADM_PASSWD here too.  This
666        would mean that CVS commands which operate on the
667        CVSROOTADM_PASSWD file would transmit hashed passwords over the
668        net.  This might seem to be no big deal, as pserver normally
669        transmits cleartext passwords, but the difference is that
670        CVSROOTADM_PASSWD contains *all* passwords, not just the ones
671        currently being used.  For example, it could be too easy to
672        accidentally give someone readonly access to CVSROOTADM_PASSWD
673        (e.g. via anonymous CVS or cvsweb), and then if there are any
674        guessable passwords for read/write access (usually there will be)
675        they get read/write access.
676
677        Another worry is the implications of storing old passwords--if
678        someone used a password in the past they might be using it
679        elsewhere, using a similar password, etc, and so saving old
680        passwords, even hashed, is probably not a good idea.  */
681
682     {CVSROOTADM_CONFIG,
683          "a %s file configures various behaviors",
684          config_contents},
685     {NULL, NULL, NULL}
686 };
687
688 /* Rebuild the checked out administrative files in directory DIR.  */
689 int
690 mkmodules (char *dir)
691 {
692     struct saved_cwd cwd;
693     char *temp;
694     char *cp, *last, *fname;
695 #ifdef MY_NDBM
696     DBM *db;
697 #endif
698     FILE *fp;
699     char *line = NULL;
700     size_t line_allocated = 0;
701     const struct admin_file *fileptr;
702
703     if (noexec)
704         return 0;
705
706     if (save_cwd (&cwd))
707         error (1, errno, "Failed to save current directory.");
708
709     if (CVS_CHDIR (dir) < 0)
710         error (1, errno, "cannot chdir to %s", dir);
711
712     /*
713      * First, do the work necessary to update the "modules" database.
714      */
715     temp = make_tempfile ();
716     switch (checkout_file (CVSROOTADM_MODULES, temp))
717     {
718
719         case 0:                 /* everything ok */
720 #ifdef MY_NDBM
721             /* open it, to generate any duplicate errors */
722             if ((db = dbm_open (temp, O_RDONLY, 0666)) != NULL)
723                 dbm_close (db);
724 #else
725             write_dbmfile (temp);
726             rename_dbmfile (temp);
727 #endif
728             rename_rcsfile (temp, CVSROOTADM_MODULES);
729             break;
730
731         default:
732             error (0, 0,
733                 "'cvs checkout' is less functional without a %s file",
734                 CVSROOTADM_MODULES);
735             break;
736     }                                   /* switch on checkout_file() */
737
738     if (unlink_file (temp) < 0
739         && !existence_error (errno))
740         error (0, errno, "cannot remove %s", temp);
741     free (temp);
742
743     /* Checkout the files that need it in CVSROOT dir */
744     for (fileptr = filelist; fileptr && fileptr->filename; fileptr++) {
745         if (fileptr->errormsg == NULL)
746             continue;
747         temp = make_tempfile ();
748         if (checkout_file (fileptr->filename, temp) == 0)
749             rename_rcsfile (temp, fileptr->filename);
750         /* else
751          *   If there was some problem other than the file not existing,
752          *   checkout_file already printed a real error message.  If the
753          *   file does not exist, it is harmless--it probably just means
754          *   that the repository was created with an old version of CVS
755          *   which didn't have so many files in CVSROOT.
756          */
757
758         if (unlink_file (temp) < 0
759             && !existence_error (errno))
760             error (0, errno, "cannot remove %s", temp);
761         free (temp);
762     }
763
764     fp = CVS_FOPEN (CVSROOTADM_CHECKOUTLIST, "r");
765     if (fp)
766     {
767         /*
768          * File format:
769          *  [<whitespace>]<filename>[<whitespace><error message>]<end-of-line>
770          *
771          * comment lines begin with '#'
772          */
773         while (getline (&line, &line_allocated, fp) >= 0)
774         {
775             /* skip lines starting with # */
776             if (line[0] == '#')
777                 continue;
778
779             if ((last = strrchr (line, '\n')) != NULL)
780                 *last = '\0';                   /* strip the newline */
781
782             /* Skip leading white space. */
783             for (fname = line;
784                  *fname && isspace ((unsigned char) *fname);
785                  fname++)
786                 ;
787
788             /* Find end of filename. */
789             for (cp = fname; *cp && !isspace ((unsigned char) *cp); cp++)
790                 ;
791             *cp = '\0';
792
793             temp = make_tempfile ();
794             if (checkout_file (fname, temp) == 0)
795             {
796                 rename_rcsfile (temp, fname);
797             }
798             else
799             {
800                 /* Skip leading white space before the error message.  */
801                 for (cp++;
802                      cp < last && *cp && isspace ((unsigned char) *cp);
803                      cp++)
804                     ;
805                 if (cp < last && *cp)
806                     error (0, 0, "%s", cp);
807             }
808             if (unlink_file (temp) < 0
809                 && !existence_error (errno))
810                 error (0, errno, "cannot remove %s", temp);
811             free (temp);
812         }
813         if (line)
814             free (line);
815         if (ferror (fp))
816             error (0, errno, "cannot read %s", CVSROOTADM_CHECKOUTLIST);
817         if (fclose (fp) < 0)
818             error (0, errno, "cannot close %s", CVSROOTADM_CHECKOUTLIST);
819     }
820     else
821     {
822         /* Error from CVS_FOPEN.  */
823         if (!existence_error (errno))
824             error (0, errno, "cannot open %s", CVSROOTADM_CHECKOUTLIST);
825     }
826
827     if (restore_cwd (&cwd))
828         error (1, errno, "Failed to restore current directory, '%s'.",
829                cwd.name);
830     free_cwd (&cwd);
831
832     return 0;
833 }
834
835
836
837 /*
838  * Yeah, I know, there are NFS race conditions here.
839  */
840 static char *
841 make_tempfile (void)
842 {
843     static int seed = 0;
844     int fd;
845     char *temp;
846
847     if (seed == 0)
848         seed = getpid ();
849     temp = xmalloc (sizeof (BAKPREFIX) + 40);
850     while (1)
851     {
852         (void) sprintf (temp, "%s%d", BAKPREFIX, seed++);
853         if ((fd = CVS_OPEN (temp, O_CREAT|O_EXCL|O_RDWR, 0666)) != -1)
854             break;
855         if (errno != EEXIST)
856             error (1, errno, "cannot create temporary file %s", temp);
857     }
858     if (close(fd) < 0)
859         error(1, errno, "cannot close temporary file %s", temp);
860     return temp;
861 }
862
863
864
865 /* Get a file.  If the file does not exist, return 1 silently.  If
866    there is an error, print a message and return 1 (FIXME: probably
867    not a very clean convention).  On success, return 0.  */
868 static int
869 checkout_file (char *file, char *temp)
870 {
871     char *rcs;
872     RCSNode *rcsnode;
873     int retcode = 0;
874
875     if (noexec)
876         return 0;
877
878     rcs = Xasprintf ("%s%s", file, RCSEXT);
879     if (!isfile (rcs))
880     {
881         free (rcs);
882         return 1;
883     }
884
885     rcsnode = RCS_parsercsfile (rcs);
886     if (!rcsnode)
887     {
888         /* Probably not necessary (?); RCS_parsercsfile already printed a
889            message.  */
890         error (0, 0, "Failed to parse '%s'.", rcs);
891         free (rcs);
892         return 1;
893     }
894
895     retcode = RCS_checkout (rcsnode, NULL, NULL, NULL, NULL, temp, NULL, NULL);
896     if (retcode != 0)
897     {
898         /* Probably not necessary (?); RCS_checkout already printed a
899            message.  */
900         error (0, 0, "failed to check out %s file",
901                file);
902     }
903     freercsnode (&rcsnode);
904     free (rcs);
905     return retcode;
906 }
907
908
909
910 #ifndef MY_NDBM
911
912 static void
913 write_dbmfile( char *temp )
914 {
915     char line[DBLKSIZ], value[DBLKSIZ];
916     FILE *fp;
917     DBM *db;
918     char *cp, *vp;
919     datum key, val;
920     int len, cont, err = 0;
921
922     fp = xfopen (temp, "r");
923     if ((db = dbm_open (temp, O_RDWR | O_CREAT | O_TRUNC, 0666)) == NULL)
924         error (1, errno, "cannot open dbm file %s for creation", temp);
925     for (cont = 0; fgets (line, sizeof (line), fp) != NULL;)
926     {
927         if ((cp = strrchr (line, '\n')) != NULL)
928             *cp = '\0';                 /* strip the newline */
929
930         /*
931          * Add the line to the value, at the end if this is a continuation
932          * line; otherwise at the beginning, but only after any trailing
933          * backslash is removed.
934          */
935         vp = value;
936         if (cont)
937             vp += strlen (value);
938
939         /*
940          * See if the line we read is a continuation line, and strip the
941          * backslash if so.
942          */
943         len = strlen (line);
944         if (len > 0)
945             cp = &line[len - 1];
946         else
947             cp = line;
948         if (*cp == '\\')
949         {
950             cont = 1;
951             *cp = '\0';
952         }
953         else
954         {
955             cont = 0;
956         }
957         (void) strcpy (vp, line);
958         if (value[0] == '#')
959             continue;                   /* comment line */
960         vp = value;
961         while (*vp && isspace ((unsigned char) *vp))
962             vp++;
963         if (*vp == '\0')
964             continue;                   /* empty line */
965
966         /*
967          * If this was not a continuation line, add the entry to the database
968          */
969         if (!cont)
970         {
971             key.dptr = vp;
972             while (*vp && !isspace ((unsigned char) *vp))
973                 vp++;
974             key.dsize = vp - (char *)key.dptr;
975             *vp++ = '\0';               /* NULL terminate the key */
976             while (*vp && isspace ((unsigned char) *vp))
977                 vp++;                   /* skip whitespace to value */
978             if (*vp == '\0')
979             {
980                 error (0, 0, "warning: NULL value for key '%s'",
981                     (char *)key.dptr);
982                 continue;
983             }
984             val.dptr = vp;
985             val.dsize = strlen (vp);
986             if (dbm_store (db, key, val, DBM_INSERT) == 1)
987             {
988                 error (0, 0, "duplicate key found for '%s'",
989                     (char *)key.dptr);
990                 err++;
991             }
992         }
993     }
994     dbm_close (db);
995     if (fclose (fp) < 0)
996         error (0, errno, "cannot close %s", temp);
997     if (err)
998     {
999         /* I think that the size of the buffer needed here is
1000            just determined by sizeof (CVSROOTADM_MODULES), the
1001            filenames created by make_tempfile, and other things that won't
1002            overflow.  */
1003         char dotdir[50], dotpag[50], dotdb[50];
1004
1005         (void) sprintf (dotdir, "%s.dir", temp);
1006         (void) sprintf (dotpag, "%s.pag", temp);
1007         (void) sprintf (dotdb, "%s.db", temp);
1008         if (unlink_file (dotdir) < 0
1009             && !existence_error (errno))
1010             error (0, errno, "cannot remove %s", dotdir);
1011         if (unlink_file (dotpag) < 0
1012             && !existence_error (errno))
1013             error (0, errno, "cannot remove %s", dotpag);
1014         if (unlink_file (dotdb) < 0
1015             && !existence_error (errno))
1016             error (0, errno, "cannot remove %s", dotdb);
1017         error (1, 0, "DBM creation failed; correct above errors");
1018     }
1019 }
1020
1021 static void
1022 rename_dbmfile( char *temp )
1023 {
1024     /* I think that the size of the buffer needed here is
1025        just determined by sizeof (CVSROOTADM_MODULES), the
1026        filenames created by make_tempfile, and other things that won't
1027        overflow.  */
1028     char newdir[50], newpag[50], newdb[50];
1029     char dotdir[50], dotpag[50], dotdb[50];
1030     char bakdir[50], bakpag[50], bakdb[50];
1031
1032     int dir1_errno = 0, pag1_errno = 0, db1_errno = 0;
1033     int dir2_errno = 0, pag2_errno = 0, db2_errno = 0;
1034     int dir3_errno = 0, pag3_errno = 0, db3_errno = 0;
1035
1036     (void) sprintf (dotdir, "%s.dir", CVSROOTADM_MODULES);
1037     (void) sprintf (dotpag, "%s.pag", CVSROOTADM_MODULES);
1038     (void) sprintf (dotdb, "%s.db", CVSROOTADM_MODULES);
1039     (void) sprintf (bakdir, "%s%s.dir", BAKPREFIX, CVSROOTADM_MODULES);
1040     (void) sprintf (bakpag, "%s%s.pag", BAKPREFIX, CVSROOTADM_MODULES);
1041     (void) sprintf (bakdb, "%s%s.db", BAKPREFIX, CVSROOTADM_MODULES);
1042     (void) sprintf (newdir, "%s.dir", temp);
1043     (void) sprintf (newpag, "%s.pag", temp);
1044     (void) sprintf (newdb, "%s.db", temp);
1045
1046     (void) chmod (newdir, 0666);
1047     (void) chmod (newpag, 0666);
1048     (void) chmod (newdb, 0666);
1049
1050     /* don't mess with me */
1051     SIG_beginCrSect ();
1052
1053     /* rm .#modules.dir .#modules.pag */
1054     if (unlink_file (bakdir) < 0)
1055         dir1_errno = errno;
1056     if (unlink_file (bakpag) < 0)
1057         pag1_errno = errno;
1058     if (unlink_file (bakdb) < 0)
1059         db1_errno = errno;
1060
1061     /* mv modules.dir .#modules.dir */
1062     if (CVS_RENAME (dotdir, bakdir) < 0)
1063         dir2_errno = errno;
1064     /* mv modules.pag .#modules.pag */
1065     if (CVS_RENAME (dotpag, bakpag) < 0)
1066         pag2_errno = errno;
1067     /* mv modules.db .#modules.db */
1068     if (CVS_RENAME (dotdb, bakdb) < 0)
1069         db2_errno = errno;
1070
1071     /* mv "temp".dir modules.dir */
1072     if (CVS_RENAME (newdir, dotdir) < 0)
1073         dir3_errno = errno;
1074     /* mv "temp".pag modules.pag */
1075     if (CVS_RENAME (newpag, dotpag) < 0)
1076         pag3_errno = errno;
1077     /* mv "temp".db modules.db */
1078     if (CVS_RENAME (newdb, dotdb) < 0)
1079         db3_errno = errno;
1080
1081     /* OK -- make my day */
1082     SIG_endCrSect ();
1083
1084     /* I didn't want to call error() when we had signals blocked
1085        (unnecessary?), but do it now.  */
1086     if (dir1_errno && !existence_error (dir1_errno))
1087         error (0, dir1_errno, "cannot remove %s", bakdir);
1088     if (pag1_errno && !existence_error (pag1_errno))
1089         error (0, pag1_errno, "cannot remove %s", bakpag);
1090     if (db1_errno && !existence_error (db1_errno))
1091         error (0, db1_errno, "cannot remove %s", bakdb);
1092
1093     if (dir2_errno && !existence_error (dir2_errno))
1094         error (0, dir2_errno, "cannot remove %s", bakdir);
1095     if (pag2_errno && !existence_error (pag2_errno))
1096         error (0, pag2_errno, "cannot remove %s", bakpag);
1097     if (db2_errno && !existence_error (db2_errno))
1098         error (0, db2_errno, "cannot remove %s", bakdb);
1099
1100     if (dir3_errno && !existence_error (dir3_errno))
1101         error (0, dir3_errno, "cannot remove %s", bakdir);
1102     if (pag3_errno && !existence_error (pag3_errno))
1103         error (0, pag3_errno, "cannot remove %s", bakpag);
1104     if (db3_errno && !existence_error (db3_errno))
1105         error (0, db3_errno, "cannot remove %s", bakdb);
1106 }
1107
1108 #endif                          /* !MY_NDBM */
1109
1110 static void
1111 rename_rcsfile (char *temp, char *real)
1112 {
1113     char *bak;
1114     struct stat statbuf;
1115     char *rcs;
1116
1117     /* Set "x" bits if set in original. */
1118     rcs = Xasprintf ("%s%s", real, RCSEXT);
1119     statbuf.st_mode = 0; /* in case rcs file doesn't exist, but it should... */
1120     if (stat (rcs, &statbuf) < 0
1121         && !existence_error (errno))
1122         error (0, errno, "cannot stat %s", rcs);
1123     free (rcs);
1124
1125     if (chmod (temp, 0444 | (statbuf.st_mode & 0111)) < 0)
1126         error (0, errno, "warning: cannot chmod %s", temp);
1127     bak = Xasprintf ("%s%s", BAKPREFIX, real);
1128
1129     /* rm .#loginfo */
1130     if (unlink_file (bak) < 0
1131         && !existence_error (errno))
1132         error (0, errno, "cannot remove %s", bak);
1133
1134     /* mv loginfo .#loginfo */
1135     if (CVS_RENAME (real, bak) < 0
1136         && !existence_error (errno))
1137         error (0, errno, "cannot rename %s to %s", real, bak);
1138
1139     /* mv "temp" loginfo */
1140     if (CVS_RENAME (temp, real) < 0
1141         && !existence_error (errno))
1142         error (0, errno, "cannot rename %s to %s", temp, real);
1143
1144     free (bak);
1145 }
1146 \f
1147 const char *const init_usage[] = {
1148     "Usage: %s %s\n",
1149     "(Specify the --help global option for a list of other help options)\n",
1150     NULL
1151 };
1152
1153 int
1154 init (int argc, char **argv)
1155 {
1156     /* Name of CVSROOT directory.  */
1157     char *adm;
1158     /* Name of this administrative file.  */
1159     char *info;
1160     /* Name of ,v file for this administrative file.  */
1161     char *info_v;
1162     /* Exit status.  */
1163     int err = 0;
1164
1165     const struct admin_file *fileptr;
1166
1167     umask (cvsumask);
1168
1169     if (argc == -1 || argc > 1)
1170         usage (init_usage);
1171
1172 #ifdef CLIENT_SUPPORT
1173     if (current_parsed_root->isremote)
1174     {
1175         start_server ();
1176
1177         ign_setup ();
1178         send_init_command ();
1179         return get_responses_and_close ();
1180     }
1181 #endif /* CLIENT_SUPPORT */
1182
1183     /* Note: we do *not* create parent directories as needed like the
1184        old cvsinit.sh script did.  Few utilities do that, and a
1185        non-existent parent directory is as likely to be a typo as something
1186        which needs to be created.  */
1187     mkdir_if_needed (current_parsed_root->directory);
1188
1189     if (noexec)
1190         return (0);
1191
1192     adm = Xasprintf ("%s/%s", current_parsed_root->directory, CVSROOTADM);
1193     mkdir_if_needed (adm);
1194
1195     /* This is needed because we pass "fileptr->filename" not "info"
1196        to add_rcs_file below.  I think this would be easy to change,
1197        thus nuking the need for CVS_CHDIR here, but I haven't looked
1198        closely (e.g. see wrappers calls within add_rcs_file).  */
1199     if ( CVS_CHDIR (adm) < 0)
1200         error (1, errno, "cannot change to directory %s", adm);
1201
1202     /* Make Emptydir so it's there if we need it */
1203     mkdir_if_needed (CVSNULLREPOS);
1204
1205     /* 80 is long enough for all the administrative file names, plus
1206        "/" and so on.  */
1207     info = xmalloc (strlen (adm) + 80);
1208     info_v = xmalloc (strlen (adm) + 80);
1209     for (fileptr = filelist; fileptr && fileptr->filename; ++fileptr)
1210     {
1211         if (fileptr->contents == NULL)
1212             continue;
1213         strcpy (info, adm);
1214         strcat (info, "/");
1215         strcat (info, fileptr->filename);
1216         strcpy (info_v, info);
1217         strcat (info_v, RCSEXT);
1218         if (isfile (info_v))
1219             /* We will check out this file in the mkmodules step.
1220                Nothing else is required.  */
1221             ;
1222         else
1223         {
1224             int retcode;
1225
1226             if (!isfile (info))
1227             {
1228                 FILE *fp;
1229                 const char * const *p;
1230
1231                 fp = xfopen (info, "w");
1232                 for (p = fileptr->contents; *p != NULL; ++p)
1233                     if (fputs (*p, fp) < 0)
1234                         error (1, errno, "cannot write %s", info);
1235                 if (fclose (fp) < 0)
1236                     error (1, errno, "cannot close %s", info);
1237             }
1238             /* The message used to say " of " and fileptr->filename after
1239                "initial checkin" but I fail to see the point as we know what
1240                file it is from the name.  */
1241             retcode = add_rcs_file ("initial checkin", info_v,
1242                                     fileptr->filename, "1.1", NULL,
1243
1244                                     /* No vendor branch.  */
1245                                     NULL, NULL, 0, NULL,
1246
1247                                     NULL, 0, NULL, 0);
1248             if (retcode != 0)
1249                 /* add_rcs_file already printed an error message.  */
1250                 err = 1;
1251         }
1252     }
1253
1254     /* Turn on history logging by default.  The user can remove the file
1255        to disable it.  */
1256     strcpy (info, adm);
1257     strcat (info, "/");
1258     strcat (info, CVSROOTADM_HISTORY);
1259     if (!isfile (info))
1260     {
1261         FILE *fp;
1262
1263         fp = xfopen (info, "w");
1264         if (fclose (fp) < 0)
1265             error (1, errno, "cannot close %s", info);
1266  
1267         /* Make the new history file world-writeable, since every CVS
1268            user will need to be able to write to it.  We use chmod()
1269            because xchmod() is too shy. */
1270         chmod (info, 0666);
1271     }
1272
1273     /* Make an empty val-tags file to prevent problems creating it later.  */
1274     strcpy (info, adm);
1275     strcat (info, "/");
1276     strcat (info, CVSROOTADM_VALTAGS);
1277     if (!isfile (info))
1278     {
1279         FILE *fp;
1280
1281         fp = xfopen (info, "w");
1282         if (fclose (fp) < 0)
1283             error (1, errno, "cannot close %s", info);
1284  
1285         /* Make the new val-tags file world-writeable, since every CVS
1286            user will need to be able to write to it.  We use chmod()
1287            because xchmod() is too shy. */
1288         chmod (info, 0666);
1289     }
1290
1291     free (info);
1292     free (info_v);
1293
1294     mkmodules (adm);
1295
1296     free (adm);
1297     return err;
1298 }