// $Id: trust.c,v 1.6 2008/04/22 22:43:56 lynx Exp $ // vim:syntax=lpc
//
// we're still not sure if this file deserves existence
// it's a common file between interserver actives and passives
// but also psyc/udp
//

// local debug messages - turn them on by using psyclpc -DDtrust=<level>
#ifdef Dtrust
# undef DEBUG
# define DEBUG Dtrust
#endif

#include <net.h>

volatile int trustworthy;

qScheme() { return 0; }

hostCheck(host, port, udpflag) {
        trustworthy = legal_host(host, port, qScheme(), 0);
	P3(("%O hostCheck %O, %O .. trust %O\n", ME,
	    host, port, trustworthy))
	return trustworthy;
}

volatile mapping authhosts;

void sAuthenticated(string hostname) { 
    P3(("sAuthenticated: %O\n", hostname))
    unless(authhosts && mappingp(authhosts)) authhosts = ([ ]);
    hostname = NAMEPREP(hostname);
    authhosts[hostname] = 1;
} 

int qAuthenticated(mixed hostname) {
    P3(("qAuthenticated %O, %O\n", hostname, authhosts))
    unless (authhosts && mappingp(authhosts)) return 0;
    hostname = NAMEPREP(hostname);
    return member(authhosts, hostname);
}

void sAuthHosts(mapping h) {
    authhosts = h;
}
  

// maybe canonical_host(cane, ip, host) belongs here too?