131 lines
4.0 KiB
C
131 lines
4.0 KiB
C
/*
|
|
* Copyright (c) 1989, 1990, 1991 by the University of Washington
|
|
* Copyright (c) 1992, 1993 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 <stdio.h>
|
|
#include <string.h>
|
|
|
|
#include <ardp.h>
|
|
#include <pfs.h>
|
|
#include <pprot.h>
|
|
#include <perrno.h>
|
|
#include <pparse.h>
|
|
|
|
extern int pfs_debug;
|
|
|
|
/* Obtain object attributes from a remote host.. */
|
|
/* Use pget_linkat() to obtain link attributes. */
|
|
PATTRIB pget_at(vl,atname)
|
|
VLINK vl;
|
|
const char *atname;
|
|
{
|
|
RREQ req; /* Text of request to dir server */
|
|
PATTRIB retval = NULL; /* Start of list of attributes */
|
|
INPUT_ST in_st;
|
|
INPUT in = &in_st;
|
|
int tmp; /* return value from subfunctions. Value is
|
|
only used for a couple of lines after it's
|
|
set each time. */
|
|
|
|
int fwdcnt = MAX_FWD_DEPTH;
|
|
|
|
perrno = PSUCCESS; /* must set perrno, since that's how we report
|
|
success or failure. */
|
|
|
|
/* It's not an error to ask; However, we already know that there won't be
|
|
any object attributes, so we just report that fact and don't waste the
|
|
time for the request to time out. */
|
|
if (vl->target && !strequal(vl->target, "OBJECT")
|
|
&& !strequal(vl->target, "FILE")
|
|
&& !strequal(vl->target, "DIRECTORY")
|
|
&& !strequal(vl->target, "DIRECTORY+FILE"))
|
|
return NULL;
|
|
startover:
|
|
CHECK_MEM();
|
|
req = p__start_req(vl->host);
|
|
p__add_req(req, "GET-OBJECT-INFO %'s ASCII %'s 0\n",
|
|
atname, vl->hsoname);
|
|
if (vl->f_magic_no)
|
|
p__add_req(req, "SELECT OBJECT FIELD ID REMOTE %ld\n",
|
|
vl->f_magic_no);
|
|
|
|
tmp = ardp_send(req,vl->host,0,ARDP_WAIT_TILL_TO);
|
|
|
|
/* If the request fails or if we don't get a response, then return error */
|
|
if(tmp || req->rcvd == NULL) return(NULL);
|
|
|
|
rreqtoin(req, in);
|
|
|
|
while (!in_eof(in)) {
|
|
char *line;
|
|
char *next_word;
|
|
|
|
if (in_line(in, &line, &next_word)) {
|
|
ardp_rqfree(req);
|
|
return(NULL);
|
|
}
|
|
switch (*line) {
|
|
case 'A': /* ATTRIBUTE */
|
|
/* If anything but ATTRIBUTE scan error */
|
|
if(!strnequal(line,"ATTRIBUTE", 9))
|
|
goto scanerr;
|
|
|
|
if (in_ge1_atrs(in, line, next_word, &retval)) {
|
|
ardp_rqfree(req);
|
|
return NULL; /* perrno will be set. */
|
|
}
|
|
break;
|
|
|
|
case 'N': /* NONE-FOUND */
|
|
/* NONE-FOUND, we just have no attributes to insert. No error;
|
|
just don't do anything. */
|
|
if(strncmp(line,"NONE-FOUND",10) == 0)
|
|
break;
|
|
goto scanerr;
|
|
|
|
case 'F':/* FORWARDED, FAILURE */
|
|
if(strncmp(line,"FORWARDED",9) == 0) {
|
|
if(fwdcnt-- <= 0) {
|
|
ardp_rqfree(req);
|
|
perrno = PFS_MAX_FWD_DEPTH;
|
|
return(NULL);
|
|
}
|
|
/* parse and start over */
|
|
tmp = qsscanf(line,"FORWARDED %&'s %&'s %&'s %&'s %ld %ld",
|
|
&vl->hosttype, &vl->host, &vl->hsonametype,
|
|
&vl->hsoname,
|
|
&(vl->version), &(vl->f_magic_no));
|
|
|
|
if(tmp < 2) {
|
|
perrno = DIRSRV_BAD_FORMAT;
|
|
break;
|
|
}
|
|
|
|
ardp_rqfree(req);
|
|
goto startover;
|
|
}
|
|
/* If FAILURE or anything but FORWARDED, scan error */
|
|
goto scanerr;
|
|
|
|
scanerr:
|
|
default:
|
|
if(*line && (tmp = scan_error(line, req))) {
|
|
ardp_rqfree(req);
|
|
perrno = tmp;
|
|
return(NULL);
|
|
}
|
|
break;
|
|
} /* end of moby switch */
|
|
} /* while in_nextline(in) */
|
|
ardp_rqfree(req);
|
|
return(retval);
|
|
}
|
|
|
|
|