59 lines
1.8 KiB
C
59 lines
1.8 KiB
C
|
/*
|
||
|
|
* Copyright (c) 1991-1994 by the University of Southern California
|
||
|
|
*
|
||
|
|
* For copying and distribution information, please see the file
|
||
|
|
* <usc-license.h>.
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include <usc-license.h>
|
||
|
|
|
||
|
|
#include <pserver.h>
|
||
|
|
|
||
|
|
#ifdef SERVER_SUPPORT_V1
|
||
|
|
#include <pfs.h>
|
||
|
|
#include <perrno.h>
|
||
|
|
|
||
|
|
/* cur_link->target is already set to l_type. Return PSUCCESS if this is OK.
|
||
|
|
*/
|
||
|
|
int
|
||
|
|
convert_v1_ltype(char l_type[], VLINK cur_link)
|
||
|
|
{
|
||
|
|
char *param;
|
||
|
|
PATTRIB amat; /* Access-method attribute. */
|
||
|
|
|
||
|
|
if (strequal(l_type, "SYM-LINK")) {
|
||
|
|
cur_link->target = stcopyr("SYMBOLIC", cur_link->target);
|
||
|
|
return PSUCCESS;
|
||
|
|
}
|
||
|
|
if (!strnequal(l_type, "EXTERNAL(", 9))
|
||
|
|
return PSUCCESS;
|
||
|
|
if (strequal(l_type, "EXTERNAL(AFTP,BINARY)"))
|
||
|
|
param = "BINARY";
|
||
|
|
else if (strequal(l_type, "EXTERNAL(AFTP,TEXT)"))
|
||
|
|
param = "TEXT";
|
||
|
|
else
|
||
|
|
RETURNPFAILURE;
|
||
|
|
cur_link->target = stcopyr("EXTERNAL", cur_link->target);
|
||
|
|
/* Ok, now set it. */
|
||
|
|
amat = atalloc();
|
||
|
|
if (!amat) out_of_memory();
|
||
|
|
|
||
|
|
amat->precedence = ATR_PREC_LINK;
|
||
|
|
amat->value.sequence = (TOKEN) NULL;
|
||
|
|
amat->nature = ATR_NATURE_FIELD;
|
||
|
|
amat->avtype = ATR_SEQUENCE;
|
||
|
|
amat->aname = stcopyr("ACCESS-METHOD", amat->aname);
|
||
|
|
|
||
|
|
amat->value.sequence = tkappend("AFTP", amat->value.sequence);
|
||
|
|
/* next 4 are null strings; they are all the same, by convention. */
|
||
|
|
amat->value.sequence = tkappend("", amat->value.sequence);
|
||
|
|
amat->value.sequence = tkappend("", amat->value.sequence);
|
||
|
|
amat->value.sequence = tkappend("", amat->value.sequence);
|
||
|
|
amat->value.sequence = tkappend("", amat->value.sequence);
|
||
|
|
amat->value.sequence = tkappend(param, amat->value.sequence);
|
||
|
|
APPEND_ITEM(amat, cur_link->lattrib);
|
||
|
|
return PSUCCESS;
|
||
|
|
|
||
|
|
}
|
||
|
|
#endif /* SERVER_SUPPORT_V1 */
|