/*
* Copyright (C) 1986-2005 The Free Software Foundation, Inc.
*
* Portions Copyright (C) 1998-2005 Derek Price, Ximbiot <http://ximbiot.com>,
* and others.
*
* Poritons Copyright (c) 1992, Mark D. Baushke
*
* You may distribute under the terms of the GNU General Public License as
* specified in the README file that comes with the CVS source distribution.
*
* Name of Root
*
* Determine the path to the CVSROOT and set "Root" accordingly.
*/
#include <sys/cdefs.h>
__RCSID("$NetBSD: root.c,v 1.2 2016/05/17 14:00:09 christos Exp $");
#include "cvs.h"
#include <assert.h>
#include "getline.h"
/* Printable names for things in the current_parsed_root->method enum variable.
Watch out if the enum is changed in cvs.h! */
const char method_names[][16] = {
"undefined", "local", "server (rsh)", "pserver",
"kserver", "gserver", "ext", "fork"
};
#ifndef DEBUG
cvsroot_t *
Name_Root (const char *dir, const char *update_dir)
{
FILE *fpin;
cvsroot_t *ret;
const char *xupdate_dir;
char *root = NULL;
size_t root_allocated = 0;
char *tmp;
char *cvsadm;
char *cp;
int len;
TRACE (TRACE_FLOW, "Name_Root (%s, %s)",
dir ? dir : "(null)",
update_dir ? update_dir : "(null)");
if (update_dir && *update_dir)
xupdate_dir = update_dir;
else
xupdate_dir = ".";
if (dir != NULL)
{
cvsadm = Xasprintf ("%s/%s", dir, CVSADM);
tmp = Xasprintf ("%s/%s", dir, CVSADM_ROOT);
}
else
{
cvsadm = xstrdup (CVSADM);
tmp = xstrdup (CVSADM_ROOT);
}
/*
* Do not bother looking for a readable file if there is no cvsadm
* directory present.
*
* It is possible that not all repositories will have a CVS/Root
* file. This is ok, but the user will need to specify -d
* /path/name or have the environment variable CVSROOT set in
* order to continue. */
if ((!isdir (cvsadm)) || (!isreadable (tmp)))
{
ret = NULL;
goto out;
}
/*
* The assumption here is that the CVS Root is always contained in the
* first line of the "Root" file.
*/
fpin = xfopen (tmp, "r");
if ((len = getline (&root, &root_allocated, fpin)) < 0)
{
int saved_errno = errno;
/* FIXME: should be checking for end of file separately; errno
is not set in that case. */
error (0, 0, "in directory %s:", xupdate_dir);
error (0, saved_errno, "cannot read %s", CVSADM_ROOT);
error (0, 0, "please correct this problem");
ret = NULL;
goto out;
}
fclose (fpin);
cp = root + len - 1;
if (*cp == '\n')
*cp = '\0'; /* strip the newline */
/*
* root now contains a candidate for CVSroot. It must be an
* absolute pathname or specify a remote server.
*/
ret = parse_cvsroot (root);
if (ret == NULL)
{
error (0, 0, "in directory %s:", xupdate_dir);
error (0, 0,
"ignoring %s because it does not contain a valid root.",
CVSADM_ROOT);
goto out;
}
if (!ret->isremote && !isdir (ret->directory))
{
error (0, 0, "in directory %s:", xupdate_dir);
error (0, 0,
"ignoring %s because it specifies a non-existent repository %s",
CVSADM_ROOT, root);
ret = NULL;
goto out;
}
out:
free (cvsadm);
free (tmp);
if (root != NULL)
free (root);
return ret;
}
/*
* Write the CVS/Root file so that the environment variable CVSROOT
* and/or the -d option to cvs will be validated or not necessary for
* future work.
*/
void
Create_Root (const char *dir, const char *rootdir)
{
FILE *fout;
char *tmp;
if (noexec)
return;
/* record the current cvs root */
if (rootdir != NULL)
{
if (dir != NULL)
tmp = Xasprintf ("%s/%s", dir, CVSADM_ROOT);
else
tmp = xstrdup (CVSADM_ROOT);
fout = xfopen (tmp, "w+");
if (fprintf (fout, "%s\n", rootdir) < 0)
error (1, errno, "write to %s failed", tmp);
if (fclose (fout) == EOF)
error (1, errno, "cannot close %s", tmp);
free (tmp);
}
}
#endif /* ! DEBUG */
/* Translate an absolute repository string for a primary server and return it.
*
* INPUTS
* root_in The root to be translated.
*
* RETURNS
* A translated string this function owns, or a pointer to the original
* string passed in if no translation was necessary.
*
* If the returned string is the translated one, it may be overwritten
* by the next call to this function.
*/
const char *
primary_root_translate (const char *root_in)
{
#ifdef PROXY_SUPPORT
char *translated;
static char *previous = NULL;
static size_t len;
/* This can happen, for instance, during `cvs init'. */
if (!config) return root_in;
if (config->PrimaryServer
&& !strncmp (root_in, config->PrimaryServer->directory,
strlen (config->PrimaryServer->directory))
&& (ISSLASH (root_in[strlen (config->PrimaryServer->directory)])
|| root_in[strlen (config->PrimaryServer->directory)] == '\0')
)
{
translated =
Xasnprintf (previous, &len,
"%s%s", current_parsed_root->directory,
root_in + strlen (config->PrimaryServer->directory));
if (previous && previous != translated)
free (previous);
return previous = translated;
}
#endif
/* There is no primary root configured or it didn't match. */
return root_in;
}
/* Translate a primary root in reverse for PATHNAMEs in responses.
*
* INPUTS
* root_in The root to be translated.
*
* RETURNS
* A translated string this function owns, or a pointer to the original
* string passed in if no translation was necessary.
*
* If the returned string is the translated one, it may be overwritten
* by the next call to this function.
*/
const char *
primary_root_inverse_translate (const char *root_in)
{
#ifdef PROXY_SUPPORT
char *translated;
static char *previous = NULL;
static size_t len;
/* This can happen, for instance, during `cvs init'. */
if (!config) return root_in;
if (config->PrimaryServer
&& !strncmp (root_in, current_parsed_root->directory,
strlen (current_parsed_root->directory))
&& (ISSLASH (root_in[strlen (current_parsed_root->directory)])
|| root_in[strlen (current_parsed_root->directory)] == '\0')
)
{
translated =
Xasnprintf (previous, &len,
"%s%s", config->PrimaryServer->directory,
root_in + strlen (current_parsed_root->directory));
if (previous && previous != translated)
free (previous);
return previous = translated;
}
#endif
/* There is no primary root configured or it didn't match. */
return root_in;
}
/* The root_allow_* stuff maintains a list of valid CVSROOT
directories. Then we can check against them when a remote user
hands us a CVSROOT directory. */
static List *root_allow;
static void
delconfig (Node *n)
{
if (n->data) free_config (n->data);
}
void
root_allow_add (const char *arg, const char *configPath)
{
Node *n;
if (!root_allow) root_allow = getlist();
n = getnode();
n->key = xstrdup (arg);
n->data = parse_config (arg, configPath);
n->delproc = delconfig;
addnode (root_allow, n);
}
void
root_allow_free (void)
{
dellist (&root_allow);
}
bool
root_allow_ok (const char *arg)
{
if (!root_allow)
{
/* Probably someone upgraded from CVS before 1.9.10 to 1.9.10
or later without reading the documentation about
--allow-root. Printing an error here doesn't disclose any
particularly useful information to an attacker because a
CVS server configured in this way won't let *anyone* in. */
/* Note that we are called from a context where we can spit
back "error" rather than waiting for the next request which
expects responses. */
printf ("\
error 0 Server configuration missing --allow-root in inetd.conf\n");
exit (EXIT_FAILURE);
}
if (findnode (root_allow, arg))
return true;
return false;
}
/* Get a config we stored in response to root_allow.
*
* RETURNS
* The config associated with ARG.
*/
struct config *
get_root_allow_config (const char *arg, const char *configPath)
{
Node *n;
TRACE (TRACE_FUNCTION, "get_root_allow_config (%s)", arg);
if (root_allow)
n = findnode (root_allow, arg);
else
n = NULL;
if (n) return n->data;
return parse_config (arg, configPath);
}
/* This global variable holds the global -d option. It is NULL if -d
was not used, which means that we must get the CVSroot information
from the CVSROOT environment variable or from a CVS/Root file. */
char *CVSroot_cmdline;
/* FIXME - Deglobalize this. */
cvsroot_t *current_parsed_root = NULL;
/* Used to save the original root being processed so that we can still find it
* in lists and the like after a `Redirect' response. Also set to mirror
* current_parsed_root in server mode so that code which runs on both the
* client and server but which wants to use original data on the client can
* just always reference the original_parsed_root.
*/
const cvsroot_t *original_parsed_root;
/* allocate and initialize a cvsroot_t
*
* We must initialize the strings to NULL so we know later what we should
* free
*
* Some of the other zeroes remain meaningful as, "never set, use default",
* or the like
*/
/* Functions which allocate memory are not pure. */
static cvsroot_t *new_cvsroot_t(void)
__attribute__( (__malloc__) );
static cvsroot_t *
new_cvsroot_t (void)
{
cvsroot_t *newroot;
/* gotta store it somewhere */
newroot = xmalloc(sizeof(cvsroot_t));
newroot->original = NULL;
newroot->directory = NULL;
newroot->method = null_method;
newroot->isremote = false;
#ifdef CLIENT_SUPPORT
newroot->username = NULL;
newroot->password = NULL;
newroot->hostname = NULL;
newroot->cvs_rsh = NULL;
newroot->cvs_server = NULL;
newroot->port = 0;
newroot->proxy_hostname = NULL;
newroot->proxy_port = 0;
newroot->redirect = true; /* Advertise Redirect support */
#endif /* CLIENT_SUPPORT */
return newroot;
}
/* Dispose of a cvsroot_t and its component parts.
*
* NOTE
* It is dangerous for most code to call this function since parse_cvsroot
* maintains a cache of parsed roots.
*/
static void
free_cvsroot_t (cvsroot_t *root)
{
assert (root);
if (root->original != NULL)
free (root->original);
if (root->directory != NULL)
free (root->directory);
#ifdef CLIENT_SUPPORT
if (root->username != NULL)
free (root->username);
if (root->password != NULL)
{
/* I like to be paranoid */
memset (root->password, 0, strlen (root->password));
free (root->password);
}
if (root->hostname != NULL)
free (root->hostname);
if (root->cvs_rsh != NULL)
free (root->cvs_rsh);
if (root->cvs_server != NULL)
free (root->cvs_server);
if (root->proxy_hostname != NULL)
free (root->proxy_hostname);
#endif /* CLIENT_SUPPORT */
free (root);
}
/*
* Parse a CVSROOT string to allocate and return a new cvsroot_t structure.
* Valid specifications are:
*
* :(gserver|kserver|pserver):[[user][:password]@]host[:[port]]/path
* [:(ext|server):][[user]@]host[:]/path
* [:local:[e:]]/path
* :fork:/path
*
* INPUTS
* root_in C String containing the CVSROOT to be parsed.
*
* RETURNS
* A pointer to a newly allocated cvsroot_t structure upon success and
* NULL upon failure. The caller should never dispose of this structure,
* as it is stored in a cache, but the caller may rely on it not to
* change.
*
* NOTES
* This would have been a lot easier to write in Perl.
*
* Would it make sense to reimplement the root and config file parsing
* gunk in Lex/Yacc?
*
* SEE ALSO
* free_cvsroot_t()
*/
cvsroot_t *
parse_cvsroot (const char *root_in)
{
cvsroot_t *newroot; /* the new root to be returned */
char *cvsroot_save; /* what we allocated so we can dispose
* it when finished */
char *cvsroot_copy, *p; /* temporary pointers for parsing */
#if defined(CLIENT_SUPPORT) || defined (SERVER_SUPPORT)
char *q; /* temporary pointer for parsing */
char *firstslash; /* save where the path spec starts
* while we parse
* [[user][:password]@]host[:[port]]
*/
int check_hostname, no_port, no_password, no_proxy;
#endif /* defined(CLIENT_SUPPORT) || defined (SERVER_SUPPORT) */
static List *cache = NULL;
Node *node;
assert (root_in != NULL);
/* This message is TRACE_FLOW since this function is called repeatedly by
* the recursion routines.
*/
TRACE (TRACE_FLOW, "parse_cvsroot (%s)", root_in);
if ((node = findnode (cache, root_in)))
return node->data;
assert (root_in);
/* allocate some space */
newroot = new_cvsroot_t();
/* save the original string */
newroot->original = xstrdup (root_in);
/* and another copy we can munge while parsing */
cvsroot_save = cvsroot_copy = xstrdup (root_in);
if (*cvsroot_copy == ':')
{
char *method = ++cvsroot_copy;
/* Access method specified, as in
* "cvs -d :(gserver|kserver|pserver):[[user][:password]@]host[:[port]]/path",
* "cvs -d [:(ext|server):][[user]@]host[:]/path",
* "cvs -d :local:e:\path",
* "cvs -d :fork:/path".
* We need to get past that part of CVSroot before parsing the
* rest of it.
*/
if (! (p = strchr (method, ':')))
{
error (0, 0, "No closing `:' on method in CVSROOT.");
goto error_exit;
}
*p = '\0';
cvsroot_copy = ++p;
#if defined (CLIENT_SUPPORT) || defined (SERVER_SUPPORT)
/* Look for method options, for instance, proxy, proxyport.
* Calling strtok again is saved until after parsing the method.
*/
method = strtok (method, ";");
if (!method)
/* Could just exit now, but this keeps the error message in sync.
*/
method = "";
#endif /* defined (CLIENT_SUPPORT) || defined (SERVER_SUPPORT) */
/* Now we have an access method -- see if it's valid. */
if (!strcasecmp (method, "local"))
newroot->method = local_method;
else if (!strcasecmp (method, "pserver"))
newroot->method = pserver_method;
else if (!strcasecmp (method, "kserver"))
newroot->method = kserver_method;
else if (!strcasecmp (method, "gserver"))
newroot->method = gserver_method;
else if (!strcasecmp (method, "server"))
newroot->method = server_method;
else if (!strcasecmp (method, "ext"))
newroot->method = ext_method;
else if (!strcasecmp (method, "fork"))
newroot->method = fork_method;
else
{
error (0, 0, "Unknown method (`%s') in CVSROOT.", method);
goto error_exit;
}
#if defined (CLIENT_SUPPORT) || defined (SERVER_SUPPORT)
/* Parse the method options, for instance, proxy, proxyport */
while ((p = strtok (NULL, ";")))
{
char *q = strchr (p, '=');
if (q == NULL)
{
error (0, 0, "Option (`%s') has no argument in CVSROOT.",
p);
goto error_exit;
}
*q++ = '\0';
TRACE (TRACE_DATA, "CVSROOT option=`%s' value=`%s'", p, q);
if (!strcasecmp (p, "proxy"))
{
newroot->proxy_hostname = xstrdup (q);
}
else if (!strcasecmp (p, "proxyport"))
{
char *r = q;
if (*r == '-') r++;
while (*r)
{
if (!isdigit(*r++))
{
error (0, 0,
"CVSROOT may only specify a positive, non-zero, integer proxy port (not `%s').",
q);
goto error_exit;
}
}
if ((newroot->proxy_port = atoi (q)) <= 0)
error (0, 0,
"CVSROOT may only specify a positive, non-zero, integer proxy port (not `%s').",
q);
}
else if (!strcasecmp (p, "CVS_RSH"))
{
/* override CVS_RSH environment variable */
if (newroot->method == ext_method)
newroot->cvs_rsh = xstrdup (q);
}
else if (!strcasecmp (p, "CVS_SERVER"))
{
/* override CVS_SERVER environment variable */
if (newroot->method == ext_method
|| newroot->method == fork_method)
newroot->cvs_server = xstrdup (q);
}
else if (!strcasecmp (p, "Redirect"))
readBool ("CVSROOT", "Redirect", q, &newroot->redirect);
else
{
error (0, 0, "Unknown option (`%s') in CVSROOT.", p);
goto error_exit;
}
}
#endif /* defined (CLIENT_SUPPORT) || defined (SERVER_SUPPORT) */
}
else
{
/* If the method isn't specified, assume EXT_METHOD if the string looks
like a relative path and LOCAL_METHOD otherwise. */
newroot->method = ((*cvsroot_copy != '/' && strchr (cvsroot_copy, '/'))
? ext_method
: local_method);
}
/*
* There are a few sanity checks we can do now, only knowing the
* method of this root.
*/
newroot->isremote = (newroot->method != local_method);
#if defined (CLIENT_SUPPORT) || defined (SERVER_SUPPORT)
if (readonlyfs && newroot->isremote)
error (1, 0,
"Read-only repository feature unavailable with remote roots (cvsroot = %s)",
cvsroot_copy);
if ((newroot->method != local_method)
&& (newroot->method != fork_method)
)
{
/* split the string into [[user][:password]@]host[:[port]] & /path
*
* this will allow some characters such as '@' & ':' to remain unquoted
* in the path portion of the spec
*/
if ((p = strchr (cvsroot_copy, '/')) == NULL)
{
error (0, 0, "CVSROOT requires a path spec:");
error (0, 0,
":(gserver|kserver|pserver):[[user][:password]@]host[:[port]]/path");
error (0, 0, "[:(ext|server):][[user]@]host[:]/path");
goto error_exit;
}
firstslash = p; /* == NULL if '/' not in string */
*p = '\0';
/* Check to see if there is a username[:password] in the string. */
if ((p = strchr (cvsroot_copy, '@')) != NULL)
{
*p = '\0';
/* check for a password */
if ((q = strchr (cvsroot_copy, ':')) != NULL)
{
*q = '\0';
newroot->password = xstrdup (++q);
/* Don't check for *newroot->password == '\0' since
* a user could conceivably wish to specify a blank password
*
* (newroot->password == NULL means to use the
* password from .cvspass)
*/
}
/* copy the username */
if (*cvsroot_copy != '\0')
/* a blank username is impossible, so leave it NULL in that
* case so we know to use the default username
*/
newroot->username = xstrdup (cvsroot_copy);
cvsroot_copy = ++p;
}
/* now deal with host[:[port]] */
/* the port */
if ((p = strchr (cvsroot_copy, ':')) != NULL)
{
*p++ = '\0';
if (strlen(p))
{
q = p;
if (*q == '-') q++;
while (*q)
{
if (!isdigit(*q++))
{
error (0, 0,
"CVSROOT may only specify a positive, non-zero, integer port (not `%s').",
p);
error (0, 0,
"Perhaps you entered a relative pathname?");
goto error_exit;
}
}
if ((newroot->port = atoi (p)) <= 0)
{
error (0, 0,
"CVSROOT may only specify a positive, non-zero, integer port (not `%s').",
p);
error (0, 0, "Perhaps you entered a relative pathname?");
goto error_exit;
}
}
}
/* copy host */
if (*cvsroot_copy != '\0')
/* blank hostnames are invalid, but for now leave the field NULL
* and catch the error during the sanity checks later
*/
newroot->hostname = xstrdup (cvsroot_copy);
/* restore the '/' */
cvsroot_copy = firstslash;
*cvsroot_copy = '/';
}
#endif /* defined(CLIENT_SUPPORT) || defined (SERVER_SUPPORT) */
/*
* Parse the path for all methods.
*/
/* Here & local_cvsroot() should be the only places this needs to be
* called on a CVSROOT now. cvsroot->original is saved for error messages
* and, otherwise, we want no trailing slashes.
*/
Sanitize_Repository_Name (cvsroot_copy);
newroot->directory = xstrdup (cvsroot_copy);
/*
* Do various sanity checks.
*/
#if defined(CLIENT_SUPPORT) || defined (SERVER_SUPPORT)
if (newroot->username && ! newroot->hostname)
{
error (0, 0, "Missing hostname in CVSROOT.");
goto error_exit;
}
/* We won't have attempted to parse these without CLIENT_SUPPORT or
* SERVER_SUPPORT.
*/
check_hostname = 0;
no_password = 1;
no_proxy = 1;
no_port = 0;
#endif /* defined (CLIENT_SUPPORT) || defined (SERVER_SUPPORT) */
switch (newroot->method)
{
case local_method:
#if defined(CLIENT_SUPPORT) || defined (SERVER_SUPPORT)
if (newroot->username || newroot->hostname)
{
error (0, 0, "Can't specify hostname and username in CVSROOT");
error (0, 0, "when using local access method.");
goto error_exit;
}
#endif /* defined(CLIENT_SUPPORT) || defined (SERVER_SUPPORT) */
/* cvs.texinfo has always told people that CVSROOT must be an
absolute pathname. Furthermore, attempts to use a relative
pathname produced various errors (I couldn't get it to work),
so there would seem to be little risk in making this a fatal
error. */
if (!ISABSOLUTE (newroot->directory))
{
error (0, 0, "CVSROOT must be an absolute pathname (not `%s')",
newroot->directory);
error (0, 0, "when using local access method.");
goto error_exit;
}
#if defined(CLIENT_SUPPORT) || defined (SERVER_SUPPORT)
/* We don't need to check for these in :local: mode, really, since
* we shouldn't be able to hit the code above which parses them, but
* I'm leaving them here in lieu of assertions.
*/
no_port = 1;
/* no_password already set */
#endif /* defined(CLIENT_SUPPORT) || defined (SERVER_SUPPORT) */
break;
#if defined(CLIENT_SUPPORT) || defined (SERVER_SUPPORT)
case fork_method:
/* We want :fork: to behave the same as other remote access
methods. Therefore, don't check to see that the repository
name is absolute -- let the server do it. */
if (newroot->username || newroot->hostname)
{
error (0, 0, "Can't specify hostname and username in CVSROOT");
error (0, 0, "when using fork access method.");
goto error_exit;
}
newroot->hostname = xstrdup("server"); /* for error messages */
if (!ISABSOLUTE (newroot->directory))
{
error (0, 0, "CVSROOT must be an absolute pathname (not `%s')",
newroot->directory);
error (0, 0, "when using fork access method.");
goto error_exit;
}
no_port = 1;
/* no_password already set */
break;
case kserver_method:
check_hostname = 1;
/* no_password already set */
break;
case gserver_method:
check_hostname = 1;
no_proxy = 0;
/* no_password already set */
break;
case server_method:
case ext_method:
no_port = 1;
/* no_password already set */
check_hostname = 1;
break;
case pserver_method:
no_password = 0;
no_proxy = 0;
check_hostname = 1;
break;
#endif /* defined(CLIENT_SUPPORT) || defined (SERVER_SUPPORT) */
default:
error (1, 0, "Invalid method found in parse_cvsroot");
}
#if defined(CLIENT_SUPPORT) || defined (SERVER_SUPPORT)
if (no_password && newroot->password)
{
error (0, 0, "CVSROOT password specification is only valid for");
error (0, 0, "pserver connection method.");
goto error_exit;
}
if (no_proxy && (newroot->proxy_hostname || newroot->proxy_port))
{
error (0, 0,
"CVSROOT proxy specification is only valid for gserver and");
error (0, 0, "pserver connection methods.");
goto error_exit;
}
if (!newroot->proxy_hostname && newroot->proxy_port)
{
error (0, 0, "Proxy port specified in CVSROOT without proxy host.");
goto error_exit;
}
if (check_hostname && !newroot->hostname)
{
error (0, 0, "Didn't specify hostname in CVSROOT.");
goto error_exit;
}
if (no_port && newroot->port)
{
error (0, 0,
"CVSROOT port specification is only valid for gserver, kserver,");
error (0, 0, "and pserver connection methods.");
goto error_exit;
}
#endif /* defined(CLIENT_SUPPORT) || defined (SERVER_SUPPORT) */
if (*newroot->directory == '\0')
{
error (0, 0, "Missing directory in CVSROOT.");
goto error_exit;
}
/* Hooray! We finally parsed it! */
free (cvsroot_save);
if (!cache) cache = getlist();
node = getnode();
node->key = xstrdup (newroot->original);
node->data = newroot;
addnode (cache, node);
return newroot;
error_exit:
free (cvsroot_save);
free_cvsroot_t (newroot);
return NULL;
}
#ifdef AUTH_CLIENT_SUPPORT
/* Use root->username, root->hostname, root->port, and root->directory
* to create a normalized CVSROOT fit for the .cvspass file
*
* username defaults to the result of getcaller()
* port defaults to the result of get_cvs_port_number()
*
* FIXME - we could cache the canonicalized version of a root inside the
* cvsroot_t, but we'd have to un'const the input here and stop expecting the
* caller to be responsible for our return value
*
* ASSUMPTIONS
* ROOT->method == pserver_method
*/
char *
normalize_cvsroot (const cvsroot_t *root)
{
char *cvsroot_canonical;
char *p, *hostname;
assert (root && root->hostname && root->directory);
/* use a lower case hostname since we know hostnames are case insensitive */
/* Some logic says we should be tacking our domain name on too if it isn't
* there already, but for now this works. Reverse->Forward lookups are
* almost certainly too much since that would make CVS immune to some of
* the DNS trickery that makes life easier for sysadmins when they want to
* move a repository or the like
*/
p = hostname = xstrdup (root->hostname);
while (*p)
{
*p = tolower (*p);
p++;
}
cvsroot_canonical = Xasprintf (":pserver:%s@%s:%d%s",
root->username ? root->username
: getcaller(),
hostname, get_cvs_port_number (root),
root->directory);
free (hostname);
return cvsroot_canonical;
}
#endif /* AUTH_CLIENT_SUPPORT */
#ifdef PROXY_SUPPORT
/* A walklist() function to walk the root_allow list looking for a PrimaryServer
* configuration with a directory matching the requested directory.
*
* If found, replace it.
*/
static bool get_local_root_dir_done;
static int
get_local_root_dir (Node *p, void *root_in)
{
struct config *c = p->data;
char **r = root_in;
if (get_local_root_dir_done)
return 0;
if (c->PrimaryServer && !strcmp (*r, c->PrimaryServer->directory))
{
free (*r);
*r = xstrdup (p->key);
get_local_root_dir_done = true;
}
return 0;
}
#endif /* PROXY_SUPPORT */
/* allocate and return a cvsroot_t structure set up as if we're using the local
* repository DIR. */
cvsroot_t *
local_cvsroot (const char *dir)
{
cvsroot_t *newroot = new_cvsroot_t();
newroot->original = xstrdup(dir);
newroot->method = local_method;
newroot->directory = xstrdup(dir);
/* Here and parse_cvsroot() should be the only places this needs to be
* called on a CVSROOT now. cvsroot->original is saved for error messages
* and, otherwise, we want no trailing slashes.
*/
Sanitize_Repository_Name (newroot->directory);
#ifdef PROXY_SUPPORT
/* Translate the directory to a local one in the case that we are
* configured as a secondary. If root_allow has not been initialized,
* nothing happens.
*/
get_local_root_dir_done = false;
walklist (root_allow, get_local_root_dir, &newroot->directory);
#endif /* PROXY_SUPPORT */
return newroot;
}
#ifdef DEBUG
/* This is for testing the parsing function. Use
gcc -I. -I.. -I../lib -DDEBUG root.c -o root
to compile. */
#include <stdio.h>
char *program_name = "testing";
char *cvs_cmd_name = "parse_cvsroot"; /* XXX is this used??? */
void
main (int argc, char *argv[])
{
program_name = argv[0];
if (argc != 2)
{
fprintf (stderr, "Usage: %s <CVSROOT>\n", program_name);
exit (2);
}
if ((current_parsed_root = parse_cvsroot (argv[1])) == NULL)
{
fprintf (stderr, "%s: Parsing failed.\n", program_name);
exit (1);
}
printf ("CVSroot: %s\n", argv[1]);
printf ("current_parsed_root->method: %s\n",
method_names[current_parsed_root->method]);
printf ("current_parsed_root->username: %s\n",
current_parsed_root->username
? current_parsed_root->username : "NULL");
printf ("current_parsed_root->hostname: %s\n",
current_parsed_root->hostname
? current_parsed_root->hostname : "NULL");
printf ("current_parsed_root->directory: %s\n",
current_parsed_root->directory);
exit (0);
/* NOTREACHED */
}
#endif