X-Git-Url: https://git.librecmc.org/?a=blobdiff_plain;f=networking%2Fhttpd.c;h=079145757dcf265478d37bac87f2eb76e3cd4c8f;hb=5b3d2eb327ce7e1c55c6c94bc70782f733d59990;hp=cafa9eda5c76c9e54ff9a737855ee746b96e772f;hpb=8b45837b4c07ea5165f7e94d5895b90f9072c4f0;p=oweals%2Fbusybox.git diff --git a/networking/httpd.c b/networking/httpd.c index cafa9eda5..079145757 100644 --- a/networking/httpd.c +++ b/networking/httpd.c @@ -5,62 +5,65 @@ * Copyright (C) 2002,2003 Glenn Engel * Copyright (C) 2003-2006 Vladimir Oleynik * - * simplify patch stolen from libbb without using strdup - * - * Licensed under GPLv2 or later, see file LICENSE in this tarball for details. + * Licensed under GPLv2 or later, see file LICENSE in this source tree. * ***************************************************************************** * * Typical usage: - * for non root user - * httpd -p 8080 -h $HOME/public_html - * or for daemon start from rc script with uid=0: - * httpd -u www - * This is equivalent if www user have uid=80 to - * httpd -p 80 -u 80 -h /www -c /etc/httpd.conf -r "Web Server Authentication" - * - * - * When a url contains "cgi-bin" it is assumed to be a cgi script. The - * server changes directory to the location of the script and executes it + * For non root user: + * httpd -p 8080 -h $HOME/public_html + * For daemon start from rc script with uid=0: + * httpd -u www + * which is equivalent to (assuming user www has uid 80): + * httpd -p 80 -u 80 -h $PWD -c /etc/httpd.conf -r "Web Server Authentication" + * + * When an url starts with "/cgi-bin/" it is assumed to be a cgi script. + * The server changes directory to the location of the script and executes it * after setting QUERY_STRING and other environment variables. * + * If directory URL is given, no index.html is found and CGI support is enabled, + * cgi-bin/index.cgi will be run. Directory to list is ../$QUERY_STRING. + * See httpd_indexcgi.c for an example GCI code. + * * Doc: * "CGI Environment Variables": http://hoohoo.ncsa.uiuc.edu/cgi/env.html * - * The server can also be invoked as a url arg decoder and html text encoder + * The applet can also be invoked as an url arg decoder and html text encoder * as follows: - * foo=`httpd -d $foo` # decode "Hello%20World" as "Hello World" - * bar=`httpd -e ""` # encode as "<Hello World>" + * foo=`httpd -d $foo` # decode "Hello%20World" as "Hello World" + * bar=`httpd -e ""` # encode as "<Hello World>" * Note that url encoding for arguments is not the same as html encoding for - * presentation. -d decodes a url-encoded argument while -e encodes in html + * presentation. -d decodes an url-encoded argument while -e encodes in html * for page display. * * httpd.conf has the following format: * + * H:/serverroot # define the server root. It will override -h * A:172.20. # Allow address from 172.20.0.0/16 * A:10.0.0.0/25 # Allow any address from 10.0.0.0-10.0.0.127 * A:10.0.0.0/255.255.255.128 # Allow any address that previous set * A:127.0.0.1 # Allow local loopback connections * D:* # Deny from other IP connections + * E404:/path/e404.html # /path/e404.html is the 404 (not found) error page + * I:index.html # Show index.html when a directory is requested + * + * P:/url:[http://]hostname[:port]/new/path + * # When /urlXXXXXX is requested, reverse proxy + * # it to http://hostname[:port]/new/pathXXXXXX + * * /cgi-bin:foo:bar # Require user foo, pwd bar on urls starting with /cgi-bin/ * /adm:admin:setup # Require user admin, pwd setup on urls starting with /adm/ * /adm:toor:PaSsWd # or user toor, pwd PaSsWd on urls starting with /adm/ + * /adm:root:* # or user root, pwd from /etc/passwd on urls starting with /adm/ + * /wiki:*:* # or any user from /etc/passwd with according pwd on urls starting with /wiki/ * .au:audio/basic # additional mime type for audio.au files - * *.php:/path/php # running cgi.php scripts through an interpreter - * - * A/D may be as a/d or allow/deny - first char case insensitive - * Deny IP rules take precedence over allow rules. - * + * *.php:/path/php # run xxx.php through an interpreter * - * The Deny/Allow IP logic: - * - * - Default is to allow all. No addresses are denied unless - * denied with a D: rule. - * - Order of Deny/Allow rules is significant + * A/D may be as a/d or allow/deny - only first char matters. + * Deny/Allow IP logic: + * - Default is to allow all (Allow all (A:*) is a no-op). * - Deny rules take precedence over allow rules. - * - If a deny all rule (D:*) is used it acts as a catch-all for unmatched - * addresses. - * - Specification of Allow all (A:*) is a no-op + * - "Deny all" rule (D:*) is applied last. * * Example: * 1. Allow only specified addresses @@ -74,7 +77,7 @@ * D:2.3.4. # deny from 2.3.4.0 - 2.3.4.255 * A:* # (optional line added for clarity) * - * If a sub directory contains a config file it is parsed and merged with + * If a sub directory contains config file, it is parsed and merged with * any existing settings as if it was appended to the original configuration. * * subdir paths are relative to the containing subdir and thus cannot @@ -84,120 +87,227 @@ * subdir http request, any merge is discarded when the process exits. As a * result, the subdir settings only have a lifetime of a single request. * + * Custom error pages can contain an absolute path or be relative to + * 'home_httpd'. Error pages are to be static files (no CGI or script). Error + * page can only be defined in the root configuration file and are not taken + * into account in local (directories) config files. * * If -c is not set, an attempt will be made to open the default * root configuration file. If -c is set and the file is not found, the * server exits with an error. * -*/ - - -#include "busybox.h" - - -static const char httpdVersion[] = "busybox httpd/1.35 6-Oct-2004"; -static const char default_path_httpd_conf[] = "/etc"; -static const char httpd_conf[] = "httpd.conf"; -static const char home[] = "./"; + */ + /* TODO: use TCP_CORK, parse_config() */ +//config:config HTTPD +//config: bool "httpd (32 kb)" +//config: default y +//config: help +//config: HTTP server. +//config: +//config:config FEATURE_HTTPD_RANGES +//config: bool "Support 'Ranges:' header" +//config: default y +//config: depends on HTTPD +//config: help +//config: Makes httpd emit "Accept-Ranges: bytes" header and understand +//config: "Range: bytes=NNN-[MMM]" header. Allows for resuming interrupted +//config: downloads, seeking in multimedia players etc. +//config: +//config:config FEATURE_HTTPD_SETUID +//config: bool "Enable -u option" +//config: default y +//config: depends on HTTPD +//config: help +//config: This option allows the server to run as a specific user +//config: rather than defaulting to the user that starts the server. +//config: Use of this option requires special privileges to change to a +//config: different user. +//config: +//config:config FEATURE_HTTPD_BASIC_AUTH +//config: bool "Enable HTTP authentication" +//config: default y +//config: depends on HTTPD +//config: help +//config: Utilizes password settings from /etc/httpd.conf for basic +//config: authentication on a per url basis. +//config: Example for httpd.conf file: +//config: /adm:toor:PaSsWd +//config: +//config:config FEATURE_HTTPD_AUTH_MD5 +//config: bool "Support MD5-encrypted passwords in HTTP authentication" +//config: default y +//config: depends on FEATURE_HTTPD_BASIC_AUTH +//config: help +//config: Enables encrypted passwords, and wildcard user/passwords +//config: in httpd.conf file. +//config: User '*' means 'any system user name is ok', +//config: password of '*' means 'use system password for this user' +//config: Examples: +//config: /adm:toor:$1$P/eKnWXS$aI1aPGxT.dJD5SzqAKWrF0 +//config: /adm:root:* +//config: /wiki:*:* +//config: +//config:config FEATURE_HTTPD_CGI +//config: bool "Support Common Gateway Interface (CGI)" +//config: default y +//config: depends on HTTPD +//config: help +//config: This option allows scripts and executables to be invoked +//config: when specific URLs are requested. +//config: +//config:config FEATURE_HTTPD_CONFIG_WITH_SCRIPT_INTERPR +//config: bool "Support running scripts through an interpreter" +//config: default y +//config: depends on FEATURE_HTTPD_CGI +//config: help +//config: This option enables support for running scripts through an +//config: interpreter. Turn this on if you want PHP scripts to work +//config: properly. You need to supply an additional line in your +//config: httpd.conf file: +//config: *.php:/path/to/your/php +//config: +//config:config FEATURE_HTTPD_SET_REMOTE_PORT_TO_ENV +//config: bool "Set REMOTE_PORT environment variable for CGI" +//config: default y +//config: depends on FEATURE_HTTPD_CGI +//config: help +//config: Use of this option can assist scripts in generating +//config: references that contain a unique port number. +//config: +//config:config FEATURE_HTTPD_ENCODE_URL_STR +//config: bool "Enable -e option (useful for CGIs written as shell scripts)" +//config: default y +//config: depends on HTTPD +//config: help +//config: This option allows html encoding of arbitrary strings for display +//config: by the browser. Output goes to stdout. +//config: For example, httpd -e "" produces +//config: "<Hello World>". +//config: +//config:config FEATURE_HTTPD_ERROR_PAGES +//config: bool "Support custom error pages" +//config: default y +//config: depends on HTTPD +//config: help +//config: This option allows you to define custom error pages in +//config: the configuration file instead of the default HTTP status +//config: error pages. For instance, if you add the line: +//config: E404:/path/e404.html +//config: in the config file, the server will respond the specified +//config: '/path/e404.html' file instead of the terse '404 NOT FOUND' +//config: message. +//config: +//config:config FEATURE_HTTPD_PROXY +//config: bool "Support reverse proxy" +//config: default y +//config: depends on HTTPD +//config: help +//config: This option allows you to define URLs that will be forwarded +//config: to another HTTP server. To setup add the following line to the +//config: configuration file +//config: P:/url/:http://hostname[:port]/new/path/ +//config: Then a request to /url/myfile will be forwarded to +//config: http://hostname[:port]/new/path/myfile. +//config: +//config:config FEATURE_HTTPD_GZIP +//config: bool "Support GZIP content encoding" +//config: default y +//config: depends on HTTPD +//config: help +//config: Makes httpd send files using GZIP content encoding if the +//config: client supports it and a pre-compressed .gz exists. + +//applet:IF_HTTPD(APPLET(httpd, BB_DIR_USR_SBIN, BB_SUID_DROP)) + +//kbuild:lib-$(CONFIG_HTTPD) += httpd.o + +//usage:#define httpd_trivial_usage +//usage: "[-ifv[v]]" +//usage: " [-c CONFFILE]" +//usage: " [-p [IP:]PORT]" +//usage: IF_FEATURE_HTTPD_SETUID(" [-u USER[:GRP]]") +//usage: IF_FEATURE_HTTPD_BASIC_AUTH(" [-r REALM]") +//usage: " [-h HOME]\n" +//usage: "or httpd -d/-e" IF_FEATURE_HTTPD_AUTH_MD5("/-m") " STRING" +//usage:#define httpd_full_usage "\n\n" +//usage: "Listen for incoming HTTP requests\n" +//usage: "\n -i Inetd mode" +//usage: "\n -f Don't daemonize" +//usage: "\n -v[v] Verbose" +//usage: "\n -p [IP:]PORT Bind to IP:PORT (default *:80)" +//usage: IF_FEATURE_HTTPD_SETUID( +//usage: "\n -u USER[:GRP] Set uid/gid after binding to port") +//usage: IF_FEATURE_HTTPD_BASIC_AUTH( +//usage: "\n -r REALM Authentication Realm for Basic Authentication") +//usage: "\n -h HOME Home directory (default .)" +//usage: "\n -c FILE Configuration file (default {/etc,HOME}/httpd.conf)" +//usage: IF_FEATURE_HTTPD_AUTH_MD5( +//usage: "\n -m STRING MD5 crypt STRING") +//usage: "\n -e STRING HTML encode STRING" +//usage: "\n -d STRING URL decode STRING" + +#include "libbb.h" +#include "common_bufsiz.h" +#if ENABLE_PAM +/* PAM may include . We may need to undefine bbox's stub define: */ +# undef setlocale +/* For some obscure reason, PAM is not in pam/xxx, but in security/xxx. + * Apparently they like to confuse people. */ +# include +# include +#endif +#if ENABLE_FEATURE_USE_SENDFILE +# include +#endif +/* amount of buffering in a pipe */ +#ifndef PIPE_BUF +# define PIPE_BUF 4096 +#endif -#define TIMEOUT 60 +#define DEBUG 0 -// Note: busybox xfuncs are not used because we want the server to keep running -// if something bad happens due to a malformed user request. -// As a result, all memory allocation after daemonize -// is checked rigorously +#define IOBUF_SIZE 8192 +#if PIPE_BUF >= IOBUF_SIZE +# error "PIPE_BUF >= IOBUF_SIZE" +#endif -//#define DEBUG 1 +#define HEADER_READ_TIMEOUT 60 -#ifndef DEBUG -# define DEBUG 0 -#endif +static const char DEFAULT_PATH_HTTPD_CONF[] ALIGN1 = "/etc"; +static const char HTTPD_CONF[] ALIGN1 = "httpd.conf"; +static const char HTTP_200[] ALIGN1 = "HTTP/1.0 200 OK\r\n"; +static const char index_html[] ALIGN1 = "index.html"; -#define MAX_MEMORY_BUFF 8192 /* IO buffer */ +typedef struct has_next_ptr { + struct has_next_ptr *next; +} has_next_ptr; -typedef struct HT_ACCESS { +/* Must have "next" as a first member */ +typedef struct Htaccess { + struct Htaccess *next; char *after_colon; - struct HT_ACCESS *next; - char before_colon[1]; /* really bigger, must last */ + char before_colon[1]; /* really bigger, must be last */ } Htaccess; -typedef struct HT_ACCESS_IP { - unsigned int ip; - unsigned int mask; +/* Must have "next" as a first member */ +typedef struct Htaccess_IP { + struct Htaccess_IP *next; + unsigned ip; + unsigned mask; int allow_deny; - struct HT_ACCESS_IP *next; } Htaccess_IP; -typedef struct { - char buf[MAX_MEMORY_BUFF]; - - USE_FEATURE_HTTPD_BASIC_AUTH(const char *realm;) - USE_FEATURE_HTTPD_BASIC_AUTH(char *remoteuser;) - - const char *query; - - USE_FEATURE_HTTPD_CGI(char *referer;) - - const char *configFile; - - unsigned int rmt_ip; -#if ENABLE_FEATURE_HTTPD_CGI || DEBUG - char rmt_ip_str[16]; /* for set env REMOTE_ADDR */ -#endif - unsigned port; /* server initial port and for - set env REMOTE_PORT */ - const char *found_mime_type; - const char *found_moved_temporarily; - - off_t ContentLength; /* -1 - unknown */ - time_t last_mod; - - Htaccess_IP *ip_a_d; /* config allow/deny lines */ - int flg_deny_all; -#if ENABLE_FEATURE_HTTPD_BASIC_AUTH - Htaccess *auth; /* config user:password lines */ -#endif -#if ENABLE_FEATURE_HTTPD_CONFIG_WITH_MIME_TYPES - Htaccess *mime_a; /* config mime types */ -#endif - - int server_socket; - int accepted_socket; - volatile int alarm_signaled; - -#if ENABLE_FEATURE_HTTPD_CONFIG_WITH_SCRIPT_INTERPR - Htaccess *script_i; /* config script interpreters */ -#endif -} HttpdConfig; - -static HttpdConfig *config; - -static const char request_GET[] = "GET"; /* size algorithmic optimize */ - -static const char* const suffixTable [] = { -/* Warning: shorted equivalent suffix in one line must be first */ - ".htm.html", "text/html", - ".jpg.jpeg", "image/jpeg", - ".gif", "image/gif", - ".png", "image/png", - ".txt.h.c.cc.cpp", "text/plain", - ".css", "text/css", - ".wav", "audio/wav", - ".avi", "video/x-msvideo", - ".qt.mov", "video/quicktime", - ".mpe.mpeg", "video/mpeg", - ".mid.midi", "audio/midi", - ".mp3", "audio/mpeg", -#if 0 /* unpopular */ - ".au", "audio/basic", - ".pac", "application/x-ns-proxy-autoconfig", - ".vrml.wrl", "model/vrml", -#endif - 0, "application/octet-stream" /* default */ -}; +/* Must have "next" as a first member */ +typedef struct Htaccess_Proxy { + struct Htaccess_Proxy *next; + char *url_from; + char *host_port; + char *url_to; +} Htaccess_Proxy; -typedef enum { +enum { HTTP_OK = 200, + HTTP_PARTIAL_CONTENT = 206, HTTP_MOVED_TEMPORARILY = 302, HTTP_BAD_REQUEST = 400, /* malformed syntax */ HTTP_UNAUTHORIZED = 401, /* authentication needed, respond with auth hdr */ @@ -206,8 +316,8 @@ typedef enum { HTTP_REQUEST_TIMEOUT = 408, HTTP_NOT_IMPLEMENTED = 501, /* used for unrecognized requests */ HTTP_INTERNAL_SERVER_ERROR = 500, -#if 0 /* future use */ HTTP_CONTINUE = 100, +#if 0 /* future use */ HTTP_SWITCHING_PROTOCOLS = 101, HTTP_CREATED = 201, HTTP_ACCEPTED = 202, @@ -219,62 +329,221 @@ typedef enum { HTTP_PAYMENT_REQUIRED = 402, HTTP_BAD_GATEWAY = 502, HTTP_SERVICE_UNAVAILABLE = 503, /* overload, maintenance */ - HTTP_RESPONSE_SETSIZE = 0xffffffff #endif -} HttpResponseNum; +}; + +static const uint16_t http_response_type[] ALIGN2 = { + HTTP_OK, +#if ENABLE_FEATURE_HTTPD_RANGES + HTTP_PARTIAL_CONTENT, +#endif + HTTP_MOVED_TEMPORARILY, + HTTP_REQUEST_TIMEOUT, + HTTP_NOT_IMPLEMENTED, +#if ENABLE_FEATURE_HTTPD_BASIC_AUTH + HTTP_UNAUTHORIZED, +#endif + HTTP_NOT_FOUND, + HTTP_BAD_REQUEST, + HTTP_FORBIDDEN, + HTTP_INTERNAL_SERVER_ERROR, +#if 0 /* not implemented */ + HTTP_CREATED, + HTTP_ACCEPTED, + HTTP_NO_CONTENT, + HTTP_MULTIPLE_CHOICES, + HTTP_MOVED_PERMANENTLY, + HTTP_NOT_MODIFIED, + HTTP_BAD_GATEWAY, + HTTP_SERVICE_UNAVAILABLE, +#endif +}; -typedef struct { - HttpResponseNum type; +static const struct { const char *name; const char *info; -} HttpEnumString; - -static const HttpEnumString httpResponseNames[] = { - { HTTP_OK, "OK", NULL }, - { HTTP_MOVED_TEMPORARILY, "Found", "Directories must end with a slash." }, - { HTTP_REQUEST_TIMEOUT, "Request Timeout", - "No request appeared within a reasonable time period." }, - { HTTP_NOT_IMPLEMENTED, "Not Implemented", - "The requested method is not recognized by this server." }, +} http_response[ARRAY_SIZE(http_response_type)] = { + { "OK", NULL }, +#if ENABLE_FEATURE_HTTPD_RANGES + { "Partial Content", NULL }, +#endif + { "Found", NULL }, + { "Request Timeout", "No request appeared within 60 seconds" }, + { "Not Implemented", "The requested method is not recognized" }, #if ENABLE_FEATURE_HTTPD_BASIC_AUTH - { HTTP_UNAUTHORIZED, "Unauthorized", "" }, -#endif - { HTTP_NOT_FOUND, "Not Found", - "The requested URL was not found on this server." }, - { HTTP_BAD_REQUEST, "Bad Request", "Unsupported method." }, - { HTTP_FORBIDDEN, "Forbidden", "" }, - { HTTP_INTERNAL_SERVER_ERROR, "Internal Server Error", - "Internal Server Error" }, -#if 0 /* not implemented */ - { HTTP_CREATED, "Created" }, - { HTTP_ACCEPTED, "Accepted" }, - { HTTP_NO_CONTENT, "No Content" }, - { HTTP_MULTIPLE_CHOICES, "Multiple Choices" }, - { HTTP_MOVED_PERMANENTLY, "Moved Permanently" }, - { HTTP_NOT_MODIFIED, "Not Modified" }, - { HTTP_BAD_GATEWAY, "Bad Gateway", "" }, - { HTTP_SERVICE_UNAVAILABLE, "Service Unavailable", "" }, + { "Unauthorized", "" }, +#endif + { "Not Found", "The requested URL was not found" }, + { "Bad Request", "Unsupported method" }, + { "Forbidden", "" }, + { "Internal Server Error", "Internal Server Error" }, +#if 0 /* not implemented */ + { "Created" }, + { "Accepted" }, + { "No Content" }, + { "Multiple Choices" }, + { "Moved Permanently" }, + { "Not Modified" }, + { "Bad Gateway", "" }, + { "Service Unavailable", "" }, #endif }; +struct globals { + int verbose; /* must be int (used by getopt32) */ + smallint flg_deny_all; + + unsigned rmt_ip; /* used for IP-based allow/deny rules */ + time_t last_mod; + char *rmt_ip_str; /* for $REMOTE_ADDR and $REMOTE_PORT */ + const char *bind_addr_or_port; + + const char *g_query; + const char *opt_c_configFile; + const char *home_httpd; + const char *index_page; + + const char *found_mime_type; + const char *found_moved_temporarily; + Htaccess_IP *ip_a_d; /* config allow/deny lines */ + + IF_FEATURE_HTTPD_BASIC_AUTH(const char *g_realm;) + IF_FEATURE_HTTPD_BASIC_AUTH(char *remoteuser;) + IF_FEATURE_HTTPD_CGI(char *referer;) + IF_FEATURE_HTTPD_CGI(char *user_agent;) + IF_FEATURE_HTTPD_CGI(char *host;) + IF_FEATURE_HTTPD_CGI(char *http_accept;) + IF_FEATURE_HTTPD_CGI(char *http_accept_language;) + + off_t file_size; /* -1 - unknown */ +#if ENABLE_FEATURE_HTTPD_RANGES + off_t range_start; + off_t range_end; + off_t range_len; +#endif -static const char RFC1123FMT[] = "%a, %d %b %Y %H:%M:%S GMT"; +#if ENABLE_FEATURE_HTTPD_BASIC_AUTH + Htaccess *g_auth; /* config user:password lines */ +#endif + Htaccess *mime_a; /* config mime types */ +#if ENABLE_FEATURE_HTTPD_CONFIG_WITH_SCRIPT_INTERPR + Htaccess *script_i; /* config script interpreters */ +#endif + char *iobuf; /* [IOBUF_SIZE] */ +#define hdr_buf bb_common_bufsiz1 +#define sizeof_hdr_buf COMMON_BUFSIZE + char *hdr_ptr; + int hdr_cnt; +#if ENABLE_FEATURE_HTTPD_ERROR_PAGES + const char *http_error_page[ARRAY_SIZE(http_response_type)]; +#endif +#if ENABLE_FEATURE_HTTPD_PROXY + Htaccess_Proxy *proxy; +#endif +#if ENABLE_FEATURE_HTTPD_GZIP + /* client can handle gzip / we are going to send gzip */ + smallint content_gzip; +#endif +}; +#define G (*ptr_to_globals) +#define verbose (G.verbose ) +#define flg_deny_all (G.flg_deny_all ) +#define rmt_ip (G.rmt_ip ) +#define bind_addr_or_port (G.bind_addr_or_port) +#define g_query (G.g_query ) +#define opt_c_configFile (G.opt_c_configFile ) +#define home_httpd (G.home_httpd ) +#define index_page (G.index_page ) +#define found_mime_type (G.found_mime_type ) +#define found_moved_temporarily (G.found_moved_temporarily) +#define last_mod (G.last_mod ) +#define ip_a_d (G.ip_a_d ) +#define g_realm (G.g_realm ) +#define remoteuser (G.remoteuser ) +#define file_size (G.file_size ) +#if ENABLE_FEATURE_HTTPD_RANGES +#define range_start (G.range_start ) +#define range_end (G.range_end ) +#define range_len (G.range_len ) +#else +enum { + range_start = -1, + range_end = MAXINT(off_t) - 1, + range_len = MAXINT(off_t), +}; +#endif +#define rmt_ip_str (G.rmt_ip_str ) +#define g_auth (G.g_auth ) +#define mime_a (G.mime_a ) +#define script_i (G.script_i ) +#define iobuf (G.iobuf ) +#define hdr_ptr (G.hdr_ptr ) +#define hdr_cnt (G.hdr_cnt ) +#define http_error_page (G.http_error_page ) +#define proxy (G.proxy ) +#if ENABLE_FEATURE_HTTPD_GZIP +# define content_gzip (G.content_gzip ) +#else +# define content_gzip 0 +#endif +#define INIT_G() do { \ + setup_common_bufsiz(); \ + SET_PTR_TO_GLOBALS(xzalloc(sizeof(G))); \ + IF_FEATURE_HTTPD_BASIC_AUTH(g_realm = "Web Server Authentication";) \ + IF_FEATURE_HTTPD_RANGES(range_start = -1;) \ + bind_addr_or_port = "80"; \ + index_page = index_html; \ + file_size = -1; \ +} while (0) #define STRNCASECMP(a, str) strncasecmp((a), (str), sizeof(str)-1) +/* Prototypes */ +enum { + SEND_HEADERS = (1 << 0), + SEND_BODY = (1 << 1), + SEND_HEADERS_AND_BODY = SEND_HEADERS + SEND_BODY, +}; +static void send_file_and_exit(const char *url, int what) NORETURN; + +static void free_llist(has_next_ptr **pptr) +{ + has_next_ptr *cur = *pptr; + while (cur) { + has_next_ptr *t = cur; + cur = cur->next; + free(t); + } + *pptr = NULL; +} + +static ALWAYS_INLINE void free_Htaccess_list(Htaccess **pptr) +{ + free_llist((has_next_ptr**)pptr); +} + +static ALWAYS_INLINE void free_Htaccess_IP_list(Htaccess_IP **pptr) +{ + free_llist((has_next_ptr**)pptr); +} -static int scan_ip(const char **ep, unsigned int *ip, unsigned char endc) +/* Returns presumed mask width in bits or < 0 on error. + * Updates strp, stores IP at provided pointer */ +static int scan_ip(const char **strp, unsigned *ipp, unsigned char endc) { - const char *p = *ep; + const char *p = *strp; int auto_mask = 8; + unsigned ip = 0; int j; - *ip = 0; + if (*p == '/') + return -auto_mask; + for (j = 0; j < 4; j++) { - unsigned int octet; + unsigned octet; - if ((*p < '0' || *p > '9') && (*p != '/' || j == 0) && *p != 0) + if ((*p < '0' || *p > '9') && *p != '/' && *p) return -auto_mask; octet = 0; while (*p >= '0' && *p <= '9') { @@ -286,473 +555,416 @@ static int scan_ip(const char **ep, unsigned int *ip, unsigned char endc) } if (*p == '.') p++; - if (*p != '/' && *p != 0) + if (*p != '/' && *p) auto_mask += 8; - *ip = ((*ip) << 8) | octet; + ip = (ip << 8) | octet; } - if (*p != 0) { + if (*p) { if (*p != endc) return -auto_mask; p++; - if (*p == 0) + if (*p == '\0') return -auto_mask; } - *ep = p; + *ipp = ip; + *strp = p; return auto_mask; } -static int scan_ip_mask(const char *ipm, unsigned int *ip, unsigned int *mask) +/* Returns 0 on success. Stores IP and mask at provided pointers */ +static int scan_ip_mask(const char *str, unsigned *ipp, unsigned *maskp) { int i; - unsigned int msk; + unsigned mask; + char *p; - i = scan_ip(&ipm, ip, '/'); + i = scan_ip(&str, ipp, '/'); if (i < 0) return i; - if (*ipm) { - const char *p = ipm; - - i = 0; - while (*p) { - if (*p < '0' || *p > '9') { - if (*p == '.') { - i = scan_ip(&ipm, mask, 0); - return i != 32; - } - return -1; - } - i *= 10; - i += *p - '0'; - p++; + + if (*str) { + /* there is /xxx after dotted-IP address */ + i = bb_strtou(str, &p, 10); + if (*p == '.') { + /* 'xxx' itself is dotted-IP mask, parse it */ + /* (return 0 (success) only if it has N.N.N.N form) */ + return scan_ip(&str, maskp, '\0') - 32; } + if (*p) + return -1; } - if (i > 32 || i < 0) - return -1; - msk = 0x80000000; - *mask = 0; - while (i > 0) { - *mask |= msk; - msk >>= 1; - i--; - } - return 0; -} - -#if ENABLE_FEATURE_HTTPD_BASIC_AUTH || ENABLE_FEATURE_HTTPD_CONFIG_WITH_MIME_TYPES -static void free_config_lines(Htaccess **pprev) -{ - Htaccess *prev = *pprev; - while (prev) { - Htaccess *cur = prev; + if (i > 32) + return -1; - prev = cur->next; - free(cur); + if (sizeof(unsigned) == 4 && i == 32) { + /* mask >>= 32 below may not work */ + mask = 0; + } else { + mask = 0xffffffff; + mask >>= i; } - *pprev = NULL; + /* i == 0 -> *maskp = 0x00000000 + * i == 1 -> *maskp = 0x80000000 + * i == 4 -> *maskp = 0xf0000000 + * i == 31 -> *maskp = 0xfffffffe + * i == 32 -> *maskp = 0xffffffff */ + *maskp = (uint32_t)(~mask); + return 0; } -#endif -/* flag */ -#define FIRST_PARSE 0 -#define SUBDIR_PARSE 1 -#define SIGNALED_PARSE 2 -#define FIND_FROM_HTTPD_ROOT 3 -/**************************************************************************** - * - > $Function: parse_conf() - * - * $Description: parse configuration file into in-memory linked list. - * - * The first non-white character is examined to determine if the config line - * is one of the following: - * .ext:mime/type # new mime type not compiled into httpd - * [adAD]:from # ip address allow/deny, * for wildcard - * /path:user:pass # username/password +/* + * Parse configuration file into in-memory linked list. * * Any previous IP rules are discarded. * If the flag argument is not SUBDIR_PARSE then all /path and mime rules * are also discarded. That is, previous settings are retained if flag is * SUBDIR_PARSE. + * Error pages are only parsed on the main config file. * - * $Parameters: - * (const char *) path . . null for ip address checks, path for password - * checks. - * (int) flag . . . . . . the source of the parse request. - * - * $Return: (None) - * - ****************************************************************************/ + * path Path where to look for httpd.conf (without filename). + * flag Type of the parse request. + */ +/* flag param: */ +enum { + FIRST_PARSE = 0, /* path will be "/etc" */ + SIGNALED_PARSE = 1, /* path will be "/etc" */ + SUBDIR_PARSE = 2, /* path will be derived from URL */ +}; static void parse_conf(const char *path, int flag) { - FILE *f; -#if ENABLE_FEATURE_HTTPD_BASIC_AUTH - Htaccess *prev, *cur; -#elif ENABLE_FEATURE_HTTPD_CONFIG_WITH_MIME_TYPES - Htaccess *cur; -#endif + /* internally used extra flag state */ + enum { TRY_CURDIR_PARSE = 3 }; - const char *cf = config->configFile; + FILE *f; + const char *filename; char buf[160]; - char *p0 = NULL; - char *c, *p; - - /* free previous ip setup if present */ - Htaccess_IP *pip = config->ip_a_d; - - while (pip) { - Htaccess_IP *cur_ipl = pip; - - pip = cur_ipl->next; - free(cur_ipl); - } - config->ip_a_d = NULL; - config->flg_deny_all = 0; - -#if ENABLE_FEATURE_HTTPD_BASIC_AUTH || ENABLE_FEATURE_HTTPD_CONFIG_WITH_MIME_TYPES || ENABLE_FEATURE_HTTPD_CONFIG_WITH_SCRIPT_INTERPR + /* discard old rules */ + free_Htaccess_IP_list(&ip_a_d); + flg_deny_all = 0; /* retain previous auth and mime config only for subdir parse */ if (flag != SUBDIR_PARSE) { + free_Htaccess_list(&mime_a); #if ENABLE_FEATURE_HTTPD_BASIC_AUTH - free_config_lines(&config->auth); -#endif -#if ENABLE_FEATURE_HTTPD_CONFIG_WITH_MIME_TYPES - free_config_lines(&config->mime_a); + free_Htaccess_list(&g_auth); #endif #if ENABLE_FEATURE_HTTPD_CONFIG_WITH_SCRIPT_INTERPR - free_config_lines(&config->script_i); + free_Htaccess_list(&script_i); #endif } -#endif - if (flag == SUBDIR_PARSE || cf == NULL) { - cf = alloca(strlen(path) + sizeof(httpd_conf) + 2); - if (cf == NULL) { - if (flag == FIRST_PARSE) - bb_error_msg_and_die(bb_msg_memory_exhausted); - return; - } - sprintf((char *)cf, "%s/%s", path, httpd_conf); + filename = opt_c_configFile; + if (flag == SUBDIR_PARSE || filename == NULL) { + filename = alloca(strlen(path) + sizeof(HTTPD_CONF) + 2); + sprintf((char *)filename, "%s/%s", path, HTTPD_CONF); } - while ((f = fopen(cf, "r")) == NULL) { - if (flag == SUBDIR_PARSE || flag == FIND_FROM_HTTPD_ROOT) { + while ((f = fopen_for_read(filename)) == NULL) { + if (flag >= SUBDIR_PARSE) { /* SUBDIR or TRY_CURDIR */ /* config file not found, no changes to config */ return; } - if (config->configFile && flag == FIRST_PARSE) /* if -c option given */ - bb_perror_msg_and_die("%s", cf); - flag = FIND_FROM_HTTPD_ROOT; - cf = httpd_conf; + if (flag == FIRST_PARSE) { + /* -c CONFFILE given, but CONFFILE doesn't exist? */ + if (opt_c_configFile) + bb_simple_perror_msg_and_die(opt_c_configFile); + /* else: no -c, thus we looked at /etc/httpd.conf, + * and it's not there. try ./httpd.conf: */ + } + flag = TRY_CURDIR_PARSE; + filename = HTTPD_CONF; } #if ENABLE_FEATURE_HTTPD_BASIC_AUTH - prev = config->auth; -#endif - /* This could stand some work */ - while ((p0 = fgets(buf, sizeof(buf), f)) != NULL) { - c = NULL; - for (p = p0; *p0 != 0 && *p0 != '#'; p0++) { - if (!isspace(*p0)) { - *p++ = *p0; - if (*p0 == ':' && c == NULL) - c = p; + /* in "/file:user:pass" lines, we prepend path in subdirs */ + if (flag != SUBDIR_PARSE) + path = ""; +#endif + /* The lines can be: + * + * I:default_index_file + * H:http_home + * [AD]:IP[/mask] # allow/deny, * for wildcard + * Ennn:error.html # error page for status nnn + * P:/url:[http://]hostname[:port]/new/path # reverse proxy + * .ext:mime/type # mime type + * *.php:/path/php # run xxx.php through an interpreter + * /file:user:pass # username and password + */ + while (fgets(buf, sizeof(buf), f) != NULL) { + unsigned strlen_buf; + unsigned char ch; + char *after_colon; + + { /* remove all whitespace, and # comments */ + char *p, *p0; + + p0 = buf; + /* skip non-whitespace beginning. Often the whole line + * is non-whitespace. We want this case to work fast, + * without needless copying, therefore we don't merge + * this operation into next while loop. */ + while ((ch = *p0) != '\0' && ch != '\n' && ch != '#' + && ch != ' ' && ch != '\t' + ) { + p0++; + } + p = p0; + /* if we enter this loop, we have some whitespace. + * discard it */ + while (ch != '\0' && ch != '\n' && ch != '#') { + if (ch != ' ' && ch != '\t') { + *p++ = ch; + } + ch = *++p0; } + *p = '\0'; + strlen_buf = p - buf; + if (strlen_buf == 0) + continue; /* empty line */ } - *p = 0; - /* test for empty or strange line */ - if (c == NULL || *c == 0) + after_colon = strchr(buf, ':'); + /* strange line? */ + if (after_colon == NULL || *++after_colon == '\0') + goto config_error; + + ch = (buf[0] & ~0x20); /* toupper if it's a letter */ + + if (ch == 'I') { + if (index_page != index_html) + free((char*)index_page); + index_page = xstrdup(after_colon); continue; - p0 = buf; - if (*p0 == 'd') - *p0 = 'D'; - if (*c == '*') { - if (*p0 == 'D') { - /* memorize deny all */ - config->flg_deny_all++; - } - /* skip default other "word:*" config lines */ + } + + /* do not allow jumping around using H in subdir's configs */ + if (flag == FIRST_PARSE && ch == 'H') { + home_httpd = xstrdup(after_colon); + xchdir(home_httpd); continue; } - if (*p0 == 'a') - *p0 = 'A'; - else if (*p0 != 'D' && *p0 != 'A' -#if ENABLE_FEATURE_HTTPD_BASIC_AUTH - && *p0 != '/' -#endif -#if ENABLE_FEATURE_HTTPD_CONFIG_WITH_MIME_TYPES - && *p0 != '.' -#endif -#if ENABLE_FEATURE_HTTPD_CONFIG_WITH_SCRIPT_INTERPR - && *p0 != '*' -#endif - ) - continue; - if (*p0 == 'A' || *p0 == 'D') { - /* storing current config IP line */ - pip = calloc(1, sizeof(Htaccess_IP)); - if (pip) { - if (scan_ip_mask(c, &(pip->ip), &(pip->mask))) { - /* syntax IP{/mask} error detected, protect all */ - *p0 = 'D'; - pip->mask = 0; + if (ch == 'A' || ch == 'D') { + Htaccess_IP *pip; + + if (*after_colon == '*') { + if (ch == 'D') { + /* memorize "deny all" */ + flg_deny_all = 1; } - pip->allow_deny = *p0; - if (*p0 == 'D') { - /* Deny:form_IP move top */ - pip->next = config->ip_a_d; - config->ip_a_d = pip; + /* skip assumed "A:*", it is a default anyway */ + continue; + } + /* store "allow/deny IP/mask" line */ + pip = xzalloc(sizeof(*pip)); + if (scan_ip_mask(after_colon, &pip->ip, &pip->mask)) { + /* IP{/mask} syntax error detected, protect all */ + ch = 'D'; + pip->mask = 0; + } + pip->allow_deny = ch; + if (ch == 'D') { + /* Deny:from_IP - prepend */ + pip->next = ip_a_d; + ip_a_d = pip; + } else { + /* A:from_IP - append (thus all D's precedes A's) */ + Htaccess_IP *prev_IP = ip_a_d; + if (prev_IP == NULL) { + ip_a_d = pip; } else { - /* add to bottom A:form_IP config line */ - Htaccess_IP *prev_IP = config->ip_a_d; - - if (prev_IP == NULL) { - config->ip_a_d = pip; - } else { - while (prev_IP->next) - prev_IP = prev_IP->next; - prev_IP->next = pip; - } + while (prev_IP->next) + prev_IP = prev_IP->next; + prev_IP->next = pip; } } continue; } -#if ENABLE_FEATURE_HTTPD_BASIC_AUTH - if (*p0 == '/') { - /* make full path from httpd root / curent_path / config_line_path */ - cf = flag == SUBDIR_PARSE ? path : ""; - p0 = malloc(strlen(cf) + (c - buf) + 2 + strlen(c)); - if (p0 == NULL) - continue; - c[-1] = 0; - sprintf(p0, "/%s%s", cf, buf); - /* another call bb_simplify_path */ - cf = p = p0; +#if ENABLE_FEATURE_HTTPD_ERROR_PAGES + if (flag == FIRST_PARSE && ch == 'E') { + unsigned i; + int status = atoi(buf + 1); /* error status code */ - do { - if (*p == '/') { - if (*cf == '/') { /* skip duplicate (or initial) slash */ - continue; - } else if (*cf == '.') { - if (cf[1] == '/' || cf[1] == 0) { /* remove extra '.' */ - continue; - } else if ((cf[1] == '.') && (cf[2] == '/' || cf[2] == 0)) { - ++cf; - if (p > p0) { - while (*--p != '/') /* omit previous dir */; - } - continue; - } - } + if (status < HTTP_CONTINUE) { + goto config_error; + } + /* then error page; find matching status */ + for (i = 0; i < ARRAY_SIZE(http_response_type); i++) { + if (http_response_type[i] == status) { + /* We chdir to home_httpd, thus no need to + * concat_path_file(home_httpd, after_colon) + * here */ + http_error_page[i] = xstrdup(after_colon); + break; } - *++p = *cf; - } while (*++cf); - - if ((p == p0) || (*p != '/')) { /* not a trailing slash */ - ++p; /* so keep last character */ } - *p = 0; - sprintf(p0, "%s:%s", p0, c); + continue; } #endif -#if ENABLE_FEATURE_HTTPD_BASIC_AUTH || ENABLE_FEATURE_HTTPD_CONFIG_WITH_MIME_TYPES || ENABLE_FEATURE_HTTPD_CONFIG_WITH_SCRIPT_INTERPR - /* storing current config line */ - cur = calloc(1, sizeof(Htaccess) + strlen(p0)); - if (cur) { - cf = strcpy(cur->before_colon, p0); - c = strchr(cf, ':'); - *c++ = 0; - cur->after_colon = c; -#if ENABLE_FEATURE_HTTPD_CONFIG_WITH_MIME_TYPES - if (*cf == '.') { - /* config .mime line move top for overwrite previous */ - cur->next = config->mime_a; - config->mime_a = cur; - continue; +#if ENABLE_FEATURE_HTTPD_PROXY + if (flag == FIRST_PARSE && ch == 'P') { + /* P:/url:[http://]hostname[:port]/new/path */ + char *url_from, *host_port, *url_to; + Htaccess_Proxy *proxy_entry; + + url_from = after_colon; + host_port = strchr(after_colon, ':'); + if (host_port == NULL) { + goto config_error; + } + *host_port++ = '\0'; + if (is_prefixed_with(host_port, "http://")) + host_port += 7; + if (*host_port == '\0') { + goto config_error; + } + url_to = strchr(host_port, '/'); + if (url_to == NULL) { + goto config_error; } + *url_to = '\0'; + proxy_entry = xzalloc(sizeof(*proxy_entry)); + proxy_entry->url_from = xstrdup(url_from); + proxy_entry->host_port = xstrdup(host_port); + *url_to = '/'; + proxy_entry->url_to = xstrdup(url_to); + proxy_entry->next = proxy; + proxy = proxy_entry; + continue; + } #endif + /* the rest of directives are non-alphabetic, + * must avoid using "toupper'ed" ch */ + ch = buf[0]; + + if (ch == '.' /* ".ext:mime/type" */ #if ENABLE_FEATURE_HTTPD_CONFIG_WITH_SCRIPT_INTERPR - if (*cf == '*' && cf[1] == '.') { - /* config script interpreter line move top for overwrite previous */ - cur->next = config->script_i; - config->script_i = cur; - continue; + || (ch == '*' && buf[1] == '.') /* "*.php:/path/php" */ +#endif + ) { + char *p; + Htaccess *cur; + + cur = xzalloc(sizeof(*cur) /* includes space for NUL */ + strlen_buf); + strcpy(cur->before_colon, buf); + p = cur->before_colon + (after_colon - buf); + p[-1] = '\0'; + cur->after_colon = p; + if (ch == '.') { + /* .mime line: prepend to mime_a list */ + cur->next = mime_a; + mime_a = cur; + } +#if ENABLE_FEATURE_HTTPD_CONFIG_WITH_SCRIPT_INTERPR + else { + /* script interpreter line: prepend to script_i list */ + cur->next = script_i; + script_i = cur; } #endif + continue; + } + #if ENABLE_FEATURE_HTTPD_BASIC_AUTH - free(p0); - if (prev == NULL) { - /* first line */ - config->auth = prev = cur; - } else { - /* sort path, if current lenght eq or bigger then move up */ - Htaccess *prev_hti = config->auth; - size_t l = strlen(cf); - Htaccess *hti; - - for (hti = prev_hti; hti; hti = hti->next) { - if (l >= strlen(hti->before_colon)) { - /* insert before hti */ - cur->next = hti; - if (prev_hti != hti) { - prev_hti->next = cur; - } else { - /* insert as top */ - config->auth = cur; - } + if (ch == '/') { /* "/file:user:pass" */ + char *p; + Htaccess *cur; + unsigned file_len; + + /* note: path is "" unless we are in SUBDIR parse, + * otherwise it does NOT start with "/" */ + cur = xzalloc(sizeof(*cur) /* includes space for NUL */ + + 1 + strlen(path) + + strlen_buf + ); + /* form "/path/file" */ + sprintf(cur->before_colon, "/%s%.*s", + path, + (int) (after_colon - buf - 1), /* includes "/", but not ":" */ + buf); + /* canonicalize it */ + p = bb_simplify_abs_path_inplace(cur->before_colon); + file_len = p - cur->before_colon; + /* add "user:pass" after NUL */ + strcpy(++p, after_colon); + cur->after_colon = p; + + /* insert cur into g_auth */ + /* g_auth is sorted by decreased filename length */ + { + Htaccess *auth, **authp; + + authp = &g_auth; + while ((auth = *authp) != NULL) { + if (file_len >= strlen(auth->before_colon)) { + /* insert cur before auth */ + cur->next = auth; break; } - if (prev_hti != hti) - prev_hti = prev_hti->next; - } - if (!hti) { /* not inserted, add to bottom */ - prev->next = cur; - prev = cur; + authp = &auth->next; } + *authp = cur; } -#endif + continue; } -#endif - } - fclose(f); +#endif /* BASIC_AUTH */ + + /* the line is not recognized */ + config_error: + bb_error_msg("config error '%s' in '%s'", buf, filename); + } /* while (fgets) */ + + fclose(f); } #if ENABLE_FEATURE_HTTPD_ENCODE_URL_STR -/**************************************************************************** - * - > $Function: encodeString() - * - * $Description: Given a string, html encode special characters. - * This is used for the -e command line option to provide an easy way - * for scripts to encode result data without confusing browsers. The - * returned string pointer is memory allocated by malloc(). - * - * $Parameters: - * (const char *) string . . The first string to encode. - * - * $Return: (char *) . . . .. . . A pointer to the encoded string. - * - * $Errors: Returns a null string ("") if memory is not available. +/* + * Given a string, html-encode special characters. + * This is used for the -e command line option to provide an easy way + * for scripts to encode result data without confusing browsers. The + * returned string pointer is memory allocated by malloc(). * - ****************************************************************************/ + * Returns a pointer to the encoded string (malloced). + */ static char *encodeString(const char *string) { /* take the simple route and encode everything */ /* could possibly scan once to get length. */ int len = strlen(string); - char *out = malloc(len * 6 + 1); + char *out = xmalloc(len * 6 + 1); char *p = out; char ch; - if (!out) return ""; - while ((ch = *string++)) { - // very simple check for what to encode - if (isalnum(ch)) *p++ = ch; - else p += sprintf(p, "&#%d;", (unsigned char) ch); + while ((ch = *string++) != '\0') { + /* very simple check for what to encode */ + if (isalnum(ch)) + *p++ = ch; + else + p += sprintf(p, "&#%d;", (unsigned char) ch); } - *p = 0; + *p = '\0'; return out; } -#endif /* FEATURE_HTTPD_ENCODE_URL_STR */ - -/**************************************************************************** - * - > $Function: decodeString() - * - * $Description: Given a URL encoded string, convert it to plain ascii. - * Since decoding always makes strings smaller, the decode is done in-place. - * Thus, callers should strdup() the argument if they do not want the - * argument modified. The return is the original pointer, allowing this - * function to be easily used as arguments to other functions. - * - * $Parameters: - * (char *) string . . . The first string to decode. - * (int) flag . . . 1 if require decode '+' as ' ' for CGI - * - * $Return: (char *) . . . . A pointer to the decoded string (same as input). - * - * $Errors: None - * - ****************************************************************************/ -static char *decodeString(char *orig, int flag_plus_to_space) -{ - /* note that decoded string is always shorter than original */ - char *string = orig; - char *ptr = string; - - while (*ptr) { - if (*ptr == '+' && flag_plus_to_space) { *string++ = ' '; ptr++; } - else if (*ptr != '%') *string++ = *ptr++; - else { - unsigned int value1, value2; - - ptr++; - if (sscanf(ptr, "%1X", &value1) != 1 || - sscanf(ptr+1, "%1X", &value2) != 1) { - if (!flag_plus_to_space) - return NULL; - *string++ = '%'; - } else { - value1 = value1 * 16 + value2; - if (value1 == '/' || value1 == 0) - return orig+1; - *string++ = value1; - ptr += 2; - } - } - } - *string = '\0'; - return orig; -} - - -#if ENABLE_FEATURE_HTTPD_CGI -/**************************************************************************** - * setenv helpers - ****************************************************************************/ -static void setenv1(const char *name, const char *value) -{ - if (!value) - value = ""; - setenv(name, value, 1); -} -static void setenv_long(const char *name, long value) -{ - char buf[sizeof(value)*3 + 1]; - sprintf(buf, "%ld", value); - setenv(name, buf, 1); -} #endif #if ENABLE_FEATURE_HTTPD_BASIC_AUTH -/**************************************************************************** - * - > $Function: decodeBase64() - * - > $Description: Decode a base 64 data stream as per rfc1521. - * Note that the rfc states that none base64 chars are to be ignored. - * Since the decode always results in a shorter size than the input, it is - * OK to pass the input arg as an output arg. - * - * $Parameter: - * (char *) Data . . . . A pointer to a base64 encoded string. - * Where to place the decoded data. - * - * $Return: void - * - * $Errors: None - * - ****************************************************************************/ +/* + * Decode a base64 data stream as per rfc1521. + * Note that the rfc states that non base64 chars are to be ignored. + * Since the decode always results in a shorter size than the input, + * it is OK to pass the input arg as an output arg. + * Parameter: a pointer to a base64 encoded string. + * Decoded data is stored in-place. + */ static void decodeBase64(char *Data) { - const unsigned char *in = (const unsigned char *)Data; - // The decoded size will be at most 3/4 the size of the encoded - unsigned long ch = 0; + /* The decoded size will be at most 3/4 the size of the encoded */ + unsigned ch = 0; int i = 0; while (*in) { @@ -782,1145 +994,1710 @@ static void decodeBase64(char *Data) i = 0; } } - *Data = 0; + *Data = '\0'; } #endif - -/**************************************************************************** - * - > $Function: openServer() - * - * $Description: create a listen server socket on the designated port. - * - * $Return: (int) . . . A connection socket. -1 for errors. - * - * $Errors: None - * - ****************************************************************************/ +/* + * Create a listen server socket on the designated port. + */ static int openServer(void) { - struct sockaddr_in lsocket; - int fd; - int on = 1; - - /* create the socket right now */ - /* inet_addr() returns a value that is already in network order */ - memset(&lsocket, 0, sizeof(lsocket)); - lsocket.sin_family = AF_INET; - lsocket.sin_addr.s_addr = INADDR_ANY; - lsocket.sin_port = htons(config->port); - fd = xsocket(AF_INET, SOCK_STREAM, 0); - /* tell the OS it's OK to reuse a previous address even though */ - /* it may still be in a close down state. Allows bind to succeed. */ -#ifdef SO_REUSEPORT - setsockopt(fd, SOL_SOCKET, SO_REUSEPORT, (void *)&on, sizeof(on)); -#else - setsockopt(fd, SOL_SOCKET, SO_REUSEADDR, (void *)&on, sizeof(on)); -#endif - xbind(fd, (struct sockaddr *)&lsocket, sizeof(lsocket)); - xlisten(fd, 9); - signal(SIGCHLD, SIG_IGN); /* prevent zombie (defunct) processes */ - return fd; + unsigned n = bb_strtou(bind_addr_or_port, NULL, 10); + if (!errno && n && n <= 0xffff) + n = create_and_bind_stream_or_die(NULL, n); + else + n = create_and_bind_stream_or_die(bind_addr_or_port, 80); + xlisten(n, 9); + return n; } -/**************************************************************************** - * - > $Function: sendHeaders() - * - * $Description: Create and send HTTP response headers. - * The arguments are combined and sent as one write operation. Note that - * IE will puke big-time if the headers are not sent in one packet and the - * second packet is delayed for any reason. - * - * $Parameter: - * (HttpResponseNum) responseNum . . . The result code to send. - * - * $Return: (int) . . . . writing errors - * - ****************************************************************************/ -static int sendHeaders(HttpResponseNum responseNum) +/* + * Log the connection closure and exit. + */ +static void log_and_exit(void) NORETURN; +static void log_and_exit(void) +{ + /* Paranoia. IE said to be buggy. It may send some extra data + * or be confused by us just exiting without SHUT_WR. Oh well. */ + shutdown(1, SHUT_WR); + /* Why?? + (this also messes up stdin when user runs httpd -i from terminal) + ndelay_on(0); + while (read(STDIN_FILENO, iobuf, IOBUF_SIZE) > 0) + continue; + */ + + if (verbose > 2) + bb_error_msg("closed"); + _exit(xfunc_error_retval); +} + +/* + * Create and send HTTP response headers. + * The arguments are combined and sent as one write operation. Note that + * IE will puke big-time if the headers are not sent in one packet and the + * second packet is delayed for any reason. + * responseNum - the result code to send. + */ +static void send_headers(int responseNum) { - char *buf = config->buf; + static const char RFC1123FMT[] ALIGN1 = "%a, %d %b %Y %H:%M:%S GMT"; + /* Fixed size 29-byte string. Example: Sun, 06 Nov 1994 08:49:37 GMT */ + char date_str[40]; /* using a bit larger buffer to paranoia reasons */ + const char *responseString = ""; - const char *infoString = 0; - const char *mime_type; - unsigned int i; - time_t timer = time(0); - char timeStr[80]; + const char *infoString = NULL; +#if ENABLE_FEATURE_HTTPD_ERROR_PAGES + const char *error_page = NULL; +#endif + unsigned i; + time_t timer = time(NULL); int len; - enum { - numNames = sizeof(httpResponseNames) / sizeof(httpResponseNames[0]) - }; - - for (i = 0; i < numNames; i++) { - if (httpResponseNames[i].type == responseNum) { - responseString = httpResponseNames[i].name; - infoString = httpResponseNames[i].info; + + for (i = 0; i < ARRAY_SIZE(http_response_type); i++) { + if (http_response_type[i] == responseNum) { + responseString = http_response[i].name; + infoString = http_response[i].info; +#if ENABLE_FEATURE_HTTPD_ERROR_PAGES + error_page = http_error_page[i]; +#endif break; } } - /* error message is HTML */ - mime_type = responseNum == HTTP_OK ? - config->found_mime_type : "text/html"; - /* emit the current date */ - strftime(timeStr, sizeof(timeStr), RFC1123FMT, gmtime(&timer)); - len = sprintf(buf, - "HTTP/1.0 %d %s\r\nContent-type: %s\r\n" - "Date: %s\r\nConnection: close\r\n", - responseNum, responseString, mime_type, timeStr); + if (verbose) + bb_error_msg("response:%u", responseNum); + + /* We use sprintf, not snprintf (it's less code). + * iobuf[] is several kbytes long and all headers we generate + * always fit into those kbytes. + */ + + strftime(date_str, sizeof(date_str), RFC1123FMT, gmtime(&timer)); + len = sprintf(iobuf, + "HTTP/1.0 %d %s\r\n" + "Content-type: %s\r\n" + "Date: %s\r\n" + "Connection: close\r\n", + responseNum, responseString, + /* if it's error message, then it's HTML */ + (responseNum == HTTP_OK ? found_mime_type : "text/html"), + date_str + ); #if ENABLE_FEATURE_HTTPD_BASIC_AUTH if (responseNum == HTTP_UNAUTHORIZED) { - len += sprintf(buf+len, "WWW-Authenticate: Basic realm=\"%s\"\r\n", - config->realm); + len += sprintf(iobuf + len, + "WWW-Authenticate: Basic realm=\"%.999s\"\r\n", + g_realm /* %.999s protects from overflowing iobuf[] */ + ); } #endif if (responseNum == HTTP_MOVED_TEMPORARILY) { - len += sprintf(buf+len, "Location: %s/%s%s\r\n", - config->found_moved_temporarily, - (config->query ? "?" : ""), - (config->query ? config->query : "")); + /* Responding to "GET /dir" with + * "HTTP/1.0 302 Found" "Location: /dir/" + * - IOW, asking them to repeat with a slash. + * Here, overflow IS possible, can't use sprintf: + * mkdir test + * python -c 'print("get /test?" + ("x" * 8192))' | busybox httpd -i -h . + */ + len += snprintf(iobuf + len, IOBUF_SIZE-3 - len, + "Location: %s/%s%s\r\n", + found_moved_temporarily, + (g_query ? "?" : ""), + (g_query ? g_query : "") + ); + if (len > IOBUF_SIZE-3) + len = IOBUF_SIZE-3; + } + +#if ENABLE_FEATURE_HTTPD_ERROR_PAGES + if (error_page && access(error_page, R_OK) == 0) { + iobuf[len++] = '\r'; + iobuf[len++] = '\n'; + if (DEBUG) { + iobuf[len] = '\0'; + fprintf(stderr, "headers: '%s'\n", iobuf); + } + full_write(STDOUT_FILENO, iobuf, len); + if (DEBUG) + fprintf(stderr, "writing error page: '%s'\n", error_page); + return send_file_and_exit(error_page, SEND_BODY); } +#endif - if (config->ContentLength != -1) { /* file */ - strftime(timeStr, sizeof(timeStr), RFC1123FMT, gmtime(&config->last_mod)); - len += sprintf(buf+len, "Last-Modified: %s\r\n%s %"OFF_FMT"\r\n", - timeStr, "Content-length:", (off_t) config->ContentLength); + if (file_size != -1) { /* file */ + strftime(date_str, sizeof(date_str), RFC1123FMT, gmtime(&last_mod)); +#if ENABLE_FEATURE_HTTPD_RANGES + if (responseNum == HTTP_PARTIAL_CONTENT) { + len += sprintf(iobuf + len, + "Content-Range: bytes %"OFF_FMT"u-%"OFF_FMT"u/%"OFF_FMT"u\r\n", + range_start, + range_end, + file_size + ); + file_size = range_end - range_start + 1; + } +#endif + len += sprintf(iobuf + len, +#if ENABLE_FEATURE_HTTPD_RANGES + "Accept-Ranges: bytes\r\n" +#endif + "Last-Modified: %s\r\n" + "%s %"OFF_FMT"u\r\n", + date_str, + content_gzip ? "Transfer-Length:" : "Content-Length:", + file_size + ); } - strcat(buf, "\r\n"); - len += 2; + + if (content_gzip) + len += sprintf(iobuf + len, "Content-Encoding: gzip\r\n"); + + iobuf[len++] = '\r'; + iobuf[len++] = '\n'; if (infoString) { - len += sprintf(buf+len, - "%d %s\n" - "

