/*
* This file is part of DisOrder
- * Copyright (C) 2007 Richard Kettlewell
+ * Copyright (C) 2007, 2008 Richard Kettlewell
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* @brief URL support functions
*/
-#include <config.h>
-#include "types.h"
+#include "common.h"
-#include <stdio.h>
-#include <stdlib.h>
#include <errno.h>
-#include <string.h>
#include "mem.h"
#include "log.h"
#include "kvp.h"
/** @brief Infer the for the web interface
+ * @param include_path_info 1 to include post-script path, else 0
* @return Inferred URL
*
* See <a href="http://tools.ietf.org/html/rfc3875">RFC 3875</a>.
*/
-char *infer_url(void) {
- const char *scheme = "http", *server, *script, *e, *request_uri;
+char *infer_url(int include_path_info) {
+ const char *scheme = "http", *server, *script, *e, *request_uri, *path_info;
char *url;
int port;
+
+ /* mod_ssl sets HTTPS=on if the scheme is https */
+ if((e = getenv("HTTPS")) && !strcmp(e, "on"))
+ scheme = "https";
/* Figure out the server. 'MUST' be set and we don't cope if it
* is not. */
port = 80;
/* Figure out path to ourselves. */
- if((request_uri = getenv("REQUEST_URI"))) {
+ if(include_path_info && (request_uri = getenv("REQUEST_URI"))) {
/* REQUEST_URI is an Apache extexnsion. If it's available it results in
* more accurate self-referencing URLs. */
if((e = strchr(request_uri, '?')))
script = "/";
/* SCRIPT_NAME is not URL-encoded */
script = urlencodestring(script);
+ if(include_path_info && (path_info = getenv("PATH_INFO")))
+ byte_xasprintf((char **)&script, "%s%s",
+ script, urlencodestring(path_info));
}
if(script[0] != '/')
fatal(0, "SCRIPT_NAME does not start with a '/'");