psyced/world/net/include/net.h

// $Id: net.h,v 1.148 2008/07/26 10:54:30 lynx Exp $ // vim:syntax=lpc:ts=8
#ifndef _INCLUDE_NET_H
#define _INCLUDE_NET_H

//efine	SERVER_VERSION_MINOR	"RC0i"
#define	SERVER_VERSION		"psyced/0.99"
#define	SERVER_DESCRIPTION	"PSYC-enhanced multicasting chat and messaging daemon"

#define TCP_PENDING_DISCONNECT	1
#define TCP_PENDING_TIMEOUT	2

#define RANDHEXSTRING sprintf("%x", random(__INT_MAX__))

// maybe we should expect psyc usage peak around 2030
//efine	PSYC_EPOCH	1234567890	// 2009-02-14 00:31:30 CET
#define	PSYC_EPOCH	1440444041	// 2015-08-24 21:20:41 CET (Monday)
			  // 2000000000 is 2033-05-18 05:33:20 CET (Wednesday)
			  // 2002002002 is 2033-06-10 09:40:02 CET (Friday)

// TODO: new driver will be able to combine \n, too
// 	new expat parser will also be able to combine >
#define XML_CHARSET	"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 </=\"'?.:@-_!#"
// hmm.. common.c uses pcre with RE_UTF8 to ensure legal charset....

#ifndef _INCLUDE_AUTO_H
# include "auto.h"
#endif

#ifndef __PIKE__
# ifdef CONFIG_PATH
#  include CONFIG_PATH "config.h"
# else
#  include "/local/config.h"
# endif
#endif

// switching to UTF-8 should work now (if you keep .fmt files disabled!)
#ifndef SYSTEM_CHARSET
# define SYSTEM_CHARSET	"UTF-8"
//define SYSTEM_CHARSET	"ISO-8859-15"
#endif

#if defined(SYSTEM_CHARSET) && SYSTEM_CHARSET != "UTF-8"
# define TO_UTF8(s) convert_charset((s), SYSTEM_CHARSET, "UTF-8")
# define FROM_UTF8(s) convert_charset((s), "UTF-8", SYSTEM_CHARSET)
#else
# define TO_UTF8(s) (s)
# define FROM_UTF8(s) (s)
#endif

// this stuff is so popular.. can i really put it anywhere else?
#ifndef DEFAULT_CONTENT_TYPE
# define DEFAULT_CONTENT_TYPE	"text/html; charset=" SYSTEM_CHARSET
#endif

// 2018-05 tmp disabled stringprep:
#if __EFUN_DEFINED__(idna_stringprep) && defined(DRIVER_PATH) && !defined(_flag_disable_idna_stringprep)
// stringprep needs utf8 arguments
// this results in lots of conversions some of which look like
// system->utf­>system->utf. luckily UTF8 is our system charset.
// so FROM_UTF8 and TO_UTF8 are normally nullmacros (see above)
# include DRIVER_PATH "sys/idn.h"
// beware, these macros dont have error handling...
# define NODEPREP(s) FROM_UTF8(idna_stringprep(TO_UTF8(s), STRINGPREP_XMPP_NODEPREP))
# define NAMEPREP(s) FROM_UTF8(idna_stringprep(TO_UTF8(s), STRINGPREP_NAMEPREP))
# define RESOURCEPREP(s) FROM_UTF8(idna_stringprep(TO_UTF8(s), STRINGPREP_XMPP_RESOURCEPREP))
#else
# define NODEPREP(s) lower_case(s)
# define NAMEPREP(s) lower_case(s)
# define RESOURCEPREP(s) (s)
#endif

#include "debug.h"

#ifdef PRO_PATH
# include "/pro/include/pro.h"
# ifndef HYBRID
#  define OPT_PATH PRO_PATH
# else
#  define OPT_PATH NET_PATH
# endif
#else
# define OPT_PATH NET_PATH
#endif

