archie/prospero/lib/pfs/vfsetenv.c

140 lines
4.1 KiB
C
Raw Normal View History

2024-05-27 16:13:40 +02:00
/*
* Copyright (c) 1989, 1990, 1991 by the University of Washington
* Copyright (c) 1992 by the University of Southern California
*
* For copying and distribution information, please see the files
* <uw-copyright.h> and <usc-copyr.h>.
*/
#include <uw-copyright.h>
#include <usc-copyr.h>
#include <pfs.h>
#include <psite.h>
#include <pmachine.h>
#include <perrno.h>
#ifndef NULL
#define NULL 0
#endif
extern int pfs_debug;
int
vfsetenv(char *hostname, char *filename, char *path)
{
VDIR_ST dir_st;
VDIR dir= &dir_st;
VLINK vl;
int tmp;
int foundroot = 0;
static char ts[100]; /* Temporary string */
static char vsdesc_host[100];
static char vsdesc_file[100];
static char vshome[100];
assert(P_IS_THIS_THREAD_MASTER()); /* Not thread safe yet */
vdir_init(dir);
/* if hostname is "", but there is no definition for VSWORK_HOST */
/* in the environment, then treat hostname and filename as is */
/* they are NULL. That way, the default will be used. */
/* */
/* ASSUMPTION: If VSWORK_HOST is non null, then the rest of the */
/* environment is probably filled in as well. We should really */
/* check all necessary variables */
if(hostname && (*hostname == '\0') && (pget_wdhost() == NULL)){
hostname = NULL;
filename = NULL;
}
/* If a non-empty hostname has been specified, then set the */
/* starting point for the host and filenames. If the hostname */
/* NULL, then use the default. */
if((hostname == NULL) || (*hostname != '\0')) {
if(!filename)
if (qsprintf(ts, sizeof ts,
"%s/%s",P_SITE_DIRECTORY,P_SITE_MASTER_VSLIST)
> sizeof ts)
internal_error("internal buffer ts is too small!");
pset_rd((hostname ? hostname : P_SITE_HOST),
(filename ? filename : ts));
pset_wd((hostname ? hostname : P_SITE_HOST),
(filename ? filename : ts),
"/");
strcpy(vshome,"/");
pset_hd((hostname ? hostname : P_SITE_HOST),
(filename ? filename : ts),
"/");
}
tmp = rd_vdir((path ? path : ""),0,dir,RVD_DFILE_ONLY);
if(tmp) return(tmp);
if(!dir->links) return(VFSN_NOT_A_VS);
strcpy(vsdesc_host,dir->links->host);
strcpy(vsdesc_file,dir->links->hsoname);
tmp = rd_vdir((path ? path : ""),0,dir,0);
if(tmp) return(tmp);
if(!dir->links) return(VFSN_NOT_A_VS);
vl = dir->links;
pset_desc(vsdesc_host,vsdesc_file,NULL);
foundroot = 0;
while(vl) {
if(vl->name && strequal(vl->name,"ROOT")) {
if (!strequal(vl->target, "DIRECTORY")) {
if (pfs_debug)
fprintf(stderr, "vfsetenv(): ROOT link in \
VS-DESCRIPTION must be DIRECTORY");
vdir_freelinks(dir);
return VFSN_NOT_A_VS;
}
pset_rd(vl->host,vl->hsoname);
foundroot++;
}
if(vl->name && strequal(vl->name,"HOME")) {
if (!strequal(vl->target, "SYMBOLIC")) {
if (pfs_debug)
fprintf(stderr, "vfsetenv(): ROOT link in \
VS-DESCRIPTION must be SYMBOLIC");
vdir_freelinks(dir);
return VFSN_NOT_A_VS;
}
pset_desc(NULL,NULL,vl->host);
pset_wd(NULL,NULL,vl->hsoname);
pset_hd(NULL,NULL,vl->hsoname);
strcpy(vshome,vl->hsoname);
}
vl = vl->next;
}
/* Need to check whether we found what was needed and */
/* return error otherwise */
if(!foundroot) return(VFSN_NOT_A_VS);
tmp = rd_vdir(vshome,0,dir,RVD_DFILE_ONLY | RVD_NOCACHE);
if(tmp) return(tmp);
if(!dir->links) return(VFSN_CANT_FIND_DIR);
pset_hd(dir->links->host,dir->links->hsoname,NULL);
pset_wd(dir->links->host,dir->links->hsoname,NULL);
vllfree(dir->links);
vllfree(dir->ulinks);
return(PSUCCESS);
}