let the past begone in cvs land. welcome to igit igit!

world/net/server.c

@@ -0,0 +1,282 @@
+// $Id: server.c,v 1.52 2008/03/11 13:42:25 lynx Exp $ // vim:syntax=lpc
+//
+// THE GENERIC SERVER
+// this code is not applicable to a protocol scheme directly
+// although it's connection-oriented, base for telnet/applet/irc-schemes
+
+#include <net.h>
+#include <person.h>
+#include <text.h>
+#include <lang.h>
+
+#define NO_INHERIT
+#include <server.h>
+#undef NO_INHERIT
+
+volatile string nick;
+volatile object user;
+volatile int guesses;
+
+// just a clean-up to avoid ugly warnings when net/server and
+// net/jabber/* use differing flags in input_to calls.
+volatile int input_to_settings = INPUT_IGNORE_BANG;
+
+qScheme() { return 0; }
+qLayout() { return 0; }
+qLang() { return DEFLANG; }
+
+sName(ni) { nick = ni; }
+
+// prototypes
+morph();
+promptForPassword();
+authChecked();
+
+
+void create() {
+	if (!clonep()) return;
+	sTextPath(qLayout(), qLang(), qScheme());
+}
+
+// supercede this in inheriting server class
+createUser(nick) {
+	PT(("net/server:createUser() called in %O\n", ME))
+	// this is pretty unlikely to work
+	return named_clone(NET_PATH "user", nick);
+}
+
+// returns 1 if password prompt is necessary  - who needs that?
+// see also morph.i
+hello(ni, elm, try, method, salt) {
+#ifdef LOGIN_BY_EMAIL
+	if (nick = legal_mailto(ni)) {
+		elm = 0;
+		ni = "mailto:"+ nick;
+		P0(("Login by mailto for %O\n", ni))
+	} else
+#endif
+	unless(nick = legal_name(ni)) {
+		w("_error_illegal_name_person", 0, ([ "_nick": ni ]) );
+		QUIT
+	}
+
+	// this assumes person is not switching schemes (protocols)!
+	// if it does, we'll attach a port to the wrong protocol!
+	// apparently it never happens.
+	unless (user = find_person(nick)) {
+		// catch returns "1" here, weird!!
+		//if (catch (user = createUser(nick)) && !user ) {
+		unless (user = createUser(nick)) {
+		  //	pr("_failure_object_creation",
+		  //	    "Cannot create user object.\n");
+			QUIT
+		}
+	}
+	return user -> checkPassword(try, method, salt, 0, #'authChecked, 
+				     ni, try, elm);
+}
+
+#ifdef REGISTERED_USERS_ONLY
+ohYeah(whatever) {
+	input_to(#'ohYeah, input_to_settings);
+	// input ignore warning? inverting mc's is really a good idea!
+	w("_warning_ignored_input", "Oh yeah?");
+}
+#endif
+
+authChecked(int result, ni, try, elm) {
+	P3(("authChecked(%O,%O,%O,%O) in %O",
+	    result, ni, try, elm, ME))
+	unless (result) {
+		int invalid;
+
+		// überzeugt mich nicht so richtig..
+		// der ip check da unten sollte vorher passieren  TODO
+		if (try && elm) {
+		    string *rc;
+
+		    unless (user -> isNewbie()) {
+			    w("_error_unavailable_name",
+	"Sorry, this name is registered to somebody else.\n");
+			    invalid = 1;
+		    }
+		    else if (rc = legal_password(try, nick)) {
+			    pr(rc[0], rc[1]);
+			    invalid = 1;
+		    }
+		    else unless (elm = legal_mailto(elm)) {
+			    w("_error_invalid_mailto",
+	"Sorry, that doesn't look like a valid email address to me.\n");
+			    invalid = 1;
+		    }
+//		    if (user -> vQuery("email") != elm) {
+//			    w("_error_invalid_mailto",
+//	"Sorry, that doesn't look like a valid email address to me.\n");
+//			    return;
+//		    }
+		}
+#ifdef REGISTERED_USERS_ONLY
+		else {
+			if (user -> isNewbie()) {
+#ifdef PSYC_SYNCHRONIZE
+				synchro_report(	// _warning? doesn't get forwarded by @sync :(
+				    "_notice_error_necessary_registration_sign_on",
+				 "Login attempt by unregistered user [_nick].",
+				      ([ "_nick": nick ]) );
+#endif
+				w("_error_necessary_registration",
+		"Sorry, you cannot use this without prior registration.");
+				// this funny hack intentionally breaks
+				// the login procedure. the connection
+				// stays up in the air until the time-out.
+				input_to(#'ohYeah, input_to_settings);
+				// would be better to count the login
+				// attempts per host however.
+			} else {
+				unless (try) return promptForPassword(user);
+				w("_error_invalid_password",
+				    "Invalid password for [_nick].",
+					    ([ "_nick": nick ]) );
+			}
+			invalid = 1;
+		}
+		if (invalid) {
+			input_to(#'hello, input_to_settings);
+			return;
+		}
+		user -> set("email", elm);		// TODO!?!?
+		user -> set("password", try);
+		if (ni != nick) user->vSet("longname", ni);
+		return morph();
+#else
+		return promptForPassword(user);
+#endif
+	}
+#ifndef REGISTERED_USERS_ONLY
+	// added user->isNewbie() check for ircers
+	if (user->online() && user->isNewbie()
+#ifdef _flag_log_hosts
+            && user->vQuery("ip") != query_ip_number()
+#endif
+            ) {
+		pr("_error_status_person_connected",
+		    "Sorry. %O is already connected.\n", nick);
+		QUIT
+	}
+#endif
+	if (ni != nick) user->vSet("longname", ni);
+	return morph();
+}
+
+password(try, method, salt) {
+	mixed authCb;
+	unless (user) {
+		pr("_failure_object_destructed",
+			"Huh? Your user object has disappeared!\n");
+		QUIT
+	}
+	// nick, guesses needed?
+	authCb = CLOSURE((int result), (nick, guesses), 
+			 (string nick, int guesses), 
+	    {
+		unless(result) {
+		    w("_error_invalid_password", 
+		      "Invalid password for [_nick].",
+		      ([ "_nick": nick ]) );
+		    if (++guesses > 3) { QUIT }
+		    return promptForPassword(user);
+		}
+		return morph();
+	    });
+	user -> checkPassword(try, method, salt, 0, authCb);
+}
+
+// supercede this in inheriting server class
+promptForPassword() {
+	// the no-echo option is a negotation within telnet protocol
+	// therefore unsuited for most other cases
+	input_to(#'password, input_to_settings);
+	return 1;
+}
+
+morph() {
+	P2(("morph %O to %O\n", ME, user))
+	if (! keepUserObject(user)) {
+		user -> quit(2);
+		if (user) destruct(user);
+
+		unless (user = createUser(nick)) {
+			pr("_failure_object_creation",
+			    "Cannot create new user object.\n");
+			QUIT
+		}
+	}
+	if (interactive(user)) remove_interactive(user);
+	if (exec(user, ME)) userLogon();
+	else {
+		pr("_failure_object_switch",
+			"Eh! Could not switch to object %O.\n", user);
+		QUIT
+	}
+	destruct(ME);
+	return 1;
+}
+
+userLogon() {
+	P3(("userLogon %O to %O\n", ME, user))
+	return user -> logon();
+}
+
+// supercede this in inheriting server class
+keepUserObject(user) {
+	if (qScheme()) return user->vQuery("scheme") == qScheme();
+}
+
+quit() { QUIT }		// self-destruct on timeout or external request
+
+// self-destruct when the TCP link gets lost
+disconnected(remaining) {
+	P2(( "%O got disconnected\n", ME ))
+    	QUIT	// returns 'unexpected'
+}
+
+logon() {
+	if (nick) {
+		// authlocal support!
+#if 0
+		// replace former interactive of nick
+		user = find_person(nick) || createUser(nick);
+		morph();
+		return 0;
+#else
+		// only auto-login the first instance of nick
+		user = find_person(nick);
+		unless (user) {
+			user = createUser(nick);
+			morph();
+			return 0;
+		}
+		else unless(interactive(user)) {
+			morph();
+			return 0;
+		}
+		// otherwise prompt regularely
+		nick = user = 0;
+#endif
+	}
+#ifdef LIMIT_USERS
+	// TODO: admins MUST be able to login!
+	// hmm.. what does 'nick &&' do here?
+	if (AMOUNT_SOCKETS >= LIMIT_USERS) {
+		w("_failure_exceeded_limit_users", "Extremely sorry, but "
+		   "the maximum possible amount of people has been reached.");
+		QUIT
+	}
+#endif
+	// bei jabber.. input_to(): Change in CHARMODE mode requested for object 'net/jabber/server#2107' with telnet disabled.
+	input_to(#'hello, input_to_settings);
+	call_out(#'quit, TIME_LOGIN_IDLE);
+	guesses = 0;
+	return 1;
+}
+