#ifdef CHATDOMAIN
# undef __DOMAIN_NAME__
# define __DOMAIN_NAME__ CHATDOMAIN
#endif

#ifndef SERVER_HOST
# ifndef CHATHOST
#  define CHATHOST __HOST_NAME__
# endif
# if __DOMAIN_NAME__ != "unknown"
#  define SERVER_HOST CHATHOST "." __DOMAIN_NAME__
# else
#  if __HOST_IP_NUMBER__ == "127.0.0.1"
#   define SERVER_HOST "localhost"
#  else
#   define SERVER_HOST CHATHOST
#  endif
# endif
#endif

// virtual IP network of GNUnet exit service
#define	IS_GNUNET(ip) abbrev("169.254.86.", ip)

#define HAS_PORT(PORT, PATH)    (defined(PATH) && defined(PORT) && PORT - 0)
// also need HAS_TLS_PORT() ?

#ifndef HTTP_URL
# if HAS_PORT(HTTP_PORT, HTTP_PATH)
#  define HTTP_URL "http://"+ (HTTP_PORT == 80 ? SERVER_HOST \
			     : (SERVER_HOST +":"+ to_string(HTTP_PORT)))
# else
#  define HTTP_URL "http://" SERVER_HOST
# endif
#endif

#ifndef HTTPS_URL
# if HAS_PORT(HTTPS_PORT, HTTP_PATH)
#  define HTTPS_URL "https://"+ (HTTPS_PORT == 443 ? SERVER_HOST \
			     : (SERVER_HOST +":"+ to_string(HTTPS_PORT)))
# else
#  define HTTPS_URL 0	// so that you can do
			//   ((tls_available() && HTTPS_URL) || HTTP_URL)
                        // ... what about ifdef __TLS__ ?
# endif
#endif

#define HTTPS_OR_HTTP_URL (HTTPS_URL ? HTTPS_URL : HTTP_URL)
#define HTTP_OR_HTTPS_URL (HTTP_URL ? HTTP_URL : HTTPS_URL)

#ifdef _uniform_node
# define SERVER_UNIFORM _uniform_node
#else
# define SERVER_UNIFORM query_server_uniform()
#endif

#ifdef MUD
# define	_flag_disable_authorization
#endif

#ifdef REGISTERED_USERS_ONLY
# echo Please fix your #define REGISTERED_USERS_ONLY
# define _flag_disable_unauthenticated_users
#endif
#ifdef _flag_disable_unauthenticated_users
# define _flag_disable_unauthenticated_users_XMPP
#endif
#ifdef _flag_disable_registration
# define _flag_disable_registration_XMPP
#endif

#ifdef RELAY
# define	_flag_disable_authorization
# define	IRCGATE_NICK		"PSYC.EU"
# undef		DEFAULT_USER_OBJECT
# define	DEFAULT_USER_OBJECT	IRC_PATH "ghost"
#endif

#ifndef DEFAULT_USER_OBJECT
# define DEFAULT_USER_OBJECT	PSYC_PATH "user"
#endif

#ifndef MAX_VISIBLE_USERS
# define MAX_VISIBLE_USERS 44
#endif

#ifndef PRO_PATH
// very specific to the way we do web applications
# define htok			this_interactive()->http_ok
# define htok3(prot,type,extra)	this_interactive()->http_ok(prot,type,extra)
# define hterror		this_interactive()->http_error
# define htmlhead		this_interactive()->http_head
# define htmlpage		this_interactive()->http_page
# define htmltail		this_interactive()->http_tail
#endif

#define HTERROR		 1  // return mc if necessary?
#define HTDONE		 0
#define HTMORE		-1

// even more specific to the way we parse commands
// combine the rest of the arguments back into one string
#define ARGS(x) implode(args[x..], " ")

