psyced/world/net/spyc/circuit.c

278 lines
7.7 KiB
C
Raw Normal View History

// vim:foldmethod=marker:syntax=lpc:noexpandtab
2009-01-26 20:12:53 +00:00
// $Id: circuit.c,v 1.38 2008/10/14 19:02:29 lynx Exp $
#include "psyc.h"
#include <net.h>
#include <uniform.h>
#include <tls.h>
#include <text.h>
inherit NET_PATH "trust";
inherit NET_PATH "spyc/parse";
virtual inherit NET_PATH "output";
volatile string peerhost;
volatile string peeraddr;
volatile string peerip;
volatile int peerport;
volatile string netloc;
#ifndef NEW_RENDER
# define NEW_RENDER
#endif
#include "render.i"
// this is completely anti-psyc. it should take mcs as arguments
// and look up the actual message from textdb.. FIXME
2009-12-28 03:19:44 +00:00
#define CIRCUITERROR(reason) { \
croak("_error_circuit", "circuit error: " \
reason); \
return 0; \
}
mapping instate = ([ ]);
mapping outstate;
2011-08-02 14:51:47 +00:00
volatile mapping legal_senders;
2011-08-02 14:51:47 +00:00
volatile array(mixed) verify_queue = ({ });
#ifdef __TLS__
volatile mapping certinfo;
2011-08-02 14:51:47 +00:00
#endif
volatile int flags = 0;
void circuit_msg(string mc, mapping vars, string data); // prototype
varargs int msg(string source, string mc, string data,
mapping vars, int showingLog, mixed target); // prototype
protected void quit(); // prototype
void runQ();
int isServer() { return 0; }
2011-05-23 20:08:00 +00:00
void connection_peek(string data) {
#if __EFUN_DEFINED__(enable_binary)
enable_binary(ME);
#else
raise_error("Driver compiled without enable_binary()");
#endif
}
void feed(string data) {
input_to(#'feed, INPUT_IGNORE_BANG);
::feed(data);
}
// yes, this is a funny implementation of croak
// it does not use msg(). Yes, that is intended
varargs mixed croak(string mc, string data, vamapping vars, vamixed source) {
2009-12-28 03:19:44 +00:00
PT(("croak(%O) in %O (%O)\n", mc, ME, query_ip_name()))
unless (data) data = T(mc, "");
binary_message(sprintf("\n%s\n%s\n|\n", mc, data));
2009-12-28 03:19:44 +00:00
// right behaviour for all croaks!?
remove_interactive(ME);
// destruct(ME);
return 0;
}
2009-03-03 15:28:17 +00:00
// request sender authentication and/or target acknowledgement
// from the remote side
2011-07-31 08:33:35 +00:00
void sender_verification(string sourcehost, mixed targethost)
2009-03-03 15:28:17 +00:00
{
2011-07-31 08:33:35 +00:00
unless(interactive()) {
verify_queue += ({ ({ sourcehost, targethost }) });
return;
}
mapping vars = ([ "_uniform_source" : sourcehost,
"_uniform_target" : targethost,
2009-03-03 15:28:17 +00:00
"_tag" : RANDHEXSTRING ]);
2011-07-31 08:33:35 +00:00
P0(("sender_verification(%O, %O)\n", sourcehost, targethost))
// since we send packets to them we should trust them to
// send packets to us, eh?
if (stringp(targethost)) {
targethost = parse_uniform(targethost);
2009-03-03 15:28:17 +00:00
}
2011-07-31 08:33:35 +00:00
sAuthenticated(targethost[UHost]);
msg(0, "_request_authorization", 0, vars);
2009-03-03 15:28:17 +00:00
}
// gets called during socket logon
2009-01-26 20:12:53 +00:00
int logon(int failure) {
mixed pappnose;
sAuthHosts(([ ])); // reset authhosts
legal_senders = ([ ]);
instate = ([ "_INTERNAL_origin" : ME ]);
outstate = ([ ]);
2013-11-16 00:26:32 +00:00
#ifdef __TLS__
2011-08-02 14:51:47 +00:00
P0(("circuit logon %O %O\n", tls_available(), tls_query_connection_state(ME)))
// FIXME: needs to handle the not-detected case
if (tls_available()) {
if (tls_query_connection_state(ME) == 0 && !isServer()) {
P0(("%O turning on TLS\n", ME))
tls_init_connection(ME, #'logon);
return 1;
} else if (tls_query_connection_state(ME) == 1) {
certinfo = tls_certificate(ME, 0);
P0(("certinfo: %O\n", certinfo))
2013-11-16 00:26:32 +00:00
if (t = tls_bad_cipher(ME, "psyc")) {
2011-08-02 15:43:05 +00:00
croak("_error_circuit_encryption_cipher",
2015-01-28 15:08:08 +00:00
"Your [_circuit_encryption_cipher] cipher does not provide forward secrecy.",
2013-11-16 00:26:32 +00:00
([ "_circuit_encryption_cipher": t ]));
2011-08-02 15:43:05 +00:00
//destruct(ME);
2013-11-16 00:26:32 +00:00
}
}
}
#endif
peerip = query_ip_number(ME) || "127.0.0.1";
input_to(#'feed, INPUT_IGNORE_BANG);
call_out(#'quit, 90);
flags = TCP_PENDING_TIMEOUT;
parser_init();
// FIXME
unless(isServer()) {
emit("|\n"); // initial greeting
2011-07-31 08:33:35 +00:00
if (sizeof(verify_queue)) {
foreach(pappnose : verify_queue) {
sender_verification(pappnose[0], pappnose[1]);
2011-07-31 08:33:35 +00:00
}
verify_queue = ({ });
2009-03-03 15:28:17 +00:00
}
}
return 1;
}
int disconnected(string remaining) {
// i love to copy+paste source codes! thx for NOT sharing.. grrr
#if DEBUG > 0
if (remaining && (!stringp(remaining) || strlen(remaining)))
PP(("%O ignoring remaining data from socket: %O\n", ME,
remaining));
#endif
// wow.. a sincerely expected disconnect!
if (flags & TCP_PENDING_DISCONNECT) return 1;
#ifdef _flag_enable_report_failure_network_circuit_disconnect
monitor_report("_failure_network_circuit_disconnect",
object_name(ME) +" · lost PSYC circuit");
#else
P1(("%O disconnected unexpectedly\n", ME))
#endif
return 0; // unexpected
}
// respond to the first empty packet
first_response() {
emit("|\n");
}
2009-01-26 20:12:53 +00:00
#define PSYC_TCP
#include "dispatch.i"
// receives a msg from the remote side
// note: this is circuit-messaging
void circuit_msg(string mc, mapping vars, string data) {
2011-07-31 08:33:35 +00:00
mapping rv = ([ ]);
2011-08-02 14:51:47 +00:00
mixed *su;
mixed *tu;
switch(mc) {
2011-07-31 08:33:35 +00:00
case "_request_authorization":
if (vars["_tag"]) {
rv["_tag_relay"] = vars["_tag"];
}
2011-07-31 08:33:35 +00:00
if (!vars["_uniform_source"] && vars["_uniform_target"]) {
CIRCUITERROR("_request_authorization without uniform source and/or target?!");
}
2011-07-31 08:33:35 +00:00
rv["_uniform_target"] = vars["_uniform_target"];
rv["_uniform_source"] = vars["_uniform_source"];
2011-08-02 14:51:47 +00:00
tu = parse_uniform(vars["_uniform_target"]);
if (!(tu && is_localhost(tu[UHost]))) {
2011-07-31 08:33:35 +00:00
msg(0, "_error_invalid_uniform_target", "[_uniform_target] is not hosted here.", rv);
return;
}
2011-08-02 14:51:47 +00:00
su = parse_uniform(vars["_uniform_source"]);
2011-07-31 08:46:36 +00:00
// qAuthenticated does that:u[UHost] = NAMEPREP(u[UHost]);
2011-08-02 14:51:47 +00:00
if (qAuthenticated(su[UHost])) {
2011-07-31 08:33:35 +00:00
// possibly different _uniform_target only
if (flags & TCP_PENDING_TIMEOUT) {
P0(("removing call out\n"))
remove_call_out(#'quit);
flags -= TCP_PENDING_TIMEOUT;
}
msg(0, "_status_authorization", 0, rv);
2011-08-02 14:51:47 +00:00
#ifdef __TLS__
} else if (tls_query_connection_state(ME) == 1
&& mappingp(certinfo)
&& certinfo[0] == 0
&& tls_check_service_identity(su[UHost], certinfo, "psyc") == 1) {
2011-08-02 14:51:47 +00:00
sAuthenticated(su[UHost]);
if (flags & TCP_PENDING_TIMEOUT) {
P0(("removing call out\n"))
remove_call_out(#'quit);
flags -= TCP_PENDING_TIMEOUT;
}
msg(0, "_status_authorization", 0, rv);
#endif
} else {
2011-08-02 14:51:47 +00:00
// FIXME: lynX wants to do that only for trusted hosts
string ho = su[UHost];
2011-07-31 08:33:35 +00:00
// FIXME: this actually needs to consider srv, too...
dns_resolve(ho, (:
// FIXME: psyc/parse::deliver is much better here
P0(("resolved %O to %O, expecting %O\n", ho, $1, peerip))
if ($1 == peerip) {
sAuthenticated(ho);
if (flags & TCP_PENDING_TIMEOUT) {
P0(("removing call out\n"))
remove_call_out(#'quit);
flags -= TCP_PENDING_TIMEOUT;
}
msg(0, "_status_authorization", 0, rv);
} else {
msg(0, "_error_invalid_uniform_source", 0, rv);
}
return;
:));
}
break;
2011-07-31 08:33:35 +00:00
case "_status_authorization":
P0(("_status authorization with %O\n", vars))
// this means we can send from _uniform_source to _uniform_target
// we already did sAuthenticated _uniform_target before so we can't get
// tricked into it here
if (function_exists("runQ")) {
2011-07-31 08:33:35 +00:00
runQ();
// actually runQ(_uniform_source, _uniform_target)
}
break;
default:
P0(("%O got circuit_msg %O, not implemented\n", ME, mc))
break;
}
}
// delivers a message to the remote side
varargs int msg(string source, string mc, string data,
mapping vars, int showingLog, mixed target) {
string buf = "";
2011-07-31 08:33:35 +00:00
mixed u;
unless(vars) vars = ([ ]);
2011-05-21 16:48:24 +00:00
buf = render_psyc(source, mc, data, vars, showingLog, target);
2009-01-26 20:12:53 +00:00
#ifdef _flag_log_sockets_SPYC
log_file("RAW_SPYC", "« %O\n%s\n", ME, buf);
#endif
return emit(buf);
}