" CHATNAME "

// $Id: server.c,v 1.64 2008/05/13 09:51:07 lynx Exp $ // vim:syntax=lpc // // yes, psyced is also a web server, like every decent piece of code. ;) // #include #include #include #include #include "header.i" volatile string url, file, qs, version; volatile mapping headers; // we're using #'closures to point to the functions we're giving the // next_input_to(). as i don't want to restructure the whole file, i need // to predefine some functions. // // quite stupid indeed, as they don't got any modifiers or whatever :) parse_url(input); parse_header(input); devNull(); qScheme() { return "html"; } logon() { D2(D("»»» New SmallHTTP user\n");) // bigger buffer (for psyc logo) set_buffer_size(32768); // unfortunately limited to a compilation limit // so we would have to push large files in chunks // using heart_beat() or something like that TODO next_input_to(#'parse_url); call_out(#'quit, TIME_LOGIN_IDLE); } disconnected(remainder) { // TODO: shouldn't ignore remainder D2(D("««« SmallHTTP got disconnected.\n");) destruct(ME); return 1; // expected death of socket } // gets called from async apps done() { quit(); } #if DEBUG > 1 quit() { D2(D("««« SmallHTTP user done.\n");) ::quit(); } #endif void create() { if (clonep(ME)) headers = ([ ]); } parse_wait(null) { // waiting to send my error message here if (null == "") { http_error("HTTP/1.0", 405, "Invalid Request (Welcome Proxyscanner)"); quit(); } next_input_to(#'parse_wait); } parse_url(input) { P3(("=== SmallHTTP got: %O\n", input)) unless (sscanf(input, "GET%t%s%tHTTP/%s", url, version)) { if (sscanf(input, "CONNECT%t%~s")) { next_input_to(#'parse_wait); return; } else { quit(); return; } } version = "HTTP/" + version; P2(("=== SmallHTTP user requested url: %O\n", url)) next_input_to(#'parse_header); } parse_header(input) { string key, val; P4(("parse_header(%O)\n", input)) unless (input == "") { if (sscanf(input, "%s:%1.0t%s", key, val)) { headers[lower_case(key)] = val; } next_input_to(#'parse_header); } else { process(); next_input_to(#'devNull); } } process() { string t, ext; mapping query = ([]); object o; int done = 1; // take defaults from cookie, then override by query string // lynXism cookie behaviour, normal one is below t = headers["cookie"]; P4(("found cookie: %O\n", t)) if (t && sscanf(t, "psyced=\"%s\"", t)) { P3(("got cookie: %O\n", t)) query = url_parse_query(query, t); P4(("parsed cookie: %O\n", query)) } #ifdef GENERIC_COOKIES // we might need them someday..? // if within the same domain other cookies are being used, like // by including google-analytics, then we might be receiving them // here and have no friggin' idea what they are good for. // thus: we *need* a way to ensure a cookie is our own. // FIXME: this is not really compliant else if (t) { mapping cook = ([ ]); string k, v; while(t && sscanf(t, "%s=%s;%t%s", k, v, t) >= 2) { cook[k] = v; } if (sscanf(t, "%s=%s", k, v)) cook[lower_case(k)] = v; // case insensitive cook[0] = headers["cookie"]; // save cookie-string headers["cookie"] = cook; } #endif if (sscanf(url, "%s?%s", file, qs)) { P3(("got query: %O\n", qs)) query = url_parse_query(query, qs); } else { file = url; } P4(("parsed query: %O\n", query)) switch (file) { case "/favicon.ico": #if 0 htredirect(version, "http://www.psyced.org/favicon.ico", "This one looks neat", 1); quit(); return 1; #else file = "/static/favicon.ico"; break; #endif case "/": case "": // should we look for text/wml in the accept: and go directly // to /net/wap/index ? // http_ok(version); sTextPath(0, query["lang"], "html"); write( //T("_HTML_head", "" CHATNAME "\n" // "

") + T("_PAGES_index", "

" "psyced -" " your multicast capable web application server.") ); // T("_HTML_tail", "

")); quit(); return 1; case "/static": // really don't like to do this, but the IE stores directories // (history) without trailing slash, even if the url originaly // has one, at least IIRC. htredirect(version, "/static/", "use the trailing slash", 1); quit(); return 1; case "/static/": file = "/static/index.html"; break; case "/oauth": object oauth; http_ok(version); //PT((">>> looking up token %O in shm: %O\n", query["oauth_token"], shared_memory("oauth_request_tokens"))) if (oauth = shared_memory("oauth_request_tokens")[query["oauth_token"]]) { //PT((">>> oauth: %O\n", oauth)) oauth->verified(query["oauth_verifier"]); m_delete(shared_memory("oauth_request_tokens"), query["oauth_token"]); write("OAuth succeeded, you can now return to your client."); } else { write("OAuth failed: token not found"); } quit(); return 1; } switch (file[1]) { case '~': if (o = summon_person(file[2..], NET_PATH "user")) { o->htinfo(version, query, headers, qs); } quit(); return 1; case '@': file = PLACE_PATH+ lower_case(file[2..]); break; default: if (abbrev("/static/", file)) { if (file_size(file) > 0) { if (sscanf(file, "%!s.%s", ext)) { while (sscanf(ext, "%!s.%s", ext)) ; } http_ok(version, content_type(ext), 0); binary_message(read_file(file)); quit(); return 1; } } else if (sscanf(file, "/%s/%s.page", ext, t) == 2) { http_ok(version); sTextPath(0, query["lang"] || ext, "html"); t = replace(t, "/", "_"); write(T("_HTML_head", "" CHATNAME "\n" "

") + T("_PAGES_"+t, "[no such page]\n") + T("_HTML_tail", "

")); quit(); return 1; } } if (index(file, ':') != -1) { http_error(version, 501, "Not Implemented. Whatever you are trying " "there, this server won't help you."); quit(); return; } o = file -> load(); if (objectp(o) || o = find_object(file)) done = o->htget(version, query, headers, qs) != HTMORE; if (done) quit(); else remove_call_out(#'quit); return 1; } // wozu binary_message nochmal durch eine funktion jagen? lieber so nennen: emit(a) { return binary_message(a); } devNull() { next_input_to(#'devNull); D2(D("=== SmallHTTP just ignored some input\n");) }