// pick the psyc: uniform for objects, otherwise keep what we have
#define UNIFORM(x)  (objectp(x)? psyc_name(x): x)
// convert a plain nickname to a local uniform when necessary
#define PERSON2UNIFORM(x)  (is_formal(x) ? x : (SERVER_UNIFORM +"~"+ x))
// here's a variant that summons an appropriate object.. unused however
//#define MAKEPERSON2UNIFORM(x) \
//     	(is_formal(t) ? t : psyc_name(summon_person(t, load_name())))

// we currently make no distinction
// now we do.
//#define register_service(name)	register_scheme(name)

#ifndef MYNICK // under certain circumstances may be useful differently
# define MYNICK		_myNick		 // was qName()
# define MYLOWERNICK	_myLowerCaseNick // was lower_case(qName())
#endif

#define DIGESTAUTH_TIMEOUT	60

// sorry, but servers expect async auth and persons don*t provide without this
// define. so we need this defined until someone ifdefs the servers.
// i'll fix that friends thing (was the bug a friends thing?) tomorrow.
#ifndef ASYNC_AUTH
# define ASYNC_AUTH
#endif

#ifndef NO_CUTTING_EDGE
// should only affect how psyc clients are treated, but in fact the
// entire net/jabber subsystem depends on this
# define UNL_ROUTING
# define USE_THE_RESOURCE
# define MEMBERS_BY_SOURCE
# define TAGGING
# define TAGS_ONLY
//# define CACHE_PRESENCE
// gut gut.. dann testen wir diesen kram halt auch
# define QUIET_REMOTE_MEMBERS
// wir können viel herumphilosophieren was richtig wäre, aber tatsächlich
// effizienter verteilen werden wir auf kurze sicht eh nicht, so lets use this:
# define SMART_UNICAST_FRIENDS
# define SIGS
# define SWITCH2PSYC
# define WANT_S2S_TLS
# define WANT_S2S_SASL
# define ENTER_MEMBERS
// disabled 2018-05 due to stringprep messing up the _routes
// data structures *and* plenty of karteileichen which means
// that clean-up of _routes is not working!!
//# define PERSISTENT_MASTERS
# define NEW_RENDER
# define MUCSUC
//# define XMPP_BIDI
#endif
#define GAMMA   // code that has left BETA and is in production use

#ifndef _flag_disable_log_hosts
# define _flag_log_hosts
#endif

#ifdef DEVELOPMENT
# define PARANOID
#endif

#ifdef EXPERIMENTAL
# define USE_AUTOALIAS
	// fippo's brilliant single-user channel emulation for jabber MUCs
	// unfortunately it provides no advantages over the old method, yet.
	// would be cool to cache a member list at least!  TODO
// efine PERSISTENT_SLAVES  // postponed
// efine IRC_FRIENDCHANNEL  // hopelessly needs more work
# ifdef HTTP_PATH
#  define HTFORWARD	    // let person entity buffer output for http usage
# endif
#else
// the old nick code seems to introduce the remote-part bug
// but if we don't use it, psyced will render [_nick] wrong in many places
# define USE_THE_NICK
//# ifndef __PIKE__
//#  define USE_LIVING
//# endif
#endif

#ifdef __NO_SRV__	    // since psyclpc 4.0.4
# define ERQ_WITHOUT_SRV
#else
// still not official part of the ldmud distribution
# define ERQ_LOOKUP_SRV	13
// hmm seit psyclpc sollte das nicht mehr hier sein
// und warum 13 wenn es 17 sein könnte? :)
#endif

// still using rawp anywhere?
//#define	rawp(TEXT) { P1(("rawp? "+TEXT)) emit(TEXT); }

#ifdef _flag_enable_module_microblogging
# if defined(TWITTER_KEY) && defined(TWITTER_SECRET)
#  define TWITTER
# endif
# if defined(IDENTICA_KEY) && defined(IDENTICA_SECRET)
#  define IDENTICA
# endif
#endif

#define PRIVACY_SURVEILLED	 0
#define PRIVACY_UNKNOWN  	-1
#define PRIVACY_MITMX509	23
#define PRIVACY_REASONABLE	42
#define PRIVACY_GOOD		44

#endif