0000: 2f 2a 0a 2a 2a 20 41 20 73 6d 61 6c 6c 2c 20 73 /*.** A small, s
0010: 69 6d 70 6c 65 20 48 54 54 50 20 73 65 72 76 65 imple HTTP serve
0020: 72 2e 0a 2a 2a 0a 2a 2a 20 46 65 61 74 75 72 65 r..**.** Feature
0030: 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 2a 20 4c s:.**.** * L
0040: 61 75 6e 63 68 65 64 20 66 72 6f 6d 20 69 6e 65 aunched from ine
0050: 74 64 0a 2a 2a 20 20 20 20 20 2a 20 4f 6e 65 20 td.** * One
0060: 70 72 6f 63 65 73 73 20 70 65 72 20 72 65 71 75 process per requ
0070: 65 73 74 0a 2a 2a 20 20 20 20 20 2a 20 44 65 6c est.** * Del
0080: 69 76 65 72 20 73 74 61 74 69 63 20 63 6f 6e 74 iver static cont
0090: 65 6e 74 20 6f 72 20 72 75 6e 20 43 47 49 0a 2a ent or run CGI.*
00a0: 2a 20 20 20 20 20 2a 20 56 69 72 74 75 61 6c 20 * * Virtual
00b0: 73 69 74 65 73 20 62 61 73 65 64 20 6f 6e 20 74 sites based on t
00c0: 68 65 20 22 48 6f 73 74 3a 22 20 70 72 6f 70 65 he "Host:" prope
00d0: 72 74 79 20 6f 66 20 74 68 65 20 48 54 54 50 20 rty of the HTTP
00e0: 68 65 61 64 65 72 0a 2a 2a 20 20 20 20 20 2a 20 header.** *
00f0: 56 65 72 79 20 73 6d 61 6c 6c 20 63 6f 64 65 20 Very small code
0100: 62 61 73 65 20 28 31 20 66 69 6c 65 29 20 74 6f base (1 file) to
0110: 20 66 61 63 69 6c 69 74 61 74 65 20 73 65 63 75 facilitate secu
0120: 72 69 74 79 20 61 75 64 69 74 69 6e 67 0a 2a 2a rity auditing.**
0130: 20 20 20 20 20 2a 20 53 69 6d 70 6c 65 20 73 65 * Simple se
0140: 74 75 70 20 2d 20 6e 6f 20 63 6f 6e 66 69 67 75 tup - no configu
0150: 72 61 74 69 6f 6e 20 66 69 6c 65 73 20 74 6f 20 ration files to
0160: 6d 65 73 73 20 77 69 74 68 2e 0a 2a 2a 20 0a 2a mess with..** .*
0170: 2a 20 54 68 69 73 20 66 69 6c 65 20 69 6d 70 6c * This file impl
0180: 65 6d 65 6e 74 73 20 61 20 73 6d 61 6c 6c 20 61 ements a small a
0190: 6e 64 20 73 69 6d 70 6c 65 20 62 75 74 20 73 65 nd simple but se
01a0: 63 75 72 65 20 61 6e 64 20 65 66 66 65 63 74 69 cure and effecti
01b0: 76 65 20 77 65 62 0a 2a 2a 20 73 65 72 76 65 72 ve web.** server
01c0: 2e 20 20 54 68 65 72 65 20 61 72 65 20 6e 6f 20 . There are no
01d0: 66 72 69 6c 6c 73 2e 20 20 41 6e 79 74 68 69 6e frills. Anythin
01e0: 67 20 74 68 61 74 20 63 6f 75 6c 64 20 62 65 20 g that could be
01f0: 72 65 61 73 6f 6e 61 62 6c 79 0a 2a 2a 20 6f 6d reasonably.** om
0200: 69 74 74 65 64 20 68 61 73 20 62 65 65 6e 2e 0a itted has been..
0210: 2a 2a 0a 2a 2a 20 53 65 74 75 70 20 72 75 6c 65 **.** Setup rule
0220: 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 28 31 29 20 s:.**.** (1)
0230: 4c 61 75 6e 63 68 20 61 73 20 72 6f 6f 74 20 66 Launch as root f
0240: 72 6f 6d 20 69 6e 65 74 64 20 6c 69 6b 65 20 74 rom inetd like t
0250: 68 69 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 his:.**.**
0260: 20 20 20 20 20 20 68 74 74 70 64 20 2d 6c 6f 67 httpd -log
0270: 66 69 6c 65 20 6c 6f 67 66 69 6c 65 20 2d 72 6f file logfile -ro
0280: 6f 74 20 2f 68 6f 6d 65 2f 77 77 77 20 2d 75 73 ot /home/www -us
0290: 65 72 20 6e 6f 62 6f 64 79 0a 2a 2a 0a 2a 2a 20 er nobody.**.**
02a0: 20 20 20 20 20 20 20 49 74 20 77 69 6c 6c 20 61 It will a
02b0: 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 63 68 72 utomatically chr
02c0: 6f 6f 74 20 74 6f 20 2f 68 6f 6d 65 2f 77 77 77 oot to /home/www
02d0: 20 61 6e 64 20 62 65 63 6f 6d 65 20 75 73 65 72 and become user
02e0: 20 6e 6f 62 6f 64 79 2e 0a 2a 2a 20 20 20 20 20 nobody..**
02f0: 20 20 20 54 68 65 20 6c 6f 67 66 69 6c 65 20 6e The logfile n
0300: 61 6d 65 20 73 68 6f 75 6c 64 20 62 65 20 72 65 ame should be re
0310: 6c 61 74 69 76 65 20 74 6f 20 74 68 65 20 63 68 lative to the ch
0320: 72 6f 6f 74 20 6a 61 69 6c 2e 0a 2a 2a 0a 2a 2a root jail..**.**
0330: 20 20 20 20 28 32 29 20 44 69 72 65 63 74 6f 72 (2) Director
0340: 69 65 73 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 ies of the form
0350: 22 2a 2e 77 65 62 73 69 74 65 22 20 28 65 78 3a "*.website" (ex:
0360: 20 77 77 77 5f 68 77 61 63 69 5f 63 6f 6d 2e 77 www_hwaci_com.w
0370: 65 62 73 69 74 65 29 0a 2a 2a 20 20 20 20 20 20 ebsite).**
0380: 20 20 63 6f 6e 74 61 69 6e 20 63 6f 6e 74 65 6e contain conten
0390: 74 2e 20 20 54 68 65 20 64 69 72 65 63 74 6f 72 t. The director
03a0: 79 20 69 73 20 63 68 6f 73 65 6e 20 62 61 73 65 y is chosen base
03b0: 64 20 6f 6e 20 48 4f 53 54 2e 20 20 49 66 20 6e d on HOST. If n
03c0: 6f 0a 2a 2a 20 20 20 20 20 20 20 20 48 4f 53 54 o.** HOST
03d0: 20 6f 72 20 74 68 65 20 68 6f 73 74 20 64 69 72 or the host dir
03e0: 65 63 74 6f 72 79 20 69 73 20 6e 6f 74 20 66 6f ectory is not fo
03f0: 75 6e 64 2c 20 22 64 65 66 61 75 6c 74 2e 77 65 und, "default.we
0400: 62 73 69 74 65 22 20 69 73 20 75 73 65 64 2e 0a bsite" is used..
0410: 2a 2a 0a 2a 2a 20 20 20 20 28 33 29 20 41 6e 79 **.** (3) Any
0420: 20 66 69 6c 65 20 6f 72 20 64 69 72 65 63 74 6f file or directo
0430: 72 79 20 77 68 6f 73 65 20 6e 61 6d 65 20 62 65 ry whose name be
0440: 67 69 6e 73 20 77 69 74 68 20 22 2e 22 20 6f 72 gins with "." or
0450: 20 22 2d 22 20 69 73 20 69 67 6e 6f 72 65 64 2e "-" is ignored.
0460: 0a 2a 2a 0a 2a 2a 20 20 20 20 28 34 29 20 43 68 .**.** (4) Ch
0470: 61 72 61 63 74 65 72 73 20 6f 74 68 65 72 20 74 aracters other t
0480: 68 61 6e 20 61 2d 7a 41 2d 5a 30 2d 39 5f 2e 2c han a-zA-Z0-9_.,
0490: 2a 7e 2f 20 69 6e 20 74 68 65 20 66 69 6c 65 6e *~/ in the filen
04a0: 61 6d 65 20 61 72 65 20 74 72 61 6e 73 6c 61 74 ame are translat
04b0: 65 64 0a 2a 2a 20 20 20 20 20 20 20 20 69 6e 74 ed.** int
04c0: 6f 20 5f 2e 20 20 54 68 69 73 20 69 73 20 61 20 o _. This is a
04d0: 64 65 66 65 6e 73 65 20 61 67 61 69 6e 73 74 20 defense against
04e0: 63 72 6f 73 73 2d 73 69 74 65 20 73 63 72 69 70 cross-site scrip
04f0: 74 69 6e 67 20 61 74 74 61 63 6b 73 20 61 6e 64 ting attacks and
0500: 0a 2a 2a 20 20 20 20 20 20 20 20 6f 74 68 65 72 .** other
0510: 20 6d 69 73 63 68 69 65 66 2e 0a 2a 2a 0a 2a 2a mischief..**.**
0520: 20 20 20 20 28 35 29 20 45 78 65 63 75 74 61 62 (5) Executab
0530: 6c 65 20 66 69 6c 65 73 20 61 72 65 20 72 75 6e le files are run
0540: 20 61 73 20 43 47 49 2e 20 20 41 6c 6c 20 6f 74 as CGI. All ot
0550: 68 65 72 20 66 69 6c 65 73 20 61 72 65 20 64 65 her files are de
0560: 6c 69 76 65 72 65 64 0a 2a 2a 20 20 20 20 20 20 livered.**
0570: 20 20 61 73 20 69 73 2e 0a 2a 2a 0a 2a 2a 20 20 as is..**.**
0580: 20 20 28 36 29 20 46 6f 72 20 53 53 4c 20 73 75 (6) For SSL su
0590: 70 70 6f 72 74 20 75 73 65 20 73 74 75 6e 6e 65 pport use stunne
05a0: 6c 20 61 6e 64 20 61 64 64 20 74 68 65 20 2d 68 l and add the -h
05b0: 74 74 70 73 20 31 20 6f 70 74 69 6f 6e 20 6f 6e ttps 1 option on
05c0: 20 74 68 65 0a 2a 2a 20 20 20 20 20 20 20 20 68 the.** h
05d0: 74 74 70 64 20 63 6f 6d 6d 61 6e 64 2d 6c 69 6e ttpd command-lin
05e0: 65 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 28 37 29 20 e..**.** (7)
05f0: 49 66 20 61 20 66 69 6c 65 20 6e 61 6d 65 64 20 If a file named
0600: 22 2d 61 75 74 68 22 20 65 78 69 73 74 73 20 69 "-auth" exists i
0610: 6e 20 74 68 65 20 73 61 6d 65 20 64 69 72 65 63 n the same direc
0620: 74 6f 72 79 20 61 73 20 66 69 6c 65 20 74 6f 0a tory as file to.
0630: 2a 2a 20 20 20 20 20 20 20 20 62 65 20 72 75 6e ** be run
0640: 20 61 73 20 43 47 49 20 6f 72 20 74 6f 20 62 65 as CGI or to be
0650: 20 64 65 6c 69 76 65 72 65 64 2c 20 74 68 65 6e delivered, then
0660: 20 69 74 20 63 6f 6e 74 61 69 6e 73 20 69 6e 66 it contains inf
0670: 6f 72 6d 61 74 69 6f 6e 0a 2a 2a 20 20 20 20 20 ormation.**
0680: 20 20 20 66 6f 72 20 48 54 54 50 20 42 61 73 69 for HTTP Basi
0690: 63 20 61 75 74 68 6f 72 69 7a 61 74 69 6f 6e 2e c authorization.
06a0: 20 20 53 65 65 20 66 69 6c 65 20 66 6f 72 6d 61 See file forma
06b0: 74 20 64 65 74 61 69 6c 73 20 62 65 6c 6f 77 2e t details below.
06c0: 0a 2a 2a 0a 2a 2a 0a 2a 2a 20 42 61 73 69 63 20 .**.**.** Basic
06d0: 41 75 74 68 6f 72 69 7a 61 74 69 6f 6e 3a 0a 2a Authorization:.*
06e0: 2a 0a 2a 2a 20 49 66 20 74 68 65 20 66 69 6c 65 *.** If the file
06f0: 20 22 2d 61 75 74 68 22 20 65 78 69 73 74 73 20 "-auth" exists
0700: 69 6e 20 74 68 65 20 73 61 6d 65 20 64 69 72 65 in the same dire
0710: 63 74 6f 72 79 20 61 73 20 74 68 65 20 63 6f 6e ctory as the con
0720: 74 65 6e 74 20 66 69 6c 65 0a 2a 2a 20 28 66 6f tent file.** (fo
0730: 72 20 62 6f 74 68 20 73 74 61 74 69 63 20 63 6f r both static co
0740: 6e 74 65 6e 74 20 61 6e 64 20 43 47 49 29 20 74 ntent and CGI) t
0750: 68 65 6e 20 69 74 20 63 6f 6e 74 61 69 6e 73 20 hen it contains
0760: 74 68 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 the information
0770: 75 73 65 64 0a 2a 2a 20 66 6f 72 20 62 61 73 69 used.** for basi
0780: 63 20 61 75 74 68 6f 72 69 7a 61 74 69 6f 6e 2e c authorization.
0790: 20 20 54 68 65 20 66 69 6c 65 20 66 6f 72 6d 61 The file forma
07a0: 74 20 69 73 20 61 73 20 66 6f 6c 6c 6f 77 73 3a t is as follows:
07b0: 0a 2a 2a 0a 2a 2a 20 20 20 20 2a 20 20 42 6c 61 .**.** * Bla
07c0: 6e 6b 20 6c 69 6e 65 73 20 61 6e 64 20 6c 69 6e nk lines and lin
07d0: 65 73 20 74 68 61 74 20 62 65 67 69 6e 20 77 69 es that begin wi
07e0: 74 68 20 27 23 27 20 61 72 65 20 69 67 6e 6f 72 th '#' are ignor
07f0: 65 64 0a 2a 2a 20 20 20 20 2a 20 20 22 68 74 74 ed.** * "htt
0800: 70 2d 72 65 64 69 72 65 63 74 22 20 66 6f 72 63 p-redirect" forc
0810: 65 73 20 61 20 72 65 64 69 72 65 63 74 20 74 6f es a redirect to
0820: 20 48 54 54 50 53 20 69 66 20 6e 6f 74 20 74 68 HTTPS if not th
0830: 65 72 65 20 61 6c 72 65 61 64 79 0a 2a 2a 20 20 ere already.**
0840: 20 20 2a 20 20 22 68 74 74 70 73 2d 6f 6e 6c 79 * "https-only
0850: 22 20 64 69 73 61 6c 6c 6f 77 73 20 6f 70 65 72 " disallows oper
0860: 61 74 69 6f 6e 20 69 6e 20 48 54 54 50 0a 2a 2a ation in HTTP.**
0870: 20 20 20 20 2a 20 20 22 75 73 65 72 20 4e 41 4d * "user NAM
0880: 45 20 4c 4f 47 49 4e 3a 50 41 53 53 57 4f 52 44 E LOGIN:PASSWORD
0890: 22 20 63 68 65 63 6b 73 20 74 6f 20 73 65 65 20 " checks to see
08a0: 69 66 20 4c 4f 47 49 4e 3a 50 41 53 53 57 4f 52 if LOGIN:PASSWOR
08b0: 44 20 0a 2a 2a 20 20 20 20 20 20 20 61 75 74 68 D .** auth
08c0: 6f 72 69 7a 61 74 69 6f 6e 20 63 72 65 64 65 6e orization creden
08d0: 74 69 61 6c 73 20 61 72 65 20 70 72 6f 76 69 64 tials are provid
08e0: 65 64 2c 20 61 6e 64 20 69 66 20 73 6f 20 73 65 ed, and if so se
08f0: 74 73 20 74 68 65 0a 2a 2a 20 20 20 20 20 20 20 ts the.**
0900: 52 45 4d 4f 54 45 5f 55 53 45 52 20 74 6f 20 4e REMOTE_USER to N
0910: 41 4d 45 2e 0a 2a 2a 20 20 20 20 2a 20 20 22 72 AME..** * "r
0920: 65 61 6c 6d 20 54 45 58 54 22 20 73 65 74 73 20 ealm TEXT" sets
0930: 74 68 65 20 72 65 61 6c 6d 20 74 6f 20 54 45 58 the realm to TEX
0940: 54 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 72 65 20 63 T..**.** There c
0950: 61 6e 20 62 65 20 6d 75 6c 74 69 70 6c 65 20 22 an be multiple "
0960: 75 73 65 72 22 20 6c 69 6e 65 73 2e 20 20 49 66 user" lines. If
0970: 20 6e 6f 20 22 75 73 65 72 22 20 6c 69 6e 65 20 no "user" line
0980: 6d 61 74 63 68 65 73 2c 20 74 68 65 0a 2a 2a 20 matches, the.**
0990: 72 65 71 75 65 73 74 20 66 61 69 6c 73 20 77 69 request fails wi
09a0: 74 68 20 61 20 34 30 31 20 65 72 72 6f 72 2e 0a th a 401 error..
09b0: 2a 2f 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 */.#include <std
09c0: 69 6f 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c io.h>.#include <
09d0: 63 74 79 70 65 2e 68 3e 0a 23 69 6e 63 6c 75 64 ctype.h>.#includ
09e0: 65 20 3c 73 79 73 6c 6f 67 2e 68 3e 0a 23 69 6e e <syslog.h>.#in
09f0: 63 6c 75 64 65 20 3c 73 74 64 6c 69 62 2e 68 3e clude <stdlib.h>
0a00: 0a 23 69 6e 63 6c 75 64 65 20 3c 73 79 73 2f 73 .#include <sys/s
0a10: 74 61 74 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 tat.h>.#include
0a20: 3c 75 6e 69 73 74 64 2e 68 3e 0a 23 69 6e 63 6c <unistd.h>.#incl
0a30: 75 64 65 20 3c 66 63 6e 74 6c 2e 68 3e 0a 23 69 ude <fcntl.h>.#i
0a40: 6e 63 6c 75 64 65 20 3c 73 74 72 69 6e 67 2e 68 nclude <string.h
0a50: 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 70 77 64 2e >.#include <pwd.
0a60: 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 79 73 h>.#include <sys
0a70: 2f 74 69 6d 65 2e 68 3e 0a 23 69 6e 63 6c 75 64 /time.h>.#includ
0a80: 65 20 3c 73 79 73 2f 74 79 70 65 73 2e 68 3e 0a e <sys/types.h>.
0a90: 23 69 6e 63 6c 75 64 65 20 3c 73 79 73 2f 73 6f #include <sys/so
0aa0: 63 6b 65 74 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 cket.h>.#include
0ab0: 20 3c 73 79 73 2f 77 61 69 74 2e 68 3e 0a 23 69 <sys/wait.h>.#i
0ac0: 6e 63 6c 75 64 65 20 3c 6e 65 74 69 6e 65 74 2f nclude <netinet/
0ad0: 69 6e 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c in.h>.#include <
0ae0: 61 72 70 61 2f 69 6e 65 74 2e 68 3e 0a 23 69 6e arpa/inet.h>.#in
0af0: 63 6c 75 64 65 20 3c 73 74 64 61 72 67 2e 68 3e clude <stdarg.h>
0b00: 0a 23 69 6e 63 6c 75 64 65 20 3c 74 69 6d 65 2e .#include <time.
0b10: 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 79 73 h>.#include <sys
0b20: 2f 74 69 6d 65 73 2e 68 3e 0a 23 69 6e 63 6c 75 /times.h>.#inclu
0b30: 64 65 20 3c 6e 65 74 64 62 2e 68 3e 0a 23 69 6e de <netdb.h>.#in
0b40: 63 6c 75 64 65 20 3c 65 72 72 6e 6f 2e 68 3e 0a clude <errno.h>.
0b50: 23 69 6e 63 6c 75 64 65 20 3c 73 79 73 2f 72 65 #include <sys/re
0b60: 73 6f 75 72 63 65 2e 68 3e 0a 23 69 66 64 65 66 source.h>.#ifdef
0b70: 20 6c 69 6e 75 78 0a 23 69 6e 63 6c 75 64 65 20 linux.#include
0b80: 3c 73 79 73 2f 73 65 6e 64 66 69 6c 65 2e 68 3e <sys/sendfile.h>
0b90: 0a 23 65 6e 64 69 66 0a 23 69 6e 63 6c 75 64 65 .#endif.#include
0ba0: 20 3c 61 73 73 65 72 74 2e 68 3e 0a 0a 2f 2a 0a <assert.h>../*.
0bb0: 2a 2a 20 43 6f 6e 66 69 67 75 72 65 20 74 68 65 ** Configure the
0bc0: 20 73 65 72 76 65 72 20 62 79 20 73 65 74 74 69 server by setti
0bd0: 6e 67 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 ng the following
0be0: 20 6d 61 63 72 6f 73 20 61 6e 64 20 72 65 63 6f macros and reco
0bf0: 6d 70 69 6c 69 6e 67 2e 0a 2a 2f 0a 23 69 66 6e mpiling..*/.#ifn
0c00: 64 65 66 20 44 45 46 41 55 4c 54 5f 50 4f 52 54 def DEFAULT_PORT
0c10: 0a 23 64 65 66 69 6e 65 20 44 45 46 41 55 4c 54 .#define DEFAULT
0c20: 5f 50 4f 52 54 20 22 38 30 22 0a 23 65 6e 64 69 _PORT "80".#endi
0c30: 66 0a 23 69 66 6e 64 65 66 20 4d 41 58 5f 43 4f f.#ifndef MAX_CO
0c40: 4e 54 45 4e 54 5f 4c 45 4e 47 54 48 0a 23 64 65 NTENT_LENGTH.#de
0c50: 66 69 6e 65 20 4d 41 58 5f 43 4f 4e 54 45 4e 54 fine MAX_CONTENT
0c60: 5f 4c 45 4e 47 54 48 20 39 30 30 30 30 30 30 0a _LENGTH 9000000.
0c70: 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 57 65 #endif../*.** We
0c80: 20 72 65 63 6f 72 64 20 6d 6f 73 74 20 6f 66 20 record most of
0c90: 74 68 65 20 73 74 61 74 65 20 69 6e 66 6f 72 6d the state inform
0ca0: 61 74 69 6f 6e 20 61 73 20 67 6c 6f 62 61 6c 20 ation as global
0cb0: 76 61 72 69 61 62 6c 65 73 2e 20 20 54 68 69 73 variables. This
0cc0: 0a 2a 2a 20 73 61 76 65 73 20 68 61 76 69 6e 67 .** saves having
0cd0: 20 74 6f 20 70 61 73 73 20 69 6e 66 6f 72 6d 61 to pass informa
0ce0: 74 69 6f 6e 20 74 6f 20 73 75 62 72 6f 75 74 69 tion to subrouti
0cf0: 6e 65 73 20 61 73 20 70 61 72 61 6d 65 74 65 72 nes as parameter
0d00: 73 2c 20 61 6e 64 0a 2a 2a 20 6d 61 6b 65 73 20 s, and.** makes
0d10: 74 68 65 20 65 78 65 63 75 74 61 62 6c 65 20 73 the executable s
0d20: 6d 61 6c 6c 65 72 2e 2e 2e 0a 2a 2f 0a 73 74 61 maller....*/.sta
0d30: 74 69 63 20 63 68 61 72 20 2a 7a 52 6f 6f 74 20 tic char *zRoot
0d40: 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 2f 2a = 0; /*
0d50: 20 52 6f 6f 74 20 64 69 72 65 63 74 6f 72 79 20 Root directory
0d60: 6f 66 20 74 68 65 20 77 65 62 73 69 74 65 20 2a of the website *
0d70: 2f 0a 73 74 61 74 69 63 20 63 68 61 72 20 2a 7a /.static char *z
0d80: 54 6d 70 4e 61 6d 20 3d 20 30 3b 20 20 20 20 20 TmpNam = 0;
0d90: 20 20 20 2f 2a 20 4e 61 6d 65 20 6f 66 20 61 20 /* Name of a
0da0: 74 65 6d 70 6f 72 61 72 79 20 66 69 6c 65 20 2a temporary file *
0db0: 2f 0a 73 74 61 74 69 63 20 63 68 61 72 20 7a 54 /.static char zT
0dc0: 6d 70 4e 61 6d 42 75 66 5b 35 30 30 5d 3b 20 20 mpNamBuf[500];
0dd0: 20 20 20 2f 2a 20 53 70 61 63 65 20 74 6f 20 68 /* Space to h
0de0: 6f 6c 64 20 74 68 65 20 74 65 6d 70 6f 72 61 72 old the temporar
0df0: 79 20 66 69 6c 65 6e 61 6d 65 20 2a 2f 0a 73 74 y filename */.st
0e00: 61 74 69 63 20 63 68 61 72 20 2a 7a 50 72 6f 74 atic char *zProt
0e10: 6f 63 6f 6c 20 3d 20 30 3b 20 20 20 20 20 20 2f ocol = 0; /
0e20: 2a 20 54 68 65 20 70 72 6f 74 6f 63 6f 6c 20 62 * The protocol b
0e30: 65 69 6e 67 20 75 73 69 6e 67 20 62 79 20 74 68 eing using by th
0e40: 65 20 62 72 6f 77 73 65 72 20 2a 2f 0a 73 74 61 e browser */.sta
0e50: 74 69 63 20 63 68 61 72 20 2a 7a 4d 65 74 68 6f tic char *zMetho
0e60: 64 20 3d 20 30 3b 20 20 20 20 20 20 20 20 2f 2a d = 0; /*
0e70: 20 54 68 65 20 6d 65 74 68 6f 64 2e 20 20 4d 75 The method. Mu
0e80: 73 74 20 62 65 20 47 45 54 20 2a 2f 0a 73 74 61 st be GET */.sta
0e90: 74 69 63 20 63 68 61 72 20 2a 7a 53 63 72 69 70 tic char *zScrip
0ea0: 74 20 3d 20 30 3b 20 20 20 20 20 20 20 20 2f 2a t = 0; /*
0eb0: 20 54 68 65 20 6f 62 6a 65 63 74 20 74 6f 20 72 The object to r
0ec0: 65 74 72 69 65 76 65 20 2a 2f 0a 73 74 61 74 69 etrieve */.stati
0ed0: 63 20 63 68 61 72 20 2a 7a 52 65 61 6c 53 63 72 c char *zRealScr
0ee0: 69 70 74 20 3d 20 30 3b 20 20 20 20 2f 2a 20 54 ipt = 0; /* T
0ef0: 68 65 20 6f 62 6a 65 63 74 20 74 6f 20 72 65 74 he object to ret
0f00: 72 69 65 76 65 2e 20 20 53 61 6d 65 20 61 73 20 rieve. Same as
0f10: 7a 53 63 72 69 70 74 0a 20 20 20 20 20 20 20 20 zScript.
0f20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0f30: 20 20 20 20 20 20 20 20 20 2a 2a 20 65 78 63 65 ** exce
0f40: 70 74 20 6d 69 67 68 74 20 68 61 76 65 20 22 2f pt might have "/
0f50: 69 6e 64 65 78 2e 68 74 6d 6c 22 20 61 70 70 65 index.html" appe
0f60: 6e 64 65 64 20 2a 2f 0a 73 74 61 74 69 63 20 63 nded */.static c
0f70: 68 61 72 20 2a 7a 48 6f 6d 65 20 3d 20 30 3b 20 har *zHome = 0;
0f80: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 /* The
0f90: 64 69 72 65 63 74 6f 72 79 20 63 6f 6e 74 61 69 directory contai
0fa0: 6e 69 6e 67 20 63 6f 6e 74 65 6e 74 20 2a 2f 0a ning content */.
0fb0: 73 74 61 74 69 63 20 63 68 61 72 20 2a 7a 51 75 static char *zQu
0fc0: 65 72 79 53 74 72 69 6e 67 20 3d 20 30 3b 20 20 eryString = 0;
0fd0: 20 2f 2a 20 54 68 65 20 71 75 65 72 79 20 73 74 /* The query st
0fe0: 72 69 6e 67 20 6f 6e 20 74 68 65 20 65 6e 64 20 ring on the end
0ff0: 6f 66 20 74 68 65 20 6e 61 6d 65 20 2a 2f 0a 73 of the name */.s
1000: 74 61 74 69 63 20 63 68 61 72 20 2a 7a 46 69 6c tatic char *zFil
1010: 65 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 e = 0;
1020: 2f 2a 20 54 68 65 20 66 69 6c 65 6e 61 6d 65 20 /* The filename
1030: 6f 66 20 74 68 65 20 6f 62 6a 65 63 74 20 74 6f of the object to
1040: 20 72 65 74 72 69 65 76 65 20 2a 2f 0a 73 74 61 retrieve */.sta
1050: 74 69 63 20 69 6e 74 20 6c 65 6e 46 69 6c 65 20 tic int lenFile
1060: 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 2f 2a = 0; /*
1070: 20 4c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 7a Length of the z
1080: 46 69 6c 65 20 6e 61 6d 65 20 2a 2f 0a 73 74 61 File name */.sta
1090: 74 69 63 20 63 68 61 72 20 2a 7a 44 69 72 20 3d tic char *zDir =
10a0: 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 2f 2a 0; /*
10b0: 20 4e 61 6d 65 20 6f 66 20 74 68 65 20 64 69 72 Name of the dir
10c0: 65 63 74 6f 72 79 20 68 6f 6c 64 69 6e 67 20 7a ectory holding z
10d0: 46 69 6c 65 20 2a 2f 0a 73 74 61 74 69 63 20 63 File */.static c
10e0: 68 61 72 20 2a 7a 50 61 74 68 49 6e 66 6f 20 3d har *zPathInfo =
10f0: 20 30 3b 20 20 20 20 20 20 2f 2a 20 50 61 72 74 0; /* Part
1100: 20 6f 66 20 74 68 65 20 70 61 74 68 6e 61 6d 65 of the pathname
1110: 20 70 61 73 74 20 74 68 65 20 66 69 6c 65 20 2a past the file *
1120: 2f 0a 73 74 61 74 69 63 20 63 68 61 72 20 2a 7a /.static char *z
1130: 41 67 65 6e 74 20 3d 20 30 3b 20 20 20 20 20 20 Agent = 0;
1140: 20 20 20 2f 2a 20 57 68 61 74 20 74 79 70 65 20 /* What type
1150: 69 66 20 62 72 6f 77 73 65 72 20 69 73 20 6d 61 if browser is ma
1160: 6b 69 6e 67 20 74 68 69 73 20 71 75 65 72 79 20 king this query
1170: 2a 2f 0a 73 74 61 74 69 63 20 63 68 61 72 20 2a */.static char *
1180: 7a 53 65 72 76 65 72 4e 61 6d 65 20 3d 20 30 3b zServerName = 0;
1190: 20 20 20 20 2f 2a 20 54 68 65 20 6e 61 6d 65 20 /* The name
11a0: 61 66 74 65 72 20 74 68 65 20 68 74 74 70 3a 2f after the http:/
11b0: 2f 20 2a 2f 0a 73 74 61 74 69 63 20 63 68 61 72 / */.static char
11c0: 20 2a 7a 53 65 72 76 65 72 50 6f 72 74 20 3d 20 *zServerPort =
11d0: 30 3b 20 20 20 20 2f 2a 20 54 68 65 20 70 6f 72 0; /* The por
11e0: 74 20 6e 75 6d 62 65 72 20 2a 2f 0a 73 74 61 74 t number */.stat
11f0: 69 63 20 63 68 61 72 20 2a 7a 43 6f 6f 6b 69 65 ic char *zCookie
1200: 20 3d 20 30 3b 20 20 20 20 20 20 20 20 2f 2a 20 = 0; /*
1210: 43 6f 6f 6b 69 65 73 20 72 65 70 6f 72 74 65 64 Cookies reported
1220: 20 77 69 74 68 20 74 68 65 20 72 65 71 75 65 73 with the reques
1230: 74 20 2a 2f 0a 73 74 61 74 69 63 20 63 68 61 72 t */.static char
1240: 20 2a 7a 48 74 74 70 48 6f 73 74 20 3d 20 30 3b *zHttpHost = 0;
1250: 20 20 20 20 20 20 2f 2a 20 4e 61 6d 65 20 61 63 /* Name ac
1260: 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20 77 cording to the w
1270: 65 62 20 62 72 6f 77 73 65 72 20 2a 2f 0a 73 74 eb browser */.st
1280: 61 74 69 63 20 63 68 61 72 20 2a 7a 52 65 61 6c atic char *zReal
1290: 50 6f 72 74 20 3d 20 30 3b 20 20 20 20 20 20 2f Port = 0; /
12a0: 2a 20 54 68 65 20 72 65 61 6c 20 54 43 50 20 70 * The real TCP p
12b0: 6f 72 74 20 77 68 65 6e 20 72 75 6e 6e 69 6e 67 ort when running
12c0: 20 61 73 20 64 61 65 6d 6f 6e 20 2a 2f 0a 73 74 as daemon */.st
12d0: 61 74 69 63 20 63 68 61 72 20 2a 7a 52 65 6d 6f atic char *zRemo
12e0: 74 65 41 64 64 72 20 3d 20 30 3b 20 20 20 20 2f teAddr = 0; /
12f0: 2a 20 49 50 20 61 64 64 72 65 73 73 20 6f 66 20 * IP address of
1300: 74 68 65 20 72 65 71 75 65 73 74 20 2a 2f 0a 73 the request */.s
1310: 74 61 74 69 63 20 63 68 61 72 20 2a 7a 52 65 66 tatic char *zRef
1320: 65 72 65 72 20 3d 20 30 3b 20 20 20 20 20 20 20 erer = 0;
1330: 2f 2a 20 4e 61 6d 65 20 6f 66 20 74 68 65 20 70 /* Name of the p
1340: 61 67 65 20 74 68 61 74 20 72 65 66 65 72 65 64 age that refered
1350: 20 74 6f 20 75 73 20 2a 2f 0a 73 74 61 74 69 63 to us */.static
1360: 20 63 68 61 72 20 2a 7a 41 63 63 65 70 74 20 3d char *zAccept =
1370: 20 30 3b 20 20 20 20 20 20 20 20 2f 2a 20 57 68 0; /* Wh
1380: 61 74 20 66 6f 72 6d 61 74 73 20 77 69 6c 6c 20 at formats will
1390: 62 65 20 61 63 63 65 70 74 65 64 20 2a 2f 0a 73 be accepted */.s
13a0: 74 61 74 69 63 20 63 68 61 72 20 2a 7a 43 6f 6e tatic char *zCon
13b0: 74 65 6e 74 4c 65 6e 67 74 68 20 3d 20 30 3b 20 tentLength = 0;
13c0: 2f 2a 20 43 6f 6e 74 65 6e 74 20 6c 65 6e 67 74 /* Content lengt
13d0: 68 20 72 65 70 6f 72 74 65 64 20 69 6e 20 74 68 h reported in th
13e0: 65 20 68 65 61 64 65 72 20 2a 2f 0a 73 74 61 74 e header */.stat
13f0: 69 63 20 63 68 61 72 20 2a 7a 43 6f 6e 74 65 6e ic char *zConten
1400: 74 54 79 70 65 20 3d 20 30 3b 20 20 20 2f 2a 20 tType = 0; /*
1410: 43 6f 6e 74 65 6e 74 20 74 79 70 65 20 72 65 70 Content type rep
1420: 6f 72 74 65 64 20 69 6e 20 74 68 65 20 68 65 61 orted in the hea
1430: 64 65 72 20 2a 2f 0a 73 74 61 74 69 63 20 63 68 der */.static ch
1440: 61 72 20 2a 7a 51 75 65 72 79 53 75 66 66 69 78 ar *zQuerySuffix
1450: 20 3d 20 30 3b 20 20 20 2f 2a 20 54 68 65 20 70 = 0; /* The p
1460: 61 72 74 20 6f 66 20 74 68 65 20 55 52 4c 20 61 art of the URL a
1470: 66 74 65 72 20 74 68 65 20 66 69 72 73 74 20 3f fter the first ?
1480: 20 2a 2f 0a 73 74 61 74 69 63 20 63 68 61 72 20 */.static char
1490: 2a 7a 41 75 74 68 54 79 70 65 20 3d 20 30 3b 20 *zAuthType = 0;
14a0: 20 20 20 20 20 2f 2a 20 41 75 74 68 6f 72 69 7a /* Authoriz
14b0: 61 74 69 6f 6e 20 74 79 70 65 20 28 62 61 73 69 ation type (basi
14c0: 63 20 6f 72 20 64 69 67 65 73 74 29 20 2a 2f 0a c or digest) */.
14d0: 73 74 61 74 69 63 20 63 68 61 72 20 2a 7a 41 75 static char *zAu
14e0: 74 68 41 72 67 20 3d 20 30 3b 20 20 20 20 20 20 thArg = 0;
14f0: 20 2f 2a 20 41 75 74 68 6f 72 69 7a 61 74 69 6f /* Authorizatio
1500: 6e 20 76 61 6c 75 65 73 20 2a 2f 0a 73 74 61 74 n values */.stat
1510: 69 63 20 63 68 61 72 20 2a 7a 52 65 6d 6f 74 65 ic char *zRemote
1520: 55 73 65 72 20 3d 20 30 3b 20 20 20 20 2f 2a 20 User = 0; /*
1530: 52 45 4d 4f 54 45 5f 55 53 45 52 20 73 65 74 20 REMOTE_USER set
1540: 62 79 20 61 75 74 68 6f 72 69 7a 61 74 69 6f 6e by authorization
1550: 20 6d 6f 64 75 6c 65 20 2a 2f 0a 73 74 61 74 69 module */.stati
1560: 63 20 69 6e 74 20 6e 49 6e 20 3d 20 30 3b 20 20 c int nIn = 0;
1570: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
1580: 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 6f umber of bytes o
1590: 66 20 69 6e 70 75 74 20 2a 2f 0a 73 74 61 74 69 f input */.stati
15a0: 63 20 69 6e 74 20 6e 4f 75 74 20 3d 20 30 3b 20 c int nOut = 0;
15b0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
15c0: 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 6f umber of bytes o
15d0: 66 20 6f 75 74 70 75 74 20 2a 2f 0a 73 74 61 74 f output */.stat
15e0: 69 63 20 63 68 61 72 20 7a 52 65 70 6c 79 53 74 ic char zReplySt
15f0: 61 74 75 73 5b 34 5d 3b 20 20 20 20 20 2f 2a 20 atus[4]; /*
1600: 52 65 70 6c 79 20 73 74 61 74 75 73 20 63 6f 64 Reply status cod
1610: 65 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 e */.static int
1620: 73 74 61 74 75 73 53 65 6e 74 20 3d 20 30 3b 20 statusSent = 0;
1630: 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20 61 66 /* True af
1640: 74 65 72 20 73 74 61 74 75 73 20 6c 69 6e 65 20 ter status line
1650: 69 73 20 73 65 6e 74 20 2a 2f 0a 73 74 61 74 69 is sent */.stati
1660: 63 20 63 68 61 72 20 2a 7a 4c 6f 67 46 69 6c 65 c char *zLogFile
1670: 20 3d 20 30 3b 20 20 20 20 20 20 20 2f 2a 20 4c = 0; /* L
1680: 6f 67 20 74 6f 20 74 68 69 73 20 66 69 6c 65 20 og to this file
1690: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 64 65 */.static int de
16a0: 62 75 67 46 6c 61 67 20 3d 20 30 3b 20 20 20 20 bugFlag = 0;
16b0: 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 62 /* True if b
16c0: 65 69 6e 67 20 64 65 62 75 67 67 65 64 20 2a 2f eing debugged */
16d0: 0a 73 74 61 74 69 63 20 73 74 72 75 63 74 20 74 .static struct t
16e0: 69 6d 65 76 61 6c 20 62 65 67 69 6e 54 69 6d 65 imeval beginTime
16f0: 3b 20 2f 2a 20 54 69 6d 65 20 77 68 65 6e 20 74 ; /* Time when t
1700: 68 69 73 20 70 72 6f 63 65 73 73 20 73 74 61 72 his process star
1710: 74 73 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 ts */.static int
1720: 20 63 6c 6f 73 65 43 6f 6e 6e 65 63 74 69 6f 6e closeConnection
1730: 20 3d 20 30 3b 20 20 2f 2a 20 54 72 75 65 20 74 = 0; /* True t
1740: 6f 20 73 65 6e 64 20 43 6f 6e 6e 65 63 74 69 6f o send Connectio
1750: 6e 3a 20 63 6c 6f 73 65 20 69 6e 20 72 65 70 6c n: close in repl
1760: 79 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 y */.static int
1770: 6e 52 65 71 75 65 73 74 20 3d 20 30 3b 20 20 20 nRequest = 0;
1780: 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 /* Number
1790: 6f 66 20 72 65 71 75 65 73 74 73 20 70 72 6f 63 of requests proc
17a0: 65 73 73 65 64 20 2a 2f 0a 73 74 61 74 69 63 20 essed */.static
17b0: 69 6e 74 20 6f 6d 69 74 4c 6f 67 20 3d 20 30 3b int omitLog = 0;
17c0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 44 6f 20 /* Do
17d0: 6e 6f 74 20 6d 61 6b 65 20 6c 6f 67 66 69 6c 65 not make logfile
17e0: 20 65 6e 74 72 69 65 73 20 69 66 20 74 72 75 65 entries if true
17f0: 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 75 */.static int u
1800: 73 65 48 74 74 70 73 20 3d 20 30 3b 20 20 20 20 seHttps = 0;
1810: 20 20 20 20 20 2f 2a 20 54 72 75 65 20 74 6f 20 /* True to
1820: 75 73 65 20 48 54 54 50 53 3a 20 69 6e 73 74 65 use HTTPS: inste
1830: 61 64 20 6f 66 20 48 54 54 50 3a 20 2a 2f 0a 73 ad of HTTP: */.s
1840: 74 61 74 69 63 20 63 68 61 72 20 2a 7a 48 74 74 tatic char *zHtt
1850: 70 20 3d 20 22 68 74 74 70 22 3b 20 20 20 20 20 p = "http";
1860: 2f 2a 20 68 74 74 70 20 6f 72 20 68 74 74 70 73 /* http or https
1870: 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 75 */.static int u
1880: 73 65 54 69 6d 65 6f 75 74 20 3d 20 31 3b 20 20 seTimeout = 1;
1890: 20 20 20 20 20 2f 2a 20 54 72 75 65 20 74 6f 20 /* True to
18a0: 75 73 65 20 74 69 6d 65 73 20 2a 2f 0a 73 74 61 use times */.sta
18b0: 74 69 63 20 69 6e 74 20 73 74 61 6e 64 61 6c 6f tic int standalo
18c0: 6e 65 20 3d 20 30 3b 20 20 20 20 20 20 20 2f 2a ne = 0; /*
18d0: 20 52 75 6e 20 61 73 20 61 20 73 74 61 6e 64 61 Run as a standa
18e0: 6c 6f 6e 65 20 73 65 72 76 65 72 20 28 6e 6f 20 lone server (no
18f0: 69 6e 65 74 64 29 20 2a 2f 0a 73 74 61 74 69 63 inetd) */.static
1900: 20 69 6e 74 20 69 70 76 36 4f 6e 6c 79 20 3d 20 int ipv6Only =
1910: 30 3b 20 20 20 20 20 20 20 20 20 2f 2a 20 55 73 0; /* Us
1920: 65 20 49 50 76 36 20 6f 6e 6c 79 20 2a 2f 0a 73 e IPv6 only */.s
1930: 74 61 74 69 63 20 69 6e 74 20 69 70 76 34 4f 6e tatic int ipv4On
1940: 6c 79 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 ly = 0;
1950: 2f 2a 20 55 73 65 20 49 50 76 34 20 6f 6e 6c 79 /* Use IPv4 only
1960: 20 2a 2f 0a 73 74 61 74 69 63 20 73 74 72 75 63 */.static struc
1970: 74 20 72 75 73 61 67 65 20 70 72 69 6f 72 53 65 t rusage priorSe
1980: 6c 66 3b 20 20 2f 2a 20 50 72 65 76 69 6f 75 73 lf; /* Previous
1990: 6c 79 20 72 65 70 6f 72 74 20 53 45 4c 46 20 74 ly report SELF t
19a0: 69 6d 65 20 2a 2f 0a 73 74 61 74 69 63 20 73 74 ime */.static st
19b0: 72 75 63 74 20 72 75 73 61 67 65 20 70 72 69 6f ruct rusage prio
19c0: 72 43 68 69 6c 64 3b 20 2f 2a 20 50 72 65 76 69 rChild; /* Previ
19d0: 6f 75 73 6c 79 20 72 65 70 6f 72 74 20 43 48 49 ously report CHI
19e0: 4c 44 20 74 69 6d 65 20 2a 2f 0a 0a 2f 2a 0a 2a LD time */../*.*
19f0: 2a 20 44 6f 75 62 6c 65 20 61 6e 79 20 64 6f 75 * Double any dou
1a00: 62 6c 65 2d 71 75 6f 74 65 20 63 68 61 72 61 63 ble-quote charac
1a10: 74 65 72 73 20 69 6e 20 61 20 73 74 72 69 6e 67 ters in a string
1a20: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 63 68 61 72 ..*/.static char
1a30: 20 2a 45 73 63 61 70 65 28 63 68 61 72 20 2a 7a *Escape(char *z
1a40: 29 7b 0a 20 20 69 6e 74 20 69 2c 20 6a 3b 0a 20 ){. int i, j;.
1a50: 20 69 6e 74 20 6e 3b 0a 20 20 63 68 61 72 20 63 int n;. char c
1a60: 3b 0a 20 20 63 68 61 72 20 2a 7a 4f 75 74 3b 0a ;. char *zOut;.
1a70: 20 20 66 6f 72 28 69 3d 30 3b 20 28 63 3d 7a 5b for(i=0; (c=z[
1a80: 69 5d 29 21 3d 30 20 26 26 20 63 21 3d 27 22 27 i])!=0 && c!='"'
1a90: 3b 20 69 2b 2b 29 7b 7d 0a 20 20 69 66 28 20 63 ; i++){}. if( c
1aa0: 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 7a 3b 0a ==0 ) return z;.
1ab0: 20 20 6e 20 3d 20 31 3b 0a 20 20 66 6f 72 28 69 n = 1;. for(i
1ac0: 2b 2b 3b 20 28 63 3d 7a 5b 69 5d 29 21 3d 30 3b ++; (c=z[i])!=0;
1ad0: 20 69 2b 2b 29 7b 20 69 66 28 20 63 3d 3d 27 22 i++){ if( c=='"
1ae0: 27 20 29 20 6e 2b 2b 3b 20 7d 0a 20 20 7a 4f 75 ' ) n++; }. zOu
1af0: 74 20 3d 20 6d 61 6c 6c 6f 63 28 20 69 2b 6e 2b t = malloc( i+n+
1b00: 31 20 29 3b 0a 20 20 69 66 28 20 7a 4f 75 74 3d 1 );. if( zOut=
1b10: 3d 30 20 29 20 72 65 74 75 72 6e 20 22 22 3b 0a =0 ) return "";.
1b20: 20 20 66 6f 72 28 69 3d 6a 3d 30 3b 20 28 63 3d for(i=j=0; (c=
1b30: 7a 5b 69 5d 29 21 3d 30 3b 20 69 2b 2b 29 7b 0a z[i])!=0; i++){.
1b40: 20 20 20 20 7a 4f 75 74 5b 6a 2b 2b 5d 20 3d 20 zOut[j++] =
1b50: 63 3b 0a 20 20 20 20 69 66 28 20 63 3d 3d 27 22 c;. if( c=='"
1b60: 27 20 29 20 7a 4f 75 74 5b 6a 2b 2b 5d 20 3d 20 ' ) zOut[j++] =
1b70: 63 3b 0a 20 20 7d 0a 20 20 7a 4f 75 74 5b 6a 5d c;. }. zOut[j]
1b80: 20 3d 20 30 3b 0a 20 20 72 65 74 75 72 6e 20 7a = 0;. return z
1b90: 4f 75 74 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f Out;.}../*.** Co
1ba0: 6e 76 65 72 74 20 61 20 73 74 72 75 63 74 20 74 nvert a struct t
1bb0: 69 6d 65 76 61 6c 20 69 6e 74 6f 20 61 6e 20 69 imeval into an i
1bc0: 6e 74 65 67 65 72 20 6e 75 6d 62 65 72 20 6f 66 nteger number of
1bd0: 20 6d 69 6c 6c 69 73 65 63 6f 6e 64 73 0a 2a 2f milliseconds.*/
1be0: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 6d 73 .static int tvms
1bf0: 28 73 74 72 75 63 74 20 74 69 6d 65 76 61 6c 20 (struct timeval
1c00: 2a 70 29 7b 0a 20 20 72 65 74 75 72 6e 20 28 69 *p){. return (i
1c10: 6e 74 29 28 70 2d 3e 74 76 5f 73 65 63 2a 31 30 nt)(p->tv_sec*10
1c20: 30 30 30 30 30 20 2b 20 70 2d 3e 74 76 5f 75 73 00000 + p->tv_us
1c30: 65 63 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 4d 61 ec);.}../*.** Ma
1c40: 6b 65 20 61 6e 20 65 6e 74 72 79 20 69 6e 20 74 ke an entry in t
1c50: 68 65 20 6c 6f 67 20 66 69 6c 65 2e 20 20 49 66 he log file. If
1c60: 20 74 68 65 20 48 54 54 50 20 63 6f 6e 6e 65 63 the HTTP connec
1c70: 74 69 6f 6e 20 73 68 6f 75 6c 64 20 62 65 0a 2a tion should be.*
1c80: 2a 20 63 6c 6f 73 65 64 2c 20 74 68 65 6e 20 74 * closed, then t
1c90: 65 72 6d 69 6e 61 74 65 20 74 68 69 73 20 70 72 erminate this pr
1ca0: 6f 63 65 73 73 2e 20 20 4f 74 68 65 72 77 69 73 ocess. Otherwis
1cb0: 65 20 72 65 74 75 72 6e 2e 0a 2a 2f 0a 73 74 61 e return..*/.sta
1cc0: 74 69 63 20 76 6f 69 64 20 4d 61 6b 65 4c 6f 67 tic void MakeLog
1cd0: 45 6e 74 72 79 28 69 6e 74 20 61 29 7b 0a 20 20 Entry(int a){.
1ce0: 46 49 4c 45 20 2a 6c 6f 67 3b 0a 20 20 69 66 28 FILE *log;. if(
1cf0: 20 7a 54 6d 70 4e 61 6d 20 29 7b 0a 20 20 20 20 zTmpNam ){.
1d00: 75 6e 6c 69 6e 6b 28 7a 54 6d 70 4e 61 6d 29 3b unlink(zTmpNam);
1d10: 0a 20 20 7d 0a 20 20 69 66 28 20 7a 4c 6f 67 46 . }. if( zLogF
1d20: 69 6c 65 20 26 26 20 21 6f 6d 69 74 4c 6f 67 20 ile && !omitLog
1d30: 29 7b 0a 20 20 20 20 73 74 72 75 63 74 20 74 69 ){. struct ti
1d40: 6d 65 76 61 6c 20 6e 6f 77 3b 0a 20 20 20 20 73 meval now;. s
1d50: 74 72 75 63 74 20 74 6d 20 2a 70 54 6d 3b 0a 20 truct tm *pTm;.
1d60: 20 20 20 73 74 72 75 63 74 20 72 75 73 61 67 65 struct rusage
1d70: 20 73 65 6c 66 2c 20 63 68 69 6c 64 72 65 6e 3b self, children;
1d80: 0a 20 20 20 20 69 6e 74 20 77 61 69 74 53 74 61 . int waitSta
1d90: 74 75 73 3b 0a 20 20 20 20 63 68 61 72 20 7a 44 tus;. char zD
1da0: 61 74 65 5b 32 30 30 5d 3b 0a 20 20 20 20 63 68 ate[200];. ch
1db0: 61 72 20 2a 7a 52 4d 20 3d 20 7a 52 65 6d 6f 74 ar *zRM = zRemot
1dc0: 65 55 73 65 72 20 3f 20 7a 52 65 6d 6f 74 65 55 eUser ? zRemoteU
1dd0: 73 65 72 20 3a 20 22 22 3b 0a 0a 20 20 20 20 69 ser : "";.. i
1de0: 66 28 20 7a 53 63 72 69 70 74 3d 3d 30 20 29 20 f( zScript==0 )
1df0: 7a 53 63 72 69 70 74 20 3d 20 22 22 3b 0a 20 20 zScript = "";.
1e00: 20 20 69 66 28 20 7a 52 65 61 6c 53 63 72 69 70 if( zRealScrip
1e10: 74 3d 3d 30 20 29 20 7a 52 65 61 6c 53 63 72 69 t==0 ) zRealScri
1e20: 70 74 20 3d 20 22 22 3b 0a 20 20 20 20 69 66 28 pt = "";. if(
1e30: 20 7a 52 65 6d 6f 74 65 41 64 64 72 3d 3d 30 20 zRemoteAddr==0
1e40: 29 20 7a 52 65 6d 6f 74 65 41 64 64 72 20 3d 20 ) zRemoteAddr =
1e50: 22 22 3b 0a 20 20 20 20 69 66 28 20 7a 48 74 74 "";. if( zHtt
1e60: 70 48 6f 73 74 3d 3d 30 20 29 20 7a 48 74 74 70 pHost==0 ) zHttp
1e70: 48 6f 73 74 20 3d 20 22 22 3b 0a 20 20 20 20 69 Host = "";. i
1e80: 66 28 20 7a 52 65 66 65 72 65 72 3d 3d 30 20 29 f( zReferer==0 )
1e90: 20 7a 52 65 66 65 72 65 72 20 3d 20 22 22 3b 0a zReferer = "";.
1ea0: 20 20 20 20 69 66 28 20 7a 41 67 65 6e 74 3d 3d if( zAgent==
1eb0: 30 20 29 20 7a 41 67 65 6e 74 20 3d 20 22 22 3b 0 ) zAgent = "";
1ec0: 0a 20 20 20 20 67 65 74 74 69 6d 65 6f 66 64 61 . gettimeofda
1ed0: 79 28 26 6e 6f 77 2c 20 30 29 3b 0a 20 20 20 20 y(&now, 0);.
1ee0: 70 54 6d 20 3d 20 6c 6f 63 61 6c 74 69 6d 65 28 pTm = localtime(
1ef0: 26 6e 6f 77 2e 74 76 5f 73 65 63 29 3b 0a 20 20 &now.tv_sec);.
1f00: 20 20 73 74 72 66 74 69 6d 65 28 7a 44 61 74 65 strftime(zDate
1f10: 2c 20 73 69 7a 65 6f 66 28 7a 44 61 74 65 29 2c , sizeof(zDate),
1f20: 20 22 25 59 2d 25 6d 2d 25 64 20 25 48 3a 25 4d "%Y-%m-%d %H:%M
1f30: 3a 25 53 22 2c 20 70 54 6d 29 3b 0a 20 20 20 20 :%S", pTm);.
1f40: 77 61 69 74 70 69 64 28 2d 31 2c 20 26 77 61 69 waitpid(-1, &wai
1f50: 74 53 74 61 74 75 73 2c 20 57 4e 4f 48 41 4e 47 tStatus, WNOHANG
1f60: 29 3b 0a 20 20 20 20 67 65 74 72 75 73 61 67 65 );. getrusage
1f70: 28 52 55 53 41 47 45 5f 53 45 4c 46 2c 20 26 73 (RUSAGE_SELF, &s
1f80: 65 6c 66 29 3b 0a 20 20 20 20 67 65 74 72 75 73 elf);. getrus
1f90: 61 67 65 28 52 55 53 41 47 45 5f 43 48 49 4c 44 age(RUSAGE_CHILD
1fa0: 52 45 4e 2c 20 26 63 68 69 6c 64 72 65 6e 29 3b REN, &children);
1fb0: 0a 20 20 20 20 69 66 28 20 28 6c 6f 67 20 3d 20 . if( (log =
1fc0: 66 6f 70 65 6e 28 7a 4c 6f 67 46 69 6c 65 2c 22 fopen(zLogFile,"
1fd0: 61 22 29 29 21 3d 30 20 29 7b 0a 23 69 66 64 65 a"))!=0 ){.#ifde
1fe0: 66 20 43 4f 4d 42 49 4e 45 44 5f 4c 4f 47 5f 46 f COMBINED_LOG_F
1ff0: 4f 52 4d 41 54 0a 20 20 20 20 20 20 73 74 72 66 ORMAT. strf
2000: 74 69 6d 65 28 7a 44 61 74 65 2c 20 73 69 7a 65 time(zDate, size
2010: 6f 66 28 7a 44 61 74 65 29 2c 20 22 25 64 2f 25 of(zDate), "%d/%
2020: 62 2f 25 59 3a 25 48 3a 25 4d 3a 25 53 20 25 7a b/%Y:%H:%M:%S %z
2030: 22 2c 20 70 54 6d 29 3b 0a 20 20 20 20 20 20 66 ", pTm);. f
2040: 70 72 69 6e 74 66 28 6c 6f 67 2c 20 22 25 73 20 printf(log, "%s
2050: 2d 20 2d 20 5b 25 73 5d 20 5c 22 25 73 20 25 73 - - [%s] \"%s %s
2060: 20 25 73 5c 22 20 25 73 20 25 64 20 5c 22 25 73 %s\" %s %d \"%s
2070: 5c 22 20 5c 22 25 73 5c 22 5c 6e 22 2c 0a 20 20 \" \"%s\"\n",.
2080: 20 20 20 20 20 20 20 20 20 20 20 20 7a 52 65 6d zRem
2090: 6f 74 65 41 64 64 72 2c 20 7a 44 61 74 65 2c 20 oteAddr, zDate,
20a0: 7a 4d 65 74 68 6f 64 2c 20 7a 53 63 72 69 70 74 zMethod, zScript
20b0: 2c 20 7a 50 72 6f 74 6f 63 6f 6c 2c 0a 20 20 20 , zProtocol,.
20c0: 20 20 20 20 20 20 20 20 20 20 20 7a 52 65 70 6c zRepl
20d0: 79 53 74 61 74 75 73 2c 20 6e 4f 75 74 2c 20 7a yStatus, nOut, z
20e0: 52 65 66 65 72 65 72 2c 20 7a 41 67 65 6e 74 29 Referer, zAgent)
20f0: 3b 0a 23 65 6c 73 65 0a 20 20 20 20 20 20 73 74 ;.#else. st
2100: 72 66 74 69 6d 65 28 7a 44 61 74 65 2c 20 73 69 rftime(zDate, si
2110: 7a 65 6f 66 28 7a 44 61 74 65 29 2c 20 22 25 59 zeof(zDate), "%Y
2120: 2d 25 6d 2d 25 64 20 25 48 3a 25 4d 3a 25 53 22 -%m-%d %H:%M:%S"
2130: 2c 20 70 54 6d 29 3b 0a 20 20 20 20 20 20 2f 2a , pTm);. /*
2140: 20 4c 6f 67 20 72 65 63 6f 72 64 20 66 69 6c 65 Log record file
2150: 73 3a 0a 20 20 20 20 20 20 2a 2a 20 20 28 31 29 s:. ** (1)
2160: 20 44 61 74 65 20 61 6e 64 20 74 69 6d 65 0a 20 Date and time.
2170: 20 20 20 20 20 2a 2a 20 20 28 32 29 20 49 50 20 ** (2) IP
2180: 61 64 64 72 65 73 73 0a 20 20 20 20 20 20 2a 2a address. **
2190: 20 20 28 33 29 20 55 52 4c 20 62 65 69 6e 67 20 (3) URL being
21a0: 61 63 63 65 73 73 65 64 0a 20 20 20 20 20 20 2a accessed. *
21b0: 2a 20 20 28 34 29 20 52 65 66 65 72 65 72 0a 20 * (4) Referer.
21c0: 20 20 20 20 20 2a 2a 20 20 28 35 29 20 52 65 70 ** (5) Rep
21d0: 6c 79 20 73 74 61 74 75 73 0a 20 20 20 20 20 20 ly status.
21e0: 2a 2a 20 20 28 36 29 20 42 79 74 65 73 20 72 65 ** (6) Bytes re
21f0: 63 65 69 76 65 64 0a 20 20 20 20 20 20 2a 2a 20 ceived. **
2200: 20 28 37 29 20 42 79 74 65 73 20 73 65 6e 74 0a (7) Bytes sent.
2210: 20 20 20 20 20 20 2a 2a 20 20 28 38 29 20 53 65 ** (8) Se
2220: 6c 66 20 75 73 65 72 20 74 69 6d 65 0a 20 20 20 lf user time.
2230: 20 20 20 2a 2a 20 20 28 39 29 20 53 65 6c 66 20 ** (9) Self
2240: 73 79 73 74 65 6d 20 74 69 6d 65 0a 20 20 20 20 system time.
2250: 20 20 2a 2a 20 28 31 30 29 20 43 68 69 6c 64 72 ** (10) Childr
2260: 65 6e 20 75 73 65 72 20 74 69 6d 65 0a 20 20 20 en user time.
2270: 20 20 20 2a 2a 20 28 31 31 29 20 43 68 69 6c 64 ** (11) Child
2280: 72 65 6e 20 73 79 73 74 65 6d 20 74 69 6d 65 0a ren system time.
2290: 20 20 20 20 20 20 2a 2a 20 28 31 32 29 20 54 6f ** (12) To
22a0: 74 61 6c 20 77 61 6c 6c 2d 63 6c 6f 63 6b 20 74 tal wall-clock t
22b0: 69 6d 65 0a 20 20 20 20 20 20 2a 2a 20 28 31 33 ime. ** (13
22c0: 29 20 52 65 71 75 65 73 74 20 6e 75 6d 62 65 72 ) Request number
22d0: 20 66 6f 72 20 73 61 6d 65 20 54 43 50 2f 49 50 for same TCP/IP
22e0: 20 63 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 20 20 connection.
22f0: 20 20 2a 2a 20 28 31 34 29 20 55 73 65 72 20 61 ** (14) User a
2300: 67 65 6e 74 0a 20 20 20 20 20 20 2a 2a 20 28 31 gent. ** (1
2310: 35 29 20 52 65 6d 6f 74 65 20 75 73 65 72 0a 20 5) Remote user.
2320: 20 20 20 20 20 2a 2a 20 28 31 36 29 20 42 79 74 ** (16) Byt
2330: 65 73 20 6f 66 20 55 52 4c 20 74 68 61 74 20 63 es of URL that c
2340: 6f 72 72 65 73 70 6f 6e 64 20 74 6f 20 74 68 65 orrespond to the
2350: 20 53 43 52 49 50 54 5f 4e 41 4d 45 0a 20 20 20 SCRIPT_NAME.
2360: 20 20 20 2a 2f 0a 20 20 20 20 20 20 66 70 72 69 */. fpri
2370: 6e 74 66 28 6c 6f 67 2c 0a 20 20 20 20 20 20 20 ntf(log,.
2380: 20 22 25 73 2c 25 73 2c 5c 22 25 73 3a 2f 2f 25 "%s,%s,\"%s://%
2390: 73 25 73 5c 22 2c 5c 22 25 73 5c 22 2c 22 0a 20 s%s\",\"%s\",".
23a0: 20 20 20 20 20 20 20 20 20 20 22 25 73 2c 25 64 "%s,%d
23b0: 2c 25 64 2c 25 64 2c 25 64 2c 25 64 2c 25 64 2c ,%d,%d,%d,%d,%d,
23c0: 25 64 2c 25 64 2c 5c 22 25 73 5c 22 2c 5c 22 25 %d,%d,\"%s\",\"%
23d0: 73 5c 22 2c 25 64 5c 6e 22 2c 0a 20 20 20 20 20 s\",%d\n",.
23e0: 20 20 20 7a 44 61 74 65 2c 20 7a 52 65 6d 6f 74 zDate, zRemot
23f0: 65 41 64 64 72 2c 20 7a 48 74 74 70 2c 20 45 73 eAddr, zHttp, Es
2400: 63 61 70 65 28 7a 48 74 74 70 48 6f 73 74 29 2c cape(zHttpHost),
2410: 20 45 73 63 61 70 65 28 7a 53 63 72 69 70 74 29 Escape(zScript)
2420: 2c 0a 20 20 20 20 20 20 20 20 45 73 63 61 70 65 ,. Escape
2430: 28 7a 52 65 66 65 72 65 72 29 2c 20 7a 52 65 70 (zReferer), zRep
2440: 6c 79 53 74 61 74 75 73 2c 20 6e 49 6e 2c 20 6e lyStatus, nIn, n
2450: 4f 75 74 2c 0a 20 20 20 20 20 20 20 20 74 76 6d Out,. tvm
2460: 73 28 26 73 65 6c 66 2e 72 75 5f 75 74 69 6d 65 s(&self.ru_utime
2470: 29 20 2d 20 74 76 6d 73 28 26 70 72 69 6f 72 53 ) - tvms(&priorS
2480: 65 6c 66 2e 72 75 5f 75 74 69 6d 65 29 2c 0a 20 elf.ru_utime),.
2490: 20 20 20 20 20 20 20 74 76 6d 73 28 26 73 65 6c tvms(&sel
24a0: 66 2e 72 75 5f 73 74 69 6d 65 29 20 2d 20 74 76 f.ru_stime) - tv
24b0: 6d 73 28 26 70 72 69 6f 72 53 65 6c 66 2e 72 75 ms(&priorSelf.ru
24c0: 5f 73 74 69 6d 65 29 2c 0a 20 20 20 20 20 20 20 _stime),.
24d0: 20 74 76 6d 73 28 26 63 68 69 6c 64 72 65 6e 2e tvms(&children.
24e0: 72 75 5f 75 74 69 6d 65 29 20 2d 20 74 76 6d 73 ru_utime) - tvms
24f0: 28 26 70 72 69 6f 72 43 68 69 6c 64 2e 72 75 5f (&priorChild.ru_
2500: 75 74 69 6d 65 29 2c 0a 20 20 20 20 20 20 20 20 utime),.
2510: 74 76 6d 73 28 26 63 68 69 6c 64 72 65 6e 2e 72 tvms(&children.r
2520: 75 5f 73 74 69 6d 65 29 20 2d 20 74 76 6d 73 28 u_stime) - tvms(
2530: 26 70 72 69 6f 72 43 68 69 6c 64 2e 72 75 5f 73 &priorChild.ru_s
2540: 74 69 6d 65 29 2c 0a 20 20 20 20 20 20 20 20 74 time),. t
2550: 76 6d 73 28 26 6e 6f 77 29 20 2d 20 74 76 6d 73 vms(&now) - tvms
2560: 28 26 62 65 67 69 6e 54 69 6d 65 29 2c 0a 20 20 (&beginTime),.
2570: 20 20 20 20 20 20 6e 52 65 71 75 65 73 74 2c 20 nRequest,
2580: 45 73 63 61 70 65 28 7a 41 67 65 6e 74 29 2c 20 Escape(zAgent),
2590: 45 73 63 61 70 65 28 7a 52 4d 29 2c 0a 20 20 20 Escape(zRM),.
25a0: 20 20 20 20 20 28 69 6e 74 29 28 73 74 72 6c 65 (int)(strle
25b0: 6e 28 7a 48 74 74 70 29 2b 73 74 72 6c 65 6e 28 n(zHttp)+strlen(
25c0: 7a 48 74 74 70 48 6f 73 74 29 2b 73 74 72 6c 65 zHttpHost)+strle
25d0: 6e 28 7a 52 65 61 6c 53 63 72 69 70 74 29 2b 33 n(zRealScript)+3
25e0: 29 0a 20 20 20 20 20 20 29 3b 0a 20 20 20 20 20 ). );.
25f0: 20 70 72 69 6f 72 53 65 6c 66 20 3d 20 73 65 6c priorSelf = sel
2600: 66 3b 0a 20 20 20 20 20 20 70 72 69 6f 72 43 68 f;. priorCh
2610: 69 6c 64 20 3d 20 63 68 69 6c 64 72 65 6e 3b 0a ild = children;.
2620: 20 20 20 20 20 20 62 65 67 69 6e 54 69 6d 65 20 beginTime
2630: 3d 20 6e 6f 77 3b 0a 23 65 6e 64 69 66 0a 20 20 = now;.#endif.
2640: 20 20 20 20 66 63 6c 6f 73 65 28 6c 6f 67 29 3b fclose(log);
2650: 0a 20 20 20 20 20 20 6e 49 6e 20 3d 20 6e 4f 75 . nIn = nOu
2660: 74 20 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 20 7d t = 0;. }. }
2670: 0a 20 20 69 66 28 20 63 6c 6f 73 65 43 6f 6e 6e . if( closeConn
2680: 65 63 74 69 6f 6e 20 29 7b 0a 20 20 20 20 65 78 ection ){. ex
2690: 69 74 28 61 29 3b 0a 20 20 7d 0a 20 20 73 74 61 it(a);. }. sta
26a0: 74 75 73 53 65 6e 74 20 3d 20 30 3b 0a 7d 0a 0a tusSent = 0;.}..
26b0: 2f 2a 0a 2a 2a 20 41 6c 6c 6f 63 61 74 65 20 6d /*.** Allocate m
26c0: 65 6d 6f 72 79 20 73 61 66 65 6c 79 0a 2a 2f 0a emory safely.*/.
26d0: 73 74 61 74 69 63 20 63 68 61 72 20 2a 53 61 66 static char *Saf
26e0: 65 4d 61 6c 6c 6f 63 28 20 69 6e 74 20 73 69 7a eMalloc( int siz
26f0: 65 20 29 7b 0a 20 20 63 68 61 72 20 2a 70 3b 0a e ){. char *p;.
2700: 0a 20 20 70 20 3d 20 28 63 68 61 72 2a 29 6d 61 . p = (char*)ma
2710: 6c 6c 6f 63 28 73 69 7a 65 29 3b 0a 20 20 69 66 lloc(size);. if
2720: 28 20 70 3d 3d 30 20 29 7b 0a 20 20 20 20 73 74 ( p==0 ){. st
2730: 72 63 70 79 28 7a 52 65 70 6c 79 53 74 61 74 75 rcpy(zReplyStatu
2740: 73 2c 20 22 39 39 38 22 29 3b 0a 20 20 20 20 4d s, "998");. M
2750: 61 6b 65 4c 6f 67 45 6e 74 72 79 28 31 29 3b 0a akeLogEntry(1);.
2760: 20 20 20 20 65 78 69 74 28 31 29 3b 0a 20 20 7d exit(1);. }
2770: 0a 20 20 72 65 74 75 72 6e 20 70 3b 0a 7d 0a 0a . return p;.}..
2780: 2f 2a 0a 2a 2a 20 53 65 74 20 74 68 65 20 76 61 /*.** Set the va
2790: 6c 75 65 20 6f 66 20 65 6e 76 69 72 6f 6e 6d 65 lue of environme
27a0: 6e 74 20 76 61 72 69 61 62 6c 65 20 7a 56 61 72 nt variable zVar
27b0: 20 74 6f 20 7a 56 61 6c 75 65 2e 0a 2a 2f 0a 73 to zValue..*/.s
27c0: 74 61 74 69 63 20 76 6f 69 64 20 53 65 74 45 6e tatic void SetEn
27d0: 76 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 56 v(const char *zV
27e0: 61 72 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a ar, const char *
27f0: 7a 56 61 6c 75 65 29 7b 0a 20 20 63 68 61 72 20 zValue){. char
2800: 2a 7a 3b 0a 20 20 69 6e 74 20 6c 65 6e 3b 0a 20 *z;. int len;.
2810: 20 69 66 28 20 7a 56 61 6c 75 65 3d 3d 30 20 29 if( zValue==0 )
2820: 20 7a 56 61 6c 75 65 3d 22 22 3b 0a 20 20 6c 65 zValue="";. le
2830: 6e 20 3d 20 73 74 72 6c 65 6e 28 7a 56 61 72 29 n = strlen(zVar)
2840: 20 2b 20 73 74 72 6c 65 6e 28 7a 56 61 6c 75 65 + strlen(zValue
2850: 29 20 2b 20 32 3b 0a 20 20 7a 20 3d 20 53 61 66 ) + 2;. z = Saf
2860: 65 4d 61 6c 6c 6f 63 28 6c 65 6e 29 3b 0a 20 20 eMalloc(len);.
2870: 73 70 72 69 6e 74 66 28 7a 2c 22 25 73 3d 25 73 sprintf(z,"%s=%s
2880: 22 2c 7a 56 61 72 2c 7a 56 61 6c 75 65 29 3b 0a ",zVar,zValue);.
2890: 20 20 70 75 74 65 6e 76 28 7a 29 3b 0a 7d 0a 0a putenv(z);.}..
28a0: 2f 2a 0a 2a 2a 20 52 65 6d 6f 76 65 20 74 68 65 /*.** Remove the
28b0: 20 66 69 72 73 74 20 73 70 61 63 65 2d 64 65 6c first space-del
28c0: 69 6d 69 74 65 64 20 74 6f 6b 65 6e 20 66 72 6f imited token fro
28d0: 6d 20 61 20 73 74 72 69 6e 67 20 61 6e 64 20 72 m a string and r
28e0: 65 74 75 72 6e 0a 2a 2a 20 61 20 70 6f 69 6e 74 eturn.** a point
28f0: 65 72 20 74 6f 20 69 74 2e 20 20 41 64 64 20 61 er to it. Add a
2900: 20 4e 55 4c 4c 20 74 6f 20 74 68 65 20 73 74 72 NULL to the str
2910: 69 6e 67 20 74 6f 20 74 65 72 6d 69 6e 61 74 65 ing to terminate
2920: 20 74 68 65 20 74 6f 6b 65 6e 2e 0a 2a 2a 20 4d the token..** M
2930: 61 6b 65 20 2a 7a 4c 65 66 74 4f 76 65 72 20 70 ake *zLeftOver p
2940: 6f 69 6e 74 20 74 6f 20 74 68 65 20 73 74 61 72 oint to the star
2950: 74 20 6f 66 20 74 68 65 20 6e 65 78 74 20 74 6f t of the next to
2960: 6b 65 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 63 ken..*/.static c
2970: 68 61 72 20 2a 47 65 74 46 69 72 73 74 45 6c 65 har *GetFirstEle
2980: 6d 65 6e 74 28 63 68 61 72 20 2a 7a 49 6e 70 75 ment(char *zInpu
2990: 74 2c 20 63 68 61 72 20 2a 2a 7a 4c 65 66 74 4f t, char **zLeftO
29a0: 76 65 72 29 7b 0a 20 20 63 68 61 72 20 2a 7a 52 ver){. char *zR
29b0: 65 73 75 6c 74 20 3d 20 30 3b 0a 20 20 69 66 28 esult = 0;. if(
29c0: 20 7a 49 6e 70 75 74 3d 3d 30 20 29 7b 0a 20 20 zInput==0 ){.
29d0: 20 20 69 66 28 20 7a 4c 65 66 74 4f 76 65 72 20 if( zLeftOver
29e0: 29 20 2a 7a 4c 65 66 74 4f 76 65 72 20 3d 20 30 ) *zLeftOver = 0
29f0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a ;. return 0;.
2a00: 20 20 7d 0a 20 20 77 68 69 6c 65 28 20 69 73 73 }. while( iss
2a10: 70 61 63 65 28 2a 7a 49 6e 70 75 74 29 20 29 7b pace(*zInput) ){
2a20: 20 7a 49 6e 70 75 74 2b 2b 3b 20 7d 0a 20 20 7a zInput++; }. z
2a30: 52 65 73 75 6c 74 20 3d 20 7a 49 6e 70 75 74 3b Result = zInput;
2a40: 0a 20 20 77 68 69 6c 65 28 20 2a 7a 49 6e 70 75 . while( *zInpu
2a50: 74 20 26 26 20 21 69 73 73 70 61 63 65 28 2a 7a t && !isspace(*z
2a60: 49 6e 70 75 74 29 20 29 7b 20 7a 49 6e 70 75 74 Input) ){ zInput
2a70: 2b 2b 3b 20 7d 0a 20 20 69 66 28 20 2a 7a 49 6e ++; }. if( *zIn
2a80: 70 75 74 20 29 7b 0a 20 20 20 20 2a 7a 49 6e 70 put ){. *zInp
2a90: 75 74 20 3d 20 30 3b 0a 20 20 20 20 7a 49 6e 70 ut = 0;. zInp
2aa0: 75 74 2b 2b 3b 0a 20 20 20 20 77 68 69 6c 65 28 ut++;. while(
2ab0: 20 69 73 73 70 61 63 65 28 2a 7a 49 6e 70 75 74 isspace(*zInput
2ac0: 29 20 29 7b 20 7a 49 6e 70 75 74 2b 2b 3b 20 7d ) ){ zInput++; }
2ad0: 0a 20 20 7d 0a 20 20 69 66 28 20 7a 4c 65 66 74 . }. if( zLeft
2ae0: 4f 76 65 72 20 29 7b 20 2a 7a 4c 65 66 74 4f 76 Over ){ *zLeftOv
2af0: 65 72 20 3d 20 7a 49 6e 70 75 74 3b 20 7d 0a 20 er = zInput; }.
2b00: 20 72 65 74 75 72 6e 20 7a 52 65 73 75 6c 74 3b return zResult;
2b10: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 4d 61 6b 65 20 61 .}../*.** Make a
2b20: 20 63 6f 70 79 20 6f 66 20 61 20 73 74 72 69 6e copy of a strin
2b30: 67 20 69 6e 74 6f 20 6d 65 6d 6f 72 79 20 6f 62 g into memory ob
2b40: 74 61 69 6e 65 64 20 66 72 6f 6d 20 6d 61 6c 6c tained from mall
2b50: 6f 63 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 63 68 oc..*/.static ch
2b60: 61 72 20 2a 53 74 72 44 75 70 28 63 6f 6e 73 74 ar *StrDup(const
2b70: 20 63 68 61 72 20 2a 7a 53 72 63 29 7b 0a 20 20 char *zSrc){.
2b80: 63 68 61 72 20 2a 7a 44 65 73 74 3b 0a 20 20 69 char *zDest;. i
2b90: 6e 74 20 73 69 7a 65 3b 0a 0a 20 20 69 66 28 20 nt size;.. if(
2ba0: 7a 53 72 63 3d 3d 30 20 29 20 72 65 74 75 72 6e zSrc==0 ) return
2bb0: 20 30 3b 0a 20 20 73 69 7a 65 20 3d 20 73 74 72 0;. size = str
2bc0: 6c 65 6e 28 7a 53 72 63 29 20 2b 20 31 3b 0a 20 len(zSrc) + 1;.
2bd0: 20 7a 44 65 73 74 20 3d 20 28 63 68 61 72 2a 29 zDest = (char*)
2be0: 53 61 66 65 4d 61 6c 6c 6f 63 28 20 73 69 7a 65 SafeMalloc( size
2bf0: 20 29 3b 0a 20 20 73 74 72 63 70 79 28 7a 44 65 );. strcpy(zDe
2c00: 73 74 2c 7a 53 72 63 29 3b 0a 20 20 72 65 74 75 st,zSrc);. retu
2c10: 72 6e 20 7a 44 65 73 74 3b 0a 7d 0a 73 74 61 74 rn zDest;.}.stat
2c20: 69 63 20 63 68 61 72 20 2a 53 74 72 41 70 70 65 ic char *StrAppe
2c30: 6e 64 28 63 68 61 72 20 2a 7a 50 72 69 6f 72 2c nd(char *zPrior,
2c40: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 53 65 const char *zSe
2c50: 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a p, const char *z
2c60: 53 72 63 29 7b 0a 20 20 63 68 61 72 20 2a 7a 44 Src){. char *zD
2c70: 65 73 74 3b 0a 20 20 69 6e 74 20 73 69 7a 65 3b est;. int size;
2c80: 0a 20 20 69 6e 74 20 6e 31 2c 20 6e 32 3b 0a 0a . int n1, n2;..
2c90: 20 20 69 66 28 20 7a 53 72 63 3d 3d 30 20 29 20 if( zSrc==0 )
2ca0: 72 65 74 75 72 6e 20 30 3b 0a 20 20 69 66 28 20 return 0;. if(
2cb0: 7a 50 72 69 6f 72 3d 3d 30 20 29 20 72 65 74 75 zPrior==0 ) retu
2cc0: 72 6e 20 53 74 72 44 75 70 28 7a 53 72 63 29 3b rn StrDup(zSrc);
2cd0: 0a 20 20 73 69 7a 65 20 3d 20 28 6e 31 3d 73 74 . size = (n1=st
2ce0: 72 6c 65 6e 28 7a 53 72 63 29 29 20 2b 20 28 6e rlen(zSrc)) + (n
2cf0: 32 3d 73 74 72 6c 65 6e 28 7a 53 65 70 29 29 20 2=strlen(zSep))
2d00: 2b 20 73 74 72 6c 65 6e 28 7a 50 72 69 6f 72 29 + strlen(zPrior)
2d10: 20 2b 20 31 3b 0a 20 20 7a 44 65 73 74 20 3d 20 + 1;. zDest =
2d20: 28 63 68 61 72 2a 29 53 61 66 65 4d 61 6c 6c 6f (char*)SafeMallo
2d30: 63 28 20 73 69 7a 65 20 29 3b 0a 20 20 73 74 72 c( size );. str
2d40: 63 70 79 28 7a 44 65 73 74 2c 7a 50 72 69 6f 72 cpy(zDest,zPrior
2d50: 29 3b 0a 20 20 66 72 65 65 28 7a 50 72 69 6f 72 );. free(zPrior
2d60: 29 3b 0a 20 20 73 74 72 63 70 79 28 26 7a 44 65 );. strcpy(&zDe
2d70: 73 74 5b 6e 31 5d 2c 7a 53 65 70 29 3b 0a 20 20 st[n1],zSep);.
2d80: 73 74 72 63 70 79 28 26 7a 44 65 73 74 5b 6e 31 strcpy(&zDest[n1
2d90: 2b 6e 32 5d 2c 7a 53 72 63 29 3b 0a 20 20 72 65 +n2],zSrc);. re
2da0: 74 75 72 6e 20 7a 44 65 73 74 3b 0a 7d 0a 0a 2f turn zDest;.}../
2db0: 2a 0a 2a 2a 20 42 72 65 61 6b 20 61 20 6c 69 6e *.** Break a lin
2dc0: 65 20 61 74 20 74 68 65 20 66 69 72 73 74 20 5c e at the first \
2dd0: 6e 20 6f 72 20 5c 72 20 63 68 61 72 61 63 74 65 n or \r characte
2de0: 72 20 73 65 65 6e 2e 0a 2a 2f 0a 73 74 61 74 69 r seen..*/.stati
2df0: 63 20 76 6f 69 64 20 52 65 6d 6f 76 65 4e 65 77 c void RemoveNew
2e00: 6c 69 6e 65 28 63 68 61 72 20 2a 7a 29 7b 0a 20 line(char *z){.
2e10: 20 69 66 28 20 7a 3d 3d 30 20 29 20 72 65 74 75 if( z==0 ) retu
2e20: 72 6e 3b 0a 20 20 77 68 69 6c 65 28 20 2a 7a 20 rn;. while( *z
2e30: 26 26 20 2a 7a 21 3d 27 5c 6e 27 20 26 26 20 2a && *z!='\n' && *
2e40: 7a 21 3d 27 5c 72 27 20 29 7b 20 7a 2b 2b 3b 20 z!='\r' ){ z++;
2e50: 7d 0a 20 20 2a 7a 20 3d 20 30 3b 0a 7d 0a 0a 2f }. *z = 0;.}../
2e60: 2a 0a 2a 2a 20 50 72 69 6e 74 20 61 20 64 61 74 *.** Print a dat
2e70: 65 20 74 61 67 20 69 6e 20 74 68 65 20 68 65 61 e tag in the hea
2e80: 64 65 72 2e 20 20 54 68 65 20 6e 61 6d 65 20 6f der. The name o
2e90: 66 20 74 68 65 20 74 61 67 20 69 73 20 7a 54 61 f the tag is zTa
2ea0: 67 2e 0a 2a 2a 20 54 68 65 20 64 61 74 65 20 69 g..** The date i
2eb0: 73 20 64 65 74 65 72 6d 69 6e 65 64 20 66 72 6f s determined fro
2ec0: 6d 20 74 68 65 20 75 6e 69 78 20 74 69 6d 65 73 m the unix times
2ed0: 74 61 6d 70 20 67 69 76 65 6e 2e 0a 2a 2f 0a 73 tamp given..*/.s
2ee0: 74 61 74 69 63 20 69 6e 74 20 44 61 74 65 54 61 tatic int DateTa
2ef0: 67 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 54 g(const char *zT
2f00: 61 67 2c 20 74 69 6d 65 5f 74 20 74 29 7b 0a 20 ag, time_t t){.
2f10: 20 73 74 72 75 63 74 20 74 6d 20 2a 74 6d 3b 0a struct tm *tm;.
2f20: 20 20 63 68 61 72 20 7a 44 61 74 65 5b 31 30 30 char zDate[100
2f30: 5d 3b 0a 20 20 74 6d 20 3d 20 67 6d 74 69 6d 65 ];. tm = gmtime
2f40: 28 26 74 29 3b 0a 20 20 73 74 72 66 74 69 6d 65 (&t);. strftime
2f50: 28 7a 44 61 74 65 2c 20 73 69 7a 65 6f 66 28 7a (zDate, sizeof(z
2f60: 44 61 74 65 29 2c 20 22 25 61 2c 20 25 64 20 20 Date), "%a, %d
2f70: 25 62 20 25 59 20 25 48 3a 25 4d 3a 25 53 20 25 %b %Y %H:%M:%S %
2f80: 7a 22 2c 20 74 6d 29 3b 0a 20 20 72 65 74 75 72 z", tm);. retur
2f90: 6e 20 70 72 69 6e 74 66 28 22 25 73 3a 20 25 73 n printf("%s: %s
2fa0: 5c 72 5c 6e 22 2c 20 7a 54 61 67 2c 20 7a 44 61 \r\n", zTag, zDa
2fb0: 74 65 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 72 te);.}../*.** Pr
2fc0: 69 6e 74 20 74 68 65 20 66 69 72 73 74 20 6c 69 int the first li
2fd0: 6e 65 20 6f 66 20 61 20 72 65 73 70 6f 6e 73 65 ne of a response
2fe0: 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 74 68 65 followed by the
2ff0: 20 73 65 72 76 65 72 20 74 79 70 65 2e 0a 2a 2f server type..*/
3000: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 53 74 61 .static void Sta
3010: 72 74 52 65 73 70 6f 6e 73 65 28 63 6f 6e 73 74 rtResponse(const
3020: 20 63 68 61 72 20 2a 7a 52 65 73 75 6c 74 43 6f char *zResultCo
3030: 64 65 29 7b 0a 20 20 74 69 6d 65 5f 74 20 6e 6f de){. time_t no
3040: 77 3b 0a 20 20 74 69 6d 65 28 26 6e 6f 77 29 3b w;. time(&now);
3050: 0a 20 20 69 66 28 20 73 74 61 74 75 73 53 65 6e . if( statusSen
3060: 74 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 6e 4f t ) return;. nO
3070: 75 74 20 2b 3d 20 70 72 69 6e 74 66 28 22 25 73 ut += printf("%s
3080: 20 25 73 5c 72 5c 6e 22 2c 20 7a 50 72 6f 74 6f %s\r\n", zProto
3090: 63 6f 6c 2c 20 7a 52 65 73 75 6c 74 43 6f 64 65 col, zResultCode
30a0: 29 3b 0a 20 20 73 74 72 6e 63 70 79 28 7a 52 65 );. strncpy(zRe
30b0: 70 6c 79 53 74 61 74 75 73 2c 20 7a 52 65 73 75 plyStatus, zResu
30c0: 6c 74 43 6f 64 65 2c 20 33 29 3b 0a 20 20 7a 52 ltCode, 3);. zR
30d0: 65 70 6c 79 53 74 61 74 75 73 5b 33 5d 20 3d 20 eplyStatus[3] =
30e0: 30 3b 0a 20 20 69 66 28 20 7a 52 65 70 6c 79 53 0;. if( zReplyS
30f0: 74 61 74 75 73 5b 30 5d 3e 3d 27 34 27 20 29 7b tatus[0]>='4' ){
3100: 0a 20 20 20 20 63 6c 6f 73 65 43 6f 6e 6e 65 63 . closeConnec
3110: 74 69 6f 6e 20 3d 20 31 3b 0a 20 20 7d 0a 20 20 tion = 1;. }.
3120: 69 66 28 20 63 6c 6f 73 65 43 6f 6e 6e 65 63 74 if( closeConnect
3130: 69 6f 6e 20 29 7b 0a 20 20 20 20 6e 4f 75 74 20 ion ){. nOut
3140: 2b 3d 20 70 72 69 6e 74 66 28 22 43 6f 6e 6e 65 += printf("Conne
3150: 63 74 69 6f 6e 3a 20 63 6c 6f 73 65 5c 72 5c 6e ction: close\r\n
3160: 22 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 ");. }else{.
3170: 20 6e 4f 75 74 20 2b 3d 20 70 72 69 6e 74 66 28 nOut += printf(
3180: 22 43 6f 6e 6e 65 63 74 69 6f 6e 3a 20 6b 65 65 "Connection: kee
3190: 70 2d 61 6c 69 76 65 5c 72 5c 6e 22 29 3b 0a 20 p-alive\r\n");.
31a0: 20 7d 0a 20 20 6e 4f 75 74 20 2b 3d 20 44 61 74 }. nOut += Dat
31b0: 65 54 61 67 28 22 44 61 74 65 22 2c 20 6e 6f 77 eTag("Date", now
31c0: 29 3b 0a 20 20 73 74 61 74 75 73 53 65 6e 74 20 );. statusSent
31d0: 3d 20 31 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 65 = 1;.}../*.** Te
31e0: 6c 6c 20 74 68 65 20 63 6c 69 65 6e 74 20 74 68 ll the client th
31f0: 61 74 20 74 68 65 72 65 20 69 73 20 6e 6f 20 73 at there is no s
3200: 75 63 68 20 64 6f 63 75 6d 65 6e 74 0a 2a 2f 0a uch document.*/.
3210: 73 74 61 74 69 63 20 76 6f 69 64 20 4e 6f 74 46 static void NotF
3220: 6f 75 6e 64 28 69 6e 74 20 6c 69 6e 65 6e 6f 29 ound(int lineno)
3230: 7b 0a 20 20 53 74 61 72 74 52 65 73 70 6f 6e 73 {. StartRespons
3240: 65 28 22 34 30 34 20 4e 6f 74 20 46 6f 75 6e 64 e("404 Not Found
3250: 22 29 3b 0a 20 20 6e 4f 75 74 20 2b 3d 20 70 72 ");. nOut += pr
3260: 69 6e 74 66 28 0a 20 20 20 20 22 43 6f 6e 74 65 intf(. "Conte
3270: 6e 74 2d 74 79 70 65 3a 20 74 65 78 74 2f 68 74 nt-type: text/ht
3280: 6d 6c 5c 72 5c 6e 22 0a 20 20 20 20 22 5c 72 5c ml\r\n". "\r\
3290: 6e 22 0a 20 20 20 20 22 3c 68 65 61 64 3e 3c 74 n". "<head><t
32a0: 69 74 6c 65 20 6c 69 6e 65 6e 6f 3d 5c 22 25 64 itle lineno=\"%d
32b0: 5c 22 3e 4e 6f 74 20 46 6f 75 6e 64 3c 2f 74 69 \">Not Found</ti
32c0: 74 6c 65 3e 3c 2f 68 65 61 64 3e 5c 6e 22 0a 20 tle></head>\n".
32d0: 20 20 20 22 3c 62 6f 64 79 3e 3c 68 31 3e 44 6f "<body><h1>Do
32e0: 63 75 6d 65 6e 74 20 4e 6f 74 20 46 6f 75 6e 64 cument Not Found
32f0: 3c 2f 68 31 3e 5c 6e 22 0a 20 20 20 20 22 54 68 </h1>\n". "Th
3300: 65 20 64 6f 63 75 6d 65 6e 74 20 25 73 20 69 73 e document %s is
3310: 20 6e 6f 74 20 61 76 61 69 6c 61 62 6c 65 20 6f not available o
3320: 6e 20 74 68 69 73 20 73 65 72 76 65 72 5c 6e 22 n this server\n"
3330: 0a 20 20 20 20 22 3c 2f 62 6f 64 79 3e 5c 6e 22 . "</body>\n"
3340: 2c 20 6c 69 6e 65 6e 6f 2c 20 7a 53 63 72 69 70 , lineno, zScrip
3350: 74 29 3b 0a 20 20 4d 61 6b 65 4c 6f 67 45 6e 74 t);. MakeLogEnt
3360: 72 79 28 30 29 3b 0a 20 20 65 78 69 74 28 30 29 ry(0);. exit(0)
3370: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 65 6c 6c 20 ;.}../*.** Tell
3380: 74 68 65 20 63 6c 69 65 6e 74 20 74 68 61 74 20 the client that
3390: 74 68 65 79 20 61 72 65 20 6e 6f 74 20 77 65 6c they are not wel
33a0: 63 6f 6d 65 64 20 68 65 72 65 2e 0a 2a 2f 0a 73 comed here..*/.s
33b0: 74 61 74 69 63 20 76 6f 69 64 20 46 6f 72 62 69 tatic void Forbi
33c0: 64 64 65 6e 28 76 6f 69 64 29 7b 0a 20 20 53 74 dden(void){. St
33d0: 61 72 74 52 65 73 70 6f 6e 73 65 28 22 34 30 33 artResponse("403
33e0: 20 46 6f 72 62 69 64 64 65 6e 22 29 3b 0a 20 20 Forbidden");.
33f0: 6e 4f 75 74 20 2b 3d 20 70 72 69 6e 74 66 28 0a nOut += printf(.
3400: 20 20 20 20 22 43 6f 6e 74 65 6e 74 2d 74 79 70 "Content-typ
3410: 65 3a 20 74 65 78 74 2f 70 6c 61 69 6e 5c 72 5c e: text/plain\r\
3420: 6e 22 0a 20 20 20 20 22 5c 72 5c 6e 22 0a 20 20 n". "\r\n".
3430: 20 20 22 41 63 63 65 73 73 20 64 65 6e 69 65 64 "Access denied
3440: 5c 6e 22 0a 20 20 29 3b 0a 20 20 63 6c 6f 73 65 \n". );. close
3450: 43 6f 6e 6e 65 63 74 69 6f 6e 20 3d 20 31 3b 0a Connection = 1;.
3460: 20 20 4d 61 6b 65 4c 6f 67 45 6e 74 72 79 28 30 MakeLogEntry(0
3470: 29 3b 0a 20 20 65 78 69 74 28 30 29 3b 0a 7d 0a );. exit(0);.}.
3480: 0a 2f 2a 0a 2a 2a 20 54 65 6c 6c 20 74 68 65 20 ./*.** Tell the
3490: 63 6c 69 65 6e 74 20 74 68 61 74 20 61 75 74 68 client that auth
34a0: 6f 72 69 7a 61 74 69 6f 6e 20 69 73 20 72 65 71 orization is req
34b0: 75 69 72 65 64 20 74 6f 20 61 63 63 65 73 73 20 uired to access
34c0: 74 68 65 0a 2a 2a 20 64 6f 63 75 6d 65 6e 74 2e the.** document.
34d0: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 .*/.static void
34e0: 4e 6f 74 41 75 74 68 6f 72 69 7a 65 64 28 63 6f NotAuthorized(co
34f0: 6e 73 74 20 63 68 61 72 20 2a 7a 52 65 61 6c 6d nst char *zRealm
3500: 29 7b 0a 20 20 53 74 61 72 74 52 65 73 70 6f 6e ){. StartRespon
3510: 73 65 28 22 34 30 31 20 41 75 74 68 6f 72 69 7a se("401 Authoriz
3520: 61 74 69 6f 6e 20 52 65 71 75 69 72 65 64 22 29 ation Required")
3530: 3b 0a 20 20 6e 4f 75 74 20 2b 3d 20 70 72 69 6e ;. nOut += prin
3540: 74 66 28 0a 20 20 20 20 22 57 57 57 2d 41 75 74 tf(. "WWW-Aut
3550: 68 65 6e 74 69 63 61 74 65 3a 20 42 61 73 69 63 henticate: Basic
3560: 20 72 65 61 6c 6d 3d 5c 22 25 73 5c 22 5c 72 5c realm=\"%s\"\r\
3570: 6e 22 0a 20 20 20 20 22 43 6f 6e 74 65 6e 74 2d n". "Content-
3580: 74 79 70 65 3a 20 74 65 78 74 2f 68 74 6d 6c 5c type: text/html\
3590: 72 5c 6e 22 0a 20 20 20 20 22 5c 72 5c 6e 22 0a r\n". "\r\n".
35a0: 20 20 20 20 22 3c 68 65 61 64 3e 3c 74 69 74 6c "<head><titl
35b0: 65 3e 4e 6f 74 20 41 75 74 68 6f 72 69 7a 65 64 e>Not Authorized
35c0: 3c 2f 74 69 74 6c 65 3e 3c 2f 68 65 61 64 3e 5c </title></head>\
35d0: 6e 22 0a 20 20 20 20 22 3c 62 6f 64 79 3e 3c 68 n". "<body><h
35e0: 31 3e 34 30 31 20 4e 6f 74 20 41 75 74 68 6f 72 1>401 Not Author
35f0: 69 7a 65 64 3c 2f 68 31 3e 5c 6e 22 0a 20 20 20 ized</h1>\n".
3600: 20 22 41 20 6c 6f 67 69 6e 20 61 6e 64 20 70 61 "A login and pa
3610: 73 73 77 6f 72 64 20 61 72 65 20 72 65 71 75 69 ssword are requi
3620: 72 65 64 20 66 6f 72 20 74 68 69 73 20 64 6f 63 red for this doc
3630: 75 6d 65 6e 74 5c 6e 22 0a 20 20 20 20 22 3c 2f ument\n". "</
3640: 62 6f 64 79 3e 5c 6e 22 2c 20 7a 52 65 61 6c 6d body>\n", zRealm
3650: 29 3b 0a 20 20 4d 61 6b 65 4c 6f 67 45 6e 74 72 );. MakeLogEntr
3660: 79 28 30 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 y(0);.}../*.** T
3670: 65 6c 6c 20 74 68 65 20 63 6c 69 65 6e 74 20 74 ell the client t
3680: 68 61 74 20 74 68 65 72 65 20 69 73 20 61 6e 20 hat there is an
3690: 65 72 72 6f 72 20 69 6e 20 74 68 65 20 73 63 72 error in the scr
36a0: 69 70 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 ipt..*/.static v
36b0: 6f 69 64 20 43 67 69 45 72 72 6f 72 28 76 6f 69 oid CgiError(voi
36c0: 64 29 7b 0a 20 20 53 74 61 72 74 52 65 73 70 6f d){. StartRespo
36d0: 6e 73 65 28 22 35 30 30 20 45 72 72 6f 72 22 29 nse("500 Error")
36e0: 3b 0a 20 20 6e 4f 75 74 20 2b 3d 20 70 72 69 6e ;. nOut += prin
36f0: 74 66 28 0a 20 20 20 20 22 43 6f 6e 74 65 6e 74 tf(. "Content
3700: 2d 74 79 70 65 3a 20 74 65 78 74 2f 68 74 6d 6c -type: text/html
3710: 5c 72 5c 6e 22 0a 20 20 20 20 22 5c 72 5c 6e 22 \r\n". "\r\n"
3720: 0a 20 20 20 20 22 3c 68 65 61 64 3e 3c 74 69 74 . "<head><tit
3730: 6c 65 3e 43 47 49 20 50 72 6f 67 72 61 6d 20 45 le>CGI Program E
3740: 72 72 6f 72 3c 2f 74 69 74 6c 65 3e 3c 2f 68 65 rror</title></he
3750: 61 64 3e 5c 6e 22 0a 20 20 20 20 22 3c 62 6f 64 ad>\n". "<bod
3760: 79 3e 3c 68 31 3e 43 47 49 20 50 72 6f 67 72 61 y><h1>CGI Progra
3770: 6d 20 45 72 72 6f 72 3c 2f 68 31 3e 5c 6e 22 0a m Error</h1>\n".
3780: 20 20 20 20 22 54 68 65 20 43 47 49 20 70 72 6f "The CGI pro
3790: 67 72 61 6d 20 25 73 20 67 65 6e 65 72 61 74 65 gram %s generate
37a0: 64 20 61 6e 20 65 72 72 6f 72 5c 6e 22 0a 20 20 d an error\n".
37b0: 20 20 22 3c 2f 62 6f 64 79 3e 5c 6e 22 2c 20 7a "</body>\n", z
37c0: 53 63 72 69 70 74 29 3b 0a 20 20 4d 61 6b 65 4c Script);. MakeL
37d0: 6f 67 45 6e 74 72 79 28 30 29 3b 0a 20 20 65 78 ogEntry(0);. ex
37e0: 69 74 28 30 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 it(0);.}../*.**
37f0: 54 68 69 73 20 69 73 20 63 61 6c 6c 65 64 20 69 This is called i
3800: 66 20 77 65 20 74 69 6d 65 6f 75 74 20 6f 72 20 f we timeout or
3810: 63 61 74 63 68 20 73 6f 6d 65 20 6f 74 68 65 72 catch some other
3820: 20 6b 69 6e 64 20 6f 66 20 73 69 67 6e 61 6c 2e kind of signal.
3830: 0a 2a 2a 20 4c 6f 67 20 61 6e 20 65 72 72 6f 72 .** Log an error
3840: 20 63 6f 64 65 20 77 68 69 63 68 20 69 73 20 39 code which is 9
3850: 30 30 2b 69 53 69 67 20 61 6e 64 20 74 68 65 6e 00+iSig and then
3860: 20 71 75 69 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 quit..*/.static
3870: 20 76 6f 69 64 20 54 69 6d 65 6f 75 74 28 69 6e void Timeout(in
3880: 74 20 69 53 69 67 29 7b 0a 20 20 69 66 28 20 21 t iSig){. if( !
3890: 64 65 62 75 67 46 6c 61 67 20 29 7b 0a 20 20 20 debugFlag ){.
38a0: 20 69 66 28 20 7a 53 63 72 69 70 74 20 26 26 20 if( zScript &&
38b0: 7a 53 63 72 69 70 74 5b 30 5d 20 29 7b 0a 20 20 zScript[0] ){.
38c0: 20 20 20 20 63 68 61 72 20 7a 42 75 66 5b 31 30 char zBuf[10
38d0: 5d 3b 0a 20 20 20 20 20 20 7a 42 75 66 5b 30 5d ];. zBuf[0]
38e0: 20 3d 20 27 39 27 3b 0a 20 20 20 20 20 20 7a 42 = '9';. zB
38f0: 75 66 5b 31 5d 20 3d 20 27 30 27 20 2b 20 28 69 uf[1] = '0' + (i
3900: 53 69 67 2f 31 30 29 25 31 30 3b 0a 20 20 20 20 Sig/10)%10;.
3910: 20 20 7a 42 75 66 5b 32 5d 20 3d 20 27 30 27 20 zBuf[2] = '0'
3920: 2b 20 69 53 69 67 25 31 30 3b 0a 20 20 20 20 20 + iSig%10;.
3930: 20 7a 42 75 66 5b 33 5d 20 3d 20 30 3b 0a 20 20 zBuf[3] = 0;.
3940: 20 20 20 20 73 74 72 63 70 79 28 7a 52 65 70 6c strcpy(zRepl
3950: 79 53 74 61 74 75 73 2c 20 7a 42 75 66 29 3b 0a yStatus, zBuf);.
3960: 20 20 20 20 20 20 4d 61 6b 65 4c 6f 67 45 6e 74 MakeLogEnt
3970: 72 79 28 30 29 3b 0a 20 20 20 20 7d 0a 20 20 20 ry(0);. }.
3980: 20 65 78 69 74 28 30 29 3b 0a 20 20 7d 0a 7d 0a exit(0);. }.}.
3990: 0a 2f 2a 0a 2a 2a 20 54 65 6c 6c 20 74 68 65 20 ./*.** Tell the
39a0: 63 6c 69 65 6e 74 20 74 68 61 74 20 74 68 65 72 client that ther
39b0: 65 20 69 73 20 61 6e 20 65 72 72 6f 72 20 69 6e e is an error in
39c0: 20 74 68 65 20 73 63 72 69 70 74 2e 0a 2a 2f 0a the script..*/.
39d0: 73 74 61 74 69 63 20 76 6f 69 64 20 43 67 69 53 static void CgiS
39e0: 63 72 69 70 74 57 72 69 74 61 62 6c 65 28 76 6f criptWritable(vo
39f0: 69 64 29 7b 0a 20 20 53 74 61 72 74 52 65 73 70 id){. StartResp
3a00: 6f 6e 73 65 28 22 35 30 30 20 43 47 49 20 43 6f onse("500 CGI Co
3a10: 6e 66 69 67 75 72 61 74 69 6f 6e 20 45 72 72 6f nfiguration Erro
3a20: 72 22 29 3b 0a 20 20 6e 4f 75 74 20 2b 3d 20 70 r");. nOut += p
3a30: 72 69 6e 74 66 28 0a 20 20 20 20 22 43 6f 6e 74 rintf(. "Cont
3a40: 65 6e 74 2d 74 79 70 65 3a 20 74 65 78 74 2f 70 ent-type: text/p
3a50: 6c 61 69 6e 5c 72 5c 6e 22 0a 20 20 20 20 22 5c lain\r\n". "\
3a60: 72 5c 6e 22 0a 20 20 20 20 22 54 68 65 20 43 47 r\n". "The CG
3a70: 49 20 70 72 6f 67 72 61 6d 20 25 73 20 69 73 20 I program %s is
3a80: 77 72 69 74 61 62 6c 65 20 62 79 20 75 73 65 72 writable by user
3a90: 73 20 6f 74 68 65 72 20 74 68 61 6e 20 69 74 73 s other than its
3aa0: 20 6f 77 6e 65 72 2e 5c 6e 22 2c 0a 20 20 20 20 owner.\n",.
3ab0: 7a 52 65 61 6c 53 63 72 69 70 74 29 3b 0a 20 20 zRealScript);.
3ac0: 4d 61 6b 65 4c 6f 67 45 6e 74 72 79 28 30 29 3b MakeLogEntry(0);
3ad0: 0a 20 20 65 78 69 74 28 30 29 3b 20 20 20 20 20 . exit(0);
3ae0: 20 20 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 65 6c 6c .}../*.** Tell
3af0: 20 74 68 65 20 63 6c 69 65 6e 74 20 74 68 61 74 the client that
3b00: 20 74 68 65 20 73 65 72 76 65 72 20 6d 61 6c 66 the server malf
3b10: 75 6e 63 74 69 6f 6e 65 64 2e 0a 2a 2f 0a 73 74 unctioned..*/.st
3b20: 61 74 69 63 20 76 6f 69 64 20 4d 61 6c 66 75 6e atic void Malfun
3b30: 63 74 69 6f 6e 28 69 6e 74 20 6c 69 6e 65 6e 75 ction(int linenu
3b40: 6d 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a m, const char *z
3b50: 46 6f 72 6d 61 74 2c 20 2e 2e 2e 29 7b 0a 20 20 Format, ...){.
3b60: 76 61 5f 6c 69 73 74 20 61 70 3b 0a 20 20 76 61 va_list ap;. va
3b70: 5f 73 74 61 72 74 28 61 70 2c 20 7a 46 6f 72 6d _start(ap, zForm
3b80: 61 74 29 3b 0a 20 20 53 74 61 72 74 52 65 73 70 at);. StartResp
3b90: 6f 6e 73 65 28 22 35 30 30 20 53 65 72 76 65 72 onse("500 Server
3ba0: 20 4d 61 6c 66 75 6e 63 74 69 6f 6e 22 29 3b 0a Malfunction");.
3bb0: 20 20 6e 4f 75 74 20 2b 3d 20 70 72 69 6e 74 66 nOut += printf
3bc0: 28 0a 20 20 20 20 22 43 6f 6e 74 65 6e 74 2d 74 (. "Content-t
3bd0: 79 70 65 3a 20 74 65 78 74 2f 70 6c 61 69 6e 5c ype: text/plain\
3be0: 72 5c 6e 22 0a 20 20 20 20 22 5c 72 5c 6e 22 0a r\n". "\r\n".
3bf0: 20 20 20 20 22 57 65 62 20 73 65 72 76 65 72 20 "Web server
3c00: 6d 61 6c 66 75 6e 63 74 69 6f 6e 65 64 3b 20 65 malfunctioned; e
3c10: 72 72 6f 72 20 6e 75 6d 62 65 72 20 25 64 5c 6e rror number %d\n
3c20: 5c 6e 22 2c 20 6c 69 6e 65 6e 75 6d 29 3b 0a 20 \n", linenum);.
3c30: 20 69 66 28 20 7a 46 6f 72 6d 61 74 20 29 7b 0a if( zFormat ){.
3c40: 20 20 20 20 6e 4f 75 74 20 2b 3d 20 76 70 72 69 nOut += vpri
3c50: 6e 74 66 28 7a 46 6f 72 6d 61 74 2c 20 61 70 29 ntf(zFormat, ap)
3c60: 3b 0a 20 20 7d 0a 20 20 4d 61 6b 65 4c 6f 67 45 ;. }. MakeLogE
3c70: 6e 74 72 79 28 30 29 3b 0a 20 20 65 78 69 74 28 ntry(0);. exit(
3c80: 30 29 3b 20 20 20 20 20 20 20 0a 7d 0a 0a 2f 2a 0); .}../*
3c90: 0a 2a 2a 20 44 6f 20 61 20 73 65 72 76 65 72 20 .** Do a server
3ca0: 72 65 64 69 72 65 63 74 20 74 6f 20 74 68 65 20 redirect to the
3cb0: 64 6f 63 75 6d 65 6e 74 20 73 70 65 63 69 66 69 document specifi
3cc0: 65 64 2e 20 20 54 68 65 20 64 6f 63 75 6d 65 6e ed. The documen
3cd0: 74 0a 2a 2a 20 6e 61 6d 65 20 6e 6f 74 20 63 6f t.** name not co
3ce0: 6e 74 61 69 6e 20 73 63 68 65 6d 65 20 6f 72 20 ntain scheme or
3cf0: 6e 65 74 77 6f 72 6b 20 6c 6f 63 61 74 69 6f 6e network location
3d00: 20 6f 72 20 74 68 65 20 71 75 65 72 79 20 73 74 or the query st
3d10: 72 69 6e 67 2e 0a 2a 2a 20 49 74 20 77 69 6c 6c ring..** It will
3d20: 20 62 65 20 6a 75 73 74 20 74 68 65 20 70 61 74 be just the pat
3d30: 68 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 h..*/.static voi
3d40: 64 20 52 65 64 69 72 65 63 74 28 63 6f 6e 73 74 d Redirect(const
3d50: 20 63 68 61 72 20 2a 7a 50 61 74 68 2c 20 69 6e char *zPath, in
3d60: 74 20 66 69 6e 69 73 68 29 7b 0a 20 20 53 74 61 t finish){. Sta
3d70: 72 74 52 65 73 70 6f 6e 73 65 28 22 33 30 32 20 rtResponse("302
3d80: 54 65 6d 70 6f 72 61 72 79 20 52 65 64 69 72 65 Temporary Redire
3d90: 63 74 22 29 3b 0a 20 20 69 66 28 20 7a 53 65 72 ct");. if( zSer
3da0: 76 65 72 50 6f 72 74 3d 3d 30 20 7c 7c 20 7a 53 verPort==0 || zS
3db0: 65 72 76 65 72 50 6f 72 74 5b 30 5d 3d 3d 30 20 erverPort[0]==0
3dc0: 7c 7c 20 73 74 72 63 6d 70 28 7a 53 65 72 76 65 || strcmp(zServe
3dd0: 72 50 6f 72 74 2c 22 38 30 22 29 3d 3d 30 20 29 rPort,"80")==0 )
3de0: 7b 0a 20 20 20 20 6e 4f 75 74 20 2b 3d 20 70 72 {. nOut += pr
3df0: 69 6e 74 66 28 22 4c 6f 63 61 74 69 6f 6e 3a 20 intf("Location:
3e00: 25 73 3a 2f 2f 25 73 25 73 25 73 5c 72 5c 6e 22 %s://%s%s%s\r\n"
3e10: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
3e20: 20 20 20 20 20 7a 48 74 74 70 2c 20 7a 53 65 72 zHttp, zSer
3e30: 76 65 72 4e 61 6d 65 2c 20 7a 50 61 74 68 2c 20 verName, zPath,
3e40: 7a 51 75 65 72 79 53 75 66 66 69 78 29 3b 0a 20 zQuerySuffix);.
3e50: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 6e 4f 75 74 }else{. nOut
3e60: 20 2b 3d 20 70 72 69 6e 74 66 28 22 4c 6f 63 61 += printf("Loca
3e70: 74 69 6f 6e 3a 20 25 73 3a 2f 2f 25 73 3a 25 73 tion: %s://%s:%s
3e80: 25 73 25 73 5c 72 5c 6e 22 2c 0a 20 20 20 20 20 %s%s\r\n",.
3e90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 48 zH
3ea0: 74 74 70 2c 20 7a 53 65 72 76 65 72 4e 61 6d 65 ttp, zServerName
3eb0: 2c 20 7a 53 65 72 76 65 72 50 6f 72 74 2c 20 7a , zServerPort, z
3ec0: 50 61 74 68 2c 20 7a 51 75 65 72 79 53 75 66 66 Path, zQuerySuff
3ed0: 69 78 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 66 ix);. }. if( f
3ee0: 69 6e 69 73 68 20 29 7b 0a 20 20 20 20 6e 4f 75 inish ){. nOu
3ef0: 74 20 2b 3d 20 70 72 69 6e 74 66 28 22 43 6f 6e t += printf("Con
3f00: 74 65 6e 74 2d 6c 65 6e 67 74 68 3a 20 30 5c 72 tent-length: 0\r
3f10: 5c 6e 22 29 3b 0a 20 20 20 20 6e 4f 75 74 20 2b \n");. nOut +
3f20: 3d 20 70 72 69 6e 74 66 28 22 5c 72 5c 6e 22 29 = printf("\r\n")
3f30: 3b 0a 20 20 20 20 4d 61 6b 65 4c 6f 67 45 6e 74 ;. MakeLogEnt
3f40: 72 79 28 30 29 3b 0a 20 20 7d 0a 20 20 66 66 6c ry(0);. }. ffl
3f50: 75 73 68 28 73 74 64 6f 75 74 29 3b 0a 7d 0a 0a ush(stdout);.}..
3f60: 2f 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63 74 /*.** This funct
3f70: 69 6f 6e 20 74 72 65 61 74 73 20 69 74 73 20 69 ion treats its i
3f80: 6e 70 75 74 20 61 73 20 61 20 62 61 73 65 2d 36 nput as a base-6
3f90: 34 20 73 74 72 69 6e 67 20 61 6e 64 20 72 65 74 4 string and ret
3fa0: 75 72 6e 73 20 74 68 65 0a 2a 2a 20 64 65 63 6f urns the.** deco
3fb0: 64 65 64 20 76 61 6c 75 65 20 6f 66 20 74 68 61 ded value of tha
3fc0: 74 20 73 74 72 69 6e 67 2e 20 20 43 68 61 72 61 t string. Chara
3fd0: 63 74 65 72 73 20 6f 66 20 69 6e 70 75 74 20 74 cters of input t
3fe0: 68 61 74 20 61 72 65 20 6e 6f 74 0a 2a 2a 20 76 hat are not.** v
3ff0: 61 6c 69 64 20 62 61 73 65 2d 36 34 20 63 68 61 alid base-64 cha
4000: 72 61 63 74 65 72 73 20 28 73 75 63 68 20 61 73 racters (such as
4010: 20 73 70 61 63 65 73 20 61 6e 64 20 6e 65 77 6c spaces and newl
4020: 69 6e 65 73 29 20 61 72 65 20 69 67 6e 6f 72 65 ines) are ignore
4030: 64 2e 0a 2a 2f 0a 76 6f 69 64 20 44 65 63 6f 64 d..*/.void Decod
4040: 65 36 34 28 63 68 61 72 20 2a 7a 36 34 29 7b 0a e64(char *z64){.
4050: 20 20 63 68 61 72 20 2a 7a 44 61 74 61 3b 0a 20 char *zData;.
4060: 20 69 6e 74 20 6e 36 34 3b 0a 20 20 69 6e 74 20 int n64;. int
4070: 69 2c 20 6a 3b 0a 20 20 69 6e 74 20 61 2c 20 62 i, j;. int a, b
4080: 2c 20 63 2c 20 64 3b 0a 20 20 73 74 61 74 69 63 , c, d;. static
4090: 20 69 6e 74 20 69 73 49 6e 69 74 20 3d 20 30 3b int isInit = 0;
40a0: 0a 20 20 73 74 61 74 69 63 20 69 6e 74 20 74 72 . static int tr
40b0: 61 6e 73 5b 31 32 38 5d 3b 0a 20 20 73 74 61 74 ans[128];. stat
40c0: 69 63 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 ic unsigned char
40d0: 20 7a 42 61 73 65 5b 5d 20 3d 20 0a 20 20 20 20 zBase[] = .
40e0: 22 41 42 43 44 45 46 47 48 49 4a 4b 4c 4d 4e 4f "ABCDEFGHIJKLMNO
40f0: 50 51 52 53 54 55 56 57 58 59 5a 61 62 63 64 65 PQRSTUVWXYZabcde
4100: 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72 73 74 75 fghijklmnopqrstu
4110: 76 77 78 79 7a 30 31 32 33 34 35 36 37 38 39 2b vwxyz0123456789+
4120: 2f 22 3b 0a 0a 20 20 69 66 28 20 21 69 73 49 6e /";.. if( !isIn
4130: 69 74 20 29 7b 0a 20 20 20 20 66 6f 72 28 69 3d it ){. for(i=
4140: 30 3b 20 69 3c 31 32 38 3b 20 69 2b 2b 29 7b 20 0; i<128; i++){
4150: 74 72 61 6e 73 5b 69 5d 20 3d 20 30 3b 20 7d 0a trans[i] = 0; }.
4160: 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 7a 42 61 for(i=0; zBa
4170: 73 65 5b 69 5d 3b 20 69 2b 2b 29 7b 20 74 72 61 se[i]; i++){ tra
4180: 6e 73 5b 7a 42 61 73 65 5b 69 5d 20 26 20 30 78 ns[zBase[i] & 0x
4190: 37 66 5d 20 3d 20 69 3b 20 7d 0a 20 20 20 20 69 7f] = i; }. i
41a0: 73 49 6e 69 74 20 3d 20 31 3b 0a 20 20 7d 0a 20 sInit = 1;. }.
41b0: 20 6e 36 34 20 3d 20 73 74 72 6c 65 6e 28 7a 36 n64 = strlen(z6
41c0: 34 29 3b 0a 20 20 77 68 69 6c 65 28 20 6e 36 34 4);. while( n64
41d0: 3e 30 20 26 26 20 7a 36 34 5b 6e 36 34 2d 31 5d >0 && z64[n64-1]
41e0: 3d 3d 27 3d 27 20 29 20 6e 36 34 2d 2d 3b 0a 20 =='=' ) n64--;.
41f0: 20 7a 44 61 74 61 20 3d 20 7a 36 34 3b 0a 20 20 zData = z64;.
4200: 66 6f 72 28 69 3d 6a 3d 30 3b 20 69 2b 33 3c 6e for(i=j=0; i+3<n
4210: 36 34 3b 20 69 2b 3d 34 29 7b 0a 20 20 20 20 61 64; i+=4){. a
4220: 20 3d 20 74 72 61 6e 73 5b 7a 36 34 5b 69 5d 20 = trans[z64[i]
4230: 26 20 30 78 37 66 5d 3b 0a 20 20 20 20 62 20 3d & 0x7f];. b =
4240: 20 74 72 61 6e 73 5b 7a 36 34 5b 69 2b 31 5d 20 trans[z64[i+1]
4250: 26 20 30 78 37 66 5d 3b 0a 20 20 20 20 63 20 3d & 0x7f];. c =
4260: 20 74 72 61 6e 73 5b 7a 36 34 5b 69 2b 32 5d 20 trans[z64[i+2]
4270: 26 20 30 78 37 66 5d 3b 0a 20 20 20 20 64 20 3d & 0x7f];. d =
4280: 20 74 72 61 6e 73 5b 7a 36 34 5b 69 2b 33 5d 20 trans[z64[i+3]
4290: 26 20 30 78 37 66 5d 3b 0a 20 20 20 20 7a 44 61 & 0x7f];. zDa
42a0: 74 61 5b 6a 2b 2b 5d 20 3d 20 28 28 61 3c 3c 32 ta[j++] = ((a<<2
42b0: 29 20 26 20 30 78 66 63 29 20 7c 20 28 28 62 3e ) & 0xfc) | ((b>
42c0: 3e 34 29 20 26 20 30 78 30 33 29 3b 0a 20 20 20 >4) & 0x03);.
42d0: 20 7a 44 61 74 61 5b 6a 2b 2b 5d 20 3d 20 28 28 zData[j++] = ((
42e0: 62 3c 3c 34 29 20 26 20 30 78 66 30 29 20 7c 20 b<<4) & 0xf0) |
42f0: 28 28 63 3e 3e 32 29 20 26 20 30 78 30 66 29 3b ((c>>2) & 0x0f);
4300: 0a 20 20 20 20 7a 44 61 74 61 5b 6a 2b 2b 5d 20 . zData[j++]
4310: 3d 20 28 28 63 3c 3c 36 29 20 26 20 30 78 63 30 = ((c<<6) & 0xc0
4320: 29 20 7c 20 28 64 20 26 20 30 78 33 66 29 3b 0a ) | (d & 0x3f);.
4330: 20 20 7d 0a 20 20 69 66 28 20 69 2b 32 3c 6e 36 }. if( i+2<n6
4340: 34 20 29 7b 0a 20 20 20 20 61 20 3d 20 74 72 61 4 ){. a = tra
4350: 6e 73 5b 7a 36 34 5b 69 5d 20 26 20 30 78 37 66 ns[z64[i] & 0x7f
4360: 5d 3b 0a 20 20 20 20 62 20 3d 20 74 72 61 6e 73 ];. b = trans
4370: 5b 7a 36 34 5b 69 2b 31 5d 20 26 20 30 78 37 66 [z64[i+1] & 0x7f
4380: 5d 3b 0a 20 20 20 20 63 20 3d 20 74 72 61 6e 73 ];. c = trans
4390: 5b 7a 36 34 5b 69 2b 32 5d 20 26 20 30 78 37 66 [z64[i+2] & 0x7f
43a0: 5d 3b 0a 20 20 20 20 7a 44 61 74 61 5b 6a 2b 2b ];. zData[j++
43b0: 5d 20 3d 20 28 28 61 3c 3c 32 29 20 26 20 30 78 ] = ((a<<2) & 0x
43c0: 66 63 29 20 7c 20 28 28 62 3e 3e 34 29 20 26 20 fc) | ((b>>4) &
43d0: 30 78 30 33 29 3b 0a 20 20 20 20 7a 44 61 74 61 0x03);. zData
43e0: 5b 6a 2b 2b 5d 20 3d 20 28 28 62 3c 3c 34 29 20 [j++] = ((b<<4)
43f0: 26 20 30 78 66 30 29 20 7c 20 28 28 63 3e 3e 32 & 0xf0) | ((c>>2
4400: 29 20 26 20 30 78 30 66 29 3b 0a 20 20 7d 65 6c ) & 0x0f);. }el
4410: 73 65 20 69 66 28 20 69 2b 31 3c 6e 36 34 20 29 se if( i+1<n64 )
4420: 7b 0a 20 20 20 20 61 20 3d 20 74 72 61 6e 73 5b {. a = trans[
4430: 7a 36 34 5b 69 5d 20 26 20 30 78 37 66 5d 3b 0a z64[i] & 0x7f];.
4440: 20 20 20 20 62 20 3d 20 74 72 61 6e 73 5b 7a 36 b = trans[z6
4450: 34 5b 69 2b 31 5d 20 26 20 30 78 37 66 5d 3b 0a 4[i+1] & 0x7f];.
4460: 20 20 20 20 7a 44 61 74 61 5b 6a 2b 2b 5d 20 3d zData[j++] =
4470: 20 28 28 61 3c 3c 32 29 20 26 20 30 78 66 63 29 ((a<<2) & 0xfc)
4480: 20 7c 20 28 28 62 3e 3e 34 29 20 26 20 30 78 30 | ((b>>4) & 0x0
4490: 33 29 3b 0a 20 20 7d 0a 20 20 7a 44 61 74 61 5b 3);. }. zData[
44a0: 6a 5d 20 3d 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a j] = 0;.}../*.**
44b0: 20 43 68 65 63 6b 20 74 6f 20 73 65 65 20 69 66 Check to see if
44c0: 20 62 61 73 69 63 20 61 75 74 68 6f 72 69 7a 61 basic authoriza
44d0: 74 69 6f 6e 20 63 72 65 64 65 6e 74 69 61 6c 73 tion credentials
44e0: 20 61 72 65 20 70 72 6f 76 69 64 65 64 20 66 6f are provided fo
44f0: 72 0a 2a 2a 20 74 68 65 20 75 73 65 72 20 61 63 r.** the user ac
4500: 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20 69 cording to the i
4510: 6e 66 6f 72 6d 61 74 69 6f 6e 20 69 6e 20 7a 41 nformation in zA
4520: 75 74 68 46 69 6c 65 2e 20 20 52 65 74 75 72 6e uthFile. Return
4530: 20 74 72 75 65 0a 2a 2a 20 69 66 20 61 75 74 68 true.** if auth
4540: 6f 72 69 7a 65 64 2e 20 20 52 65 74 75 72 6e 20 orized. Return
4550: 66 61 6c 73 65 20 69 66 20 6e 6f 74 20 61 75 74 false if not aut
4560: 68 6f 72 69 7a 65 64 2e 0a 2a 2a 0a 2a 2a 20 46 horized..**.** F
4570: 69 6c 65 20 66 6f 72 6d 61 74 3a 0a 2a 2a 0a 2a ile format:.**.*
4580: 2a 20 20 20 20 2a 20 20 42 6c 61 6e 6b 20 6c 69 * * Blank li
4590: 6e 65 73 20 61 6e 64 20 6c 69 6e 65 73 20 74 68 nes and lines th
45a0: 61 74 20 62 65 67 69 6e 20 77 69 74 68 20 27 23 at begin with '#
45b0: 27 20 61 72 65 20 69 67 6e 6f 72 65 64 0a 2a 2a ' are ignored.**
45c0: 20 20 20 20 2a 20 20 22 68 74 74 70 2d 72 65 64 * "http-red
45d0: 69 72 65 63 74 22 20 66 6f 72 63 65 73 20 61 20 irect" forces a
45e0: 72 65 64 69 72 65 63 74 20 74 6f 20 48 54 54 50 redirect to HTTP
45f0: 53 20 69 66 20 6e 6f 74 20 74 68 65 72 65 20 61 S if not there a
4600: 6c 72 65 61 64 79 0a 2a 2a 20 20 20 20 2a 20 20 lready.** *
4610: 22 68 74 74 70 73 2d 6f 6e 6c 79 22 20 64 69 73 "https-only" dis
4620: 61 6c 6c 6f 77 73 20 6f 70 65 72 61 74 69 6f 6e allows operation
4630: 20 69 6e 20 48 54 54 50 0a 2a 2a 20 20 20 20 2a in HTTP.** *
4640: 20 20 22 75 73 65 72 20 4e 41 4d 45 20 4c 4f 47 "user NAME LOG
4650: 49 4e 3a 50 41 53 53 57 4f 52 44 22 20 63 68 65 IN:PASSWORD" che
4660: 63 6b 73 20 74 6f 20 73 65 65 20 69 66 20 4c 4f cks to see if LO
4670: 47 49 4e 3a 50 41 53 53 57 4f 52 44 20 0a 2a 2a GIN:PASSWORD .**
4680: 20 20 20 20 20 20 20 61 75 74 68 6f 72 69 7a 61 authoriza
4690: 74 69 6f 6e 20 63 72 65 64 65 6e 74 69 61 6c 73 tion credentials
46a0: 20 61 72 65 20 70 72 6f 76 69 64 65 64 2c 20 61 are provided, a
46b0: 6e 64 20 69 66 20 73 6f 20 73 65 74 73 20 74 68 nd if so sets th
46c0: 65 0a 2a 2a 20 20 20 20 20 20 20 52 45 4d 4f 54 e.** REMOT
46d0: 45 5f 55 53 45 52 20 74 6f 20 4e 41 4d 45 2e 0a E_USER to NAME..
46e0: 2a 2a 20 20 20 20 2a 20 20 22 72 65 61 6c 6d 20 ** * "realm
46f0: 54 45 58 54 22 20 73 65 74 73 20 74 68 65 20 72 TEXT" sets the r
4700: 65 61 6c 6d 20 74 6f 20 54 45 58 54 2e 0a 2a 2f ealm to TEXT..*/
4710: 0a 73 74 61 74 69 63 20 69 6e 74 20 43 68 65 63 .static int Chec
4720: 6b 42 61 73 69 63 41 75 74 68 6f 72 69 7a 61 74 kBasicAuthorizat
4730: 69 6f 6e 28 63 6f 6e 73 74 20 63 68 61 72 20 2a ion(const char *
4740: 7a 41 75 74 68 46 69 6c 65 29 7b 0a 20 20 46 49 zAuthFile){. FI
4750: 4c 45 20 2a 69 6e 3b 0a 20 20 63 68 61 72 20 2a LE *in;. char *
4760: 7a 52 65 61 6c 6d 20 3d 20 22 75 6e 6b 6e 6f 77 zRealm = "unknow
4770: 6e 20 72 65 61 6c 6d 22 3b 0a 20 20 63 68 61 72 n realm";. char
4780: 20 2a 7a 4c 6f 67 69 6e 50 73 77 64 3b 0a 20 20 *zLoginPswd;.
4790: 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20 63 char *zName;. c
47a0: 68 61 72 20 7a 4c 69 6e 65 5b 32 30 30 30 5d 3b har zLine[2000];
47b0: 0a 0a 20 20 69 6e 20 3d 20 66 6f 70 65 6e 28 7a .. in = fopen(z
47c0: 41 75 74 68 46 69 6c 65 2c 20 22 72 22 29 3b 0a AuthFile, "r");.
47d0: 20 20 69 66 28 20 69 6e 3d 3d 30 20 29 7b 0a 20 if( in==0 ){.
47e0: 20 20 20 4e 6f 74 46 6f 75 6e 64 28 5f 5f 4c 49 NotFound(__LI
47f0: 4e 45 5f 5f 29 3b 0a 20 20 20 20 72 65 74 75 72 NE__);. retur
4800: 6e 20 30 3b 0a 20 20 7d 0a 20 20 69 66 28 20 7a n 0;. }. if( z
4810: 41 75 74 68 41 72 67 20 29 20 44 65 63 6f 64 65 AuthArg ) Decode
4820: 36 34 28 7a 41 75 74 68 41 72 67 29 3b 0a 20 20 64(zAuthArg);.
4830: 77 68 69 6c 65 28 20 66 67 65 74 73 28 7a 4c 69 while( fgets(zLi
4840: 6e 65 2c 20 73 69 7a 65 6f 66 28 7a 4c 69 6e 65 ne, sizeof(zLine
4850: 29 2c 20 69 6e 29 20 29 7b 0a 20 20 20 20 63 68 ), in) ){. ch
4860: 61 72 20 2a 7a 46 69 65 6c 64 4e 61 6d 65 3b 0a ar *zFieldName;.
4870: 20 20 20 20 63 68 61 72 20 2a 7a 56 61 6c 3b 0a char *zVal;.
4880: 0a 20 20 20 20 7a 46 69 65 6c 64 4e 61 6d 65 20 . zFieldName
4890: 3d 20 47 65 74 46 69 72 73 74 45 6c 65 6d 65 6e = GetFirstElemen
48a0: 74 28 7a 4c 69 6e 65 2c 26 7a 56 61 6c 29 3b 0a t(zLine,&zVal);.
48b0: 20 20 20 20 69 66 28 20 7a 46 69 65 6c 64 4e 61 if( zFieldNa
48c0: 6d 65 3d 3d 30 20 7c 7c 20 2a 7a 46 69 65 6c 64 me==0 || *zField
48d0: 4e 61 6d 65 3d 3d 30 20 29 20 63 6f 6e 74 69 6e Name==0 ) contin
48e0: 75 65 3b 0a 20 20 20 20 69 66 28 20 7a 46 69 65 ue;. if( zFie
48f0: 6c 64 4e 61 6d 65 5b 30 5d 3d 3d 27 23 27 20 29 ldName[0]=='#' )
4900: 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 52 continue;. R
4910: 65 6d 6f 76 65 4e 65 77 6c 69 6e 65 28 7a 56 61 emoveNewline(zVa
4920: 6c 29 3b 0a 20 20 20 20 69 66 28 20 73 74 72 63 l);. if( strc
4930: 6d 70 28 7a 46 69 65 6c 64 4e 61 6d 65 2c 20 22 mp(zFieldName, "
4940: 72 65 61 6c 6d 22 29 3d 3d 30 20 29 7b 0a 20 20 realm")==0 ){.
4950: 20 20 20 20 7a 52 65 61 6c 6d 20 3d 20 53 74 72 zRealm = Str
4960: 44 75 70 28 7a 56 61 6c 29 3b 0a 20 20 20 20 7d Dup(zVal);. }
4970: 65 6c 73 65 20 69 66 28 20 73 74 72 63 6d 70 28 else if( strcmp(
4980: 7a 46 69 65 6c 64 4e 61 6d 65 2c 22 75 73 65 72 zFieldName,"user
4990: 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 69 ")==0 ){. i
49a0: 66 28 20 7a 41 75 74 68 41 72 67 3d 3d 30 20 29 f( zAuthArg==0 )
49b0: 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 continue;.
49c0: 20 7a 4e 61 6d 65 20 3d 20 47 65 74 46 69 72 73 zName = GetFirs
49d0: 74 45 6c 65 6d 65 6e 74 28 7a 56 61 6c 2c 20 26 tElement(zVal, &
49e0: 7a 56 61 6c 29 3b 0a 20 20 20 20 20 20 7a 4c 6f zVal);. zLo
49f0: 67 69 6e 50 73 77 64 20 3d 20 47 65 74 46 69 72 ginPswd = GetFir
4a00: 73 74 45 6c 65 6d 65 6e 74 28 7a 56 61 6c 2c 20 stElement(zVal,
4a10: 26 7a 56 61 6c 29 3b 0a 20 20 20 20 20 20 69 66 &zVal);. if
4a20: 28 20 7a 4c 6f 67 69 6e 50 73 77 64 3d 3d 30 20 ( zLoginPswd==0
4a30: 29 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 ) continue;.
4a40: 20 20 69 66 28 20 7a 41 75 74 68 41 72 67 20 26 if( zAuthArg &
4a50: 26 20 73 74 72 63 6d 70 28 7a 41 75 74 68 41 72 & strcmp(zAuthAr
4a60: 67 2c 7a 4c 6f 67 69 6e 50 73 77 64 29 3d 3d 30 g,zLoginPswd)==0
4a70: 20 29 7b 0a 20 20 20 20 20 20 20 20 7a 52 65 6d ){. zRem
4a80: 6f 74 65 55 73 65 72 20 3d 20 53 74 72 44 75 70 oteUser = StrDup
4a90: 28 7a 4e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 (zName);.
4aa0: 20 66 63 6c 6f 73 65 28 69 6e 29 3b 0a 20 20 20 fclose(in);.
4ab0: 20 20 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 return 1;.
4ac0: 20 20 20 20 20 7d 0a 20 20 20 20 7d 65 6c 73 65 }. }else
4ad0: 20 69 66 28 20 73 74 72 63 6d 70 28 7a 46 69 65 if( strcmp(zFie
4ae0: 6c 64 4e 61 6d 65 2c 22 68 74 74 70 73 2d 6f 6e ldName,"https-on
4af0: 6c 79 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 ly")==0 ){.
4b00: 20 69 66 28 20 21 75 73 65 48 74 74 70 73 20 29 if( !useHttps )
4b10: 7b 0a 20 20 20 20 20 20 20 20 4e 6f 74 46 6f 75 {. NotFou
4b20: 6e 64 28 5f 5f 4c 49 4e 45 5f 5f 29 3b 0a 20 20 nd(__LINE__);.
4b30: 20 20 20 20 20 20 66 63 6c 6f 73 65 28 69 6e 29 fclose(in)
4b40: 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e ;. return
4b50: 20 30 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 0;. }.
4b60: 7d 65 6c 73 65 20 69 66 28 20 73 74 72 63 6d 70 }else if( strcmp
4b70: 28 7a 46 69 65 6c 64 4e 61 6d 65 2c 22 68 74 74 (zFieldName,"htt
4b80: 70 2d 72 65 64 69 72 65 63 74 22 29 3d 3d 30 20 p-redirect")==0
4b90: 29 7b 0a 20 20 20 20 20 20 69 66 28 20 21 75 73 ){. if( !us
4ba0: 65 48 74 74 70 73 20 29 7b 0a 20 20 20 20 20 20 eHttps ){.
4bb0: 20 20 7a 48 74 74 70 20 3d 20 22 68 74 74 70 73 zHttp = "https
4bc0: 22 3b 0a 20 20 20 20 20 20 20 20 73 70 72 69 6e ";. sprin
4bd0: 74 66 28 7a 4c 69 6e 65 2c 20 22 25 73 25 73 22 tf(zLine, "%s%s"
4be0: 2c 20 7a 53 63 72 69 70 74 2c 20 7a 50 61 74 68 , zScript, zPath
4bf0: 49 6e 66 6f 29 3b 0a 20 20 20 20 20 20 20 20 52 Info);. R
4c00: 65 64 69 72 65 63 74 28 7a 4c 69 6e 65 2c 20 31 edirect(zLine, 1
4c10: 29 3b 0a 20 20 20 20 20 20 20 20 66 63 6c 6f 73 );. fclos
4c20: 65 28 69 6e 29 3b 0a 20 20 20 20 20 20 20 20 72 e(in);. r
4c30: 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 20 20 7d eturn 0;. }
4c40: 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 . }else{.
4c50: 20 20 4e 6f 74 46 6f 75 6e 64 28 5f 5f 4c 49 4e NotFound(__LIN
4c60: 45 5f 5f 29 3b 0a 20 20 20 20 20 20 66 63 6c 6f E__);. fclo
4c70: 73 65 28 69 6e 29 3b 0a 20 20 20 20 20 20 72 65 se(in);. re
4c80: 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 20 20 turn 0;. }.
4c90: 7d 0a 20 20 66 63 6c 6f 73 65 28 69 6e 29 3b 0a }. fclose(in);.
4ca0: 20 20 4e 6f 74 41 75 74 68 6f 72 69 7a 65 64 28 NotAuthorized(
4cb0: 7a 52 65 61 6c 6d 29 3b 0a 20 20 72 65 74 75 72 zRealm);. retur
4cc0: 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 47 75 n 0;.}../*.** Gu
4cd0: 65 73 73 20 74 68 65 20 6d 69 6d 65 2d 74 79 70 ess the mime-typ
4ce0: 65 20 6f 66 20 61 20 64 6f 63 75 6d 65 6e 74 20 e of a document
4cf0: 62 61 73 65 64 20 6f 6e 20 69 74 73 20 6e 61 6d based on its nam
4d00: 65 2e 0a 2a 2f 0a 63 6f 6e 73 74 20 63 68 61 72 e..*/.const char
4d10: 20 2a 47 65 74 4d 69 6d 65 54 79 70 65 28 63 6f *GetMimeType(co
4d20: 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c nst char *zName,
4d30: 20 69 6e 74 20 6e 4e 61 6d 65 29 7b 0a 20 20 63 int nName){. c
4d40: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 3b 0a 20 20 onst char *z;.
4d50: 69 6e 74 20 69 3b 0a 20 20 69 6e 74 20 66 69 72 int i;. int fir
4d60: 73 74 2c 20 6c 61 73 74 3b 0a 20 20 69 6e 74 20 st, last;. int
4d70: 6c 65 6e 3b 0a 20 20 63 68 61 72 20 7a 53 75 66 len;. char zSuf
4d80: 66 69 78 5b 32 30 5d 3b 0a 0a 20 20 2f 2a 20 41 fix[20];.. /* A
4d90: 20 74 61 62 6c 65 20 6f 66 20 6d 69 6d 65 74 79 table of mimety
4da0: 70 65 73 20 62 61 73 65 64 20 6f 6e 20 66 69 6c pes based on fil
4db0: 65 20 73 75 66 66 69 78 65 73 2e 20 0a 20 20 2a e suffixes. . *
4dc0: 2a 20 53 75 66 66 69 78 65 73 20 6d 75 73 74 20 * Suffixes must
4dd0: 62 65 20 69 6e 20 73 6f 72 74 65 64 20 6f 72 64 be in sorted ord
4de0: 65 72 20 73 6f 20 74 68 61 74 20 77 65 20 63 61 er so that we ca
4df0: 6e 20 64 6f 20 61 20 62 69 6e 61 72 79 0a 20 20 n do a binary.
4e00: 2a 2a 20 73 65 61 72 63 68 20 74 6f 20 66 69 6e ** search to fin
4e10: 64 20 74 68 65 20 6d 69 6d 65 2d 74 79 70 65 0a d the mime-type.
4e20: 20 20 2a 2f 0a 20 20 73 74 61 74 69 63 20 63 6f */. static co
4e30: 6e 73 74 20 73 74 72 75 63 74 20 7b 0a 20 20 20 nst struct {.
4e40: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 53 75 const char *zSu
4e50: 66 66 69 78 3b 20 20 20 20 20 20 20 2f 2a 20 54 ffix; /* T
4e60: 68 65 20 66 69 6c 65 20 73 75 66 66 69 78 20 2a he file suffix *
4e70: 2f 0a 20 20 20 20 69 6e 74 20 73 69 7a 65 3b 20 /. int size;
4e80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4e90: 20 2f 2a 20 4c 65 6e 67 74 68 20 6f 66 20 74 68 /* Length of th
4ea0: 65 20 73 75 66 66 69 78 20 2a 2f 0a 20 20 20 20 e suffix */.
4eb0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4d 69 6d const char *zMim
4ec0: 65 74 79 70 65 3b 20 20 20 20 20 2f 2a 20 54 68 etype; /* Th
4ed0: 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 e corresponding
4ee0: 6d 69 6d 65 74 79 70 65 20 2a 2f 0a 20 20 7d 20 mimetype */. }
4ef0: 61 4d 69 6d 65 5b 5d 20 3d 20 7b 0a 20 20 20 20 aMime[] = {.
4f00: 7b 20 22 61 69 22 2c 20 20 20 20 20 20 20 20 20 { "ai",
4f10: 32 2c 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 2, "application/
4f20: 70 6f 73 74 73 63 72 69 70 74 22 20 20 20 20 20 postscript"
4f30: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
4f40: 22 61 69 66 22 2c 20 20 20 20 20 20 20 20 33 2c "aif", 3,
4f50: 20 22 61 75 64 69 6f 2f 78 2d 61 69 66 66 22 20 "audio/x-aiff"
4f60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4f70: 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 61 },. { "a
4f80: 69 66 63 22 2c 20 20 20 20 20 20 20 34 2c 20 22 ifc", 4, "
4f90: 61 75 64 69 6f 2f 78 2d 61 69 66 66 22 20 20 20 audio/x-aiff"
4fa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4fb0: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 61 69 66 },. { "aif
4fc0: 66 22 2c 20 20 20 20 20 20 20 34 2c 20 22 61 75 f", 4, "au
4fd0: 64 69 6f 2f 78 2d 61 69 66 66 22 20 20 20 20 20 dio/x-aiff"
4fe0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4ff0: 20 7d 2c 0a 20 20 20 20 7b 20 22 61 72 6a 22 2c },. { "arj",
5000: 20 20 20 20 20 20 20 20 33 2c 20 22 61 70 70 6c 3, "appl
5010: 69 63 61 74 69 6f 6e 2f 78 2d 61 72 6a 2d 63 6f ication/x-arj-co
5020: 6d 70 72 65 73 73 65 64 22 20 20 20 20 20 20 7d mpressed" }
5030: 2c 0a 20 20 20 20 7b 20 22 61 73 63 22 2c 20 20 ,. { "asc",
5040: 20 20 20 20 20 20 33 2c 20 22 74 65 78 74 2f 70 3, "text/p
5050: 6c 61 69 6e 22 20 20 20 20 20 20 20 20 20 20 20 lain"
5060: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a },.
5070: 20 20 20 20 7b 20 22 61 73 66 22 2c 20 20 20 20 { "asf",
5080: 20 20 20 20 33 2c 20 22 76 69 64 65 6f 2f 78 2d 3, "video/x-
5090: 6d 73 2d 61 73 66 22 20 20 20 20 20 20 20 20 20 ms-asf"
50a0: 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 },.
50b0: 20 20 7b 20 22 61 73 78 22 2c 20 20 20 20 20 20 { "asx",
50c0: 20 20 33 2c 20 22 76 69 64 65 6f 2f 78 2d 6d 73 3, "video/x-ms
50d0: 2d 61 73 78 22 20 20 20 20 20 20 20 20 20 20 20 -asx"
50e0: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
50f0: 7b 20 22 61 75 22 2c 20 20 20 20 20 20 20 20 20 { "au",
5100: 32 2c 20 22 61 75 64 69 6f 2f 75 6c 61 77 22 20 2, "audio/ulaw"
5110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5120: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
5130: 22 61 76 69 22 2c 20 20 20 20 20 20 20 20 33 2c "avi", 3,
5140: 20 22 76 69 64 65 6f 2f 78 2d 6d 73 76 69 64 65 "video/x-msvide
5150: 6f 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 o"
5160: 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 62 },. { "b
5170: 61 74 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 at", 3, "
5180: 61 70 70 6c 69 63 61 74 69 6f 6e 2f 78 2d 6d 73 application/x-ms
5190: 64 6f 73 2d 70 72 6f 67 72 61 6d 22 20 20 20 20 dos-program"
51a0: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 62 63 70 },. { "bcp
51b0: 69 6f 22 2c 20 20 20 20 20 20 35 2c 20 22 61 70 io", 5, "ap
51c0: 70 6c 69 63 61 74 69 6f 6e 2f 78 2d 62 63 70 69 plication/x-bcpi
51d0: 6f 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 o"
51e0: 20 7d 2c 0a 20 20 20 20 7b 20 22 62 69 6e 22 2c },. { "bin",
51f0: 20 20 20 20 20 20 20 20 33 2c 20 22 61 70 70 6c 3, "appl
5200: 69 63 61 74 69 6f 6e 2f 6f 63 74 65 74 2d 73 74 ication/octet-st
5210: 72 65 61 6d 22 20 20 20 20 20 20 20 20 20 20 7d ream" }
5220: 2c 0a 20 20 20 20 7b 20 22 63 22 2c 20 20 20 20 ,. { "c",
5230: 20 20 20 20 20 20 31 2c 20 22 74 65 78 74 2f 70 1, "text/p
5240: 6c 61 69 6e 22 20 20 20 20 20 20 20 20 20 20 20 lain"
5250: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a },.
5260: 20 20 20 20 7b 20 22 63 63 22 2c 20 20 20 20 20 { "cc",
5270: 20 20 20 20 32 2c 20 22 74 65 78 74 2f 70 6c 61 2, "text/pla
5280: 69 6e 22 20 20 20 20 20 20 20 20 20 20 20 20 20 in"
5290: 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 },.
52a0: 20 20 7b 20 22 63 63 61 64 22 2c 20 20 20 20 20 { "ccad",
52b0: 20 20 34 2c 20 22 61 70 70 6c 69 63 61 74 69 6f 4, "applicatio
52c0: 6e 2f 63 6c 61 72 69 73 63 61 64 22 20 20 20 20 n/clariscad"
52d0: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
52e0: 7b 20 22 63 64 66 22 2c 20 20 20 20 20 20 20 20 { "cdf",
52f0: 33 2c 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 3, "application/
5300: 78 2d 6e 65 74 63 64 66 22 20 20 20 20 20 20 20 x-netcdf"
5310: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
5320: 22 63 6c 61 73 73 22 2c 20 20 20 20 20 20 35 2c "class", 5,
5330: 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 6f 63 "application/oc
5340: 74 65 74 2d 73 74 72 65 61 6d 22 20 20 20 20 20 tet-stream"
5350: 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 63 },. { "c
5360: 6f 64 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 od", 3, "
5370: 61 70 70 6c 69 63 61 74 69 6f 6e 2f 76 6e 64 2e application/vnd.
5380: 72 69 6d 2e 63 6f 64 22 20 20 20 20 20 20 20 20 rim.cod"
5390: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 63 6f 6d },. { "com
53a0: 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 61 70 ", 3, "ap
53b0: 70 6c 69 63 61 74 69 6f 6e 2f 78 2d 6d 73 64 6f plication/x-msdo
53c0: 73 2d 70 72 6f 67 72 61 6d 22 20 20 20 20 20 20 s-program"
53d0: 20 7d 2c 0a 20 20 20 20 7b 20 22 63 70 69 6f 22 },. { "cpio"
53e0: 2c 20 20 20 20 20 20 20 34 2c 20 22 61 70 70 6c , 4, "appl
53f0: 69 63 61 74 69 6f 6e 2f 78 2d 63 70 69 6f 22 20 ication/x-cpio"
5400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d }
5410: 2c 0a 20 20 20 20 7b 20 22 63 70 74 22 2c 20 20 ,. { "cpt",
5420: 20 20 20 20 20 20 33 2c 20 22 61 70 70 6c 69 63 3, "applic
5430: 61 74 69 6f 6e 2f 6d 61 63 2d 63 6f 6d 70 61 63 ation/mac-compac
5440: 74 70 72 6f 22 20 20 20 20 20 20 20 20 7d 2c 0a tpro" },.
5450: 20 20 20 20 7b 20 22 63 73 68 22 2c 20 20 20 20 { "csh",
5460: 20 20 20 20 33 2c 20 22 61 70 70 6c 69 63 61 74 3, "applicat
5470: 69 6f 6e 2f 78 2d 63 73 68 22 20 20 20 20 20 20 ion/x-csh"
5480: 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 },.
5490: 20 20 7b 20 22 63 73 73 22 2c 20 20 20 20 20 20 { "css",
54a0: 20 20 33 2c 20 22 74 65 78 74 2f 63 73 73 22 20 3, "text/css"
54b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
54c0: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
54d0: 7b 20 22 64 63 72 22 2c 20 20 20 20 20 20 20 20 { "dcr",
54e0: 33 2c 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 3, "application/
54f0: 78 2d 64 69 72 65 63 74 6f 72 22 20 20 20 20 20 x-director"
5500: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
5510: 22 64 65 62 22 2c 20 20 20 20 20 20 20 20 33 2c "deb", 3,
5520: 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 78 2d "application/x-
5530: 64 65 62 69 61 6e 2d 70 61 63 6b 61 67 65 22 20 debian-package"
5540: 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 64 },. { "d
5550: 69 72 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 ir", 3, "
5560: 61 70 70 6c 69 63 61 74 69 6f 6e 2f 78 2d 64 69 application/x-di
5570: 72 65 63 74 6f 72 22 20 20 20 20 20 20 20 20 20 rector"
5580: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 64 6c 22 },. { "dl"
5590: 2c 20 20 20 20 20 20 20 20 20 32 2c 20 22 76 69 , 2, "vi
55a0: 64 65 6f 2f 64 6c 22 20 20 20 20 20 20 20 20 20 deo/dl"
55b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
55c0: 20 7d 2c 0a 20 20 20 20 7b 20 22 64 6d 73 22 2c },. { "dms",
55d0: 20 20 20 20 20 20 20 20 33 2c 20 22 61 70 70 6c 3, "appl
55e0: 69 63 61 74 69 6f 6e 2f 6f 63 74 65 74 2d 73 74 ication/octet-st
55f0: 72 65 61 6d 22 20 20 20 20 20 20 20 20 20 20 7d ream" }
5600: 2c 0a 20 20 20 20 7b 20 22 64 6f 63 22 2c 20 20 ,. { "doc",
5610: 20 20 20 20 20 20 33 2c 20 22 61 70 70 6c 69 63 3, "applic
5620: 61 74 69 6f 6e 2f 6d 73 77 6f 72 64 22 20 20 20 ation/msword"
5630: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a },.
5640: 20 20 20 20 7b 20 22 64 72 77 22 2c 20 20 20 20 { "drw",
5650: 20 20 20 20 33 2c 20 22 61 70 70 6c 69 63 61 74 3, "applicat
5660: 69 6f 6e 2f 64 72 61 66 74 69 6e 67 22 20 20 20 ion/drafting"
5670: 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 },.
5680: 20 20 7b 20 22 64 76 69 22 2c 20 20 20 20 20 20 { "dvi",
5690: 20 20 33 2c 20 22 61 70 70 6c 69 63 61 74 69 6f 3, "applicatio
56a0: 6e 2f 78 2d 64 76 69 22 20 20 20 20 20 20 20 20 n/x-dvi"
56b0: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
56c0: 7b 20 22 64 77 67 22 2c 20 20 20 20 20 20 20 20 { "dwg",
56d0: 33 2c 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 3, "application/
56e0: 61 63 61 64 22 20 20 20 20 20 20 20 20 20 20 20 acad"
56f0: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
5700: 22 64 78 66 22 2c 20 20 20 20 20 20 20 20 33 2c "dxf", 3,
5710: 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 64 78 "application/dx
5720: 66 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 f"
5730: 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 64 },. { "d
5740: 78 72 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 xr", 3, "
5750: 61 70 70 6c 69 63 61 74 69 6f 6e 2f 78 2d 64 69 application/x-di
5760: 72 65 63 74 6f 72 22 20 20 20 20 20 20 20 20 20 rector"
5770: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 65 70 73 },. { "eps
5780: 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 61 70 ", 3, "ap
5790: 70 6c 69 63 61 74 69 6f 6e 2f 70 6f 73 74 73 63 plication/postsc
57a0: 72 69 70 74 22 20 20 20 20 20 20 20 20 20 20 20 ript"
57b0: 20 7d 2c 0a 20 20 20 20 7b 20 22 65 74 78 22 2c },. { "etx",
57c0: 20 20 20 20 20 20 20 20 33 2c 20 22 74 65 78 74 3, "text
57d0: 2f 78 2d 73 65 74 65 78 74 22 20 20 20 20 20 20 /x-setext"
57e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d }
57f0: 2c 0a 20 20 20 20 7b 20 22 65 78 65 22 2c 20 20 ,. { "exe",
5800: 20 20 20 20 20 20 33 2c 20 22 61 70 70 6c 69 63 3, "applic
5810: 61 74 69 6f 6e 2f 6f 63 74 65 74 2d 73 74 72 65 ation/octet-stre
5820: 61 6d 22 20 20 20 20 20 20 20 20 20 20 7d 2c 0a am" },.
5830: 20 20 20 20 7b 20 22 65 7a 22 2c 20 20 20 20 20 { "ez",
5840: 20 20 20 20 32 2c 20 22 61 70 70 6c 69 63 61 74 2, "applicat
5850: 69 6f 6e 2f 61 6e 64 72 65 77 2d 69 6e 73 65 74 ion/andrew-inset
5860: 22 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 " },.
5870: 20 20 7b 20 22 66 22 2c 20 20 20 20 20 20 20 20 { "f",
5880: 20 20 31 2c 20 22 74 65 78 74 2f 70 6c 61 69 6e 1, "text/plain
5890: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
58a0: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
58b0: 7b 20 22 66 39 30 22 2c 20 20 20 20 20 20 20 20 { "f90",
58c0: 33 2c 20 22 74 65 78 74 2f 70 6c 61 69 6e 22 20 3, "text/plain"
58d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
58e0: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
58f0: 22 66 6c 69 22 2c 20 20 20 20 20 20 20 20 33 2c "fli", 3,
5900: 20 22 76 69 64 65 6f 2f 66 6c 69 22 20 20 20 20 "video/fli"
5910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5920: 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 66 },. { "f
5930: 6c 76 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 lv", 3, "
5940: 76 69 64 65 6f 2f 66 6c 76 22 20 20 20 20 20 20 video/flv"
5950: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5960: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 67 69 66 },. { "gif
5970: 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 69 6d ", 3, "im
5980: 61 67 65 2f 67 69 66 22 20 20 20 20 20 20 20 20 age/gif"
5990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
59a0: 20 7d 2c 0a 20 20 20 20 7b 20 22 67 6c 22 2c 20 },. { "gl",
59b0: 20 20 20 20 20 20 20 20 32 2c 20 22 76 69 64 65 2, "vide
59c0: 6f 2f 67 6c 22 20 20 20 20 20 20 20 20 20 20 20 o/gl"
59d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d }
59e0: 2c 0a 20 20 20 20 7b 20 22 67 74 61 72 22 2c 20 ,. { "gtar",
59f0: 20 20 20 20 20 20 34 2c 20 22 61 70 70 6c 69 63 4, "applic
5a00: 61 74 69 6f 6e 2f 78 2d 67 74 61 72 22 20 20 20 ation/x-gtar"
5a10: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a },.
5a20: 20 20 20 20 7b 20 22 67 7a 22 2c 20 20 20 20 20 { "gz",
5a30: 20 20 20 20 32 2c 20 22 61 70 70 6c 69 63 61 74 2, "applicat
5a40: 69 6f 6e 2f 78 2d 67 7a 69 70 22 20 20 20 20 20 ion/x-gzip"
5a50: 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 },.
5a60: 20 20 7b 20 22 68 64 66 22 2c 20 20 20 20 20 20 { "hdf",
5a70: 20 20 33 2c 20 22 61 70 70 6c 69 63 61 74 69 6f 3, "applicatio
5a80: 6e 2f 78 2d 68 64 66 22 20 20 20 20 20 20 20 20 n/x-hdf"
5a90: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
5aa0: 7b 20 22 68 68 22 2c 20 20 20 20 20 20 20 20 20 { "hh",
5ab0: 32 2c 20 22 74 65 78 74 2f 70 6c 61 69 6e 22 20 2, "text/plain"
5ac0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5ad0: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
5ae0: 22 68 71 78 22 2c 20 20 20 20 20 20 20 20 33 2c "hqx", 3,
5af0: 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 6d 61 "application/ma
5b00: 63 2d 62 69 6e 68 65 78 34 30 22 20 20 20 20 20 c-binhex40"
5b10: 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 68 },. { "h
5b20: 22 2c 20 20 20 20 20 20 20 20 20 20 31 2c 20 22 ", 1, "
5b30: 74 65 78 74 2f 70 6c 61 69 6e 22 20 20 20 20 20 text/plain"
5b40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5b50: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 68 74 6d },. { "htm
5b60: 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 74 65 ", 3, "te
5b70: 78 74 2f 68 74 6d 6c 3b 20 63 68 61 72 73 65 74 xt/html; charset
5b80: 3d 75 74 66 2d 38 22 20 20 20 20 20 20 20 20 20 =utf-8"
5b90: 20 7d 2c 0a 20 20 20 20 7b 20 22 68 74 6d 6c 22 },. { "html"
5ba0: 2c 20 20 20 20 20 20 20 34 2c 20 22 74 65 78 74 , 4, "text
5bb0: 2f 68 74 6d 6c 3b 20 63 68 61 72 73 65 74 3d 75 /html; charset=u
5bc0: 74 66 2d 38 22 20 20 20 20 20 20 20 20 20 20 7d tf-8" }
5bd0: 2c 0a 20 20 20 20 7b 20 22 69 63 65 22 2c 20 20 ,. { "ice",
5be0: 20 20 20 20 20 20 33 2c 20 22 78 2d 63 6f 6e 66 3, "x-conf
5bf0: 65 72 65 6e 63 65 2f 78 2d 63 6f 6f 6c 74 61 6c erence/x-cooltal
5c00: 6b 22 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a k" },.
5c10: 20 20 20 20 7b 20 22 69 65 66 22 2c 20 20 20 20 { "ief",
5c20: 20 20 20 20 33 2c 20 22 69 6d 61 67 65 2f 69 65 3, "image/ie
5c30: 66 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 f"
5c40: 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 },.
5c50: 20 20 7b 20 22 69 67 65 73 22 2c 20 20 20 20 20 { "iges",
5c60: 20 20 34 2c 20 22 6d 6f 64 65 6c 2f 69 67 65 73 4, "model/iges
5c70: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
5c80: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
5c90: 7b 20 22 69 67 73 22 2c 20 20 20 20 20 20 20 20 { "igs",
5ca0: 33 2c 20 22 6d 6f 64 65 6c 2f 69 67 65 73 22 20 3, "model/iges"
5cb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5cc0: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
5cd0: 22 69 70 73 22 2c 20 20 20 20 20 20 20 20 33 2c "ips", 3,
5ce0: 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 78 2d "application/x-
5cf0: 69 70 73 63 72 69 70 74 22 20 20 20 20 20 20 20 ipscript"
5d00: 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 69 },. { "i
5d10: 70 78 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 px", 3, "
5d20: 61 70 70 6c 69 63 61 74 69 6f 6e 2f 78 2d 69 70 application/x-ip
5d30: 69 78 22 20 20 20 20 20 20 20 20 20 20 20 20 20 ix"
5d40: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 6a 61 64 },. { "jad
5d50: 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 74 65 ", 3, "te
5d60: 78 74 2f 76 6e 64 2e 73 75 6e 2e 6a 32 6d 65 2e xt/vnd.sun.j2me.
5d70: 61 70 70 2d 64 65 73 63 72 69 70 74 6f 72 22 20 app-descriptor"
5d80: 20 7d 2c 0a 20 20 20 20 7b 20 22 6a 61 72 22 2c },. { "jar",
5d90: 20 20 20 20 20 20 20 20 33 2c 20 22 61 70 70 6c 3, "appl
5da0: 69 63 61 74 69 6f 6e 2f 6a 61 76 61 2d 61 72 63 ication/java-arc
5db0: 68 69 76 65 22 20 20 20 20 20 20 20 20 20 20 7d hive" }
5dc0: 2c 0a 20 20 20 20 7b 20 22 6a 70 65 67 22 2c 20 ,. { "jpeg",
5dd0: 20 20 20 20 20 20 34 2c 20 22 69 6d 61 67 65 2f 4, "image/
5de0: 6a 70 65 67 22 20 20 20 20 20 20 20 20 20 20 20 jpeg"
5df0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a },.
5e00: 20 20 20 20 7b 20 22 6a 70 65 22 2c 20 20 20 20 { "jpe",
5e10: 20 20 20 20 33 2c 20 22 69 6d 61 67 65 2f 6a 70 3, "image/jp
5e20: 65 67 22 20 20 20 20 20 20 20 20 20 20 20 20 20 eg"
5e30: 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 },.
5e40: 20 20 7b 20 22 6a 70 67 22 2c 20 20 20 20 20 20 { "jpg",
5e50: 20 20 33 2c 20 22 69 6d 61 67 65 2f 6a 70 65 67 3, "image/jpeg
5e60: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
5e70: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
5e80: 7b 20 22 6a 73 22 2c 20 20 20 20 20 20 20 20 20 { "js",
5e90: 32 2c 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 2, "application/
5ea0: 78 2d 6a 61 76 61 73 63 72 69 70 74 22 20 20 20 x-javascript"
5eb0: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
5ec0: 22 6b 61 72 22 2c 20 20 20 20 20 20 20 20 33 2c "kar", 3,
5ed0: 20 22 61 75 64 69 6f 2f 6d 69 64 69 22 20 20 20 "audio/midi"
5ee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5ef0: 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 6c },. { "l
5f00: 61 74 65 78 22 2c 20 20 20 20 20 20 35 2c 20 22 atex", 5, "
5f10: 61 70 70 6c 69 63 61 74 69 6f 6e 2f 78 2d 6c 61 application/x-la
5f20: 74 65 78 22 20 20 20 20 20 20 20 20 20 20 20 20 tex"
5f30: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 6c 68 61 },. { "lha
5f40: 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 61 70 ", 3, "ap
5f50: 70 6c 69 63 61 74 69 6f 6e 2f 6f 63 74 65 74 2d plication/octet-
5f60: 73 74 72 65 61 6d 22 20 20 20 20 20 20 20 20 20 stream"
5f70: 20 7d 2c 0a 20 20 20 20 7b 20 22 6c 73 70 22 2c },. { "lsp",
5f80: 20 20 20 20 20 20 20 20 33 2c 20 22 61 70 70 6c 3, "appl
5f90: 69 63 61 74 69 6f 6e 2f 78 2d 6c 69 73 70 22 20 ication/x-lisp"
5fa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d }
5fb0: 2c 0a 20 20 20 20 7b 20 22 6c 7a 68 22 2c 20 20 ,. { "lzh",
5fc0: 20 20 20 20 20 20 33 2c 20 22 61 70 70 6c 69 63 3, "applic
5fd0: 61 74 69 6f 6e 2f 6f 63 74 65 74 2d 73 74 72 65 ation/octet-stre
5fe0: 61 6d 22 20 20 20 20 20 20 20 20 20 20 7d 2c 0a am" },.
5ff0: 20 20 20 20 7b 20 22 6d 22 2c 20 20 20 20 20 20 { "m",
6000: 20 20 20 20 31 2c 20 22 74 65 78 74 2f 70 6c 61 1, "text/pla
6010: 69 6e 22 20 20 20 20 20 20 20 20 20 20 20 20 20 in"
6020: 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 },.
6030: 20 20 7b 20 22 6d 33 75 22 2c 20 20 20 20 20 20 { "m3u",
6040: 20 20 33 2c 20 22 61 75 64 69 6f 2f 78 2d 6d 70 3, "audio/x-mp
6050: 65 67 75 72 6c 22 20 20 20 20 20 20 20 20 20 20 egurl"
6060: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
6070: 7b 20 22 6d 61 6e 22 2c 20 20 20 20 20 20 20 20 { "man",
6080: 33 2c 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 3, "application/
6090: 78 2d 74 72 6f 66 66 2d 6d 61 6e 22 20 20 20 20 x-troff-man"
60a0: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
60b0: 22 6d 65 22 2c 20 20 20 20 20 20 20 20 20 32 2c "me", 2,
60c0: 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 78 2d "application/x-
60d0: 74 72 6f 66 66 2d 6d 65 22 20 20 20 20 20 20 20 troff-me"
60e0: 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 6d },. { "m
60f0: 65 73 68 22 2c 20 20 20 20 20 20 20 34 2c 20 22 esh", 4, "
6100: 6d 6f 64 65 6c 2f 6d 65 73 68 22 20 20 20 20 20 model/mesh"
6110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6120: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 6d 69 64 },. { "mid
6130: 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 61 75 ", 3, "au
6140: 64 69 6f 2f 6d 69 64 69 22 20 20 20 20 20 20 20 dio/midi"
6150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6160: 20 7d 2c 0a 20 20 20 20 7b 20 22 6d 69 64 69 22 },. { "midi"
6170: 2c 20 20 20 20 20 20 20 34 2c 20 22 61 75 64 69 , 4, "audi
6180: 6f 2f 6d 69 64 69 22 20 20 20 20 20 20 20 20 20 o/midi"
6190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d }
61a0: 2c 0a 20 20 20 20 7b 20 22 6d 69 66 22 2c 20 20 ,. { "mif",
61b0: 20 20 20 20 20 20 33 2c 20 22 61 70 70 6c 69 63 3, "applic
61c0: 61 74 69 6f 6e 2f 78 2d 6d 69 66 22 20 20 20 20 ation/x-mif"
61d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a },.
61e0: 20 20 20 20 7b 20 22 6d 69 6d 65 22 2c 20 20 20 { "mime",
61f0: 20 20 20 20 34 2c 20 22 77 77 77 2f 6d 69 6d 65 4, "www/mime
6200: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
6210: 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 },.
6220: 20 20 7b 20 22 6d 6f 76 69 65 22 2c 20 20 20 20 { "movie",
6230: 20 20 35 2c 20 22 76 69 64 65 6f 2f 78 2d 73 67 5, "video/x-sg
6240: 69 2d 6d 6f 76 69 65 22 20 20 20 20 20 20 20 20 i-movie"
6250: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
6260: 7b 20 22 6d 6f 76 22 2c 20 20 20 20 20 20 20 20 { "mov",
6270: 33 2c 20 22 76 69 64 65 6f 2f 71 75 69 63 6b 74 3, "video/quickt
6280: 69 6d 65 22 20 20 20 20 20 20 20 20 20 20 20 20 ime"
6290: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
62a0: 22 6d 70 32 22 2c 20 20 20 20 20 20 20 20 33 2c "mp2", 3,
62b0: 20 22 61 75 64 69 6f 2f 6d 70 65 67 22 20 20 20 "audio/mpeg"
62c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
62d0: 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 6d },. { "m
62e0: 70 32 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 p2", 3, "
62f0: 76 69 64 65 6f 2f 6d 70 65 67 22 20 20 20 20 20 video/mpeg"
6300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6310: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 6d 70 33 },. { "mp3
6320: 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 61 75 ", 3, "au
6330: 64 69 6f 2f 6d 70 65 67 22 20 20 20 20 20 20 20 dio/mpeg"
6340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6350: 20 7d 2c 0a 20 20 20 20 7b 20 22 6d 70 65 67 22 },. { "mpeg"
6360: 2c 20 20 20 20 20 20 20 34 2c 20 22 76 69 64 65 , 4, "vide
6370: 6f 2f 6d 70 65 67 22 20 20 20 20 20 20 20 20 20 o/mpeg"
6380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d }
6390: 2c 0a 20 20 20 20 7b 20 22 6d 70 65 22 2c 20 20 ,. { "mpe",
63a0: 20 20 20 20 20 20 33 2c 20 22 76 69 64 65 6f 2f 3, "video/
63b0: 6d 70 65 67 22 20 20 20 20 20 20 20 20 20 20 20 mpeg"
63c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a },.
63d0: 20 20 20 20 7b 20 22 6d 70 67 61 22 2c 20 20 20 { "mpga",
63e0: 20 20 20 20 34 2c 20 22 61 75 64 69 6f 2f 6d 70 4, "audio/mp
63f0: 65 67 22 20 20 20 20 20 20 20 20 20 20 20 20 20 eg"
6400: 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 },.
6410: 20 20 7b 20 22 6d 70 67 22 2c 20 20 20 20 20 20 { "mpg",
6420: 20 20 33 2c 20 22 76 69 64 65 6f 2f 6d 70 65 67 3, "video/mpeg
6430: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
6440: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
6450: 7b 20 22 6d 73 22 2c 20 20 20 20 20 20 20 20 20 { "ms",
6460: 32 2c 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 2, "application/
6470: 78 2d 74 72 6f 66 66 2d 6d 73 22 20 20 20 20 20 x-troff-ms"
6480: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
6490: 22 6d 73 68 22 2c 20 20 20 20 20 20 20 20 33 2c "msh", 3,
64a0: 20 22 6d 6f 64 65 6c 2f 6d 65 73 68 22 20 20 20 "model/mesh"
64b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
64c0: 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 6e },. { "n
64d0: 63 22 2c 20 20 20 20 20 20 20 20 20 32 2c 20 22 c", 2, "
64e0: 61 70 70 6c 69 63 61 74 69 6f 6e 2f 78 2d 6e 65 application/x-ne
64f0: 74 63 64 66 22 20 20 20 20 20 20 20 20 20 20 20 tcdf"
6500: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 6f 64 61 },. { "oda
6510: 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 61 70 ", 3, "ap
6520: 70 6c 69 63 61 74 69 6f 6e 2f 6f 64 61 22 20 20 plication/oda"
6530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6540: 20 7d 2c 0a 20 20 20 20 7b 20 22 6f 67 67 22 2c },. { "ogg",
6550: 20 20 20 20 20 20 20 20 33 2c 20 22 61 70 70 6c 3, "appl
6560: 69 63 61 74 69 6f 6e 2f 6f 67 67 22 20 20 20 20 ication/ogg"
6570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d }
6580: 2c 0a 20 20 20 20 7b 20 22 6f 67 6d 22 2c 20 20 ,. { "ogm",
6590: 20 20 20 20 20 20 33 2c 20 22 61 70 70 6c 69 63 3, "applic
65a0: 61 74 69 6f 6e 2f 6f 67 67 22 20 20 20 20 20 20 ation/ogg"
65b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a },.
65c0: 20 20 20 20 7b 20 22 70 62 6d 22 2c 20 20 20 20 { "pbm",
65d0: 20 20 20 20 33 2c 20 22 69 6d 61 67 65 2f 78 2d 3, "image/x-
65e0: 70 6f 72 74 61 62 6c 65 2d 62 69 74 6d 61 70 22 portable-bitmap"
65f0: 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 },.
6600: 20 20 7b 20 22 70 64 62 22 2c 20 20 20 20 20 20 { "pdb",
6610: 20 20 33 2c 20 22 63 68 65 6d 69 63 61 6c 2f 78 3, "chemical/x
6620: 2d 70 64 62 22 20 20 20 20 20 20 20 20 20 20 20 -pdb"
6630: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
6640: 7b 20 22 70 64 66 22 2c 20 20 20 20 20 20 20 20 { "pdf",
6650: 33 2c 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 3, "application/
6660: 70 64 66 22 20 20 20 20 20 20 20 20 20 20 20 20 pdf"
6670: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
6680: 22 70 67 6d 22 2c 20 20 20 20 20 20 20 20 33 2c "pgm", 3,
6690: 20 22 69 6d 61 67 65 2f 78 2d 70 6f 72 74 61 62 "image/x-portab
66a0: 6c 65 2d 67 72 61 79 6d 61 70 22 20 20 20 20 20 le-graymap"
66b0: 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 70 },. { "p
66c0: 67 6e 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 gn", 3, "
66d0: 61 70 70 6c 69 63 61 74 69 6f 6e 2f 78 2d 63 68 application/x-ch
66e0: 65 73 73 2d 70 67 6e 22 20 20 20 20 20 20 20 20 ess-pgn"
66f0: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 70 67 70 },. { "pgp
6700: 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 61 70 ", 3, "ap
6710: 70 6c 69 63 61 74 69 6f 6e 2f 70 67 70 22 20 20 plication/pgp"
6720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6730: 20 7d 2c 0a 20 20 20 20 7b 20 22 70 6c 22 2c 20 },. { "pl",
6740: 20 20 20 20 20 20 20 20 32 2c 20 22 61 70 70 6c 2, "appl
6750: 69 63 61 74 69 6f 6e 2f 78 2d 70 65 72 6c 22 20 ication/x-perl"
6760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d }
6770: 2c 0a 20 20 20 20 7b 20 22 70 6d 22 2c 20 20 20 ,. { "pm",
6780: 20 20 20 20 20 20 32 2c 20 22 61 70 70 6c 69 63 2, "applic
6790: 61 74 69 6f 6e 2f 78 2d 70 65 72 6c 22 20 20 20 ation/x-perl"
67a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a },.
67b0: 20 20 20 20 7b 20 22 70 6e 67 22 2c 20 20 20 20 { "png",
67c0: 20 20 20 20 33 2c 20 22 69 6d 61 67 65 2f 70 6e 3, "image/pn
67d0: 67 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 g"
67e0: 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 },.
67f0: 20 20 7b 20 22 70 6e 6d 22 2c 20 20 20 20 20 20 { "pnm",
6800: 20 20 33 2c 20 22 69 6d 61 67 65 2f 78 2d 70 6f 3, "image/x-po
6810: 72 74 61 62 6c 65 2d 61 6e 79 6d 61 70 22 20 20 rtable-anymap"
6820: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
6830: 7b 20 22 70 6f 74 22 2c 20 20 20 20 20 20 20 20 { "pot",
6840: 33 2c 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 3, "application/
6850: 6d 73 70 6f 77 65 72 70 6f 69 6e 74 22 20 20 20 mspowerpoint"
6860: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
6870: 22 70 70 6d 22 2c 20 20 20 20 20 20 20 20 33 2c "ppm", 3,
6880: 20 22 69 6d 61 67 65 2f 78 2d 70 6f 72 74 61 62 "image/x-portab
6890: 6c 65 2d 70 69 78 6d 61 70 22 20 20 20 20 20 20 le-pixmap"
68a0: 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 70 },. { "p
68b0: 70 73 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 ps", 3, "
68c0: 61 70 70 6c 69 63 61 74 69 6f 6e 2f 6d 73 70 6f application/mspo
68d0: 77 65 72 70 6f 69 6e 74 22 20 20 20 20 20 20 20 werpoint"
68e0: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 70 70 74 },. { "ppt
68f0: 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 61 70 ", 3, "ap
6900: 70 6c 69 63 61 74 69 6f 6e 2f 6d 73 70 6f 77 65 plication/mspowe
6910: 72 70 6f 69 6e 74 22 20 20 20 20 20 20 20 20 20 rpoint"
6920: 20 7d 2c 0a 20 20 20 20 7b 20 22 70 70 7a 22 2c },. { "ppz",
6930: 20 20 20 20 20 20 20 20 33 2c 20 22 61 70 70 6c 3, "appl
6940: 69 63 61 74 69 6f 6e 2f 6d 73 70 6f 77 65 72 70 ication/mspowerp
6950: 6f 69 6e 74 22 20 20 20 20 20 20 20 20 20 20 7d oint" }
6960: 2c 0a 20 20 20 20 7b 20 22 70 72 65 22 2c 20 20 ,. { "pre",
6970: 20 20 20 20 20 20 33 2c 20 22 61 70 70 6c 69 63 3, "applic
6980: 61 74 69 6f 6e 2f 78 2d 66 72 65 65 6c 61 6e 63 ation/x-freelanc
6990: 65 22 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a e" },.
69a0: 20 20 20 20 7b 20 22 70 72 74 22 2c 20 20 20 20 { "prt",
69b0: 20 20 20 20 33 2c 20 22 61 70 70 6c 69 63 61 74 3, "applicat
69c0: 69 6f 6e 2f 70 72 6f 5f 65 6e 67 22 20 20 20 20 ion/pro_eng"
69d0: 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 },.
69e0: 20 20 7b 20 22 70 73 22 2c 20 20 20 20 20 20 20 { "ps",
69f0: 20 20 32 2c 20 22 61 70 70 6c 69 63 61 74 69 6f 2, "applicatio
6a00: 6e 2f 70 6f 73 74 73 63 72 69 70 74 22 20 20 20 n/postscript"
6a10: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
6a20: 7b 20 22 71 74 22 2c 20 20 20 20 20 20 20 20 20 { "qt",
6a30: 32 2c 20 22 76 69 64 65 6f 2f 71 75 69 63 6b 74 2, "video/quickt
6a40: 69 6d 65 22 20 20 20 20 20 20 20 20 20 20 20 20 ime"
6a50: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
6a60: 22 72 61 22 2c 20 20 20 20 20 20 20 20 20 32 2c "ra", 2,
6a70: 20 22 61 75 64 69 6f 2f 78 2d 72 65 61 6c 61 75 "audio/x-realau
6a80: 64 69 6f 22 20 20 20 20 20 20 20 20 20 20 20 20 dio"
6a90: 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 72 },. { "r
6aa0: 61 6d 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 am", 3, "
6ab0: 61 75 64 69 6f 2f 78 2d 70 6e 2d 72 65 61 6c 61 audio/x-pn-reala
6ac0: 75 64 69 6f 22 20 20 20 20 20 20 20 20 20 20 20 udio"
6ad0: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 72 61 72 },. { "rar
6ae0: 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 61 70 ", 3, "ap
6af0: 70 6c 69 63 61 74 69 6f 6e 2f 78 2d 72 61 72 2d plication/x-rar-
6b00: 63 6f 6d 70 72 65 73 73 65 64 22 20 20 20 20 20 compressed"
6b10: 20 7d 2c 0a 20 20 20 20 7b 20 22 72 61 73 22 2c },. { "ras",
6b20: 20 20 20 20 20 20 20 20 33 2c 20 22 69 6d 61 67 3, "imag
6b30: 65 2f 63 6d 75 2d 72 61 73 74 65 72 22 20 20 20 e/cmu-raster"
6b40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d }
6b50: 2c 0a 20 20 20 20 7b 20 22 72 61 73 22 2c 20 20 ,. { "ras",
6b60: 20 20 20 20 20 20 33 2c 20 22 69 6d 61 67 65 2f 3, "image/
6b70: 78 2d 63 6d 75 2d 72 61 73 74 65 72 22 20 20 20 x-cmu-raster"
6b80: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a },.
6b90: 20 20 20 20 7b 20 22 72 67 62 22 2c 20 20 20 20 { "rgb",
6ba0: 20 20 20 20 33 2c 20 22 69 6d 61 67 65 2f 78 2d 3, "image/x-
6bb0: 72 67 62 22 20 20 20 20 20 20 20 20 20 20 20 20 rgb"
6bc0: 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 },.
6bd0: 20 20 7b 20 22 72 6d 22 2c 20 20 20 20 20 20 20 { "rm",
6be0: 20 20 32 2c 20 22 61 75 64 69 6f 2f 78 2d 70 6e 2, "audio/x-pn
6bf0: 2d 72 65 61 6c 61 75 64 69 6f 22 20 20 20 20 20 -realaudio"
6c00: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
6c10: 7b 20 22 72 6f 66 66 22 2c 20 20 20 20 20 20 20 { "roff",
6c20: 34 2c 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 4, "application/
6c30: 78 2d 74 72 6f 66 66 22 20 20 20 20 20 20 20 20 x-troff"
6c40: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
6c50: 22 72 70 6d 22 2c 20 20 20 20 20 20 20 20 33 2c "rpm", 3,
6c60: 20 22 61 75 64 69 6f 2f 78 2d 70 6e 2d 72 65 61 "audio/x-pn-rea
6c70: 6c 61 75 64 69 6f 2d 70 6c 75 67 69 6e 22 20 20 laudio-plugin"
6c80: 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 72 },. { "r
6c90: 74 66 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 tf", 3, "
6ca0: 61 70 70 6c 69 63 61 74 69 6f 6e 2f 72 74 66 22 application/rtf"
6cb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6cc0: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 72 74 66 },. { "rtf
6cd0: 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 74 65 ", 3, "te
6ce0: 78 74 2f 72 74 66 22 20 20 20 20 20 20 20 20 20 xt/rtf"
6cf0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6d00: 20 7d 2c 0a 20 20 20 20 7b 20 22 72 74 78 22 2c },. { "rtx",
6d10: 20 20 20 20 20 20 20 20 33 2c 20 22 74 65 78 74 3, "text
6d20: 2f 72 69 63 68 74 65 78 74 22 20 20 20 20 20 20 /richtext"
6d30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d }
6d40: 2c 0a 20 20 20 20 7b 20 22 73 63 6d 22 2c 20 20 ,. { "scm",
6d50: 20 20 20 20 20 20 33 2c 20 22 61 70 70 6c 69 63 3, "applic
6d60: 61 74 69 6f 6e 2f 78 2d 6c 6f 74 75 73 73 63 72 ation/x-lotusscr
6d70: 65 65 6e 63 61 6d 22 20 20 20 20 20 20 7d 2c 0a eencam" },.
6d80: 20 20 20 20 7b 20 22 73 65 74 22 2c 20 20 20 20 { "set",
6d90: 20 20 20 20 33 2c 20 22 61 70 70 6c 69 63 61 74 3, "applicat
6da0: 69 6f 6e 2f 73 65 74 22 20 20 20 20 20 20 20 20 ion/set"
6db0: 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 },.
6dc0: 20 20 7b 20 22 73 67 6d 6c 22 2c 20 20 20 20 20 { "sgml",
6dd0: 20 20 34 2c 20 22 74 65 78 74 2f 73 67 6d 6c 22 4, "text/sgml"
6de0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6df0: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
6e00: 7b 20 22 73 67 6d 22 2c 20 20 20 20 20 20 20 20 { "sgm",
6e10: 33 2c 20 22 74 65 78 74 2f 73 67 6d 6c 22 20 20 3, "text/sgml"
6e20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6e30: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
6e40: 22 73 68 22 2c 20 20 20 20 20 20 20 20 20 32 2c "sh", 2,
6e50: 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 78 2d "application/x-
6e60: 73 68 22 20 20 20 20 20 20 20 20 20 20 20 20 20 sh"
6e70: 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 73 },. { "s
6e80: 68 61 72 22 2c 20 20 20 20 20 20 20 34 2c 20 22 har", 4, "
6e90: 61 70 70 6c 69 63 61 74 69 6f 6e 2f 78 2d 73 68 application/x-sh
6ea0: 61 72 22 20 20 20 20 20 20 20 20 20 20 20 20 20 ar"
6eb0: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 73 69 6c },. { "sil
6ec0: 6f 22 2c 20 20 20 20 20 20 20 34 2c 20 22 6d 6f o", 4, "mo
6ed0: 64 65 6c 2f 6d 65 73 68 22 20 20 20 20 20 20 20 del/mesh"
6ee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6ef0: 20 7d 2c 0a 20 20 20 20 7b 20 22 73 69 74 22 2c },. { "sit",
6f00: 20 20 20 20 20 20 20 20 33 2c 20 22 61 70 70 6c 3, "appl
6f10: 69 63 61 74 69 6f 6e 2f 78 2d 73 74 75 66 66 69 ication/x-stuffi
6f20: 74 22 20 20 20 20 20 20 20 20 20 20 20 20 20 7d t" }
6f30: 2c 0a 20 20 20 20 7b 20 22 73 6b 64 22 2c 20 20 ,. { "skd",
6f40: 20 20 20 20 20 20 33 2c 20 22 61 70 70 6c 69 63 3, "applic
6f50: 61 74 69 6f 6e 2f 78 2d 6b 6f 61 6e 22 20 20 20 ation/x-koan"
6f60: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a },.
6f70: 20 20 20 20 7b 20 22 73 6b 6d 22 2c 20 20 20 20 { "skm",
6f80: 20 20 20 20 33 2c 20 22 61 70 70 6c 69 63 61 74 3, "applicat
6f90: 69 6f 6e 2f 78 2d 6b 6f 61 6e 22 20 20 20 20 20 ion/x-koan"
6fa0: 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 },.
6fb0: 20 20 7b 20 22 73 6b 70 22 2c 20 20 20 20 20 20 { "skp",
6fc0: 20 20 33 2c 20 22 61 70 70 6c 69 63 61 74 69 6f 3, "applicatio
6fd0: 6e 2f 78 2d 6b 6f 61 6e 22 20 20 20 20 20 20 20 n/x-koan"
6fe0: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
6ff0: 7b 20 22 73 6b 74 22 2c 20 20 20 20 20 20 20 20 { "skt",
7000: 33 2c 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 3, "application/
7010: 78 2d 6b 6f 61 6e 22 20 20 20 20 20 20 20 20 20 x-koan"
7020: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
7030: 22 73 6d 69 22 2c 20 20 20 20 20 20 20 20 33 2c "smi", 3,
7040: 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 73 6d "application/sm
7050: 69 6c 22 20 20 20 20 20 20 20 20 20 20 20 20 20 il"
7060: 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 73 },. { "s
7070: 6d 69 6c 22 2c 20 20 20 20 20 20 20 34 2c 20 22 mil", 4, "
7080: 61 70 70 6c 69 63 61 74 69 6f 6e 2f 73 6d 69 6c application/smil
7090: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
70a0: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 73 6e 64 },. { "snd
70b0: 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 61 75 ", 3, "au
70c0: 64 69 6f 2f 62 61 73 69 63 22 20 20 20 20 20 20 dio/basic"
70d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
70e0: 20 7d 2c 0a 20 20 20 20 7b 20 22 73 6f 6c 22 2c },. { "sol",
70f0: 20 20 20 20 20 20 20 20 33 2c 20 22 61 70 70 6c 3, "appl
7100: 69 63 61 74 69 6f 6e 2f 73 6f 6c 69 64 73 22 20 ication/solids"
7110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d }
7120: 2c 0a 20 20 20 20 7b 20 22 73 70 6c 22 2c 20 20 ,. { "spl",
7130: 20 20 20 20 20 20 33 2c 20 22 61 70 70 6c 69 63 3, "applic
7140: 61 74 69 6f 6e 2f 78 2d 66 75 74 75 72 65 73 70 ation/x-futuresp
7150: 6c 61 73 68 22 20 20 20 20 20 20 20 20 7d 2c 0a lash" },.
7160: 20 20 20 20 7b 20 22 73 72 63 22 2c 20 20 20 20 { "src",
7170: 20 20 20 20 33 2c 20 22 61 70 70 6c 69 63 61 74 3, "applicat
7180: 69 6f 6e 2f 78 2d 77 61 69 73 2d 73 6f 75 72 63 ion/x-wais-sourc
7190: 65 22 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 e" },.
71a0: 20 20 7b 20 22 73 74 65 70 22 2c 20 20 20 20 20 { "step",
71b0: 20 20 34 2c 20 22 61 70 70 6c 69 63 61 74 69 6f 4, "applicatio
71c0: 6e 2f 53 54 45 50 22 20 20 20 20 20 20 20 20 20 n/STEP"
71d0: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
71e0: 7b 20 22 73 74 6c 22 2c 20 20 20 20 20 20 20 20 { "stl",
71f0: 33 2c 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 3, "application/
7200: 53 4c 41 22 20 20 20 20 20 20 20 20 20 20 20 20 SLA"
7210: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
7220: 22 73 74 70 22 2c 20 20 20 20 20 20 20 20 33 2c "stp", 3,
7230: 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 53 54 "application/ST
7240: 45 50 22 20 20 20 20 20 20 20 20 20 20 20 20 20 EP"
7250: 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 73 },. { "s
7260: 76 34 63 70 69 6f 22 2c 20 20 20 20 37 2c 20 22 v4cpio", 7, "
7270: 61 70 70 6c 69 63 61 74 69 6f 6e 2f 78 2d 73 76 application/x-sv
7280: 34 63 70 69 6f 22 20 20 20 20 20 20 20 20 20 20 4cpio"
7290: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 73 76 34 },. { "sv4
72a0: 63 72 63 22 2c 20 20 20 20 20 36 2c 20 22 61 70 crc", 6, "ap
72b0: 70 6c 69 63 61 74 69 6f 6e 2f 78 2d 73 76 34 63 plication/x-sv4c
72c0: 72 63 22 20 20 20 20 20 20 20 20 20 20 20 20 20 rc"
72d0: 20 7d 2c 0a 20 20 20 20 7b 20 22 73 77 66 22 2c },. { "swf",
72e0: 20 20 20 20 20 20 20 20 33 2c 20 22 61 70 70 6c 3, "appl
72f0: 69 63 61 74 69 6f 6e 2f 78 2d 73 68 6f 63 6b 77 ication/x-shockw
7300: 61 76 65 2d 66 6c 61 73 68 22 20 20 20 20 20 7d ave-flash" }
7310: 2c 0a 20 20 20 20 7b 20 22 74 22 2c 20 20 20 20 ,. { "t",
7320: 20 20 20 20 20 20 31 2c 20 22 61 70 70 6c 69 63 1, "applic
7330: 61 74 69 6f 6e 2f 78 2d 74 72 6f 66 66 22 20 20 ation/x-troff"
7340: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a },.
7350: 20 20 20 20 7b 20 22 74 61 72 22 2c 20 20 20 20 { "tar",
7360: 20 20 20 20 33 2c 20 22 61 70 70 6c 69 63 61 74 3, "applicat
7370: 69 6f 6e 2f 78 2d 74 61 72 22 20 20 20 20 20 20 ion/x-tar"
7380: 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 },.
7390: 20 20 7b 20 22 74 63 6c 22 2c 20 20 20 20 20 20 { "tcl",
73a0: 20 20 33 2c 20 22 61 70 70 6c 69 63 61 74 69 6f 3, "applicatio
73b0: 6e 2f 78 2d 74 63 6c 22 20 20 20 20 20 20 20 20 n/x-tcl"
73c0: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
73d0: 7b 20 22 74 65 78 22 2c 20 20 20 20 20 20 20 20 { "tex",
73e0: 33 2c 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 3, "application/
73f0: 78 2d 74 65 78 22 20 20 20 20 20 20 20 20 20 20 x-tex"
7400: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
7410: 22 74 65 78 69 22 2c 20 20 20 20 20 20 20 34 2c "texi", 4,
7420: 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 78 2d "application/x-
7430: 74 65 78 69 6e 66 6f 22 20 20 20 20 20 20 20 20 texinfo"
7440: 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 74 },. { "t
7450: 65 78 69 6e 66 6f 22 2c 20 20 20 20 37 2c 20 22 exinfo", 7, "
7460: 61 70 70 6c 69 63 61 74 69 6f 6e 2f 78 2d 74 65 application/x-te
7470: 78 69 6e 66 6f 22 20 20 20 20 20 20 20 20 20 20 xinfo"
7480: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 74 67 7a },. { "tgz
7490: 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 61 70 ", 3, "ap
74a0: 70 6c 69 63 61 74 69 6f 6e 2f 78 2d 74 61 72 2d plication/x-tar-
74b0: 67 7a 22 20 20 20 20 20 20 20 20 20 20 20 20 20 gz"
74c0: 20 7d 2c 0a 20 20 20 20 7b 20 22 74 69 66 66 22 },. { "tiff"
74d0: 2c 20 20 20 20 20 20 20 34 2c 20 22 69 6d 61 67 , 4, "imag
74e0: 65 2f 74 69 66 66 22 20 20 20 20 20 20 20 20 20 e/tiff"
74f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d }
7500: 2c 0a 20 20 20 20 7b 20 22 74 69 66 22 2c 20 20 ,. { "tif",
7510: 20 20 20 20 20 20 33 2c 20 22 69 6d 61 67 65 2f 3, "image/
7520: 74 69 66 66 22 20 20 20 20 20 20 20 20 20 20 20 tiff"
7530: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a },.
7540: 20 20 20 20 7b 20 22 74 72 22 2c 20 20 20 20 20 { "tr",
7550: 20 20 20 20 32 2c 20 22 61 70 70 6c 69 63 61 74 2, "applicat
7560: 69 6f 6e 2f 78 2d 74 72 6f 66 66 22 20 20 20 20 ion/x-troff"
7570: 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 },.
7580: 20 20 7b 20 22 74 73 69 22 2c 20 20 20 20 20 20 { "tsi",
7590: 20 20 33 2c 20 22 61 75 64 69 6f 2f 54 53 50 2d 3, "audio/TSP-
75a0: 61 75 64 69 6f 22 20 20 20 20 20 20 20 20 20 20 audio"
75b0: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
75c0: 7b 20 22 74 73 70 22 2c 20 20 20 20 20 20 20 20 { "tsp",
75d0: 33 2c 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 3, "application/
75e0: 64 73 70 74 79 70 65 22 20 20 20 20 20 20 20 20 dsptype"
75f0: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
7600: 22 74 73 76 22 2c 20 20 20 20 20 20 20 20 33 2c "tsv", 3,
7610: 20 22 74 65 78 74 2f 74 61 62 2d 73 65 70 61 72 "text/tab-separ
7620: 61 74 65 64 2d 76 61 6c 75 65 73 22 20 20 20 20 ated-values"
7630: 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 74 },. { "t
7640: 78 74 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 xt", 3, "
7650: 74 65 78 74 2f 70 6c 61 69 6e 22 20 20 20 20 20 text/plain"
7660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7670: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 75 6e 76 },. { "unv
7680: 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 61 70 ", 3, "ap
7690: 70 6c 69 63 61 74 69 6f 6e 2f 69 2d 64 65 61 73 plication/i-deas
76a0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
76b0: 20 7d 2c 0a 20 20 20 20 7b 20 22 75 73 74 61 72 },. { "ustar
76c0: 22 2c 20 20 20 20 20 20 35 2c 20 22 61 70 70 6c ", 5, "appl
76d0: 69 63 61 74 69 6f 6e 2f 78 2d 75 73 74 61 72 22 ication/x-ustar"
76e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d }
76f0: 2c 0a 20 20 20 20 7b 20 22 76 63 64 22 2c 20 20 ,. { "vcd",
7700: 20 20 20 20 20 20 33 2c 20 22 61 70 70 6c 69 63 3, "applic
7710: 61 74 69 6f 6e 2f 78 2d 63 64 6c 69 6e 6b 22 20 ation/x-cdlink"
7720: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a },.
7730: 20 20 20 20 7b 20 22 76 64 61 22 2c 20 20 20 20 { "vda",
7740: 20 20 20 20 33 2c 20 22 61 70 70 6c 69 63 61 74 3, "applicat
7750: 69 6f 6e 2f 76 64 61 22 20 20 20 20 20 20 20 20 ion/vda"
7760: 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 },.
7770: 20 20 7b 20 22 76 69 76 22 2c 20 20 20 20 20 20 { "viv",
7780: 20 20 33 2c 20 22 76 69 64 65 6f 2f 76 6e 64 2e 3, "video/vnd.
7790: 76 69 76 6f 22 20 20 20 20 20 20 20 20 20 20 20 vivo"
77a0: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
77b0: 7b 20 22 76 69 76 6f 22 2c 20 20 20 20 20 20 20 { "vivo",
77c0: 34 2c 20 22 76 69 64 65 6f 2f 76 6e 64 2e 76 69 4, "video/vnd.vi
77d0: 76 6f 22 20 20 20 20 20 20 20 20 20 20 20 20 20 vo"
77e0: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
77f0: 22 76 72 6d 6c 22 2c 20 20 20 20 20 20 20 34 2c "vrml", 4,
7800: 20 22 6d 6f 64 65 6c 2f 76 72 6d 6c 22 20 20 20 "model/vrml"
7810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7820: 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 77 },. { "w
7830: 61 76 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 av", 3, "
7840: 61 75 64 69 6f 2f 78 2d 77 61 76 22 20 20 20 20 audio/x-wav"
7850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7860: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 77 61 78 },. { "wax
7870: 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 61 75 ", 3, "au
7880: 64 69 6f 2f 78 2d 6d 73 2d 77 61 78 22 20 20 20 dio/x-ms-wax"
7890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
78a0: 20 7d 2c 0a 20 20 20 20 7b 20 22 77 69 6b 69 22 },. { "wiki"
78b0: 2c 20 20 20 20 20 20 20 34 2c 20 22 61 70 70 6c , 4, "appl
78c0: 69 63 61 74 69 6f 6e 2f 78 2d 66 6f 73 73 69 6c ication/x-fossil
78d0: 2d 77 69 6b 69 22 20 20 20 20 20 20 20 20 20 7d -wiki" }
78e0: 2c 0a 20 20 20 20 7b 20 22 77 6d 61 22 2c 20 20 ,. { "wma",
78f0: 20 20 20 20 20 20 33 2c 20 22 61 75 64 69 6f 2f 3, "audio/
7900: 78 2d 6d 73 2d 77 6d 61 22 20 20 20 20 20 20 20 x-ms-wma"
7910: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a },.
7920: 20 20 20 20 7b 20 22 77 6d 76 22 2c 20 20 20 20 { "wmv",
7930: 20 20 20 20 33 2c 20 22 76 69 64 65 6f 2f 78 2d 3, "video/x-
7940: 6d 73 2d 77 6d 76 22 20 20 20 20 20 20 20 20 20 ms-wmv"
7950: 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 },.
7960: 20 20 7b 20 22 77 6d 78 22 2c 20 20 20 20 20 20 { "wmx",
7970: 20 20 33 2c 20 22 76 69 64 65 6f 2f 78 2d 6d 73 3, "video/x-ms
7980: 2d 77 6d 78 22 20 20 20 20 20 20 20 20 20 20 20 -wmx"
7990: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
79a0: 7b 20 22 77 72 6c 22 2c 20 20 20 20 20 20 20 20 { "wrl",
79b0: 33 2c 20 22 6d 6f 64 65 6c 2f 76 72 6d 6c 22 20 3, "model/vrml"
79c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
79d0: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
79e0: 22 77 76 78 22 2c 20 20 20 20 20 20 20 20 33 2c "wvx", 3,
79f0: 20 22 76 69 64 65 6f 2f 78 2d 6d 73 2d 77 76 78 "video/x-ms-wvx
7a00: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "
7a10: 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 78 },. { "x
7a20: 62 6d 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 bm", 3, "
7a30: 69 6d 61 67 65 2f 78 2d 78 62 69 74 6d 61 70 22 image/x-xbitmap"
7a40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7a50: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 78 6c 63 },. { "xlc
7a60: 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 61 70 ", 3, "ap
7a70: 70 6c 69 63 61 74 69 6f 6e 2f 76 6e 64 2e 6d 73 plication/vnd.ms
7a80: 2d 65 78 63 65 6c 22 20 20 20 20 20 20 20 20 20 -excel"
7a90: 20 7d 2c 0a 20 20 20 20 7b 20 22 78 6c 6c 22 2c },. { "xll",
7aa0: 20 20 20 20 20 20 20 20 33 2c 20 22 61 70 70 6c 3, "appl
7ab0: 69 63 61 74 69 6f 6e 2f 76 6e 64 2e 6d 73 2d 65 ication/vnd.ms-e
7ac0: 78 63 65 6c 22 20 20 20 20 20 20 20 20 20 20 7d xcel" }
7ad0: 2c 0a 20 20 20 20 7b 20 22 78 6c 6d 22 2c 20 20 ,. { "xlm",
7ae0: 20 20 20 20 20 20 33 2c 20 22 61 70 70 6c 69 63 3, "applic
7af0: 61 74 69 6f 6e 2f 76 6e 64 2e 6d 73 2d 65 78 63 ation/vnd.ms-exc
7b00: 65 6c 22 20 20 20 20 20 20 20 20 20 20 7d 2c 0a el" },.
7b10: 20 20 20 20 7b 20 22 78 6c 73 22 2c 20 20 20 20 { "xls",
7b20: 20 20 20 20 33 2c 20 22 61 70 70 6c 69 63 61 74 3, "applicat
7b30: 69 6f 6e 2f 76 6e 64 2e 6d 73 2d 65 78 63 65 6c ion/vnd.ms-excel
7b40: 22 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 " },.
7b50: 20 20 7b 20 22 78 6c 77 22 2c 20 20 20 20 20 20 { "xlw",
7b60: 20 20 33 2c 20 22 61 70 70 6c 69 63 61 74 69 6f 3, "applicatio
7b70: 6e 2f 76 6e 64 2e 6d 73 2d 65 78 63 65 6c 22 20 n/vnd.ms-excel"
7b80: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 },.
7b90: 7b 20 22 78 6d 6c 22 2c 20 20 20 20 20 20 20 20 { "xml",
7ba0: 33 2c 20 22 74 65 78 74 2f 78 6d 6c 22 20 20 20 3, "text/xml"
7bb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7bc0: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 },. {
7bd0: 22 78 70 6d 22 2c 20 20 20 20 20 20 20 20 33 2c "xpm", 3,
7be0: 20 22 69 6d 61 67 65 2f 78 2d 78 70 69 78 6d 61 "image/x-xpixma
7bf0: 70 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 p"
7c00: 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 78 },. { "x
7c10: 77 64 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 wd", 3, "
7c20: 69 6d 61 67 65 2f 78 2d 78 77 69 6e 64 6f 77 64 image/x-xwindowd
7c30: 75 6d 70 22 20 20 20 20 20 20 20 20 20 20 20 20 ump"
7c40: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 78 79 7a },. { "xyz
7c50: 22 2c 20 20 20 20 20 20 20 20 33 2c 20 22 63 68 ", 3, "ch
7c60: 65 6d 69 63 61 6c 2f 78 2d 70 64 62 22 20 20 20 emical/x-pdb"
7c70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7c80: 20 7d 2c 0a 20 20 20 20 7b 20 22 7a 69 70 22 2c },. { "zip",
7c90: 20 20 20 20 20 20 20 20 33 2c 20 22 61 70 70 6c 3, "appl
7ca0: 69 63 61 74 69 6f 6e 2f 7a 69 70 22 20 20 20 20 ication/zip"
7cb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d }
7cc0: 2c 0a 20 20 7d 3b 0a 0a 20 20 66 6f 72 28 69 3d ,. };.. for(i=
7cd0: 6e 4e 61 6d 65 2d 31 3b 20 69 3e 30 20 26 26 20 nName-1; i>0 &&
7ce0: 7a 4e 61 6d 65 5b 69 5d 21 3d 27 2e 27 3b 20 69 zName[i]!='.'; i
7cf0: 2d 2d 29 7b 7d 0a 20 20 7a 20 3d 20 26 7a 4e 61 --){}. z = &zNa
7d00: 6d 65 5b 69 2b 31 5d 3b 0a 20 20 6c 65 6e 20 3d me[i+1];. len =
7d10: 20 6e 4e 61 6d 65 20 2d 20 69 3b 0a 20 20 69 66 nName - i;. if
7d20: 28 20 6c 65 6e 3c 28 69 6e 74 29 73 69 7a 65 6f ( len<(int)sizeo
7d30: 66 28 7a 53 75 66 66 69 78 29 2d 31 20 29 7b 0a f(zSuffix)-1 ){.
7d40: 20 20 20 20 73 74 72 63 70 79 28 7a 53 75 66 66 strcpy(zSuff
7d50: 69 78 2c 20 7a 29 3b 0a 20 20 20 20 66 6f 72 28 ix, z);. for(
7d60: 69 3d 30 3b 20 7a 53 75 66 66 69 78 5b 69 5d 3b i=0; zSuffix[i];
7d70: 20 69 2b 2b 29 20 7a 53 75 66 66 69 78 5b 69 5d i++) zSuffix[i]
7d80: 20 3d 20 74 6f 6c 6f 77 65 72 28 7a 53 75 66 66 = tolower(zSuff
7d90: 69 78 5b 69 5d 29 3b 0a 20 20 20 20 66 69 72 73 ix[i]);. firs
7da0: 74 20 3d 20 30 3b 0a 20 20 20 20 6c 61 73 74 20 t = 0;. last
7db0: 3d 20 73 69 7a 65 6f 66 28 61 4d 69 6d 65 29 2f = sizeof(aMime)/
7dc0: 73 69 7a 65 6f 66 28 61 4d 69 6d 65 5b 30 5d 29 sizeof(aMime[0])
7dd0: 3b 0a 20 20 20 20 77 68 69 6c 65 28 20 66 69 72 ;. while( fir
7de0: 73 74 3c 3d 6c 61 73 74 20 29 7b 0a 20 20 20 20 st<=last ){.
7df0: 20 20 69 6e 74 20 63 3b 0a 20 20 20 20 20 20 69 int c;. i
7e00: 20 3d 20 28 66 69 72 73 74 2b 6c 61 73 74 29 2f = (first+last)/
7e10: 32 3b 0a 20 20 20 20 20 20 63 20 3d 20 73 74 72 2;. c = str
7e20: 63 6d 70 28 7a 53 75 66 66 69 78 2c 20 61 4d 69 cmp(zSuffix, aMi
7e30: 6d 65 5b 69 5d 2e 7a 53 75 66 66 69 78 29 3b 0a me[i].zSuffix);.
7e40: 20 20 20 20 20 20 69 66 28 20 63 3d 3d 30 20 29 if( c==0 )
7e50: 20 72 65 74 75 72 6e 20 61 4d 69 6d 65 5b 69 5d return aMime[i]
7e60: 2e 7a 4d 69 6d 65 74 79 70 65 3b 0a 20 20 20 20 .zMimetype;.
7e70: 20 20 69 66 28 20 63 3c 30 20 29 7b 0a 20 20 20 if( c<0 ){.
7e80: 20 20 20 20 20 6c 61 73 74 20 3d 20 69 2d 31 3b last = i-1;
7e90: 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 . }else{.
7ea0: 20 20 20 20 20 20 66 69 72 73 74 20 3d 20 69 2b first = i+
7eb0: 31 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 1;. }. }
7ec0: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 22 61 . }. return "a
7ed0: 70 70 6c 69 63 61 74 69 6f 6e 2f 6f 63 74 65 74 pplication/octet
7ee0: 2d 73 74 72 65 61 6d 22 3b 0a 7d 0a 0a 2f 2a 0a -stream";.}../*.
7ef0: 2a 2a 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 ** The following
7f00: 20 74 61 62 6c 65 20 63 6f 6e 74 61 69 6e 73 20 table contains
7f10: 31 20 66 6f 72 20 61 6c 6c 20 63 68 61 72 61 63 1 for all charac
7f20: 74 65 72 73 20 74 68 61 74 20 61 72 65 20 70 65 ters that are pe
7f30: 72 6d 69 74 74 65 64 20 69 6e 0a 2a 2a 20 74 68 rmitted in.** th
7f40: 65 20 70 61 72 74 20 6f 66 20 74 68 65 20 55 52 e part of the UR
7f50: 4c 20 62 65 66 6f 72 65 20 74 68 65 20 71 75 65 L before the que
7f60: 72 79 20 70 61 72 61 6d 65 74 65 72 73 20 61 6e ry parameters an
7f70: 64 20 66 72 61 67 6d 65 6e 74 2e 0a 2a 2a 0a 2a d fragment..**.*
7f80: 2a 20 41 6c 6c 6f 77 65 64 20 63 68 61 72 61 63 * Allowed charac
7f90: 74 65 72 73 3a 20 20 30 2d 39 20 61 2d 7a 20 41 ters: 0-9 a-z A
7fa0: 2d 5a 20 2c 2d 2e 2f 3a 5f 7e 0a 2a 2a 0a 2a 2a -Z ,-./:_~.**.**
7fb0: 20 44 69 73 61 6c 6c 6f 77 65 64 20 63 68 61 72 Disallowed char
7fc0: 61 63 74 65 72 73 20 69 6e 63 6c 75 64 65 3a 20 acters include:
7fd0: 20 21 22 23 24 25 26 27 28 29 2a 2b 3b 3c 3d 3e !"#$%&'()*+;<=>
7fe0: 3f 5b 5c 5d 5e 7b 7c 7d 0a 2a 2f 0a 73 74 61 74 ?[\]^{|}.*/.stat
7ff0: 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20 61 6c ic const char al
8000: 6c 6f 77 65 64 49 6e 4e 61 6d 65 5b 5d 20 3d 20 lowedInName[] =
8010: 7b 0a 20 20 20 20 20 20 2f 2a 20 20 78 30 20 20 {. /* x0
8020: 78 31 20 20 78 32 20 20 78 33 20 20 78 34 20 20 x1 x2 x3 x4
8030: 78 35 20 20 78 36 20 20 78 37 20 20 78 38 20 20 x5 x6 x7 x8
8040: 78 39 20 20 78 61 20 20 78 62 20 20 78 63 20 20 x9 xa xb xc
8050: 78 64 20 20 78 65 20 20 78 66 20 2a 2f 0a 2f 2a xd xe xf */./*
8060: 20 30 78 20 2a 2f 20 20 20 30 2c 20 20 30 2c 20 0x */ 0, 0,
8070: 20 30 2c 20 20 30 2c 20 20 30 2c 20 20 30 2c 20 0, 0, 0, 0,
8080: 20 30 2c 20 20 30 2c 20 20 30 2c 20 20 30 2c 20 0, 0, 0, 0,
8090: 20 30 2c 20 20 30 2c 20 20 30 2c 20 20 30 2c 20 0, 0, 0, 0,
80a0: 20 30 2c 20 20 30 2c 0a 2f 2a 20 31 78 20 2a 2f 0, 0,./* 1x */
80b0: 20 20 20 30 2c 20 20 30 2c 20 20 30 2c 20 20 30 0, 0, 0, 0
80c0: 2c 20 20 30 2c 20 20 30 2c 20 20 30 2c 20 20 30 , 0, 0, 0, 0
80d0: 2c 20 20 30 2c 20 20 30 2c 20 20 30 2c 20 20 30 , 0, 0, 0, 0
80e0: 2c 20 20 30 2c 20 20 30 2c 20 20 30 2c 20 20 30 , 0, 0, 0, 0
80f0: 2c 0a 2f 2a 20 32 78 20 2a 2f 20 20 20 30 2c 20 ,./* 2x */ 0,
8100: 20 30 2c 20 20 30 2c 20 20 30 2c 20 20 30 2c 20 0, 0, 0, 0,
8110: 20 30 2c 20 20 30 2c 20 20 30 2c 20 20 30 2c 20 0, 0, 0, 0,
8120: 20 30 2c 20 20 30 2c 20 20 30 2c 20 20 31 2c 20 0, 0, 0, 1,
8130: 20 31 2c 20 20 31 2c 20 20 31 2c 0a 2f 2a 20 33 1, 1, 1,./* 3
8140: 78 20 2a 2f 20 20 20 31 2c 20 20 31 2c 20 20 31 x */ 1, 1, 1
8150: 2c 20 20 31 2c 20 20 31 2c 20 20 31 2c 20 20 31 , 1, 1, 1, 1
8160: 2c 20 20 31 2c 20 20 31 2c 20 20 31 2c 20 20 31 , 1, 1, 1, 1
8170: 2c 20 20 30 2c 20 20 30 2c 20 20 30 2c 20 20 30 , 0, 0, 0, 0
8180: 2c 20 20 30 2c 0a 2f 2a 20 34 78 20 2a 2f 20 20 , 0,./* 4x */
8190: 20 30 2c 20 20 31 2c 20 20 31 2c 20 20 31 2c 20 0, 1, 1, 1,
81a0: 20 31 2c 20 20 31 2c 20 20 31 2c 20 20 31 2c 20 1, 1, 1, 1,
81b0: 20 31 2c 20 20 31 2c 20 20 31 2c 20 20 31 2c 20 1, 1, 1, 1,
81c0: 20 31 2c 20 20 31 2c 20 20 31 2c 20 20 31 2c 0a 1, 1, 1, 1,.
81d0: 2f 2a 20 35 78 20 2a 2f 20 20 20 31 2c 20 20 31 /* 5x */ 1, 1
81e0: 2c 20 20 31 2c 20 20 31 2c 20 20 31 2c 20 20 31 , 1, 1, 1, 1
81f0: 2c 20 20 31 2c 20 20 31 2c 20 20 31 2c 20 20 31 , 1, 1, 1, 1
8200: 2c 20 20 31 2c 20 20 30 2c 20 20 30 2c 20 20 30 , 1, 0, 0, 0
8210: 2c 20 20 30 2c 20 20 31 2c 0a 2f 2a 20 36 78 20 , 0, 1,./* 6x
8220: 2a 2f 20 20 20 30 2c 20 20 31 2c 20 20 31 2c 20 */ 0, 1, 1,
8230: 20 31 2c 20 20 31 2c 20 20 31 2c 20 20 31 2c 20 1, 1, 1, 1,
8240: 20 31 2c 20 20 31 2c 20 20 31 2c 20 20 31 2c 20 1, 1, 1, 1,
8250: 20 31 2c 20 20 31 2c 20 20 31 2c 20 20 31 2c 20 1, 1, 1, 1,
8260: 20 31 2c 0a 2f 2a 20 37 78 20 2a 2f 20 20 20 31 1,./* 7x */ 1
8270: 2c 20 20 31 2c 20 20 31 2c 20 20 31 2c 20 20 31 , 1, 1, 1, 1
8280: 2c 20 20 31 2c 20 20 31 2c 20 20 31 2c 20 20 31 , 1, 1, 1, 1
8290: 2c 20 20 31 2c 20 20 31 2c 20 20 30 2c 20 20 30 , 1, 1, 0, 0
82a0: 2c 20 20 30 2c 20 20 31 2c 20 20 30 2c 0a 7d 3b , 0, 1, 0,.};
82b0: 0a 0a 2f 2a 0a 2a 2a 20 43 6f 75 6e 74 20 74 68 ../*.** Count th
82c0: 65 20 6e 75 6d 62 65 72 20 6f 66 20 22 2f 22 20 e number of "/"
82d0: 63 68 61 72 61 63 74 65 72 73 20 69 6e 20 61 20 characters in a
82e0: 73 74 72 69 6e 67 2e 0a 2a 2f 0a 73 74 61 74 69 string..*/.stati
82f0: 63 20 69 6e 74 20 63 6f 75 6e 74 53 6c 61 73 68 c int countSlash
8300: 65 73 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a es(const char *z
8310: 29 7b 0a 20 20 69 6e 74 20 6e 20 3d 20 30 3b 0a ){. int n = 0;.
8320: 20 20 77 68 69 6c 65 28 20 2a 7a 20 29 20 69 66 while( *z ) if
8330: 28 20 2a 28 7a 2b 2b 29 3d 3d 27 2f 27 20 29 20 ( *(z++)=='/' )
8340: 6e 2b 2b 3b 0a 20 20 72 65 74 75 72 6e 20 6e 3b n++;. return n;
8350: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 72 .}../*.** This r
8360: 6f 75 74 69 6e 65 20 70 72 6f 63 65 73 73 65 73 outine processes
8370: 20 61 20 73 69 6e 67 6c 65 20 48 54 54 50 20 72 a single HTTP r
8380: 65 71 75 65 73 74 20 6f 6e 20 73 74 61 6e 64 61 equest on standa
8390: 72 64 20 69 6e 70 75 74 20 61 6e 64 0a 2a 2a 20 rd input and.**
83a0: 73 65 6e 64 73 20 74 68 65 20 72 65 70 6c 79 20 sends the reply
83b0: 74 6f 20 73 74 61 6e 64 61 72 64 20 6f 75 74 70 to standard outp
83c0: 75 74 2e 20 20 49 66 20 74 68 65 20 61 72 67 75 ut. If the argu
83d0: 6d 65 6e 74 20 69 73 20 31 20 69 74 20 6d 65 61 ment is 1 it mea
83e0: 6e 73 0a 2a 2a 20 74 68 61 74 20 77 65 20 61 72 ns.** that we ar
83f0: 65 20 73 68 6f 75 6c 64 20 63 6c 6f 73 65 20 74 e should close t
8400: 68 65 20 73 6f 63 6b 65 74 20 77 69 74 68 6f 75 he socket withou
8410: 74 20 70 72 6f 63 65 73 73 69 6e 67 20 61 64 64 t processing add
8420: 69 74 69 6f 6e 61 6c 0a 2a 2a 20 48 54 54 50 20 itional.** HTTP
8430: 72 65 71 75 65 73 74 73 20 61 66 74 65 72 20 74 requests after t
8440: 68 65 20 63 75 72 72 65 6e 74 20 72 65 71 75 65 he current reque
8450: 73 74 20 66 69 6e 69 73 68 65 73 2e 20 20 30 20 st finishes. 0
8460: 6d 65 61 6e 73 20 77 65 20 61 72 65 0a 2a 2a 20 means we are.**
8470: 61 6c 6c 6f 77 65 64 20 74 6f 20 6b 65 65 70 20 allowed to keep
8480: 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 6f the connection o
8490: 70 65 6e 20 61 6e 64 20 74 6f 20 70 72 6f 63 65 pen and to proce
84a0: 73 73 20 61 64 64 69 74 69 6f 6e 61 6c 20 72 65 ss additional re
84b0: 71 75 65 73 74 73 2e 0a 2a 2a 20 54 68 69 73 20 quests..** This
84c0: 72 6f 75 74 69 6e 65 20 6d 61 79 20 63 68 6f 6f routine may choo
84d0: 73 65 20 74 6f 20 63 6c 6f 73 65 20 74 68 65 20 se to close the
84e0: 63 6f 6e 6e 65 63 74 69 6f 6e 20 65 76 65 6e 20 connection even
84f0: 69 66 20 74 68 65 20 61 72 67 75 6d 65 6e 74 0a if the argument.
8500: 2a 2a 20 69 73 20 30 2e 0a 2a 2a 20 0a 2a 2a 20 ** is 0..** .**
8510: 49 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f If the connectio
8520: 6e 20 73 68 6f 75 6c 64 20 62 65 20 63 6c 6f 73 n should be clos
8530: 65 64 2c 20 74 68 69 73 20 72 6f 75 74 69 6e 65 ed, this routine
8540: 20 63 61 6c 6c 73 20 65 78 69 74 28 29 20 61 6e calls exit() an
8550: 64 0a 2a 2a 20 74 68 75 73 20 6e 65 76 65 72 20 d.** thus never
8560: 72 65 74 75 72 6e 73 2e 20 20 49 66 20 74 68 69 returns. If thi
8570: 73 20 72 6f 75 74 69 6e 65 20 64 6f 65 73 20 72 s routine does r
8580: 65 74 75 72 6e 20 69 74 20 6d 65 61 6e 73 20 74 eturn it means t
8590: 68 61 74 20 61 6e 6f 74 68 65 72 0a 2a 2a 20 48 hat another.** H
85a0: 54 54 50 20 72 65 71 75 65 73 74 20 6d 61 79 20 TTP request may
85b0: 61 70 70 65 61 72 20 6f 6e 20 74 68 65 20 77 69 appear on the wi
85c0: 72 65 2e 0a 2a 2f 0a 76 6f 69 64 20 50 72 6f 63 re..*/.void Proc
85d0: 65 73 73 4f 6e 65 52 65 71 75 65 73 74 28 69 6e essOneRequest(in
85e0: 74 20 66 6f 72 63 65 43 6c 6f 73 65 29 7b 0a 20 t forceClose){.
85f0: 20 69 6e 74 20 69 2c 20 63 3b 0a 20 20 63 68 61 int i, c;. cha
8600: 72 20 2a 7a 3b 20 20 20 20 20 20 20 20 20 20 20 r *z;
8610: 20 20 20 20 20 20 20 2f 2a 20 55 73 65 64 20 74 /* Used t
8620: 6f 20 70 61 72 73 65 20 75 70 20 61 20 73 74 72 o parse up a str
8630: 69 6e 67 20 2a 2f 0a 20 20 73 74 72 75 63 74 20 ing */. struct
8640: 73 74 61 74 20 73 74 61 74 62 75 66 3b 20 20 20 stat statbuf;
8650: 20 20 20 2f 2a 20 49 6e 66 6f 72 6d 61 74 69 6f /* Informatio
8660: 6e 20 61 62 6f 75 74 20 74 68 65 20 66 69 6c 65 n about the file
8670: 20 74 6f 20 62 65 20 72 65 74 72 69 65 76 65 64 to be retrieved
8680: 20 2a 2f 0a 20 20 46 49 4c 45 20 2a 69 6e 3b 20 */. FILE *in;
8690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
86a0: 2f 2a 20 46 6f 72 20 72 65 61 64 69 6e 67 20 66 /* For reading f
86b0: 72 6f 6d 20 43 47 49 20 73 63 72 69 70 74 73 20 rom CGI scripts
86c0: 2a 2f 0a 20 20 63 68 61 72 20 7a 4c 69 6e 65 5b */. char zLine[
86d0: 31 30 30 30 5d 3b 20 20 20 20 20 20 20 20 20 2f 1000]; /
86e0: 2a 20 41 20 62 75 66 66 65 72 20 66 6f 72 20 69 * A buffer for i
86f0: 6e 70 75 74 20 6c 69 6e 65 73 20 6f 72 20 66 6f nput lines or fo
8700: 72 6d 69 6e 67 20 6e 61 6d 65 73 20 2a 2f 0a 0a rming names */..
8710: 20 20 2f 2a 20 43 68 61 6e 67 65 20 64 69 72 65 /* Change dire
8720: 63 74 6f 72 69 65 73 20 74 6f 20 74 68 65 20 72 ctories to the r
8730: 6f 6f 74 20 6f 66 20 74 68 65 20 48 54 54 50 20 oot of the HTTP
8740: 66 69 6c 65 73 79 73 74 65 6d 0a 20 20 2a 2f 0a filesystem. */.
8750: 20 20 69 66 28 20 63 68 64 69 72 28 7a 52 6f 6f if( chdir(zRoo
8760: 74 5b 30 5d 20 3f 20 7a 52 6f 6f 74 20 3a 20 22 t[0] ? zRoot : "
8770: 2f 22 29 21 3d 30 20 29 7b 0a 20 20 20 20 63 68 /")!=0 ){. ch
8780: 61 72 20 7a 42 75 66 5b 31 30 30 30 5d 3b 0a 20 ar zBuf[1000];.
8790: 20 20 20 4d 61 6c 66 75 6e 63 74 69 6f 6e 28 5f Malfunction(_
87a0: 5f 4c 49 4e 45 5f 5f 2c 20 22 63 61 6e 6e 6f 74 _LINE__, "cannot
87b0: 20 63 68 64 69 72 20 74 6f 20 5b 25 73 5d 20 66 chdir to [%s] f
87c0: 72 6f 6d 20 5b 25 73 5d 22 2c 0a 20 20 20 20 20 rom [%s]",.
87d0: 20 20 20 20 7a 52 6f 6f 74 2c 20 67 65 74 63 77 zRoot, getcw
87e0: 64 28 7a 42 75 66 2c 39 39 39 29 29 3b 0a 20 20 d(zBuf,999));.
87f0: 7d 0a 20 20 6e 52 65 71 75 65 73 74 2b 2b 3b 0a }. nRequest++;.
8800: 0a 20 20 2f 2a 0a 20 20 2a 2a 20 57 65 20 6d 75 . /*. ** We mu
8810: 73 74 20 72 65 63 65 69 76 65 20 61 20 63 6f 6d st receive a com
8820: 70 6c 65 74 65 20 68 65 61 64 65 72 20 77 69 74 plete header wit
8830: 68 69 6e 20 31 35 20 73 65 63 6f 6e 64 73 0a 20 hin 15 seconds.
8840: 20 2a 2f 0a 20 20 73 69 67 6e 61 6c 28 53 49 47 */. signal(SIG
8850: 41 4c 52 4d 2c 20 54 69 6d 65 6f 75 74 29 3b 0a ALRM, Timeout);.
8860: 20 20 73 69 67 6e 61 6c 28 53 49 47 53 45 47 56 signal(SIGSEGV
8870: 2c 20 54 69 6d 65 6f 75 74 29 3b 0a 20 20 73 69 , Timeout);. si
8880: 67 6e 61 6c 28 53 49 47 50 49 50 45 2c 20 54 69 gnal(SIGPIPE, Ti
8890: 6d 65 6f 75 74 29 3b 0a 20 20 69 66 28 20 75 73 meout);. if( us
88a0: 65 54 69 6d 65 6f 75 74 20 29 20 61 6c 61 72 6d eTimeout ) alarm
88b0: 28 31 35 29 3b 0a 0a 20 20 2f 2a 20 47 65 74 20 (15);.. /* Get
88c0: 74 68 65 20 66 69 72 73 74 20 6c 69 6e 65 20 6f the first line o
88d0: 66 20 74 68 65 20 72 65 71 75 65 73 74 20 61 6e f the request an
88e0: 64 20 70 61 72 73 65 20 6f 75 74 20 74 68 65 0a d parse out the.
88f0: 20 20 2a 2a 20 6d 65 74 68 6f 64 2c 20 74 68 65 ** method, the
8900: 20 73 63 72 69 70 74 20 61 6e 64 20 74 68 65 20 script and the
8910: 70 72 6f 74 6f 63 6f 6c 2e 0a 20 20 2a 2f 0a 20 protocol.. */.
8920: 20 69 66 28 20 66 67 65 74 73 28 7a 4c 69 6e 65 if( fgets(zLine
8930: 2c 73 69 7a 65 6f 66 28 7a 4c 69 6e 65 29 2c 73 ,sizeof(zLine),s
8940: 74 64 69 6e 29 3d 3d 30 20 29 7b 0a 20 20 20 20 tdin)==0 ){.
8950: 65 78 69 74 28 30 29 3b 0a 20 20 7d 0a 20 20 6f exit(0);. }. o
8960: 6d 69 74 4c 6f 67 20 3d 20 30 3b 0a 20 20 6e 49 mitLog = 0;. nI
8970: 6e 20 2b 3d 20 73 74 72 6c 65 6e 28 7a 4c 69 6e n += strlen(zLin
8980: 65 29 3b 0a 20 20 7a 4d 65 74 68 6f 64 20 3d 20 e);. zMethod =
8990: 53 74 72 44 75 70 28 47 65 74 46 69 72 73 74 45 StrDup(GetFirstE
89a0: 6c 65 6d 65 6e 74 28 7a 4c 69 6e 65 2c 26 7a 29 lement(zLine,&z)
89b0: 29 3b 0a 20 20 7a 52 65 61 6c 53 63 72 69 70 74 );. zRealScript
89c0: 20 3d 20 7a 53 63 72 69 70 74 20 3d 20 53 74 72 = zScript = Str
89d0: 44 75 70 28 47 65 74 46 69 72 73 74 45 6c 65 6d Dup(GetFirstElem
89e0: 65 6e 74 28 7a 2c 26 7a 29 29 3b 0a 20 20 7a 50 ent(z,&z));. zP
89f0: 72 6f 74 6f 63 6f 6c 20 3d 20 53 74 72 44 75 70 rotocol = StrDup
8a00: 28 47 65 74 46 69 72 73 74 45 6c 65 6d 65 6e 74 (GetFirstElement
8a10: 28 7a 2c 26 7a 29 29 3b 0a 20 20 69 66 28 20 7a (z,&z));. if( z
8a20: 50 72 6f 74 6f 63 6f 6c 3d 3d 30 20 7c 7c 20 73 Protocol==0 || s
8a30: 74 72 6e 63 6d 70 28 7a 50 72 6f 74 6f 63 6f 6c trncmp(zProtocol
8a40: 2c 22 48 54 54 50 2f 22 2c 35 29 21 3d 30 20 7c ,"HTTP/",5)!=0 |
8a50: 7c 20 73 74 72 6c 65 6e 28 7a 50 72 6f 74 6f 63 | strlen(zProtoc
8a60: 6f 6c 29 21 3d 38 20 29 7b 0a 20 20 20 20 53 74 ol)!=8 ){. St
8a70: 61 72 74 52 65 73 70 6f 6e 73 65 28 22 34 30 30 artResponse("400
8a80: 20 42 61 64 20 52 65 71 75 65 73 74 22 29 3b 0a Bad Request");.
8a90: 20 20 20 20 6e 4f 75 74 20 2b 3d 20 70 72 69 6e nOut += prin
8aa0: 74 66 28 0a 20 20 20 20 20 20 22 43 6f 6e 74 65 tf(. "Conte
8ab0: 6e 74 2d 74 79 70 65 3a 20 74 65 78 74 2f 70 6c nt-type: text/pl
8ac0: 61 69 6e 5c 72 5c 6e 22 0a 20 20 20 20 20 20 22 ain\r\n". "
8ad0: 5c 72 5c 6e 22 0a 20 20 20 20 20 20 22 54 68 69 \r\n". "Thi
8ae0: 73 20 73 65 72 76 65 72 20 64 6f 65 73 20 6e 6f s server does no
8af0: 74 20 75 6e 64 65 72 73 74 61 6e 64 20 74 68 65 t understand the
8b00: 20 72 65 71 75 65 73 74 65 64 20 70 72 6f 74 6f requested proto
8b10: 63 6f 6c 5c 6e 22 0a 20 20 20 20 29 3b 0a 20 20 col\n". );.
8b20: 20 20 4d 61 6b 65 4c 6f 67 45 6e 74 72 79 28 30 MakeLogEntry(0
8b30: 29 3b 0a 20 20 20 20 65 78 69 74 28 30 29 3b 0a );. exit(0);.
8b40: 20 20 7d 0a 20 20 69 66 28 20 7a 53 63 72 69 70 }. if( zScrip
8b50: 74 5b 30 5d 3d 3d 30 20 29 20 4e 6f 74 46 6f 75 t[0]==0 ) NotFou
8b60: 6e 64 28 5f 5f 4c 49 4e 45 5f 5f 29 3b 0a 20 20 nd(__LINE__);.
8b70: 69 66 28 20 66 6f 72 63 65 43 6c 6f 73 65 20 29 if( forceClose )
8b80: 7b 0a 20 20 20 20 63 6c 6f 73 65 43 6f 6e 6e 65 {. closeConne
8b90: 63 74 69 6f 6e 20 3d 20 31 3b 0a 20 20 7d 65 6c ction = 1;. }el
8ba0: 73 65 20 69 66 28 20 7a 50 72 6f 74 6f 63 6f 6c se if( zProtocol
8bb0: 5b 35 5d 3c 27 31 27 20 7c 7c 20 7a 50 72 6f 74 [5]<'1' || zProt
8bc0: 6f 63 6f 6c 5b 37 5d 3c 27 31 27 20 29 7b 0a 20 ocol[7]<'1' ){.
8bd0: 20 20 20 63 6c 6f 73 65 43 6f 6e 6e 65 63 74 69 closeConnecti
8be0: 6f 6e 20 3d 20 31 3b 0a 20 20 7d 0a 0a 20 20 2f on = 1;. }.. /
8bf0: 2a 20 54 68 69 73 20 76 65 72 79 20 73 69 6d 70 * This very simp
8c00: 6c 65 20 73 65 72 76 65 72 20 6f 6e 6c 79 20 75 le server only u
8c10: 6e 64 65 72 73 74 61 6e 64 73 20 74 68 65 20 47 nderstands the G
8c20: 45 54 2c 20 50 4f 53 54 0a 20 20 2a 2a 20 61 6e ET, POST. ** an
8c30: 64 20 48 45 41 44 20 6d 65 74 68 6f 64 73 0a 20 d HEAD methods.
8c40: 20 2a 2f 0a 20 20 69 66 28 20 73 74 72 63 6d 70 */. if( strcmp
8c50: 28 7a 4d 65 74 68 6f 64 2c 22 47 45 54 22 29 21 (zMethod,"GET")!
8c60: 3d 30 20 26 26 20 73 74 72 63 6d 70 28 7a 4d 65 =0 && strcmp(zMe
8c70: 74 68 6f 64 2c 22 50 4f 53 54 22 29 21 3d 30 0a thod,"POST")!=0.
8c80: 20 20 20 20 20 20 20 26 26 20 73 74 72 63 6d 70 && strcmp
8c90: 28 7a 4d 65 74 68 6f 64 2c 22 48 45 41 44 22 29 (zMethod,"HEAD")
8ca0: 21 3d 30 20 29 7b 0a 20 20 20 20 53 74 61 72 74 !=0 ){. Start
8cb0: 52 65 73 70 6f 6e 73 65 28 22 35 30 31 20 4e 6f Response("501 No
8cc0: 74 20 49 6d 70 6c 65 6d 65 6e 74 65 64 22 29 3b t Implemented");
8cd0: 0a 20 20 20 20 6e 4f 75 74 20 2b 3d 20 70 72 69 . nOut += pri
8ce0: 6e 74 66 28 0a 20 20 20 20 20 20 22 43 6f 6e 74 ntf(. "Cont
8cf0: 65 6e 74 2d 74 79 70 65 3a 20 74 65 78 74 2f 70 ent-type: text/p
8d00: 6c 61 69 6e 5c 72 5c 6e 22 0a 20 20 20 20 20 20 lain\r\n".
8d10: 22 5c 72 5c 6e 22 0a 20 20 20 20 20 20 22 54 68 "\r\n". "Th
8d20: 65 20 25 73 20 6d 65 74 68 6f 64 20 69 73 20 6e e %s method is n
8d30: 6f 74 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 6f ot implemented o
8d40: 6e 20 74 68 69 73 20 73 65 72 76 65 72 2e 5c 6e n this server.\n
8d50: 22 2c 0a 20 20 20 20 20 20 7a 4d 65 74 68 6f 64 ",. zMethod
8d60: 29 3b 0a 20 20 20 20 4d 61 6b 65 4c 6f 67 45 6e );. MakeLogEn
8d70: 74 72 79 28 30 29 3b 0a 20 20 20 20 65 78 69 74 try(0);. exit
8d80: 28 30 29 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 47 (0);. }.. /* G
8d90: 65 74 20 61 6c 6c 20 74 68 65 20 6f 70 74 69 6f et all the optio
8da0: 6e 61 6c 20 66 69 65 6c 64 73 20 74 68 61 74 20 nal fields that
8db0: 66 6f 6c 6c 6f 77 20 74 68 65 20 66 69 72 73 74 follow the first
8dc0: 20 6c 69 6e 65 2e 0a 20 20 2a 2f 0a 20 20 7a 43 line.. */. zC
8dd0: 6f 6f 6b 69 65 20 3d 20 30 3b 0a 20 20 7a 41 75 ookie = 0;. zAu
8de0: 74 68 54 79 70 65 20 3d 20 30 3b 0a 20 20 7a 52 thType = 0;. zR
8df0: 65 6d 6f 74 65 55 73 65 72 20 3d 20 30 3b 0a 20 emoteUser = 0;.
8e00: 20 7a 52 65 66 65 72 65 72 20 3d 20 30 3b 0a 20 zReferer = 0;.
8e10: 20 77 68 69 6c 65 28 20 66 67 65 74 73 28 7a 4c while( fgets(zL
8e20: 69 6e 65 2c 73 69 7a 65 6f 66 28 7a 4c 69 6e 65 ine,sizeof(zLine
8e30: 29 2c 73 74 64 69 6e 29 20 29 7b 0a 20 20 20 20 ),stdin) ){.
8e40: 63 68 61 72 20 2a 7a 46 69 65 6c 64 4e 61 6d 65 char *zFieldName
8e50: 3b 0a 20 20 20 20 63 68 61 72 20 2a 7a 56 61 6c ;. char *zVal
8e60: 3b 0a 0a 20 20 20 20 6e 49 6e 20 2b 3d 20 73 74 ;.. nIn += st
8e70: 72 6c 65 6e 28 7a 4c 69 6e 65 29 3b 0a 20 20 20 rlen(zLine);.
8e80: 20 7a 46 69 65 6c 64 4e 61 6d 65 20 3d 20 47 65 zFieldName = Ge
8e90: 74 46 69 72 73 74 45 6c 65 6d 65 6e 74 28 7a 4c tFirstElement(zL
8ea0: 69 6e 65 2c 26 7a 56 61 6c 29 3b 0a 20 20 20 20 ine,&zVal);.
8eb0: 69 66 28 20 7a 46 69 65 6c 64 4e 61 6d 65 3d 3d if( zFieldName==
8ec0: 30 20 7c 7c 20 2a 7a 46 69 65 6c 64 4e 61 6d 65 0 || *zFieldName
8ed0: 3d 3d 30 20 29 20 62 72 65 61 6b 3b 0a 20 20 20 ==0 ) break;.
8ee0: 20 52 65 6d 6f 76 65 4e 65 77 6c 69 6e 65 28 7a RemoveNewline(z
8ef0: 56 61 6c 29 3b 0a 20 20 20 20 69 66 28 20 73 74 Val);. if( st
8f00: 72 63 61 73 65 63 6d 70 28 7a 46 69 65 6c 64 4e rcasecmp(zFieldN
8f10: 61 6d 65 2c 22 55 73 65 72 2d 41 67 65 6e 74 3a ame,"User-Agent:
8f20: 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 7a ")==0 ){. z
8f30: 41 67 65 6e 74 20 3d 20 53 74 72 44 75 70 28 7a Agent = StrDup(z
8f40: 56 61 6c 29 3b 0a 20 20 20 20 7d 65 6c 73 65 20 Val);. }else
8f50: 69 66 28 20 73 74 72 63 61 73 65 63 6d 70 28 7a if( strcasecmp(z
8f60: 46 69 65 6c 64 4e 61 6d 65 2c 22 41 63 63 65 70 FieldName,"Accep
8f70: 74 3a 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 t:")==0 ){.
8f80: 20 7a 41 63 63 65 70 74 20 3d 20 53 74 72 44 75 zAccept = StrDu
8f90: 70 28 7a 56 61 6c 29 3b 0a 20 20 20 20 7d 65 6c p(zVal);. }el
8fa0: 73 65 20 69 66 28 20 73 74 72 63 61 73 65 63 6d se if( strcasecm
8fb0: 70 28 7a 46 69 65 6c 64 4e 61 6d 65 2c 22 43 6f p(zFieldName,"Co
8fc0: 6e 74 65 6e 74 2d 6c 65 6e 67 74 68 3a 22 29 3d ntent-length:")=
8fd0: 3d 30 20 29 7b 0a 20 20 20 20 20 20 7a 43 6f 6e =0 ){. zCon
8fe0: 74 65 6e 74 4c 65 6e 67 74 68 20 3d 20 53 74 72 tentLength = Str
8ff0: 44 75 70 28 7a 56 61 6c 29 3b 0a 20 20 20 20 7d Dup(zVal);. }
9000: 65 6c 73 65 20 69 66 28 20 73 74 72 63 61 73 65 else if( strcase
9010: 63 6d 70 28 7a 46 69 65 6c 64 4e 61 6d 65 2c 22 cmp(zFieldName,"
9020: 43 6f 6e 74 65 6e 74 2d 74 79 70 65 3a 22 29 3d Content-type:")=
9030: 3d 30 20 29 7b 0a 20 20 20 20 20 20 7a 43 6f 6e =0 ){. zCon
9040: 74 65 6e 74 54 79 70 65 20 3d 20 53 74 72 44 75 tentType = StrDu
9050: 70 28 7a 56 61 6c 29 3b 0a 20 20 20 20 7d 65 6c p(zVal);. }el
9060: 73 65 20 69 66 28 20 73 74 72 63 61 73 65 63 6d se if( strcasecm
9070: 70 28 7a 46 69 65 6c 64 4e 61 6d 65 2c 22 52 65 p(zFieldName,"Re
9080: 66 65 72 65 72 3a 22 29 3d 3d 30 20 29 7b 0a 20 ferer:")==0 ){.
9090: 20 20 20 20 20 7a 52 65 66 65 72 65 72 20 3d 20 zReferer =
90a0: 53 74 72 44 75 70 28 7a 56 61 6c 29 3b 0a 20 20 StrDup(zVal);.
90b0: 20 20 7d 65 6c 73 65 20 69 66 28 20 73 74 72 63 }else if( strc
90c0: 61 73 65 63 6d 70 28 7a 46 69 65 6c 64 4e 61 6d asecmp(zFieldNam
90d0: 65 2c 22 43 6f 6f 6b 69 65 3a 22 29 3d 3d 30 20 e,"Cookie:")==0
90e0: 29 7b 0a 20 20 20 20 20 20 7a 43 6f 6f 6b 69 65 ){. zCookie
90f0: 20 3d 20 53 74 72 41 70 70 65 6e 64 28 7a 43 6f = StrAppend(zCo
9100: 6f 6b 69 65 2c 22 3b 20 22 2c 7a 56 61 6c 29 3b okie,"; ",zVal);
9110: 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 73 . }else if( s
9120: 74 72 63 61 73 65 63 6d 70 28 7a 46 69 65 6c 64 trcasecmp(zField
9130: 4e 61 6d 65 2c 22 43 6f 6e 6e 65 63 74 69 6f 6e Name,"Connection
9140: 3a 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 :")==0 ){.
9150: 69 66 28 20 73 74 72 63 61 73 65 63 6d 70 28 7a if( strcasecmp(z
9160: 56 61 6c 2c 22 63 6c 6f 73 65 22 29 3d 3d 30 20 Val,"close")==0
9170: 29 7b 0a 20 20 20 20 20 20 20 20 63 6c 6f 73 65 ){. close
9180: 43 6f 6e 6e 65 63 74 69 6f 6e 20 3d 20 31 3b 0a Connection = 1;.
9190: 20 20 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 }else if(
91a0: 21 66 6f 72 63 65 43 6c 6f 73 65 20 26 26 20 73 !forceClose && s
91b0: 74 72 63 61 73 65 63 6d 70 28 7a 56 61 6c 2c 20 trcasecmp(zVal,
91c0: 22 6b 65 65 70 2d 61 6c 69 76 65 22 29 3d 3d 30 "keep-alive")==0
91d0: 20 29 7b 0a 20 20 20 20 20 20 20 20 63 6c 6f 73 ){. clos
91e0: 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 3d 20 30 3b eConnection = 0;
91f0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 65 6c . }. }el
9200: 73 65 20 69 66 28 20 73 74 72 63 61 73 65 63 6d se if( strcasecm
9210: 70 28 7a 46 69 65 6c 64 4e 61 6d 65 2c 22 48 6f p(zFieldName,"Ho
9220: 73 74 3a 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 st:")==0 ){.
9230: 20 20 69 6e 74 20 69 6e 53 71 75 61 72 65 20 3d int inSquare =
9240: 20 30 3b 0a 20 20 20 20 20 20 63 68 61 72 20 63 0;. char c
9250: 3b 0a 20 20 20 20 20 20 7a 48 74 74 70 48 6f 73 ;. zHttpHos
9260: 74 20 3d 20 53 74 72 44 75 70 28 7a 56 61 6c 29 t = StrDup(zVal)
9270: 3b 0a 20 20 20 20 20 20 7a 53 65 72 76 65 72 50 ;. zServerP
9280: 6f 72 74 20 3d 20 7a 53 65 72 76 65 72 4e 61 6d ort = zServerNam
9290: 65 20 3d 20 53 74 72 44 75 70 28 7a 48 74 74 70 e = StrDup(zHttp
92a0: 48 6f 73 74 29 3b 0a 20 20 20 20 20 20 77 68 69 Host);. whi
92b0: 6c 65 28 20 7a 53 65 72 76 65 72 50 6f 72 74 20 le( zServerPort
92c0: 26 26 20 28 63 20 3d 20 2a 7a 53 65 72 76 65 72 && (c = *zServer
92d0: 50 6f 72 74 29 21 3d 30 0a 20 20 20 20 20 20 20 Port)!=0.
92e0: 20 20 20 20 20 20 20 26 26 20 28 63 21 3d 27 3a && (c!=':
92f0: 27 20 7c 7c 20 69 6e 53 71 75 61 72 65 29 20 29 ' || inSquare) )
9300: 7b 0a 20 20 20 20 20 20 20 20 69 66 28 20 63 3d {. if( c=
9310: 3d 27 5b 27 20 29 20 69 6e 53 71 75 61 72 65 20 ='[' ) inSquare
9320: 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 69 66 28 = 1;. if(
9330: 20 63 3d 3d 27 5d 27 20 29 20 69 6e 53 71 75 61 c==']' ) inSqua
9340: 72 65 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 re = 0;.
9350: 7a 53 65 72 76 65 72 50 6f 72 74 2b 2b 3b 0a 20 zServerPort++;.
9360: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66 28 }. if(
9370: 20 7a 53 65 72 76 65 72 50 6f 72 74 20 26 26 20 zServerPort &&
9380: 2a 7a 53 65 72 76 65 72 50 6f 72 74 20 29 7b 0a *zServerPort ){.
9390: 20 20 20 20 20 20 20 20 2a 7a 53 65 72 76 65 72 *zServer
93a0: 50 6f 72 74 20 3d 20 30 3b 0a 20 20 20 20 20 20 Port = 0;.
93b0: 20 20 7a 53 65 72 76 65 72 50 6f 72 74 2b 2b 3b zServerPort++;
93c0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69 . }. i
93d0: 66 28 20 7a 52 65 61 6c 50 6f 72 74 20 29 7b 0a f( zRealPort ){.
93e0: 20 20 20 20 20 20 20 20 7a 53 65 72 76 65 72 50 zServerP
93f0: 6f 72 74 20 3d 20 53 74 72 44 75 70 28 7a 52 65 ort = StrDup(zRe
9400: 61 6c 50 6f 72 74 29 3b 0a 20 20 20 20 20 20 7d alPort);. }
9410: 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 73 . }else if( s
9420: 74 72 63 61 73 65 63 6d 70 28 7a 46 69 65 6c 64 trcasecmp(zField
9430: 4e 61 6d 65 2c 22 41 75 74 68 6f 72 69 7a 61 74 Name,"Authorizat
9440: 69 6f 6e 3a 22 29 3d 3d 30 20 29 7b 0a 20 20 20 ion:")==0 ){.
9450: 20 20 20 7a 41 75 74 68 54 79 70 65 20 3d 20 47 zAuthType = G
9460: 65 74 46 69 72 73 74 45 6c 65 6d 65 6e 74 28 53 etFirstElement(S
9470: 74 72 44 75 70 28 7a 56 61 6c 29 2c 20 26 7a 41 trDup(zVal), &zA
9480: 75 74 68 41 72 67 29 3b 0a 20 20 20 20 7d 0a 20 uthArg);. }.
9490: 20 7d 0a 0a 20 20 2f 2a 20 44 69 73 61 6c 6c 6f }.. /* Disallo
94a0: 77 20 72 65 66 65 72 72 69 6e 67 20 66 72 6f 6d w referring from
94b0: 20 63 65 72 74 61 69 6e 20 63 6c 69 65 6e 74 73 certain clients
94c0: 20 2a 2f 0a 20 20 69 66 28 20 7a 41 67 65 6e 74 */. if( zAgent
94d0: 20 29 7b 0a 20 20 20 20 69 66 28 20 73 74 72 73 ){. if( strs
94e0: 74 72 28 7a 41 67 65 6e 74 2c 20 22 57 69 6e 64 tr(zAgent, "Wind
94f0: 6f 77 73 5f 39 22 29 21 3d 30 0a 20 20 20 20 20 ows_9")!=0.
9500: 7c 7c 20 73 74 72 73 74 72 28 7a 41 67 65 6e 74 || strstr(zAgent
9510: 2c 20 22 44 6f 77 6e 6c 6f 61 64 5f 4d 61 73 74 , "Download_Mast
9520: 65 72 22 29 21 3d 30 0a 20 20 20 20 20 7c 7c 20 er")!=0. ||
9530: 73 74 72 73 74 72 28 7a 41 67 65 6e 74 2c 20 22 strstr(zAgent, "
9540: 45 7a 6f 6f 6d 73 2f 22 29 21 3d 30 0a 20 20 20 Ezooms/")!=0.
9550: 2f 2a 7c 7c 20 73 74 72 73 74 72 28 7a 41 67 65 /*|| strstr(zAge
9560: 6e 74 2c 20 22 62 69 6e 67 62 6f 74 22 29 21 3d nt, "bingbot")!=
9570: 30 2a 2f 0a 20 20 20 20 20 7c 7c 20 73 74 72 73 0*/. || strs
9580: 74 72 28 7a 41 67 65 6e 74 2c 20 22 41 68 72 65 tr(zAgent, "Ahre
9590: 66 73 42 6f 74 22 29 21 3d 30 0a 20 20 20 20 29 fsBot")!=0. )
95a0: 7b 0a 20 20 20 20 20 20 46 6f 72 62 69 64 64 65 {. Forbidde
95b0: 6e 28 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 23 n();. }. }.#
95c0: 69 66 20 30 0a 20 20 69 66 28 20 7a 52 65 66 65 if 0. if( zRefe
95d0: 72 65 72 20 29 7b 0a 20 20 20 20 73 74 61 74 69 rer ){. stati
95e0: 63 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 61 7a c const char *az
95f0: 44 69 73 61 6c 6c 6f 77 5b 5d 20 3d 20 7b 0a 20 Disallow[] = {.
9600: 20 20 20 20 20 22 73 6b 69 64 72 6f 77 63 72 61 "skidrowcra
9610: 63 6b 2e 63 6f 6d 22 2c 0a 20 20 20 20 20 20 22 ck.com",. "
9620: 68 6f 73 68 69 79 75 75 67 69 2e 74 69 73 74 6f hoshiyuugi.tisto
9630: 72 79 2e 63 6f 6d 22 2c 0a 20 20 20 20 20 20 22 ry.com",. "
9640: 73 6b 69 64 72 6f 77 67 61 6d 65 73 2e 6e 65 74 skidrowgames.net
9650: 22 2c 0a 20 20 20 20 7d 3b 0a 20 20 20 20 69 6e ",. };. in
9660: 74 20 69 3b 0a 20 20 20 20 66 6f 72 28 69 3d 30 t i;. for(i=0
9670: 3b 20 69 3c 73 69 7a 65 6f 66 28 61 7a 44 69 73 ; i<sizeof(azDis
9680: 61 6c 6c 6f 77 29 2f 73 69 7a 65 6f 66 28 61 7a allow)/sizeof(az
9690: 44 69 73 61 6c 6c 6f 77 5b 30 5d 29 3b 20 69 2b Disallow[0]); i+
96a0: 2b 29 7b 0a 20 20 20 20 20 20 69 66 28 20 73 74 +){. if( st
96b0: 72 73 74 72 28 7a 52 65 66 65 72 65 72 2c 20 61 rstr(zReferer, a
96c0: 7a 44 69 73 61 6c 6c 6f 77 5b 69 5d 29 21 3d 30 zDisallow[i])!=0
96d0: 20 29 20 4e 6f 74 46 6f 75 6e 64 28 5f 5f 4c 49 ) NotFound(__LI
96e0: 4e 45 5f 5f 29 3b 0a 20 20 20 20 7d 0a 20 20 7d NE__);. }. }
96f0: 0a 23 65 6e 64 69 66 0a 0a 20 20 2f 2a 20 4d 61 .#endif.. /* Ma
9700: 6b 65 20 61 6e 20 65 78 74 72 61 20 65 66 66 6f ke an extra effo
9710: 72 74 20 74 6f 20 67 65 74 20 61 20 76 61 6c 69 rt to get a vali
9720: 64 20 73 65 72 76 65 72 20 6e 61 6d 65 20 61 6e d server name an
9730: 64 20 70 6f 72 74 20 6e 75 6d 62 65 72 2e 0a 20 d port number..
9740: 20 2a 2a 20 4f 6e 6c 79 20 4e 65 74 73 63 61 70 ** Only Netscap
9750: 65 20 70 72 6f 76 69 64 65 73 20 74 68 69 73 20 e provides this
9760: 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 20 20 49 66 information. If
9770: 20 74 68 65 20 62 72 6f 77 73 65 72 20 69 73 0a the browser is.
9780: 20 20 2a 2a 20 49 6e 74 65 72 6e 65 74 20 45 78 ** Internet Ex
9790: 70 6c 6f 72 65 72 2c 20 74 68 65 6e 20 77 65 20 plorer, then we
97a0: 68 61 76 65 20 74 6f 20 66 69 6e 64 20 6f 75 74 have to find out
97b0: 20 74 68 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e the information
97c0: 20 66 6f 72 0a 20 20 2a 2a 20 6f 75 72 73 65 6c for. ** oursel
97d0: 76 65 73 2e 0a 20 20 2a 2f 0a 20 20 69 66 28 20 ves.. */. if(
97e0: 7a 53 65 72 76 65 72 4e 61 6d 65 3d 3d 30 20 29 zServerName==0 )
97f0: 7b 0a 20 20 20 20 7a 53 65 72 76 65 72 4e 61 6d {. zServerNam
9800: 65 20 3d 20 53 61 66 65 4d 61 6c 6c 6f 63 28 20 e = SafeMalloc(
9810: 31 30 30 20 29 3b 0a 20 20 20 20 67 65 74 68 6f 100 );. getho
9820: 73 74 6e 61 6d 65 28 7a 53 65 72 76 65 72 4e 61 stname(zServerNa
9830: 6d 65 2c 31 30 30 29 3b 0a 20 20 7d 0a 20 20 69 me,100);. }. i
9840: 66 28 20 7a 53 65 72 76 65 72 50 6f 72 74 3d 3d f( zServerPort==
9850: 30 20 7c 7c 20 2a 7a 53 65 72 76 65 72 50 6f 72 0 || *zServerPor
9860: 74 3d 3d 30 20 29 7b 0a 20 20 20 20 7a 53 65 72 t==0 ){. zSer
9870: 76 65 72 50 6f 72 74 20 3d 20 44 45 46 41 55 4c verPort = DEFAUL
9880: 54 5f 50 4f 52 54 3b 0a 20 20 7d 0a 0a 20 20 2f T_PORT;. }.. /
9890: 2a 20 52 65 6d 6f 76 65 20 74 68 65 20 71 75 65 * Remove the que
98a0: 72 79 20 73 74 72 69 6e 67 20 66 72 6f 6d 20 74 ry string from t
98b0: 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 72 65 he end of the re
98c0: 71 75 65 73 74 65 64 20 66 69 6c 65 2e 0a 20 20 quested file..
98d0: 2a 2f 0a 20 20 66 6f 72 28 7a 3d 7a 53 63 72 69 */. for(z=zScri
98e0: 70 74 3b 20 2a 7a 20 26 26 20 2a 7a 21 3d 27 3f pt; *z && *z!='?
98f0: 27 3b 20 7a 2b 2b 29 7b 7d 0a 20 20 69 66 28 20 '; z++){}. if(
9900: 2a 7a 3d 3d 27 3f 27 20 29 7b 0a 20 20 20 20 7a *z=='?' ){. z
9910: 51 75 65 72 79 53 75 66 66 69 78 20 3d 20 53 74 QuerySuffix = St
9920: 72 44 75 70 28 7a 29 3b 0a 20 20 20 20 2a 7a 20 rDup(z);. *z
9930: 3d 20 30 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 = 0;. }else{.
9940: 20 20 7a 51 75 65 72 79 53 75 66 66 69 78 20 3d zQuerySuffix =
9950: 20 22 22 3b 0a 20 20 7d 0a 20 20 7a 51 75 65 72 "";. }. zQuer
9960: 79 53 74 72 69 6e 67 20 3d 20 2a 7a 51 75 65 72 yString = *zQuer
9970: 79 53 75 66 66 69 78 20 3f 20 26 7a 51 75 65 72 ySuffix ? &zQuer
9980: 79 53 75 66 66 69 78 5b 31 5d 20 3a 20 7a 51 75 ySuffix[1] : zQu
9990: 65 72 79 53 75 66 66 69 78 3b 0a 0a 20 20 2f 2a erySuffix;.. /*
99a0: 20 43 72 65 61 74 65 20 61 20 66 69 6c 65 20 74 Create a file t
99b0: 6f 20 68 6f 6c 64 20 74 68 65 20 50 4f 53 54 20 o hold the POST
99c0: 71 75 65 72 79 20 64 61 74 61 2c 20 69 66 20 61 query data, if a
99d0: 6e 79 2e 20 20 57 65 20 68 61 76 65 20 74 6f 0a ny. We have to.
99e0: 20 20 2a 2a 20 64 6f 20 69 74 20 74 68 69 73 20 ** do it this
99f0: 77 61 79 2e 20 20 57 65 20 63 61 6e 27 74 20 6a way. We can't j
9a00: 75 73 74 20 70 61 73 73 20 74 68 65 20 66 69 6c ust pass the fil
9a10: 65 20 64 65 73 63 72 69 70 74 6f 72 20 64 6f 77 e descriptor dow
9a20: 6e 20 74 6f 0a 20 20 2a 2a 20 74 68 65 20 63 68 n to. ** the ch
9a30: 69 6c 64 20 70 72 6f 63 65 73 73 20 62 65 63 61 ild process beca
9a40: 75 73 65 20 74 68 65 20 66 67 65 74 73 28 29 20 use the fgets()
9a50: 66 75 6e 63 74 69 6f 6e 20 6d 61 79 20 68 61 76 function may hav
9a60: 65 20 61 6c 72 65 61 64 79 0a 20 20 2a 2a 20 72 e already. ** r
9a70: 65 61 64 20 70 61 72 74 20 6f 66 20 74 68 65 20 ead part of the
9a80: 50 4f 53 54 20 64 61 74 61 20 69 6e 74 6f 20 69 POST data into i
9a90: 74 73 20 69 6e 74 65 72 6e 61 6c 20 62 75 66 66 ts internal buff
9aa0: 65 72 2e 0a 20 20 2a 2f 0a 20 20 69 66 28 20 7a er.. */. if( z
9ab0: 4d 65 74 68 6f 64 5b 30 5d 3d 3d 27 50 27 20 26 Method[0]=='P' &
9ac0: 26 20 7a 43 6f 6e 74 65 6e 74 4c 65 6e 67 74 68 & zContentLength
9ad0: 21 3d 30 20 29 7b 0a 20 20 20 20 69 6e 74 20 6c !=0 ){. int l
9ae0: 65 6e 20 3d 20 61 74 6f 69 28 7a 43 6f 6e 74 65 en = atoi(zConte
9af0: 6e 74 4c 65 6e 67 74 68 29 3b 0a 20 20 20 20 46 ntLength);. F
9b00: 49 4c 45 20 2a 6f 75 74 3b 0a 20 20 20 20 63 68 ILE *out;. ch
9b10: 61 72 20 2a 7a 42 75 66 3b 0a 20 20 20 20 69 6e ar *zBuf;. in
9b20: 74 20 6e 3b 0a 0a 20 20 20 20 69 66 28 20 6c 65 t n;.. if( le
9b30: 6e 3e 4d 41 58 5f 43 4f 4e 54 45 4e 54 5f 4c 45 n>MAX_CONTENT_LE
9b40: 4e 47 54 48 20 29 7b 0a 20 20 20 20 20 20 53 74 NGTH ){. St
9b50: 61 72 74 52 65 73 70 6f 6e 73 65 28 22 35 30 30 artResponse("500
9b60: 20 52 65 71 75 65 73 74 20 74 6f 6f 20 6c 61 72 Request too lar
9b70: 67 65 22 29 3b 0a 20 20 20 20 20 20 6e 4f 75 74 ge");. nOut
9b80: 20 2b 3d 20 70 72 69 6e 74 66 28 0a 20 20 20 20 += printf(.
9b90: 20 20 20 20 22 43 6f 6e 74 65 6e 74 2d 74 79 70 "Content-typ
9ba0: 65 3a 20 74 65 78 74 2f 70 6c 61 69 6e 5c 72 5c e: text/plain\r\
9bb0: 6e 22 0a 20 20 20 20 20 20 20 20 22 5c 72 5c 6e n". "\r\n
9bc0: 22 0a 20 20 20 20 20 20 20 20 22 54 6f 6f 20 6d ". "Too m
9bd0: 75 63 68 20 50 4f 53 54 20 64 61 74 61 5c 6e 22 uch POST data\n"
9be0: 0a 20 20 20 20 20 20 29 3b 0a 20 20 20 20 20 20 . );.
9bf0: 4d 61 6b 65 4c 6f 67 45 6e 74 72 79 28 30 29 3b MakeLogEntry(0);
9c00: 0a 20 20 20 20 20 20 65 78 69 74 28 30 29 3b 0a . exit(0);.
9c10: 20 20 20 20 7d 0a 20 20 20 20 73 70 72 69 6e 74 }. sprint
9c20: 66 28 7a 54 6d 70 4e 61 6d 42 75 66 2c 20 22 2f f(zTmpNamBuf, "/
9c30: 74 6d 70 2f 2d 70 6f 73 74 2d 64 61 74 61 2d 58 tmp/-post-data-X
9c40: 58 58 58 58 58 22 29 3b 0a 20 20 20 20 7a 54 6d XXXXX");. zTm
9c50: 70 4e 61 6d 20 3d 20 7a 54 6d 70 4e 61 6d 42 75 pNam = zTmpNamBu
9c60: 66 3b 0a 20 20 20 20 6d 6b 73 74 65 6d 70 28 7a f;. mkstemp(z
9c70: 54 6d 70 4e 61 6d 29 3b 0a 20 20 20 20 6f 75 74 TmpNam);. out
9c80: 20 3d 20 66 6f 70 65 6e 28 7a 54 6d 70 4e 61 6d = fopen(zTmpNam
9c90: 2c 22 77 22 29 3b 0a 20 20 20 20 69 66 28 20 6f ,"w");. if( o
9ca0: 75 74 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 53 ut==0 ){. S
9cb0: 74 61 72 74 52 65 73 70 6f 6e 73 65 28 22 35 30 tartResponse("50
9cc0: 30 20 43 61 6e 6e 6f 74 20 63 72 65 61 74 65 20 0 Cannot create
9cd0: 2f 74 6d 70 20 66 69 6c 65 22 29 3b 0a 20 20 20 /tmp file");.
9ce0: 20 20 20 6e 4f 75 74 20 2b 3d 20 70 72 69 6e 74 nOut += print
9cf0: 66 28 0a 20 20 20 20 20 20 20 20 22 43 6f 6e 74 f(. "Cont
9d00: 65 6e 74 2d 74 79 70 65 3a 20 74 65 78 74 2f 70 ent-type: text/p
9d10: 6c 61 69 6e 5c 72 5c 6e 22 0a 20 20 20 20 20 20 lain\r\n".
9d20: 20 20 22 5c 72 5c 6e 22 0a 20 20 20 20 20 20 20 "\r\n".
9d30: 20 22 43 6f 75 6c 64 20 6e 6f 74 20 6f 70 65 6e "Could not open
9d40: 20 5c 22 25 73 5c 22 20 66 6f 72 20 77 72 69 74 \"%s\" for writ
9d50: 69 6e 67 5c 6e 22 2c 20 7a 54 6d 70 4e 61 6d 0a ing\n", zTmpNam.
9d60: 20 20 20 20 20 20 29 3b 0a 20 20 20 20 20 20 4d );. M
9d70: 61 6b 65 4c 6f 67 45 6e 74 72 79 28 30 29 3b 0a akeLogEntry(0);.
9d80: 20 20 20 20 20 20 65 78 69 74 28 30 29 3b 0a 20 exit(0);.
9d90: 20 20 20 7d 0a 20 20 20 20 7a 42 75 66 20 3d 20 }. zBuf =
9da0: 53 61 66 65 4d 61 6c 6c 6f 63 28 20 6c 65 6e 20 SafeMalloc( len
9db0: 29 3b 0a 20 20 20 20 69 66 28 20 75 73 65 54 69 );. if( useTi
9dc0: 6d 65 6f 75 74 20 29 20 61 6c 61 72 6d 28 31 35 meout ) alarm(15
9dd0: 20 2b 20 6c 65 6e 2f 32 30 30 30 29 3b 0a 20 20 + len/2000);.
9de0: 20 20 6e 20 3d 20 66 72 65 61 64 28 7a 42 75 66 n = fread(zBuf
9df0: 2c 31 2c 6c 65 6e 2c 73 74 64 69 6e 29 3b 0a 20 ,1,len,stdin);.
9e00: 20 20 20 6e 49 6e 20 2b 3d 20 6e 3b 0a 20 20 20 nIn += n;.
9e10: 20 66 77 72 69 74 65 28 7a 42 75 66 2c 31 2c 6e fwrite(zBuf,1,n
9e20: 2c 6f 75 74 29 3b 0a 20 20 20 20 66 72 65 65 28 ,out);. free(
9e30: 7a 42 75 66 29 3b 0a 20 20 20 20 66 63 6c 6f 73 zBuf);. fclos
9e40: 65 28 6f 75 74 29 3b 0a 20 20 7d 0a 0a 20 20 2f e(out);. }.. /
9e50: 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 68 65 20 * Make sure the
9e60: 72 75 6e 6e 69 6e 67 20 74 69 6d 65 20 69 73 20 running time is
9e70: 6e 6f 74 20 74 6f 6f 20 67 72 65 61 74 20 2a 2f not too great */
9e80: 0a 20 20 69 66 28 20 75 73 65 54 69 6d 65 6f 75 . if( useTimeou
9e90: 74 20 29 20 61 6c 61 72 6d 28 31 30 29 3b 0a 0a t ) alarm(10);..
9ea0: 20 20 2f 2a 20 43 6f 6e 76 65 72 74 20 61 6c 6c /* Convert all
9eb0: 20 75 6e 75 73 75 61 6c 20 63 68 61 72 61 63 74 unusual charact
9ec0: 65 72 73 20 69 6e 20 74 68 65 20 73 63 72 69 70 ers in the scrip
9ed0: 74 20 6e 61 6d 65 20 69 6e 74 6f 20 22 5f 22 2e t name into "_".
9ee0: 0a 20 20 2a 2a 0a 20 20 2a 2a 20 54 68 69 73 20 . **. ** This
9ef0: 69 73 20 61 20 64 65 66 65 6e 73 65 20 61 67 61 is a defense aga
9f00: 69 6e 73 74 20 76 61 72 69 6f 75 73 20 61 74 74 inst various att
9f10: 61 63 6b 73 2c 20 58 53 53 20 61 74 74 61 63 6b acks, XSS attack
9f20: 73 20 69 6e 20 70 61 72 74 69 63 75 6c 61 72 2e s in particular.
9f30: 0a 20 20 2a 2f 0a 20 20 66 6f 72 28 7a 3d 7a 53 . */. for(z=zS
9f40: 63 72 69 70 74 3b 20 2a 7a 3b 20 7a 2b 2b 29 7b cript; *z; z++){
9f50: 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68 . unsigned ch
9f60: 61 72 20 63 20 3d 20 2a 28 75 6e 73 69 67 6e 65 ar c = *(unsigne
9f70: 64 20 63 68 61 72 2a 29 7a 3b 0a 20 20 20 20 69 d char*)z;. i
9f80: 66 28 20 28 63 26 30 78 38 30 29 21 3d 30 20 7c f( (c&0x80)!=0 |
9f90: 7c 20 21 61 6c 6c 6f 77 65 64 49 6e 4e 61 6d 65 | !allowedInName
9fa0: 5b 63 5d 20 29 7b 0a 20 20 20 20 20 20 2a 7a 20 [c] ){. *z
9fb0: 3d 20 27 5f 27 3b 0a 20 20 20 20 20 20 69 66 28 = '_';. if(
9fc0: 20 63 3d 3d 27 25 27 20 26 26 20 7a 5b 31 5d 21 c=='%' && z[1]!
9fd0: 3d 30 20 26 26 20 7a 5b 32 5d 21 3d 30 20 29 7b =0 && z[2]!=0 ){
9fe0: 0a 20 20 20 20 20 20 20 20 66 6f 72 28 69 3d 33 . for(i=3
9ff0: 3b 20 28 7a 5b 69 2d 32 5d 20 3d 20 7a 5b 69 5d ; (z[i-2] = z[i]
a000: 29 21 3d 30 3b 20 69 2b 2b 29 7b 7d 0a 20 20 20 )!=0; i++){}.
a010: 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a }. }. }..
a020: 20 20 2f 2a 20 44 6f 6e 27 74 20 61 6c 6c 6f 77 /* Don't allow
a030: 20 22 2f 2e 22 20 6f 72 20 22 2f 2d 22 20 74 6f "/." or "/-" to
a040: 20 74 6f 20 6f 63 63 75 72 20 61 6e 79 77 68 65 to occur anywhe
a050: 72 65 20 69 6e 20 74 68 65 20 65 6e 74 69 74 79 re in the entity
a060: 20 6e 61 6d 65 2e 0a 20 20 2a 2a 20 54 68 69 73 name.. ** This
a070: 20 70 72 65 76 65 6e 74 73 20 61 74 74 61 63 6b prevents attack
a080: 73 20 69 6e 76 6f 6c 76 69 6e 67 20 22 2e 2e 22 s involving ".."
a090: 20 61 6e 64 20 61 6c 73 6f 20 61 6c 6c 6f 77 73 and also allows
a0a0: 20 75 73 20 74 6f 20 63 72 65 61 74 65 0a 20 20 us to create.
a0b0: 2a 2a 20 66 69 6c 65 73 20 61 6e 64 20 64 69 72 ** files and dir
a0c0: 65 63 74 6f 72 69 65 73 20 77 68 6f 73 65 20 6e ectories whose n
a0d0: 61 6d 65 73 20 62 65 67 69 6e 20 77 69 74 68 20 ames begin with
a0e0: 22 2d 22 20 77 68 69 63 68 20 61 72 65 20 69 6e "-" which are in
a0f0: 76 69 73 69 62 6c 65 0a 20 20 2a 2a 20 74 6f 20 visible. ** to
a100: 74 68 65 20 77 65 62 73 65 72 76 65 72 2e 0a 20 the webserver..
a110: 20 2a 2f 0a 20 20 66 6f 72 28 7a 3d 7a 53 63 72 */. for(z=zScr
a120: 69 70 74 3b 20 2a 7a 3b 20 7a 2b 2b 29 7b 0a 20 ipt; *z; z++){.
a130: 20 20 20 69 66 28 20 2a 7a 3d 3d 27 2f 27 20 26 if( *z=='/' &
a140: 26 20 28 7a 5b 31 5d 3d 3d 27 2e 27 20 7c 7c 20 & (z[1]=='.' ||
a150: 7a 5b 31 5d 3d 3d 27 2d 27 29 20 29 7b 0a 20 20 z[1]=='-') ){.
a160: 20 20 20 20 20 4e 6f 74 46 6f 75 6e 64 28 5f 5f NotFound(__
a170: 4c 49 4e 45 5f 5f 29 3b 0a 20 20 20 20 7d 0a 20 LINE__);. }.
a180: 20 7d 0a 0a 20 20 2f 2a 20 46 69 67 75 72 65 20 }.. /* Figure
a190: 6f 75 74 20 77 68 61 74 20 74 68 65 20 72 6f 6f out what the roo
a1a0: 74 20 6f 66 20 74 68 65 20 66 69 6c 65 73 79 73 t of the filesys
a1b0: 74 65 6d 20 73 68 6f 75 6c 64 20 62 65 2e 20 20 tem should be.
a1c0: 49 66 20 74 68 65 0a 20 20 2a 2a 20 48 54 54 50 If the. ** HTTP
a1d0: 5f 48 4f 53 54 20 70 61 72 61 6d 65 74 65 72 20 _HOST parameter
a1e0: 65 78 69 73 74 73 20 28 73 74 6f 72 65 64 20 69 exists (stored i
a1f0: 6e 20 7a 48 74 74 70 48 6f 73 74 29 20 74 68 65 n zHttpHost) the
a200: 6e 20 72 65 6d 6f 76 65 20 74 68 65 0a 20 20 2a n remove the. *
a210: 2a 20 70 6f 72 74 20 6e 75 6d 62 65 72 20 66 72 * port number fr
a220: 6f 6d 20 74 68 65 20 65 6e 64 20 28 69 66 20 61 om the end (if a
a230: 6e 79 29 2c 20 63 6f 6e 76 65 72 74 20 61 6c 6c ny), convert all
a240: 20 63 68 61 72 61 63 74 65 72 73 20 74 6f 20 6c characters to l
a250: 6f 77 65 72 0a 20 20 2a 2a 20 63 61 73 65 2c 20 ower. ** case,
a260: 61 6e 64 20 63 6f 6e 76 65 72 74 20 61 6c 6c 20 and convert all
a270: 22 2e 22 20 74 6f 20 22 5f 22 2e 20 20 54 68 65 "." to "_". The
a280: 6e 20 74 72 79 20 74 6f 20 66 69 6e 64 20 61 20 n try to find a
a290: 64 69 72 65 63 74 6f 72 79 0a 20 20 2a 2a 20 77 directory. ** w
a2a0: 69 74 68 20 74 68 61 74 20 6e 61 6d 65 20 61 6e ith that name an
a2b0: 64 20 74 68 65 20 65 78 74 65 6e 73 69 6f 6e 20 d the extension
a2c0: 2e 77 65 62 73 69 74 65 2e 20 20 49 66 20 6e 6f .website. If no
a2d0: 74 20 66 6f 75 6e 64 2c 20 6c 6f 6f 6b 0a 20 20 t found, look.
a2e0: 2a 2a 20 66 6f 72 20 22 64 65 66 61 75 6c 74 2e ** for "default.
a2f0: 77 65 62 73 69 74 65 22 2e 0a 20 20 2a 2f 0a 20 website".. */.
a300: 20 69 66 28 20 7a 53 63 72 69 70 74 5b 30 5d 21 if( zScript[0]!
a310: 3d 27 2f 27 20 29 20 4e 6f 74 46 6f 75 6e 64 28 ='/' ) NotFound(
a320: 5f 5f 4c 49 4e 45 5f 5f 29 3b 0a 20 20 69 66 28 __LINE__);. if(
a330: 20 73 74 72 6c 65 6e 28 7a 52 6f 6f 74 29 2b 34 strlen(zRoot)+4
a340: 30 20 3e 3d 20 73 69 7a 65 6f 66 28 7a 4c 69 6e 0 >= sizeof(zLin
a350: 65 29 20 29 20 4e 6f 74 46 6f 75 6e 64 28 5f 5f e) ) NotFound(__
a360: 4c 49 4e 45 5f 5f 29 3b 0a 20 20 69 66 28 20 7a LINE__);. if( z
a370: 48 74 74 70 48 6f 73 74 3d 3d 30 20 7c 7c 20 7a HttpHost==0 || z
a380: 48 74 74 70 48 6f 73 74 5b 30 5d 3d 3d 30 20 29 HttpHost[0]==0 )
a390: 7b 0a 20 20 20 20 4e 6f 74 46 6f 75 6e 64 28 5f {. NotFound(_
a3a0: 5f 4c 49 4e 45 5f 5f 29 3b 0a 20 20 7d 65 6c 73 _LINE__);. }els
a3b0: 65 20 69 66 28 20 73 74 72 6c 65 6e 28 7a 48 74 e if( strlen(zHt
a3c0: 74 70 48 6f 73 74 29 2b 73 74 72 6c 65 6e 28 7a tpHost)+strlen(z
a3d0: 52 6f 6f 74 29 2b 31 30 20 3e 3d 20 73 69 7a 65 Root)+10 >= size
a3e0: 6f 66 28 7a 4c 69 6e 65 29 20 29 7b 0a 20 20 20 of(zLine) ){.
a3f0: 20 4e 6f 74 46 6f 75 6e 64 28 5f 5f 4c 49 4e 45 NotFound(__LINE
a400: 5f 5f 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 __);. }else{.
a410: 20 20 73 70 72 69 6e 74 66 28 7a 4c 69 6e 65 2c sprintf(zLine,
a420: 20 22 25 73 2f 25 73 22 2c 20 7a 52 6f 6f 74 2c "%s/%s", zRoot,
a430: 20 7a 48 74 74 70 48 6f 73 74 29 3b 0a 20 20 20 zHttpHost);.
a440: 20 66 6f 72 28 69 3d 73 74 72 6c 65 6e 28 7a 52 for(i=strlen(zR
a450: 6f 6f 74 29 2b 31 3b 20 7a 4c 69 6e 65 5b 69 5d oot)+1; zLine[i]
a460: 20 26 26 20 7a 4c 69 6e 65 5b 69 5d 21 3d 27 3a && zLine[i]!=':
a470: 27 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 69 '; i++){. i
a480: 6e 74 20 63 20 3d 20 7a 4c 69 6e 65 5b 69 5d 3b nt c = zLine[i];
a490: 0a 20 20 20 20 20 20 69 66 28 20 21 69 73 61 6c . if( !isal
a4a0: 6e 75 6d 28 63 29 20 29 7b 0a 20 20 20 20 20 20 num(c) ){.
a4b0: 20 20 7a 4c 69 6e 65 5b 69 5d 20 3d 20 27 5f 27 zLine[i] = '_'
a4c0: 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 20 69 66 ;. }else if
a4d0: 28 20 69 73 75 70 70 65 72 28 63 29 20 29 7b 0a ( isupper(c) ){.
a4e0: 20 20 20 20 20 20 20 20 7a 4c 69 6e 65 5b 69 5d zLine[i]
a4f0: 20 3d 20 74 6f 6c 6f 77 65 72 28 63 29 3b 0a 20 = tolower(c);.
a500: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 }. }.
a510: 20 73 74 72 63 70 79 28 26 7a 4c 69 6e 65 5b 69 strcpy(&zLine[i
a520: 5d 2c 20 22 2e 77 65 62 73 69 74 65 22 29 3b 0a ], ".website");.
a530: 20 20 7d 0a 20 20 69 66 28 20 73 74 61 74 28 7a }. if( stat(z
a540: 4c 69 6e 65 2c 26 73 74 61 74 62 75 66 29 20 7c Line,&statbuf) |
a550: 7c 20 21 53 5f 49 53 44 49 52 28 73 74 61 74 62 | !S_ISDIR(statb
a560: 75 66 2e 73 74 5f 6d 6f 64 65 29 20 29 7b 0a 20 uf.st_mode) ){.
a570: 20 20 20 73 70 72 69 6e 74 66 28 7a 4c 69 6e 65 sprintf(zLine
a580: 2c 20 22 25 73 2f 64 65 66 61 75 6c 74 2e 77 65 , "%s/default.we
a590: 62 73 69 74 65 22 2c 20 7a 52 6f 6f 74 29 3b 0a bsite", zRoot);.
a5a0: 20 20 20 20 69 66 28 20 73 74 61 74 28 7a 4c 69 if( stat(zLi
a5b0: 6e 65 2c 26 73 74 61 74 62 75 66 29 20 7c 7c 20 ne,&statbuf) ||
a5c0: 21 53 5f 49 53 44 49 52 28 73 74 61 74 62 75 66 !S_ISDIR(statbuf
a5d0: 2e 73 74 5f 6d 6f 64 65 29 20 29 7b 0a 20 20 20 .st_mode) ){.
a5e0: 20 20 20 69 66 28 20 73 74 61 6e 64 61 6c 6f 6e if( standalon
a5f0: 65 20 29 7b 0a 20 20 20 20 20 20 20 20 73 70 72 e ){. spr
a600: 69 6e 74 66 28 7a 4c 69 6e 65 2c 20 22 25 73 22 intf(zLine, "%s"
a610: 2c 20 7a 52 6f 6f 74 29 3b 0a 20 20 20 20 20 20 , zRoot);.
a620: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 4e }else{. N
a630: 6f 74 46 6f 75 6e 64 28 5f 5f 4c 49 4e 45 5f 5f otFound(__LINE__
a640: 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d );. }. }
a650: 0a 20 20 7d 0a 20 20 7a 48 6f 6d 65 20 3d 20 53 . }. zHome = S
a660: 74 72 44 75 70 28 7a 4c 69 6e 65 29 3b 0a 0a 20 trDup(zLine);..
a670: 20 2f 2a 20 43 68 61 6e 67 65 20 64 69 72 65 63 /* Change direc
a680: 74 6f 72 69 65 73 20 74 6f 20 74 68 65 20 72 6f tories to the ro
a690: 6f 74 20 6f 66 20 74 68 65 20 48 54 54 50 20 66 ot of the HTTP f
a6a0: 69 6c 65 73 79 73 74 65 6d 0a 20 20 2a 2f 0a 20 ilesystem. */.
a6b0: 20 69 66 28 20 63 68 64 69 72 28 7a 48 6f 6d 65 if( chdir(zHome
a6c0: 29 21 3d 30 20 29 7b 0a 20 20 20 20 63 68 61 72 )!=0 ){. char
a6d0: 20 7a 42 75 66 5b 31 30 30 30 5d 3b 0a 20 20 20 zBuf[1000];.
a6e0: 20 4d 61 6c 66 75 6e 63 74 69 6f 6e 28 5f 5f 4c Malfunction(__L
a6f0: 49 4e 45 5f 5f 2c 20 22 63 61 6e 6e 6f 74 20 63 INE__, "cannot c
a700: 68 64 69 72 20 74 6f 20 5b 25 73 5d 20 66 72 6f hdir to [%s] fro
a710: 6d 20 5b 25 73 5d 22 2c 0a 20 20 20 20 20 20 20 m [%s]",.
a720: 20 20 7a 48 6f 6d 65 2c 20 67 65 74 63 77 64 28 zHome, getcwd(
a730: 7a 42 75 66 2c 39 39 39 29 29 3b 0a 20 20 7d 0a zBuf,999));. }.
a740: 0a 20 20 2f 2a 20 4c 6f 63 61 74 65 20 74 68 65 . /* Locate the
a750: 20 66 69 6c 65 20 69 6e 20 74 68 65 20 66 69 6c file in the fil
a760: 65 73 79 73 74 65 6d 2e 20 20 57 65 20 6d 69 67 esystem. We mig
a770: 68 74 20 68 61 76 65 20 74 6f 20 61 70 70 65 6e ht have to appen
a780: 64 0a 20 20 2a 2a 20 74 68 65 20 6e 61 6d 65 20 d. ** the name
a790: 22 69 6e 64 65 78 2e 68 74 6d 6c 22 20 69 6e 20 "index.html" in
a7a0: 6f 72 64 65 72 20 74 6f 20 66 69 6e 64 20 69 74 order to find it
a7b0: 2e 20 20 41 6e 79 20 65 78 63 65 73 73 20 70 61 . Any excess pa
a7c0: 74 68 0a 20 20 2a 2a 20 69 6e 66 6f 72 6d 61 74 th. ** informat
a7d0: 69 6f 6e 20 69 73 20 70 75 74 20 69 6e 74 6f 20 ion is put into
a7e0: 74 68 65 20 7a 50 61 74 68 49 6e 66 6f 20 76 61 the zPathInfo va
a7f0: 72 69 61 62 6c 65 2e 0a 20 20 2a 2f 0a 20 20 7a riable.. */. z
a800: 4c 69 6e 65 5b 30 5d 20 3d 20 27 2e 27 3b 0a 20 Line[0] = '.';.
a810: 20 69 20 3d 20 30 3b 0a 20 20 77 68 69 6c 65 28 i = 0;. while(
a820: 20 7a 53 63 72 69 70 74 5b 69 5d 20 29 7b 0a 20 zScript[i] ){.
a830: 20 20 20 77 68 69 6c 65 28 20 7a 53 63 72 69 70 while( zScrip
a840: 74 5b 69 5d 20 26 26 20 7a 53 63 72 69 70 74 5b t[i] && zScript[
a850: 69 5d 21 3d 27 2f 27 20 29 7b 0a 20 20 20 20 20 i]!='/' ){.
a860: 20 7a 4c 69 6e 65 5b 69 2b 31 5d 20 3d 20 7a 53 zLine[i+1] = zS
a870: 63 72 69 70 74 5b 69 5d 3b 0a 20 20 20 20 20 20 cript[i];.
a880: 69 2b 2b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 7a i++;. }. z
a890: 4c 69 6e 65 5b 69 2b 31 5d 20 3d 20 30 3b 0a 20 Line[i+1] = 0;.
a8a0: 20 20 20 69 66 28 20 73 74 61 74 28 7a 4c 69 6e if( stat(zLin
a8b0: 65 2c 26 73 74 61 74 62 75 66 29 21 3d 30 20 29 e,&statbuf)!=0 )
a8c0: 7b 0a 20 20 20 20 20 20 69 6e 74 20 73 74 69 6c {. int stil
a8d0: 6c 53 65 61 72 63 68 69 6e 67 20 3d 20 31 3b 0a lSearching = 1;.
a8e0: 20 20 20 20 20 20 77 68 69 6c 65 28 20 73 74 69 while( sti
a8f0: 6c 6c 53 65 61 72 63 68 69 6e 67 20 26 26 20 69 llSearching && i
a900: 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 20 77 68 >0 ){. wh
a910: 69 6c 65 28 20 69 3e 30 20 26 26 20 7a 4c 69 6e ile( i>0 && zLin
a920: 65 5b 69 5d 21 3d 27 2f 27 20 29 7b 20 69 2d 2d e[i]!='/' ){ i--
a930: 3b 20 7d 0a 20 20 20 20 20 20 20 20 73 74 72 63 ; }. strc
a940: 70 79 28 26 7a 4c 69 6e 65 5b 69 5d 2c 20 22 2f py(&zLine[i], "/
a950: 6e 6f 74 2d 66 6f 75 6e 64 2e 68 74 6d 6c 22 29 not-found.html")
a960: 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 73 74 ;. if( st
a970: 61 74 28 7a 4c 69 6e 65 2c 26 73 74 61 74 62 75 at(zLine,&statbu
a980: 66 29 3d 3d 30 20 26 26 20 53 5f 49 53 52 45 47 f)==0 && S_ISREG
a990: 28 73 74 61 74 62 75 66 2e 73 74 5f 6d 6f 64 65 (statbuf.st_mode
a9a0: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 26 26 ). &&
a9b0: 20 61 63 63 65 73 73 28 7a 4c 69 6e 65 2c 52 5f access(zLine,R_
a9c0: 4f 4b 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 OK)==0 ){.
a9d0: 20 20 20 20 7a 52 65 61 6c 53 63 72 69 70 74 20 zRealScript
a9e0: 3d 20 53 74 72 44 75 70 28 26 7a 4c 69 6e 65 5b = StrDup(&zLine[
a9f0: 31 5d 29 3b 0a 20 20 20 20 20 20 20 20 20 20 52 1]);. R
aa00: 65 64 69 72 65 63 74 28 7a 52 65 61 6c 53 63 72 edirect(zRealScr
aa10: 69 70 74 2c 20 31 29 3b 0a 20 20 20 20 20 20 20 ipt, 1);.
aa20: 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 return;.
aa30: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 }else{.
aa40: 20 20 20 20 69 2d 2d 3b 0a 20 20 20 20 20 20 20 i--;.
aa50: 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 }. }.
aa60: 20 69 66 28 20 73 74 69 6c 6c 53 65 61 72 63 68 if( stillSearch
aa70: 69 6e 67 20 29 20 4e 6f 74 46 6f 75 6e 64 28 5f ing ) NotFound(_
aa80: 5f 4c 49 4e 45 5f 5f 29 3b 0a 20 20 20 20 20 20 _LINE__);.
aa90: 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 break;. }.
aaa0: 20 69 66 28 20 53 5f 49 53 52 45 47 28 73 74 61 if( S_ISREG(sta
aab0: 74 62 75 66 2e 73 74 5f 6d 6f 64 65 29 20 29 7b tbuf.st_mode) ){
aac0: 0a 20 20 20 20 20 20 69 66 28 20 61 63 63 65 73 . if( acces
aad0: 73 28 7a 4c 69 6e 65 2c 52 5f 4f 4b 29 20 29 7b s(zLine,R_OK) ){
aae0: 0a 20 20 20 20 20 20 20 20 4e 6f 74 46 6f 75 6e . NotFoun
aaf0: 64 28 5f 5f 4c 49 4e 45 5f 5f 29 3b 0a 20 20 20 d(__LINE__);.
ab00: 20 20 20 7d 0a 20 20 20 20 20 20 7a 52 65 61 6c }. zReal
ab10: 53 63 72 69 70 74 20 3d 20 53 74 72 44 75 70 28 Script = StrDup(
ab20: 26 7a 4c 69 6e 65 5b 31 5d 29 3b 0a 20 20 20 20 &zLine[1]);.
ab30: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 break;. }.
ab40: 20 20 20 69 66 28 20 7a 53 63 72 69 70 74 5b 69 if( zScript[i
ab50: 5d 3d 3d 30 20 7c 7c 20 7a 53 63 72 69 70 74 5b ]==0 || zScript[
ab60: 69 2b 31 5d 3d 3d 30 20 29 7b 0a 20 20 20 20 20 i+1]==0 ){.
ab70: 20 73 74 72 63 70 79 28 26 7a 4c 69 6e 65 5b 69 strcpy(&zLine[i
ab80: 2b 31 5d 2c 22 2f 69 6e 64 65 78 2e 68 74 6d 6c +1],"/index.html
ab90: 22 29 3b 0a 20 20 20 20 20 20 69 66 28 20 73 74 ");. if( st
aba0: 61 74 28 7a 4c 69 6e 65 2c 26 73 74 61 74 62 75 at(zLine,&statbu
abb0: 66 29 21 3d 30 20 7c 7c 20 21 53 5f 49 53 52 45 f)!=0 || !S_ISRE
abc0: 47 28 73 74 61 74 62 75 66 2e 73 74 5f 6d 6f 64 G(statbuf.st_mod
abd0: 65 29 20 0a 20 20 20 20 20 20 7c 7c 20 61 63 63 e) . || acc
abe0: 65 73 73 28 7a 4c 69 6e 65 2c 52 5f 4f 4b 29 20 ess(zLine,R_OK)
abf0: 29 7b 0a 20 20 20 20 20 20 20 20 73 74 72 63 70 ){. strcp
ac00: 79 28 26 7a 4c 69 6e 65 5b 69 2b 31 5d 2c 22 2f y(&zLine[i+1],"/
ac10: 69 6e 64 65 78 2e 63 67 69 22 29 3b 0a 20 20 20 index.cgi");.
ac20: 20 20 20 20 20 69 66 28 20 73 74 61 74 28 7a 4c if( stat(zL
ac30: 69 6e 65 2c 26 73 74 61 74 62 75 66 29 21 3d 30 ine,&statbuf)!=0
ac40: 20 7c 7c 20 21 53 5f 49 53 52 45 47 28 73 74 61 || !S_ISREG(sta
ac50: 74 62 75 66 2e 73 74 5f 6d 6f 64 65 29 20 0a 20 tbuf.st_mode) .
ac60: 20 20 20 20 20 20 20 7c 7c 20 61 63 63 65 73 73 || access
ac70: 28 7a 4c 69 6e 65 2c 52 5f 4f 4b 29 20 29 7b 0a (zLine,R_OK) ){.
ac80: 20 20 20 20 20 20 20 20 20 20 4e 6f 74 46 6f 75 NotFou
ac90: 6e 64 28 5f 5f 4c 49 4e 45 5f 5f 29 3b 0a 20 20 nd(__LINE__);.
aca0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a }. }.
acb0: 20 20 20 20 20 20 7a 52 65 61 6c 53 63 72 69 70 zRealScrip
acc0: 74 20 3d 20 53 74 72 44 75 70 28 26 7a 4c 69 6e t = StrDup(&zLin
acd0: 65 5b 31 5d 29 3b 0a 20 20 20 20 20 20 69 66 28 e[1]);. if(
ace0: 20 7a 53 63 72 69 70 74 5b 69 5d 3d 3d 30 20 29 zScript[i]==0 )
acf0: 7b 0a 20 20 20 20 20 20 20 20 2f 2a 20 49 66 20 {. /* If
ad00: 74 68 65 20 72 65 71 75 65 73 74 65 64 20 55 52 the requested UR
ad10: 4c 20 64 6f 65 73 20 6e 6f 74 20 65 6e 64 20 77 L does not end w
ad20: 69 74 68 20 22 2f 22 20 62 75 74 20 77 65 20 68 ith "/" but we h
ad30: 61 64 20 74 6f 0a 20 20 20 20 20 20 20 20 2a 2a ad to. **
ad40: 20 61 70 70 65 6e 64 20 22 69 6e 64 65 78 2e 68 append "index.h
ad50: 74 6d 6c 22 2c 20 74 68 65 6e 20 61 20 72 65 64 tml", then a red
ad60: 69 72 65 63 74 20 69 73 20 6e 65 63 65 73 73 61 irect is necessa
ad70: 72 79 2e 20 20 4f 74 68 65 72 77 69 73 65 0a 20 ry. Otherwise.
ad80: 20 20 20 20 20 20 20 2a 2a 20 6e 6f 6e 65 20 6f ** none o
ad90: 66 20 74 68 65 20 72 65 6c 61 74 69 76 65 20 55 f the relative U
ada0: 52 4c 73 20 69 6e 20 74 68 65 20 64 65 6c 69 76 RLs in the deliv
adb0: 65 72 65 64 20 64 6f 63 75 6d 65 6e 74 20 77 69 ered document wi
adc0: 6c 6c 20 62 65 0a 20 20 20 20 20 20 20 20 2a 2a ll be. **
add0: 20 63 6f 72 72 65 63 74 2e 20 2a 2f 0a 20 20 20 correct. */.
ade0: 20 20 20 20 20 52 65 64 69 72 65 63 74 28 7a 52 Redirect(zR
adf0: 65 61 6c 53 63 72 69 70 74 2c 20 31 29 3b 0a 20 ealScript, 1);.
ae00: 20 20 20 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 return;.
ae10: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 62 72 65 }. bre
ae20: 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 7a 4c ak;. }. zL
ae30: 69 6e 65 5b 69 2b 31 5d 20 3d 20 7a 53 63 72 69 ine[i+1] = zScri
ae40: 70 74 5b 69 5d 3b 0a 20 20 20 20 69 2b 2b 3b 0a pt[i];. i++;.
ae50: 20 20 7d 0a 20 20 7a 46 69 6c 65 20 3d 20 53 74 }. zFile = St
ae60: 72 44 75 70 28 7a 4c 69 6e 65 29 3b 0a 20 20 7a rDup(zLine);. z
ae70: 50 61 74 68 49 6e 66 6f 20 3d 20 53 74 72 44 75 PathInfo = StrDu
ae80: 70 28 26 7a 53 63 72 69 70 74 5b 69 5d 29 3b 0a p(&zScript[i]);.
ae90: 20 20 6c 65 6e 46 69 6c 65 20 3d 20 73 74 72 6c lenFile = strl
aea0: 65 6e 28 7a 46 69 6c 65 29 3b 0a 20 20 7a 44 69 en(zFile);. zDi
aeb0: 72 20 3d 20 53 74 72 44 75 70 28 7a 46 69 6c 65 r = StrDup(zFile
aec0: 29 3b 0a 20 20 66 6f 72 28 69 3d 73 74 72 6c 65 );. for(i=strle
aed0: 6e 28 7a 44 69 72 29 2d 31 3b 20 69 3e 30 20 26 n(zDir)-1; i>0 &
aee0: 26 20 7a 44 69 72 5b 69 5d 21 3d 27 2f 27 3b 20 & zDir[i]!='/';
aef0: 69 2d 2d 29 7b 7d 3b 0a 20 20 69 66 28 20 69 3d i--){};. if( i=
af00: 3d 30 20 29 7b 0a 20 20 20 20 20 73 74 72 63 70 =0 ){. strcp
af10: 79 28 7a 44 69 72 2c 22 2f 22 29 3b 0a 20 20 7d y(zDir,"/");. }
af20: 65 6c 73 65 7b 0a 20 20 20 20 20 7a 44 69 72 5b else{. zDir[
af30: 69 5d 20 3d 20 30 3b 0a 20 20 7d 0a 0a 20 20 2f i] = 0;. }.. /
af40: 2a 20 43 68 65 63 6b 20 74 6f 20 73 65 65 20 69 * Check to see i
af50: 66 20 74 68 65 72 65 20 69 73 20 61 6e 20 61 75 f there is an au
af60: 74 68 6f 72 69 7a 61 74 69 6f 6e 20 66 69 6c 65 thorization file
af70: 2e 20 20 49 66 20 74 68 65 72 65 20 69 73 2c 0a . If there is,.
af80: 20 20 2a 2a 20 70 72 6f 63 65 73 73 20 69 74 2e ** process it.
af90: 0a 20 20 2a 2f 0a 20 20 73 70 72 69 6e 74 66 28 . */. sprintf(
afa0: 7a 4c 69 6e 65 2c 20 22 25 73 2f 2d 61 75 74 68 zLine, "%s/-auth
afb0: 22 2c 20 7a 44 69 72 29 3b 0a 20 20 69 66 28 20 ", zDir);. if(
afc0: 61 63 63 65 73 73 28 7a 4c 69 6e 65 2c 52 5f 4f access(zLine,R_O
afd0: 4b 29 3d 3d 30 20 26 26 20 21 43 68 65 63 6b 42 K)==0 && !CheckB
afe0: 61 73 69 63 41 75 74 68 6f 72 69 7a 61 74 69 6f asicAuthorizatio
aff0: 6e 28 7a 4c 69 6e 65 29 20 29 20 72 65 74 75 72 n(zLine) ) retur
b000: 6e 3b 0a 0a 20 20 2f 2a 20 54 61 6b 65 20 61 70 n;.. /* Take ap
b010: 70 72 6f 70 72 69 61 74 65 20 61 63 74 69 6f 6e propriate action
b020: 0a 20 20 2a 2f 0a 20 20 69 66 28 20 28 73 74 61 . */. if( (sta
b030: 74 62 75 66 2e 73 74 5f 6d 6f 64 65 20 26 20 30 tbuf.st_mode & 0
b040: 31 30 30 29 3d 3d 30 31 30 30 20 26 26 20 61 63 100)==0100 && ac
b050: 63 65 73 73 28 7a 46 69 6c 65 2c 58 5f 4f 4b 29 cess(zFile,X_OK)
b060: 3d 3d 30 20 29 7b 0a 20 20 20 20 2f 2a 0a 20 20 ==0 ){. /*.
b070: 20 20 2a 2a 20 54 68 65 20 66 6f 6c 6c 6f 77 69 ** The followi
b080: 6e 67 73 20 73 74 61 74 69 63 20 76 61 72 69 61 ngs static varia
b090: 62 6c 65 73 20 61 72 65 20 75 73 65 64 20 74 6f bles are used to
b0a0: 20 73 65 74 75 70 20 74 68 65 20 65 6e 76 69 72 setup the envir
b0b0: 6f 6e 6d 65 6e 74 0a 20 20 20 20 2a 2a 20 66 6f onment. ** fo
b0c0: 72 20 74 68 65 20 43 47 49 20 73 63 72 69 70 74 r the CGI script
b0d0: 0a 20 20 20 20 2a 2f 0a 20 20 20 20 73 74 61 74 . */. stat
b0e0: 69 63 20 63 68 61 72 20 2a 64 65 66 61 75 6c 74 ic char *default
b0f0: 5f 70 61 74 68 20 3d 20 22 2f 62 69 6e 3a 2f 75 _path = "/bin:/u
b100: 73 72 2f 62 69 6e 22 3b 0a 20 20 20 20 73 74 61 sr/bin";. sta
b110: 74 69 63 20 63 68 61 72 20 2a 67 61 74 65 77 61 tic char *gatewa
b120: 79 5f 69 6e 74 65 72 66 61 63 65 20 3d 20 22 43 y_interface = "C
b130: 47 49 2f 31 2e 30 22 3b 0a 20 20 20 20 73 74 61 GI/1.0";. sta
b140: 74 69 63 20 73 74 72 75 63 74 20 7b 0a 20 20 20 tic struct {.
b150: 20 20 20 63 68 61 72 20 2a 7a 45 6e 76 4e 61 6d char *zEnvNam
b160: 65 3b 0a 20 20 20 20 20 20 63 68 61 72 20 2a 2a e;. char **
b170: 70 7a 45 6e 76 56 61 6c 75 65 3b 0a 20 20 20 20 pzEnvValue;.
b180: 7d 20 63 67 69 65 6e 76 5b 5d 20 3d 20 7b 0a 20 } cgienv[] = {.
b190: 20 20 20 20 20 7b 20 22 41 55 54 48 5f 54 59 50 { "AUTH_TYP
b1a0: 45 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 E",
b1b0: 20 20 20 20 20 20 26 7a 41 75 74 68 54 79 70 65 &zAuthType
b1c0: 20 7d 2c 0a 20 20 20 20 20 20 7b 20 22 41 55 54 },. { "AUT
b1d0: 48 5f 43 4f 4e 54 45 4e 54 22 2c 20 20 20 20 20 H_CONTENT",
b1e0: 20 20 20 20 20 20 20 20 20 20 20 26 7a 41 75 74 &zAut
b1f0: 68 41 72 67 20 7d 2c 0a 20 20 20 20 20 20 7b 20 hArg },. {
b200: 22 43 4f 4e 54 45 4e 54 5f 4c 45 4e 47 54 48 22 "CONTENT_LENGTH"
b210: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 , &
b220: 7a 43 6f 6e 74 65 6e 74 4c 65 6e 67 74 68 20 7d zContentLength }
b230: 2c 0a 20 20 20 20 20 20 7b 20 22 43 4f 4e 54 45 ,. { "CONTE
b240: 4e 54 5f 54 59 50 45 22 2c 20 20 20 20 20 20 20 NT_TYPE",
b250: 20 20 20 20 20 20 20 20 20 26 7a 43 6f 6e 74 65 &zConte
b260: 6e 74 54 79 70 65 20 7d 2c 0a 20 20 20 20 20 20 ntType },.
b270: 7b 20 22 44 4f 43 55 4d 45 4e 54 5f 52 4f 4f 54 { "DOCUMENT_ROOT
b280: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ",
b290: 20 26 7a 48 6f 6d 65 20 7d 2c 0a 20 20 20 20 20 &zHome },.
b2a0: 20 7b 20 22 47 41 54 45 57 41 59 5f 49 4e 54 45 { "GATEWAY_INTE
b2b0: 52 46 41 43 45 22 2c 20 20 20 20 20 20 20 20 20 RFACE",
b2c0: 20 20 26 67 61 74 65 77 61 79 5f 69 6e 74 65 72 &gateway_inter
b2d0: 66 61 63 65 20 7d 2c 0a 20 20 20 20 20 20 7b 20 face },. {
b2e0: 22 48 54 54 50 5f 41 43 43 45 50 54 22 2c 20 20 "HTTP_ACCEPT",
b2f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 &
b300: 7a 41 63 63 65 70 74 20 7d 2c 0a 20 20 20 20 20 zAccept },.
b310: 20 7b 20 22 48 54 54 50 5f 43 4f 4f 4b 49 45 22 { "HTTP_COOKIE"
b320: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,
b330: 20 20 26 7a 43 6f 6f 6b 69 65 20 7d 2c 0a 20 20 &zCookie },.
b340: 20 20 20 20 7b 20 22 48 54 54 50 5f 48 4f 53 54 { "HTTP_HOST
b350: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ",
b360: 20 20 20 20 20 26 7a 48 74 74 70 48 6f 73 74 20 &zHttpHost
b370: 7d 2c 0a 20 20 20 20 20 20 7b 20 22 48 54 54 50 },. { "HTTP
b380: 5f 52 45 46 45 52 45 52 22 2c 20 20 20 20 20 20 _REFERER",
b390: 20 20 20 20 20 20 20 20 20 20 26 7a 52 65 66 65 &zRefe
b3a0: 72 65 72 20 7d 2c 0a 20 20 20 20 20 20 7b 20 22 rer },. { "
b3b0: 48 54 54 50 5f 55 53 45 52 5f 41 47 45 4e 54 22 HTTP_USER_AGENT"
b3c0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 26 7a , &z
b3d0: 41 67 65 6e 74 20 7d 2c 0a 20 20 20 20 20 20 7b Agent },. {
b3e0: 20 22 50 41 54 48 22 2c 20 20 20 20 20 20 20 20 "PATH",
b3f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
b400: 26 64 65 66 61 75 6c 74 5f 70 61 74 68 20 7d 2c &default_path },
b410: 0a 20 20 20 20 20 20 7b 20 22 50 41 54 48 5f 49 . { "PATH_I
b420: 4e 46 4f 22 2c 20 20 20 20 20 20 20 20 20 20 20 NFO",
b430: 20 20 20 20 20 20 20 20 26 7a 50 61 74 68 49 6e &zPathIn
b440: 66 6f 20 7d 2c 0a 20 20 20 20 20 20 7b 20 22 51 fo },. { "Q
b450: 55 45 52 59 5f 53 54 52 49 4e 47 22 2c 20 20 20 UERY_STRING",
b460: 20 20 20 20 20 20 20 20 20 20 20 20 20 26 7a 51 &zQ
b470: 75 65 72 79 53 74 72 69 6e 67 20 7d 2c 0a 20 20 ueryString },.
b480: 20 20 20 20 7b 20 22 52 45 4d 4f 54 45 5f 41 44 { "REMOTE_AD
b490: 44 52 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 DR",
b4a0: 20 20 20 20 20 26 7a 52 65 6d 6f 74 65 41 64 64 &zRemoteAdd
b4b0: 72 20 7d 2c 0a 20 20 20 20 20 20 7b 20 22 52 45 r },. { "RE
b4c0: 51 55 45 53 54 5f 4d 45 54 48 4f 44 22 2c 20 20 QUEST_METHOD",
b4d0: 20 20 20 20 20 20 20 20 20 20 20 20 26 7a 4d 65 &zMe
b4e0: 74 68 6f 64 20 7d 2c 0a 20 20 20 20 20 20 7b 20 thod },. {
b4f0: 22 52 45 51 55 45 53 54 5f 55 52 49 22 2c 20 20 "REQUEST_URI",
b500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 &
b510: 7a 53 63 72 69 70 74 20 7d 2c 0a 20 20 20 20 20 zScript },.
b520: 20 7b 20 22 52 45 4d 4f 54 45 5f 55 53 45 52 22 { "REMOTE_USER"
b530: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,
b540: 20 20 26 7a 52 65 6d 6f 74 65 55 73 65 72 20 7d &zRemoteUser }
b550: 2c 0a 20 20 20 20 20 20 7b 20 22 53 43 52 49 50 ,. { "SCRIP
b560: 54 5f 44 49 52 45 43 54 4f 52 59 22 2c 20 20 20 T_DIRECTORY",
b570: 20 20 20 20 20 20 20 20 20 26 7a 44 69 72 20 7d &zDir }
b580: 2c 0a 20 20 20 20 20 20 7b 20 22 53 43 52 49 50 ,. { "SCRIP
b590: 54 5f 46 49 4c 45 4e 41 4d 45 22 2c 20 20 20 20 T_FILENAME",
b5a0: 20 20 20 20 20 20 20 20 20 26 7a 46 69 6c 65 20 &zFile
b5b0: 7d 2c 0a 20 20 20 20 20 20 7b 20 22 53 43 52 49 },. { "SCRI
b5c0: 50 54 5f 4e 41 4d 45 22 2c 20 20 20 20 20 20 20 PT_NAME",
b5d0: 20 20 20 20 20 20 20 20 20 20 26 7a 52 65 61 6c &zReal
b5e0: 53 63 72 69 70 74 20 7d 2c 0a 20 20 20 20 20 20 Script },.
b5f0: 7b 20 22 53 45 52 56 45 52 5f 4e 41 4d 45 22 2c { "SERVER_NAME",
b600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
b610: 20 26 7a 53 65 72 76 65 72 4e 61 6d 65 20 7d 2c &zServerName },
b620: 0a 20 20 20 20 20 20 7b 20 22 53 45 52 56 45 52 . { "SERVER
b630: 5f 50 4f 52 54 22 2c 20 20 20 20 20 20 20 20 20 _PORT",
b640: 20 20 20 20 20 20 20 20 26 7a 53 65 72 76 65 72 &zServer
b650: 50 6f 72 74 20 7d 2c 0a 20 20 20 20 20 20 7b 20 Port },. {
b660: 22 53 45 52 56 45 52 5f 50 52 4f 54 4f 43 4f 4c "SERVER_PROTOCOL
b670: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 26 ", &
b680: 7a 50 72 6f 74 6f 63 6f 6c 20 7d 2c 0a 20 20 20 zProtocol },.
b690: 20 7d 3b 0a 20 20 20 20 63 68 61 72 20 2a 7a 42 };. char *zB
b6a0: 61 73 65 46 69 6c 65 6e 61 6d 65 3b 20 20 20 2f aseFilename; /
b6b0: 2a 20 46 69 6c 65 6e 61 6d 65 20 77 69 74 68 6f * Filename witho
b6c0: 75 74 20 64 69 72 65 63 74 6f 72 79 20 70 72 65 ut directory pre
b6d0: 66 69 78 20 2a 2f 0a 0a 20 20 20 20 2f 2a 20 49 fix */.. /* I
b6e0: 66 20 69 74 73 20 65 78 65 63 75 74 61 62 6c 65 f its executable
b6f0: 2c 20 69 74 20 6d 75 73 74 20 62 65 20 61 20 43 , it must be a C
b700: 47 49 20 70 72 6f 67 72 61 6d 2e 20 20 53 74 61 GI program. Sta
b710: 72 74 20 62 79 0a 20 20 20 20 2a 2a 20 63 68 61 rt by. ** cha
b720: 6e 67 69 6e 67 20 64 69 72 65 63 74 6f 72 69 65 nging directorie
b730: 73 20 74 6f 20 74 68 65 20 64 69 72 65 63 74 6f s to the directo
b740: 72 79 20 68 6f 6c 64 69 6e 67 20 74 68 65 20 70 ry holding the p
b750: 72 6f 67 72 61 6d 2e 0a 20 20 20 20 2a 2f 0a 20 rogram.. */.
b760: 20 20 20 69 66 28 20 63 68 64 69 72 28 7a 44 69 if( chdir(zDi
b770: 72 29 20 29 7b 0a 20 20 20 20 20 20 63 68 61 72 r) ){. char
b780: 20 7a 42 75 66 5b 31 30 30 30 5d 3b 0a 20 20 20 zBuf[1000];.
b790: 20 20 20 4d 61 6c 66 75 6e 63 74 69 6f 6e 28 5f Malfunction(_
b7a0: 5f 4c 49 4e 45 5f 5f 2c 20 22 63 61 6e 6e 6f 74 _LINE__, "cannot
b7b0: 20 63 68 64 69 72 20 74 6f 20 5b 25 73 5d 20 66 chdir to [%s] f
b7c0: 72 6f 6d 20 5b 25 73 5d 22 2c 20 0a 20 20 20 20 rom [%s]", .
b7d0: 20 20 20 20 20 20 20 7a 44 69 72 2c 20 67 65 74 zDir, get
b7e0: 63 77 64 28 7a 42 75 66 2c 39 39 39 29 29 3b 0a cwd(zBuf,999));.
b7f0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 53 65 }.. /* Se
b800: 74 75 70 20 74 68 65 20 65 6e 76 69 72 6f 6e 6d tup the environm
b810: 65 6e 74 20 61 70 70 72 6f 70 72 69 61 74 65 6c ent appropriatel
b820: 79 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20 66 6f y.. */. fo
b830: 72 28 69 3d 30 3b 20 69 3c 28 69 6e 74 29 28 73 r(i=0; i<(int)(s
b840: 69 7a 65 6f 66 28 63 67 69 65 6e 76 29 2f 73 69 izeof(cgienv)/si
b850: 7a 65 6f 66 28 63 67 69 65 6e 76 5b 30 5d 29 29 zeof(cgienv[0]))
b860: 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 69 66 ; i++){. if
b870: 28 20 2a 63 67 69 65 6e 76 5b 69 5d 2e 70 7a 45 ( *cgienv[i].pzE
b880: 6e 76 56 61 6c 75 65 20 29 7b 0a 20 20 20 20 20 nvValue ){.
b890: 20 20 20 53 65 74 45 6e 76 28 63 67 69 65 6e 76 SetEnv(cgienv
b8a0: 5b 69 5d 2e 7a 45 6e 76 4e 61 6d 65 2c 2a 63 67 [i].zEnvName,*cg
b8b0: 69 65 6e 76 5b 69 5d 2e 70 7a 45 6e 76 56 61 6c ienv[i].pzEnvVal
b8c0: 75 65 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 ue);. }.
b8d0: 20 7d 0a 20 20 20 20 69 66 28 20 75 73 65 48 74 }. if( useHt
b8e0: 74 70 73 20 29 7b 0a 20 20 20 20 20 20 70 75 74 tps ){. put
b8f0: 65 6e 76 28 22 48 54 54 50 53 3d 6f 6e 22 29 3b env("HTTPS=on");
b900: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 . }.. /*.
b910: 20 20 20 2a 2a 20 41 62 6f 72 74 20 77 69 74 68 ** Abort with
b920: 20 61 6e 20 65 72 72 6f 72 20 69 66 20 74 68 65 an error if the
b930: 20 43 47 49 20 73 63 72 69 70 74 20 69 73 20 77 CGI script is w
b940: 72 69 74 61 62 6c 65 20 62 79 20 61 6e 79 6f 6e ritable by anyon
b950: 65 20 6f 74 68 65 72 0a 20 20 20 20 2a 2a 20 74 e other. ** t
b960: 68 61 6e 20 69 74 73 20 6f 77 6e 65 72 2e 0a 20 han its owner..
b970: 20 20 20 2a 2f 0a 20 20 20 20 69 66 28 20 73 74 */. if( st
b980: 61 74 62 75 66 2e 73 74 5f 6d 6f 64 65 20 26 20 atbuf.st_mode &
b990: 30 30 32 32 20 29 7b 0a 20 20 20 20 20 20 43 67 0022 ){. Cg
b9a0: 69 53 63 72 69 70 74 57 72 69 74 61 62 6c 65 28 iScriptWritable(
b9b0: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a );. }.. /*
b9c0: 20 46 6f 72 20 74 68 65 20 50 4f 53 54 20 6d 65 For the POST me
b9d0: 74 68 6f 64 20 61 6c 6c 20 69 6e 70 75 74 20 68 thod all input h
b9e0: 61 73 20 62 65 65 6e 20 77 72 69 74 74 65 6e 20 as been written
b9f0: 74 6f 20 61 20 74 65 6d 70 6f 72 61 72 79 20 66 to a temporary f
ba00: 69 6c 65 2c 0a 20 20 20 20 2a 2a 20 73 6f 20 77 ile,. ** so w
ba10: 65 20 68 61 76 65 20 74 6f 20 72 65 64 69 72 65 e have to redire
ba20: 63 74 20 69 6e 70 75 74 20 74 6f 20 74 68 65 20 ct input to the
ba30: 43 47 49 20 73 63 72 69 70 74 20 66 72 6f 6d 20 CGI script from
ba40: 74 68 61 74 20 66 69 6c 65 2e 0a 20 20 20 20 2a that file.. *
ba50: 2f 0a 20 20 20 20 69 66 28 20 7a 4d 65 74 68 6f /. if( zMetho
ba60: 64 5b 30 5d 3d 3d 27 50 27 20 29 7b 0a 20 20 20 d[0]=='P' ){.
ba70: 20 20 20 64 75 70 28 30 29 3b 0a 20 20 20 20 20 dup(0);.
ba80: 20 63 6c 6f 73 65 28 30 29 3b 0a 20 20 20 20 20 close(0);.
ba90: 20 6f 70 65 6e 28 7a 54 6d 70 4e 61 6d 2c 20 4f open(zTmpNam, O
baa0: 5f 52 44 4f 4e 4c 59 29 3b 0a 20 20 20 20 7d 0a _RDONLY);. }.
bab0: 0a 20 20 20 20 66 6f 72 28 69 3d 73 74 72 6c 65 . for(i=strle
bac0: 6e 28 7a 46 69 6c 65 29 2d 31 3b 20 69 3e 3d 30 n(zFile)-1; i>=0
bad0: 20 26 26 20 7a 46 69 6c 65 5b 69 5d 21 3d 27 2f && zFile[i]!='/
bae0: 27 3b 20 69 2d 2d 29 7b 7d 0a 20 20 20 20 7a 42 '; i--){}. zB
baf0: 61 73 65 46 69 6c 65 6e 61 6d 65 20 3d 20 26 7a aseFilename = &z
bb00: 46 69 6c 65 5b 69 2b 31 5d 3b 0a 20 20 20 20 69 File[i+1];. i
bb10: 66 28 20 69 3e 3d 30 20 26 26 20 73 74 72 6e 63 f( i>=0 && strnc
bb20: 6d 70 28 7a 42 61 73 65 46 69 6c 65 6e 61 6d 65 mp(zBaseFilename
bb30: 2c 22 6e 70 68 2d 22 2c 34 29 3d 3d 30 20 29 7b ,"nph-",4)==0 ){
bb40: 0a 20 20 20 20 20 20 2f 2a 20 49 66 20 74 68 65 . /* If the
bb50: 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 43 47 49 name of the CGI
bb60: 20 73 63 72 69 70 74 20 62 65 67 69 6e 73 20 77 script begins w
bb70: 69 74 68 20 22 6e 70 68 2d 22 20 74 68 65 6e 20 ith "nph-" then
bb80: 77 65 20 61 72 65 0a 20 20 20 20 20 20 2a 2a 20 we are. **
bb90: 64 65 61 6c 69 6e 67 20 77 69 74 68 20 61 20 22 dealing with a "
bba0: 6e 6f 6e 2d 70 61 72 73 65 64 20 68 65 61 64 65 non-parsed heade
bbb0: 72 73 22 20 43 47 49 20 73 63 72 69 70 74 2e 20 rs" CGI script.
bbc0: 20 4a 75 73 74 20 65 78 65 63 28 29 0a 20 20 20 Just exec().
bbd0: 20 20 20 2a 2a 20 69 74 20 64 69 72 65 63 74 6c ** it directl
bbe0: 79 20 61 6e 64 20 6c 65 74 20 69 74 20 68 61 6e y and let it han
bbf0: 64 6c 65 20 61 6c 6c 20 69 74 73 20 6f 77 6e 20 dle all its own
bc00: 68 65 61 64 65 72 20 67 65 6e 65 72 61 74 69 6f header generatio
bc10: 6e 2e 0a 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 n.. */.
bc20: 20 20 65 78 65 63 6c 28 7a 42 61 73 65 46 69 6c execl(zBaseFil
bc30: 65 6e 61 6d 65 2c 7a 42 61 73 65 46 69 6c 65 6e ename,zBaseFilen
bc40: 61 6d 65 2c 28 63 68 61 72 2a 29 30 29 3b 0a 20 ame,(char*)0);.
bc50: 20 20 20 20 20 2f 2a 20 4e 4f 54 45 3a 20 4e 6f /* NOTE: No
bc60: 20 6c 6f 67 20 65 6e 74 72 79 20 77 72 69 74 74 log entry writt
bc70: 65 6e 20 66 6f 72 20 6e 70 68 2d 20 73 63 72 69 en for nph- scri
bc80: 70 74 73 20 2a 2f 0a 20 20 20 20 20 20 65 78 69 pts */. exi
bc90: 74 28 30 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 t(0);. }..
bca0: 20 2f 2a 20 46 61 6c 6c 20 74 68 72 75 20 74 6f /* Fall thru to
bcb0: 20 68 65 72 65 20 6f 6e 6c 79 20 69 66 20 74 68 here only if th
bcc0: 69 73 20 70 72 6f 63 65 73 73 20 28 74 68 65 20 is process (the
bcd0: 73 65 72 76 65 72 29 20 69 73 20 67 6f 69 6e 67 server) is going
bce0: 0a 20 20 20 20 2a 2a 20 74 6f 20 72 65 61 64 20 . ** to read
bcf0: 61 6e 64 20 61 75 67 6d 65 6e 74 20 74 68 65 20 and augment the
bd00: 68 65 61 64 65 72 20 73 65 6e 74 20 62 61 63 6b header sent back
bd10: 20 62 79 20 74 68 65 20 43 47 49 20 70 72 6f 63 by the CGI proc
bd20: 65 73 73 2e 0a 20 20 20 20 2a 2a 20 4f 70 65 6e ess.. ** Open
bd30: 20 61 20 70 69 70 65 20 74 6f 20 72 65 63 65 69 a pipe to recei
bd40: 76 65 20 74 68 65 20 6f 75 74 70 75 74 20 66 72 ve the output fr
bd50: 6f 6d 20 74 68 65 20 43 47 49 20 70 72 6f 63 65 om the CGI proce
bd60: 73 73 2e 20 20 54 68 65 6e 0a 20 20 20 20 2a 2a ss. Then. **
bd70: 20 66 6f 72 6b 20 74 68 65 20 43 47 49 20 70 72 fork the CGI pr
bd80: 6f 63 65 73 73 2e 20 20 4f 6e 63 65 20 65 76 65 ocess. Once eve
bd90: 72 79 74 68 69 6e 67 20 69 73 20 64 6f 6e 65 2c rything is done,
bda0: 20 77 65 20 73 68 6f 75 6c 64 20 62 65 0a 20 20 we should be.
bdb0: 20 20 2a 2a 20 61 62 6c 65 20 74 6f 20 72 65 61 ** able to rea
bdc0: 64 20 74 68 65 20 6f 75 74 70 75 74 20 6f 66 20 d the output of
bdd0: 43 47 49 20 6f 6e 20 74 68 65 20 22 69 6e 22 20 CGI on the "in"
bde0: 73 74 72 65 61 6d 2e 0a 20 20 20 20 2a 2f 0a 20 stream.. */.
bdf0: 20 20 20 7b 0a 20 20 20 20 20 20 69 6e 74 20 70 {. int p
be00: 78 5b 32 5d 3b 0a 20 20 20 20 20 20 70 69 70 65 x[2];. pipe
be10: 28 70 78 29 3b 0a 20 20 20 20 20 20 69 66 28 20 (px);. if(
be20: 66 6f 72 6b 28 29 3d 3d 30 20 29 7b 0a 20 20 20 fork()==0 ){.
be30: 20 20 20 20 20 63 6c 6f 73 65 28 70 78 5b 30 5d close(px[0]
be40: 29 3b 0a 20 20 20 20 20 20 20 20 63 6c 6f 73 65 );. close
be50: 28 31 29 3b 0a 20 20 20 20 20 20 20 20 64 75 70 (1);. dup
be60: 28 70 78 5b 31 5d 29 3b 0a 20 20 20 20 20 20 20 (px[1]);.
be70: 20 63 6c 6f 73 65 28 70 78 5b 31 5d 29 3b 0a 20 close(px[1]);.
be80: 20 20 20 20 20 20 20 65 78 65 63 6c 28 7a 42 61 execl(zBa
be90: 73 65 46 69 6c 65 6e 61 6d 65 2c 20 7a 42 61 73 seFilename, zBas
bea0: 65 46 69 6c 65 6e 61 6d 65 2c 20 28 63 68 61 72 eFilename, (char
beb0: 2a 29 30 29 3b 0a 20 20 20 20 20 20 20 20 65 78 *)0);. ex
bec0: 69 74 28 30 29 3b 0a 20 20 20 20 20 20 7d 0a 20 it(0);. }.
bed0: 20 20 20 20 20 63 6c 6f 73 65 28 70 78 5b 31 5d close(px[1]
bee0: 29 3b 0a 20 20 20 20 20 20 69 6e 20 3d 20 66 64 );. in = fd
bef0: 6f 70 65 6e 28 70 78 5b 30 5d 2c 20 22 72 22 29 open(px[0], "r")
bf00: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 ;. }. if(
bf10: 69 6e 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 43 in==0 ){. C
bf20: 67 69 45 72 72 6f 72 28 29 3b 0a 20 20 20 20 7d giError();. }
bf30: 0a 0a 20 20 20 20 2f 2a 20 52 65 61 64 20 61 6e .. /* Read an
bf40: 64 20 70 72 6f 63 65 73 73 20 74 68 65 20 66 69 d process the fi
bf50: 72 73 74 20 6c 69 6e 65 20 6f 66 20 74 68 65 20 rst line of the
bf60: 68 65 61 64 65 72 20 72 65 74 75 72 6e 65 64 20 header returned
bf70: 62 79 20 74 68 65 0a 20 20 20 20 2a 2a 20 43 47 by the. ** CG
bf80: 49 20 73 63 72 69 70 74 2e 0a 20 20 20 20 2a 2f I script.. */
bf90: 0a 20 20 20 20 69 66 28 20 75 73 65 54 69 6d 65 . if( useTime
bfa0: 6f 75 74 20 29 20 61 6c 61 72 6d 28 31 35 29 3b out ) alarm(15);
bfb0: 0a 20 20 20 20 77 68 69 6c 65 28 20 66 67 65 74 . while( fget
bfc0: 73 28 7a 4c 69 6e 65 2c 73 69 7a 65 6f 66 28 7a s(zLine,sizeof(z
bfd0: 4c 69 6e 65 29 2c 69 6e 29 20 29 7b 0a 20 20 20 Line),in) ){.
bfe0: 20 20 20 69 66 28 20 73 74 72 6e 63 6d 70 28 7a if( strncmp(z
bff0: 4c 69 6e 65 2c 22 4c 6f 63 61 74 69 6f 6e 3a 22 Line,"Location:"
c000: 2c 39 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 ,9)==0 ){.
c010: 20 20 69 6e 74 20 69 3b 0a 20 20 20 20 20 20 20 int i;.
c020: 20 52 65 6d 6f 76 65 4e 65 77 6c 69 6e 65 28 7a RemoveNewline(z
c030: 4c 69 6e 65 29 3b 0a 20 20 20 20 20 20 20 20 7a Line);. z
c040: 20 3d 20 26 7a 4c 69 6e 65 5b 31 30 5d 3b 0a 20 = &zLine[10];.
c050: 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 69 73 while( is
c060: 73 70 61 63 65 28 2a 7a 29 20 29 7b 20 7a 2b 2b space(*z) ){ z++
c070: 3b 20 7d 0a 20 20 20 20 20 20 20 20 66 6f 72 28 ; }. for(
c080: 69 3d 30 3b 20 7a 5b 69 5d 3b 20 69 2b 2b 29 7b i=0; z[i]; i++){
c090: 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 7a . if( z
c0a0: 5b 69 5d 3d 3d 27 3f 27 20 29 7b 0a 20 20 20 20 [i]=='?' ){.
c0b0: 20 20 20 20 20 20 20 20 7a 51 75 65 72 79 53 75 zQuerySu
c0c0: 66 66 69 78 20 3d 20 53 74 72 44 75 70 28 22 22 ffix = StrDup(""
c0d0: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 );. }.
c0e0: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 }.
c0f0: 20 0a 20 20 20 20 20 20 20 20 69 66 28 20 7a 5b . if( z[
c100: 30 5d 3d 3d 27 2f 27 20 26 26 20 7a 5b 31 5d 3d 0]=='/' && z[1]=
c110: 3d 27 2f 27 20 29 7b 0a 20 20 20 20 20 20 20 20 ='/' ){.
c120: 20 20 2f 2a 20 54 68 65 20 73 63 68 65 6d 65 20 /* The scheme
c130: 69 73 20 6d 69 73 73 69 6e 67 2e 20 20 41 64 64 is missing. Add
c140: 20 69 74 20 69 6e 20 62 65 66 6f 72 65 20 72 65 it in before re
c150: 64 69 72 65 63 74 69 6e 67 20 2a 2f 0a 20 20 20 directing */.
c160: 20 20 20 20 20 20 20 53 74 61 72 74 52 65 73 70 StartResp
c170: 6f 6e 73 65 28 22 33 30 32 20 52 65 64 69 72 65 onse("302 Redire
c180: 63 74 22 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ct");.
c190: 6e 4f 75 74 20 2b 3d 20 70 72 69 6e 74 66 28 22 nOut += printf("
c1a0: 4c 6f 63 61 74 69 6f 6e 3a 20 25 73 3a 25 73 25 Location: %s:%s%
c1b0: 73 5c 72 5c 6e 22 2c 7a 48 74 74 70 2c 7a 2c 7a s\r\n",zHttp,z,z
c1c0: 51 75 65 72 79 53 75 66 66 69 78 29 3b 0a 20 20 QuerySuffix);.
c1d0: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 20 2f break; /
c1e0: 2a 20 44 4b 20 2a 2f 0a 20 20 20 20 20 20 20 20 * DK */.
c1f0: 20 20 4d 61 6b 65 4c 6f 67 45 6e 74 72 79 28 30 MakeLogEntry(0
c200: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 );. ret
c210: 75 72 6e 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c urn;. }el
c220: 73 65 20 69 66 28 20 7a 5b 30 5d 3d 3d 27 2f 27 se if( z[0]=='/'
c230: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 2f 2a ){. /*
c240: 20 54 68 65 20 73 63 68 65 6d 65 20 61 6e 64 20 The scheme and
c250: 6e 65 74 77 6f 72 6b 20 6c 6f 63 61 74 69 6f 6e network location
c260: 20 61 72 65 20 6d 69 73 73 69 6e 67 20 62 75 74 are missing but
c270: 20 77 65 20 68 61 76 65 0a 20 20 20 20 20 20 20 we have.
c280: 20 20 20 2a 2a 20 61 6e 20 61 62 73 6f 6c 75 74 ** an absolut
c290: 65 20 70 61 74 68 2e 20 2a 2f 0a 20 20 20 20 20 e path. */.
c2a0: 20 20 20 20 20 52 65 64 69 72 65 63 74 28 7a 2c Redirect(z,
c2b0: 20 30 29 3b 20 2f 2a 20 44 4b 20 2a 2f 0a 20 20 0); /* DK */.
c2c0: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 break;.
c2d0: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 }.
c2e0: 20 2f 2a 20 43 68 65 63 6b 20 74 6f 20 73 65 65 /* Check to see
c2f0: 20 69 66 20 74 68 65 72 65 20 69 73 20 61 20 73 if there is a s
c300: 63 68 65 6d 65 20 70 72 65 66 69 78 20 2a 2f 0a cheme prefix */.
c310: 20 20 20 20 20 20 20 20 66 6f 72 28 69 3d 30 3b for(i=0;
c320: 20 7a 5b 69 5d 20 26 26 20 7a 5b 69 5d 21 3d 27 z[i] && z[i]!='
c330: 3a 27 20 26 26 20 7a 5b 69 5d 21 3d 27 2f 27 3b :' && z[i]!='/';
c340: 20 69 2b 2b 29 7b 7d 0a 20 20 20 20 20 20 20 20 i++){}.
c350: 69 66 28 20 7a 5b 69 5d 3d 3d 27 3a 27 20 29 7b if( z[i]==':' ){
c360: 0a 20 20 20 20 20 20 20 20 20 20 2f 2a 20 57 65 . /* We
c370: 20 68 61 76 65 20 61 20 73 63 68 65 6d 65 2e 20 have a scheme.
c380: 20 41 73 73 75 6d 65 20 74 68 65 72 65 20 69 73 Assume there is
c390: 20 61 6e 20 61 62 73 6f 6c 75 74 65 20 55 52 4c an absolute URL
c3a0: 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 53 74 */. St
c3b0: 61 72 74 52 65 73 70 6f 6e 73 65 28 22 33 30 32 artResponse("302
c3c0: 20 52 65 64 69 72 65 63 74 22 29 3b 0a 20 20 20 Redirect");.
c3d0: 20 20 20 20 20 20 20 6e 4f 75 74 20 2b 3d 20 70 nOut += p
c3e0: 72 69 6e 74 66 28 22 4c 6f 63 61 74 69 6f 6e 3a rintf("Location:
c3f0: 20 25 73 25 73 5c 72 5c 6e 22 2c 7a 2c 7a 51 75 %s%s\r\n",z,zQu
c400: 65 72 79 53 75 66 66 69 78 29 3b 0a 20 20 20 20 erySuffix);.
c410: 20 20 20 20 20 20 62 72 65 61 6b 3b 20 2f 2a 20 break; /*
c420: 44 4b 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 DK */.
c430: 4d 61 6b 65 4c 6f 67 45 6e 74 72 79 28 30 29 3b MakeLogEntry(0);
c440: 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 . retur
c450: 6e 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 n;. }.
c460: 20 20 20 20 20 2f 2a 20 4d 75 73 74 20 62 65 20 /* Must be
c470: 61 20 72 65 6c 61 74 69 76 65 20 70 61 74 68 6e a relative pathn
c480: 61 6d 65 2e 20 20 43 6f 6e 73 74 72 75 63 74 20 ame. Construct
c490: 74 68 65 20 61 62 73 6f 6c 75 74 65 20 70 61 74 the absolute pat
c4a0: 68 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 2a 2a hname. **
c4b0: 20 61 6e 64 20 72 65 64 69 72 65 63 74 20 74 6f and redirect to
c4c0: 20 69 74 2e 20 2a 2f 0a 20 20 20 20 20 20 20 20 it. */.
c4d0: 69 20 3d 20 73 74 72 6c 65 6e 28 7a 52 65 61 6c i = strlen(zReal
c4e0: 53 63 72 69 70 74 29 3b 0a 20 20 20 20 20 20 20 Script);.
c4f0: 20 77 68 69 6c 65 28 20 69 3e 30 20 26 26 20 7a while( i>0 && z
c500: 52 65 61 6c 53 63 72 69 70 74 5b 69 2d 31 5d 21 RealScript[i-1]!
c510: 3d 27 2f 27 20 29 7b 20 69 2d 2d 3b 20 7d 0a 20 ='/' ){ i--; }.
c520: 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 69 3e while( i>
c530: 30 20 26 26 20 7a 52 65 61 6c 53 63 72 69 70 74 0 && zRealScript
c540: 5b 69 2d 31 5d 3d 3d 27 2f 27 20 29 7b 20 69 2d [i-1]=='/' ){ i-
c550: 2d 3b 20 7d 0a 20 20 20 20 20 20 20 20 77 68 69 -; }. whi
c560: 6c 65 28 20 2a 7a 3d 3d 27 2e 27 20 29 7b 0a 20 le( *z=='.' ){.
c570: 20 20 20 20 20 20 20 20 20 69 66 28 20 7a 5b 31 if( z[1
c580: 5d 3d 3d 27 2f 27 20 29 7b 0a 20 20 20 20 20 20 ]=='/' ){.
c590: 20 20 20 20 20 20 7a 20 2b 3d 20 32 3b 0a 20 20 z += 2;.
c5a0: 20 20 20 20 20 20 20 20 7d 65 6c 73 65 20 69 66 }else if
c5b0: 28 20 7a 5b 31 5d 3d 3d 27 2e 27 20 26 26 20 7a ( z[1]=='.' && z
c5c0: 5b 32 5d 3d 3d 27 2f 27 20 29 7b 0a 20 20 20 20 [2]=='/' ){.
c5d0: 20 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 69 while( i
c5e0: 3e 30 20 26 26 20 7a 52 65 61 6c 53 63 72 69 70 >0 && zRealScrip
c5f0: 74 5b 69 2d 31 5d 21 3d 27 2f 27 20 29 7b 20 69 t[i-1]!='/' ){ i
c600: 2d 2d 3b 20 7d 0a 20 20 20 20 20 20 20 20 20 20 --; }.
c610: 20 20 77 68 69 6c 65 28 20 69 3e 30 20 26 26 20 while( i>0 &&
c620: 7a 52 65 61 6c 53 63 72 69 70 74 5b 69 2d 31 5d zRealScript[i-1]
c630: 3d 3d 27 2f 27 20 29 7b 20 69 2d 2d 3b 20 7d 0a =='/' ){ i--; }.
c640: 20 20 20 20 20 20 20 20 20 20 20 20 7a 20 2b 3d z +=
c650: 20 33 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 65 3;. }e
c660: 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 20 20 20 lse{.
c670: 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 break;.
c680: 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 }. }.
c690: 20 20 20 20 20 20 53 74 61 72 74 52 65 73 70 6f StartRespo
c6a0: 6e 73 65 28 22 33 30 32 20 52 65 64 69 72 65 63 nse("302 Redirec
c6b0: 74 22 29 3b 0a 20 20 20 20 20 20 20 20 6e 4f 75 t");. nOu
c6c0: 74 20 2b 3d 20 70 72 69 6e 74 66 28 22 4c 6f 63 t += printf("Loc
c6d0: 61 74 69 6f 6e 3a 20 25 73 3a 2f 2f 25 73 22 2c ation: %s://%s",
c6e0: 7a 48 74 74 70 2c 7a 53 65 72 76 65 72 4e 61 6d zHttp,zServerNam
c6f0: 65 29 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 e);. if(
c700: 73 74 72 63 6d 70 28 7a 53 65 72 76 65 72 50 6f strcmp(zServerPo
c710: 72 74 2c 22 38 30 22 29 20 29 7b 0a 20 20 20 20 rt,"80") ){.
c720: 20 20 20 20 20 20 6e 4f 75 74 20 2b 3d 20 70 72 nOut += pr
c730: 69 6e 74 66 28 22 3a 25 73 22 2c 7a 53 65 72 76 intf(":%s",zServ
c740: 65 72 50 6f 72 74 29 3b 0a 20 20 20 20 20 20 20 erPort);.
c750: 20 7d 0a 20 20 20 20 20 20 20 20 6e 4f 75 74 20 }. nOut
c760: 2b 3d 20 70 72 69 6e 74 66 28 22 25 2e 2a 73 2f += printf("%.*s/
c770: 25 73 25 73 5c 72 5c 6e 5c 72 5c 6e 22 2c 69 2c %s%s\r\n\r\n",i,
c780: 7a 52 65 61 6c 53 63 72 69 70 74 2c 7a 2c 7a 51 zRealScript,z,zQ
c790: 75 65 72 79 53 75 66 66 69 78 29 3b 0a 20 20 20 uerySuffix);.
c7a0: 20 20 20 20 20 4d 61 6b 65 4c 6f 67 45 6e 74 72 MakeLogEntr
c7b0: 79 28 30 29 3b 0a 20 20 20 20 20 20 20 20 72 65 y(0);. re
c7c0: 74 75 72 6e 3b 0a 20 20 20 20 20 20 7d 65 6c 73 turn;. }els
c7d0: 65 20 69 66 28 20 73 74 72 6e 63 6d 70 28 7a 4c e if( strncmp(zL
c7e0: 69 6e 65 2c 22 53 74 61 74 75 73 3a 22 2c 37 29 ine,"Status:",7)
c7f0: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20 69 ==0 ){. i
c800: 6e 74 20 69 3b 0a 20 20 20 20 20 20 20 20 66 6f nt i;. fo
c810: 72 28 69 3d 37 3b 20 69 73 73 70 61 63 65 28 7a r(i=7; isspace(z
c820: 4c 69 6e 65 5b 69 5d 29 3b 20 69 2b 2b 29 7b 7d Line[i]); i++){}
c830: 0a 20 20 20 20 20 20 20 20 6e 4f 75 74 20 2b 3d . nOut +=
c840: 20 70 72 69 6e 74 66 28 22 25 73 20 25 73 22 2c printf("%s %s",
c850: 20 7a 50 72 6f 74 6f 63 6f 6c 2c 20 26 7a 4c 69 zProtocol, &zLi
c860: 6e 65 5b 69 5d 29 3b 0a 20 20 20 20 20 20 20 20 ne[i]);.
c870: 73 74 72 6e 63 70 79 28 7a 52 65 70 6c 79 53 74 strncpy(zReplySt
c880: 61 74 75 73 2c 20 26 7a 4c 69 6e 65 5b 69 5d 2c atus, &zLine[i],
c890: 20 33 29 3b 0a 20 20 20 20 20 20 20 20 7a 52 65 3);. zRe
c8a0: 70 6c 79 53 74 61 74 75 73 5b 33 5d 20 3d 20 30 plyStatus[3] = 0
c8b0: 3b 0a 20 20 20 20 20 20 20 20 73 74 61 74 75 73 ;. status
c8c0: 53 65 6e 74 20 3d 20 31 3b 0a 20 20 20 20 20 20 Sent = 1;.
c8d0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d break;. }
c8e0: 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 69 6e else{. in
c8f0: 74 20 69 3b 0a 20 20 20 20 20 20 20 20 53 74 61 t i;. Sta
c900: 72 74 52 65 73 70 6f 6e 73 65 28 22 32 30 30 20 rtResponse("200
c910: 4f 4b 22 29 3b 0a 20 20 20 20 20 20 20 20 6e 4f OK");. nO
c920: 75 74 20 2b 3d 20 70 72 69 6e 74 66 28 22 25 73 ut += printf("%s
c930: 22 2c 7a 4c 69 6e 65 29 3b 0a 20 20 20 20 20 20 ",zLine);.
c940: 20 20 66 6f 72 28 69 3d 30 3b 20 7a 4c 69 6e 65 for(i=0; zLine
c950: 5b 69 5d 20 26 26 20 21 69 73 73 70 61 63 65 28 [i] && !isspace(
c960: 7a 4c 69 6e 65 5b 69 5d 29 20 26 26 20 7a 4c 69 zLine[i]) && zLi
c970: 6e 65 5b 69 5d 21 3d 27 3a 27 3b 20 69 2b 2b 29 ne[i]!=':'; i++)
c980: 7b 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20 69 {}. if( i
c990: 3c 32 20 7c 7c 20 7a 4c 69 6e 65 5b 69 5d 21 3d <2 || zLine[i]!=
c9a0: 27 3a 27 20 29 20 62 72 65 61 6b 3b 0a 20 20 20 ':' ) break;.
c9b0: 20 20 20 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 }. }..
c9c0: 2f 2a 20 43 6f 70 79 20 65 76 65 72 79 74 68 69 /* Copy everythi
c9d0: 6e 67 20 65 6c 73 65 20 74 68 72 75 20 77 69 74 ng else thru wit
c9e0: 68 6f 75 74 20 63 68 61 6e 67 65 20 6f 72 20 61 hout change or a
c9f0: 6e 61 6c 79 73 69 73 2e 0a 20 20 20 20 2a 2f 0a nalysis.. */.
ca00: 20 20 20 20 69 66 28 20 75 73 65 54 69 6d 65 6f if( useTimeo
ca10: 75 74 20 29 20 61 6c 61 72 6d 28 36 30 2a 35 29 ut ) alarm(60*5)
ca20: 3b 0a 20 20 20 20 77 68 69 6c 65 28 20 28 63 20 ;. while( (c
ca30: 3d 20 67 65 74 63 28 69 6e 29 29 21 3d 45 4f 46 = getc(in))!=EOF
ca40: 20 29 7b 0a 20 20 20 20 20 20 70 75 74 63 28 63 ){. putc(c
ca50: 2c 73 74 64 6f 75 74 29 3b 0a 20 20 20 20 20 20 ,stdout);.
ca60: 6e 4f 75 74 2b 2b 3b 0a 20 20 20 20 7d 0a 20 20 nOut++;. }.
ca70: 20 20 66 63 6c 6f 73 65 28 69 6e 29 3b 0a 20 20 fclose(in);.
ca80: 7d 65 6c 73 65 20 69 66 28 20 63 6f 75 6e 74 53 }else if( countS
ca90: 6c 61 73 68 65 73 28 7a 52 65 61 6c 53 63 72 69 lashes(zRealScri
caa0: 70 74 29 21 3d 63 6f 75 6e 74 53 6c 61 73 68 65 pt)!=countSlashe
cab0: 73 28 7a 53 63 72 69 70 74 29 20 29 7b 0a 20 20 s(zScript) ){.
cac0: 20 20 2f 2a 20 49 66 20 74 68 65 20 72 65 71 75 /* If the requ
cad0: 65 73 74 20 55 52 49 20 66 6f 72 20 73 74 61 74 est URI for stat
cae0: 69 63 20 63 6f 6e 74 65 6e 74 20 63 6f 6e 74 61 ic content conta
caf0: 69 6e 73 20 6d 61 74 65 72 69 61 6c 20 70 61 73 ins material pas
cb00: 74 20 74 68 65 0a 20 20 20 20 2a 2a 20 61 63 74 t the. ** act
cb10: 75 61 6c 20 63 6f 6e 74 65 6e 74 20 66 69 6c 65 ual content file
cb20: 20 6e 61 6d 65 2c 20 72 65 70 6f 72 74 20 74 68 name, report th
cb30: 61 74 20 61 73 20 61 20 34 30 34 20 65 72 72 6f at as a 404 erro
cb40: 72 2e 20 2a 2f 0a 20 20 20 20 4e 6f 74 46 6f 75 r. */. NotFou
cb50: 6e 64 28 5f 5f 4c 49 4e 45 5f 5f 29 3b 0a 20 20 nd(__LINE__);.
cb60: 7d 65 6c 73 65 7b 0a 20 20 20 20 2f 2a 20 49 66 }else{. /* If
cb70: 20 69 74 20 69 73 6e 27 74 20 65 78 65 63 75 74 it isn't execut
cb80: 61 62 6c 65 20 74 68 65 6e 20 69 74 0a 20 20 20 able then it.
cb90: 20 2a 2a 20 6d 75 73 74 20 61 20 73 69 6d 70 6c ** must a simpl
cba0: 65 20 66 69 6c 65 20 74 68 61 74 20 6e 65 65 64 e file that need
cbb0: 73 20 74 6f 20 62 65 20 63 6f 70 69 65 64 20 74 s to be copied t
cbc0: 6f 20 6f 75 74 70 75 74 2e 0a 20 20 20 20 2a 2f o output.. */
cbd0: 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 . const char
cbe0: 2a 7a 43 6f 6e 74 65 6e 74 54 79 70 65 20 3d 20 *zContentType =
cbf0: 47 65 74 4d 69 6d 65 54 79 70 65 28 7a 46 69 6c GetMimeType(zFil
cc00: 65 2c 20 6c 65 6e 46 69 6c 65 29 3b 0a 0a 20 20 e, lenFile);..
cc10: 20 20 69 66 28 20 7a 54 6d 70 4e 61 6d 20 29 20 if( zTmpNam )
cc20: 75 6e 6c 69 6e 6b 28 7a 54 6d 70 4e 61 6d 29 3b unlink(zTmpNam);
cc30: 0a 20 20 20 20 69 6e 20 3d 20 66 6f 70 65 6e 28 . in = fopen(
cc40: 7a 46 69 6c 65 2c 22 72 22 29 3b 0a 20 20 20 20 zFile,"r");.
cc50: 69 66 28 20 69 6e 3d 3d 30 20 29 20 4e 6f 74 46 if( in==0 ) NotF
cc60: 6f 75 6e 64 28 5f 5f 4c 49 4e 45 5f 5f 29 3b 0a ound(__LINE__);.
cc70: 20 20 20 20 53 74 61 72 74 52 65 73 70 6f 6e 73 StartRespons
cc80: 65 28 22 32 30 30 20 4f 4b 22 29 3b 0a 20 20 20 e("200 OK");.
cc90: 20 6e 4f 75 74 20 2b 3d 20 44 61 74 65 54 61 67 nOut += DateTag
cca0: 28 22 4c 61 73 74 2d 4d 6f 64 69 66 69 65 64 22 ("Last-Modified"
ccb0: 2c 20 73 74 61 74 62 75 66 2e 73 74 5f 6d 74 69 , statbuf.st_mti
ccc0: 6d 65 29 3b 0a 20 20 20 20 6e 4f 75 74 20 2b 3d me);. nOut +=
ccd0: 20 70 72 69 6e 74 66 28 22 43 6f 6e 74 65 6e 74 printf("Content
cce0: 2d 74 79 70 65 3a 20 25 73 5c 72 5c 6e 22 2c 7a -type: %s\r\n",z
ccf0: 43 6f 6e 74 65 6e 74 54 79 70 65 29 3b 0a 20 20 ContentType);.
cd00: 20 20 6e 4f 75 74 20 2b 3d 20 70 72 69 6e 74 66 nOut += printf
cd10: 28 22 43 6f 6e 74 65 6e 74 2d 6c 65 6e 67 74 68 ("Content-length
cd20: 3a 20 25 64 5c 72 5c 6e 5c 72 5c 6e 22 2c 28 69 : %d\r\n\r\n",(i
cd30: 6e 74 29 73 74 61 74 62 75 66 2e 73 74 5f 73 69 nt)statbuf.st_si
cd40: 7a 65 29 3b 0a 20 20 20 20 66 66 6c 75 73 68 28 ze);. fflush(
cd50: 73 74 64 6f 75 74 29 3b 0a 20 20 20 20 69 66 28 stdout);. if(
cd60: 20 73 74 72 63 6d 70 28 7a 4d 65 74 68 6f 64 2c strcmp(zMethod,
cd70: 22 48 45 41 44 22 29 3d 3d 30 20 29 7b 0a 20 20 "HEAD")==0 ){.
cd80: 20 20 20 20 4d 61 6b 65 4c 6f 67 45 6e 74 72 79 MakeLogEntry
cd90: 28 30 29 3b 0a 20 20 20 20 20 20 66 63 6c 6f 73 (0);. fclos
cda0: 65 28 69 6e 29 3b 0a 20 20 20 20 20 20 72 65 74 e(in);. ret
cdb0: 75 72 6e 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 urn;. }. i
cdc0: 66 28 20 75 73 65 54 69 6d 65 6f 75 74 20 29 20 f( useTimeout )
cdd0: 61 6c 61 72 6d 28 33 30 20 2b 20 73 74 61 74 62 alarm(30 + statb
cde0: 75 66 2e 73 74 5f 73 69 7a 65 2f 31 30 30 30 29 uf.st_size/1000)
cdf0: 3b 0a 23 69 66 64 65 66 20 6c 69 6e 75 78 0a 20 ;.#ifdef linux.
ce00: 20 20 20 7b 0a 20 20 20 20 20 20 6f 66 66 5f 74 {. off_t
ce10: 20 6f 66 66 73 65 74 20 3d 20 30 3b 0a 20 20 20 offset = 0;.
ce20: 20 20 20 6e 4f 75 74 20 2b 3d 20 73 65 6e 64 66 nOut += sendf
ce30: 69 6c 65 28 66 69 6c 65 6e 6f 28 73 74 64 6f 75 ile(fileno(stdou
ce40: 74 29 2c 20 66 69 6c 65 6e 6f 28 69 6e 29 2c 20 t), fileno(in),
ce50: 26 6f 66 66 73 65 74 2c 20 73 74 61 74 62 75 66 &offset, statbuf
ce60: 2e 73 74 5f 73 69 7a 65 29 3b 0a 20 20 20 20 7d .st_size);. }
ce70: 0a 23 65 6c 73 65 0a 20 20 20 20 77 68 69 6c 65 .#else. while
ce80: 28 20 28 63 20 3d 20 67 65 74 63 28 69 6e 29 29 ( (c = getc(in))
ce90: 21 3d 45 4f 46 20 29 7b 0a 20 20 20 20 20 20 70 !=EOF ){. p
cea0: 75 74 63 28 63 2c 73 74 64 6f 75 74 29 3b 0a 20 utc(c,stdout);.
ceb0: 20 20 20 20 20 6e 4f 75 74 2b 2b 3b 0a 20 20 20 nOut++;.
cec0: 20 7d 0a 23 65 6e 64 69 66 0a 20 20 20 20 66 63 }.#endif. fc
ced0: 6c 6f 73 65 28 69 6e 29 3b 0a 20 20 7d 0a 20 20 lose(in);. }.
cee0: 66 66 6c 75 73 68 28 73 74 64 6f 75 74 29 3b 0a fflush(stdout);.
cef0: 20 20 4d 61 6b 65 4c 6f 67 45 6e 74 72 79 28 30 MakeLogEntry(0
cf00: 29 3b 0a 0a 20 20 2f 2a 20 54 68 65 20 6e 65 78 );.. /* The nex
cf10: 74 20 72 65 71 75 65 73 74 20 6d 75 73 74 20 61 t request must a
cf20: 72 72 69 76 65 20 77 69 74 68 69 6e 20 33 30 20 rrive within 30
cf30: 73 65 63 6f 6e 64 73 20 6f 72 20 77 65 20 63 6c seconds or we cl
cf40: 6f 73 65 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 ose the connecti
cf50: 6f 6e 0a 20 20 2a 2f 0a 20 20 6f 6d 69 74 4c 6f on. */. omitLo
cf60: 67 20 3d 20 31 3b 0a 20 20 69 66 28 20 75 73 65 g = 1;. if( use
cf70: 54 69 6d 65 6f 75 74 20 29 20 61 6c 61 72 6d 28 Timeout ) alarm(
cf80: 33 30 29 3b 0a 7d 0a 0a 23 64 65 66 69 6e 65 20 30);.}..#define
cf90: 4d 41 58 5f 50 41 52 41 4c 4c 45 4c 20 35 30 20 MAX_PARALLEL 50
cfa0: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 73 69 /* Number of si
cfb0: 6d 75 6c 74 61 6e 65 6f 75 73 20 63 68 69 6c 64 multaneous child
cfc0: 72 65 6e 20 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 41 6c ren */../*.** Al
cfd0: 6c 20 70 6f 73 73 69 62 6c 65 20 66 6f 72 6d 73 l possible forms
cfe0: 20 6f 66 20 61 6e 20 49 50 20 61 64 64 72 65 73 of an IP addres
cff0: 73 2e 20 20 4e 65 65 64 65 64 20 74 6f 20 77 6f s. Needed to wo
d000: 72 6b 20 61 72 6f 75 6e 64 20 47 43 43 20 73 74 rk around GCC st
d010: 72 69 63 74 0a 2a 2a 20 61 6c 69 61 73 69 6e 67 rict.** aliasing
d020: 20 72 75 6c 65 73 2e 0a 2a 2f 0a 74 79 70 65 64 rules..*/.typed
d030: 65 66 20 75 6e 69 6f 6e 20 7b 0a 20 20 73 74 72 ef union {. str
d040: 75 63 74 20 73 6f 63 6b 61 64 64 72 20 73 61 3b uct sockaddr sa;
d050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
d060: 20 41 62 73 74 72 61 63 74 20 73 75 70 65 72 63 Abstract superc
d070: 6c 61 73 73 20 2a 2f 0a 20 20 73 74 72 75 63 74 lass */. struct
d080: 20 73 6f 63 6b 61 64 64 72 5f 69 6e 20 73 61 34 sockaddr_in sa4
d090: 3b 20 20 20 20 20 20 20 20 20 20 2f 2a 20 49 50 ; /* IP
d0a0: 76 34 20 2a 2f 0a 20 20 73 74 72 75 63 74 20 73 v4 */. struct s
d0b0: 6f 63 6b 61 64 64 72 5f 69 6e 36 20 73 61 36 3b ockaddr_in6 sa6;
d0c0: 20 20 20 20 20 20 20 20 20 2f 2a 20 49 50 76 36 /* IPv6
d0d0: 20 2a 2f 0a 20 20 73 74 72 75 63 74 20 73 6f 63 */. struct soc
d0e0: 6b 61 64 64 72 5f 73 74 6f 72 61 67 65 20 73 61 kaddr_storage sa
d0f0: 73 3b 20 20 20 20 20 2f 2a 20 53 68 6f 75 6c 64 s; /* Should
d100: 20 62 65 20 74 68 65 20 6d 61 78 69 6d 75 6d 20 be the maximum
d110: 6f 66 20 74 68 65 20 61 62 6f 76 65 20 33 20 2a of the above 3 *
d120: 2f 0a 7d 20 61 64 64 72 65 73 73 3b 0a 0a 2f 2a /.} address;../*
d130: 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 20 61 6e .** Implement an
d140: 20 48 54 54 50 20 73 65 72 76 65 72 20 64 61 65 HTTP server dae
d150: 6d 6f 6e 20 6c 69 73 74 65 6e 69 6e 67 20 6f 6e mon listening on
d160: 20 70 6f 72 74 20 69 50 6f 72 74 2e 0a 2a 2a 0a port iPort..**.
d170: 2a 2a 20 41 73 20 6e 65 77 20 63 6f 6e 6e 65 63 ** As new connec
d180: 74 69 6f 6e 73 20 61 72 72 69 76 65 2c 20 66 6f tions arrive, fo
d190: 72 6b 20 61 20 63 68 69 6c 64 20 61 6e 64 20 6c rk a child and l
d1a0: 65 74 20 63 68 69 6c 64 20 72 65 74 75 72 6e 0a et child return.
d1b0: 2a 2a 20 6f 75 74 20 6f 66 20 74 68 69 73 20 70 ** out of this p
d1c0: 72 6f 63 65 64 75 72 65 20 63 61 6c 6c 2e 20 20 rocedure call.
d1d0: 54 68 65 20 63 68 69 6c 64 20 77 69 6c 6c 20 68 The child will h
d1e0: 61 6e 64 6c 65 20 74 68 65 20 72 65 71 75 65 73 andle the reques
d1f0: 74 2e 0a 2a 2a 20 54 68 65 20 70 61 72 65 6e 74 t..** The parent
d200: 20 6e 65 76 65 72 20 72 65 74 75 72 6e 73 20 66 never returns f
d210: 72 6f 6d 20 74 68 69 73 20 70 72 6f 63 65 64 75 rom this procedu
d220: 72 65 2e 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e re..**.** Return
d230: 20 30 20 74 6f 20 65 61 63 68 20 63 68 69 6c 64 0 to each child
d240: 20 61 73 20 69 74 20 72 75 6e 73 2e 20 20 49 66 as it runs. If
d250: 20 75 6e 61 62 6c 65 20 74 6f 20 65 73 74 61 62 unable to estab
d260: 6c 69 73 68 20 61 0a 2a 2a 20 6c 69 73 74 65 6e lish a.** listen
d270: 69 6e 67 20 73 6f 63 6b 65 74 2c 20 72 65 74 75 ing socket, retu
d280: 72 6e 20 6e 6f 6e 2d 7a 65 72 6f 2e 0a 2a 2f 0a rn non-zero..*/.
d290: 69 6e 74 20 68 74 74 70 5f 73 65 72 76 65 72 28 int http_server(
d2a0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 50 6f 72 const char *zPor
d2b0: 74 2c 20 69 6e 74 20 6c 6f 63 61 6c 4f 6e 6c 79 t, int localOnly
d2c0: 29 7b 0a 20 20 69 6e 74 20 6c 69 73 74 65 6e 65 ){. int listene
d2d0: 72 5b 32 30 5d 3b 20 20 20 20 20 20 20 20 20 20 r[20];
d2e0: 20 20 2f 2a 20 54 68 65 20 73 65 72 76 65 72 20 /* The server
d2f0: 73 6f 63 6b 65 74 73 20 2a 2f 0a 20 20 69 6e 74 sockets */. int
d300: 20 63 6f 6e 6e 65 63 74 69 6f 6e 3b 20 20 20 20 connection;
d310: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 41 20 73 /* A s
d320: 6f 63 6b 65 74 20 66 6f 72 20 65 61 63 68 20 69 ocket for each i
d330: 6e 64 69 76 69 64 75 61 6c 20 63 6f 6e 6e 65 63 ndividual connec
d340: 74 69 6f 6e 20 2a 2f 0a 20 20 66 64 5f 73 65 74 tion */. fd_set
d350: 20 72 65 61 64 66 64 73 3b 20 20 20 20 20 20 20 readfds;
d360: 20 20 20 20 20 20 20 2f 2a 20 53 65 74 20 6f 66 /* Set of
d370: 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 file descriptor
d380: 73 20 66 6f 72 20 73 65 6c 65 63 74 28 29 20 2a s for select() *
d390: 2f 0a 20 20 61 64 64 72 65 73 73 20 69 6e 61 64 /. address inad
d3a0: 64 72 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 dr;
d3b0: 20 2f 2a 20 52 65 6d 6f 74 65 20 61 64 64 72 65 /* Remote addre
d3c0: 73 73 20 2a 2f 0a 20 20 73 6f 63 6b 6c 65 6e 5f ss */. socklen_
d3d0: 74 20 6c 65 6e 61 64 64 72 3b 20 20 20 20 20 20 t lenaddr;
d3e0: 20 20 20 20 20 2f 2a 20 4c 65 6e 67 74 68 20 6f /* Length o
d3f0: 66 20 74 68 65 20 69 6e 61 64 64 72 20 73 74 72 f the inaddr str
d400: 75 63 74 75 72 65 20 2a 2f 0a 20 20 69 6e 74 20 ucture */. int
d410: 63 68 69 6c 64 3b 20 20 20 20 20 20 20 20 20 20 child;
d420: 20 20 20 20 20 20 20 20 20 2f 2a 20 50 49 44 20 /* PID
d430: 6f 66 20 74 68 65 20 63 68 69 6c 64 20 70 72 6f of the child pro
d440: 63 65 73 73 20 2a 2f 0a 20 20 69 6e 74 20 6e 63 cess */. int nc
d450: 68 69 6c 64 72 65 6e 20 3d 20 30 3b 20 20 20 20 hildren = 0;
d460: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
d470: 20 6f 66 20 63 68 69 6c 64 20 70 72 6f 63 65 73 of child proces
d480: 73 65 73 20 2a 2f 0a 20 20 73 74 72 75 63 74 20 ses */. struct
d490: 74 69 6d 65 76 61 6c 20 64 65 6c 61 79 3b 20 20 timeval delay;
d4a0: 20 20 20 20 20 20 2f 2a 20 48 6f 77 20 6c 6f 6e /* How lon
d4b0: 67 20 74 6f 20 77 61 69 74 20 69 6e 73 69 64 65 g to wait inside
d4c0: 20 73 65 6c 65 63 74 28 29 20 2a 2f 0a 20 20 69 select() */. i
d4d0: 6e 74 20 6f 70 74 20 3d 20 31 3b 20 20 20 20 20 nt opt = 1;
d4e0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 73 /* s
d4f0: 65 74 73 6f 63 6b 6f 70 74 20 66 6c 61 67 20 2a etsockopt flag *
d500: 2f 0a 20 20 73 74 72 75 63 74 20 61 64 64 72 69 /. struct addri
d510: 6e 66 6f 20 73 48 69 6e 74 73 3b 20 20 20 20 20 nfo sHints;
d520: 20 2f 2a 20 41 64 64 72 65 73 73 20 68 69 6e 74 /* Address hint
d530: 73 20 2a 2f 0a 20 20 73 74 72 75 63 74 20 61 64 s */. struct ad
d540: 64 72 69 6e 66 6f 20 2a 70 41 64 64 72 73 2c 20 drinfo *pAddrs,
d550: 2a 70 3b 20 2f 2a 20 2a 2f 0a 20 20 69 6e 74 20 *p; /* */. int
d560: 72 63 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 rc;
d570: 20 20 20 20 20 20 20 20 20 2f 2a 20 52 65 73 75 /* Resu
d580: 6c 74 20 63 6f 64 65 20 2a 2f 0a 20 20 69 6e 74 lt code */. int
d590: 20 69 2c 20 6e 3b 0a 20 20 69 6e 74 20 6d 61 78 i, n;. int max
d5a0: 46 64 20 3d 20 2d 31 3b 0a 20 20 0a 20 20 6d 65 Fd = -1;. . me
d5b0: 6d 73 65 74 28 26 73 48 69 6e 74 73 2c 20 30 2c mset(&sHints, 0,
d5c0: 20 73 69 7a 65 6f 66 28 73 48 69 6e 74 73 29 29 sizeof(sHints))
d5d0: 3b 0a 20 20 69 66 28 20 69 70 76 34 4f 6e 6c 79 ;. if( ipv4Only
d5e0: 20 29 7b 0a 20 20 20 20 73 48 69 6e 74 73 2e 61 ){. sHints.a
d5f0: 69 5f 66 61 6d 69 6c 79 20 3d 20 50 46 5f 49 4e i_family = PF_IN
d600: 45 54 3b 0a 20 20 20 20 2f 2a 70 72 69 6e 74 66 ET;. /*printf
d610: 28 22 69 70 76 34 20 6f 6e 6c 79 5c 6e 22 29 3b ("ipv4 only\n");
d620: 2a 2f 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 69 */. }else if( i
d630: 70 76 36 4f 6e 6c 79 20 29 7b 0a 20 20 20 20 73 pv6Only ){. s
d640: 48 69 6e 74 73 2e 61 69 5f 66 61 6d 69 6c 79 20 Hints.ai_family
d650: 3d 20 50 46 5f 49 4e 45 54 36 3b 0a 20 20 20 20 = PF_INET6;.
d660: 2f 2a 70 72 69 6e 74 66 28 22 69 70 76 36 20 6f /*printf("ipv6 o
d670: 6e 6c 79 5c 6e 22 29 3b 2a 2f 0a 20 20 7d 65 6c nly\n");*/. }el
d680: 73 65 7b 0a 20 20 20 20 73 48 69 6e 74 73 2e 61 se{. sHints.a
d690: 69 5f 66 61 6d 69 6c 79 20 3d 20 50 46 5f 55 4e i_family = PF_UN
d6a0: 53 50 45 43 3b 0a 20 20 7d 0a 20 20 73 48 69 6e SPEC;. }. sHin
d6b0: 74 73 2e 61 69 5f 73 6f 63 6b 74 79 70 65 20 3d ts.ai_socktype =
d6c0: 20 53 4f 43 4b 5f 53 54 52 45 41 4d 3b 0a 20 20 SOCK_STREAM;.
d6d0: 73 48 69 6e 74 73 2e 61 69 5f 66 6c 61 67 73 20 sHints.ai_flags
d6e0: 3d 20 41 49 5f 50 41 53 53 49 56 45 3b 0a 20 20 = AI_PASSIVE;.
d6f0: 73 48 69 6e 74 73 2e 61 69 5f 70 72 6f 74 6f 63 sHints.ai_protoc
d700: 6f 6c 20 3d 20 30 3b 0a 20 20 72 63 20 3d 20 67 ol = 0;. rc = g
d710: 65 74 61 64 64 72 69 6e 66 6f 28 6c 6f 63 61 6c etaddrinfo(local
d720: 4f 6e 6c 79 20 3f 20 22 6c 6f 63 61 6c 68 6f 73 Only ? "localhos
d730: 74 22 3a 20 30 2c 20 7a 50 6f 72 74 2c 20 26 73 t": 0, zPort, &s
d740: 48 69 6e 74 73 2c 20 26 70 41 64 64 72 73 29 3b Hints, &pAddrs);
d750: 0a 20 20 69 66 28 20 72 63 20 29 7b 0a 20 20 20 . if( rc ){.
d760: 20 66 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c fprintf(stderr,
d770: 20 22 63 6f 75 6c 64 20 6e 6f 74 20 67 65 74 20 "could not get
d780: 61 64 64 72 20 69 6e 66 6f 3a 20 25 73 22 2c 20 addr info: %s",
d790: 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 63 21 . rc!
d7a0: 3d 45 41 49 5f 53 59 53 54 45 4d 20 3f 20 67 61 =EAI_SYSTEM ? ga
d7b0: 69 5f 73 74 72 65 72 72 6f 72 28 72 63 29 20 3a i_strerror(rc) :
d7c0: 20 73 74 72 65 72 72 6f 72 28 65 72 72 6e 6f 29 strerror(errno)
d7d0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 31 3b );. return 1;
d7e0: 0a 20 20 7d 0a 20 20 66 6f 72 28 6e 3d 30 2c 20 . }. for(n=0,
d7f0: 70 3d 70 41 64 64 72 73 3b 20 6e 3c 28 69 6e 74 p=pAddrs; n<(int
d800: 29 28 73 69 7a 65 6f 66 28 6c 69 73 74 65 6e 65 )(sizeof(listene
d810: 72 29 2f 73 69 7a 65 6f 66 28 6c 69 73 74 65 6e r)/sizeof(listen
d820: 65 72 5b 30 5d 29 29 20 26 26 20 70 21 3d 30 3b er[0])) && p!=0;
d830: 0a 20 20 20 20 20 20 20 20 70 3d 70 2d 3e 61 69 . p=p->ai
d840: 5f 6e 65 78 74 29 7b 0a 20 20 20 20 6c 69 73 74 _next){. list
d850: 65 6e 65 72 5b 6e 5d 20 3d 20 73 6f 63 6b 65 74 ener[n] = socket
d860: 28 70 2d 3e 61 69 5f 66 61 6d 69 6c 79 2c 20 70 (p->ai_family, p
d870: 2d 3e 61 69 5f 73 6f 63 6b 74 79 70 65 2c 20 70 ->ai_socktype, p
d880: 2d 3e 61 69 5f 70 72 6f 74 6f 63 6f 6c 29 3b 0a ->ai_protocol);.
d890: 20 20 20 20 69 66 28 20 6c 69 73 74 65 6e 65 72 if( listener
d8a0: 5b 6e 5d 3e 3d 30 20 29 7b 0a 20 20 20 20 20 20 [n]>=0 ){.
d8b0: 2f 2a 20 69 66 20 77 65 20 63 61 6e 27 74 20 74 /* if we can't t
d8c0: 65 72 6d 69 6e 61 74 65 20 6e 69 63 65 6c 79 2c erminate nicely,
d8d0: 20 61 74 20 6c 65 61 73 74 20 61 6c 6c 6f 77 20 at least allow
d8e0: 74 68 65 20 73 6f 63 6b 65 74 20 74 6f 20 62 65 the socket to be
d8f0: 20 72 65 75 73 65 64 20 2a 2f 0a 20 20 20 20 20 reused */.
d900: 20 73 65 74 73 6f 63 6b 6f 70 74 28 6c 69 73 74 setsockopt(list
d910: 65 6e 65 72 5b 6e 5d 2c 20 53 4f 4c 5f 53 4f 43 ener[n], SOL_SOC
d920: 4b 45 54 2c 20 53 4f 5f 52 45 55 53 45 41 44 44 KET, SO_REUSEADD
d930: 52 2c 26 6f 70 74 2c 20 73 69 7a 65 6f 66 28 6f R,&opt, sizeof(o
d940: 70 74 29 29 3b 0a 20 20 20 20 20 20 0a 23 69 66 pt));. .#if
d950: 20 64 65 66 69 6e 65 64 28 49 50 56 36 5f 56 36 defined(IPV6_V6
d960: 4f 4e 4c 59 29 0a 20 20 20 20 20 20 69 66 28 20 ONLY). if(
d970: 70 2d 3e 61 69 5f 66 61 6d 69 6c 79 3d 3d 41 46 p->ai_family==AF
d980: 5f 49 4e 45 54 36 20 29 7b 0a 20 20 20 20 20 20 _INET6 ){.
d990: 20 20 69 6e 74 20 76 36 6f 6e 6c 79 20 3d 20 31 int v6only = 1
d9a0: 3b 0a 20 20 20 20 20 20 20 20 73 65 74 73 6f 63 ;. setsoc
d9b0: 6b 6f 70 74 28 6c 69 73 74 65 6e 65 72 5b 6e 5d kopt(listener[n]
d9c0: 2c 20 49 50 50 52 4f 54 4f 5f 49 50 56 36 2c 20 , IPPROTO_IPV6,
d9d0: 49 50 56 36 5f 56 36 4f 4e 4c 59 2c 0a 20 20 20 IPV6_V6ONLY,.
d9e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
d9f0: 20 26 76 36 6f 6e 6c 79 2c 20 73 69 7a 65 6f 66 &v6only, sizeof
da00: 28 76 36 6f 6e 6c 79 29 29 3b 0a 20 20 20 20 20 (v6only));.
da10: 20 7d 0a 23 65 6e 64 69 66 0a 20 20 20 20 20 20 }.#endif.
da20: 0a 20 20 20 20 20 20 69 66 28 20 62 69 6e 64 28 . if( bind(
da30: 6c 69 73 74 65 6e 65 72 5b 6e 5d 2c 20 70 2d 3e listener[n], p->
da40: 61 69 5f 61 64 64 72 2c 20 70 2d 3e 61 69 5f 61 ai_addr, p->ai_a
da50: 64 64 72 6c 65 6e 29 3c 30 20 29 7b 0a 20 20 20 ddrlen)<0 ){.
da60: 20 20 20 20 20 70 72 69 6e 74 66 28 22 62 69 6e printf("bin
da70: 64 20 66 61 69 6c 65 64 3a 20 25 73 5c 6e 22 2c d failed: %s\n",
da80: 20 73 74 72 65 72 72 6f 72 28 65 72 72 6e 6f 29 strerror(errno)
da90: 29 3b 0a 20 20 20 20 20 20 20 20 63 6c 6f 73 65 );. close
daa0: 28 6c 69 73 74 65 6e 65 72 5b 6e 5d 29 3b 0a 20 (listener[n]);.
dab0: 20 20 20 20 20 20 20 63 6f 6e 74 69 6e 75 65 3b continue;
dac0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69 . }. i
dad0: 66 28 20 6c 69 73 74 65 6e 28 6c 69 73 74 65 6e f( listen(listen
dae0: 65 72 5b 6e 5d 2c 20 32 30 29 3c 30 20 29 7b 0a er[n], 20)<0 ){.
daf0: 20 20 20 20 20 20 20 20 70 72 69 6e 74 66 28 22 printf("
db00: 6c 69 73 74 65 6e 28 29 20 66 61 69 6c 65 64 3a listen() failed:
db10: 20 25 73 5c 6e 22 2c 20 73 74 72 65 72 72 6f 72 %s\n", strerror
db20: 28 65 72 72 6e 6f 29 29 3b 0a 20 20 20 20 20 20 (errno));.
db30: 20 20 63 6c 6f 73 65 28 6c 69 73 74 65 6e 65 72 close(listener
db40: 5b 6e 5d 29 3b 0a 20 20 20 20 20 20 20 20 63 6f [n]);. co
db50: 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 7d 0a ntinue;. }.
db60: 20 20 20 20 20 20 6e 2b 2b 3b 0a 20 20 20 20 7d n++;. }
db70: 0a 20 20 7d 0a 20 20 69 66 28 20 6e 3d 3d 30 20 . }. if( n==0
db80: 29 7b 0a 20 20 20 20 66 70 72 69 6e 74 66 28 73 ){. fprintf(s
db90: 74 64 65 72 72 2c 20 22 63 61 6e 6e 6f 74 20 6f tderr, "cannot o
dba0: 70 65 6e 20 61 6e 79 20 73 6f 63 6b 65 74 73 5c pen any sockets\
dbb0: 6e 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 n");. return
dbc0: 31 3b 0a 20 20 7d 0a 0a 20 20 77 68 69 6c 65 28 1;. }.. while(
dbd0: 20 31 20 29 7b 0a 20 20 20 20 69 66 28 20 6e 63 1 ){. if( nc
dbe0: 68 69 6c 64 72 65 6e 3e 4d 41 58 5f 50 41 52 41 hildren>MAX_PARA
dbf0: 4c 4c 45 4c 20 29 7b 0a 20 20 20 20 20 20 2f 2a LLEL ){. /*
dc00: 20 53 6c 6f 77 20 64 6f 77 6e 20 69 66 20 63 6f Slow down if co
dc10: 6e 6e 65 63 74 69 6f 6e 73 20 61 72 65 20 61 72 nnections are ar
dc20: 72 69 76 69 6e 67 20 74 6f 6f 20 66 61 73 74 20 riving too fast
dc30: 2a 2f 0a 20 20 20 20 20 20 73 6c 65 65 70 28 20 */. sleep(
dc40: 6e 63 68 69 6c 64 72 65 6e 2d 4d 41 58 5f 50 41 nchildren-MAX_PA
dc50: 52 41 4c 4c 45 4c 20 29 3b 0a 20 20 20 20 7d 0a RALLEL );. }.
dc60: 20 20 20 20 64 65 6c 61 79 2e 74 76 5f 73 65 63 delay.tv_sec
dc70: 20 3d 20 36 30 3b 0a 20 20 20 20 64 65 6c 61 79 = 60;. delay
dc80: 2e 74 76 5f 75 73 65 63 20 3d 20 30 3b 0a 20 20 .tv_usec = 0;.
dc90: 20 20 46 44 5f 5a 45 52 4f 28 26 72 65 61 64 66 FD_ZERO(&readf
dca0: 64 73 29 3b 0a 20 20 20 20 66 6f 72 28 69 3d 30 ds);. for(i=0
dcb0: 3b 20 69 3c 6e 3b 20 69 2b 2b 29 7b 0a 20 20 20 ; i<n; i++){.
dcc0: 20 20 20 61 73 73 65 72 74 28 20 6c 69 73 74 65 assert( liste
dcd0: 6e 65 72 5b 69 5d 3e 3d 30 20 29 3b 0a 20 20 20 ner[i]>=0 );.
dce0: 20 20 20 46 44 5f 53 45 54 28 20 6c 69 73 74 65 FD_SET( liste
dcf0: 6e 65 72 5b 69 5d 2c 20 26 72 65 61 64 66 64 73 ner[i], &readfds
dd00: 29 3b 0a 20 20 20 20 20 20 69 66 28 20 6c 69 73 );. if( lis
dd10: 74 65 6e 65 72 5b 69 5d 3e 6d 61 78 46 64 20 29 tener[i]>maxFd )
dd20: 20 6d 61 78 46 64 20 3d 20 6c 69 73 74 65 6e 65 maxFd = listene
dd30: 72 5b 69 5d 3b 0a 20 20 20 20 7d 0a 20 20 20 20 r[i];. }.
dd40: 73 65 6c 65 63 74 28 20 6d 61 78 46 64 2b 31 2c select( maxFd+1,
dd50: 20 26 72 65 61 64 66 64 73 2c 20 30 2c 20 30 2c &readfds, 0, 0,
dd60: 20 26 64 65 6c 61 79 29 3b 0a 20 20 20 20 66 6f &delay);. fo
dd70: 72 28 69 3d 30 3b 20 69 3c 6e 3b 20 69 2b 2b 29 r(i=0; i<n; i++)
dd80: 7b 0a 20 20 20 20 20 20 69 66 28 20 46 44 5f 49 {. if( FD_I
dd90: 53 53 45 54 28 6c 69 73 74 65 6e 65 72 5b 69 5d SSET(listener[i]
dda0: 2c 20 26 72 65 61 64 66 64 73 29 20 29 7b 0a 20 , &readfds) ){.
ddb0: 20 20 20 20 20 20 20 6c 65 6e 61 64 64 72 20 3d lenaddr =
ddc0: 20 73 69 7a 65 6f 66 28 69 6e 61 64 64 72 29 3b sizeof(inaddr);
ddd0: 0a 20 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 . connect
dde0: 69 6f 6e 20 3d 20 61 63 63 65 70 74 28 6c 69 73 ion = accept(lis
ddf0: 74 65 6e 65 72 5b 69 5d 2c 20 26 69 6e 61 64 64 tener[i], &inadd
de00: 72 2e 73 61 2c 20 26 6c 65 6e 61 64 64 72 29 3b r.sa, &lenaddr);
de10: 0a 20 20 20 20 20 20 20 20 69 66 28 20 63 6f 6e . if( con
de20: 6e 65 63 74 69 6f 6e 3e 3d 30 20 29 7b 0a 20 20 nection>=0 ){.
de30: 20 20 20 20 20 20 20 20 63 68 69 6c 64 20 3d 20 child =
de40: 66 6f 72 6b 28 29 3b 0a 20 20 20 20 20 20 20 20 fork();.
de50: 20 20 69 66 28 20 63 68 69 6c 64 21 3d 30 20 29 if( child!=0 )
de60: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 {. if
de70: 28 20 63 68 69 6c 64 3e 30 20 29 20 6e 63 68 69 ( child>0 ) nchi
de80: 6c 64 72 65 6e 2b 2b 3b 0a 20 20 20 20 20 20 20 ldren++;.
de90: 20 20 20 20 20 63 6c 6f 73 65 28 63 6f 6e 6e 65 close(conne
dea0: 63 74 69 6f 6e 29 3b 0a 20 20 20 20 20 20 20 20 ction);.
deb0: 20 20 20 20 2f 2a 20 70 72 69 6e 74 66 28 22 73 /* printf("s
dec0: 75 62 70 72 6f 63 65 73 73 20 25 64 20 73 74 61 ubprocess %d sta
ded0: 72 74 65 64 2e 2e 2e 5c 6e 22 2c 20 63 68 69 6c rted...\n", chil
dee0: 64 29 3b 20 66 66 6c 75 73 68 28 73 74 64 6f 75 d); fflush(stdou
def0: 74 29 3b 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 t); */.
df00: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 }else{.
df10: 20 20 20 20 69 6e 74 20 6e 45 72 72 20 3d 20 30 int nErr = 0
df20: 2c 20 66 64 3b 0a 20 20 20 20 20 20 20 20 20 20 , fd;.
df30: 20 20 63 6c 6f 73 65 28 30 29 3b 0a 20 20 20 20 close(0);.
df40: 20 20 20 20 20 20 20 20 66 64 20 3d 20 64 75 70 fd = dup
df50: 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 3b 0a 20 20 (connection);.
df60: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 66 64 if( fd
df70: 21 3d 30 20 29 20 6e 45 72 72 2b 2b 3b 0a 20 20 !=0 ) nErr++;.
df80: 20 20 20 20 20 20 20 20 20 20 63 6c 6f 73 65 28 close(
df90: 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 1);.
dfa0: 66 64 20 3d 20 64 75 70 28 63 6f 6e 6e 65 63 74 fd = dup(connect
dfb0: 69 6f 6e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ion);.
dfc0: 20 20 69 66 28 20 66 64 21 3d 31 20 29 20 6e 45 if( fd!=1 ) nE
dfd0: 72 72 2b 2b 3b 0a 20 20 20 20 20 20 20 20 20 20 rr++;.
dfe0: 20 20 63 6c 6f 73 65 28 63 6f 6e 6e 65 63 74 69 close(connecti
dff0: 6f 6e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 on);.
e000: 20 72 65 74 75 72 6e 20 6e 45 72 72 3b 0a 20 20 return nErr;.
e010: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
e020: 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 }. }.
e030: 20 20 2f 2a 20 42 75 72 79 20 64 65 61 64 20 63 /* Bury dead c
e040: 68 69 6c 64 72 65 6e 20 2a 2f 0a 20 20 20 20 20 hildren */.
e050: 20 77 68 69 6c 65 28 20 28 63 68 69 6c 64 20 3d while( (child =
e060: 20 77 61 69 74 70 69 64 28 30 2c 20 30 2c 20 57 waitpid(0, 0, W
e070: 4e 4f 48 41 4e 47 29 29 3e 30 20 29 7b 0a 20 20 NOHANG))>0 ){.
e080: 20 20 20 20 20 20 2f 2a 20 70 72 69 6e 74 66 28 /* printf(
e090: 22 70 72 6f 63 65 73 73 20 25 64 20 65 6e 64 73 "process %d ends
e0a0: 5c 6e 22 2c 20 63 68 69 6c 64 29 3b 20 66 66 6c \n", child); ffl
e0b0: 75 73 68 28 73 74 64 6f 75 74 29 3b 20 2a 2f 0a ush(stdout); */.
e0c0: 20 20 20 20 20 20 20 20 6e 63 68 69 6c 64 72 65 nchildre
e0d0: 6e 2d 2d 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 n--;. }.
e0e0: 20 7d 0a 20 20 7d 0a 20 20 2f 2a 20 4e 4f 54 20 }. }. /* NOT
e0f0: 52 45 41 43 48 45 44 20 2a 2f 20 20 0a 20 20 65 REACHED */ . e
e100: 78 69 74 28 31 29 3b 0a 7d 0a 0a 0a 69 6e 74 20 xit(1);.}...int
e110: 6d 61 69 6e 28 69 6e 74 20 61 72 67 63 2c 20 63 main(int argc, c
e120: 68 61 72 20 2a 2a 61 72 67 76 29 7b 0a 20 20 69 har **argv){. i
e130: 6e 74 20 69 3b 20 20 20 20 20 20 20 20 20 20 20 nt i;
e140: 20 20 20 20 20 20 20 20 20 2f 2a 20 4c 6f 6f 70 /* Loop
e150: 20 63 6f 75 6e 74 65 72 20 2a 2f 0a 20 20 63 68 counter */. ch
e160: 61 72 20 2a 7a 50 65 72 6d 55 73 65 72 20 3d 20 ar *zPermUser =
e170: 30 3b 20 20 20 20 20 20 2f 2a 20 52 75 6e 20 64 0; /* Run d
e180: 61 65 6d 6f 6e 20 77 69 74 68 20 74 68 69 73 20 aemon with this
e190: 75 73 65 72 27 73 20 70 65 72 6d 69 73 73 69 6f user's permissio
e1a0: 6e 73 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 68 ns */. const ch
e1b0: 61 72 20 2a 7a 50 6f 72 74 20 3d 20 30 3b 20 20 ar *zPort = 0;
e1c0: 20 20 2f 2a 20 49 6d 70 6c 65 6d 65 6e 74 20 61 /* Implement a
e1d0: 6e 20 48 54 54 50 20 73 65 72 76 65 72 20 70 72 n HTTP server pr
e1e0: 6f 63 65 73 73 20 2a 2f 0a 20 20 69 6e 74 20 75 ocess */. int u
e1f0: 73 65 43 68 72 6f 6f 74 4a 61 69 6c 20 3d 20 31 seChrootJail = 1
e200: 3b 20 20 20 20 2f 2a 20 54 72 75 65 20 74 6f 20 ; /* True to
e210: 75 73 65 20 61 20 63 68 61 6e 67 65 2d 72 6f 6f use a change-roo
e220: 74 20 6a 61 69 6c 20 2a 2f 0a 20 20 73 74 72 75 t jail */. stru
e230: 63 74 20 70 61 73 73 77 64 20 2a 70 77 64 20 3d ct passwd *pwd =
e240: 20 30 3b 20 20 20 2f 2a 20 49 6e 66 6f 72 6d 61 0; /* Informa
e250: 74 69 6f 6e 20 61 62 6f 75 74 20 74 68 65 20 75 tion about the u
e260: 73 65 72 20 2a 2f 0a 0a 20 20 2f 2a 20 52 65 63 ser */.. /* Rec
e270: 6f 72 64 20 74 68 65 20 74 69 6d 65 20 77 68 65 ord the time whe
e280: 6e 20 70 72 6f 63 65 73 73 69 6e 67 20 62 65 67 n processing beg
e290: 69 6e 73 2e 0a 20 20 2a 2f 0a 20 20 67 65 74 74 ins.. */. gett
e2a0: 69 6d 65 6f 66 64 61 79 28 26 62 65 67 69 6e 54 imeofday(&beginT
e2b0: 69 6d 65 2c 20 30 29 3b 0a 0a 20 20 2f 2a 20 50 ime, 0);.. /* P
e2c0: 61 72 73 65 20 63 6f 6d 6d 61 6e 64 2d 6c 69 6e arse command-lin
e2d0: 65 20 61 72 67 75 6d 65 6e 74 73 0a 20 20 2a 2f e arguments. */
e2e0: 0a 20 20 77 68 69 6c 65 28 20 61 72 67 63 3e 31 . while( argc>1
e2f0: 20 26 26 20 61 72 67 76 5b 31 5d 5b 30 5d 3d 3d && argv[1][0]==
e300: 27 2d 27 20 29 7b 0a 20 20 20 20 63 68 61 72 20 '-' ){. char
e310: 2a 7a 20 3d 20 61 72 67 76 5b 31 5d 3b 0a 20 20 *z = argv[1];.
e320: 20 20 63 68 61 72 20 2a 7a 41 72 67 20 3d 20 61 char *zArg = a
e330: 72 67 63 3e 3d 33 20 3f 20 61 72 67 76 5b 32 5d rgc>=3 ? argv[2]
e340: 20 3a 20 22 30 22 3b 0a 20 20 20 20 69 66 28 20 : "0";. if(
e350: 7a 5b 30 5d 3d 3d 27 2d 27 20 26 26 20 7a 5b 31 z[0]=='-' && z[1
e360: 5d 3d 3d 27 2d 27 20 29 20 7a 2b 2b 3b 0a 20 20 ]=='-' ) z++;.
e370: 20 20 69 66 28 20 73 74 72 63 6d 70 28 7a 2c 22 if( strcmp(z,"
e380: 2d 75 73 65 72 22 29 3d 3d 30 20 29 7b 0a 20 20 -user")==0 ){.
e390: 20 20 20 20 7a 50 65 72 6d 55 73 65 72 20 3d 20 zPermUser =
e3a0: 7a 41 72 67 3b 0a 20 20 20 20 7d 65 6c 73 65 20 zArg;. }else
e3b0: 69 66 28 20 73 74 72 63 6d 70 28 7a 2c 22 2d 72 if( strcmp(z,"-r
e3c0: 6f 6f 74 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 oot")==0 ){.
e3d0: 20 20 7a 52 6f 6f 74 20 3d 20 7a 41 72 67 3b 0a zRoot = zArg;.
e3e0: 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 73 74 }else if( st
e3f0: 72 63 6d 70 28 7a 2c 22 2d 6c 6f 67 66 69 6c 65 rcmp(z,"-logfile
e400: 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 7a ")==0 ){. z
e410: 4c 6f 67 46 69 6c 65 20 3d 20 7a 41 72 67 3b 0a LogFile = zArg;.
e420: 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 73 74 }else if( st
e430: 72 63 6d 70 28 7a 2c 22 2d 68 74 74 70 73 22 29 rcmp(z,"-https")
e440: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 75 73 65 ==0 ){. use
e450: 48 74 74 70 73 20 3d 20 61 74 6f 69 28 7a 41 72 Https = atoi(zAr
e460: 67 29 3b 0a 20 20 20 20 20 20 7a 48 74 74 70 20 g);. zHttp
e470: 3d 20 75 73 65 48 74 74 70 73 20 3f 20 22 68 74 = useHttps ? "ht
e480: 74 70 22 20 3a 20 22 68 74 74 70 73 22 3b 0a 20 tp" : "https";.
e490: 20 20 20 7d 65 6c 73 65 20 69 66 28 20 73 74 72 }else if( str
e4a0: 63 6d 70 28 7a 2c 20 22 2d 70 6f 72 74 22 29 3d cmp(z, "-port")=
e4b0: 3d 30 20 29 7b 0a 20 20 20 20 20 20 7a 50 6f 72 =0 ){. zPor
e4c0: 74 20 3d 20 7a 41 72 67 3b 0a 20 20 20 20 20 20 t = zArg;.
e4d0: 73 74 61 6e 64 61 6c 6f 6e 65 20 3d 20 31 3b 0a standalone = 1;.
e4e0: 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 73 74 }else if( st
e4f0: 72 63 6d 70 28 7a 2c 20 22 2d 66 61 6d 69 6c 79 rcmp(z, "-family
e500: 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 69 ")==0 ){. i
e510: 66 28 20 73 74 72 63 6d 70 28 7a 41 72 67 2c 20 f( strcmp(zArg,
e520: 22 69 70 76 34 22 29 3d 3d 30 20 29 7b 0a 20 20 "ipv4")==0 ){.
e530: 20 20 20 20 20 20 69 70 76 34 4f 6e 6c 79 20 3d ipv4Only =
e540: 20 31 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 20 1;. }else
e550: 69 66 28 20 73 74 72 63 6d 70 28 7a 41 72 67 2c if( strcmp(zArg,
e560: 20 22 69 70 76 36 22 29 3d 3d 30 20 29 7b 0a 20 "ipv6")==0 ){.
e570: 20 20 20 20 20 20 20 69 70 76 36 4f 6e 6c 79 20 ipv6Only
e580: 3d 20 31 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 = 1;. }else
e590: 7b 0a 20 20 20 20 20 20 20 20 4d 61 6c 66 75 6e {. Malfun
e5a0: 63 74 69 6f 6e 28 5f 5f 4c 49 4e 45 5f 5f 2c 20 ction(__LINE__,
e5b0: 22 75 6e 6b 6e 6f 77 6e 20 49 50 20 70 72 6f 74 "unknown IP prot
e5c0: 6f 63 6f 6c 3a 20 5b 25 73 5d 22 2c 20 7a 41 72 ocol: [%s]", zAr
e5d0: 67 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 g);. }.
e5e0: 7d 65 6c 73 65 20 69 66 28 20 73 74 72 63 6d 70 }else if( strcmp
e5f0: 28 7a 2c 20 22 2d 6a 61 69 6c 22 29 3d 3d 30 20 (z, "-jail")==0
e600: 29 7b 0a 20 20 20 20 20 20 69 66 28 20 61 74 6f ){. if( ato
e610: 69 28 7a 41 72 67 29 3d 3d 30 20 29 7b 0a 20 20 i(zArg)==0 ){.
e620: 20 20 20 20 20 20 75 73 65 43 68 72 6f 6f 74 4a useChrootJ
e630: 61 69 6c 20 3d 20 30 3b 0a 20 20 20 20 20 20 7d ail = 0;. }
e640: 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 73 . }else if( s
e650: 74 72 63 6d 70 28 7a 2c 20 22 2d 64 65 62 75 67 trcmp(z, "-debug
e660: 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 69 ")==0 ){. i
e670: 66 28 20 61 74 6f 69 28 7a 41 72 67 29 20 29 7b f( atoi(zArg) ){
e680: 0a 20 20 20 20 20 20 20 20 75 73 65 54 69 6d 65 . useTime
e690: 6f 75 74 20 3d 20 30 3b 0a 20 20 20 20 20 20 7d out = 0;. }
e6a0: 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 . }else{.
e6b0: 20 20 4d 61 6c 66 75 6e 63 74 69 6f 6e 28 5f 5f Malfunction(__
e6c0: 4c 49 4e 45 5f 5f 2c 20 22 75 6e 6b 6e 6f 77 6e LINE__, "unknown
e6d0: 20 61 72 67 75 6d 65 6e 74 3a 20 5b 25 73 5d 22 argument: [%s]"
e6e0: 2c 20 7a 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 , z);. }.
e6f0: 61 72 67 76 20 2b 3d 20 32 3b 0a 20 20 20 20 61 argv += 2;. a
e700: 72 67 63 20 2d 3d 20 32 3b 0a 20 20 7d 0a 20 20 rgc -= 2;. }.
e710: 69 66 28 20 7a 52 6f 6f 74 3d 3d 30 20 29 7b 0a if( zRoot==0 ){.
e720: 20 20 20 20 69 66 28 20 73 74 61 6e 64 61 6c 6f if( standalo
e730: 6e 65 20 29 7b 0a 20 20 20 20 20 20 7a 52 6f 6f ne ){. zRoo
e740: 74 20 3d 20 22 2e 22 3b 0a 20 20 20 20 7d 65 6c t = ".";. }el
e750: 73 65 7b 0a 20 20 20 20 20 20 4d 61 6c 66 75 6e se{. Malfun
e760: 63 74 69 6f 6e 28 5f 5f 4c 49 4e 45 5f 5f 2c 20 ction(__LINE__,
e770: 22 6e 6f 20 2d 2d 72 6f 6f 74 20 73 70 65 63 69 "no --root speci
e780: 66 69 65 64 22 29 3b 0a 20 20 20 20 7d 0a 20 20 fied");. }.
e790: 7d 0a 20 20 0a 20 20 2f 2a 20 43 68 61 6e 67 65 }. . /* Change
e7a0: 20 64 69 72 65 63 74 6f 72 69 65 73 20 74 6f 20 directories to
e7b0: 74 68 65 20 72 6f 6f 74 20 6f 66 20 74 68 65 20 the root of the
e7c0: 48 54 54 50 20 66 69 6c 65 73 79 73 74 65 6d 2e HTTP filesystem.
e7d0: 20 20 54 68 65 6e 0a 20 20 2a 2a 20 63 72 65 61 Then. ** crea
e7e0: 74 65 20 61 20 63 68 72 6f 6f 74 20 6a 61 69 6c te a chroot jail
e7f0: 20 74 68 65 72 65 2e 0a 20 20 2a 2f 0a 20 20 69 there.. */. i
e800: 66 28 20 63 68 64 69 72 28 7a 52 6f 6f 74 29 21 f( chdir(zRoot)!
e810: 3d 30 20 29 7b 0a 20 20 20 20 4d 61 6c 66 75 6e =0 ){. Malfun
e820: 63 74 69 6f 6e 28 5f 5f 4c 49 4e 45 5f 5f 2c 20 ction(__LINE__,
e830: 22 63 61 6e 6e 6f 74 20 63 68 61 6e 67 65 20 74 "cannot change t
e840: 6f 20 64 69 72 65 63 74 6f 72 79 20 5b 25 73 5d o directory [%s]
e850: 22 2c 20 7a 52 6f 6f 74 29 3b 0a 20 20 7d 0a 0a ", zRoot);. }..
e860: 20 20 2f 2a 20 47 65 74 20 69 6e 66 6f 72 6d 61 /* Get informa
e870: 74 69 6f 6e 20 61 62 6f 75 74 20 74 68 65 20 75 tion about the u
e880: 73 65 72 20 69 66 20 61 76 61 69 6c 61 62 6c 65 ser if available
e890: 20 2a 2f 0a 20 20 69 66 28 20 7a 50 65 72 6d 55 */. if( zPermU
e8a0: 73 65 72 20 29 20 70 77 64 20 3d 20 67 65 74 70 ser ) pwd = getp
e8b0: 77 6e 61 6d 28 7a 50 65 72 6d 55 73 65 72 29 3b wnam(zPermUser);
e8c0: 0a 0a 20 20 2f 2a 20 45 6e 74 65 72 20 74 68 65 .. /* Enter the
e8d0: 20 63 68 72 6f 6f 74 20 6a 61 69 6c 20 69 66 20 chroot jail if
e8e0: 72 65 71 75 65 73 74 65 64 20 2a 2f 20 20 0a 20 requested */ .
e8f0: 20 69 66 28 20 7a 50 65 72 6d 55 73 65 72 20 26 if( zPermUser &
e900: 26 20 75 73 65 43 68 72 6f 6f 74 4a 61 69 6c 20 & useChrootJail
e910: 26 26 20 67 65 74 75 69 64 28 29 3d 3d 30 20 29 && getuid()==0 )
e920: 7b 0a 20 20 20 20 69 66 28 20 63 68 72 6f 6f 74 {. if( chroot
e930: 28 22 2e 22 29 3c 30 20 29 7b 0a 20 20 20 20 20 (".")<0 ){.
e940: 20 4d 61 6c 66 75 6e 63 74 69 6f 6e 28 5f 5f 4c Malfunction(__L
e950: 49 4e 45 5f 5f 2c 20 22 75 6e 61 62 6c 65 20 74 INE__, "unable t
e960: 6f 20 63 72 65 61 74 65 20 63 68 72 6f 6f 74 20 o create chroot
e970: 6a 61 69 6c 22 29 3b 0a 20 20 20 20 7d 65 6c 73 jail");. }els
e980: 65 7b 0a 20 20 20 20 20 20 7a 52 6f 6f 74 20 3d e{. zRoot =
e990: 20 22 22 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a "";. }. }..
e9a0: 20 20 2f 2a 20 41 63 74 69 76 61 74 65 20 74 68 /* Activate th
e9b0: 65 20 73 65 72 76 65 72 2c 20 69 66 20 72 65 71 e server, if req
e9c0: 75 65 73 74 65 64 20 2a 2f 0a 20 20 69 66 28 20 uested */. if(
e9d0: 7a 50 6f 72 74 20 26 26 20 68 74 74 70 5f 73 65 zPort && http_se
e9e0: 72 76 65 72 28 7a 50 6f 72 74 2c 20 30 29 20 29 rver(zPort, 0) )
e9f0: 7b 0a 20 20 20 20 4d 61 6c 66 75 6e 63 74 69 6f {. Malfunctio
ea00: 6e 28 5f 5f 4c 49 4e 45 5f 5f 2c 20 22 66 61 69 n(__LINE__, "fai
ea10: 6c 65 64 20 74 6f 20 73 74 61 72 74 20 73 65 72 led to start ser
ea20: 76 65 72 22 29 3b 0a 20 20 7d 0a 0a 20 20 2f 2a ver");. }.. /*
ea30: 20 44 72 6f 70 20 72 6f 6f 74 20 70 72 69 76 69 Drop root privi
ea40: 6c 65 67 65 73 2e 0a 20 20 2a 2f 0a 20 20 69 66 leges.. */. if
ea50: 28 20 7a 50 65 72 6d 55 73 65 72 20 29 7b 0a 20 ( zPermUser ){.
ea60: 20 20 20 69 66 28 20 70 77 64 20 29 7b 0a 20 20 if( pwd ){.
ea70: 20 20 20 20 73 65 74 67 69 64 28 70 77 64 2d 3e setgid(pwd->
ea80: 70 77 5f 67 69 64 29 3b 0a 20 20 20 20 20 20 73 pw_gid);. s
ea90: 65 74 75 69 64 28 70 77 64 2d 3e 70 77 5f 75 69 etuid(pwd->pw_ui
eaa0: 64 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 d);. }else{.
eab0: 20 20 20 20 20 4d 61 6c 66 75 6e 63 74 69 6f 6e Malfunction
eac0: 28 5f 5f 4c 49 4e 45 5f 5f 2c 20 22 6e 6f 20 73 (__LINE__, "no s
ead0: 75 63 68 20 75 73 65 72 20 5b 25 73 5d 22 2c 20 uch user [%s]",
eae0: 7a 50 65 72 6d 55 73 65 72 29 3b 0a 20 20 20 20 zPermUser);.
eaf0: 7d 0a 20 20 7d 0a 20 20 69 66 28 20 67 65 74 75 }. }. if( getu
eb00: 69 64 28 29 3d 3d 30 20 29 7b 0a 20 20 20 20 4d id()==0 ){. M
eb10: 61 6c 66 75 6e 63 74 69 6f 6e 28 5f 5f 4c 49 4e alfunction(__LIN
eb20: 45 5f 5f 2c 20 22 63 61 6e 6e 6f 74 20 72 75 6e E__, "cannot run
eb30: 20 61 73 20 72 6f 6f 74 22 29 3b 0a 20 20 7d 0a as root");. }.
eb40: 0a 20 20 2f 2a 20 47 65 74 20 74 68 65 20 49 50 . /* Get the IP
eb50: 20 61 64 64 72 65 73 73 20 66 72 6f 6d 20 77 68 address from wh
eb60: 65 6e 20 74 68 65 20 72 65 71 75 65 73 74 20 6f en the request o
eb70: 72 69 67 69 6e 61 74 65 73 0a 20 20 2a 2f 0a 20 riginates. */.
eb80: 20 7b 0a 20 20 20 20 61 64 64 72 65 73 73 20 72 {. address r
eb90: 65 6d 6f 74 65 41 64 64 72 3b 0a 20 20 20 20 75 emoteAddr;. u
eba0: 6e 73 69 67 6e 65 64 20 69 6e 74 20 73 69 7a 65 nsigned int size
ebb0: 20 3d 20 73 69 7a 65 6f 66 28 72 65 6d 6f 74 65 = sizeof(remote
ebc0: 41 64 64 72 29 3b 0a 20 20 20 20 63 68 61 72 20 Addr);. char
ebd0: 7a 48 6f 73 74 5b 4e 49 5f 4d 41 58 48 4f 53 54 zHost[NI_MAXHOST
ebe0: 5d 3b 0a 20 20 20 20 69 66 28 20 67 65 74 70 65 ];. if( getpe
ebf0: 65 72 6e 61 6d 65 28 30 2c 20 26 72 65 6d 6f 74 ername(0, &remot
ec00: 65 41 64 64 72 2e 73 61 2c 20 26 73 69 7a 65 29 eAddr.sa, &size)
ec10: 3e 3d 30 20 29 7b 0a 20 20 20 20 20 20 67 65 74 >=0 ){. get
ec20: 6e 61 6d 65 69 6e 66 6f 28 26 72 65 6d 6f 74 65 nameinfo(&remote
ec30: 41 64 64 72 2e 73 61 2c 20 73 69 7a 65 2c 20 7a Addr.sa, size, z
ec40: 48 6f 73 74 2c 20 73 69 7a 65 6f 66 28 7a 48 6f Host, sizeof(zHo
ec50: 73 74 29 2c 20 30 2c 20 30 2c 0a 20 20 20 20 20 st), 0, 0,.
ec60: 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 49 5f NI_
ec70: 4e 55 4d 45 52 49 43 48 4f 53 54 29 3b 0a 20 20 NUMERICHOST);.
ec80: 20 20 20 20 7a 52 65 6d 6f 74 65 41 64 64 72 20 zRemoteAddr
ec90: 3d 20 53 74 72 44 75 70 28 7a 48 6f 73 74 29 3b = StrDup(zHost);
eca0: 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 2f 2a . }. }.. /*
ecb0: 20 50 72 6f 63 65 73 73 20 74 68 65 20 69 6e 70 Process the inp
ecc0: 75 74 20 73 74 72 65 61 6d 20 2a 2f 0a 20 20 66 ut stream */. f
ecd0: 6f 72 28 69 3d 30 3b 20 69 3c 31 30 30 3b 20 69 or(i=0; i<100; i
ece0: 2b 2b 29 7b 0a 20 20 20 20 50 72 6f 63 65 73 73 ++){. Process
ecf0: 4f 6e 65 52 65 71 75 65 73 74 28 30 29 3b 0a 20 OneRequest(0);.
ed00: 20 7d 0a 20 20 50 72 6f 63 65 73 73 4f 6e 65 52 }. ProcessOneR
ed10: 65 71 75 65 73 74 28 31 29 3b 0a 20 20 65 78 69 equest(1);. exi
ed20: 74 28 30 29 3b 0a 7d 0a t(0);.}.