148 lines
4.6 KiB
C
148 lines
4.6 KiB
C
#include <stdio.h>
|
|
#include <sys/types.h>
|
|
|
|
#include <database.h>
|
|
#include <sys/mman.h>
|
|
#include <defines.h>
|
|
#include <structs.h>
|
|
#include <pfs.h>
|
|
#include <psite.h>
|
|
#include "prarch.h"
|
|
|
|
extern FILE *strings_table;
|
|
extern char *strings_begin;
|
|
|
|
extern char hostname[];
|
|
extern char hostwport[];
|
|
extern char archie_prefix[];
|
|
|
|
char *perms_itoa();
|
|
char *print_date();
|
|
char *atopdate();
|
|
char *strstr();
|
|
|
|
VLINK atoplink(site_out *sop, /* Site output pointer */
|
|
int flags) /* Flags: see above */
|
|
{
|
|
VLINK vl = vlalloc(); /* New link */
|
|
PATTRIB at; /* Attributes */
|
|
PATTRIB last_at; /* Last attribute */
|
|
char fullpath[MAX_STRING_LEN];
|
|
char namebuf[MAX_STRING_LEN];
|
|
char *endname = NULL;
|
|
char modestring[20];
|
|
char str_ent[256];
|
|
char atval[256];
|
|
char *nameptr; /* Last component of file name */
|
|
char *ptr;
|
|
site_rec *srp = &(sop->site_ent); /* Site record pointer */
|
|
long strings_pos;
|
|
|
|
/* For now, all directory pointers are to pseudo-directories */
|
|
flags |= A2PL_ARDIR;
|
|
|
|
if((flags & A2PL_ROOT) || (srp->dir_or_f == 'T')) {
|
|
/* It's a directory - we should check to see if the site is */
|
|
/* running prospero, and if so return a pointer to the actual */
|
|
/* directory. If it isn't then we return a real pointer to */
|
|
/* a pseudo-directory maintained by this archie server. */
|
|
vl->target = stcopyr("DIRECTORY",vl->target);
|
|
}
|
|
else {
|
|
/* It's a file - we should check to see if the site is */
|
|
/* running prospero, and if so return a pointer to the real */
|
|
/* file. If it isn't, then we generate an external link */
|
|
vl->target = stcopyr("EXTERNAL",vl->target);
|
|
ad2l_am_atr(vl,"AFTP","BINARY",NULL);
|
|
flags &= (~A2PL_ARDIR);
|
|
}
|
|
|
|
if(flags & A2PL_ARDIR) vl->host = stcopyr(hostwport,vl->host);
|
|
else vl->host = stcopyr(sop->site_name,vl->host);
|
|
|
|
/* Get the the last component of name */
|
|
|
|
if(flags & A2PL_ROOT) vl->name = stcopyr(sop->site_name,vl->name);
|
|
else {
|
|
strncpy(namebuf,strings_begin + srp->in_or_addr.strings_ind +
|
|
sizeof(strings_header),sizeof(namebuf));
|
|
namebuf[sizeof(namebuf)-1] = '\0';
|
|
if(endname = strstr(namebuf," -> ")) *endname = '\0';
|
|
nameptr = namebuf;
|
|
vl->name = stcopyr(nameptr,vl->name);
|
|
}
|
|
|
|
if(flags & A2PL_ARDIR) {
|
|
if(flags & A2PL_ROOT)
|
|
sprintf(fullpath,"%s/HOST/%s",archie_prefix, sop->site_name);
|
|
else
|
|
sprintf(fullpath,"%s/HOST/%s%s%s%s",archie_prefix,
|
|
sop->site_name, sop->site_path,
|
|
((*(sop->site_path + strlen(sop->site_path) - 1) == '/') ?
|
|
"" : "/"), (nameptr ? nameptr : ""));
|
|
}
|
|
else {
|
|
if(flags & A2PL_ROOT)
|
|
sprintf(fullpath,"/");
|
|
else
|
|
sprintf(fullpath,"%s%s%s",sop->site_path,
|
|
((*(sop->site_path + strlen(sop->site_path) - 1) == '/') ?
|
|
"" : "/"), (nameptr ? nameptr : ""));
|
|
}
|
|
|
|
vl->hsoname = stcopyr(fullpath,vl->hsoname);
|
|
|
|
if(!(flags & A2PL_ROOT)) {
|
|
/* Here we can add cached attribute values from the archie */
|
|
/* database such as size, protection, and last modified time */
|
|
sprintf(atval,"%d bytes",srp->size);
|
|
ad2l_seq_atr(vl,ATR_PREC_CACHED,ATR_NATURE_INTRINSIC,
|
|
"SIZE",atval,NULL);
|
|
|
|
/* Directory modes in unix string format */
|
|
if(ptr = perms_itoa(srp->perms)) {
|
|
if(endname) sprintf(modestring,"%c%s",'l',ptr);
|
|
else sprintf(modestring,"%c%s",((srp->dir_or_f=='T')?'d':'-'),ptr);
|
|
ad2l_seq_atr(vl,ATR_PREC_CACHED,ATR_NATURE_INTRINSIC,
|
|
"UNIX-MODES", modestring, NULL);
|
|
}
|
|
|
|
/* Modified date - in prospero format */
|
|
if(ptr = atopdate(srp->mod_time)) {
|
|
ad2l_seq_atr(vl,ATR_PREC_CACHED,ATR_NATURE_INTRINSIC,
|
|
"LAST-MODIFIED", ptr, NULL);
|
|
}
|
|
}
|
|
|
|
if((flags & A2PL_ROOT) || (flags & A2PL_H_LAST_MOD)) {
|
|
/* Modified date - in prospero format */
|
|
if(ptr = atopdate(sop->site_mod_time))
|
|
ad2l_seq_atr(vl,ATR_PREC_CACHED,ATR_NATURE_APPLICATION,
|
|
"AR_H_LAST_MOD", ptr, NULL);
|
|
}
|
|
|
|
if((flags & A2PL_ROOT || (flags & A2PL_H_IP_ADDR))) {
|
|
/* Host IP Address */
|
|
if(sop->site_ipaddr.s_addr)
|
|
ad2l_seq_atr(vl,ATR_PREC_CACHED,ATR_NATURE_APPLICATION,
|
|
"AR_H_IP_ADDR", inet_ntoa(sop->site_ipaddr),
|
|
NULL);
|
|
}
|
|
return(vl);
|
|
}
|
|
|
|
VLINK atoqlink(char *str,int maxhit,int maxmatch,int maxhitpm)
|
|
{
|
|
VLINK vl = vlalloc();
|
|
char fullpath[MAX_STRING_LEN];
|
|
|
|
sprintf(fullpath,"%s/MATCH(%d,%d,%d,0,=)/%s", archie_prefix,
|
|
maxhit, maxmatch, maxhitpm, str);
|
|
|
|
vl->name = stcopyr(str,vl->host);
|
|
vl->target = stcopyr("DIRECTORY",vl->target);
|
|
vl->hsoname = stcopyr(fullpath,vl->hsoname);
|
|
vl->host = stcopyr(hostwport,vl->host);
|
|
return(vl);
|
|
}
|