%d %s

\n%s\n\n", + len += sprintf(iobuf + len, + "%d %s\n" + "

%d %s

\n" + "%s\n" + "\n", responseNum, responseString, - responseNum, responseString, infoString); + responseNum, responseString, + infoString + ); + } + if (DEBUG) { + iobuf[len] = '\0'; + fprintf(stderr, "headers: '%s'\n", iobuf); + } + if (full_write(STDOUT_FILENO, iobuf, len) != len) { + if (verbose > 1) + bb_perror_msg("error"); + log_and_exit(); } - if (DEBUG) - fprintf(stderr, "headers: '%s'\n", buf); - return full_write(config->accepted_socket, buf, len); } -/**************************************************************************** - * - > $Function: getLine() - * - * $Description: Read from the socket until an end of line char found. - * - * Characters are read one at a time until an eol sequence is found. - * - * $Return: (int) . . . . number of characters read. -1 if error. - * - ****************************************************************************/ -static int getLine(void) +static void send_headers_and_exit(int responseNum) NORETURN; +static void send_headers_and_exit(int responseNum) +{ + IF_FEATURE_HTTPD_GZIP(content_gzip = 0;) + send_headers(responseNum); + log_and_exit(); +} + +/* + * Read from the socket until '\n' or EOF. '\r' chars are removed. + * '\n' is replaced with NUL. + * Return number of characters read or 0 if nothing is read + * ('\r' and '\n' are not counted). + * Data is returned in iobuf. + */ +static int get_line(void) { int count = 0; - char *buf = config->buf; + char c; - while (read(config->accepted_socket, buf + count, 1) == 1) { - if (buf[count] == '\r') continue; - if (buf[count] == '\n') { - buf[count] = 0; - return count; + alarm(HEADER_READ_TIMEOUT); + while (1) { + if (hdr_cnt <= 0) { + hdr_cnt = safe_read(STDIN_FILENO, hdr_buf, sizeof_hdr_buf); + if (hdr_cnt <= 0) + break; + hdr_ptr = hdr_buf; } - if (count < (MAX_MEMORY_BUFF-1)) /* check overflow */ + iobuf[count] = c = *hdr_ptr++; + hdr_cnt--; + + if (c == '\r') + continue; + if (c == '\n') { + iobuf[count] = '\0'; + break; + } + if (count < (IOBUF_SIZE - 1)) /* check overflow */ count++; } - if (count) return count; - else return -1; + return count; } -#if ENABLE_FEATURE_HTTPD_CGI -/**************************************************************************** - * - > $Function: sendCgi() - * - * $Description: Execute a CGI script and send it's stdout back - * - * Environment variables are set up and the script is invoked with pipes - * for stdin/stdout. If a post is being done the script is fed the POST - * data in addition to setting the QUERY_STRING variable (for GETs or POSTs). - * - * $Parameters: - * (const char *) url . . . . . . The requested URL (with leading /). - * (int bodyLen) . . . . . . . . Length of the post body. - * (const char *cookie) . . . . . For set HTTP_COOKIE. - * (const char *content_type) . . For set CONTENT_TYPE. +#if ENABLE_FEATURE_HTTPD_CGI || ENABLE_FEATURE_HTTPD_PROXY - * - * $Return: (char *) . . . . A pointer to the decoded string (same as input). - * - * $Errors: None - * - ****************************************************************************/ -static int sendCgi(const char *url, - const char *request, int bodyLen, const char *cookie, - const char *content_type) +/* gcc 4.2.1 fares better with NOINLINE */ +static NOINLINE void cgi_io_loop_and_exit(int fromCgi_rd, int toCgi_wr, int post_len) NORETURN; +static NOINLINE void cgi_io_loop_and_exit(int fromCgi_rd, int toCgi_wr, int post_len) { - int fromCgi[2]; /* pipe for reading data from CGI */ - int toCgi[2]; /* pipe for sending data to CGI */ - - static char * argp[] = { 0, 0 }; - int pid = 0; - int inFd; - int outFd; - int firstLine = 1; - int status; - size_t post_readed_size, post_readed_idx; - - if (pipe(fromCgi) != 0) - return 0; - if (pipe(toCgi) != 0) - return 0; + enum { FROM_CGI = 1, TO_CGI = 2 }; /* indexes in pfd[] */ + struct pollfd pfd[3]; + int out_cnt; /* we buffer a bit of initial CGI output */ + int count; - pid = fork(); - if (pid < 0) - return 0; - - if (!pid) { - /* child process */ - char *script; - char *purl = strdup(url); - char realpath_buff[MAXPATHLEN]; - - if (purl == NULL) - _exit(242); - - inFd = toCgi[0]; - outFd = fromCgi[1]; - - dup2(inFd, 0); // replace stdin with the pipe - dup2(outFd, 1); // replace stdout with the pipe - if (!DEBUG) - dup2(outFd, 2); // replace stderr with the pipe - - close(toCgi[0]); - close(toCgi[1]); - close(fromCgi[0]); - close(fromCgi[1]); - - close(config->accepted_socket); - close(config->server_socket); - - /* - * Find PATH_INFO. - */ - script = purl; - while ((script = strchr(script + 1, '/')) != NULL) { - /* have script.cgi/PATH_INFO or dirs/script.cgi[/PATH_INFO] */ - struct stat sb; + /* iobuf is used for CGI -> network data, + * hdr_buf is for network -> CGI data (POSTDATA) */ - *script = '\0'; - if (is_directory(purl + 1, 1, &sb) == 0) { - /* not directory, found script.cgi/PATH_INFO */ - *script = '/'; - break; + /* If CGI dies, we still want to correctly finish reading its output + * and send it to the peer. So please no SIGPIPEs! */ + signal(SIGPIPE, SIG_IGN); + + // We inconsistently handle a case when more POSTDATA from network + // is coming than we expected. We may give *some part* of that + // extra data to CGI. + + //if (hdr_cnt > post_len) { + // /* We got more POSTDATA from network than we expected */ + // hdr_cnt = post_len; + //} + post_len -= hdr_cnt; + /* post_len - number of POST bytes not yet read from network */ + + /* NB: breaking out of this loop jumps to log_and_exit() */ + out_cnt = 0; + pfd[FROM_CGI].fd = fromCgi_rd; + pfd[FROM_CGI].events = POLLIN; + pfd[TO_CGI].fd = toCgi_wr; + while (1) { + /* Note: even pfd[0].events == 0 won't prevent + * revents == POLLHUP|POLLERR reports from closed stdin. + * Setting fd to -1 works: */ + pfd[0].fd = -1; + pfd[0].events = POLLIN; + pfd[0].revents = 0; /* probably not needed, paranoia */ + + /* We always poll this fd, thus kernel always sets revents: */ + /*pfd[FROM_CGI].events = POLLIN; - moved out of loop */ + /*pfd[FROM_CGI].revents = 0; - not needed */ + + /* gcc-4.8.0 still doesnt fill two shorts with one insn :( */ + /* http://gcc.gnu.org/bugzilla/show_bug.cgi?id=47059 */ + /* hopefully one day it will... */ + pfd[TO_CGI].events = POLLOUT; + pfd[TO_CGI].revents = 0; /* needed! */ + + if (toCgi_wr && hdr_cnt <= 0) { + if (post_len > 0) { + /* Expect more POST data from network */ + pfd[0].fd = 0; + } else { + /* post_len <= 0 && hdr_cnt <= 0: + * no more POST data to CGI, + * let CGI see EOF on CGI's stdin */ + if (toCgi_wr != fromCgi_rd) + close(toCgi_wr); + toCgi_wr = 0; } - *script = '/'; /* is directory, find next '/' */ } - setenv1("PATH_INFO", script); /* set /PATH_INFO or "" */ - /* setenv1("PATH", getenv("PATH")); redundant */ - setenv1("REQUEST_METHOD", request); - if (config->query) { - char *uri = alloca(strlen(purl) + 2 + strlen(config->query)); - if (uri) - sprintf(uri, "%s?%s", purl, config->query); - setenv1("REQUEST_URI", uri); - } else { - setenv1("REQUEST_URI", purl); + + /* Now wait on the set of sockets */ + count = safe_poll(pfd, hdr_cnt > 0 ? TO_CGI+1 : FROM_CGI+1, -1); + if (count <= 0) { +#if 0 + if (safe_waitpid(pid, &status, WNOHANG) <= 0) { + /* Weird. CGI didn't exit and no fd's + * are ready, yet poll returned?! */ + continue; + } + if (DEBUG && WIFEXITED(status)) + bb_error_msg("CGI exited, status=%d", WEXITSTATUS(status)); + if (DEBUG && WIFSIGNALED(status)) + bb_error_msg("CGI killed, signal=%d", WTERMSIG(status)); +#endif + break; } - if (script != NULL) - *script = '\0'; /* cut off /PATH_INFO */ - /* SCRIPT_FILENAME required by PHP in CGI mode */ - if (!realpath(purl + 1, realpath_buff)) - goto error_execing_cgi; - setenv1("SCRIPT_FILENAME", realpath_buff); - /* set SCRIPT_NAME as full path: /cgi-bin/dirs/script.cgi */ - setenv1("SCRIPT_NAME", purl); - /* TODO: bug 996 says we need to decodeString(config->query) - * before placing it into env. Is this true? Add example - * in the comment please... */ - setenv1("QUERY_STRING", config->query); - setenv1("SERVER_SOFTWARE", httpdVersion); - putenv("SERVER_PROTOCOL=HTTP/1.0"); - putenv("GATEWAY_INTERFACE=CGI/1.1"); - setenv1("REMOTE_ADDR", config->rmt_ip_str); -#if ENABLE_FEATURE_HTTPD_SET_REMOTE_PORT_TO_ENV - setenv_long("REMOTE_PORT", config->port); -#endif - if (bodyLen) - setenv_long("CONTENT_LENGTH", bodyLen); - if (cookie) - setenv1("HTTP_COOKIE", cookie); - if (content_type) - setenv1("CONTENT_TYPE", content_type); -#if ENABLE_FEATURE_HTTPD_BASIC_AUTH - if (config->remoteuser) { - setenv1("REMOTE_USER", config->remoteuser); - putenv("AUTH_TYPE=Basic"); + + if (pfd[TO_CGI].revents) { + /* hdr_cnt > 0 here due to the way poll() called */ + /* Have data from peer and can write to CGI */ + count = safe_write(toCgi_wr, hdr_ptr, hdr_cnt); + /* Doesn't happen, we dont use nonblocking IO here + *if (count < 0 && errno == EAGAIN) { + * ... + *} else */ + if (count > 0) { + hdr_ptr += count; + hdr_cnt -= count; + } else { + /* EOF/broken pipe to CGI, stop piping POST data */ + hdr_cnt = post_len = 0; + } } -#endif - if (config->referer) - setenv1("HTTP_REFERER", config->referer); - /* set execve argp[0] without path */ - argp[0] = strrchr(purl, '/') + 1; - /* but script argp[0] must have absolute path and chdiring to this */ - script = strrchr(realpath_buff, '/'); - if (!script) - goto error_execing_cgi; - *script = '\0'; - if (chdir(realpath_buff) == 0) { - // now run the program. If it fails, - // use _exit() so no destructors - // get called and make a mess. -#if ENABLE_FEATURE_HTTPD_CONFIG_WITH_SCRIPT_INTERPR - char *interpr = NULL; - char *suffix = strrchr(purl, '.'); + if (pfd[0].revents) { + /* post_len > 0 && hdr_cnt == 0 here */ + /* We expect data, prev data portion is eaten by CGI + * and there *is* data to read from the peer + * (POSTDATA) */ + //count = post_len > (int)sizeof_hdr_buf ? (int)sizeof_hdr_buf : post_len; + //count = safe_read(STDIN_FILENO, hdr_buf, count); + count = safe_read(STDIN_FILENO, hdr_buf, sizeof_hdr_buf); + if (count > 0) { + hdr_cnt = count; + hdr_ptr = hdr_buf; + post_len -= count; + } else { + /* no more POST data can be read */ + post_len = 0; + } + } - if (suffix) { - Htaccess *cur; - for (cur = config->script_i; cur; cur = cur->next) { - if (strcmp(cur->before_colon + 1, suffix) == 0) { - interpr = cur->after_colon; + if (pfd[FROM_CGI].revents) { + /* There is something to read from CGI */ + char *rbuf = iobuf; + + /* Are we still buffering CGI output? */ + if (out_cnt >= 0) { + /* HTTP_200[] has single "\r\n" at the end. + * According to http://hoohoo.ncsa.uiuc.edu/cgi/out.html, + * CGI scripts MUST send their own header terminated by + * empty line, then data. That's why we have only one + * pair here. We will output "200 OK" line + * if needed, but CGI still has to provide blank line + * between header and body */ + + /* Must use safe_read, not full_read, because + * CGI may output a few first bytes and then wait + * for POSTDATA without closing stdout. + * With full_read we may wait here forever. */ + count = safe_read(fromCgi_rd, rbuf + out_cnt, PIPE_BUF - 8); + if (count <= 0) { + /* eof (or error) and there was no "HTTP", + * so write it, then write received data */ + if (out_cnt) { + full_write(STDOUT_FILENO, HTTP_200, sizeof(HTTP_200)-1); + full_write(STDOUT_FILENO, rbuf, out_cnt); + } + break; /* CGI stdout is closed, exiting */ + } + out_cnt += count; + count = 0; + /* "Status" header format is: "Status: 302 Redirected\r\n" */ + if (out_cnt >= 7 && memcmp(rbuf, "Status:", 7) == 0) { + /* send "HTTP/1.0 " */ + if (full_write(STDOUT_FILENO, HTTP_200, 9) != 9) break; + rbuf += 7; /* skip "Status:" */ + count = out_cnt - 7; + out_cnt = -1; /* buffering off */ + } else if (out_cnt >= 4) { + /* Did CGI add "HTTP"? */ + if (memcmp(rbuf, HTTP_200, 4) != 0) { + /* there is no "HTTP", do it ourself */ + if (full_write(STDOUT_FILENO, HTTP_200, sizeof(HTTP_200)-1) != sizeof(HTTP_200)-1) + break; + } + /* Commented out: + if (!strstr(rbuf, "ontent-")) { + full_write(s, "Content-type: text/plain\r\n\r\n", 28); } + * Counter-example of valid CGI without Content-type: + * echo -en "HTTP/1.0 302 Found\r\n" + * echo -en "Location: http://www.busybox.net\r\n" + * echo -en "\r\n" + */ + count = out_cnt; + out_cnt = -1; /* buffering off */ } + } else { + count = safe_read(fromCgi_rd, rbuf, PIPE_BUF); + if (count <= 0) + break; /* eof (or error) */ } + if (full_write(STDOUT_FILENO, rbuf, count) != count) + break; + if (DEBUG) + fprintf(stderr, "cgi read %d bytes: '%.*s'\n", count, count, rbuf); + } /* if (pfd[FROM_CGI].revents) */ + } /* while (1) */ + log_and_exit(); +} #endif - *script = '/'; -#if ENABLE_FEATURE_HTTPD_CONFIG_WITH_SCRIPT_INTERPR - if (interpr) - execv(interpr, argp); - else + +#if ENABLE_FEATURE_HTTPD_CGI + +static void setenv1(const char *name, const char *value) +{ + setenv(name, value ? value : "", 1); +} + +/* + * Spawn CGI script, forward CGI's stdin/out <=> network + * + * Environment variables are set up and the script is invoked with pipes + * for stdin/stdout. If a POST is being done the script is fed the POST + * data in addition to setting the QUERY_STRING variable (for GETs or POSTs). + * + * Parameters: + * const char *url The requested URL (with leading /). + * const char *orig_uri The original URI before rewriting (if any) + * int post_len Length of the POST body. + * const char *cookie For set HTTP_COOKIE. + * const char *content_type For set CONTENT_TYPE. + */ +static void send_cgi_and_exit( + const char *url, + const char *orig_uri, + const char *request, + int post_len, + const char *cookie, + const char *content_type) NORETURN; +static void send_cgi_and_exit( + const char *url, + const char *orig_uri, + const char *request, + int post_len, + const char *cookie, + const char *content_type) +{ + struct fd_pair fromCgi; /* CGI -> httpd pipe */ + struct fd_pair toCgi; /* httpd -> CGI pipe */ + char *script, *last_slash; + int pid; + + /* Make a copy. NB: caller guarantees: + * url[0] == '/', url[1] != '/' */ + url = xstrdup(url); + + /* + * We are mucking with environment _first_ and then vfork/exec, + * this allows us to use vfork safely. Parent doesn't care about + * these environment changes anyway. + */ + + /* Check for [dirs/]script.cgi/PATH_INFO */ + last_slash = script = (char*)url; + while ((script = strchr(script + 1, '/')) != NULL) { + int dir; + *script = '\0'; + dir = is_directory(url + 1, /*followlinks:*/ 1); + *script = '/'; + if (!dir) { + /* not directory, found script.cgi/PATH_INFO */ + break; + } + /* is directory, find next '/' */ + last_slash = script; + } + setenv1("PATH_INFO", script); /* set to /PATH_INFO or "" */ + setenv1("REQUEST_METHOD", request); + if (g_query) { + putenv(xasprintf("%s=%s?%s", "REQUEST_URI", orig_uri, g_query)); + } else { + setenv1("REQUEST_URI", orig_uri); + } + if (script != NULL) + *script = '\0'; /* cut off /PATH_INFO */ + + /* SCRIPT_FILENAME is required by PHP in CGI mode */ + if (home_httpd[0] == '/') { + char *fullpath = concat_path_file(home_httpd, url); + setenv1("SCRIPT_FILENAME", fullpath); + } + /* set SCRIPT_NAME as full path: /cgi-bin/dirs/script.cgi */ + setenv1("SCRIPT_NAME", url); + /* http://hoohoo.ncsa.uiuc.edu/cgi/env.html: + * QUERY_STRING: The information which follows the ? in the URL + * which referenced this script. This is the query information. + * It should not be decoded in any fashion. This variable + * should always be set when there is query information, + * regardless of command line decoding. */ + /* (Older versions of bbox seem to do some decoding) */ + setenv1("QUERY_STRING", g_query); + putenv((char*)"SERVER_SOFTWARE=busybox httpd/"BB_VER); + putenv((char*)"SERVER_PROTOCOL=HTTP/1.0"); + putenv((char*)"GATEWAY_INTERFACE=CGI/1.1"); + /* Having _separate_ variables for IP and port defeats + * the purpose of having socket abstraction. Which "port" + * are you using on Unix domain socket? + * IOW - REMOTE_PEER="1.2.3.4:56" makes much more sense. + * Oh well... */ + { + char *p = rmt_ip_str ? rmt_ip_str : (char*)""; + char *cp = strrchr(p, ':'); + if (ENABLE_FEATURE_IPV6 && cp && strchr(cp, ']')) + cp = NULL; + if (cp) *cp = '\0'; /* delete :PORT */ + setenv1("REMOTE_ADDR", p); + if (cp) { + *cp = ':'; +#if ENABLE_FEATURE_HTTPD_SET_REMOTE_PORT_TO_ENV + setenv1("REMOTE_PORT", cp + 1); #endif - execv(realpath_buff, argp); } - error_execing_cgi: - /* send to stdout (even if we are not from inetd) */ - config->accepted_socket = 1; - sendHeaders(HTTP_NOT_FOUND); - _exit(242); - } /* end child */ + } + setenv1("HTTP_USER_AGENT", G.user_agent); + if (G.http_accept) + setenv1("HTTP_ACCEPT", G.http_accept); + if (G.http_accept_language) + setenv1("HTTP_ACCEPT_LANGUAGE", G.http_accept_language); + if (post_len) + putenv(xasprintf("CONTENT_LENGTH=%d", post_len)); + if (cookie) + setenv1("HTTP_COOKIE", cookie); + if (content_type) + setenv1("CONTENT_TYPE", content_type); +#if ENABLE_FEATURE_HTTPD_BASIC_AUTH + if (remoteuser) { + setenv1("REMOTE_USER", remoteuser); + putenv((char*)"AUTH_TYPE=Basic"); + } +#endif + if (G.referer) + setenv1("HTTP_REFERER", G.referer); + setenv1("HTTP_HOST", G.host); /* set to "" if NULL */ + /* setenv1("SERVER_NAME", safe_gethostname()); - don't do this, + * just run "env SERVER_NAME=xyz httpd ..." instead */ + + xpiped_pair(fromCgi); + xpiped_pair(toCgi); + + pid = vfork(); + if (pid < 0) { + /* TODO: log perror? */ + log_and_exit(); + } - /* parent process */ + if (pid == 0) { + /* Child process */ + char *argv[3]; - post_readed_size = 0; - post_readed_idx = 0; - inFd = fromCgi[0]; - outFd = toCgi[1]; - close(fromCgi[1]); - close(toCgi[0]); - signal(SIGPIPE, SIG_IGN); + xfunc_error_retval = 242; - while (1) { - fd_set readSet; - fd_set writeSet; - char wbuf[128]; - int nfound; - int count; - - FD_ZERO(&readSet); - FD_ZERO(&writeSet); - FD_SET(inFd, &readSet); - if (bodyLen > 0 || post_readed_size > 0) { - FD_SET(outFd, &writeSet); - nfound = outFd > inFd ? outFd : inFd; - if (post_readed_size == 0) { - FD_SET(config->accepted_socket, &readSet); - if (nfound < config->accepted_socket) - nfound = config->accepted_socket; - } - /* Now wait on the set of sockets! */ - nfound = select(nfound + 1, &readSet, &writeSet, 0, NULL); - } else { - if (!bodyLen) { - close(outFd); - bodyLen = -1; - } - nfound = select(inFd + 1, &readSet, 0, 0, NULL); - } + /* NB: close _first_, then move fds! */ + close(toCgi.wr); + close(fromCgi.rd); + xmove_fd(toCgi.rd, 0); /* replace stdin with the pipe */ + xmove_fd(fromCgi.wr, 1); /* replace stdout with the pipe */ + /* User seeing stderr output can be a security problem. + * If CGI really wants that, it can always do dup itself. */ + /* dup2(1, 2); */ - if (nfound <= 0) { - if (waitpid(pid, &status, WNOHANG) > 0) { - close(inFd); - if (DEBUG && WIFEXITED(status)) - bb_error_msg("piped has exited with status=%d", WEXITSTATUS(status)); - if (DEBUG && WIFSIGNALED(status)) - bb_error_msg("piped has exited with signal=%d", WTERMSIG(status)); - break; - } - } else if (post_readed_size > 0 && FD_ISSET(outFd, &writeSet)) { - count = full_write(outFd, wbuf + post_readed_idx, post_readed_size); - if (count > 0) { - post_readed_size -= count; - post_readed_idx += count; - if (post_readed_size == 0) - post_readed_idx = 0; - } else { - post_readed_size = post_readed_idx = bodyLen = 0; /* broken pipe to CGI */ - } - } else if (bodyLen > 0 && post_readed_size == 0 && FD_ISSET(config->accepted_socket, &readSet)) { - count = bodyLen > (int)sizeof(wbuf) ? (int)sizeof(wbuf) : bodyLen; - count = safe_read(config->accepted_socket, wbuf, count); - if (count > 0) { - post_readed_size += count; - bodyLen -= count; - } else { - bodyLen = 0; /* closed */ + /* Chdiring to script's dir */ + script = last_slash; + if (script != url) { /* paranoia */ + *script = '\0'; + if (chdir(url + 1) != 0) { + bb_perror_msg("can't change directory to '%s'", url + 1); + goto error_execing_cgi; } + // not needed: *script = '/'; } - if (FD_ISSET(inFd, &readSet)) { - int s = config->accepted_socket; - char *rbuf = config->buf; + script++; -#ifndef PIPE_BUF -# define PIPESIZE 4096 /* amount of buffering in a pipe */ -#else -# define PIPESIZE PIPE_BUF -#endif -#if PIPESIZE >= MAX_MEMORY_BUFF -# error "PIPESIZE >= MAX_MEMORY_BUFF" -#endif + /* set argv[0] to name without path */ + argv[0] = script; + argv[1] = NULL; - /* There is something to read */ - count = safe_read(inFd, rbuf, PIPESIZE); - if (count == 0) - break; /* closed */ - if (count > 0) { - if (firstLine) { - rbuf[count] = 0; - /* check to see if the user script added headers */ - if (strncmp(rbuf, "HTTP/1.0 200 OK\r\n", 4) != 0) { - full_write(s, "HTTP/1.0 200 OK\r\n", 17); - } - /* Sometimes CGI is writing to pipe in small chunks - * and we don't see Content-type (because the read - * is too short) and we emit bogus "text/plain"! - * Is it a bug or CGI *has to* write it in one piece? */ - if (strstr(rbuf, "ontent-") == 0) { - full_write(s, "Content-type: text/plain\r\n\r\n", 28); +#if ENABLE_FEATURE_HTTPD_CONFIG_WITH_SCRIPT_INTERPR + { + char *suffix = strrchr(script, '.'); + + if (suffix) { + Htaccess *cur; + for (cur = script_i; cur; cur = cur->next) { + if (strcmp(cur->before_colon + 1, suffix) == 0) { + /* found interpreter name */ + argv[0] = cur->after_colon; + argv[1] = script; + argv[2] = NULL; + break; } - firstLine = 0; } - if (full_write(s, rbuf, count) != count) - break; - - if (DEBUG) - fprintf(stderr, "cgi read %d bytes: '%.*s'\n", count, count, rbuf); } } - } - return 0; +#endif + /* restore default signal dispositions for CGI process */ + bb_signals(0 + | (1 << SIGCHLD) + | (1 << SIGPIPE) + | (1 << SIGHUP) + , SIG_DFL); + + /* _NOT_ execvp. We do not search PATH. argv[0] is a filename + * without any dir components and will only match a file + * in the current directory */ + execv(argv[0], argv); + if (verbose) + bb_perror_msg("can't execute '%s'", argv[0]); + error_execing_cgi: + /* send to stdout + * (we are CGI here, our stdout is pumped to the net) */ + send_headers_and_exit(HTTP_NOT_FOUND); + } /* end child */ + + /* Parent process */ + + /* Restore variables possibly changed by child */ + xfunc_error_retval = 0; + + /* Pump data */ + close(fromCgi.wr); + close(toCgi.rd); + cgi_io_loop_and_exit(fromCgi.rd, toCgi.wr, post_len); } + #endif /* FEATURE_HTTPD_CGI */ -/**************************************************************************** - * - > $Function: sendFile() - * - * $Description: Send a file response to a HTTP request - * - * $Parameter: - * (const char *) url . . The URL requested. - * - * $Return: (int) . . . . . . Always 0. +/* + * Send a file response to a HTTP request, and exit * - ****************************************************************************/ -static int sendFile(const char *url) + * Parameters: + * const char *url The requested URL (with leading /). + * what What to send (headers/body/both). + */ +static NOINLINE void send_file_and_exit(const char *url, int what) { - char * suffix; - int f; - const char * const * table; - const char * try_suffix; + char *suffix; + int fd; + ssize_t count; + + if (content_gzip) { + /* does .gz exist? Then use it instead */ + char *gzurl = xasprintf("%s.gz", url); + fd = open(gzurl, O_RDONLY); + free(gzurl); + if (fd != -1) { + struct stat sb; + fstat(fd, &sb); + file_size = sb.st_size; + last_mod = sb.st_mtime; + } else { + IF_FEATURE_HTTPD_GZIP(content_gzip = 0;) + fd = open(url, O_RDONLY); + } + } else { + fd = open(url, O_RDONLY); + } + if (fd < 0) { + if (DEBUG) + bb_perror_msg("can't open '%s'", url); + /* Error pages are sent by using send_file_and_exit(SEND_BODY). + * IOW: it is unsafe to call send_headers_and_exit + * if what is SEND_BODY! Can recurse! */ + if (what != SEND_BODY) + send_headers_and_exit(HTTP_NOT_FOUND); + log_and_exit(); + } + /* If you want to know about EPIPE below + * (happens if you abort downloads from local httpd): */ + signal(SIGPIPE, SIG_IGN); + /* If not found, default is "application/octet-stream" */ + found_mime_type = "application/octet-stream"; suffix = strrchr(url, '.'); - - for (table = suffixTable; *table; table += 2) - if (suffix != NULL && (try_suffix = strstr(*table, suffix)) != 0) { + if (suffix) { + static const char suffixTable[] ALIGN1 = + /* Shorter suffix must be first: + * ".html.htm" will fail for ".htm" + */ + ".txt.h.c.cc.cpp\0" "text/plain\0" + /* .htm line must be after .h line */ + ".htm.html\0" "text/html\0" + ".jpg.jpeg\0" "image/jpeg\0" + ".gif\0" "image/gif\0" + ".png\0" "image/png\0" + /* .css line must be after .c line */ + ".css\0" "text/css\0" + ".wav\0" "audio/wav\0" + ".avi\0" "video/x-msvideo\0" + ".qt.mov\0" "video/quicktime\0" + ".mpe.mpeg\0" "video/mpeg\0" + ".mid.midi\0" "audio/midi\0" + ".mp3\0" "audio/mpeg\0" +#if 0 /* unpopular */ + ".au\0" "audio/basic\0" + ".pac\0" "application/x-ns-proxy-autoconfig\0" + ".vrml.wrl\0" "model/vrml\0" +#endif + /* compiler adds another "\0" here */ + ; + Htaccess *cur; + + /* Examine built-in table */ + const char *table = suffixTable; + const char *table_next; + for (; *table; table = table_next) { + const char *try_suffix; + const char *mime_type; + mime_type = table + strlen(table) + 1; + table_next = mime_type + strlen(mime_type) + 1; + try_suffix = strstr(table, suffix); + if (!try_suffix) + continue; try_suffix += strlen(suffix); - if (*try_suffix == 0 || *try_suffix == '.') + if (*try_suffix == '\0' || *try_suffix == '.') { + found_mime_type = mime_type; break; + } + /* Example: strstr(table, ".av") != NULL, but it + * does not match ".avi" after all and we end up here. + * The table is arranged so that in this case we know + * that it can't match anything in the following lines, + * and we stop the search: */ + break; } - /* also, if not found, set default as "application/octet-stream"; */ - config->found_mime_type = table[1]; -#if ENABLE_FEATURE_HTTPD_CONFIG_WITH_MIME_TYPES - if (suffix) { - Htaccess * cur; - - for (cur = config->mime_a; cur; cur = cur->next) { + /* ...then user's table */ + for (cur = mime_a; cur; cur = cur->next) { if (strcmp(cur->before_colon, suffix) == 0) { - config->found_mime_type = cur->after_colon; + found_mime_type = cur->after_colon; break; } } } -#endif /* FEATURE_HTTPD_CONFIG_WITH_MIME_TYPES */ if (DEBUG) - fprintf(stderr, "sending file '%s' content-type: %s\n", - url, config->found_mime_type); - - f = open(url, O_RDONLY); - if (f >= 0) { - int count; - char *buf = config->buf; - - sendHeaders(HTTP_OK); - /* TODO: sendfile() */ - while ((count = full_read(f, buf, MAX_MEMORY_BUFF)) > 0) { - if (full_write(config->accepted_socket, buf, count) != count) - break; + bb_error_msg("sending file '%s' content-type: %s", + url, found_mime_type); + +#if ENABLE_FEATURE_HTTPD_RANGES + if (what == SEND_BODY /* err pages and ranges don't mix */ + || content_gzip /* we are sending compressed page: can't do ranges */ ///why? + ) { + range_start = -1; + } + range_len = MAXINT(off_t); + if (range_start >= 0) { + if (!range_end || range_end > file_size - 1) { + range_end = file_size - 1; + } + if (range_end < range_start + || lseek(fd, range_start, SEEK_SET) != range_start + ) { + lseek(fd, 0, SEEK_SET); + range_start = -1; + } else { + range_len = range_end - range_start + 1; + send_headers(HTTP_PARTIAL_CONTENT); + what = SEND_BODY; } - close(f); - } else { - if (DEBUG) - bb_perror_msg("cannot open '%s'", url); - sendHeaders(HTTP_NOT_FOUND); } - - return 0; +#endif + if (what & SEND_HEADERS) + send_headers(HTTP_OK); +#if ENABLE_FEATURE_USE_SENDFILE + { + off_t offset = range_start; + while (1) { + /* sz is rounded down to 64k */ + ssize_t sz = MAXINT(ssize_t) - 0xffff; + IF_FEATURE_HTTPD_RANGES(if (sz > range_len) sz = range_len;) + count = sendfile(STDOUT_FILENO, fd, &offset, sz); + if (count < 0) { + if (offset == range_start) + break; /* fall back to read/write loop */ + goto fin; + } + IF_FEATURE_HTTPD_RANGES(range_len -= count;) + if (count == 0 || range_len == 0) + log_and_exit(); + } + } +#endif + while ((count = safe_read(fd, iobuf, IOBUF_SIZE)) > 0) { + ssize_t n; + IF_FEATURE_HTTPD_RANGES(if (count > range_len) count = range_len;) + n = full_write(STDOUT_FILENO, iobuf, count); + if (count != n) + break; + IF_FEATURE_HTTPD_RANGES(range_len -= count;) + if (range_len == 0) + break; + } + if (count < 0) { + IF_FEATURE_USE_SENDFILE(fin:) + if (verbose > 1) + bb_perror_msg("error"); + } + log_and_exit(); } static int checkPermIP(void) { - Htaccess_IP * cur; + Htaccess_IP *cur; - /* This could stand some work */ - for (cur = config->ip_a_d; cur; cur = cur->next) { - if (DEBUG) - fprintf(stderr, "checkPermIP: '%s' ? ", config->rmt_ip_str); - if (DEBUG) - fprintf(stderr, "'%u.%u.%u.%u/%u.%u.%u.%u'\n", - (unsigned char)(cur->ip >> 24), - (unsigned char)(cur->ip >> 16), - (unsigned char)(cur->ip >> 8), - cur->ip & 0xff, - (unsigned char)(cur->mask >> 24), - (unsigned char)(cur->mask >> 16), - (unsigned char)(cur->mask >> 8), - cur->mask & 0xff); - if ((config->rmt_ip & cur->mask) == cur->ip) - return cur->allow_deny == 'A'; /* Allow/Deny */ + for (cur = ip_a_d; cur; cur = cur->next) { +#if DEBUG + fprintf(stderr, + "checkPermIP: '%s' ? '%u.%u.%u.%u/%u.%u.%u.%u'\n", + rmt_ip_str, + (unsigned char)(cur->ip >> 24), + (unsigned char)(cur->ip >> 16), + (unsigned char)(cur->ip >> 8), + (unsigned char)(cur->ip), + (unsigned char)(cur->mask >> 24), + (unsigned char)(cur->mask >> 16), + (unsigned char)(cur->mask >> 8), + (unsigned char)(cur->mask) + ); +#endif + if ((rmt_ip & cur->mask) == cur->ip) + return (cur->allow_deny == 'A'); /* A -> 1 */ } - /* if unconfigured, return 1 - access from all */ - return !config->flg_deny_all; + return !flg_deny_all; /* depends on whether we saw "D:*" */ } -/**************************************************************************** - * - > $Function: checkPerm() - * - * $Description: Check the permission file for access password protected. - * - * If config file isn't present, everything is allowed. - * Entries are of the form you can see example from header source - * - * $Parameters: - * (const char *) path . . . . The file path. - * (const char *) request . . . User information to validate. - * - * $Return: (int) . . . . . . . . . 1 if request OK, 0 otherwise. - * - ****************************************************************************/ - #if ENABLE_FEATURE_HTTPD_BASIC_AUTH -static int checkPerm(const char *path, const char *request) + +# if ENABLE_PAM +struct pam_userinfo { + const char *name; + const char *pw; +}; + +static int pam_talker(int num_msg, + const struct pam_message **msg, + struct pam_response **resp, + void *appdata_ptr) { - Htaccess * cur; - const char *p; - const char *p0; + int i; + struct pam_userinfo *userinfo = (struct pam_userinfo *) appdata_ptr; + struct pam_response *response; + + if (!resp || !msg || !userinfo) + return PAM_CONV_ERR; + + /* allocate memory to store response */ + response = xzalloc(num_msg * sizeof(*response)); + + /* copy values */ + for (i = 0; i < num_msg; i++) { + const char *s; + + switch (msg[i]->msg_style) { + case PAM_PROMPT_ECHO_ON: + s = userinfo->name; + break; + case PAM_PROMPT_ECHO_OFF: + s = userinfo->pw; + break; + case PAM_ERROR_MSG: + case PAM_TEXT_INFO: + s = ""; + break; + default: + free(response); + return PAM_CONV_ERR; + } + response[i].resp = xstrdup(s); + if (PAM_SUCCESS != 0) + response[i].resp_retcode = PAM_SUCCESS; + } + *resp = response; + return PAM_SUCCESS; +} +# endif +/* + * Config file entries are of the form "/::". + * If config file has no prefix match for path, access is allowed. + * + * path The file path + * user_and_passwd "user:passwd" to validate + * + * Returns 1 if user_and_passwd is OK. + */ +static int check_user_passwd(const char *path, char *user_and_passwd) +{ + Htaccess *cur; const char *prev = NULL; - /* This could stand some work */ - for (cur = config->auth; cur; cur = cur->next) { - size_t l; + for (cur = g_auth; cur; cur = cur->next) { + const char *dir_prefix; + size_t len; + int r; - p0 = cur->before_colon; - if (prev != NULL && strcmp(prev, p0) != 0) - continue; /* find next identical */ - p = cur->after_colon; - if (DEBUG) - fprintf(stderr, "checkPerm: '%s' ? '%s'\n", p0, request); + dir_prefix = cur->before_colon; + + /* WHY? */ + /* If already saw a match, don't accept other different matches */ + if (prev && strcmp(prev, dir_prefix) != 0) + continue; - l = strlen(p0); - if (strncmp(p0, path, l) == 0 - && (l == 1 || path[l] == '/' || path[l] == '\0') + if (DEBUG) + fprintf(stderr, "checkPerm: '%s' ? '%s'\n", dir_prefix, user_and_passwd); + + /* If it's not a prefix match, continue searching */ + len = strlen(dir_prefix); + if (len != 1 /* dir_prefix "/" matches all, don't need to check */ + && (strncmp(dir_prefix, path, len) != 0 + || (path[len] != '/' && path[len] != '\0') + ) ) { - char *u; - /* path match found. Check request */ - /* for check next /path:user:password */ - prev = p0; - u = strchr(request, ':'); - if (u == NULL) { - /* bad request, ':' required */ - break; - } + continue; + } - if (ENABLE_FEATURE_HTTPD_AUTH_MD5) { - char *cipher; - char *pp; + /* Path match found */ + prev = dir_prefix; - if (strncmp(p, request, u-request) != 0) { - /* user uncompared */ - continue; + if (ENABLE_FEATURE_HTTPD_AUTH_MD5) { + char *colon_after_user; + const char *passwd; +# if ENABLE_FEATURE_SHADOWPASSWDS && !ENABLE_PAM + char sp_buf[256]; +# endif + + colon_after_user = strchr(user_and_passwd, ':'); + if (!colon_after_user) + goto bad_input; + + /* compare "user:" */ + if (cur->after_colon[0] != '*' + && strncmp(cur->after_colon, user_and_passwd, + colon_after_user - user_and_passwd + 1) != 0 + ) { + continue; + } + /* this cfg entry is '*' or matches username from peer */ + + passwd = strchr(cur->after_colon, ':'); + if (!passwd) + goto bad_input; + passwd++; + if (passwd[0] == '*') { +# if ENABLE_PAM + struct pam_userinfo userinfo; + struct pam_conv conv_info = { &pam_talker, (void *) &userinfo }; + pam_handle_t *pamh; + + *colon_after_user = '\0'; + userinfo.name = user_and_passwd; + userinfo.pw = colon_after_user + 1; + r = pam_start("httpd", user_and_passwd, &conv_info, &pamh) != PAM_SUCCESS; + if (r == 0) { + r = pam_authenticate(pamh, PAM_DISALLOW_NULL_AUTHTOK) != PAM_SUCCESS + || pam_acct_mgmt(pamh, PAM_DISALLOW_NULL_AUTHTOK) != PAM_SUCCESS + ; + pam_end(pamh, PAM_SUCCESS); } - pp = strchr(p, ':'); - if (pp && pp[1] == '$' && pp[2] == '1' && - pp[3] == '$' && pp[4]) { - pp++; - cipher = pw_encrypt(u+1, pp); - if (strcmp(cipher, pp) == 0) - goto set_remoteuser_var; /* Ok */ - /* unauthorized */ + *colon_after_user = ':'; + goto end_check_passwd; +# else +# if ENABLE_FEATURE_SHADOWPASSWDS + /* Using _r function to avoid pulling in static buffers */ + struct spwd spw; +# endif + struct passwd *pw; + + *colon_after_user = '\0'; + pw = getpwnam(user_and_passwd); + *colon_after_user = ':'; + if (!pw || !pw->pw_passwd) continue; + passwd = pw->pw_passwd; +# if ENABLE_FEATURE_SHADOWPASSWDS + if ((passwd[0] == 'x' || passwd[0] == '*') && !passwd[1]) { + /* getspnam_r may return 0 yet set result to NULL. + * At least glibc 2.4 does this. Be extra paranoid here. */ + struct spwd *result = NULL; + r = getspnam_r(pw->pw_name, &spw, sp_buf, sizeof(sp_buf), &result); + if (r == 0 && result) + passwd = result->sp_pwdp; } +# endif + /* In this case, passwd is ALWAYS encrypted: + * it came from /etc/passwd or /etc/shadow! + */ + goto check_encrypted; +# endif /* ENABLE_PAM */ } + /* Else: passwd is from httpd.conf, it is either plaintext or encrypted */ - if (strcmp(p, request) == 0) { -set_remoteuser_var: - config->remoteuser = strdup(request); - if (config->remoteuser) - config->remoteuser[(u - request)] = 0; - return 1; /* Ok */ + if (passwd[0] == '$' && isdigit(passwd[1])) { + char *encrypted; +# if !ENABLE_PAM + check_encrypted: +# endif + /* encrypt pwd from peer and check match with local one */ + encrypted = pw_encrypt( + /* pwd (from peer): */ colon_after_user + 1, + /* salt: */ passwd, + /* cleanup: */ 0 + ); + r = strcmp(encrypted, passwd); + free(encrypted); + } else { + /* local passwd is from httpd.conf and it's plaintext */ + r = strcmp(colon_after_user + 1, passwd); } - /* unauthorized */ + goto end_check_passwd; + } + bad_input: + /* Comparing plaintext "user:pass" in one go */ + r = strcmp(cur->after_colon, user_and_passwd); + end_check_passwd: + if (r == 0) { + remoteuser = xstrndup(user_and_passwd, + strchrnul(user_and_passwd, ':') - user_and_passwd + ); + return 1; /* Ok */ } - } /* for */ + } /* for */ - return prev == NULL; + /* 0(bad) if prev is set: matches were found but passwd was wrong */ + return (prev == NULL); } - #endif /* FEATURE_HTTPD_BASIC_AUTH */ -/**************************************************************************** - * - > $Function: handle_sigalrm() - * - * $Description: Handle timeouts - * - ****************************************************************************/ +#if ENABLE_FEATURE_HTTPD_PROXY +static Htaccess_Proxy *find_proxy_entry(const char *url) +{ + Htaccess_Proxy *p; + for (p = proxy; p; p = p->next) { + if (is_prefixed_with(url, p->url_from)) + return p; + } + return NULL; +} +#endif -static void handle_sigalrm(int sig) +/* + * Handle timeouts + */ +static void send_REQUEST_TIMEOUT_and_exit(int sig) NORETURN; +static void send_REQUEST_TIMEOUT_and_exit(int sig UNUSED_PARAM) { - sendHeaders(HTTP_REQUEST_TIMEOUT); - config->alarm_signaled = sig; + send_headers_and_exit(HTTP_REQUEST_TIMEOUT); } -/**************************************************************************** - * - > $Function: handleIncoming() - * - * $Description: Handle an incoming http request. - * - ****************************************************************************/ -static void handleIncoming(void) +/* + * Handle an incoming http request and exit. + */ +static void handle_incoming_and_exit(const len_and_sockaddr *fromAddr) NORETURN; +static void handle_incoming_and_exit(const len_and_sockaddr *fromAddr) { - char *buf = config->buf; - char *url; - char *purl; - int blank = -1; - char *test; + static const char request_GET[] ALIGN1 = "GET"; struct stat sb; - int ip_allowed; + char *urlcopy; + char *urlp; + char *tptr; #if ENABLE_FEATURE_HTTPD_CGI - const char *prequest = request_GET; + static const char request_HEAD[] ALIGN1 = "HEAD"; + const char *prequest; + char *cookie = NULL; + char *content_type = NULL; + unsigned long length = 0; +#elif ENABLE_FEATURE_HTTPD_PROXY +#define prequest request_GET unsigned long length = 0; - char *cookie = 0; - char *content_type = 0; #endif - fd_set s_fd; - struct timeval tv; - int retval; - struct sigaction sa; - #if ENABLE_FEATURE_HTTPD_BASIC_AUTH - int credentials = -1; /* if not required this is Ok */ + smallint authorized = -1; +#endif + smallint ip_allowed; + char http_major_version; +#if ENABLE_FEATURE_HTTPD_PROXY + char http_minor_version; + char *header_buf = header_buf; /* for gcc */ + char *header_ptr = header_ptr; + Htaccess_Proxy *proxy_entry; #endif - sa.sa_handler = handle_sigalrm; - sigemptyset(&sa.sa_mask); - sa.sa_flags = 0; /* no SA_RESTART */ - sigaction(SIGALRM, &sa, NULL); + /* Allocation of iobuf is postponed until now + * (IOW, server process doesn't need to waste 8k) */ + iobuf = xmalloc(IOBUF_SIZE); - do { - int count; + rmt_ip = 0; + if (fromAddr->u.sa.sa_family == AF_INET) { + rmt_ip = ntohl(fromAddr->u.sin.sin_addr.s_addr); + } +#if ENABLE_FEATURE_IPV6 + if (fromAddr->u.sa.sa_family == AF_INET6 + && fromAddr->u.sin6.sin6_addr.s6_addr32[0] == 0 + && fromAddr->u.sin6.sin6_addr.s6_addr32[1] == 0 + && ntohl(fromAddr->u.sin6.sin6_addr.s6_addr32[2]) == 0xffff) + rmt_ip = ntohl(fromAddr->u.sin6.sin6_addr.s6_addr32[3]); +#endif + if (ENABLE_FEATURE_HTTPD_CGI || DEBUG || verbose) { + /* NB: can be NULL (user runs httpd -i by hand?) */ + rmt_ip_str = xmalloc_sockaddr2dotted(&fromAddr->u.sa); + } + if (verbose) { + /* this trick makes -v logging much simpler */ + if (rmt_ip_str) + applet_name = rmt_ip_str; + if (verbose > 2) + bb_error_msg("connected"); + } - (void) alarm(TIMEOUT); - if (getLine() <= 0) - break; /* closed */ + /* Install timeout handler. get_line() needs it. */ + signal(SIGALRM, send_REQUEST_TIMEOUT_and_exit); - purl = strpbrk(buf, " \t"); - if (purl == NULL) { - BAD_REQUEST: - sendHeaders(HTTP_BAD_REQUEST); - break; - } - *purl = '\0'; + if (!get_line()) /* EOF or error or empty line */ + send_headers_and_exit(HTTP_BAD_REQUEST); + + /* Determine type of request (GET/POST) */ + // rfc2616: method and URI is separated by exactly one space + //urlp = strpbrk(iobuf, " \t"); - no, tab isn't allowed + urlp = strchr(iobuf, ' '); + if (urlp == NULL) + send_headers_and_exit(HTTP_BAD_REQUEST); + *urlp++ = '\0'; #if ENABLE_FEATURE_HTTPD_CGI - if (strcasecmp(buf, prequest) != 0) { + prequest = request_GET; + if (strcasecmp(iobuf, prequest) != 0) { + prequest = request_HEAD; + if (strcasecmp(iobuf, prequest) != 0) { prequest = "POST"; - if (strcasecmp(buf, prequest) != 0) { - sendHeaders(HTTP_NOT_IMPLEMENTED); - break; - } + if (strcasecmp(iobuf, prequest) != 0) + send_headers_and_exit(HTTP_NOT_IMPLEMENTED); } + } #else - if (strcasecmp(buf, request_GET) != 0) { - sendHeaders(HTTP_NOT_IMPLEMENTED); - break; - } + if (strcasecmp(iobuf, request_GET) != 0) + send_headers_and_exit(HTTP_NOT_IMPLEMENTED); #endif - *purl = ' '; - count = sscanf(purl, " %[^ ] HTTP/%d.%*d", buf, &blank); + // rfc2616: method and URI is separated by exactly one space + //urlp = skip_whitespace(urlp); - should not be necessary + if (urlp[0] != '/') + send_headers_and_exit(HTTP_BAD_REQUEST); + + /* Find end of URL and parse HTTP version, if any */ + http_major_version = '0'; + IF_FEATURE_HTTPD_PROXY(http_minor_version = '0';) + tptr = strchrnul(urlp, ' '); + /* Is it " HTTP/"? */ + if (tptr[0] && strncmp(tptr + 1, HTTP_200, 5) == 0) { + http_major_version = tptr[6]; + IF_FEATURE_HTTPD_PROXY(http_minor_version = tptr[8];) + } + *tptr = '\0'; + + /* Copy URL from after "GET "/"POST " to stack-allocated char[] */ + urlcopy = alloca((tptr - urlp) + 2 + strlen(index_page)); + /*if (urlcopy == NULL) + * send_headers_and_exit(HTTP_INTERNAL_SERVER_ERROR);*/ + strcpy(urlcopy, urlp); + /* NB: urlcopy ptr is never changed after this */ + + /* Extract url args if present */ + /* g_query = NULL; - already is */ + tptr = strchr(urlcopy, '?'); + if (tptr) { + *tptr++ = '\0'; + g_query = tptr; + } - if (count < 1 || buf[0] != '/') { - /* Garbled request/URL */ - goto BAD_REQUEST; + /* Decode URL escape sequences */ + tptr = percent_decode_in_place(urlcopy, /*strict:*/ 1); + if (tptr == NULL) + send_headers_and_exit(HTTP_BAD_REQUEST); + if (tptr == urlcopy + 1) { + /* '/' or NUL is encoded */ + send_headers_and_exit(HTTP_NOT_FOUND); + } + + /* Canonicalize path */ + /* Algorithm stolen from libbb bb_simplify_path(), + * but don't strdup, retain trailing slash, protect root */ + urlp = tptr = urlcopy; + for (;;) { + if (*urlp == '/') { + /* skip duplicate (or initial) slash */ + if (*tptr == '/') { + goto next_char; + } + if (*tptr == '.') { + if (tptr[1] == '.' && (tptr[2] == '/' || tptr[2] == '\0')) { + /* "..": be careful */ + /* protect root */ + if (urlp == urlcopy) + send_headers_and_exit(HTTP_BAD_REQUEST); + /* omit previous dir */ + while (*--urlp != '/') + continue; + /* skip to "./" or "." */ + tptr++; + } + if (tptr[1] == '/' || tptr[1] == '\0') { + /* skip extra "/./" */ + goto next_char; + } + } } - url = alloca(strlen(buf) + sizeof("/index.html")); - if (url == NULL) { - sendHeaders(HTTP_INTERNAL_SERVER_ERROR); + *++urlp = *tptr; + if (*urlp == '\0') break; + next_char: + tptr++; + } + + /* If URL is a directory, add '/' */ + if (urlp[-1] != '/') { + if (is_directory(urlcopy + 1, /*followlinks:*/ 1)) { + found_moved_temporarily = urlcopy; } - strcpy(url, buf); - /* extract url args if present */ - test = strchr(url, '?'); - config->query = NULL; - if (test) { - *test++ = '\0'; - config->query = test; - } + } - test = decodeString(url, 0); - if (test == NULL) - goto BAD_REQUEST; - /* FIXME: bug? should be "url+1"? */ - if (test == (buf+1)) { - sendHeaders(HTTP_NOT_FOUND); - break; + /* Log it */ + if (verbose > 1) + bb_error_msg("url:%s", urlcopy); + + tptr = urlcopy; + ip_allowed = checkPermIP(); + while (ip_allowed && (tptr = strchr(tptr + 1, '/')) != NULL) { + /* have path1/path2 */ + *tptr = '\0'; + if (is_directory(urlcopy + 1, /*followlinks:*/ 1)) { + /* may have subdir config */ + parse_conf(urlcopy + 1, SUBDIR_PARSE); + ip_allowed = checkPermIP(); } + *tptr = '/'; + } - /* algorithm stolen from libbb bb_simplify_path(), - but don't strdup and reducing trailing slash and protect out root */ - purl = test = url; - do { - if (*purl == '/') { - /* skip duplicate (or initial) slash */ - if (*test == '/') { - continue; - } - if (*test == '.') { - /* skip extra '.' */ - if (test[1] == '/' || test[1] == 0) { - continue; - } else - /* '..': be careful */ - if (test[1] == '.' && (test[2] == '/' || test[2] == 0)) { - ++test; - if (purl == url) { - /* protect out root */ - goto BAD_REQUEST; - } - while (*--purl != '/') /* omit previous dir */; - continue; - } +#if ENABLE_FEATURE_HTTPD_PROXY + proxy_entry = find_proxy_entry(urlcopy); + if (proxy_entry) + header_buf = header_ptr = xmalloc(IOBUF_SIZE); +#endif + + if (http_major_version >= '0') { + /* Request was with "... HTTP/nXXX", and n >= 0 */ + + /* Read until blank line */ + while (1) { + if (!get_line()) + break; /* EOF or error or empty line */ + if (DEBUG) + bb_error_msg("header: '%s'", iobuf); + +#if ENABLE_FEATURE_HTTPD_PROXY + /* We need 2 more bytes for yet another "\r\n" - + * see near fdprintf(proxy_fd...) further below */ + if (proxy_entry && (header_ptr - header_buf) < IOBUF_SIZE - 4) { + int len = strnlen(iobuf, IOBUF_SIZE - (header_ptr - header_buf) - 4); + memcpy(header_ptr, iobuf, len); + header_ptr += len; + header_ptr[0] = '\r'; + header_ptr[1] = '\n'; + header_ptr += 2; + } +#endif + +#if ENABLE_FEATURE_HTTPD_CGI || ENABLE_FEATURE_HTTPD_PROXY + /* Try and do our best to parse more lines */ + if ((STRNCASECMP(iobuf, "Content-Length:") == 0)) { + /* extra read only for POST */ + if (prequest != request_GET +# if ENABLE_FEATURE_HTTPD_CGI + && prequest != request_HEAD +# endif + ) { + tptr = skip_whitespace(iobuf + sizeof("Content-Length:") - 1); + if (!tptr[0]) + send_headers_and_exit(HTTP_BAD_REQUEST); + /* not using strtoul: it ignores leading minus! */ + length = bb_strtou(tptr, NULL, 10); + /* length is "ulong", but we need to pass it to int later */ + if (errno || length > INT_MAX) + send_headers_and_exit(HTTP_BAD_REQUEST); } } - *++purl = *test; - } while (*++test); - *++purl = '\0'; /* so keep last character */ - test = purl; /* end ptr */ - - /* If URL is directory, adding '/' */ - if (test[-1] != '/') { - if (is_directory(url + 1, 1, &sb)) { - config->found_moved_temporarily = url; +#endif +#if ENABLE_FEATURE_HTTPD_CGI + else if (STRNCASECMP(iobuf, "Cookie:") == 0) { + if (!cookie) /* in case they send millions of these, do not OOM */ + cookie = xstrdup(skip_whitespace(iobuf + sizeof("Cookie:")-1)); + } else if (STRNCASECMP(iobuf, "Content-Type:") == 0) { + if (!content_type) + content_type = xstrdup(skip_whitespace(iobuf + sizeof("Content-Type:")-1)); + } else if (STRNCASECMP(iobuf, "Referer:") == 0) { + if (!G.referer) + G.referer = xstrdup(skip_whitespace(iobuf + sizeof("Referer:")-1)); + } else if (STRNCASECMP(iobuf, "User-Agent:") == 0) { + if (!G.user_agent) + G.user_agent = xstrdup(skip_whitespace(iobuf + sizeof("User-Agent:")-1)); + } else if (STRNCASECMP(iobuf, "Host:") == 0) { + if (!G.host) + G.host = xstrdup(skip_whitespace(iobuf + sizeof("Host:")-1)); + } else if (STRNCASECMP(iobuf, "Accept:") == 0) { + if (!G.http_accept) + G.http_accept = xstrdup(skip_whitespace(iobuf + sizeof("Accept:")-1)); + } else if (STRNCASECMP(iobuf, "Accept-Language:") == 0) { + if (!G.http_accept_language) + G.http_accept_language = xstrdup(skip_whitespace(iobuf + sizeof("Accept-Language:")-1)); } - } - if (DEBUG) - fprintf(stderr, "url='%s', args=%s\n", url, config->query); - - test = url; - ip_allowed = checkPermIP(); - while (ip_allowed && (test = strchr(test + 1, '/')) != NULL) { - /* have path1/path2 */ - *test = '\0'; - if (is_directory(url + 1, 1, &sb)) { - /* may be having subdir config */ - parse_conf(url + 1, SUBDIR_PARSE); - ip_allowed = checkPermIP(); +#endif +#if ENABLE_FEATURE_HTTPD_BASIC_AUTH + if (STRNCASECMP(iobuf, "Authorization:") == 0) { + /* We only allow Basic credentials. + * It shows up as "Authorization: Basic :" where + * ":" is base64 encoded. + */ + tptr = skip_whitespace(iobuf + sizeof("Authorization:")-1); + if (STRNCASECMP(tptr, "Basic") != 0) + continue; + tptr += sizeof("Basic")-1; + /* decodeBase64() skips whitespace itself */ + decodeBase64(tptr); + authorized = check_user_passwd(urlcopy, tptr); } - *test = '/'; - } - if (blank >= 0) { - /* read until blank line for HTTP version specified, else parse immediate */ - while (1) { - alarm(TIMEOUT); - count = getLine(); - if (count <= 0) - break; - - if (DEBUG) - fprintf(stderr, "header: '%s'\n", buf); - -#if ENABLE_FEATURE_HTTPD_CGI - /* try and do our best to parse more lines */ - if ((STRNCASECMP(buf, "Content-length:") == 0)) { - /* extra read only for POST */ - if (prequest != request_GET) { - test = buf + sizeof("Content-length:")-1; - if (!test[0]) goto bail_out; - errno = 0; - /* not using strtoul: it ignores leading munis! */ - length = strtol(test, &test, 10); - /* length is "ulong", but we need to pass it to int later */ - /* so we check for negative or too large values in one go: */ - /* (long -> ulong conv caused negatives to be seen as > INT_MAX) */ - if (test[0] || errno || length > INT_MAX) - goto bail_out; +#endif +#if ENABLE_FEATURE_HTTPD_RANGES + if (STRNCASECMP(iobuf, "Range:") == 0) { + /* We know only bytes=NNN-[MMM] */ + char *s = skip_whitespace(iobuf + sizeof("Range:")-1); + if (is_prefixed_with(s, "bytes=") == 0) { + s += sizeof("bytes=")-1; + range_start = BB_STRTOOFF(s, &s, 10); + if (s[0] != '-' || range_start < 0) { + range_start = -1; + } else if (s[1]) { + range_end = BB_STRTOOFF(s+1, NULL, 10); + if (errno || range_end < range_start) + range_start = -1; } - } else if ((STRNCASECMP(buf, "Cookie:") == 0)) { - cookie = strdup(skip_whitespace(buf + sizeof("Cookie:")-1)); - } else if ((STRNCASECMP(buf, "Content-Type:") == 0)) { - content_type = strdup(skip_whitespace(buf + sizeof("Content-Type:")-1)); - } else if ((STRNCASECMP(buf, "Referer:") == 0)) { - config->referer = strdup(skip_whitespace(buf + sizeof("Referer:")-1)); } + } #endif - -#if ENABLE_FEATURE_HTTPD_BASIC_AUTH - if (STRNCASECMP(buf, "Authorization:") == 0) { - /* We only allow Basic credentials. - * It shows up as "Authorization: Basic " where - * the userid:password is base64 encoded. - */ - test = skip_whitespace(buf + sizeof("Authorization:")-1); - if (STRNCASECMP(test, "Basic") != 0) - continue; - test += sizeof("Basic")-1; - /* decodeBase64() skips whitespace itself */ - decodeBase64(test); - credentials = checkPerm(url, test); +#if ENABLE_FEATURE_HTTPD_GZIP + if (STRNCASECMP(iobuf, "Accept-Encoding:") == 0) { + /* Note: we do not support "gzip;q=0" + * method of _disabling_ gzip + * delivery. No one uses that, though */ + const char *s = strstr(iobuf, "gzip"); + if (s) { + // want more thorough checks? + //if (s[-1] == ' ' + // || s[-1] == ',' + // || s[-1] == ':' + //) { + content_gzip = 1; + //} } -#endif /* FEATURE_HTTPD_BASIC_AUTH */ + } +#endif + } /* while extra header reading */ + } - } /* while extra header reading */ - } - alarm(0); - if (config->alarm_signaled) - break; + /* We are done reading headers, disable peer timeout */ + alarm(0); - if (strcmp(strrchr(url, '/') + 1, httpd_conf) == 0 || ip_allowed == 0) { - /* protect listing [/path]/httpd_conf or IP deny */ -#if ENABLE_FEATURE_HTTPD_CGI - FORBIDDEN: /* protect listing /cgi-bin */ -#endif - sendHeaders(HTTP_FORBIDDEN); - break; - } + if (strcmp(bb_basename(urlcopy), HTTPD_CONF) == 0 || !ip_allowed) { + /* protect listing [/path]/httpd.conf or IP deny */ + send_headers_and_exit(HTTP_FORBIDDEN); + } #if ENABLE_FEATURE_HTTPD_BASIC_AUTH - if (credentials <= 0 && checkPerm(url, ":") == 0) { - sendHeaders(HTTP_UNAUTHORIZED); - break; - } + /* Case: no "Authorization:" was seen, but page might require passwd. + * Check that with dummy user:pass */ + if (authorized < 0) + authorized = check_user_passwd(urlcopy, (char *) ""); + if (!authorized) + send_headers_and_exit(HTTP_UNAUTHORIZED); #endif - if (config->found_moved_temporarily) { - sendHeaders(HTTP_MOVED_TEMPORARILY); - /* clear unforked memory flag */ - config->found_moved_temporarily = NULL; - break; - } + if (found_moved_temporarily) { + send_headers_and_exit(HTTP_MOVED_TEMPORARILY); + } + +#if ENABLE_FEATURE_HTTPD_PROXY + if (proxy_entry != NULL) { + int proxy_fd; + len_and_sockaddr *lsa; + + lsa = host2sockaddr(proxy_entry->host_port, 80); + if (lsa == NULL) + send_headers_and_exit(HTTP_INTERNAL_SERVER_ERROR); + proxy_fd = socket(lsa->u.sa.sa_family, SOCK_STREAM, 0); + if (proxy_fd < 0) + send_headers_and_exit(HTTP_INTERNAL_SERVER_ERROR); + if (connect(proxy_fd, &lsa->u.sa, lsa->len) < 0) + send_headers_and_exit(HTTP_INTERNAL_SERVER_ERROR); + fdprintf(proxy_fd, "%s %s%s%s%s HTTP/%c.%c\r\n", + prequest, /* GET or POST */ + proxy_entry->url_to, /* url part 1 */ + urlcopy + strlen(proxy_entry->url_from), /* url part 2 */ + (g_query ? "?" : ""), /* "?" (maybe) */ + (g_query ? g_query : ""), /* query string (maybe) */ + http_major_version, http_minor_version); + header_ptr[0] = '\r'; + header_ptr[1] = '\n'; + header_ptr += 2; + write(proxy_fd, header_buf, header_ptr - header_buf); + free(header_buf); /* on the order of 8k, free it */ + cgi_io_loop_and_exit(proxy_fd, proxy_fd, length); + } +#endif - test = url + 1; /* skip first '/' */ + tptr = urlcopy + 1; /* skip first '/' */ #if ENABLE_FEATURE_HTTPD_CGI - if (strncmp(test, "cgi-bin", 7) == 0) { - if (test[7] == '/' && test[8] == 0) - goto FORBIDDEN; /* protect listing cgi-bin/ */ - sendCgi(url, prequest, length, cookie, content_type); - break; + if (is_prefixed_with(tptr, "cgi-bin/")) { + if (tptr[8] == '\0') { + /* protect listing "cgi-bin/" */ + send_headers_and_exit(HTTP_FORBIDDEN); } - if (prequest != request_GET) { - sendHeaders(HTTP_NOT_IMPLEMENTED); - break; - } -#endif /* FEATURE_HTTPD_CGI */ - if (purl[-1] == '/') - strcpy(purl, "index.html"); - if (stat(test, &sb) == 0) { - /* It's a dir URL and there is index.html */ - config->ContentLength = sb.st_size; - config->last_mod = sb.st_mtime; + send_cgi_and_exit(urlcopy, urlcopy, prequest, length, cookie, content_type); + } +#endif + + if (urlp[-1] == '/') { + /* When index_page string is appended to / URL, it overwrites + * the query string. If we fall back to call /cgi-bin/index.cgi, + * query string would be lost and not available to the CGI. + * Work around it by making a deep copy. + */ + if (ENABLE_FEATURE_HTTPD_CGI) + g_query = xstrdup(g_query); /* ok for NULL too */ + strcpy(urlp, index_page); + } + if (stat(tptr, &sb) == 0) { +#if ENABLE_FEATURE_HTTPD_CONFIG_WITH_SCRIPT_INTERPR + char *suffix = strrchr(tptr, '.'); + if (suffix) { + Htaccess *cur; + for (cur = script_i; cur; cur = cur->next) { + if (strcmp(cur->before_colon + 1, suffix) == 0) { + send_cgi_and_exit(urlcopy, urlcopy, prequest, length, cookie, content_type); + } + } } +#endif + file_size = sb.st_size; + last_mod = sb.st_mtime; + } #if ENABLE_FEATURE_HTTPD_CGI - else if (purl[-1] == '/') { - /* It's a dir URL and there is no index.html - * Try cgi-bin/index.cgi */ - if (access("/cgi-bin/index.cgi"+1, X_OK) == 0) { - purl[0] = '\0'; - config->query = url; - sendCgi("/cgi-bin/index.cgi", prequest, length, cookie, content_type); - break; - } + else if (urlp[-1] == '/') { + /* It's a dir URL and there is no index.html + * Try cgi-bin/index.cgi */ + if (access("/cgi-bin/index.cgi"+1, X_OK) == 0) { + urlp[0] = '\0'; /* remove index_page */ + send_cgi_and_exit("/cgi-bin/index.cgi", urlcopy, prequest, length, cookie, content_type); } -#endif /* FEATURE_HTTPD_CGI */ - sendFile(test); - config->ContentLength = -1; - } while (0); - - bail_out: + } + /* else fall through to send_file, it errors out if open fails: */ - if (DEBUG) - fprintf(stderr, "closing socket\n\n"); -#if ENABLE_FEATURE_HTTPD_CGI - free(cookie); - free(content_type); - free(config->referer); - config->referer = NULL; -# if ENABLE_FEATURE_HTTPD_BASIC_AUTH - free(config->remoteuser); - config->remoteuser = NULL; -# endif + if (prequest != request_GET && prequest != request_HEAD) { + /* POST for files does not make sense */ + send_headers_and_exit(HTTP_NOT_IMPLEMENTED); + } + send_file_and_exit(tptr, + (prequest != request_HEAD ? SEND_HEADERS_AND_BODY : SEND_HEADERS) + ); +#else + send_file_and_exit(tptr, SEND_HEADERS_AND_BODY); #endif - shutdown(config->accepted_socket, SHUT_WR); +} - /* Properly wait for remote to closed */ - FD_ZERO(&s_fd); - FD_SET(config->accepted_socket, &s_fd); +/* + * The main http server function. + * Given a socket, listen for new connections and farm out + * the processing as a [v]forked process. + * Never returns. + */ +#if BB_MMU +static void mini_httpd(int server_socket) NORETURN; +static void mini_httpd(int server_socket) +{ + /* NB: it's best to not use xfuncs in this loop before fork(). + * Otherwise server may die on transient errors (temporary + * out-of-memory condition, etc), which is Bad(tm). + * Try to do any dangerous calls after fork. + */ + while (1) { + int n; + len_and_sockaddr fromAddr; - do { - tv.tv_sec = 2; - tv.tv_usec = 0; - retval = select(config->accepted_socket + 1, &s_fd, NULL, NULL, &tv); - } while (retval > 0 && read(config->accepted_socket, buf, sizeof(config->buf) > 0)); + /* Wait for connections... */ + fromAddr.len = LSA_SIZEOF_SA; + n = accept(server_socket, &fromAddr.u.sa, &fromAddr.len); + if (n < 0) + continue; - shutdown(config->accepted_socket, SHUT_RD); - /* In inetd case, we close fd 1 (stdout) here. We will exit soon anyway */ - close(config->accepted_socket); -} + /* set the KEEPALIVE option to cull dead connections */ + setsockopt_keepalive(n); -/**************************************************************************** - * - > $Function: miniHttpd() - * - * $Description: The main http server function. - * - * Given an open socket fildes, listen for new connections and farm out - * the processing as a forked process. - * - * $Parameters: - * (int) server. . . The server socket fildes. - * - * $Return: (int) . . . . Always 0. - * - ****************************************************************************/ -static int miniHttpd(int server) + if (fork() == 0) { + /* child */ + /* Do not reload config on HUP */ + signal(SIGHUP, SIG_IGN); + close(server_socket); + xmove_fd(n, 0); + xdup2(0, 1); + + handle_incoming_and_exit(&fromAddr); + } + /* parent, or fork failed */ + close(n); + } /* while (1) */ + /* never reached */ +} +#else +static void mini_httpd_nommu(int server_socket, int argc, char **argv) NORETURN; +static void mini_httpd_nommu(int server_socket, int argc, char **argv) { - fd_set readfd, portfd; + char *argv_copy[argc + 2]; - FD_ZERO(&portfd); - FD_SET(server, &portfd); + argv_copy[0] = argv[0]; + argv_copy[1] = (char*)"-i"; + memcpy(&argv_copy[2], &argv[1], argc * sizeof(argv[0])); - /* copy the ports we are watching to the readfd set */ + /* NB: it's best to not use xfuncs in this loop before vfork(). + * Otherwise server may die on transient errors (temporary + * out-of-memory condition, etc), which is Bad(tm). + * Try to do any dangerous calls after fork. + */ while (1) { - int on, s; - socklen_t fromAddrLen; - struct sockaddr_in fromAddr; + int n; + len_and_sockaddr fromAddr; - /* Now wait INDEFINITELY on the set of sockets! */ - readfd = portfd; - if (select(server + 1, &readfd, 0, 0, 0) <= 0) + /* Wait for connections... */ + fromAddr.len = LSA_SIZEOF_SA; + n = accept(server_socket, &fromAddr.u.sa, &fromAddr.len); + if (n < 0) continue; - if (!FD_ISSET(server, &readfd)) - continue; - fromAddrLen = sizeof(fromAddr); - s = accept(server, (struct sockaddr *)&fromAddr, &fromAddrLen); - if (s < 0) - continue; - config->accepted_socket = s; - config->rmt_ip = ntohl(fromAddr.sin_addr.s_addr); -#if ENABLE_FEATURE_HTTPD_CGI || DEBUG - sprintf(config->rmt_ip_str, "%u.%u.%u.%u", - (unsigned char)(config->rmt_ip >> 24), - (unsigned char)(config->rmt_ip >> 16), - (unsigned char)(config->rmt_ip >> 8), - config->rmt_ip & 0xff); - config->port = ntohs(fromAddr.sin_port); -#if DEBUG - bb_error_msg("connection from IP=%s, port %u", - config->rmt_ip_str, config->port); -#endif -#endif /* FEATURE_HTTPD_CGI */ /* set the KEEPALIVE option to cull dead connections */ - on = 1; - setsockopt(s, SOL_SOCKET, SO_KEEPALIVE, (void *)&on, sizeof(on)); + setsockopt_keepalive(n); - if (DEBUG || fork() == 0) { + if (vfork() == 0) { /* child */ -#if ENABLE_FEATURE_HTTPD_RELOAD_CONFIG_SIGHUP - /* protect reload config, may be confuse checking */ + /* Do not reload config on HUP */ signal(SIGHUP, SIG_IGN); -#endif - handleIncoming(); - if (!DEBUG) - exit(0); + close(server_socket); + xmove_fd(n, 0); + xdup2(0, 1); + + /* Run a copy of ourself in inetd mode */ + re_exec(argv_copy); } - close(s); + argv_copy[0][0] &= 0x7f; + /* parent, or vfork failed */ + close(n); } /* while (1) */ - return 0; + /* never reached */ } +#endif -/* from inetd */ -static int miniHttpd_inetd(void) +/* + * Process a HTTP connection on stdin/out. + * Never returns. + */ +static void mini_httpd_inetd(void) NORETURN; +static void mini_httpd_inetd(void) { - struct sockaddr_in fromAddrLen; - socklen_t sinlen = sizeof(struct sockaddr_in); + len_and_sockaddr fromAddr; - getpeername(0, (struct sockaddr *)&fromAddrLen, &sinlen); - config->rmt_ip = ntohl(fromAddrLen.sin_addr.s_addr); -#if ENABLE_FEATURE_HTTPD_CGI - sprintf(config->rmt_ip_str, "%u.%u.%u.%u", - (unsigned char)(config->rmt_ip >> 24), - (unsigned char)(config->rmt_ip >> 16), - (unsigned char)(config->rmt_ip >> 8), - config->rmt_ip & 0xff); -#endif - config->port = ntohs(fromAddrLen.sin_port); - handleIncoming(); - return 0; + memset(&fromAddr, 0, sizeof(fromAddr)); + fromAddr.len = LSA_SIZEOF_SA; + /* NB: can fail if user runs it by hand and types in http cmds */ + getpeername(0, &fromAddr.u.sa, &fromAddr.len); + handle_incoming_and_exit(&fromAddr); } -#if ENABLE_FEATURE_HTTPD_RELOAD_CONFIG_SIGHUP -static void sighup_handler(int sig) +static void sighup_handler(int sig UNUSED_PARAM) { - /* set and reset */ - struct sigaction sa; - - parse_conf(default_path_httpd_conf, sig == SIGHUP ? SIGNALED_PARSE : FIRST_PARSE); - sa.sa_handler = sighup_handler; - sigemptyset(&sa.sa_mask); - sa.sa_flags = SA_RESTART; - sigaction(SIGHUP, &sa, NULL); + parse_conf(DEFAULT_PATH_HTTPD_CONF, SIGNALED_PARSE); } -#endif enum { c_opt_config_file = 0, d_opt_decode_url, h_opt_home_httpd, - USE_FEATURE_HTTPD_ENCODE_URL_STR(e_opt_encode_url,) - USE_FEATURE_HTTPD_BASIC_AUTH( r_opt_realm ,) - USE_FEATURE_HTTPD_AUTH_MD5( m_opt_md5 ,) - USE_FEATURE_HTTPD_SETUID( u_opt_setuid ,) + IF_FEATURE_HTTPD_ENCODE_URL_STR(e_opt_encode_url,) + IF_FEATURE_HTTPD_BASIC_AUTH( r_opt_realm ,) + IF_FEATURE_HTTPD_AUTH_MD5( m_opt_md5 ,) + IF_FEATURE_HTTPD_SETUID( u_opt_setuid ,) p_opt_port , p_opt_inetd , p_opt_foreground, + p_opt_verbose , OPT_CONFIG_FILE = 1 << c_opt_config_file, OPT_DECODE_URL = 1 << d_opt_decode_url, OPT_HOME_HTTPD = 1 << h_opt_home_httpd, - OPT_ENCODE_URL = USE_FEATURE_HTTPD_ENCODE_URL_STR((1 << e_opt_encode_url)) + 0, - OPT_REALM = USE_FEATURE_HTTPD_BASIC_AUTH( (1 << r_opt_realm )) + 0, - OPT_MD5 = USE_FEATURE_HTTPD_AUTH_MD5( (1 << m_opt_md5 )) + 0, - OPT_SETUID = USE_FEATURE_HTTPD_SETUID( (1 << u_opt_setuid )) + 0, + OPT_ENCODE_URL = IF_FEATURE_HTTPD_ENCODE_URL_STR((1 << e_opt_encode_url)) + 0, + OPT_REALM = IF_FEATURE_HTTPD_BASIC_AUTH( (1 << r_opt_realm )) + 0, + OPT_MD5 = IF_FEATURE_HTTPD_AUTH_MD5( (1 << m_opt_md5 )) + 0, + OPT_SETUID = IF_FEATURE_HTTPD_SETUID( (1 << u_opt_setuid )) + 0, OPT_PORT = 1 << p_opt_port, OPT_INETD = 1 << p_opt_inetd, OPT_FOREGROUND = 1 << p_opt_foreground, + OPT_VERBOSE = 1 << p_opt_verbose, }; -static const char httpd_opts[] = "c:d:h:" - USE_FEATURE_HTTPD_ENCODE_URL_STR("e:") - USE_FEATURE_HTTPD_BASIC_AUTH("r:") - USE_FEATURE_HTTPD_AUTH_MD5("m:") - USE_FEATURE_HTTPD_SETUID("u:") - "p:if"; - -int httpd_main(int argc, char *argv[]) +int httpd_main(int argc, char **argv) MAIN_EXTERNALLY_VISIBLE; +int httpd_main(int argc UNUSED_PARAM, char **argv) { + int server_socket = server_socket; /* for gcc */ unsigned opt; - const char *home_httpd = home; char *url_for_decode; - USE_FEATURE_HTTPD_ENCODE_URL_STR(const char *url_for_encode;) - const char *s_port; - USE_FEATURE_HTTPD_SETUID(const char *s_ugid = NULL;) - USE_FEATURE_HTTPD_SETUID(struct bb_uidgid_t ugid;) - USE_FEATURE_HTTPD_AUTH_MD5(const char *pass;) + IF_FEATURE_HTTPD_ENCODE_URL_STR(const char *url_for_encode;) + IF_FEATURE_HTTPD_SETUID(const char *s_ugid = NULL;) + IF_FEATURE_HTTPD_SETUID(struct bb_uidgid_t ugid;) + IF_FEATURE_HTTPD_AUTH_MD5(const char *pass;) + + INIT_G(); #if ENABLE_LOCALE_SUPPORT /* Undo busybox.c: we want to speak English in http (dates etc) */ setlocale(LC_TIME, "C"); #endif - config = xzalloc(sizeof(*config)); -#if ENABLE_FEATURE_HTTPD_BASIC_AUTH - config->realm = "Web Server Authentication"; -#endif - config->port = 80; - config->ContentLength = -1; - - opt = getopt32(argc, argv, httpd_opts, - &(config->configFile), &url_for_decode, &home_httpd - USE_FEATURE_HTTPD_ENCODE_URL_STR(, &url_for_encode) - USE_FEATURE_HTTPD_BASIC_AUTH(, &(config->realm)) - USE_FEATURE_HTTPD_AUTH_MD5(, &pass) - USE_FEATURE_HTTPD_SETUID(, &s_ugid) - , &s_port + home_httpd = xrealloc_getcwd_or_warn(NULL); + /* -v counts, -i implies -f */ + opt_complementary = "vv:if"; + /* We do not "absolutize" path given by -h (home) opt. + * If user gives relative path in -h, + * $SCRIPT_FILENAME will not be set. */ + opt = getopt32(argv, "c:d:h:" + IF_FEATURE_HTTPD_ENCODE_URL_STR("e:") + IF_FEATURE_HTTPD_BASIC_AUTH("r:") + IF_FEATURE_HTTPD_AUTH_MD5("m:") + IF_FEATURE_HTTPD_SETUID("u:") + "p:ifv", + &opt_c_configFile, &url_for_decode, &home_httpd + IF_FEATURE_HTTPD_ENCODE_URL_STR(, &url_for_encode) + IF_FEATURE_HTTPD_BASIC_AUTH(, &g_realm) + IF_FEATURE_HTTPD_AUTH_MD5(, &pass) + IF_FEATURE_HTTPD_SETUID(, &s_ugid) + , &bind_addr_or_port + , &verbose ); if (opt & OPT_DECODE_URL) { - printf("%s", decodeString(url_for_decode, 1)); + fputs(percent_decode_in_place(url_for_decode, /*strict:*/ 0), stdout); return 0; } #if ENABLE_FEATURE_HTTPD_ENCODE_URL_STR if (opt & OPT_ENCODE_URL) { - printf("%s", encodeString(url_for_encode)); + fputs(encodeString(url_for_encode), stdout); return 0; } #endif #if ENABLE_FEATURE_HTTPD_AUTH_MD5 if (opt & OPT_MD5) { - puts(pw_encrypt(pass, "$1$")); + char salt[sizeof("$1$XXXXXXXX")]; + salt[0] = '$'; + salt[1] = '1'; + salt[2] = '$'; + crypt_make_salt(salt + 3, 4); + puts(pw_encrypt(pass, salt, /*cleanup:*/ 0)); return 0; } #endif - if (opt & OPT_PORT) - config->port = xatou16(s_port); - #if ENABLE_FEATURE_HTTPD_SETUID if (opt & OPT_SETUID) { - char *e; - // FIXME: what the default group should be? - ugid.gid = -1; - ugid.uid = strtoul(s_ugid, &e, 0); - if (*e == ':') { - e++; - ugid.gid = strtoul(e, &e, 0); - } - if (*e != '\0') { - /* not integer */ - if (!uidgid_get(&ugid, s_ugid)) - bb_error_msg_and_die("unrecognized user[:group] " - "name '%s'", s_ugid); - } + xget_uidgid(&ugid, s_ugid); + } +#endif + +#if !BB_MMU + if (!(opt & OPT_FOREGROUND)) { + bb_daemonize_or_rexec(0, argv); /* don't change current directory */ } #endif xchdir(home_httpd); if (!(opt & OPT_INETD)) { - config->server_socket = openServer(); + signal(SIGCHLD, SIG_IGN); + server_socket = openServer(); #if ENABLE_FEATURE_HTTPD_SETUID /* drop privileges */ if (opt & OPT_SETUID) { if (ugid.gid != (gid_t)-1) { if (setgroups(1, &ugid.gid) == -1) - bb_perror_msg_and_die("setgroups"); + bb_perror_msg_and_die("setgroups"); xsetgid(ugid.gid); } xsetuid(ugid.uid); @@ -1928,30 +2705,37 @@ int httpd_main(int argc, char *argv[]) #endif } -#if ENABLE_FEATURE_HTTPD_CGI +#if 0 + /* User can do it himself: 'env - PATH="$PATH" httpd' + * We don't do it because we don't want to screw users + * which want to do + * 'env - VAR1=val1 VAR2=val2 httpd' + * and have VAR1 and VAR2 values visible in their CGIs. + * Besides, it is also smaller. */ { char *p = getenv("PATH"); - if (p) { - p = xstrdup(p); - } + /* env strings themself are not freed, no need to xstrdup(p): */ clearenv(); if (p) - setenv1("PATH", p); - if (!(opt & OPT_INETD)) - setenv_long("SERVER_PORT", config->port); + putenv(p - 5); +// if (!(opt & OPT_INETD)) +// setenv_long("SERVER_PORT", ???); } #endif -#if ENABLE_FEATURE_HTTPD_RELOAD_CONFIG_SIGHUP - sighup_handler(0); -#else - parse_conf(default_path_httpd_conf, FIRST_PARSE); -#endif + parse_conf(DEFAULT_PATH_HTTPD_CONF, FIRST_PARSE); + if (!(opt & OPT_INETD)) + signal(SIGHUP, sighup_handler); + xfunc_error_retval = 0; if (opt & OPT_INETD) - return miniHttpd_inetd(); - + mini_httpd_inetd(); +#if BB_MMU if (!(opt & OPT_FOREGROUND)) - xdaemon(1, 0); /* don't change current directory */ - return miniHttpd(config->server_socket); + bb_daemonize(0); /* don't change current directory */ + mini_httpd(server_socket); /* never returns */ +#else + mini_httpd_nommu(server_socket, argc, argv); /* never returns */ +#endif + /* return 0; */ }