psyc-mirrors/psyced
1
0
Fork 0
mirror of git://git.psyced.org/git/psyced synced 2024-08-15 03:25:10 +00:00
Code Issues 2 Releases Wiki Activity

Merge remote-tracking branch 've/master'

Browse source
This commit is contained in:
psyc://loupsycedyglgamf.onion/~lynX 1984-04-04 00:44:04 +00:00
commit f667ef8d67
12 changed files with 61 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

2
world/net/gateway/generic.c
View file

@ -136,7 +136,7 @@ static who() {
mixed idle;
string desc;
reply("--- /who of local users of "+ SERVER_UNIFORM);
reply("--- /who of visible local users of "+ SERVER_UNIFORM);
u = objects_people();
all = sizeof(u) < 23;
// same code in usercmd.i

26
world/net/http/server.c
View file

@ -113,12 +113,7 @@ process_header() {
}
parse_request(input) {
P2(("=== HTTP got: %O from %O\n", input, query_ip_name(ME)))
// reset state. in case we support HTTP/1.1. do we?
method = item = url = prot = qs = 0;
headers = ([]);
body = "";
P0(("=== HTTP got: %O from %O\n", input, query_ip_name(ME)))
if (!input || input=="") {
// should return error?
@ -126,9 +121,14 @@ parse_request(input) {
// lets just ignore the empty line
return 1;
}
// reset state. in case we support HTTP/1.1. do we?
method = item = url = prot = qs = 0;
headers = ([]);
body = "";
input = explode(input, " ");
switch(sizeof(input)) {
default:
case 3:
prot = input[2];
next_input_to(#'parse_header);
case 2:
@ -140,12 +140,18 @@ parse_request(input) {
unless (sscanf(url, "%s?%s", item, qs)) item = url;
method = lower_case(input[0]);
break;
case 1:
// should return error!
quit();
default:
http_error(prot, R_BADREQUEST,
"invalid "+HTTP_SVERS+" request");
quit(); return 1;
}
P4(("=== HTTP user requested url: %O\n", url))
if (method == "connect") next_input_to(#'parse_wait);
else if (!sizeof(url) || url[0] != '/') {
http_error(prot, R_BADREQUEST,
"invalid "+HTTP_SVERS+" request");
quit(); return 1;
}
else if (!prot) process(); // HTTP/0.9 has no headers
else next_input_to(#'parse_header);
}

2
world/net/include/net.h
View file

@ -227,7 +227,7 @@
# define PERSISTENT_MASTERS
# define NEW_RENDER
# define MUCSUC
# define XMPP_BIDI
//# define XMPP_BIDI
#endif
#define GAMMA // code that has left BETA and is in production use

2
world/net/jabber/common.c
View file

@ -51,7 +51,7 @@ int emit(string message) {
string t, err;
// according to http://www.w3.org/TR/xml/#charsets
// remove illegal unicode chars --// thx elmex
err = catch(t = regreplace(message, "[^\\x{9}\\x{A}\\x{D}\\x{20}-\\x{D7FF}\\x{E000}-\\x{FFFD}\\x{10000}-\\x{10FFFFFF}]+", "*", RE_GLOBAL | RE_UTF8); nolog);
err = catch(t = regreplace(message, "[^\\x{9}\\x{A}\\x{D}\\x{20}-\\x{D7FF}\\x{E000}-\\x{FFFD}\\x{10000}-\\x{FFFFF}]+", "*", RE_GLOBAL | RE_UTF8); nolog);
if (err || t != message) {
// Info: Chars filtered to %O. Message was %O.
log_file("CHARS_XMPP", "[%s] %O %O %O\n", ctime(),

6
world/net/jabber/gateway.c
View file

@ -145,7 +145,8 @@ verify_connection(string to, string from, string type) {
sAuthenticated(from);
#ifdef XMPP_BIDI
if (bidi) {
P0(("doing register target for xmpp bidi!!!!\n"))
P0(("doing register target for xmpp bidi (2)!!!!\n"))
P0(("register_target(XMPP + %O)\n", from))
register_target(XMPP + from);
}
#endif
@ -423,7 +424,8 @@ jabberMsg(XMLNode node) {
while (remove_call_out(#'quit) != -1);
#ifdef XMPP_BIDI
if (bidi) {
P0(("doing register target for xmpp bidi!!!!\n"))
P0(("doing register target for xmpp bidi (1)!!!!\n"))
P0(("register_target(XMPP + %O)\n", t))
register_target(XMPP + t);
}
#endif

5
world/net/smtp/outgoing.c
View file

@ -1,5 +1,10 @@
// outgoing mail queue for psyced.
// this has not only been leaking message contents..
// it is currently spamming previous room visitors (see /route) FIXME!!
// so we disable it completely for now
#define OFFLINE
// i *could* rewrite this to use net/spool.c
// but then i'd have such a mess in my room

2
world/net/tn/outgoing.c
View file

@ -65,7 +65,7 @@ logon(failure) {
int rc = ::logon(failure);
unless (rc) return 0;
next_input_to(#'parse);
parse("[connected]"); // hack to maintain logon ascii graphics intact
parse("<connected>"); // hack to maintain logon ascii graphics intact
// could have queued this instead:
if (connectstring) call_out(#'send, 1, connectstring);
call_out(#'runQ, 3); // deliver the queue of messages in circuit.c

2
world/net/tn/server.c
View file

@ -10,7 +10,7 @@ qScheme() { return "tn"; }
human(x) {
x = lower_case(x);
unless (abbrev(x, "yes") || abbrev(x, "ja") || abbrev(x, "si") || abbrev(x, "zes")) {
if (!strlen(x) || !(abbrev(x, "yes") || abbrev(x, "ja") || abbrev(x, "si") || abbrev(x, "zes"))) {
emit("\nSorry, no other species welcome currently.\n\n");
}
// now check limits

4
world/net/usercmd.i
View file

@ -2035,7 +2035,9 @@ tell(pal, what, palo, how, mc, tv) {
#ifdef MUDLINK
if (pal == "$mud") {
unless (objectp(mudlink) && interactive(mudlink)) mudlink(v("mudlink"));
if (objectp(mudlink)) mudlink -> send(what +"\n");
// we could call 'enqueue' if not interactive yet, but that would
// probably be even worse for UX. let's just drop that trigger message.
if (objectp(mudlink) && interactive(mudlink)) mudlink -> send(what +"\n");
return;
}
#endif // MUDLINK