Intial commit

prospero/lib/psrv/archie2/atoplink.c

@@ -0,0 +1,147 @@
+#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);
+}