1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102
|
/*
* Copyright (C) 2000-2004 by CERN/IT/PDP/DM
* All rights reserved
*/
#ifndef lint
static char sccsid[] = "@(#)$RCSfile: Cns_selectsrvr.c,v $ $Revision: 1.2 $ $Date: 2005/11/24 09:57:14 $ CERN IT-PDP/DM Jean-Philippe Baud";
#endif /* not lint */
/* Cns_selectsrvr - select the CASTOR Name Server hostname */
/* The following rules apply:
* if the path is in the form server:pathname, "server" is used else
* if the environment variable CNS_HOST is set, its value is used else
* if CNS HOST is defined in /etc/shift.conf, the value is used else
* the second component of path is the domain name and the third component
* is prefixed by the value of NsHostPfx to give the host name or its alias
*/
#include <errno.h>
#include <stdio.h>
#include <string.h>
#include <sys/types.h>
#include "Castor_limits.h"
#include "Cns_api.h"
#include "Cns.h"
#include "serrno.h"
#ifndef _WIN32
#if defined(_REENTRANT) || defined(_THREAD_SAFE)
#define strtok(X,Y) strtok_r(X,Y,&last)
#endif /* _REENTRANT || _THREAD_SAFE */
#endif /* _WIN32 */
int DLL_DECL
Cns_selectsrvr(path, current_directory_server, server, actual_path)
const char *path;
char *current_directory_server;
char *server;
char **actual_path;
{
char buffer[CA_MAXPATHLEN+1];
char *domain;
char func[16];
char *getconfent();
char *getenv();
#ifndef _WIN32
#if defined(_REENTRANT) || defined(_THREAD_SAFE)
char *last = NULL;
#endif
#endif
int n;
char *p;
strcpy (func, "Cns_selectsrvr");
if (! path || ! server || ! actual_path) {
serrno = EFAULT;
return (-1);
}
if (*path != '/' && (p = strstr (path, ":/"))) {
n = p - path;
if (n > CA_MAXHOSTNAMELEN) {
serrno = EINVAL;
return (-1);
}
strncpy (server, path, n);
*(server + n) = '\0';
*actual_path = p + 1;
} else {
*actual_path = (char *) path;
if ((p = getenv (CNS_HOST_ENV)) || (p = getconfent (CNS_SCE, "HOST", 0))) {
if (strlen (p) > CA_MAXHOSTNAMELEN) {
serrno = EINVAL;
return (-1);
}
strcpy (server, p);
} else {
if (*path != '/') { /* not a full path */
if (*current_directory_server) /* set by chdir */
strcpy (server, current_directory_server);
else
server[0] = '\0'; /* use localhost */
return (0);
}
strcpy (buffer, path);
if (! strtok (buffer, "/") ||
(domain = strtok (NULL, "/")) == NULL ||
(p = strtok (NULL, "/")) == NULL) {
server[0] = '\0'; /* use localhost */
return (0);
}
if (strlen (CNSHOSTPFX) + strlen (p) + strlen (domain) +
1 > CA_MAXHOSTNAMELEN) {
serrno = EINVAL;
return (-1);
}
sprintf (server, "%s%s.%s", CNSHOSTPFX, p, domain);
}
}
return (0);
}
|