Net2/usr/src/contrib/isode/others/rfa/llock.c
/*
* RFA - Remote File Access
*
* Access and Management for a partial file system tree that exists
* at two sites either as master files or slave files
*
* llock.c : do a local lock if possible
*
* Contributed by Oliver Wenzel, GMD Berlin, 1990
*
* $Header: /f/osi/others/rfa/RCS/llock.c,v 7.3 91/02/22 09:28:04 mrose Interim $
*
* $Log: llock.c,v $
* Revision 7.3 91/02/22 09:28:04 mrose
* Interim 6.8
*
* Revision 7.2 91/01/14 13:54:36 mrose
* update
*
* Revision 1.1 91/01/04 16:06:33 ow
* Initial revision
*
*/
#ifndef lint
static char *rcsid = "$Header: /f/osi/others/rfa/RCS/llock.c,v 7.3 91/02/22 09:28:04 mrose Interim $";
#endif
/*
* NOTICE
*
* Acquisition, use, and distribution of this module and related
* materials are subject to the restrictions of a license agreement.
* Consult the Preface in the User's Manual for the full terms of
* this agreement.
*
*/
#include <ctype.h>
#include <strings.h>
#include <stdio.h>
#include <pwd.h>
#include <strings.h>
#include <errno.h>
#include <sys/types.h>
#include <sys/stat.h>
#include "logger.h"
#include "rfa.h"
#include "rfainfo.h"
extern char *fsBase;
extern char *strtok();
extern char *getRfaContext();
extern char *isodetcpath;
extern int commandMode;
extern char *sys_errname();
extern char *strdup();
char *myname;
int connected = 0;
FILE *err, *out;
char cwd_remote[512];
int interactive = 1;
int retcode;
cleanup() {}
/*--------------------------------------------------------------*/
/* errMsg */
/*--------------------------------------------------------------*/
char *errMsg(type)
int type;
{
if(type == NOTOK)
return rfaErrStr;
else
return sys_errname(errno);
}
/*--------------------------------------------------------------*/
/* getLocalFileRfaInfo */
/*--------------------------------------------------------------*/
int getLocalRfaInfo(fn, rfap, rfalp, reg)
char **fn;
struct RfaInfo **rfap, **rfalp;
int reg;
{
int rc;
/*--- expand symbolic links in fn ---*/
if((*fn = getRfaContext(cwd_remote, *fn)) == NULL) {
fprintf(err,
"*** local file access error : not within RFA subtree %s ***\n"
, fsBase);
return(NOTOK_OUTOFSUBTREE);
}
if ((*fn = expandSymLinks(*fn)) == NULL) {
fprintf(err, "*** local file access error : %s ***\n", rfaErrStr);
return(NOTOK_OUTOFSUBTREE);
}
/*--- get file Info ---*/
if ((rc = getLockedRfaInfoList(dirname(*fn), rfalp, basename(*fn))) != OK) {
fprintf(err,
"*** local file access error : can't read %s/.rfainfo (%s) ***\n",
dirname(*fn), errMsg(rc));
return(NOTOK_FILEACCESS);
}
if ((*rfap = findRfaInfo(basename(*fn), *rfalp)) == NULL) {
releaseRfaInfoList(*fn,*rfalp);
*rfalp = NULL;
fprintf(err,"*** local file access error : %s does not exist ***\n",
*fn);
return(NOTOK_FILEACCESS);
}
/*--- check if regular file ---*/
if (reg)
if (((*rfap)->ri_mode & S_IFMT) != S_IFREG) {
releaseRfaInfoList(*fn,*rfalp);
fprintf(err," *** status error : not a regular file ***\n");
*rfalp = NULL;
return NOTOK_NOTREGULAR;
}
return OK;
}
/*--------------------------------------------------------------*/
/* unlockFile */
/*--------------------------------------------------------------*/
do_lunlock(fn)
char *fn;
{
int rc;
struct RfaInfo *rfalist, *rfa;
/*--- get file Info ---*/
if ((rc = getLocalRfaInfo(&fn, &rfa, &rfalist, 1)) != OK)
return rc;
/*--- check if we are master ---*/
if (IS_SLAVE(rfa->ri_status)) {
releaseRfaInfoList(dirname(fn), rfalist);
fprintf(err," *** local file %s is slave version ***\n", fn);
return NOTOK_IS_SLAVE;
}
if (!IS_LOCKED(rfa->ri_status)) {
releaseRfaInfoList(dirname(fn), rfalist);
fprintf(err," *** local file %s not locked ***\n", fn);
return NOTOK_NOTLOCKED;
}
SET_LOCKINFO(rfa->ri_status, RI_UNLOCKED);
rfa->ri_lcksince = NULL;
free(rfa->ri_lckname);
rfa->ri_lckname = "NONE";
if ((rc = putRfaInfoList(dirname(fn), rfalist)) != OK) {
releaseRfaInfoList(dirname(fn), rfalist);
fprintf(err, "*** local file access error : %s ***\n", errMsg(rc));
return NOTOK_FILEACCESS;
}
releaseRfaInfoList(dirname(fn), rfalist);
return OK;
}
/*--------------------------------------------------------------*/
/* lockFile */
/*--------------------------------------------------------------*/
do_llock(fn)
char *fn;
{
int res, rc;
struct RfaInfo *rfalist, *rfa;
/*--- get file Info ---*/
if ((rc = getLocalRfaInfo(&fn, &rfa, &rfalist, 1)) != OK)
return rc;
/*--- check if we are master ---*/
if (IS_MASTER(rfa->ri_status) || IS_UNREGISTERED(rfa->ri_status)) {
if (IS_LOCKED(rfa->ri_status)) {
releaseRfaInfoList(dirname(fn), rfalist);
fprintf(err," *** file already locked by %s since %s ***\n",
rfa->ri_lckname, shortTime(&(rfa->ri_lcksince)));
return NOTOK_LOCKED;
}
SET_LOCKINFO(rfa->ri_status, RI_LOCKED);
rfa->ri_lckname = strdup(getenv("USER"));
(void)time(&(rfa->ri_lcksince));
if ((rc = putRfaInfoList(dirname(fn), rfalist)) != OK) {
releaseRfaInfoList(dirname(fn), rfalist);
fprintf(err,
"*** local file access error : can't write rfainfo (%s) ***\n",
errMsg(rc));
return NOTOK_FILEACCESS;
}
releaseRfaInfoList(dirname(fn), rfalist);
fprintf(out, "locked file %s\n",fn);
return OK;
}
/*-- here we will need help from Big-Brother "rfa" --*/
return NOTOK_LOCAL_LOCK;
}
main (ac, av)
int ac;
char **av;
{
char c, *cwd, buf[BUFSIZ];
char *cmd=NULL;
int rc;
myname = av[0];
out = stdout;
err = stderr;
initLog(myname);
if (ac < 2) {
fprintf(stderr, "USAGE: %s filename [-q]\n", basename(myname));
exit (1);
}
if (ac > 2 && strcmp(av[2], "-q") == 0)
interactive = 0;
/*--- rfa tailoring ---*/
sprintf(buf, "%s/rfatailor", isodetcpath);
if (tailor(buf) != OK) {
fprintf(stderr, "*** tailoring %s - %s ***\n", buf, rfaErrStr);
exit(1);
}
sprintf(buf, "%s/rfatailor", RFA_TAILDIR);
if (tailor(buf) != OK) {
fprintf(stderr, "*** tailoring %s - %s ***\n", buf, rfaErrStr);
exit(1);
}
sprintf(buf,"%s/.rfarc", getenv("HOME"));
if (tailor(buf) != OK) {
fprintf(stderr, "*** tailoring %s - %s ***\n", buf, rfaErrStr);
exit(1);
}
/*--- init cwd ---*/
(void)getwd(buf);
if (strncmp(buf, fsBase, strlen(fsBase)) == 0)
strcpy(cwd_remote, buf + strlen(fsBase));
interactive = 0;
commandMode = 1;
if (strcmp(basename(myname), "llock") == 0)
rc = do_llock(av[1]);
else
rc = do_lunlock(av[1]);
if (interactive && (rc == 2))
fprintf(stderr,"*** can't LOCK locally, must use RFA command ***\n");
exit (rc);
}