| 1 | /* |
| 2 | * This file is part of DisOrder. |
| 3 | * Copyright (C) 2004, 2005, 2007 Richard Kettlewell |
| 4 | * |
| 5 | * This program is free software; you can redistribute it and/or modify |
| 6 | * it under the terms of the GNU General Public License as published by |
| 7 | * the Free Software Foundation; either version 2 of the License, or |
| 8 | * (at your option) any later version. |
| 9 | * |
| 10 | * This program is distributed in the hope that it will be useful, but |
| 11 | * WITHOUT ANY WARRANTY; without even the implied warranty of |
| 12 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
| 13 | * General Public License for more details. |
| 14 | * |
| 15 | * You should have received a copy of the GNU General Public License |
| 16 | * along with this program; if not, write to the Free Software |
| 17 | * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 |
| 18 | * USA |
| 19 | */ |
| 20 | |
| 21 | #include <config.h> |
| 22 | #include "types.h" |
| 23 | |
| 24 | #include <stdio.h> |
| 25 | #include <errno.h> |
| 26 | #include <stdlib.h> |
| 27 | #include <sys/types.h> |
| 28 | #include <sys/socket.h> |
| 29 | #include <locale.h> |
| 30 | #include <string.h> |
| 31 | #include <stdarg.h> |
| 32 | |
| 33 | #include "client.h" |
| 34 | #include "sink.h" |
| 35 | #include "cgi.h" |
| 36 | #include "dcgi.h" |
| 37 | #include "mem.h" |
| 38 | #include "log.h" |
| 39 | #include "configuration.h" |
| 40 | #include "disorder.h" |
| 41 | #include "api-client.h" |
| 42 | #include "mime.h" |
| 43 | #include "printf.h" |
| 44 | |
| 45 | /** @brief Infer the base URL for the web interface if it's not set |
| 46 | * |
| 47 | * See <a href="http://tools.ietf.org/html/rfc3875">RFC 3875</a>. |
| 48 | */ |
| 49 | static void infer_url(void) { |
| 50 | if(!config->url) { |
| 51 | const char *scheme = "http", *server, *script, *e; |
| 52 | int port; |
| 53 | |
| 54 | /* Figure out the server. 'MUST' be set and we don't cope if it |
| 55 | * is not. */ |
| 56 | if(!(server = getenv("SERVER_NAME"))) |
| 57 | fatal(0, "SERVER_NAME is not set"); |
| 58 | server = xstrdup(server); |
| 59 | |
| 60 | /* Figure out the port. 'MUST' be set but we cope if it is not. */ |
| 61 | if((e = getenv("SERVER_PORT"))) |
| 62 | port = atoi(e); |
| 63 | else |
| 64 | port = 80; |
| 65 | |
| 66 | /* Figure out path to ourselves */ |
| 67 | if(!(script = getenv("SCRIPT_NAME"))) |
| 68 | fatal(0, "SCRIPT_NAME is not set"); |
| 69 | if(script[0] != '/') |
| 70 | fatal(0, "SCRIPT_NAME does not start with a '/'"); |
| 71 | script = xstrdup(script); |
| 72 | |
| 73 | if(port == 80) |
| 74 | byte_xasprintf(&config->url, "%s://%s%s", |
| 75 | scheme, server, script); |
| 76 | else |
| 77 | byte_xasprintf(&config->url, "%s://%s:%d%s", |
| 78 | scheme, server, port, script); |
| 79 | } |
| 80 | } |
| 81 | |
| 82 | int main(int argc, char **argv) { |
| 83 | const char *cookie_env, *conf; |
| 84 | dcgi_global g; |
| 85 | dcgi_state s; |
| 86 | cgi_sink output; |
| 87 | int n; |
| 88 | struct cookiedata cd; |
| 89 | |
| 90 | if(argc > 0) progname = argv[0]; |
| 91 | cgi_parse(); |
| 92 | if((conf = getenv("DISORDER_CONFIG"))) configfile = xstrdup(conf); |
| 93 | if(getenv("DISORDER_DEBUG")) debugging = 1; |
| 94 | if(config_read(0)) exit(EXIT_FAILURE); |
| 95 | infer_url(); |
| 96 | memset(&g, 0, sizeof g); |
| 97 | memset(&s, 0, sizeof s); |
| 98 | s.g = &g; |
| 99 | g.client = disorder_get_client(); |
| 100 | output.quote = 1; |
| 101 | output.sink = sink_stdio("stdout", stdout); |
| 102 | /* See if there's a cookie */ |
| 103 | cookie_env = getenv("HTTP_COOKIE"); |
| 104 | if(cookie_env) { |
| 105 | /* This will be an HTTP header */ |
| 106 | if(!parse_cookie(cookie_env, &cd)) { |
| 107 | for(n = 0; n < cd.ncookies |
| 108 | && strcmp(cd.cookies[n].name, "disorder"); ++n) |
| 109 | ; |
| 110 | if(n < cd.ncookies) |
| 111 | login_cookie = cd.cookies[n].value; |
| 112 | } |
| 113 | } |
| 114 | /* Log in with the cookie if possible otherwise as guest */ |
| 115 | if(disorder_connect_cookie(g.client, login_cookie)) { |
| 116 | disorder_cgi_error(&output, &s, "connect"); |
| 117 | return 0; |
| 118 | } |
| 119 | /* TODO RFC 3875 s8.2 recommendations e.g. concerning PATH_INFO */ |
| 120 | disorder_cgi(&output, &s); |
| 121 | if(fclose(stdout) < 0) fatal(errno, "error closing stdout"); |
| 122 | return 0; |
| 123 | } |
| 124 | |
| 125 | /* |
| 126 | Local Variables: |
| 127 | c-basic-offset:2 |
| 128 | comment-column:40 |
| 129 | End: |
| 130 | */ |