mirror of git://git.psyced.org/git/psyced
50 lines
1.2 KiB
C
50 lines
1.2 KiB
C
// $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?
|
|
|