0000: 2f 2a 0a 2a 2a 20 43 6f 70 79 72 69 67 68 74 20 /*.** Copyright
0010: 28 63 29 20 32 30 30 36 20 44 2e 20 52 69 63 68 (c) 2006 D. Rich
0020: 61 72 64 20 48 69 70 70 0a 2a 2a 0a 2a 2a 20 54 ard Hipp.**.** T
0030: 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 his program is f
0040: 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f ree software; yo
0050: 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 u can redistribu
0060: 74 65 20 69 74 20 61 6e 64 2f 6f 72 0a 2a 2a 20 te it and/or.**
0070: 6d 6f 64 69 66 79 20 69 74 20 75 6e 64 65 72 20 modify it under
0080: 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 the terms of the
0090: 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 GNU General Pub
00a0: 6c 69 63 0a 2a 2a 20 4c 69 63 65 6e 73 65 20 76 lic.** License v
00b0: 65 72 73 69 6f 6e 20 32 20 61 73 20 70 75 62 6c ersion 2 as publ
00c0: 69 73 68 65 64 20 62 79 20 74 68 65 20 46 72 65 ished by the Fre
00d0: 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 e Software Found
00e0: 61 74 69 6f 6e 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 ation..**.** Thi
00f0: 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 s program is dis
0100: 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 tributed in the
0110: 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c hope that it wil
0120: 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 2a 2a 20 l be useful,.**
0130: 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 but WITHOUT ANY
0140: 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 WARRANTY; withou
0150: 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 t even the impli
0160: 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 2a ed warranty of.*
0170: 2a 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 * MERCHANTABILIT
0180: 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 Y or FITNESS FOR
0190: 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 A PARTICULAR PU
01a0: 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 20 RPOSE. See the
01b0: 47 4e 55 0a 2a 2a 20 47 65 6e 65 72 61 6c 20 50 GNU.** General P
01c0: 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f ublic License fo
01d0: 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a r more details..
01e0: 2a 2a 20 0a 2a 2a 20 59 6f 75 20 73 68 6f 75 6c ** .** You shoul
01f0: 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 d have received
0200: 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e a copy of the GN
0210: 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 U General Public
0220: 0a 2a 2a 20 4c 69 63 65 6e 73 65 20 61 6c 6f 6e .** License alon
0230: 67 20 77 69 74 68 20 74 68 69 73 20 6c 69 62 72 g with this libr
0240: 61 72 79 3b 20 69 66 20 6e 6f 74 2c 20 77 72 69 ary; if not, wri
0250: 74 65 20 74 6f 20 74 68 65 0a 2a 2a 20 46 72 65 te to the.** Fre
0260: 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 e Software Found
0270: 61 74 69 6f 6e 2c 20 49 6e 63 2e 2c 20 35 39 20 ation, Inc., 59
0280: 54 65 6d 70 6c 65 20 50 6c 61 63 65 20 2d 20 53 Temple Place - S
0290: 75 69 74 65 20 33 33 30 2c 0a 2a 2a 20 42 6f 73 uite 330,.** Bos
02a0: 74 6f 6e 2c 20 4d 41 20 20 30 32 31 31 31 2d 31 ton, MA 02111-1
02b0: 33 30 37 2c 20 55 53 41 2e 0a 2a 2a 0a 2a 2a 20 307, USA..**.**
02c0: 41 75 74 68 6f 72 20 63 6f 6e 74 61 63 74 20 69 Author contact i
02d0: 6e 66 6f 72 6d 61 74 69 6f 6e 3a 0a 2a 2a 20 20 nformation:.**
02e0: 20 64 72 68 40 68 77 61 63 69 2e 63 6f 6d 0a 2a drh@hwaci.com.*
02f0: 2a 20 20 20 68 74 74 70 3a 2f 2f 77 77 77 2e 68 * http://www.h
0300: 77 61 63 69 2e 63 6f 6d 2f 64 72 68 2f 0a 2a 2a waci.com/drh/.**
0310: 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a .***************
0320: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0330: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0340: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0350: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0360: 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 69 6c 65 .**.** This file
0370: 20 63 6f 6e 74 61 69 6e 73 20 43 20 66 75 6e 63 contains C func
0380: 74 69 6f 6e 73 20 61 6e 64 20 70 72 6f 63 65 64 tions and proced
0390: 75 72 65 73 20 74 68 61 74 20 70 72 6f 76 69 64 ures that provid
03a0: 65 20 75 73 65 66 75 6c 0a 2a 2a 20 73 65 72 76 e useful.** serv
03b0: 69 63 65 73 20 74 6f 20 43 47 49 20 70 72 6f 67 ices to CGI prog
03c0: 72 61 6d 73 2e 20 20 54 68 65 72 65 20 61 72 65 rams. There are
03d0: 20 70 72 6f 63 65 64 75 72 65 73 20 66 6f 72 20 procedures for
03e0: 70 61 72 73 69 6e 67 20 61 6e 64 0a 2a 2a 20 64 parsing and.** d
03f0: 69 73 70 65 6e 73 69 6e 67 20 51 55 45 52 59 5f ispensing QUERY_
0400: 53 54 52 49 4e 47 20 70 61 72 61 6d 65 74 65 72 STRING parameter
0410: 73 20 61 6e 64 20 63 6f 6f 6b 69 65 73 2c 20 74 s and cookies, t
0420: 68 65 20 22 6d 70 72 69 6e 74 66 28 29 22 0a 2a he "mprintf()".*
0430: 2a 20 66 6f 72 6d 61 74 74 69 6e 67 20 66 75 6e * formatting fun
0440: 63 74 69 6f 6e 20 61 6e 64 20 69 74 73 20 63 6f ction and its co
0450: 75 73 69 6e 73 2c 20 61 6e 64 20 72 6f 75 74 69 usins, and routi
0460: 6e 65 73 20 74 6f 20 65 6e 63 6f 64 65 20 61 6e nes to encode an
0470: 64 0a 2a 2a 20 64 65 63 6f 64 65 20 73 74 72 69 d.** decode stri
0480: 6e 67 73 20 69 6e 20 48 54 4d 4c 20 6f 72 20 48 ngs in HTML or H
0490: 54 54 50 2e 0a 2a 2f 0a 23 69 6e 63 6c 75 64 65 TTP..*/.#include
04a0: 20 22 63 6f 6e 66 69 67 2e 68 22 0a 23 69 6e 63 "config.h".#inc
04b0: 6c 75 64 65 20 3c 73 79 73 2f 73 6f 63 6b 65 74 lude <sys/socket
04c0: 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 6e 65 .h>.#include <ne
04d0: 74 69 6e 65 74 2f 69 6e 2e 68 3e 0a 23 69 6e 63 tinet/in.h>.#inc
04e0: 6c 75 64 65 20 3c 61 72 70 61 2f 69 6e 65 74 2e lude <arpa/inet.
04f0: 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 74 69 6d h>.#include <tim
0500: 65 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 e.h>.#include <s
0510: 79 73 2f 74 69 6d 65 73 2e 68 3e 0a 23 69 6e 63 ys/times.h>.#inc
0520: 6c 75 64 65 20 3c 73 79 73 2f 74 69 6d 65 2e 68 lude <sys/time.h
0530: 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 79 73 2f >.#include <sys/
0540: 77 61 69 74 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 wait.h>.#include
0550: 20 3c 73 74 64 69 6f 2e 68 3e 0a 23 69 6e 63 6c <stdio.h>.#incl
0560: 75 64 65 20 3c 73 74 64 6c 69 62 2e 68 3e 0a 23 ude <stdlib.h>.#
0570: 69 6e 63 6c 75 64 65 20 3c 73 79 73 2f 73 65 6c include <sys/sel
0580: 65 63 74 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 ect.h>.#include
0590: 3c 75 6e 69 73 74 64 2e 68 3e 0a 23 69 6e 63 6c <unistd.h>.#incl
05a0: 75 64 65 20 22 63 67 69 2e 68 22 0a 0a 23 69 66 ude "cgi.h"..#if
05b0: 20 49 4e 54 45 52 46 41 43 45 0a 2f 2a 0a 2a 2a INTERFACE./*.**
05c0: 20 53 68 6f 72 74 63 75 74 73 20 66 6f 72 20 63 Shortcuts for c
05d0: 67 69 5f 70 61 72 61 6d 65 74 65 72 2e 20 20 50 gi_parameter. P
05e0: 28 22 78 22 29 20 72 65 74 75 72 6e 73 20 74 68 ("x") returns th
05f0: 65 20 76 61 6c 75 65 20 6f 66 20 71 75 65 72 79 e value of query
0600: 20 70 61 72 61 6d 65 74 65 72 0a 2a 2a 20 6f 72 parameter.** or
0610: 20 63 6f 6f 6b 69 65 20 22 78 22 2c 20 6f 72 20 cookie "x", or
0620: 4e 55 4c 4c 20 69 66 20 74 68 65 72 65 20 69 73 NULL if there is
0630: 20 6e 6f 20 73 75 63 68 20 70 61 72 61 6d 65 74 no such paramet
0640: 65 72 20 6f 72 20 63 6f 6f 6b 69 65 2e 20 20 50 er or cookie. P
0650: 44 28 22 78 22 2c 22 79 22 29 0a 2a 2a 20 64 6f D("x","y").** do
0660: 65 73 20 74 68 65 20 73 61 6d 65 20 65 78 63 65 es the same exce
0670: 70 74 20 22 79 22 20 69 73 20 72 65 74 75 72 6e pt "y" is return
0680: 65 64 20 69 6e 20 70 6c 61 63 65 20 6f 66 20 4e ed in place of N
0690: 55 4c 4c 20 69 66 20 74 68 65 72 65 20 69 73 20 ULL if there is
06a0: 6e 6f 74 20 6d 61 74 63 68 2e 0a 2a 2f 0a 23 64 not match..*/.#d
06b0: 65 66 69 6e 65 20 50 28 78 29 20 20 20 20 20 20 efine P(x)
06c0: 20 20 63 67 69 5f 70 61 72 61 6d 65 74 65 72 28 cgi_parameter(
06d0: 28 78 29 2c 30 29 0a 23 64 65 66 69 6e 65 20 50 (x),0).#define P
06e0: 44 28 78 2c 79 29 20 20 20 20 20 63 67 69 5f 70 D(x,y) cgi_p
06f0: 61 72 61 6d 65 74 65 72 28 28 78 29 2c 28 79 29 arameter((x),(y)
0700: 29 0a 23 64 65 66 69 6e 65 20 51 50 28 78 29 20 ).#define QP(x)
0710: 20 20 20 20 20 20 71 75 6f 74 61 62 6c 65 5f 73 quotable_s
0720: 74 72 69 6e 67 28 63 67 69 5f 70 61 72 61 6d 65 tring(cgi_parame
0730: 74 65 72 28 28 78 29 2c 30 29 29 0a 23 64 65 66 ter((x),0)).#def
0740: 69 6e 65 20 51 50 44 28 78 2c 79 29 20 20 20 20 ine QPD(x,y)
0750: 71 75 6f 74 61 62 6c 65 5f 73 74 72 69 6e 67 28 quotable_string(
0760: 63 67 69 5f 70 61 72 61 6d 65 74 65 72 28 28 78 cgi_parameter((x
0770: 29 2c 28 79 29 29 29 0a 0a 23 65 6e 64 69 66 20 ),(y)))..#endif
0780: 2f 2a 20 49 4e 54 45 52 46 41 43 45 20 2a 2f 0a /* INTERFACE */.
0790: 0a 2f 2a 0a 2a 2a 20 50 72 6f 76 69 64 65 20 61 ./*.** Provide a
07a0: 20 72 65 6c 69 61 62 6c 65 20 69 6d 70 6c 65 6d reliable implem
07b0: 65 6e 74 61 74 69 6f 6e 20 6f 66 20 61 20 63 61 entation of a ca
07c0: 73 65 6c 65 73 73 20 73 74 72 69 6e 67 20 63 6f seless string co
07d0: 6d 70 61 72 69 73 6f 6e 0a 2a 2a 20 66 75 6e 63 mparison.** func
07e0: 74 69 6f 6e 2e 0a 2a 2f 0a 23 64 65 66 69 6e 65 tion..*/.#define
07f0: 20 73 74 72 69 63 6d 70 20 73 71 6c 69 74 65 33 stricmp sqlite3
0800: 53 74 72 49 43 6d 70 0a 65 78 74 65 72 6e 20 69 StrICmp.extern i
0810: 6e 74 20 73 71 6c 69 74 65 33 53 74 72 49 43 6d nt sqlite3StrICm
0820: 70 28 63 6f 6e 73 74 20 63 68 61 72 2a 2c 20 63 p(const char*, c
0830: 6f 6e 73 74 20 63 68 61 72 2a 29 3b 0a 0a 2f 2a onst char*);../*
0840: 0a 2a 2a 20 54 68 65 20 62 6f 64 79 20 6f 66 20 .** The body of
0850: 74 68 65 20 48 54 54 50 20 72 65 70 6c 79 20 74 the HTTP reply t
0860: 65 78 74 20 69 73 20 73 74 6f 72 65 64 20 68 65 ext is stored he
0870: 72 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 42 6c re..*/.static Bl
0880: 6f 62 20 63 67 69 43 6f 6e 74 65 6e 74 20 3d 20 ob cgiContent =
0890: 42 4c 4f 42 5f 49 4e 49 54 49 41 4c 49 5a 45 52 BLOB_INITIALIZER
08a0: 3b 0a 0a 2f 2a 0a 2a 2a 20 41 70 70 65 6e 64 20 ;../*.** Append
08b0: 72 65 70 6c 79 20 63 6f 6e 74 65 6e 74 20 74 6f reply content to
08c0: 20 77 68 61 74 20 61 6c 72 65 61 64 79 20 65 78 what already ex
08d0: 69 73 74 73 2e 0a 2a 2f 0a 76 6f 69 64 20 63 67 ists..*/.void cg
08e0: 69 5f 61 70 70 65 6e 64 5f 63 6f 6e 74 65 6e 74 i_append_content
08f0: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 61 (const char *zDa
0900: 74 61 2c 20 69 6e 74 20 6e 41 6d 74 29 7b 0a 20 ta, int nAmt){.
0910: 20 62 6c 6f 62 5f 61 70 70 65 6e 64 28 26 63 67 blob_append(&cg
0920: 69 43 6f 6e 74 65 6e 74 2c 20 7a 44 61 74 61 2c iContent, zData,
0930: 20 6e 41 6d 74 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a nAmt);.}../*.**
0940: 20 52 65 73 65 74 20 74 68 65 20 48 54 54 50 20 Reset the HTTP
0950: 72 65 70 6c 79 20 74 65 78 74 20 74 6f 20 62 65 reply text to be
0960: 20 61 6e 20 65 6d 70 74 79 20 73 74 72 69 6e 67 an empty string
0970: 2e 0a 2a 2f 0a 76 6f 69 64 20 63 67 69 5f 72 65 ..*/.void cgi_re
0980: 73 65 74 5f 63 6f 6e 74 65 6e 74 28 76 6f 69 64 set_content(void
0990: 29 7b 0a 20 20 62 6c 6f 62 5f 72 65 73 65 74 28 ){. blob_reset(
09a0: 26 63 67 69 43 6f 6e 74 65 6e 74 29 3b 0a 7d 0a &cgiContent);.}.
09b0: 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 61 20 ./*.** Return a
09c0: 70 6f 69 6e 74 65 72 20 74 6f 20 74 68 65 20 43 pointer to the C
09d0: 47 49 20 6f 75 74 70 75 74 20 62 6c 6f 62 2e 0a GI output blob..
09e0: 2a 2f 0a 42 6c 6f 62 20 2a 63 67 69 5f 6f 75 74 */.Blob *cgi_out
09f0: 70 75 74 5f 62 6c 6f 62 28 76 6f 69 64 29 7b 0a put_blob(void){.
0a00: 20 20 72 65 74 75 72 6e 20 26 63 67 69 43 6f 6e return &cgiCon
0a10: 74 65 6e 74 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 tent;.}../*.** R
0a20: 65 74 75 72 6e 20 61 20 70 6f 69 6e 74 65 72 20 eturn a pointer
0a30: 74 6f 20 74 68 65 20 48 54 54 50 20 72 65 70 6c to the HTTP repl
0a40: 79 20 74 65 78 74 2e 0a 2a 2f 0a 63 68 61 72 20 y text..*/.char
0a50: 2a 63 67 69 5f 65 78 74 72 61 63 74 5f 63 6f 6e *cgi_extract_con
0a60: 74 65 6e 74 28 69 6e 74 20 2a 70 6e 41 6d 74 29 tent(int *pnAmt)
0a70: 7b 0a 20 20 72 65 74 75 72 6e 20 62 6c 6f 62 5f {. return blob_
0a80: 62 75 66 66 65 72 28 26 63 67 69 43 6f 6e 74 65 buffer(&cgiConte
0a90: 6e 74 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 64 nt);.}../*.** Ad
0aa0: 64 69 74 69 6f 6e 61 6c 20 69 6e 66 6f 72 6d 61 ditional informa
0ab0: 74 69 6f 6e 20 75 73 65 64 20 74 6f 20 66 6f 72 tion used to for
0ac0: 6d 20 74 68 65 20 48 54 54 50 20 72 65 70 6c 79 m the HTTP reply
0ad0: 0a 2a 2f 0a 73 74 61 74 69 63 20 63 68 61 72 20 .*/.static char
0ae0: 2a 7a 43 6f 6e 74 65 6e 74 54 79 70 65 20 3d 20 *zContentType =
0af0: 22 74 65 78 74 2f 68 74 6d 6c 22 3b 20 20 20 20 "text/html";
0b00: 20 2f 2a 20 43 6f 6e 74 65 6e 74 20 74 79 70 65 /* Content type
0b10: 20 6f 66 20 74 68 65 20 72 65 70 6c 79 20 2a 2f of the reply */
0b20: 0a 73 74 61 74 69 63 20 63 68 61 72 20 2a 7a 52 .static char *zR
0b30: 65 70 6c 79 53 74 61 74 75 73 20 3d 20 22 4f 4b eplyStatus = "OK
0b40: 22 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a "; /*
0b50: 20 52 65 70 6c 79 20 73 74 61 74 75 73 20 64 65 Reply status de
0b60: 73 63 72 69 70 74 69 6f 6e 20 2a 2f 0a 73 74 61 scription */.sta
0b70: 74 69 63 20 69 6e 74 20 69 52 65 70 6c 79 53 74 tic int iReplySt
0b80: 61 74 75 73 20 3d 20 32 30 30 3b 20 20 20 20 20 atus = 200;
0b90: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 52 65 70 /* Rep
0ba0: 6c 79 20 73 74 61 74 75 73 20 63 6f 64 65 20 2a ly status code *
0bb0: 2f 0a 73 74 61 74 69 63 20 42 6c 6f 62 20 65 78 /.static Blob ex
0bc0: 74 72 61 48 65 61 64 65 72 20 3d 20 42 4c 4f 42 traHeader = BLOB
0bd0: 5f 49 4e 49 54 49 41 4c 49 5a 45 52 3b 20 20 2f _INITIALIZER; /
0be0: 2a 20 45 78 74 72 61 20 68 65 61 64 65 72 20 74 * Extra header t
0bf0: 65 78 74 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e ext */.static in
0c00: 74 20 66 75 6c 6c 48 74 74 70 52 65 70 6c 79 20 t fullHttpReply
0c10: 3d 20 30 3b 20 20 20 20 20 20 2f 2a 20 54 72 75 = 0; /* Tru
0c20: 65 20 66 6f 72 20 61 20 66 75 6c 6c 2d 62 6c 6f e for a full-blo
0c30: 77 6e 20 48 54 54 50 20 68 65 61 64 65 72 20 2a wn HTTP header *
0c40: 2f 0a 0a 2f 2a 0a 2a 2a 20 53 65 74 20 74 68 65 /../*.** Set the
0c50: 20 72 65 70 6c 79 20 63 6f 6e 74 65 6e 74 20 74 reply content t
0c60: 79 70 65 0a 2a 2f 0a 76 6f 69 64 20 63 67 69 5f ype.*/.void cgi_
0c70: 73 65 74 5f 63 6f 6e 74 65 6e 74 5f 74 79 70 65 set_content_type
0c80: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 54 79 (const char *zTy
0c90: 70 65 29 7b 0a 20 20 7a 43 6f 6e 74 65 6e 74 54 pe){. zContentT
0ca0: 79 70 65 20 3d 20 6d 70 72 69 6e 74 66 28 22 25 ype = mprintf("%
0cb0: 73 22 2c 20 7a 54 79 70 65 29 3b 0a 7d 0a 0a 2f s", zType);.}../
0cc0: 2a 0a 2a 2a 20 53 65 74 20 74 68 65 20 72 65 70 *.** Set the rep
0cd0: 6c 79 20 63 6f 6e 74 65 6e 74 20 74 6f 20 74 68 ly content to th
0ce0: 65 20 73 70 65 63 69 66 69 65 64 20 42 4c 4f 42 e specified BLOB
0cf0: 2e 0a 2a 2f 0a 76 6f 69 64 20 63 67 69 5f 73 65 ..*/.void cgi_se
0d00: 74 5f 63 6f 6e 74 65 6e 74 28 42 6c 6f 62 20 2a t_content(Blob *
0d10: 70 4e 65 77 43 6f 6e 74 65 6e 74 29 7b 0a 20 20 pNewContent){.
0d20: 62 6c 6f 62 5f 72 65 73 65 74 28 26 63 67 69 43 blob_reset(&cgiC
0d30: 6f 6e 74 65 6e 74 29 3b 0a 20 20 63 67 69 43 6f ontent);. cgiCo
0d40: 6e 74 65 6e 74 20 3d 20 2a 70 4e 65 77 43 6f 6e ntent = *pNewCon
0d50: 74 65 6e 74 3b 0a 20 20 62 6c 6f 62 5f 7a 65 72 tent;. blob_zer
0d60: 6f 28 70 4e 65 77 43 6f 6e 74 65 6e 74 29 3b 0a o(pNewContent);.
0d70: 7d 0a 0a 2f 2a 0a 2a 2a 20 53 65 74 20 74 68 65 }../*.** Set the
0d80: 20 72 65 70 6c 79 20 73 74 61 74 75 73 20 63 6f reply status co
0d90: 64 65 0a 2a 2f 0a 76 6f 69 64 20 63 67 69 5f 73 de.*/.void cgi_s
0da0: 65 74 5f 73 74 61 74 75 73 28 69 6e 74 20 69 53 et_status(int iS
0db0: 74 61 74 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 tat, const char
0dc0: 2a 7a 53 74 61 74 29 7b 0a 20 20 7a 52 65 70 6c *zStat){. zRepl
0dd0: 79 53 74 61 74 75 73 20 3d 20 6d 70 72 69 6e 74 yStatus = mprint
0de0: 66 28 22 25 73 22 2c 20 7a 53 74 61 74 29 3b 0a f("%s", zStat);.
0df0: 20 20 69 52 65 70 6c 79 53 74 61 74 75 73 20 3d iReplyStatus =
0e00: 20 69 53 74 61 74 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a iStat;.}../*.**
0e10: 20 41 70 70 65 6e 64 20 74 65 78 74 20 74 6f 20 Append text to
0e20: 74 68 65 20 68 65 61 64 65 72 20 6f 66 20 61 6e the header of an
0e30: 20 48 54 54 50 20 72 65 70 6c 79 0a 2a 2f 0a 76 HTTP reply.*/.v
0e40: 6f 69 64 20 63 67 69 5f 61 70 70 65 6e 64 5f 68 oid cgi_append_h
0e50: 65 61 64 65 72 28 63 6f 6e 73 74 20 63 68 61 72 eader(const char
0e60: 20 2a 7a 4c 69 6e 65 29 7b 0a 20 20 62 6c 6f 62 *zLine){. blob
0e70: 5f 61 70 70 65 6e 64 28 26 65 78 74 72 61 48 65 _append(&extraHe
0e80: 61 64 65 72 2c 20 7a 4c 69 6e 65 2c 20 2d 31 29 ader, zLine, -1)
0e90: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 65 74 20 61 ;.}../*.** Set a
0ea0: 20 63 6f 6f 6b 69 65 2e 0a 2a 2a 0a 2a 2a 20 5a cookie..**.** Z
0eb0: 65 72 6f 20 6c 69 66 65 74 69 6d 65 20 69 6d 70 ero lifetime imp
0ec0: 6c 69 65 73 20 61 20 73 65 73 73 69 6f 6e 20 63 lies a session c
0ed0: 6f 6f 6b 69 65 2e 0a 2a 2f 0a 76 6f 69 64 20 63 ookie..*/.void c
0ee0: 67 69 5f 73 65 74 5f 63 6f 6f 6b 69 65 28 0a 20 gi_set_cookie(.
0ef0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 const char *zNa
0f00: 6d 65 2c 20 20 20 20 2f 2a 20 4e 61 6d 65 20 6f me, /* Name o
0f10: 66 20 74 68 65 20 63 6f 6f 6b 69 65 20 2a 2f 0a f the cookie */.
0f20: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 56 const char *zV
0f30: 61 6c 75 65 2c 20 20 20 2f 2a 20 56 61 6c 75 65 alue, /* Value
0f40: 20 6f 66 20 74 68 65 20 63 6f 6f 6b 69 65 2e 20 of the cookie.
0f50: 20 41 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 65 Automatically e
0f60: 73 63 61 70 65 64 20 2a 2f 0a 20 20 63 6f 6e 73 scaped */. cons
0f70: 74 20 63 68 61 72 20 2a 7a 50 61 74 68 2c 20 20 t char *zPath,
0f80: 20 20 2f 2a 20 50 61 74 68 20 63 6f 6f 6b 69 65 /* Path cookie
0f90: 20 61 70 70 6c 69 65 73 20 74 6f 2e 20 20 4e 55 applies to. NU
0fa0: 4c 4c 20 6d 65 61 6e 73 20 22 2f 22 20 2a 2f 0a LL means "/" */.
0fb0: 20 20 69 6e 74 20 6c 69 66 65 74 69 6d 65 20 20 int lifetime
0fc0: 20 20 20 20 20 20 20 20 2f 2a 20 45 78 70 69 72 /* Expir
0fd0: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 63 6f 6f ation of the coo
0fe0: 6b 69 65 20 69 6e 20 73 65 63 6f 6e 64 73 20 66 kie in seconds f
0ff0: 72 6f 6d 20 6e 6f 77 20 2a 2f 0a 29 7b 0a 20 20 rom now */.){.
1000: 69 66 28 20 7a 50 61 74 68 3d 3d 30 20 29 20 7a if( zPath==0 ) z
1010: 50 61 74 68 20 3d 20 22 2f 22 3b 0a 20 20 69 66 Path = "/";. if
1020: 28 20 6c 69 66 65 74 69 6d 65 3e 30 20 29 7b 0a ( lifetime>0 ){.
1030: 20 20 20 20 6c 69 66 65 74 69 6d 65 20 2b 3d 20 lifetime +=
1040: 28 69 6e 74 29 74 69 6d 65 28 30 29 3b 0a 20 20 (int)time(0);.
1050: 20 20 62 6c 6f 62 5f 61 70 70 65 6e 64 66 28 26 blob_appendf(&
1060: 65 78 74 72 61 48 65 61 64 65 72 2c 0a 20 20 20 extraHeader,.
1070: 20 20 20 20 22 53 65 74 2d 43 6f 6f 6b 69 65 3a "Set-Cookie:
1080: 20 25 73 3d 25 74 3b 20 50 61 74 68 3d 25 73 3b %s=%t; Path=%s;
1090: 20 65 78 70 69 72 65 73 3d 25 73 3b 20 56 65 72 expires=%s; Ver
10a0: 73 69 6f 6e 3d 31 5c 72 5c 6e 22 2c 0a 20 20 20 sion=1\r\n",.
10b0: 20 20 20 20 20 7a 4e 61 6d 65 2c 20 7a 56 61 6c zName, zVal
10c0: 75 65 2c 20 7a 50 61 74 68 2c 20 63 67 69 5f 72 ue, zPath, cgi_r
10d0: 66 63 38 32 32 5f 64 61 74 65 73 74 61 6d 70 28 fc822_datestamp(
10e0: 6c 69 66 65 74 69 6d 65 29 29 3b 0a 20 20 7d 65 lifetime));. }e
10f0: 6c 73 65 7b 0a 20 20 20 20 62 6c 6f 62 5f 61 70 lse{. blob_ap
1100: 70 65 6e 64 66 28 26 65 78 74 72 61 48 65 61 64 pendf(&extraHead
1110: 65 72 2c 0a 20 20 20 20 20 20 20 22 53 65 74 2d er,. "Set-
1120: 43 6f 6f 6b 69 65 3a 20 25 73 3d 25 74 3b 20 50 Cookie: %s=%t; P
1130: 61 74 68 3d 25 73 3b 20 56 65 72 73 69 6f 6e 3d ath=%s; Version=
1140: 31 5c 72 5c 6e 22 2c 0a 20 20 20 20 20 20 20 7a 1\r\n",. z
1150: 4e 61 6d 65 2c 20 7a 56 61 6c 75 65 2c 20 7a 50 Name, zValue, zP
1160: 61 74 68 29 3b 0a 20 20 7d 0a 7d 0a 0a 23 69 66 ath);. }.}..#if
1170: 20 30 0a 2f 2a 0a 2a 2a 20 41 64 64 20 61 6e 20 0./*.** Add an
1180: 45 54 61 67 20 68 65 61 64 65 72 20 6c 69 6e 65 ETag header line
1190: 0a 2a 2f 0a 73 74 61 74 69 63 20 63 68 61 72 20 .*/.static char
11a0: 2a 63 67 69 5f 61 64 64 5f 65 74 61 67 28 63 68 *cgi_add_etag(ch
11b0: 61 72 20 2a 7a 54 78 74 2c 20 69 6e 74 20 6e 4c ar *zTxt, int nL
11c0: 65 6e 29 7b 0a 20 20 4d 44 35 43 6f 6e 74 65 78 en){. MD5Contex
11d0: 74 20 63 74 78 3b 0a 20 20 75 6e 73 69 67 6e 65 t ctx;. unsigne
11e0: 64 20 63 68 61 72 20 64 69 67 65 73 74 5b 31 36 d char digest[16
11f0: 5d 3b 0a 20 20 69 6e 74 20 69 2c 20 6a 3b 0a 20 ];. int i, j;.
1200: 20 63 68 61 72 20 7a 45 54 61 67 5b 36 34 5d 3b char zETag[64];
1210: 0a 0a 20 20 4d 44 35 49 6e 69 74 28 26 63 74 78 .. MD5Init(&ctx
1220: 29 3b 0a 20 20 4d 44 35 55 70 64 61 74 65 28 26 );. MD5Update(&
1230: 63 74 78 2c 7a 54 78 74 2c 6e 4c 65 6e 29 3b 0a ctx,zTxt,nLen);.
1240: 20 20 4d 44 35 46 69 6e 61 6c 28 64 69 67 65 73 MD5Final(diges
1250: 74 2c 26 63 74 78 29 3b 0a 20 20 66 6f 72 28 6a t,&ctx);. for(j
1260: 3d 69 3d 30 3b 20 69 3c 31 36 3b 20 69 2b 2b 2c =i=0; i<16; i++,
1270: 6a 2b 3d 32 29 7b 0a 20 20 20 20 62 70 72 69 6e j+=2){. bprin
1280: 74 66 28 26 7a 45 54 61 67 5b 6a 5d 2c 73 69 7a tf(&zETag[j],siz
1290: 65 6f 66 28 7a 45 54 61 67 29 2d 6a 2c 22 25 30 eof(zETag)-j,"%0
12a0: 32 78 22 2c 28 69 6e 74 29 64 69 67 65 73 74 5b 2x",(int)digest[
12b0: 69 5d 29 3b 0a 20 20 7d 0a 20 20 62 6c 6f 62 5f i]);. }. blob_
12c0: 61 70 70 65 6e 64 66 28 26 65 78 74 72 61 48 65 appendf(&extraHe
12d0: 61 64 65 72 2c 20 22 45 54 61 67 3a 20 25 73 5c ader, "ETag: %s\
12e0: 72 5c 6e 22 2c 20 7a 45 54 61 67 29 3b 0a 20 20 r\n", zETag);.
12f0: 72 65 74 75 72 6e 20 73 74 72 64 75 70 28 7a 45 return strdup(zE
1300: 54 61 67 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 44 Tag);.}../*.** D
1310: 6f 20 73 6f 6d 65 20 63 61 63 68 65 20 63 6f 6e o some cache con
1320: 74 72 6f 6c 20 73 74 75 66 66 2e 20 46 69 72 73 trol stuff. Firs
1330: 74 2c 20 77 65 20 67 65 6e 65 72 61 74 65 20 61 t, we generate a
1340: 6e 20 45 54 61 67 20 61 6e 64 20 69 6e 63 6c 75 n ETag and inclu
1350: 64 65 20 69 74 20 69 6e 0a 2a 2a 20 74 68 65 20 de it in.** the
1360: 72 65 73 70 6f 6e 73 65 20 68 65 61 64 65 72 73 response headers
1370: 2e 20 53 65 63 6f 6e 64 2c 20 77 65 20 64 6f 20 . Second, we do
1380: 77 68 61 74 65 76 65 72 20 69 73 20 6e 65 63 65 whatever is nece
1390: 73 73 61 72 79 20 74 6f 20 64 65 74 65 72 6d 69 ssary to determi
13a0: 6e 65 20 69 66 0a 2a 2a 20 74 68 65 20 72 65 71 ne if.** the req
13b0: 75 65 73 74 20 77 61 73 20 61 73 6b 69 6e 67 20 uest was asking
13c0: 61 62 6f 75 74 20 63 61 63 68 69 6e 67 20 61 6e about caching an
13d0: 64 20 77 68 65 74 68 65 72 20 77 65 20 6e 65 65 d whether we nee
13e0: 64 20 74 6f 20 73 65 6e 64 20 62 61 63 6b 20 74 d to send back t
13f0: 68 65 0a 2a 2a 20 72 65 73 70 6f 6e 73 65 20 62 he.** response b
1400: 6f 64 79 2e 20 49 66 20 77 65 20 73 68 6f 75 6c ody. If we shoul
1410: 64 6e 27 74 20 73 65 6e 64 20 61 20 62 6f 64 79 dn't send a body
1420: 2c 20 72 65 74 75 72 6e 20 6e 6f 6e 2d 7a 65 72 , return non-zer
1430: 6f 2e 0a 2a 2a 0a 2a 2a 20 43 75 72 72 65 6e 74 o..**.** Current
1440: 6c 79 2c 20 77 65 20 6a 75 73 74 20 63 68 65 63 ly, we just chec
1450: 6b 20 74 68 65 20 45 54 61 67 20 61 67 61 69 6e k the ETag again
1460: 73 74 20 61 6e 79 20 49 66 2d 4e 6f 6e 65 2d 4d st any If-None-M
1470: 61 74 63 68 20 68 65 61 64 65 72 2e 0a 2a 2a 0a atch header..**.
1480: 2a 2a 20 46 49 58 4d 45 3a 20 49 6e 20 73 6f 6d ** FIXME: In som
1490: 65 20 63 61 73 65 73 20 28 61 74 74 61 63 68 6d e cases (attachm
14a0: 65 6e 74 73 2c 20 66 69 6c 65 20 63 6f 6e 74 65 ents, file conte
14b0: 6e 74 73 29 20 77 65 20 63 6f 75 6c 64 20 63 68 nts) we could ch
14c0: 65 63 6b 0a 2a 2a 20 49 66 2d 4d 6f 64 69 66 69 eck.** If-Modifi
14d0: 65 64 2d 53 69 6e 63 65 20 68 65 61 64 65 72 73 ed-Since headers
14e0: 20 61 6e 64 20 61 6c 77 61 79 73 20 69 6e 63 6c and always incl
14f0: 75 64 65 20 4c 61 73 74 2d 4d 6f 64 69 66 69 65 ude Last-Modifie
1500: 64 20 69 6e 20 72 65 73 70 6f 6e 73 65 73 2e 0a d in responses..
1510: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 63 68 */.static int ch
1520: 65 63 6b 5f 63 61 63 68 65 5f 63 6f 6e 74 72 6f eck_cache_contro
1530: 6c 28 76 6f 69 64 29 7b 0a 20 20 2f 2a 20 46 49 l(void){. /* FI
1540: 58 4d 45 3a 20 74 68 65 72 65 27 73 20 73 6f 6d XME: there's som
1550: 65 20 67 6f 74 63 68 61 73 20 77 74 68 20 63 6f e gotchas wth co
1560: 6f 6b 69 65 73 20 61 6e 64 20 73 6f 6d 65 20 68 okies and some h
1570: 65 61 64 65 72 73 2e 20 2a 2f 0a 20 20 63 68 61 eaders. */. cha
1580: 72 20 2a 7a 45 54 61 67 20 3d 20 63 67 69 5f 61 r *zETag = cgi_a
1590: 64 64 5f 65 74 61 67 28 62 6c 6f 62 5f 62 75 66 dd_etag(blob_buf
15a0: 66 65 72 28 26 63 67 69 43 6f 6e 74 65 6e 74 29 fer(&cgiContent)
15b0: 2c 62 6c 6f 62 5f 73 69 7a 65 28 26 63 67 69 43 ,blob_size(&cgiC
15c0: 6f 6e 74 65 6e 74 29 29 3b 0a 20 20 63 68 61 72 ontent));. char
15d0: 20 2a 7a 4d 61 74 63 68 20 3d 20 50 28 22 48 54 *zMatch = P("HT
15e0: 54 50 5f 49 46 5f 4e 4f 4e 45 5f 4d 41 54 43 48 TP_IF_NONE_MATCH
15f0: 22 29 3b 0a 0a 20 20 69 66 28 20 7a 45 54 61 67 ");.. if( zETag
1600: 21 3d 30 20 26 26 20 7a 4d 61 74 63 68 21 3d 30 !=0 && zMatch!=0
1610: 20 29 20 7b 0a 20 20 20 20 63 68 61 72 20 2a 7a ) {. char *z
1620: 42 75 66 20 3d 20 73 74 72 64 75 70 28 7a 4d 61 Buf = strdup(zMa
1630: 74 63 68 29 3b 0a 20 20 20 20 69 66 28 20 7a 42 tch);. if( zB
1640: 75 66 21 3d 30 20 29 7b 0a 20 20 20 20 20 20 63 uf!=0 ){. c
1650: 68 61 72 20 2a 7a 54 6f 6b 20 3d 20 30 3b 0a 20 har *zTok = 0;.
1660: 20 20 20 20 20 63 68 61 72 20 2a 7a 50 6f 73 3b char *zPos;
1670: 0a 20 20 20 20 20 20 66 6f 72 28 20 7a 54 6f 6b . for( zTok
1680: 20 3d 20 73 74 72 74 6f 6b 5f 72 28 7a 42 75 66 = strtok_r(zBuf
1690: 2c 20 22 2c 5c 22 22 2c 26 7a 50 6f 73 29 3b 0a , ",\"",&zPos);.
16a0: 20 20 20 20 20 20 20 20 20 20 20 7a 54 6f 6b 20 zTok
16b0: 26 26 20 73 74 72 63 61 73 65 63 6d 70 28 7a 54 && strcasecmp(zT
16c0: 6f 6b 2c 7a 45 54 61 67 29 3b 0a 20 20 20 20 20 ok,zETag);.
16d0: 20 20 20 20 20 20 7a 54 6f 6b 20 3d 20 20 73 74 zTok = st
16e0: 72 74 6f 6b 5f 72 28 30 2c 20 22 2c 5c 22 22 2c rtok_r(0, ",\"",
16f0: 26 7a 50 6f 73 29 29 7b 7d 0a 20 20 20 20 20 20 &zPos)){}.
1700: 66 72 65 65 28 7a 42 75 66 29 3b 0a 20 20 20 20 free(zBuf);.
1710: 20 20 69 66 28 7a 54 6f 6b 29 20 72 65 74 75 72 if(zTok) retur
1720: 6e 20 31 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 n 1;. }. }.
1730: 20 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a . return 0;.}.
1740: 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 44 6f #endif../*.** Do
1750: 20 61 20 6e 6f 72 6d 61 6c 20 48 54 54 50 20 72 a normal HTTP r
1760: 65 70 6c 79 0a 2a 2f 0a 76 6f 69 64 20 63 67 69 eply.*/.void cgi
1770: 5f 72 65 70 6c 79 28 76 6f 69 64 29 7b 0a 20 20 _reply(void){.
1780: 69 66 28 20 69 52 65 70 6c 79 53 74 61 74 75 73 if( iReplyStatus
1790: 3c 3d 30 20 29 7b 0a 20 20 20 20 69 52 65 70 6c <=0 ){. iRepl
17a0: 79 53 74 61 74 75 73 20 3d 20 32 30 30 3b 0a 20 yStatus = 200;.
17b0: 20 20 20 7a 52 65 70 6c 79 53 74 61 74 75 73 20 zReplyStatus
17c0: 3d 20 22 4f 4b 22 3b 0a 20 20 7d 0a 0a 23 69 66 = "OK";. }..#if
17d0: 20 30 0a 20 20 69 66 28 20 69 52 65 70 6c 79 53 0. if( iReplyS
17e0: 74 61 74 75 73 3d 3d 32 30 30 20 26 26 20 63 68 tatus==200 && ch
17f0: 65 63 6b 5f 63 61 63 68 65 5f 63 6f 6e 74 72 6f eck_cache_contro
1800: 6c 28 29 20 29 20 7b 0a 20 20 20 20 2f 2a 20 63 l() ) {. /* c
1810: 68 61 6e 67 65 20 74 68 65 20 73 74 61 74 75 73 hange the status
1820: 20 74 6f 20 22 75 6e 63 68 61 6e 67 65 64 22 20 to "unchanged"
1830: 61 6e 64 20 77 65 20 63 61 6e 20 73 6b 69 70 20 and we can skip
1840: 73 65 6e 64 69 6e 67 20 74 68 65 0a 20 20 20 20 sending the.
1850: 2a 2a 20 61 63 74 75 61 6c 20 72 65 73 70 6f 6e ** actual respon
1860: 73 65 20 62 6f 64 79 2e 20 4f 62 76 69 6f 75 73 se body. Obvious
1870: 6c 79 20 77 65 20 6f 6e 6c 79 20 64 6f 20 74 68 ly we only do th
1880: 69 73 20 77 68 65 6e 20 77 65 20 5f 68 61 76 65 is when we _have
1890: 5f 20 61 0a 20 20 20 20 2a 2a 20 62 6f 64 79 20 _ a. ** body
18a0: 28 63 6f 64 65 20 32 30 30 29 2e 0a 20 20 20 20 (code 200)..
18b0: 2a 2f 0a 20 20 20 20 69 52 65 70 6c 79 53 74 61 */. iReplySta
18c0: 74 75 73 20 3d 20 33 30 34 3b 0a 20 20 20 20 7a tus = 304;. z
18d0: 52 65 70 6c 79 53 74 61 74 75 73 20 3d 20 22 4e ReplyStatus = "N
18e0: 6f 74 20 4d 6f 64 69 66 69 65 64 22 3b 0a 20 20 ot Modified";.
18f0: 7d 0a 23 65 6e 64 69 66 0a 0a 20 20 69 66 28 20 }.#endif.. if(
1900: 66 75 6c 6c 48 74 74 70 52 65 70 6c 79 20 29 7b fullHttpReply ){
1910: 0a 20 20 20 20 70 72 69 6e 74 66 28 22 48 54 54 . printf("HTT
1920: 50 2f 31 2e 30 20 25 64 20 25 73 5c 72 5c 6e 22 P/1.0 %d %s\r\n"
1930: 2c 20 69 52 65 70 6c 79 53 74 61 74 75 73 2c 20 , iReplyStatus,
1940: 7a 52 65 70 6c 79 53 74 61 74 75 73 29 3b 0a 20 zReplyStatus);.
1950: 20 20 20 70 72 69 6e 74 66 28 22 44 61 74 65 3a printf("Date:
1960: 20 25 73 5c 72 5c 6e 22 2c 20 63 67 69 5f 72 66 %s\r\n", cgi_rf
1970: 63 38 32 32 5f 64 61 74 65 73 74 61 6d 70 28 74 c822_datestamp(t
1980: 69 6d 65 28 30 29 29 29 3b 0a 20 20 20 20 70 72 ime(0)));. pr
1990: 69 6e 74 66 28 22 43 6f 6e 6e 65 63 74 69 6f 6e intf("Connection
19a0: 3a 20 63 6c 6f 73 65 5c 72 5c 6e 22 29 3b 0a 20 : close\r\n");.
19b0: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 70 72 69 6e }else{. prin
19c0: 74 66 28 22 53 74 61 74 75 73 3a 20 25 64 20 25 tf("Status: %d %
19d0: 73 5c 72 5c 6e 22 2c 20 69 52 65 70 6c 79 53 74 s\r\n", iReplySt
19e0: 61 74 75 73 2c 20 7a 52 65 70 6c 79 53 74 61 74 atus, zReplyStat
19f0: 75 73 29 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 us);. }.. if(
1a00: 62 6c 6f 62 5f 73 69 7a 65 28 26 65 78 74 72 61 blob_size(&extra
1a10: 48 65 61 64 65 72 29 3e 30 20 29 7b 0a 20 20 20 Header)>0 ){.
1a20: 20 70 72 69 6e 74 66 28 22 25 73 22 2c 20 62 6c printf("%s", bl
1a30: 6f 62 5f 62 75 66 66 65 72 28 26 65 78 74 72 61 ob_buffer(&extra
1a40: 48 65 61 64 65 72 29 29 3b 0a 20 20 7d 0a 0a 20 Header));. }..
1a50: 20 69 66 28 20 67 2e 69 73 43 6f 6e 73 74 20 29 if( g.isConst )
1a60: 7b 0a 20 20 20 20 2f 2a 20 63 6f 6e 73 74 61 6e {. /* constan
1a70: 74 20 6d 65 61 6e 73 20 74 68 61 74 20 74 68 65 t means that the
1a80: 20 69 6e 70 75 74 20 55 52 4c 20 77 69 6c 6c 20 input URL will
1a90: 5f 6e 65 76 65 72 5f 20 67 65 6e 65 72 61 74 65 _never_ generate
1aa0: 20 61 6e 79 74 68 69 6e 67 0a 20 20 20 20 2a 2a anything. **
1ab0: 20 65 6c 73 65 2e 20 49 6e 20 74 68 65 20 63 61 else. In the ca
1ac0: 73 65 20 6f 66 20 61 74 74 61 63 68 6d 65 6e 74 se of attachment
1ad0: 73 2c 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 s, the contents
1ae0: 77 6f 6e 27 74 20 63 68 61 6e 67 65 20 62 65 63 won't change bec
1af0: 61 75 73 65 0a 20 20 20 20 2a 2a 20 61 6e 20 61 ause. ** an a
1b00: 74 74 65 6d 70 74 20 74 6f 20 63 68 61 6e 67 65 ttempt to change
1b10: 20 74 68 65 6d 20 67 65 6e 65 72 61 74 65 73 20 them generates
1b20: 61 20 6e 65 77 20 61 74 74 61 63 68 6d 65 6e 74 a new attachment
1b30: 20 6e 75 6d 62 65 72 2e 20 49 6e 20 74 68 65 0a number. In the.
1b40: 20 20 20 20 2a 2a 20 63 61 73 65 20 6f 66 20 6d ** case of m
1b50: 6f 73 74 20 2f 67 65 74 66 69 6c 65 20 63 61 6c ost /getfile cal
1b60: 6c 73 20 66 6f 72 20 73 70 65 63 69 66 69 63 20 ls for specific
1b70: 76 65 72 73 69 6f 6e 73 2c 20 74 68 65 20 6f 6e versions, the on
1b80: 6c 79 20 77 61 79 20 74 68 65 0a 20 20 20 20 2a ly way the. *
1b90: 2a 20 63 6f 6e 74 65 6e 74 20 63 68 61 6e 67 65 * content change
1ba0: 73 20 69 73 20 69 66 20 73 6f 6d 65 6f 6e 65 20 s is if someone
1bb0: 62 72 65 61 6b 73 20 74 68 65 20 53 43 4d 2e 20 breaks the SCM.
1bc0: 41 6e 64 20 69 66 20 74 68 61 74 20 68 61 70 70 And if that happ
1bd0: 65 6e 73 2c 20 61 0a 20 20 20 20 2a 2a 20 73 74 ens, a. ** st
1be0: 61 6c 65 20 63 61 63 68 65 20 69 73 20 74 68 65 ale cache is the
1bf0: 20 6c 65 61 73 74 20 6f 66 20 74 68 65 20 70 72 least of the pr
1c00: 6f 62 6c 65 6d 2e 20 53 6f 20 77 65 20 70 72 6f oblem. So we pro
1c10: 76 69 64 65 20 61 6e 20 45 78 70 69 72 65 73 0a vide an Expires.
1c20: 20 20 20 20 2a 2a 20 68 65 61 64 65 72 20 73 65 ** header se
1c30: 74 20 74 6f 20 61 20 72 65 61 73 6f 6e 61 62 6c t to a reasonabl
1c40: 65 20 70 65 72 69 6f 64 20 28 64 65 66 61 75 6c e period (defaul
1c50: 74 3a 20 6f 6e 65 20 77 65 65 6b 29 2e 0a 20 20 t: one week)..
1c60: 20 20 2a 2f 0a 20 20 20 20 2f 2a 74 69 6d 65 5f */. /*time_
1c70: 74 20 65 78 70 69 72 65 73 20 3d 20 74 69 6d 65 t expires = time
1c80: 28 30 29 20 2b 20 61 74 6f 69 28 64 62 5f 63 6f (0) + atoi(db_co
1c90: 6e 66 69 67 28 22 63 6f 6e 73 74 61 6e 74 5f 65 nfig("constant_e
1ca0: 78 70 69 72 65 73 22 2c 22 36 30 34 38 30 30 22 xpires","604800"
1cb0: 29 29 3b 2a 2f 0a 20 20 20 20 74 69 6d 65 5f 74 ));*/. time_t
1cc0: 20 65 78 70 69 72 65 73 20 3d 20 74 69 6d 65 28 expires = time(
1cd0: 30 29 20 2b 20 36 30 34 38 30 30 3b 0a 20 20 20 0) + 604800;.
1ce0: 20 70 72 69 6e 74 66 28 20 22 45 78 70 69 72 65 printf( "Expire
1cf0: 73 3a 20 25 73 5c 72 5c 6e 22 2c 20 63 67 69 5f s: %s\r\n", cgi_
1d00: 72 66 63 38 32 32 5f 64 61 74 65 73 74 61 6d 70 rfc822_datestamp
1d10: 28 65 78 70 69 72 65 73 29 29 3b 0a 20 20 7d 0a (expires));. }.
1d20: 0a 20 20 2f 2a 20 43 6f 6e 74 65 6e 74 20 69 6e . /* Content in
1d30: 74 65 6e 64 65 64 20 66 6f 72 20 6c 6f 67 67 65 tended for logge
1d40: 64 20 69 6e 20 75 73 65 72 73 20 73 68 6f 75 6c d in users shoul
1d50: 64 20 6f 6e 6c 79 20 62 65 20 63 61 63 68 65 64 d only be cached
1d60: 20 69 6e 0a 20 20 2a 2a 20 74 68 65 20 62 72 6f in. ** the bro
1d70: 77 73 65 72 2c 20 6e 6f 74 20 73 6f 6d 65 20 73 wser, not some s
1d80: 68 61 72 65 64 20 6c 6f 63 61 74 69 6f 6e 2e 0a hared location..
1d90: 20 20 2a 2f 0a 20 20 70 72 69 6e 74 66 28 22 43 */. printf("C
1da0: 61 63 68 65 2d 63 6f 6e 74 72 6f 6c 3a 20 70 72 ache-control: pr
1db0: 69 76 61 74 65 5c 72 5c 6e 22 29 3b 0a 0a 23 69 ivate\r\n");..#i
1dc0: 66 20 46 4f 53 53 49 4c 5f 49 31 38 4e 0a 20 20 f FOSSIL_I18N.
1dd0: 70 72 69 6e 74 66 28 20 22 43 6f 6e 74 65 6e 74 printf( "Content
1de0: 2d 54 79 70 65 3a 20 25 73 3b 20 63 68 61 72 73 -Type: %s; chars
1df0: 65 74 3d 25 73 5c 72 5c 6e 22 2c 20 7a 43 6f 6e et=%s\r\n", zCon
1e00: 74 65 6e 74 54 79 70 65 2c 20 6e 6c 5f 6c 61 6e tentType, nl_lan
1e10: 67 69 6e 66 6f 28 43 4f 44 45 53 45 54 29 29 3b ginfo(CODESET));
1e20: 0a 23 65 6c 73 65 0a 20 20 70 72 69 6e 74 66 28 .#else. printf(
1e30: 20 22 43 6f 6e 74 65 6e 74 2d 54 79 70 65 3a 20 "Content-Type:
1e40: 25 73 3b 20 63 68 61 72 73 65 74 3d 49 53 4f 2d %s; charset=ISO-
1e50: 38 38 35 39 2d 31 5c 72 5c 6e 22 2c 20 7a 43 6f 8859-1\r\n", zCo
1e60: 6e 74 65 6e 74 54 79 70 65 29 3b 0a 23 65 6e 64 ntentType);.#end
1e70: 69 66 0a 20 20 69 66 28 20 73 74 72 63 6d 70 28 if. if( strcmp(
1e80: 7a 43 6f 6e 74 65 6e 74 54 79 70 65 2c 22 61 70 zContentType,"ap
1e90: 70 6c 69 63 61 74 69 6f 6e 2f 78 2d 66 6f 73 73 plication/x-foss
1ea0: 69 6c 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 62 il")==0 ){. b
1eb0: 6c 6f 62 5f 63 6f 6d 70 72 65 73 73 28 26 63 67 lob_compress(&cg
1ec0: 69 43 6f 6e 74 65 6e 74 2c 20 26 63 67 69 43 6f iContent, &cgiCo
1ed0: 6e 74 65 6e 74 29 3b 0a 20 20 7d 0a 0a 20 20 69 ntent);. }.. i
1ee0: 66 28 20 69 52 65 70 6c 79 53 74 61 74 75 73 20 f( iReplyStatus
1ef0: 21 3d 20 33 30 34 20 29 20 7b 0a 20 20 20 20 70 != 304 ) {. p
1f00: 72 69 6e 74 66 28 20 22 43 6f 6e 74 65 6e 74 2d rintf( "Content-
1f10: 4c 65 6e 67 74 68 3a 20 25 64 5c 72 5c 6e 22 2c Length: %d\r\n",
1f20: 20 62 6c 6f 62 5f 73 69 7a 65 28 26 63 67 69 43 blob_size(&cgiC
1f30: 6f 6e 74 65 6e 74 29 20 29 3b 0a 20 20 7d 0a 20 ontent) );. }.
1f40: 20 70 72 69 6e 74 66 28 22 5c 72 5c 6e 22 29 3b printf("\r\n");
1f50: 0a 20 20 69 66 28 20 62 6c 6f 62 5f 73 69 7a 65 . if( blob_size
1f60: 28 26 63 67 69 43 6f 6e 74 65 6e 74 29 3e 30 20 (&cgiContent)>0
1f70: 26 26 20 69 52 65 70 6c 79 53 74 61 74 75 73 20 && iReplyStatus
1f80: 21 3d 20 33 30 34 20 29 7b 0a 20 20 20 20 66 77 != 304 ){. fw
1f90: 72 69 74 65 28 62 6c 6f 62 5f 62 75 66 66 65 72 rite(blob_buffer
1fa0: 28 26 63 67 69 43 6f 6e 74 65 6e 74 29 2c 20 31 (&cgiContent), 1
1fb0: 2c 20 62 6c 6f 62 5f 73 69 7a 65 28 26 63 67 69 , blob_size(&cgi
1fc0: 43 6f 6e 74 65 6e 74 29 2c 20 73 74 64 6f 75 74 Content), stdout
1fd0: 29 3b 0a 20 20 7d 0a 20 20 43 47 49 44 45 42 55 );. }. CGIDEBU
1fe0: 47 28 28 22 44 4f 4e 45 5c 6e 22 29 29 3b 0a 7d G(("DONE\n"));.}
1ff0: 0a 0a 2f 2a 0a 2a 2a 20 44 6f 20 61 20 72 65 64 ../*.** Do a red
2000: 69 72 65 63 74 20 72 65 71 75 65 73 74 20 74 6f irect request to
2010: 20 74 68 65 20 55 52 4c 20 67 69 76 65 6e 20 69 the URL given i
2020: 6e 20 74 68 65 20 61 72 67 75 6d 65 6e 74 2e 0a n the argument..
2030: 2a 2a 0a 2a 2a 20 54 68 65 20 55 52 4c 20 6d 75 **.** The URL mu
2040: 73 74 20 62 65 20 72 65 6c 61 74 69 76 65 20 74 st be relative t
2050: 6f 20 74 68 65 20 62 61 73 65 20 6f 66 20 74 68 o the base of th
2060: 65 20 66 6f 73 73 69 6c 20 73 65 72 76 65 72 2e e fossil server.
2070: 0a 2a 2f 0a 76 6f 69 64 20 63 67 69 5f 72 65 64 .*/.void cgi_red
2080: 69 72 65 63 74 28 63 6f 6e 73 74 20 63 68 61 72 irect(const char
2090: 20 2a 7a 55 52 4c 29 7b 0a 20 20 63 68 61 72 20 *zURL){. char
20a0: 2a 7a 4c 6f 63 61 74 69 6f 6e 3b 0a 20 20 43 47 *zLocation;. CG
20b0: 49 44 45 42 55 47 28 28 22 72 65 64 69 72 65 63 IDEBUG(("redirec
20c0: 74 20 74 6f 20 25 73 5c 6e 22 2c 20 7a 55 52 4c t to %s\n", zURL
20d0: 29 29 3b 0a 20 20 69 66 28 20 73 74 72 6e 63 6d ));. if( strncm
20e0: 70 28 7a 55 52 4c 2c 22 68 74 74 70 3a 22 2c 35 p(zURL,"http:",5
20f0: 29 3d 3d 30 20 7c 7c 20 73 74 72 6e 63 6d 70 28 )==0 || strncmp(
2100: 7a 55 52 4c 2c 22 68 74 74 70 73 3a 22 2c 36 29 zURL,"https:",6)
2110: 3d 3d 30 20 7c 7c 20 2a 7a 55 52 4c 3d 3d 27 2f ==0 || *zURL=='/
2120: 27 20 29 7b 0a 20 20 20 20 63 67 69 5f 70 61 6e ' ){. cgi_pan
2130: 69 63 28 22 69 6e 76 61 6c 69 64 20 72 65 64 69 ic("invalid redi
2140: 72 65 63 74 20 55 52 4c 3a 20 25 73 22 2c 20 7a rect URL: %s", z
2150: 55 52 4c 29 3b 0a 20 20 7d 0a 20 20 7a 4c 6f 63 URL);. }. zLoc
2160: 61 74 69 6f 6e 20 3d 20 6d 70 72 69 6e 74 66 28 ation = mprintf(
2170: 22 4c 6f 63 61 74 69 6f 6e 3a 20 25 73 2f 25 73 "Location: %s/%s
2180: 5c 72 5c 6e 22 2c 20 67 2e 7a 42 61 73 65 55 52 \r\n", g.zBaseUR
2190: 4c 2c 20 7a 55 52 4c 29 3b 0a 20 20 63 67 69 5f L, zURL);. cgi_
21a0: 61 70 70 65 6e 64 5f 68 65 61 64 65 72 28 7a 4c append_header(zL
21b0: 6f 63 61 74 69 6f 6e 29 3b 0a 20 20 63 67 69 5f ocation);. cgi_
21c0: 72 65 73 65 74 5f 63 6f 6e 74 65 6e 74 28 29 3b reset_content();
21d0: 0a 20 20 63 67 69 5f 70 72 69 6e 74 66 28 22 3c . cgi_printf("<
21e0: 68 74 6d 6c 3e 5c 6e 3c 70 3e 52 65 64 69 72 65 html>\n<p>Redire
21f0: 63 74 20 74 6f 20 25 68 3c 2f 70 3e 5c 6e 3c 2f ct to %h</p>\n</
2200: 68 74 6d 6c 3e 5c 6e 22 2c 20 7a 55 52 4c 29 3b html>\n", zURL);
2210: 0a 20 20 63 67 69 5f 73 65 74 5f 73 74 61 74 75 . cgi_set_statu
2220: 73 28 33 30 32 2c 20 22 4d 6f 76 65 64 20 54 65 s(302, "Moved Te
2230: 6d 70 6f 72 61 72 69 6c 79 22 29 3b 0a 20 20 66 mporarily");. f
2240: 72 65 65 28 7a 4c 6f 63 61 74 69 6f 6e 29 3b 0a ree(zLocation);.
2250: 20 20 63 67 69 5f 72 65 70 6c 79 28 29 3b 0a 20 cgi_reply();.
2260: 20 65 78 69 74 28 30 29 3b 0a 7d 0a 0a 2f 2a 0a exit(0);.}../*.
2270: 2a 2a 20 49 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 ** Information a
2280: 62 6f 75 74 20 61 6c 6c 20 71 75 65 72 79 20 70 bout all query p
2290: 61 72 61 6d 65 74 65 72 73 20 61 6e 64 20 63 6f arameters and co
22a0: 6f 6b 69 65 73 20 61 72 65 20 73 74 6f 72 65 64 okies are stored
22b0: 0a 2a 2a 20 69 6e 20 74 68 65 73 65 20 76 61 72 .** in these var
22c0: 69 61 62 6c 65 73 2e 0a 2a 2f 0a 73 74 61 74 69 iables..*/.stati
22d0: 63 20 69 6e 74 20 6e 41 6c 6c 6f 63 51 50 20 3d c int nAllocQP =
22e0: 20 30 3b 20 2f 2a 20 53 70 61 63 65 20 61 6c 6c 0; /* Space all
22f0: 6f 63 61 74 65 64 20 66 6f 72 20 61 50 61 72 61 ocated for aPara
2300: 6d 51 50 5b 5d 20 2a 2f 0a 73 74 61 74 69 63 20 mQP[] */.static
2310: 69 6e 74 20 6e 55 73 65 64 51 50 20 3d 20 30 3b int nUsedQP = 0;
2320: 20 20 2f 2a 20 53 70 61 63 65 20 61 63 74 75 61 /* Space actua
2330: 6c 6c 79 20 75 73 65 64 20 69 6e 20 61 50 61 72 lly used in aPar
2340: 61 6d 51 50 5b 5d 20 2a 2f 0a 73 74 61 74 69 63 amQP[] */.static
2350: 20 69 6e 74 20 73 6f 72 74 51 50 20 3d 20 30 3b int sortQP = 0;
2360: 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 61 50 /* True if aP
2370: 61 72 61 6d 51 50 5b 5d 20 6e 65 65 64 73 20 73 aramQP[] needs s
2380: 6f 72 74 69 6e 67 20 2a 2f 0a 73 74 61 74 69 63 orting */.static
2390: 20 69 6e 74 20 73 65 71 51 50 20 3d 20 30 3b 20 int seqQP = 0;
23a0: 20 20 20 2f 2a 20 53 65 71 75 65 6e 63 65 20 6e /* Sequence n
23b0: 75 6d 62 65 72 73 20 2a 2f 0a 73 74 61 74 69 63 umbers */.static
23c0: 20 73 74 72 75 63 74 20 51 50 61 72 61 6d 20 7b struct QParam {
23d0: 20 20 20 2f 2a 20 4f 6e 65 20 65 6e 74 72 79 20 /* One entry
23e0: 66 6f 72 20 65 61 63 68 20 71 75 65 72 79 20 70 for each query p
23f0: 61 72 61 6d 65 74 65 72 20 6f 72 20 63 6f 6f 6b arameter or cook
2400: 69 65 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 68 ie */. const ch
2410: 61 72 20 2a 7a 4e 61 6d 65 3b 20 20 20 20 20 20 ar *zName;
2420: 20 20 2f 2a 20 50 61 72 61 6d 65 74 65 72 20 6f /* Parameter o
2430: 72 20 63 6f 6f 6b 69 65 20 6e 61 6d 65 20 2a 2f r cookie name */
2440: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a . const char *z
2450: 56 61 6c 75 65 3b 20 20 20 20 20 20 20 2f 2a 20 Value; /*
2460: 56 61 6c 75 65 20 6f 66 20 74 68 65 20 71 75 65 Value of the que
2470: 72 79 20 70 61 72 61 6d 65 74 65 72 20 6f 72 20 ry parameter or
2480: 63 6f 6f 6b 69 65 20 2a 2f 0a 20 20 69 6e 74 20 cookie */. int
2490: 73 65 71 3b 20 20 20 20 20 20 20 20 20 20 20 20 seq;
24a0: 20 20 20 20 20 20 2f 2a 20 4f 72 64 65 72 20 6f /* Order o
24b0: 66 20 69 6e 73 65 72 74 69 6f 6e 20 2a 2f 0a 7d f insertion */.}
24c0: 20 2a 61 50 61 72 61 6d 51 50 3b 20 20 20 20 20 *aParamQP;
24d0: 20 20 20 20 20 20 20 20 2f 2a 20 41 6e 20 61 72 /* An ar
24e0: 72 61 79 20 6f 66 20 61 6c 6c 20 70 61 72 61 6d ray of all param
24f0: 65 74 65 72 73 20 61 6e 64 20 63 6f 6f 6b 69 65 eters and cookie
2500: 73 20 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 41 64 64 20 s */../*.** Add
2510: 61 6e 6f 74 68 65 72 20 71 75 65 72 79 20 70 61 another query pa
2520: 72 61 6d 65 74 65 72 20 6f 72 20 63 6f 6f 6b 69 rameter or cooki
2530: 65 20 74 6f 20 74 68 65 20 70 61 72 61 6d 65 74 e to the paramet
2540: 65 72 20 73 65 74 2e 0a 2a 2a 20 7a 4e 61 6d 65 er set..** zName
2550: 20 69 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 is the name of
2560: 74 68 65 20 71 75 65 72 79 20 70 61 72 61 6d 65 the query parame
2570: 74 65 72 20 6f 72 20 63 6f 6f 6b 69 65 20 61 6e ter or cookie an
2580: 64 20 7a 56 61 6c 75 65 0a 2a 2a 20 69 73 20 69 d zValue.** is i
2590: 74 73 20 66 75 6c 6c 79 20 64 65 63 6f 64 65 64 ts fully decoded
25a0: 20 76 61 6c 75 65 2e 0a 2a 2a 0a 2a 2a 20 7a 4e value..**.** zN
25b0: 61 6d 65 20 61 6e 64 20 7a 56 61 6c 75 65 20 61 ame and zValue a
25c0: 72 65 20 6e 6f 74 20 63 6f 70 69 65 64 20 61 6e re not copied an
25d0: 64 20 6d 75 73 74 20 6e 6f 74 20 63 68 61 6e 67 d must not chang
25e0: 65 20 6f 72 20 62 65 0a 2a 2a 20 64 65 61 6c 6c e or be.** deall
25f0: 6f 63 61 74 65 64 20 61 66 74 65 72 20 74 68 69 ocated after thi
2600: 73 20 72 6f 75 74 69 6e 65 20 72 65 74 75 72 6e s routine return
2610: 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 s..*/.static voi
2620: 64 20 63 67 69 5f 73 65 74 5f 70 61 72 61 6d 65 d cgi_set_parame
2630: 74 65 72 5f 6e 6f 63 6f 70 79 28 63 6f 6e 73 74 ter_nocopy(const
2640: 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 63 6f char *zName, co
2650: 6e 73 74 20 63 68 61 72 20 2a 7a 56 61 6c 75 65 nst char *zValue
2660: 29 7b 0a 20 20 69 66 28 20 6e 41 6c 6c 6f 63 51 ){. if( nAllocQ
2670: 50 3c 3d 6e 55 73 65 64 51 50 20 29 7b 0a 20 20 P<=nUsedQP ){.
2680: 20 20 6e 41 6c 6c 6f 63 51 50 20 3d 20 6e 41 6c nAllocQP = nAl
2690: 6c 6f 63 51 50 2a 32 20 2b 20 31 30 3b 0a 20 20 locQP*2 + 10;.
26a0: 20 20 61 50 61 72 61 6d 51 50 20 3d 20 72 65 61 aParamQP = rea
26b0: 6c 6c 6f 63 28 20 61 50 61 72 61 6d 51 50 2c 20 lloc( aParamQP,
26c0: 6e 41 6c 6c 6f 63 51 50 2a 73 69 7a 65 6f 66 28 nAllocQP*sizeof(
26d0: 61 50 61 72 61 6d 51 50 5b 30 5d 29 20 29 3b 0a aParamQP[0]) );.
26e0: 20 20 20 20 69 66 28 20 61 50 61 72 61 6d 51 50 if( aParamQP
26f0: 3d 3d 30 20 29 20 65 78 69 74 28 31 29 3b 0a 20 ==0 ) exit(1);.
2700: 20 7d 0a 20 20 61 50 61 72 61 6d 51 50 5b 6e 55 }. aParamQP[nU
2710: 73 65 64 51 50 5d 2e 7a 4e 61 6d 65 20 3d 20 7a sedQP].zName = z
2720: 4e 61 6d 65 3b 0a 20 20 61 50 61 72 61 6d 51 50 Name;. aParamQP
2730: 5b 6e 55 73 65 64 51 50 5d 2e 7a 56 61 6c 75 65 [nUsedQP].zValue
2740: 20 3d 20 7a 56 61 6c 75 65 3b 0a 20 20 61 50 61 = zValue;. aPa
2750: 72 61 6d 51 50 5b 6e 55 73 65 64 51 50 5d 2e 73 ramQP[nUsedQP].s
2760: 65 71 20 3d 20 73 65 71 51 50 2b 2b 3b 0a 20 20 eq = seqQP++;.
2770: 6e 55 73 65 64 51 50 2b 2b 3b 0a 20 20 73 6f 72 nUsedQP++;. sor
2780: 74 51 50 20 3d 20 31 3b 0a 7d 0a 0a 2f 2a 0a 2a tQP = 1;.}../*.*
2790: 2a 20 41 64 64 20 61 6e 6f 74 68 65 72 20 71 75 * Add another qu
27a0: 65 72 79 20 70 61 72 61 6d 65 74 65 72 20 6f 72 ery parameter or
27b0: 20 63 6f 6f 6b 69 65 20 74 6f 20 74 68 65 20 70 cookie to the p
27c0: 61 72 61 6d 65 74 65 72 20 73 65 74 2e 0a 2a 2a arameter set..**
27d0: 20 7a 4e 61 6d 65 20 69 73 20 74 68 65 20 6e 61 zName is the na
27e0: 6d 65 20 6f 66 20 74 68 65 20 71 75 65 72 79 20 me of the query
27f0: 70 61 72 61 6d 65 74 65 72 20 6f 72 20 63 6f 6f parameter or coo
2800: 6b 69 65 20 61 6e 64 20 7a 56 61 6c 75 65 0a 2a kie and zValue.*
2810: 2a 20 69 73 20 69 74 73 20 66 75 6c 6c 79 20 64 * is its fully d
2820: 65 63 6f 64 65 64 20 76 61 6c 75 65 2e 0a 2a 2a ecoded value..**
2830: 0a 2a 2a 20 43 6f 70 69 65 73 20 61 72 65 20 6d .** Copies are m
2840: 61 64 65 20 6f 66 20 62 6f 74 68 20 74 68 65 20 ade of both the
2850: 7a 4e 61 6d 65 20 61 6e 64 20 7a 56 61 6c 75 65 zName and zValue
2860: 20 70 61 72 61 6d 65 74 65 72 73 2e 0a 2a 2f 0a parameters..*/.
2870: 76 6f 69 64 20 63 67 69 5f 73 65 74 5f 70 61 72 void cgi_set_par
2880: 61 6d 65 74 65 72 28 63 6f 6e 73 74 20 63 68 61 ameter(const cha
2890: 72 20 2a 7a 4e 61 6d 65 2c 20 63 6f 6e 73 74 20 r *zName, const
28a0: 63 68 61 72 20 2a 7a 56 61 6c 75 65 29 7b 0a 20 char *zValue){.
28b0: 20 63 67 69 5f 73 65 74 5f 70 61 72 61 6d 65 74 cgi_set_paramet
28c0: 65 72 5f 6e 6f 63 6f 70 79 28 6d 70 72 69 6e 74 er_nocopy(mprint
28d0: 66 28 22 25 73 22 2c 7a 4e 61 6d 65 29 2c 20 6d f("%s",zName), m
28e0: 70 72 69 6e 74 66 28 22 25 73 22 2c 7a 56 61 6c printf("%s",zVal
28f0: 75 65 29 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 ue));.}../*.** A
2900: 64 64 20 61 20 71 75 65 72 79 20 70 61 72 61 6d dd a query param
2910: 65 74 65 72 2e 20 20 54 68 65 20 7a 4e 61 6d 65 eter. The zName
2920: 20 70 6f 72 74 69 6f 6e 20 69 73 20 66 69 78 65 portion is fixe
2930: 64 20 62 75 74 20 61 20 63 6f 70 79 0a 2a 2a 20 d but a copy.**
2940: 6d 75 73 74 20 62 65 20 6d 61 64 65 20 6f 66 20 must be made of
2950: 7a 56 61 6c 75 65 2e 0a 2a 2f 0a 76 6f 69 64 20 zValue..*/.void
2960: 63 67 69 5f 73 65 74 65 6e 76 28 63 6f 6e 73 74 cgi_setenv(const
2970: 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 63 6f char *zName, co
2980: 6e 73 74 20 63 68 61 72 20 2a 7a 56 61 6c 75 65 nst char *zValue
2990: 29 7b 0a 20 20 63 67 69 5f 73 65 74 5f 70 61 72 ){. cgi_set_par
29a0: 61 6d 65 74 65 72 5f 6e 6f 63 6f 70 79 28 7a 4e ameter_nocopy(zN
29b0: 61 6d 65 2c 20 6d 70 72 69 6e 74 66 28 22 25 73 ame, mprintf("%s
29c0: 22 2c 7a 56 61 6c 75 65 29 29 3b 0a 7d 0a 20 0a ",zValue));.}. .
29d0: 0a 2f 2a 0a 2a 2a 20 41 64 64 20 61 20 6c 69 73 ./*.** Add a lis
29e0: 74 20 6f 66 20 71 75 65 72 79 20 70 61 72 61 6d t of query param
29f0: 65 74 65 72 73 20 6f 72 20 63 6f 6f 6b 69 65 73 eters or cookies
2a00: 20 74 6f 20 74 68 65 20 70 61 72 61 6d 65 74 65 to the paramete
2a10: 72 20 73 65 74 2e 0a 2a 2a 0a 2a 2a 20 45 61 63 r set..**.** Eac
2a20: 68 20 70 61 72 61 6d 65 74 65 72 20 69 73 20 6f h parameter is o
2a30: 66 20 74 68 65 20 66 6f 72 6d 20 4e 41 4d 45 3d f the form NAME=
2a40: 56 41 4c 55 45 2e 20 20 42 6f 74 68 20 74 68 65 VALUE. Both the
2a50: 20 4e 41 4d 45 20 61 6e 64 20 74 68 65 0a 2a 2a NAME and the.**
2a60: 20 56 41 4c 55 45 20 6d 61 79 20 62 65 20 75 72 VALUE may be ur
2a70: 6c 2d 65 6e 63 6f 64 65 64 20 28 22 2b 22 20 66 l-encoded ("+" f
2a80: 6f 72 20 73 70 61 63 65 2c 20 22 25 48 48 22 20 or space, "%HH"
2a90: 66 6f 72 20 6f 74 68 65 72 20 73 70 65 63 69 61 for other specia
2aa0: 6c 0a 2a 2a 20 63 68 61 72 61 63 74 65 72 73 29 l.** characters)
2ab0: 2e 20 20 42 75 74 20 74 68 69 73 20 72 6f 75 74 . But this rout
2ac0: 69 6e 65 20 61 73 73 75 6d 65 73 20 74 68 61 74 ine assumes that
2ad0: 20 4e 41 4d 45 20 63 6f 6e 74 61 69 6e 73 20 6e NAME contains n
2ae0: 6f 0a 2a 2a 20 73 70 65 63 69 61 6c 20 63 68 61 o.** special cha
2af0: 72 61 63 74 65 72 20 61 6e 64 20 74 68 65 72 65 racter and there
2b00: 66 6f 72 65 20 64 6f 65 73 20 6e 6f 74 20 64 65 fore does not de
2b10: 63 6f 64 65 20 69 74 2e 0a 2a 2a 0a 2a 2a 20 49 code it..**.** I
2b20: 66 20 4e 41 4d 45 20 62 65 67 69 6e 73 20 77 69 f NAME begins wi
2b30: 74 68 20 61 6e 6f 74 68 65 72 20 6f 74 68 65 72 th another other
2b40: 20 74 68 61 6e 20 61 20 6c 6f 77 65 72 2d 63 61 than a lower-ca
2b50: 73 65 20 6c 65 74 74 65 72 20 74 68 65 6e 0a 2a se letter then.*
2b60: 2a 20 74 68 65 20 65 6e 74 69 72 65 20 4e 41 4d * the entire NAM
2b70: 45 3d 56 41 4c 55 45 20 74 65 72 6d 20 69 73 20 E=VALUE term is
2b80: 69 67 6e 6f 72 65 64 2e 20 20 48 65 6e 63 65 3a ignored. Hence:
2b90: 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 2a 20 20 63 .**.** * c
2ba0: 6f 6f 6b 69 65 73 20 61 6e 64 20 71 75 65 72 79 ookies and query
2bb0: 20 70 61 72 61 6d 65 74 65 72 73 20 74 68 61 74 parameters that
2bc0: 20 68 61 76 65 20 75 70 70 65 72 63 61 73 65 20 have uppercase
2bd0: 6e 61 6d 65 73 0a 2a 2a 20 20 20 20 20 20 20 20 names.**
2be0: 20 61 72 65 20 69 67 6e 6f 72 65 64 2e 0a 2a 2a are ignored..**
2bf0: 0a 2a 2a 20 20 20 20 20 20 2a 20 20 69 74 20 69 .** * it i
2c00: 73 20 69 6d 70 6f 73 73 69 62 6c 65 20 66 6f 72 s impossible for
2c10: 20 61 20 63 6f 6f 6b 69 65 20 6f 72 20 71 75 65 a cookie or que
2c20: 72 79 20 70 61 72 61 6d 65 74 65 72 20 74 6f 0a ry parameter to.
2c30: 2a 2a 20 20 20 20 20 20 20 20 20 6f 76 65 72 72 ** overr
2c40: 69 64 65 20 74 68 65 20 76 61 6c 75 65 20 6f 66 ide the value of
2c50: 20 61 6e 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 an environment
2c60: 76 61 72 69 61 62 6c 65 20 73 69 6e 63 65 0a 2a variable since.*
2c70: 2a 20 20 20 20 20 20 20 20 20 65 6e 76 69 72 6f * enviro
2c80: 6e 6d 65 6e 74 20 76 61 72 69 61 62 6c 65 73 20 nment variables
2c90: 61 6c 77 61 79 73 20 68 61 76 65 20 75 70 70 65 always have uppe
2ca0: 72 63 61 73 65 20 6e 61 6d 65 73 2e 0a 2a 2a 0a rcase names..**.
2cb0: 2a 2a 20 50 61 72 61 6d 65 74 65 72 73 20 61 72 ** Parameters ar
2cc0: 65 20 73 65 70 61 72 61 74 65 64 20 62 79 20 74 e separated by t
2cd0: 68 65 20 22 74 65 72 6d 69 6e 61 74 6f 72 22 20 he "terminator"
2ce0: 63 68 61 72 61 63 74 65 72 2e 20 20 57 68 69 74 character. Whit
2cf0: 65 73 70 61 63 65 0a 2a 2a 20 62 65 66 6f 72 65 espace.** before
2d00: 20 74 68 65 20 4e 41 4d 45 20 69 73 20 69 67 6e the NAME is ign
2d10: 6f 72 65 64 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 ored..**.** The
2d20: 69 6e 70 75 74 20 73 74 72 69 6e 67 20 22 7a 22 input string "z"
2d30: 20 69 73 20 6d 6f 64 69 66 69 65 64 20 62 75 74 is modified but
2d40: 20 6e 6f 20 63 6f 70 69 65 73 20 69 73 20 6d 61 no copies is ma
2d50: 64 65 2e 20 20 22 7a 22 0a 2a 2a 20 73 68 6f 75 de. "z".** shou
2d60: 6c 64 20 6e 6f 74 20 62 65 20 64 65 61 6c 6c 6f ld not be deallo
2d70: 63 61 74 65 64 20 6f 72 20 63 68 61 6e 67 65 64 cated or changed
2d80: 20 61 67 61 69 6e 20 61 66 74 65 72 20 74 68 69 again after thi
2d90: 73 20 72 6f 75 74 69 6e 65 0a 2a 2a 20 72 65 74 s routine.** ret
2da0: 75 72 6e 73 20 6f 72 20 69 74 20 77 69 6c 6c 20 urns or it will
2db0: 63 6f 72 72 75 70 74 20 74 68 65 20 70 61 72 61 corrupt the para
2dc0: 6d 65 74 65 72 20 74 61 62 6c 65 2e 0a 2a 2f 0a meter table..*/.
2dd0: 73 74 61 74 69 63 20 76 6f 69 64 20 61 64 64 5f static void add_
2de0: 70 61 72 61 6d 5f 6c 69 73 74 28 63 68 61 72 20 param_list(char
2df0: 2a 7a 2c 20 69 6e 74 20 74 65 72 6d 69 6e 61 74 *z, int terminat
2e00: 6f 72 29 7b 0a 20 20 77 68 69 6c 65 28 20 2a 7a or){. while( *z
2e10: 20 29 7b 0a 20 20 20 20 63 68 61 72 20 2a 7a 4e ){. char *zN
2e20: 61 6d 65 3b 0a 20 20 20 20 63 68 61 72 20 2a 7a ame;. char *z
2e30: 56 61 6c 75 65 3b 0a 20 20 20 20 77 68 69 6c 65 Value;. while
2e40: 28 20 69 73 73 70 61 63 65 28 2a 7a 29 20 29 7b ( isspace(*z) ){
2e50: 20 7a 2b 2b 3b 20 7d 0a 20 20 20 20 7a 4e 61 6d z++; }. zNam
2e60: 65 20 3d 20 7a 3b 0a 20 20 20 20 77 68 69 6c 65 e = z;. while
2e70: 28 20 2a 7a 20 26 26 20 2a 7a 21 3d 27 3d 27 20 ( *z && *z!='='
2e80: 26 26 20 2a 7a 21 3d 74 65 72 6d 69 6e 61 74 6f && *z!=terminato
2e90: 72 20 29 7b 20 7a 2b 2b 3b 20 7d 0a 20 20 20 20 r ){ z++; }.
2ea0: 69 66 28 20 2a 7a 3d 3d 27 3d 27 20 29 7b 0a 20 if( *z=='=' ){.
2eb0: 20 20 20 20 20 2a 7a 20 3d 20 30 3b 0a 20 20 20 *z = 0;.
2ec0: 20 20 20 7a 2b 2b 3b 0a 20 20 20 20 20 20 7a 56 z++;. zV
2ed0: 61 6c 75 65 20 3d 20 7a 3b 0a 20 20 20 20 20 20 alue = z;.
2ee0: 77 68 69 6c 65 28 20 2a 7a 20 26 26 20 2a 7a 21 while( *z && *z!
2ef0: 3d 74 65 72 6d 69 6e 61 74 6f 72 20 29 7b 20 7a =terminator ){ z
2f00: 2b 2b 3b 20 7d 0a 20 20 20 20 20 20 69 66 28 20 ++; }. if(
2f10: 2a 7a 20 29 7b 0a 20 20 20 20 20 20 20 20 2a 7a *z ){. *z
2f20: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 7a 2b = 0;. z+
2f30: 2b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 +;. }.
2f40: 20 64 65 68 74 74 70 69 7a 65 28 7a 56 61 6c 75 dehttpize(zValu
2f50: 65 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 e);. }else{.
2f60: 20 20 20 20 20 69 66 28 20 2a 7a 20 29 7b 20 2a if( *z ){ *
2f70: 7a 2b 2b 20 3d 20 30 3b 20 7d 0a 20 20 20 20 20 z++ = 0; }.
2f80: 20 7a 56 61 6c 75 65 20 3d 20 22 22 3b 0a 20 20 zValue = "";.
2f90: 20 20 7d 0a 20 20 20 20 69 66 28 20 69 73 6c 6f }. if( islo
2fa0: 77 65 72 28 7a 4e 61 6d 65 5b 30 5d 29 20 29 7b wer(zName[0]) ){
2fb0: 0a 20 20 20 20 20 20 63 67 69 5f 73 65 74 5f 70 . cgi_set_p
2fc0: 61 72 61 6d 65 74 65 72 5f 6e 6f 63 6f 70 79 28 arameter_nocopy(
2fd0: 7a 4e 61 6d 65 2c 20 7a 56 61 6c 75 65 29 3b 0a zName, zValue);.
2fe0: 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a }. }.}../*.
2ff0: 2a 2a 20 2a 70 7a 20 69 73 20 61 20 73 74 72 69 ** *pz is a stri
3000: 6e 67 20 74 68 61 74 20 63 6f 6e 73 69 73 74 73 ng that consists
3010: 20 6f 66 20 6d 75 6c 74 69 70 6c 65 20 6c 69 6e of multiple lin
3020: 65 73 20 6f 66 20 74 65 78 74 2e 20 20 54 68 69 es of text. Thi
3030: 73 0a 2a 2a 20 72 6f 75 74 69 6e 65 20 66 69 6e s.** routine fin
3040: 64 73 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 ds the end of th
3050: 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 6f e current line o
3060: 66 20 74 65 78 74 20 61 6e 64 20 63 6f 6e 76 65 f text and conve
3070: 72 74 73 0a 2a 2a 20 74 68 65 20 22 5c 6e 22 20 rts.** the "\n"
3080: 6f 72 20 22 5c 72 5c 6e 22 20 74 68 61 74 20 65 or "\r\n" that e
3090: 6e 64 73 20 74 68 61 74 20 6c 69 6e 65 20 69 6e nds that line in
30a0: 74 6f 20 61 20 22 5c 30 30 30 22 2e 20 20 49 74 to a "\000". It
30b0: 20 74 68 65 6e 0a 2a 2a 20 61 64 76 61 6e 63 65 then.** advance
30c0: 73 20 2a 70 7a 20 74 6f 20 74 68 65 20 62 65 67 s *pz to the beg
30d0: 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 6e 65 inning of the ne
30e0: 78 74 20 6c 69 6e 65 20 61 6e 64 20 72 65 74 75 xt line and retu
30f0: 72 6e 73 20 74 68 65 0a 2a 2a 20 70 72 65 76 69 rns the.** previ
3100: 6f 75 73 20 76 61 6c 75 65 20 6f 66 20 2a 70 7a ous value of *pz
3110: 20 28 77 68 69 63 68 20 69 73 20 74 68 65 20 73 (which is the s
3120: 74 61 72 74 20 6f 66 20 74 68 65 20 63 75 72 72 tart of the curr
3130: 65 6e 74 20 6c 69 6e 65 2e 29 0a 2a 2f 0a 73 74 ent line.).*/.st
3140: 61 74 69 63 20 63 68 61 72 20 2a 67 65 74 5f 6c atic char *get_l
3150: 69 6e 65 5f 66 72 6f 6d 5f 73 74 72 69 6e 67 28 ine_from_string(
3160: 63 68 61 72 20 2a 2a 70 7a 2c 20 69 6e 74 20 2a char **pz, int *
3170: 70 4c 65 6e 29 7b 0a 20 20 63 68 61 72 20 2a 7a pLen){. char *z
3180: 20 3d 20 2a 70 7a 3b 0a 20 20 69 6e 74 20 69 3b = *pz;. int i;
3190: 0a 20 20 69 66 28 20 7a 5b 30 5d 3d 3d 30 20 29 . if( z[0]==0 )
31a0: 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 66 6f 72 return 0;. for
31b0: 28 69 3d 30 3b 20 7a 5b 69 5d 3b 20 69 2b 2b 29 (i=0; z[i]; i++)
31c0: 7b 0a 20 20 20 20 69 66 28 20 7a 5b 69 5d 3d 3d {. if( z[i]==
31d0: 27 5c 6e 27 20 29 7b 0a 20 20 20 20 20 20 69 66 '\n' ){. if
31e0: 28 20 69 3e 30 20 26 26 20 7a 5b 69 2d 31 5d 3d ( i>0 && z[i-1]=
31f0: 3d 27 5c 72 27 20 29 7b 0a 20 20 20 20 20 20 20 ='\r' ){.
3200: 20 7a 5b 69 2d 31 5d 20 3d 20 30 3b 0a 20 20 20 z[i-1] = 0;.
3210: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 }else{.
3220: 20 20 7a 5b 69 5d 20 3d 20 30 3b 0a 20 20 20 20 z[i] = 0;.
3230: 20 20 7d 0a 20 20 20 20 20 20 69 2b 2b 3b 0a 20 }. i++;.
3240: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
3250: 7d 0a 20 20 7d 0a 20 20 2a 70 7a 20 3d 20 26 7a }. }. *pz = &z
3260: 5b 69 5d 3b 0a 20 20 2a 70 4c 65 6e 20 2d 3d 20 [i];. *pLen -=
3270: 69 3b 0a 20 20 72 65 74 75 72 6e 20 7a 3b 0a 7d i;. return z;.}
3280: 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 69 6e 70 75 ../*.** The inpu
3290: 74 20 2a 70 7a 20 70 6f 69 6e 74 73 20 74 6f 20 t *pz points to
32a0: 63 6f 6e 74 65 6e 74 20 74 68 61 74 20 69 73 20 content that is
32b0: 74 65 72 6d 69 6e 61 74 65 64 20 62 79 20 61 20 terminated by a
32c0: 22 5c 72 5c 6e 22 0a 2a 2a 20 66 6f 6c 6c 6f 77 "\r\n".** follow
32d0: 65 64 20 62 79 20 74 68 65 20 62 6f 75 6e 64 72 ed by the boundr
32e0: 79 20 6d 61 72 6b 65 72 20 7a 42 6f 75 6e 64 72 y marker zBoundr
32f0: 79 2e 20 20 41 6e 20 65 78 74 72 61 20 22 2d 2d y. An extra "--
3300: 22 20 6d 61 79 20 6f 72 0a 2a 2a 20 6d 61 79 20 " may or.** may
3310: 6e 6f 74 20 62 65 20 61 70 70 65 6e 64 65 64 20 not be appended
3320: 74 6f 20 74 68 65 20 62 6f 75 6e 64 72 79 20 6d to the boundry m
3330: 61 72 6b 65 72 2e 20 20 54 68 65 72 65 20 61 72 arker. There ar
3340: 65 20 2a 70 4c 65 6e 20 63 68 61 72 61 63 74 65 e *pLen characte
3350: 72 73 0a 2a 2a 20 69 6e 20 2a 70 7a 2e 0a 2a 2a rs.** in *pz..**
3360: 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 69 6e 65 .** This routine
3370: 20 61 64 64 73 20 61 20 22 5c 30 30 30 22 20 74 adds a "\000" t
3380: 6f 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 o the end of the
3390: 20 63 6f 6e 74 65 6e 74 20 28 6f 76 65 72 77 72 content (overwr
33a0: 69 74 69 6e 67 0a 2a 2a 20 74 68 65 20 22 5c 72 iting.** the "\r
33b0: 5c 6e 22 29 20 61 6e 64 20 72 65 74 75 72 6e 73 \n") and returns
33c0: 20 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 74 68 a pointer to th
33d0: 65 20 63 6f 6e 74 65 6e 74 2e 20 20 54 68 65 20 e content. The
33e0: 2a 70 7a 20 69 6e 70 75 74 0a 2a 2a 20 69 73 20 *pz input.** is
33f0: 61 64 6a 75 73 74 65 64 20 74 6f 20 70 6f 69 6e adjusted to poin
3400: 74 20 74 6f 20 74 68 65 20 66 69 72 73 74 20 6c t to the first l
3410: 69 6e 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 68 ine following th
3420: 65 20 62 6f 75 6e 64 72 79 2e 0a 2a 2a 20 54 68 e boundry..** Th
3430: 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 e length of the
3440: 63 6f 6e 74 65 6e 74 20 69 73 20 73 74 6f 72 65 content is store
3450: 64 20 69 6e 20 2a 70 6e 43 6f 6e 74 65 6e 74 2e d in *pnContent.
3460: 0a 2a 2f 0a 73 74 61 74 69 63 20 63 68 61 72 20 .*/.static char
3470: 2a 67 65 74 5f 62 6f 75 6e 64 65 64 5f 63 6f 6e *get_bounded_con
3480: 74 65 6e 74 28 0a 20 20 63 68 61 72 20 2a 2a 70 tent(. char **p
3490: 7a 2c 20 20 20 20 20 20 20 20 20 2f 2a 20 43 6f z, /* Co
34a0: 6e 74 65 6e 74 20 74 61 6b 65 6e 20 66 72 6f 6d ntent taken from
34b0: 20 68 65 72 65 20 2a 2f 0a 20 20 69 6e 74 20 2a here */. int *
34c0: 70 4c 65 6e 2c 20 20 20 20 20 20 20 20 20 2f 2a pLen, /*
34d0: 20 4e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 Number of bytes
34e0: 20 6f 66 20 64 61 74 61 20 69 6e 20 28 2a 70 7a of data in (*pz
34f0: 29 5b 5d 20 2a 2f 0a 20 20 63 68 61 72 20 2a 7a )[] */. char *z
3500: 42 6f 75 6e 64 72 79 2c 20 20 20 20 2f 2a 20 42 Boundry, /* B
3510: 6f 75 6e 64 72 79 20 74 65 78 74 20 6d 61 72 6b oundry text mark
3520: 69 6e 67 20 74 68 65 20 65 6e 64 20 6f 66 20 63 ing the end of c
3530: 6f 6e 74 65 6e 74 20 2a 2f 0a 20 20 69 6e 74 20 ontent */. int
3540: 2a 70 6e 43 6f 6e 74 65 6e 74 20 20 20 20 20 2f *pnContent /
3550: 2a 20 57 72 69 74 65 20 74 68 65 20 73 69 7a 65 * Write the size
3560: 20 6f 66 20 74 68 65 20 63 6f 6e 74 65 6e 74 20 of the content
3570: 68 65 72 65 20 2a 2f 0a 29 7b 0a 20 20 63 68 61 here */.){. cha
3580: 72 20 2a 7a 20 3d 20 2a 70 7a 3b 0a 20 20 69 6e r *z = *pz;. in
3590: 74 20 6c 65 6e 20 3d 20 2a 70 4c 65 6e 3b 0a 20 t len = *pLen;.
35a0: 20 69 6e 74 20 69 3b 0a 20 20 69 6e 74 20 6e 42 int i;. int nB
35b0: 6f 75 6e 64 72 79 20 3d 20 73 74 72 6c 65 6e 28 oundry = strlen(
35c0: 7a 42 6f 75 6e 64 72 79 29 3b 0a 20 20 2a 70 6e zBoundry);. *pn
35d0: 43 6f 6e 74 65 6e 74 20 3d 20 6c 65 6e 3b 0a 20 Content = len;.
35e0: 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6c 65 6e 3b for(i=0; i<len;
35f0: 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 7a i++){. if( z
3600: 5b 69 5d 3d 3d 27 5c 6e 27 20 26 26 20 73 74 72 [i]=='\n' && str
3610: 6e 63 6d 70 28 7a 42 6f 75 6e 64 72 79 2c 20 26 ncmp(zBoundry, &
3620: 7a 5b 69 2b 31 5d 2c 20 6e 42 6f 75 6e 64 72 79 z[i+1], nBoundry
3630: 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 69 66 )==0 ){. if
3640: 28 20 69 3e 30 20 26 26 20 7a 5b 69 2d 31 5d 3d ( i>0 && z[i-1]=
3650: 3d 27 5c 72 27 20 29 20 69 2d 2d 3b 0a 20 20 20 ='\r' ) i--;.
3660: 20 20 20 7a 5b 69 5d 20 3d 20 30 3b 0a 20 20 20 z[i] = 0;.
3670: 20 20 20 2a 70 6e 43 6f 6e 74 65 6e 74 20 3d 20 *pnContent =
3680: 69 3b 0a 20 20 20 20 20 20 69 20 2b 3d 20 6e 42 i;. i += nB
3690: 6f 75 6e 64 72 79 3b 0a 20 20 20 20 20 20 62 72 oundry;. br
36a0: 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 eak;. }. }.
36b0: 20 2a 70 7a 20 3d 20 26 7a 5b 69 5d 3b 0a 20 20 *pz = &z[i];.
36c0: 67 65 74 5f 6c 69 6e 65 5f 66 72 6f 6d 5f 73 74 get_line_from_st
36d0: 72 69 6e 67 28 70 7a 2c 20 70 4c 65 6e 29 3b 0a ring(pz, pLen);.
36e0: 20 20 72 65 74 75 72 6e 20 7a 3b 20 20 20 20 20 return z;
36f0: 20 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 6f 6b 65 6e .}../*.** Token
3700: 69 7a 65 20 61 20 6c 69 6e 65 20 6f 66 20 74 65 ize a line of te
3710: 78 74 20 69 6e 74 6f 20 61 73 20 6d 61 6e 79 20 xt into as many
3720: 61 73 20 6e 41 72 67 20 74 6f 6b 65 6e 73 2e 20 as nArg tokens.
3730: 20 4d 61 6b 65 0a 2a 2a 20 61 7a 41 72 67 5b 5d Make.** azArg[]
3740: 20 70 6f 69 6e 74 20 74 6f 20 74 68 65 20 73 74 point to the st
3750: 61 72 74 20 6f 66 20 65 61 63 68 20 74 6f 6b 65 art of each toke
3760: 6e 2e 0a 2a 2a 0a 2a 2a 20 54 6f 6b 65 6e 73 20 n..**.** Tokens
3770: 63 6f 6e 73 69 73 74 20 6f 66 20 73 70 61 63 65 consist of space
3780: 20 6f 72 20 73 65 6d 69 2d 63 6f 6c 6f 6e 20 64 or semi-colon d
3790: 65 6c 69 6d 69 74 65 64 20 77 6f 72 64 73 20 6f elimited words o
37a0: 72 0a 2a 2a 20 73 74 72 69 6e 67 73 20 69 6e 73 r.** strings ins
37b0: 69 64 65 20 64 6f 75 62 6c 65 2d 71 75 6f 74 65 ide double-quote
37c0: 73 2e 20 20 45 78 61 6d 70 6c 65 3a 0a 2a 2a 0a s. Example:.**.
37d0: 2a 2a 20 20 20 20 63 6f 6e 74 65 6e 74 2d 64 69 ** content-di
37e0: 73 70 6f 73 69 74 69 6f 6e 3a 20 66 6f 72 6d 2d sposition: form-
37f0: 64 61 74 61 3b 20 6e 61 6d 65 3d 22 66 6e 22 3b data; name="fn";
3800: 20 66 69 6c 65 6e 61 6d 65 3d 22 69 6e 64 65 78 filename="index
3810: 2e 68 74 6d 6c 22 0a 2a 2a 0a 2a 2a 20 54 68 65 .html".**.** The
3820: 20 6c 69 6e 65 20 61 62 6f 76 65 20 69 73 20 74 line above is t
3830: 6f 6b 65 6e 69 7a 65 64 20 61 73 20 66 6f 6c 6c okenized as foll
3840: 6f 77 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 61 7a ows:.**.** az
3850: 41 72 67 5b 30 5d 20 3d 20 22 63 6f 6e 74 65 6e Arg[0] = "conten
3860: 74 2d 64 69 73 70 6f 73 69 74 69 6f 6e 3a 22 0a t-disposition:".
3870: 2a 2a 20 20 20 20 61 7a 41 72 67 5b 31 5d 20 3d ** azArg[1] =
3880: 20 22 66 6f 72 6d 2d 64 61 74 61 22 0a 2a 2a 20 "form-data".**
3890: 20 20 20 61 7a 41 72 67 5b 32 5d 20 3d 20 22 6e azArg[2] = "n
38a0: 61 6d 65 3d 22 0a 2a 2a 20 20 20 20 61 7a 41 72 ame=".** azAr
38b0: 67 5b 33 5d 20 3d 20 22 66 6e 22 0a 2a 2a 20 20 g[3] = "fn".**
38c0: 20 20 61 7a 41 72 67 5b 34 5d 20 3d 20 22 66 69 azArg[4] = "fi
38d0: 6c 65 6e 61 6d 65 3d 22 0a 2a 2a 20 20 20 20 61 lename=".** a
38e0: 7a 41 72 67 5b 35 5d 20 3d 20 22 69 6e 64 65 78 zArg[5] = "index
38f0: 2e 68 74 6d 6c 22 0a 2a 2a 20 20 20 20 61 7a 41 .html".** azA
3900: 72 67 5b 36 5d 20 3d 20 30 3b 0a 2a 2a 0a 2a 2a rg[6] = 0;.**.**
3910: 20 27 5c 30 30 30 27 20 63 68 61 72 61 63 74 65 '\000' characte
3920: 72 73 20 61 72 65 20 69 6e 73 65 72 74 65 64 20 rs are inserted
3930: 69 6e 20 7a 5b 5d 20 61 74 20 74 68 65 20 65 6e in z[] at the en
3940: 64 20 6f 66 20 65 61 63 68 20 74 6f 6b 65 6e 2e d of each token.
3950: 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 69 6e 65 .** This routine
3960: 20 72 65 74 75 72 6e 73 20 74 68 65 20 74 6f 74 returns the tot
3970: 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20 74 6f 6b al number of tok
3980: 65 6e 73 20 6f 6e 20 74 68 65 20 6c 69 6e 65 2c ens on the line,
3990: 20 36 0a 2a 2a 20 69 6e 20 74 68 65 20 65 78 61 6.** in the exa
39a0: 6d 70 6c 65 20 61 62 6f 76 65 2e 0a 2a 2f 0a 73 mple above..*/.s
39b0: 74 61 74 69 63 20 69 6e 74 20 74 6f 6b 65 6e 69 tatic int tokeni
39c0: 7a 65 5f 6c 69 6e 65 28 63 68 61 72 20 2a 7a 2c ze_line(char *z,
39d0: 20 69 6e 74 20 6d 78 41 72 67 2c 20 63 68 61 72 int mxArg, char
39e0: 20 2a 2a 61 7a 41 72 67 29 7b 0a 20 20 69 6e 74 **azArg){. int
39f0: 20 69 20 3d 20 30 3b 0a 20 20 77 68 69 6c 65 28 i = 0;. while(
3a00: 20 2a 7a 20 29 7b 0a 20 20 20 20 77 68 69 6c 65 *z ){. while
3a10: 28 20 69 73 73 70 61 63 65 28 2a 7a 29 20 7c 7c ( isspace(*z) ||
3a20: 20 2a 7a 3d 3d 27 3b 27 20 29 7b 20 7a 2b 2b 3b *z==';' ){ z++;
3a30: 20 7d 0a 20 20 20 20 69 66 28 20 2a 7a 3d 3d 27 }. if( *z=='
3a40: 22 27 20 26 26 20 7a 5b 31 5d 20 29 7b 0a 20 20 "' && z[1] ){.
3a50: 20 20 20 20 2a 7a 20 3d 20 30 3b 0a 20 20 20 20 *z = 0;.
3a60: 20 20 7a 2b 2b 3b 0a 20 20 20 20 20 20 69 66 28 z++;. if(
3a70: 20 69 3c 6d 78 41 72 67 2d 31 20 29 7b 20 61 7a i<mxArg-1 ){ az
3a80: 41 72 67 5b 69 2b 2b 5d 20 3d 20 7a 3b 20 7d 0a Arg[i++] = z; }.
3a90: 20 20 20 20 20 20 77 68 69 6c 65 28 20 2a 7a 20 while( *z
3aa0: 26 26 20 2a 7a 21 3d 27 22 27 20 29 7b 20 7a 2b && *z!='"' ){ z+
3ab0: 2b 3b 20 7d 0a 20 20 20 20 20 20 69 66 28 20 2a +; }. if( *
3ac0: 7a 3d 3d 30 20 29 20 62 72 65 61 6b 3b 0a 20 20 z==0 ) break;.
3ad0: 20 20 20 20 2a 7a 20 3d 20 30 3b 0a 20 20 20 20 *z = 0;.
3ae0: 20 20 7a 2b 2b 3b 0a 20 20 20 20 7d 65 6c 73 65 z++;. }else
3af0: 7b 0a 20 20 20 20 20 20 69 66 28 20 69 3c 6d 78 {. if( i<mx
3b00: 41 72 67 2d 31 20 29 7b 20 61 7a 41 72 67 5b 69 Arg-1 ){ azArg[i
3b10: 2b 2b 5d 20 3d 20 7a 3b 20 7d 0a 20 20 20 20 20 ++] = z; }.
3b20: 20 77 68 69 6c 65 28 20 2a 7a 20 26 26 20 21 69 while( *z && !i
3b30: 73 73 70 61 63 65 28 2a 7a 29 20 26 26 20 2a 7a sspace(*z) && *z
3b40: 21 3d 27 3b 27 20 26 26 20 2a 7a 21 3d 27 22 27 !=';' && *z!='"'
3b50: 20 29 7b 20 7a 2b 2b 3b 20 7d 0a 20 20 20 20 20 ){ z++; }.
3b60: 20 69 66 28 20 2a 7a 20 26 26 20 2a 7a 21 3d 27 if( *z && *z!='
3b70: 22 27 20 29 7b 0a 20 20 20 20 20 20 20 20 2a 7a "' ){. *z
3b80: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 7a 2b = 0;. z+
3b90: 2b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d +;. }. }
3ba0: 0a 20 20 7d 0a 20 20 61 7a 41 72 67 5b 69 5d 20 . }. azArg[i]
3bb0: 3d 20 30 3b 0a 20 20 72 65 74 75 72 6e 20 69 3b = 0;. return i;
3bc0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 63 61 6e 20 74 .}../*.** Scan t
3bd0: 68 65 20 6d 75 6c 74 69 70 61 72 74 2d 66 6f 72 he multipart-for
3be0: 6d 20 63 6f 6e 74 65 6e 74 20 61 6e 64 20 6d 61 m content and ma
3bf0: 6b 65 20 61 70 70 72 6f 70 72 69 61 74 65 20 65 ke appropriate e
3c00: 6e 74 72 69 65 73 0a 2a 2a 20 69 6e 74 6f 20 74 ntries.** into t
3c10: 68 65 20 70 61 72 61 6d 65 74 65 72 20 74 61 62 he parameter tab
3c20: 6c 65 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 63 6f le..**.** The co
3c30: 6e 74 65 6e 74 20 73 74 72 69 6e 67 20 22 7a 22 ntent string "z"
3c40: 20 69 73 20 6d 6f 64 69 66 69 65 64 20 62 79 20 is modified by
3c50: 74 68 69 73 20 72 6f 75 74 69 6e 65 20 62 75 74 this routine but
3c60: 20 69 74 20 69 73 0a 2a 2a 20 6e 6f 74 20 63 6f it is.** not co
3c70: 70 69 65 64 2e 20 20 54 68 65 20 63 61 6c 6c 69 pied. The calli
3c80: 6e 67 20 66 75 6e 63 74 69 6f 6e 20 6d 75 73 74 ng function must
3c90: 20 6e 6f 74 20 64 65 61 6c 6c 6f 63 61 74 65 20 not deallocate
3ca0: 6f 72 20 6d 6f 64 69 66 79 0a 2a 2a 20 22 7a 22 or modify.** "z"
3cb0: 20 61 66 74 65 72 20 74 68 69 73 20 72 6f 75 74 after this rout
3cc0: 69 6e 65 20 66 69 6e 69 73 68 65 73 20 6f 72 20 ine finishes or
3cd0: 69 74 20 63 6f 75 6c 64 20 63 6f 72 72 75 70 74 it could corrupt
3ce0: 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 0a 2a the parameter.*
3cf0: 2a 20 74 61 62 6c 65 2e 0a 2a 2f 0a 73 74 61 74 * table..*/.stat
3d00: 69 63 20 76 6f 69 64 20 70 72 6f 63 65 73 73 5f ic void process_
3d10: 6d 75 6c 74 69 70 61 72 74 5f 66 6f 72 6d 5f 64 multipart_form_d
3d20: 61 74 61 28 63 68 61 72 20 2a 7a 2c 20 69 6e 74 ata(char *z, int
3d30: 20 6c 65 6e 29 7b 0a 20 20 63 68 61 72 20 2a 7a len){. char *z
3d40: 4c 69 6e 65 3b 0a 20 20 69 6e 74 20 6e 41 72 67 Line;. int nArg
3d50: 2c 20 69 3b 0a 20 20 63 68 61 72 20 2a 7a 42 6f , i;. char *zBo
3d60: 75 6e 64 72 79 3b 0a 20 20 63 68 61 72 20 2a 7a undry;. char *z
3d70: 56 61 6c 75 65 3b 0a 20 20 63 68 61 72 20 2a 7a Value;. char *z
3d80: 4e 61 6d 65 20 3d 20 30 3b 0a 20 20 69 6e 74 20 Name = 0;. int
3d90: 73 68 6f 77 42 79 74 65 73 20 3d 20 30 3b 0a 20 showBytes = 0;.
3da0: 20 63 68 61 72 20 2a 61 7a 41 72 67 5b 35 30 5d char *azArg[50]
3db0: 3b 0a 0a 20 20 7a 42 6f 75 6e 64 72 79 20 3d 20 ;.. zBoundry =
3dc0: 67 65 74 5f 6c 69 6e 65 5f 66 72 6f 6d 5f 73 74 get_line_from_st
3dd0: 72 69 6e 67 28 26 7a 2c 20 26 6c 65 6e 29 3b 0a ring(&z, &len);.
3de0: 20 20 69 66 28 20 7a 42 6f 75 6e 64 72 79 3d 3d if( zBoundry==
3df0: 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 77 68 0 ) return;. wh
3e00: 69 6c 65 28 20 28 7a 4c 69 6e 65 20 3d 20 67 65 ile( (zLine = ge
3e10: 74 5f 6c 69 6e 65 5f 66 72 6f 6d 5f 73 74 72 69 t_line_from_stri
3e20: 6e 67 28 26 7a 2c 20 26 6c 65 6e 29 29 21 3d 30 ng(&z, &len))!=0
3e30: 20 29 7b 0a 20 20 20 20 69 66 28 20 7a 4c 69 6e ){. if( zLin
3e40: 65 5b 30 5d 3d 3d 30 20 29 7b 0a 20 20 20 20 20 e[0]==0 ){.
3e50: 20 69 6e 74 20 6e 43 6f 6e 74 65 6e 74 20 3d 20 int nContent =
3e60: 30 3b 0a 20 20 20 20 20 20 7a 56 61 6c 75 65 20 0;. zValue
3e70: 3d 20 67 65 74 5f 62 6f 75 6e 64 65 64 5f 63 6f = get_bounded_co
3e80: 6e 74 65 6e 74 28 26 7a 2c 20 26 6c 65 6e 2c 20 ntent(&z, &len,
3e90: 7a 42 6f 75 6e 64 72 79 2c 20 26 6e 43 6f 6e 74 zBoundry, &nCont
3ea0: 65 6e 74 29 3b 0a 20 20 20 20 20 20 69 66 28 20 ent);. if(
3eb0: 7a 4e 61 6d 65 20 26 26 20 7a 56 61 6c 75 65 20 zName && zValue
3ec0: 26 26 20 69 73 6c 6f 77 65 72 28 7a 4e 61 6d 65 && islower(zName
3ed0: 5b 30 5d 29 20 29 7b 0a 20 20 20 20 20 20 20 20 [0]) ){.
3ee0: 63 67 69 5f 73 65 74 5f 70 61 72 61 6d 65 74 65 cgi_set_paramete
3ef0: 72 5f 6e 6f 63 6f 70 79 28 7a 4e 61 6d 65 2c 20 r_nocopy(zName,
3f00: 7a 56 61 6c 75 65 29 3b 0a 20 20 20 20 20 20 20 zValue);.
3f10: 20 69 66 28 20 73 68 6f 77 42 79 74 65 73 20 29 if( showBytes )
3f20: 7b 0a 20 20 20 20 20 20 20 20 20 20 63 67 69 5f {. cgi_
3f30: 73 65 74 5f 70 61 72 61 6d 65 74 65 72 5f 6e 6f set_parameter_no
3f40: 63 6f 70 79 28 6d 70 72 69 6e 74 66 28 22 25 73 copy(mprintf("%s
3f50: 3a 62 79 74 65 73 22 2c 20 7a 4e 61 6d 65 29 2c :bytes", zName),
3f60: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
3f70: 6d 70 72 69 6e 74 66 28 22 25 64 22 2c 6e 43 6f mprintf("%d",nCo
3f80: 6e 74 65 6e 74 29 29 3b 0a 20 20 20 20 20 20 20 ntent));.
3f90: 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 }. }.
3fa0: 20 7a 4e 61 6d 65 20 3d 20 30 3b 0a 20 20 20 20 zName = 0;.
3fb0: 20 20 73 68 6f 77 42 79 74 65 73 20 3d 20 30 3b showBytes = 0;
3fc0: 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 . }else{.
3fd0: 20 20 6e 41 72 67 20 3d 20 74 6f 6b 65 6e 69 7a nArg = tokeniz
3fe0: 65 5f 6c 69 6e 65 28 7a 4c 69 6e 65 2c 20 73 69 e_line(zLine, si
3ff0: 7a 65 6f 66 28 61 7a 41 72 67 29 2f 73 69 7a 65 zeof(azArg)/size
4000: 6f 66 28 61 7a 41 72 67 5b 30 5d 29 2c 20 61 7a of(azArg[0]), az
4010: 41 72 67 29 3b 0a 20 20 20 20 20 20 66 6f 72 28 Arg);. for(
4020: 69 3d 30 3b 20 69 3c 6e 41 72 67 3b 20 69 2b 2b i=0; i<nArg; i++
4030: 29 7b 0a 20 20 20 20 20 20 20 20 69 6e 74 20 63 ){. int c
4040: 20 3d 20 74 6f 6c 6f 77 65 72 28 61 7a 41 72 67 = tolower(azArg
4050: 5b 69 5d 5b 30 5d 29 3b 0a 20 20 20 20 20 20 20 [i][0]);.
4060: 20 69 66 28 20 63 3d 3d 27 63 27 20 26 26 20 73 if( c=='c' && s
4070: 74 72 69 63 6d 70 28 61 7a 41 72 67 5b 69 5d 2c tricmp(azArg[i],
4080: 22 63 6f 6e 74 65 6e 74 2d 64 69 73 70 6f 73 69 "content-disposi
4090: 74 69 6f 6e 3a 22 29 3d 3d 30 20 29 7b 0a 20 20 tion:")==0 ){.
40a0: 20 20 20 20 20 20 20 20 69 2b 2b 3b 0a 20 20 20 i++;.
40b0: 20 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 63 }else if( c
40c0: 3d 3d 27 6e 27 20 26 26 20 73 74 72 69 63 6d 70 =='n' && stricmp
40d0: 28 61 7a 41 72 67 5b 69 5d 2c 22 6e 61 6d 65 3d (azArg[i],"name=
40e0: 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 ")==0 ){.
40f0: 20 20 20 7a 4e 61 6d 65 20 3d 20 61 7a 41 72 67 zName = azArg
4100: 5b 2b 2b 69 5d 3b 0a 20 20 20 20 20 20 20 20 7d [++i];. }
4110: 65 6c 73 65 20 69 66 28 20 63 3d 3d 27 66 27 20 else if( c=='f'
4120: 26 26 20 73 74 72 69 63 6d 70 28 61 7a 41 72 67 && stricmp(azArg
4130: 5b 69 5d 2c 22 66 69 6c 65 6e 61 6d 65 3d 22 29 [i],"filename=")
4140: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 ==0 ){.
4150: 20 63 68 61 72 20 2a 7a 20 3d 20 61 7a 41 72 67 char *z = azArg
4160: 5b 2b 2b 69 5d 3b 0a 20 20 20 20 20 20 20 20 20 [++i];.
4170: 20 69 66 28 20 7a 4e 61 6d 65 20 26 26 20 7a 20 if( zName && z
4180: 26 26 20 69 73 6c 6f 77 65 72 28 7a 4e 61 6d 65 && islower(zName
4190: 5b 30 5d 29 20 29 7b 0a 20 20 20 20 20 20 20 20 [0]) ){.
41a0: 20 20 20 20 63 67 69 5f 73 65 74 5f 70 61 72 61 cgi_set_para
41b0: 6d 65 74 65 72 5f 6e 6f 63 6f 70 79 28 6d 70 72 meter_nocopy(mpr
41c0: 69 6e 74 66 28 22 25 73 3a 66 69 6c 65 6e 61 6d intf("%s:filenam
41d0: 65 22 2c 7a 4e 61 6d 65 29 2c 20 7a 29 3b 0a 20 e",zName), z);.
41e0: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 }.
41f0: 20 20 20 20 20 73 68 6f 77 42 79 74 65 73 20 3d showBytes =
4200: 20 31 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 1;. }els
4210: 65 20 69 66 28 20 63 3d 3d 27 63 27 20 26 26 20 e if( c=='c' &&
4220: 73 74 72 69 63 6d 70 28 61 7a 41 72 67 5b 69 5d stricmp(azArg[i]
4230: 2c 22 63 6f 6e 74 65 6e 74 2d 74 79 70 65 3a 22 ,"content-type:"
4240: 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20 )==0 ){.
4250: 20 20 63 68 61 72 20 2a 7a 20 3d 20 61 7a 41 72 char *z = azAr
4260: 67 5b 2b 2b 69 5d 3b 0a 20 20 20 20 20 20 20 20 g[++i];.
4270: 20 20 69 66 28 20 7a 4e 61 6d 65 20 26 26 20 7a if( zName && z
4280: 20 26 26 20 69 73 6c 6f 77 65 72 28 7a 4e 61 6d && islower(zNam
4290: 65 5b 30 5d 29 20 29 7b 0a 20 20 20 20 20 20 20 e[0]) ){.
42a0: 20 20 20 20 20 63 67 69 5f 73 65 74 5f 70 61 72 cgi_set_par
42b0: 61 6d 65 74 65 72 5f 6e 6f 63 6f 70 79 28 6d 70 ameter_nocopy(mp
42c0: 72 69 6e 74 66 28 22 25 73 3a 6d 69 6d 65 74 79 rintf("%s:mimety
42d0: 70 65 22 2c 7a 4e 61 6d 65 29 2c 20 7a 29 3b 0a pe",zName), z);.
42e0: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 }.
42f0: 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 }. }.
4300: 20 20 7d 0a 20 20 7d 20 20 20 20 20 20 20 20 0a }. } .
4310: 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6e 69 74 69 61 6c }../*.** Initial
4320: 69 7a 65 20 74 68 65 20 71 75 65 72 79 20 70 61 ize the query pa
4330: 72 61 6d 65 74 65 72 20 64 61 74 61 62 61 73 65 rameter database
4340: 2e 20 20 49 6e 66 6f 72 6d 61 74 69 6f 6e 20 69 . Information i
4350: 73 20 70 75 6c 6c 65 64 20 66 72 6f 6d 0a 2a 2a s pulled from.**
4360: 20 74 68 65 20 51 55 45 52 59 5f 53 54 52 49 4e the QUERY_STRIN
4370: 47 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 76 61 G environment va
4380: 72 69 61 62 6c 65 20 28 69 66 20 69 74 20 65 78 riable (if it ex
4390: 69 73 74 73 29 2c 20 66 72 6f 6d 20 73 74 61 6e ists), from stan
43a0: 64 61 72 64 0a 2a 2a 20 69 6e 70 75 74 20 69 66 dard.** input if
43b0: 20 74 68 65 72 65 20 69 73 20 50 4f 53 54 20 64 there is POST d
43c0: 61 74 61 2c 20 61 6e 64 20 66 72 6f 6d 20 48 54 ata, and from HT
43d0: 54 50 5f 43 4f 4f 4b 49 45 2e 0a 2a 2f 0a 76 6f TP_COOKIE..*/.vo
43e0: 69 64 20 63 67 69 5f 69 6e 69 74 28 76 6f 69 64 id cgi_init(void
43f0: 29 7b 0a 20 20 63 68 61 72 20 2a 7a 3b 0a 20 20 ){. char *z;.
4400: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 54 79 70 const char *zTyp
4410: 65 3b 0a 20 20 69 6e 74 20 6c 65 6e 3b 0a 20 20 e;. int len;.
4420: 7a 20 3d 20 28 63 68 61 72 2a 29 50 28 22 51 55 z = (char*)P("QU
4430: 45 52 59 5f 53 54 52 49 4e 47 22 29 3b 0a 20 20 ERY_STRING");.
4440: 69 66 28 20 7a 20 29 7b 0a 20 20 20 20 7a 20 3d if( z ){. z =
4450: 20 6d 70 72 69 6e 74 66 28 22 25 73 22 2c 7a 29 mprintf("%s",z)
4460: 3b 0a 20 20 20 20 61 64 64 5f 70 61 72 61 6d 5f ;. add_param_
4470: 6c 69 73 74 28 7a 2c 20 27 26 27 29 3b 0a 20 20 list(z, '&');.
4480: 7d 0a 0a 20 20 6c 65 6e 20 3d 20 61 74 6f 69 28 }.. len = atoi(
4490: 50 44 28 22 43 4f 4e 54 45 4e 54 5f 4c 45 4e 47 PD("CONTENT_LENG
44a0: 54 48 22 2c 20 22 30 22 29 29 3b 0a 20 20 67 2e TH", "0"));. g.
44b0: 7a 43 6f 6e 74 65 6e 74 54 79 70 65 20 3d 20 7a zContentType = z
44c0: 54 79 70 65 20 3d 20 50 28 22 43 4f 4e 54 45 4e Type = P("CONTEN
44d0: 54 5f 54 59 50 45 22 29 3b 0a 20 20 69 66 28 20 T_TYPE");. if(
44e0: 6c 65 6e 3e 30 20 26 26 20 7a 54 79 70 65 20 29 len>0 && zType )
44f0: 7b 0a 20 20 20 20 62 6c 6f 62 5f 7a 65 72 6f 28 {. blob_zero(
4500: 26 67 2e 63 67 69 49 6e 29 3b 0a 20 20 20 20 69 &g.cgiIn);. i
4510: 66 28 20 73 74 72 63 6d 70 28 7a 54 79 70 65 2c f( strcmp(zType,
4520: 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 78 2d 77 "application/x-w
4530: 77 77 2d 66 6f 72 6d 2d 75 72 6c 65 6e 63 6f 64 ww-form-urlencod
4540: 65 64 22 29 3d 3d 30 20 0a 20 20 20 20 20 20 20 ed")==0 .
4550: 20 20 7c 7c 20 73 74 72 6e 63 6d 70 28 7a 54 79 || strncmp(zTy
4560: 70 65 2c 22 6d 75 6c 74 69 70 61 72 74 2f 66 6f pe,"multipart/fo
4570: 72 6d 2d 64 61 74 61 22 2c 31 39 29 3d 3d 30 20 rm-data",19)==0
4580: 29 7b 0a 20 20 20 20 20 20 7a 20 3d 20 6d 61 6c ){. z = mal
4590: 6c 6f 63 28 20 6c 65 6e 2b 31 20 29 3b 0a 20 20 loc( len+1 );.
45a0: 20 20 20 20 69 66 28 20 7a 3d 3d 30 20 29 20 65 if( z==0 ) e
45b0: 78 69 74 28 31 29 3b 0a 20 20 20 20 20 20 6c 65 xit(1);. le
45c0: 6e 20 3d 20 66 72 65 61 64 28 7a 2c 20 31 2c 20 n = fread(z, 1,
45d0: 6c 65 6e 2c 20 73 74 64 69 6e 29 3b 0a 20 20 20 len, stdin);.
45e0: 20 20 20 7a 5b 6c 65 6e 5d 20 3d 20 30 3b 0a 20 z[len] = 0;.
45f0: 20 20 20 20 20 69 66 28 20 7a 54 79 70 65 5b 30 if( zType[0
4600: 5d 3d 3d 27 61 27 20 29 7b 0a 20 20 20 20 20 20 ]=='a' ){.
4610: 20 20 61 64 64 5f 70 61 72 61 6d 5f 6c 69 73 74 add_param_list
4620: 28 7a 2c 20 27 26 27 29 3b 0a 20 20 20 20 20 20 (z, '&');.
4630: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 70 }else{. p
4640: 72 6f 63 65 73 73 5f 6d 75 6c 74 69 70 61 72 74 rocess_multipart
4650: 5f 66 6f 72 6d 5f 64 61 74 61 28 7a 2c 20 6c 65 _form_data(z, le
4660: 6e 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 n);. }.
4670: 7d 65 6c 73 65 20 69 66 28 20 73 74 72 63 6d 70 }else if( strcmp
4680: 28 7a 54 79 70 65 2c 20 22 61 70 70 6c 69 63 61 (zType, "applica
4690: 74 69 6f 6e 2f 78 2d 66 6f 73 73 69 6c 22 29 3d tion/x-fossil")=
46a0: 3d 30 20 29 7b 0a 20 20 20 20 20 20 62 6c 6f 62 =0 ){. blob
46b0: 5f 72 65 61 64 5f 66 72 6f 6d 5f 63 68 61 6e 6e _read_from_chann
46c0: 65 6c 28 26 67 2e 63 67 69 49 6e 2c 20 73 74 64 el(&g.cgiIn, std
46d0: 69 6e 2c 20 6c 65 6e 29 3b 0a 20 20 20 20 20 20 in, len);.
46e0: 62 6c 6f 62 5f 75 6e 63 6f 6d 70 72 65 73 73 28 blob_uncompress(
46f0: 26 67 2e 63 67 69 49 6e 2c 20 26 67 2e 63 67 69 &g.cgiIn, &g.cgi
4700: 49 6e 29 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69 In);. }else i
4710: 66 28 20 73 74 72 63 6d 70 28 7a 54 79 70 65 2c f( strcmp(zType,
4720: 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 78 2d "application/x-
4730: 66 6f 73 73 69 6c 2d 64 65 62 75 67 22 29 3d 3d fossil-debug")==
4740: 30 20 29 7b 0a 20 20 20 20 20 20 62 6c 6f 62 5f 0 ){. blob_
4750: 72 65 61 64 5f 66 72 6f 6d 5f 63 68 61 6e 6e 65 read_from_channe
4760: 6c 28 26 67 2e 63 67 69 49 6e 2c 20 73 74 64 69 l(&g.cgiIn, stdi
4770: 6e 2c 20 6c 65 6e 29 3b 0a 20 20 20 20 7d 0a 20 n, len);. }.
4780: 20 7d 0a 0a 20 20 7a 20 3d 20 28 63 68 61 72 2a }.. z = (char*
4790: 29 50 28 22 48 54 54 50 5f 43 4f 4f 4b 49 45 22 )P("HTTP_COOKIE"
47a0: 29 3b 0a 20 20 69 66 28 20 7a 20 29 7b 0a 20 20 );. if( z ){.
47b0: 20 20 7a 20 3d 20 6d 70 72 69 6e 74 66 28 22 25 z = mprintf("%
47c0: 73 22 2c 7a 29 3b 0a 20 20 20 20 61 64 64 5f 70 s",z);. add_p
47d0: 61 72 61 6d 5f 6c 69 73 74 28 7a 2c 20 27 3b 27 aram_list(z, ';'
47e0: 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 );. }.}../*.**
47f0: 54 68 69 73 20 69 73 20 74 68 65 20 63 6f 6d 70 This is the comp
4800: 61 72 69 73 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 arison function
4810: 75 73 65 64 20 74 6f 20 73 6f 72 74 20 74 68 65 used to sort the
4820: 20 61 50 61 72 61 6d 51 50 5b 5d 20 61 72 72 61 aParamQP[] arra
4830: 79 20 6f 66 0a 2a 2a 20 71 75 65 72 79 20 70 61 y of.** query pa
4840: 72 61 6d 65 74 65 72 73 20 61 6e 64 20 63 6f 6f rameters and coo
4850: 6b 69 65 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 kies..*/.static
4860: 69 6e 74 20 71 70 61 72 61 6d 5f 63 6f 6d 70 61 int qparam_compa
4870: 72 65 28 63 6f 6e 73 74 20 76 6f 69 64 20 2a 61 re(const void *a
4880: 2c 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 62 29 , const void *b)
4890: 7b 0a 20 20 73 74 72 75 63 74 20 51 50 61 72 61 {. struct QPara
48a0: 6d 20 2a 70 41 20 3d 20 28 73 74 72 75 63 74 20 m *pA = (struct
48b0: 51 50 61 72 61 6d 2a 29 61 3b 0a 20 20 73 74 72 QParam*)a;. str
48c0: 75 63 74 20 51 50 61 72 61 6d 20 2a 70 42 20 3d uct QParam *pB =
48d0: 20 28 73 74 72 75 63 74 20 51 50 61 72 61 6d 2a (struct QParam*
48e0: 29 62 3b 0a 20 20 69 6e 74 20 63 3b 0a 20 20 63 )b;. int c;. c
48f0: 20 3d 20 73 74 72 63 6d 70 28 70 41 2d 3e 7a 4e = strcmp(pA->zN
4900: 61 6d 65 2c 20 70 42 2d 3e 7a 4e 61 6d 65 29 3b ame, pB->zName);
4910: 0a 20 20 69 66 28 20 63 3d 3d 30 20 29 7b 0a 20 . if( c==0 ){.
4920: 20 20 20 63 20 3d 20 70 41 2d 3e 73 65 71 20 2d c = pA->seq -
4930: 20 70 42 2d 3e 73 65 71 3b 0a 20 20 7d 0a 20 20 pB->seq;. }.
4940: 72 65 74 75 72 6e 20 63 3b 0a 7d 0a 0a 2f 2a 0a return c;.}../*.
4950: 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 76 61 ** Return the va
4960: 6c 75 65 20 6f 66 20 61 20 71 75 65 72 79 20 70 lue of a query p
4970: 61 72 61 6d 65 74 65 72 20 6f 72 20 63 6f 6f 6b arameter or cook
4980: 69 65 20 77 68 6f 73 65 20 6e 61 6d 65 20 69 73 ie whose name is
4990: 20 7a 4e 61 6d 65 2e 0a 2a 2a 20 49 66 20 74 68 zName..** If th
49a0: 65 72 65 20 69 73 20 6e 6f 20 71 75 65 72 79 20 ere is no query
49b0: 70 61 72 61 6d 65 74 65 72 20 6f 72 20 63 6f 6f parameter or coo
49c0: 6b 69 65 20 6e 61 6d 65 64 20 7a 4e 61 6d 65 20 kie named zName
49d0: 61 6e 64 20 74 68 65 20 66 69 72 73 74 0a 2a 2a and the first.**
49e0: 20 63 68 61 72 61 63 74 65 72 20 6f 66 20 7a 4e character of zN
49f0: 61 6d 65 20 69 73 20 75 70 70 65 72 63 61 73 65 ame is uppercase
4a00: 2c 20 74 68 65 6e 20 63 68 65 63 6b 20 74 6f 20 , then check to
4a10: 73 65 65 20 69 66 20 74 68 65 72 65 20 69 73 20 see if there is
4a20: 61 6e 0a 2a 2a 20 65 6e 76 69 72 6f 6e 6d 65 6e an.** environmen
4a30: 74 20 76 61 72 69 61 62 6c 65 20 62 79 20 74 68 t variable by th
4a40: 61 74 20 6e 61 6d 65 20 61 6e 64 20 72 65 74 75 at name and retu
4a50: 72 6e 20 69 74 20 69 66 20 74 68 65 72 65 20 69 rn it if there i
4a60: 73 2e 20 20 41 73 0a 2a 2a 20 61 20 6c 61 73 74 s. As.** a last
4a70: 20 72 65 73 6f 72 74 20 77 68 65 6e 20 6e 6f 74 resort when not
4a80: 68 69 6e 67 20 65 6c 73 65 20 6d 61 74 63 68 65 hing else matche
4a90: 73 2c 20 72 65 74 75 72 6e 20 7a 44 65 66 61 75 s, return zDefau
4aa0: 6c 74 2e 0a 2a 2f 0a 63 6f 6e 73 74 20 63 68 61 lt..*/.const cha
4ab0: 72 20 2a 63 67 69 5f 70 61 72 61 6d 65 74 65 72 r *cgi_parameter
4ac0: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 (const char *zNa
4ad0: 6d 65 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a me, const char *
4ae0: 7a 44 65 66 61 75 6c 74 29 7b 0a 20 20 69 6e 74 zDefault){. int
4af0: 20 6c 6f 2c 20 68 69 2c 20 6d 69 64 2c 20 63 3b lo, hi, mid, c;
4b00: 0a 0a 20 20 2f 2a 20 54 68 65 20 73 6f 72 74 51 .. /* The sortQ
4b10: 50 20 66 6c 61 67 20 69 73 20 73 65 74 20 77 68 P flag is set wh
4b20: 65 6e 65 76 65 72 20 61 20 6e 65 77 20 71 75 65 enever a new que
4b30: 72 79 20 70 61 72 61 6d 65 74 65 72 20 69 73 20 ry parameter is
4b40: 69 6e 73 65 72 74 65 64 2e 0a 20 20 2a 2a 20 49 inserted.. ** I
4b50: 74 20 69 6e 64 69 63 61 74 65 73 20 74 68 61 74 t indicates that
4b60: 20 77 65 20 6e 65 65 64 20 74 6f 20 72 65 73 6f we need to reso
4b70: 72 74 20 74 68 65 20 71 75 65 72 79 20 70 61 72 rt the query par
4b80: 61 6d 65 74 65 72 73 2e 0a 20 20 2a 2f 0a 20 20 ameters.. */.
4b90: 69 66 28 20 73 6f 72 74 51 50 20 29 7b 0a 20 20 if( sortQP ){.
4ba0: 20 20 69 6e 74 20 69 2c 20 6a 3b 0a 20 20 20 20 int i, j;.
4bb0: 71 73 6f 72 74 28 61 50 61 72 61 6d 51 50 2c 20 qsort(aParamQP,
4bc0: 6e 55 73 65 64 51 50 2c 20 73 69 7a 65 6f 66 28 nUsedQP, sizeof(
4bd0: 61 50 61 72 61 6d 51 50 5b 30 5d 29 2c 20 71 70 aParamQP[0]), qp
4be0: 61 72 61 6d 5f 63 6f 6d 70 61 72 65 29 3b 0a 20 aram_compare);.
4bf0: 20 20 20 73 6f 72 74 51 50 20 3d 20 30 3b 0a 20 sortQP = 0;.
4c00: 20 20 20 2f 2a 20 41 66 74 65 72 20 73 6f 72 74 /* After sort
4c10: 69 6e 67 2c 20 72 65 6d 6f 76 65 20 64 75 70 6c ing, remove dupl
4c20: 69 63 61 74 65 20 70 61 72 61 6d 65 74 65 72 73 icate parameters
4c30: 2e 20 20 54 68 65 20 73 65 63 6f 6e 64 61 72 79 . The secondary
4c40: 20 73 6f 72 74 0a 20 20 20 20 2a 2a 20 6b 65 79 sort. ** key
4c50: 20 69 73 20 61 50 61 72 61 6d 51 50 5b 5d 2e 73 is aParamQP[].s
4c60: 65 71 20 61 6e 64 20 77 65 20 6b 65 65 70 20 74 eq and we keep t
4c70: 68 65 20 66 69 72 73 74 20 65 6e 74 72 79 2e 20 he first entry.
4c80: 20 54 68 61 74 20 6d 65 61 6e 73 0a 20 20 20 20 That means.
4c90: 2a 2a 20 77 69 74 68 20 64 75 70 6c 69 63 61 74 ** with duplicat
4ca0: 65 20 63 61 6c 6c 73 20 74 6f 20 63 67 69 5f 73 e calls to cgi_s
4cb0: 65 74 5f 70 61 72 61 6d 65 74 65 72 28 29 20 74 et_parameter() t
4cc0: 68 65 20 73 65 63 6f 6e 64 20 61 6e 64 0a 20 20 he second and.
4cd0: 20 20 2a 2a 20 73 75 62 73 65 71 75 65 6e 74 20 ** subsequent
4ce0: 63 61 6c 6c 73 20 61 72 65 20 65 66 66 65 63 74 calls are effect
4cf0: 69 76 65 6c 79 20 6e 6f 2d 6f 70 73 2e 20 2a 2f ively no-ops. */
4d00: 0a 20 20 20 20 66 6f 72 28 69 3d 6a 3d 31 3b 20 . for(i=j=1;
4d10: 69 3c 6e 55 73 65 64 51 50 3b 20 69 2b 2b 29 7b i<nUsedQP; i++){
4d20: 0a 20 20 20 20 20 20 69 66 28 20 73 74 72 63 6d . if( strcm
4d30: 70 28 61 50 61 72 61 6d 51 50 5b 69 5d 2e 7a 4e p(aParamQP[i].zN
4d40: 61 6d 65 2c 61 50 61 72 61 6d 51 50 5b 69 2d 31 ame,aParamQP[i-1
4d50: 5d 2e 7a 4e 61 6d 65 29 3d 3d 30 20 29 7b 0a 20 ].zName)==0 ){.
4d60: 20 20 20 20 20 20 20 63 6f 6e 74 69 6e 75 65 3b continue;
4d70: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69 . }. i
4d80: 66 28 20 6a 3c 69 20 29 7b 0a 20 20 20 20 20 20 f( j<i ){.
4d90: 20 20 6d 65 6d 63 70 79 28 26 61 50 61 72 61 6d memcpy(&aParam
4da0: 51 50 5b 6a 5d 2c 20 26 61 50 61 72 61 6d 51 50 QP[j], &aParamQP
4db0: 5b 69 5d 2c 20 73 69 7a 65 6f 66 28 61 50 61 72 [i], sizeof(aPar
4dc0: 61 6d 51 50 5b 6a 5d 29 29 3b 0a 20 20 20 20 20 amQP[j]));.
4dd0: 20 7d 0a 20 20 20 20 20 20 6a 2b 2b 3b 0a 20 20 }. j++;.
4de0: 20 20 7d 0a 20 20 20 20 6e 55 73 65 64 51 50 20 }. nUsedQP
4df0: 3d 20 6a 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 44 = j;. }.. /* D
4e00: 6f 20 61 20 62 69 6e 61 72 79 20 73 65 61 72 63 o a binary searc
4e10: 68 20 66 6f 72 20 61 20 6d 61 74 63 68 69 6e 67 h for a matching
4e20: 20 71 75 65 72 79 20 70 61 72 61 6d 65 74 65 72 query parameter
4e30: 20 2a 2f 0a 20 20 6c 6f 20 3d 20 30 3b 0a 20 20 */. lo = 0;.
4e40: 68 69 20 3d 20 6e 55 73 65 64 51 50 2d 31 3b 0a hi = nUsedQP-1;.
4e50: 20 20 77 68 69 6c 65 28 20 6c 6f 3c 3d 68 69 20 while( lo<=hi
4e60: 29 7b 0a 20 20 20 20 6d 69 64 20 3d 20 28 6c 6f ){. mid = (lo
4e70: 2b 68 69 29 2f 32 3b 0a 20 20 20 20 63 20 3d 20 +hi)/2;. c =
4e80: 73 74 72 63 6d 70 28 61 50 61 72 61 6d 51 50 5b strcmp(aParamQP[
4e90: 6d 69 64 5d 2e 7a 4e 61 6d 65 2c 20 7a 4e 61 6d mid].zName, zNam
4ea0: 65 29 3b 0a 20 20 20 20 69 66 28 20 63 3d 3d 30 e);. if( c==0
4eb0: 20 29 7b 0a 20 20 20 20 20 20 43 47 49 44 45 42 ){. CGIDEB
4ec0: 55 47 28 28 22 6d 65 6d 2d 6d 61 74 63 68 20 5b UG(("mem-match [
4ed0: 25 73 5d 20 3d 20 5b 25 73 5d 5c 6e 22 2c 20 7a %s] = [%s]\n", z
4ee0: 4e 61 6d 65 2c 20 61 50 61 72 61 6d 51 50 5b 6d Name, aParamQP[m
4ef0: 69 64 5d 2e 7a 56 61 6c 75 65 29 29 3b 0a 20 20 id].zValue));.
4f00: 20 20 20 20 72 65 74 75 72 6e 20 61 50 61 72 61 return aPara
4f10: 6d 51 50 5b 6d 69 64 5d 2e 7a 56 61 6c 75 65 3b mQP[mid].zValue;
4f20: 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 63 . }else if( c
4f30: 3e 30 20 29 7b 0a 20 20 20 20 20 20 68 69 20 3d >0 ){. hi =
4f40: 20 6d 69 64 2d 31 3b 0a 20 20 20 20 7d 65 6c 73 mid-1;. }els
4f50: 65 7b 0a 20 20 20 20 20 20 6c 6f 20 3d 20 6d 69 e{. lo = mi
4f60: 64 2b 31 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a d+1;. }. }..
4f70: 20 20 2f 2a 20 49 66 20 6e 6f 20 6d 61 74 63 68 /* If no match
4f80: 20 69 73 20 66 6f 75 6e 64 20 61 6e 64 20 74 68 is found and th
4f90: 65 20 6e 61 6d 65 20 62 65 67 69 6e 73 20 77 69 e name begins wi
4fa0: 74 68 20 61 6e 20 75 70 70 65 72 2d 63 61 73 65 th an upper-case
4fb0: 0a 20 20 2a 2a 20 6c 65 74 74 65 72 2c 20 74 68 . ** letter, th
4fc0: 65 6e 20 63 68 65 63 6b 20 74 6f 20 73 65 65 20 en check to see
4fd0: 69 66 20 74 68 65 72 65 20 69 73 20 61 6e 20 65 if there is an e
4fe0: 6e 76 69 72 6f 6e 6d 65 6e 74 20 76 61 72 69 61 nvironment varia
4ff0: 62 6c 65 0a 20 20 2a 2a 20 77 69 74 68 20 74 68 ble. ** with th
5000: 65 20 67 69 76 65 6e 20 6e 61 6d 65 2e 0a 20 20 e given name..
5010: 2a 2f 0a 20 20 69 66 28 20 69 73 75 70 70 65 72 */. if( isupper
5020: 28 7a 4e 61 6d 65 5b 30 5d 29 20 29 7b 0a 20 20 (zName[0]) ){.
5030: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 56 const char *zV
5040: 61 6c 75 65 20 3d 20 67 65 74 65 6e 76 28 7a 4e alue = getenv(zN
5050: 61 6d 65 29 3b 0a 20 20 20 20 69 66 28 20 7a 56 ame);. if( zV
5060: 61 6c 75 65 20 29 7b 0a 20 20 20 20 20 20 63 67 alue ){. cg
5070: 69 5f 73 65 74 5f 70 61 72 61 6d 65 74 65 72 5f i_set_parameter_
5080: 6e 6f 63 6f 70 79 28 7a 4e 61 6d 65 2c 20 7a 56 nocopy(zName, zV
5090: 61 6c 75 65 29 3b 0a 20 20 20 20 20 20 43 47 49 alue);. CGI
50a0: 44 45 42 55 47 28 28 22 65 6e 76 2d 6d 61 74 63 DEBUG(("env-matc
50b0: 68 20 5b 25 73 5d 20 3d 20 5b 25 73 5d 5c 6e 22 h [%s] = [%s]\n"
50c0: 2c 20 7a 4e 61 6d 65 2c 20 7a 56 61 6c 75 65 29 , zName, zValue)
50d0: 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 );. return
50e0: 7a 56 61 6c 75 65 3b 0a 20 20 20 20 7d 0a 20 20 zValue;. }.
50f0: 7d 0a 20 20 43 47 49 44 45 42 55 47 28 28 22 6e }. CGIDEBUG(("n
5100: 6f 2d 6d 61 74 63 68 20 5b 25 73 5d 5c 6e 22 2c o-match [%s]\n",
5110: 20 7a 4e 61 6d 65 29 29 3b 0a 20 20 72 65 74 75 zName));. retu
5120: 72 6e 20 7a 44 65 66 61 75 6c 74 3b 0a 7d 0a 0a rn zDefault;.}..
5130: 2f 2a 0a 2a 2a 20 50 72 69 6e 74 20 43 47 49 20 /*.** Print CGI
5140: 64 65 62 75 67 67 69 6e 67 20 6d 65 73 73 61 67 debugging messag
5150: 65 73 2e 0a 2a 2f 0a 76 6f 69 64 20 63 67 69 5f es..*/.void cgi_
5160: 64 65 62 75 67 28 63 6f 6e 73 74 20 63 68 61 72 debug(const char
5170: 20 2a 7a 46 6f 72 6d 61 74 2c 20 2e 2e 2e 29 7b *zFormat, ...){
5180: 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 3b 0a 20 . va_list ap;.
5190: 20 69 66 28 20 67 2e 66 44 65 62 75 67 20 29 7b if( g.fDebug ){
51a0: 0a 20 20 20 20 76 61 5f 73 74 61 72 74 28 61 70 . va_start(ap
51b0: 2c 20 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 20 20 , zFormat);.
51c0: 76 66 70 72 69 6e 74 66 28 67 2e 66 44 65 62 75 vfprintf(g.fDebu
51d0: 67 2c 20 7a 46 6f 72 6d 61 74 2c 20 61 70 29 3b g, zFormat, ap);
51e0: 0a 20 20 20 20 76 61 5f 65 6e 64 28 61 70 29 3b . va_end(ap);
51f0: 0a 20 20 20 20 66 66 6c 75 73 68 28 67 2e 66 44 . fflush(g.fD
5200: 65 62 75 67 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a ebug);. }.}../*
5210: 0a 2a 2a 20 52 65 74 75 72 6e 20 74 72 75 65 20 .** Return true
5220: 69 66 20 61 6e 79 20 6f 66 20 74 68 65 20 71 75 if any of the qu
5230: 65 72 79 20 70 61 72 61 6d 65 74 65 72 73 20 69 ery parameters i
5240: 6e 20 74 68 65 20 61 72 67 75 6d 65 6e 74 0a 2a n the argument.*
5250: 2a 20 6c 69 73 74 20 61 72 65 20 64 65 66 69 6e * list are defin
5260: 65 64 2e 0a 2a 2f 0a 69 6e 74 20 63 67 69 5f 61 ed..*/.int cgi_a
5270: 6e 79 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a ny(const char *z
5280: 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61 5f 6c 69 73 , ...){. va_lis
5290: 74 20 61 70 3b 0a 20 20 63 68 61 72 20 2a 7a 32 t ap;. char *z2
52a0: 3b 0a 20 20 69 66 28 20 63 67 69 5f 70 61 72 61 ;. if( cgi_para
52b0: 6d 65 74 65 72 28 7a 2c 30 29 21 3d 30 20 29 20 meter(z,0)!=0 )
52c0: 72 65 74 75 72 6e 20 31 3b 0a 20 20 76 61 5f 73 return 1;. va_s
52d0: 74 61 72 74 28 61 70 2c 20 7a 29 3b 0a 20 20 77 tart(ap, z);. w
52e0: 68 69 6c 65 28 20 28 7a 32 20 3d 20 76 61 5f 61 hile( (z2 = va_a
52f0: 72 67 28 61 70 2c 20 63 68 61 72 2a 29 29 21 3d rg(ap, char*))!=
5300: 30 20 29 7b 0a 20 20 20 20 69 66 28 20 63 67 69 0 ){. if( cgi
5310: 5f 70 61 72 61 6d 65 74 65 72 28 7a 32 2c 30 29 _parameter(z2,0)
5320: 21 3d 30 20 29 20 72 65 74 75 72 6e 20 31 3b 0a !=0 ) return 1;.
5330: 20 20 7d 0a 20 20 76 61 5f 65 6e 64 28 61 70 29 }. va_end(ap)
5340: 3b 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a ;. return 0;.}.
5350: 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 72 ./*.** Return tr
5360: 75 65 20 69 66 20 61 6c 6c 20 6f 66 20 74 68 65 ue if all of the
5370: 20 71 75 65 72 79 20 70 61 72 61 6d 65 74 65 72 query parameter
5380: 73 20 69 6e 20 74 68 65 20 61 72 67 75 6d 65 6e s in the argumen
5390: 74 20 6c 69 73 74 0a 2a 2a 20 61 72 65 20 64 65 t list.** are de
53a0: 66 69 6e 65 64 2e 0a 2a 2f 0a 69 6e 74 20 63 67 fined..*/.int cg
53b0: 69 5f 61 6c 6c 28 63 6f 6e 73 74 20 63 68 61 72 i_all(const char
53c0: 20 2a 7a 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61 5f *z, ...){. va_
53d0: 6c 69 73 74 20 61 70 3b 0a 20 20 63 68 61 72 20 list ap;. char
53e0: 2a 7a 32 3b 0a 20 20 69 66 28 20 63 67 69 5f 70 *z2;. if( cgi_p
53f0: 61 72 61 6d 65 74 65 72 28 7a 2c 30 29 3d 3d 30 arameter(z,0)==0
5400: 20 29 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 76 ) return 0;. v
5410: 61 5f 73 74 61 72 74 28 61 70 2c 20 7a 29 3b 0a a_start(ap, z);.
5420: 20 20 77 68 69 6c 65 28 20 28 7a 32 20 3d 20 76 while( (z2 = v
5430: 61 5f 61 72 67 28 61 70 2c 20 63 68 61 72 2a 29 a_arg(ap, char*)
5440: 29 3d 3d 30 20 29 7b 0a 20 20 20 20 69 66 28 20 )==0 ){. if(
5450: 63 67 69 5f 70 61 72 61 6d 65 74 65 72 28 7a 32 cgi_parameter(z2
5460: 2c 30 29 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 ,0)==0 ) return
5470: 30 3b 0a 20 20 7d 0a 20 20 76 61 5f 65 6e 64 28 0;. }. va_end(
5480: 61 70 29 3b 0a 20 20 72 65 74 75 72 6e 20 31 3b ap);. return 1;
5490: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 72 69 6e 74 20 .}../*.** Print
54a0: 61 6c 6c 20 71 75 65 72 79 20 70 61 72 61 6d 65 all query parame
54b0: 74 65 72 73 20 6f 6e 20 73 74 61 6e 64 61 72 64 ters on standard
54c0: 20 6f 75 74 70 75 74 2e 20 20 46 6f 72 6d 61 74 output. Format
54d0: 20 74 68 65 0a 2a 2a 20 70 61 72 61 6d 65 74 65 the.** paramete
54e0: 72 73 20 61 73 20 48 54 4d 4c 2e 20 20 54 68 69 rs as HTML. Thi
54f0: 73 20 69 73 20 75 73 65 64 20 66 6f 72 20 74 65 s is used for te
5500: 73 74 69 6e 67 20 61 6e 64 20 64 65 62 75 67 67 sting and debugg
5510: 69 6e 67 2e 0a 2a 2f 0a 76 6f 69 64 20 63 67 69 ing..*/.void cgi
5520: 5f 70 72 69 6e 74 5f 61 6c 6c 28 76 6f 69 64 29 _print_all(void)
5530: 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 63 67 69 {. int i;. cgi
5540: 5f 70 61 72 61 6d 65 74 65 72 28 22 22 2c 22 22 _parameter("",""
5550: 29 3b 20 20 2f 2a 20 46 6f 72 63 65 20 74 68 65 ); /* Force the
5560: 20 70 61 72 61 6d 65 74 65 72 73 20 69 6e 74 6f parameters into
5570: 20 73 6f 72 74 65 64 20 6f 72 64 65 72 20 2a 2f sorted order */
5580: 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e 55 . for(i=0; i<nU
5590: 73 65 64 51 50 3b 20 69 2b 2b 29 7b 0a 20 20 20 sedQP; i++){.
55a0: 20 63 67 69 5f 70 72 69 6e 74 66 28 22 25 73 20 cgi_printf("%s
55b0: 3d 20 25 73 20 20 3c 62 72 20 2f 3e 5c 6e 22 2c = %s <br />\n",
55c0: 0a 20 20 20 20 20 20 20 68 74 6d 6c 69 7a 65 28 . htmlize(
55d0: 61 50 61 72 61 6d 51 50 5b 69 5d 2e 7a 4e 61 6d aParamQP[i].zNam
55e0: 65 2c 20 2d 31 29 2c 20 68 74 6d 6c 69 7a 65 28 e, -1), htmlize(
55f0: 61 50 61 72 61 6d 51 50 5b 69 5d 2e 7a 56 61 6c aParamQP[i].zVal
5600: 75 65 2c 20 2d 31 29 29 3b 0a 20 20 7d 0a 7d 0a ue, -1));. }.}.
5610: 0a 2f 2a 0a 2a 2a 20 57 72 69 74 65 20 48 54 4d ./*.** Write HTM
5620: 4c 20 74 65 78 74 20 66 6f 72 20 61 6e 20 6f 70 L text for an op
5630: 74 69 6f 6e 20 6d 65 6e 75 20 74 6f 20 73 74 61 tion menu to sta
5640: 6e 64 61 72 64 20 6f 75 74 70 75 74 2e 20 20 7a ndard output. z
5650: 50 61 72 61 6d 0a 2a 2a 20 69 73 20 74 68 65 20 Param.** is the
5660: 71 75 65 72 79 20 70 61 72 61 6d 65 74 65 72 20 query parameter
5670: 74 68 61 74 20 74 68 65 20 6f 70 74 69 6f 6e 20 that the option
5680: 6d 65 6e 75 20 73 65 74 73 2e 20 20 7a 44 66 6c menu sets. zDfl
5690: 74 20 69 73 20 74 68 65 0a 2a 2a 20 69 6e 69 74 t is the.** init
56a0: 69 61 6c 20 76 61 6c 75 65 20 6f 66 20 74 68 65 ial value of the
56b0: 20 6f 70 74 69 6f 6e 20 6d 65 6e 75 2e 20 20 41 option menu. A
56c0: 64 64 69 74 69 6f 6e 20 61 72 67 75 6d 65 6e 74 ddition argument
56d0: 73 20 61 72 65 20 6e 61 6d 65 2f 76 61 6c 75 65 s are name/value
56e0: 0a 2a 2a 20 70 61 69 72 73 20 74 68 61 74 20 64 .** pairs that d
56f0: 65 66 69 6e 65 20 76 61 6c 75 65 73 20 6f 6e 20 efine values on
5700: 74 68 65 20 6d 65 6e 75 2e 20 20 54 68 65 20 6c the menu. The l
5710: 69 73 74 20 69 73 20 74 65 72 6d 69 6e 61 74 65 ist is terminate
5720: 64 20 77 69 74 68 0a 2a 2a 20 61 20 73 69 6e 67 d with.** a sing
5730: 6c 65 20 4e 55 4c 4c 20 61 72 67 75 6d 65 6e 74 le NULL argument
5740: 2e 0a 2a 2f 0a 76 6f 69 64 20 63 67 69 5f 6f 70 ..*/.void cgi_op
5750: 74 69 6f 6e 6d 65 6e 75 28 69 6e 74 20 69 6e 2c tionmenu(int in,
5760: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 50 2c const char *zP,
5770: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 2c const char *zD,
5780: 20 2e 2e 2e 29 7b 0a 20 20 76 61 5f 6c 69 73 74 ...){. va_list
5790: 20 61 70 3b 0a 20 20 63 68 61 72 20 2a 7a 4e 61 ap;. char *zNa
57a0: 6d 65 2c 20 2a 7a 56 61 6c 3b 0a 20 20 69 6e 74 me, *zVal;. int
57b0: 20 64 66 6c 74 53 65 65 6e 20 3d 20 30 3b 0a 20 dfltSeen = 0;.
57c0: 20 63 67 69 5f 70 72 69 6e 74 66 28 22 25 2a 73 cgi_printf("%*s
57d0: 3c 73 65 6c 65 63 74 20 73 69 7a 65 3d 31 20 6e <select size=1 n
57e0: 61 6d 65 3d 5c 22 25 73 5c 22 3e 5c 6e 22 2c 20 ame=\"%s\">\n",
57f0: 69 6e 2c 20 22 22 2c 20 7a 50 29 3b 0a 20 20 76 in, "", zP);. v
5800: 61 5f 73 74 61 72 74 28 61 70 2c 20 7a 44 29 3b a_start(ap, zD);
5810: 0a 20 20 77 68 69 6c 65 28 20 28 7a 4e 61 6d 65 . while( (zName
5820: 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 20 63 68 = va_arg(ap, ch
5830: 61 72 2a 29 29 21 3d 30 20 26 26 20 28 7a 56 61 ar*))!=0 && (zVa
5840: 6c 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 20 63 l = va_arg(ap, c
5850: 68 61 72 2a 29 29 21 3d 30 20 29 7b 0a 20 20 20 har*))!=0 ){.
5860: 20 69 66 28 20 73 74 72 63 6d 70 28 7a 56 61 6c if( strcmp(zVal
5870: 2c 7a 44 29 3d 3d 30 20 29 7b 20 64 66 6c 74 53 ,zD)==0 ){ dfltS
5880: 65 65 6e 20 3d 20 31 3b 20 62 72 65 61 6b 3b 20 een = 1; break;
5890: 7d 0a 20 20 7d 0a 20 20 76 61 5f 65 6e 64 28 61 }. }. va_end(a
58a0: 70 29 3b 0a 20 20 69 66 28 20 21 64 66 6c 74 53 p);. if( !dfltS
58b0: 65 65 6e 20 29 7b 0a 20 20 20 20 69 66 28 20 7a een ){. if( z
58c0: 44 5b 30 5d 20 29 7b 0a 20 20 20 20 20 20 63 67 D[0] ){. cg
58d0: 69 5f 70 72 69 6e 74 66 28 22 25 2a 73 3c 6f 70 i_printf("%*s<op
58e0: 74 69 6f 6e 20 76 61 6c 75 65 3d 5c 22 25 68 5c tion value=\"%h\
58f0: 22 20 73 65 6c 65 63 74 65 64 3e 25 68 3c 2f 6f " selected>%h</o
5900: 70 74 69 6f 6e 3e 5c 6e 22 2c 0a 20 20 20 20 20 ption>\n",.
5910: 20 20 20 69 6e 2b 32 2c 20 22 22 2c 20 7a 44 2c in+2, "", zD,
5920: 20 7a 44 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b zD);. }else{
5930: 0a 20 20 20 20 20 20 63 67 69 5f 70 72 69 6e 74 . cgi_print
5940: 66 28 22 25 2a 73 3c 6f 70 74 69 6f 6e 20 76 61 f("%*s<option va
5950: 6c 75 65 3d 5c 22 5c 22 20 73 65 6c 65 63 74 65 lue=\"\" selecte
5960: 64 3e 26 6e 62 73 70 3b 3c 2f 6f 70 74 69 6f 6e d> </option
5970: 3e 5c 6e 22 2c 20 69 6e 2b 32 2c 20 22 22 29 3b >\n", in+2, "");
5980: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 76 61 5f . }. }. va_
5990: 73 74 61 72 74 28 61 70 2c 20 7a 44 29 3b 0a 20 start(ap, zD);.
59a0: 20 77 68 69 6c 65 28 20 28 7a 4e 61 6d 65 20 3d while( (zName =
59b0: 20 76 61 5f 61 72 67 28 61 70 2c 20 63 68 61 72 va_arg(ap, char
59c0: 2a 29 29 21 3d 30 20 26 26 20 28 7a 56 61 6c 20 *))!=0 && (zVal
59d0: 3d 20 76 61 5f 61 72 67 28 61 70 2c 20 63 68 61 = va_arg(ap, cha
59e0: 72 2a 29 29 21 3d 30 20 29 7b 0a 20 20 20 20 69 r*))!=0 ){. i
59f0: 66 28 20 7a 4e 61 6d 65 5b 30 5d 20 29 7b 0a 20 f( zName[0] ){.
5a00: 20 20 20 20 20 63 67 69 5f 70 72 69 6e 74 66 28 cgi_printf(
5a10: 22 25 2a 73 3c 6f 70 74 69 6f 6e 20 76 61 6c 75 "%*s<option valu
5a20: 65 3d 5c 22 25 68 5c 22 25 73 3e 25 68 3c 2f 6f e=\"%h\"%s>%h</o
5a30: 70 74 69 6f 6e 3e 5c 6e 22 2c 0a 20 20 20 20 20 ption>\n",.
5a40: 20 20 20 69 6e 2b 32 2c 20 22 22 2c 0a 20 20 20 in+2, "",.
5a50: 20 20 20 20 20 7a 56 61 6c 2c 0a 20 20 20 20 20 zVal,.
5a60: 20 20 20 73 74 72 63 6d 70 28 7a 56 61 6c 2c 20 strcmp(zVal,
5a70: 7a 44 29 20 3f 20 22 22 20 3a 20 22 20 73 65 6c zD) ? "" : " sel
5a80: 65 63 74 65 64 22 2c 0a 20 20 20 20 20 20 20 20 ected",.
5a90: 7a 4e 61 6d 65 0a 20 20 20 20 20 20 29 3b 0a 20 zName. );.
5aa0: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 }else{.
5ab0: 63 67 69 5f 70 72 69 6e 74 66 28 22 25 2a 73 3c cgi_printf("%*s<
5ac0: 6f 70 74 69 6f 6e 20 76 61 6c 75 65 3d 5c 22 5c option value=\"\
5ad0: 22 25 73 3e 26 6e 62 73 70 3b 3c 2f 6f 70 74 69 "%s> </opti
5ae0: 6f 6e 3e 5c 6e 22 2c 0a 20 20 20 20 20 20 20 20 on>\n",.
5af0: 69 6e 2b 32 2c 20 22 22 2c 0a 20 20 20 20 20 20 in+2, "",.
5b00: 20 20 73 74 72 63 6d 70 28 7a 56 61 6c 2c 20 7a strcmp(zVal, z
5b10: 44 29 20 3f 20 22 22 20 3a 20 22 20 73 65 6c 65 D) ? "" : " sele
5b20: 63 74 65 64 22 0a 20 20 20 20 20 20 29 3b 0a 20 cted". );.
5b30: 20 20 20 7d 0a 20 20 7d 0a 20 20 76 61 5f 65 6e }. }. va_en
5b40: 64 28 61 70 29 3b 0a 20 20 63 67 69 5f 70 72 69 d(ap);. cgi_pri
5b50: 6e 74 66 28 22 25 2a 73 3c 2f 73 65 6c 65 63 74 ntf("%*s</select
5b60: 3e 5c 6e 22 2c 20 69 6e 2c 20 22 22 29 3b 0a 7d >\n", in, "");.}
5b70: 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 72 6f 75 ../*.** This rou
5b80: 74 69 6e 65 20 77 6f 72 6b 73 20 61 20 6c 6f 74 tine works a lot
5b90: 20 6c 69 6b 65 20 63 67 69 5f 6f 70 74 69 6f 6e like cgi_option
5ba0: 6d 65 6e 75 28 29 20 65 78 63 65 70 74 20 74 68 menu() except th
5bb0: 61 74 20 74 68 65 20 6c 69 73 74 20 6f 66 0a 2a at the list of.*
5bc0: 2a 20 76 61 6c 75 65 73 20 69 73 20 63 6f 6e 74 * values is cont
5bd0: 61 69 6e 65 64 20 69 6e 20 61 6e 20 61 72 72 61 ained in an arra
5be0: 79 2e 20 20 41 6c 73 6f 2c 20 74 68 65 20 76 61 y. Also, the va
5bf0: 6c 75 65 73 20 61 72 65 20 6a 75 73 74 20 76 61 lues are just va
5c00: 6c 75 65 73 2c 20 6e 6f 74 0a 2a 2a 20 6e 61 6d lues, not.** nam
5c10: 65 2f 76 61 6c 75 65 20 70 61 69 72 73 20 61 73 e/value pairs as
5c20: 20 69 6e 20 63 67 69 5f 6f 70 74 69 6f 6e 6d 65 in cgi_optionme
5c30: 6e 75 2e 0a 2a 2f 0a 76 6f 69 64 20 63 67 69 5f nu..*/.void cgi_
5c40: 76 5f 6f 70 74 69 6f 6e 6d 65 6e 75 28 0a 20 20 v_optionmenu(.
5c50: 69 6e 74 20 69 6e 2c 20 20 20 20 20 20 20 20 20 int in,
5c60: 20 20 20 20 20 2f 2a 20 49 6e 64 65 6e 74 20 62 /* Indent b
5c70: 79 20 74 68 69 73 20 61 6d 6f 75 6e 74 20 2a 2f y this amount */
5c80: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a . const char *z
5c90: 50 2c 20 20 20 20 20 20 2f 2a 20 54 68 65 20 71 P, /* The q
5ca0: 75 65 72 79 20 70 61 72 61 6d 65 74 65 72 20 6e uery parameter n
5cb0: 61 6d 65 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 ame */. const c
5cc0: 68 61 72 20 2a 7a 44 2c 20 20 20 20 20 20 2f 2a har *zD, /*
5cd0: 20 44 65 66 61 75 6c 74 20 76 61 6c 75 65 20 2a Default value *
5ce0: 2f 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a /. const char *
5cf0: 2a 61 7a 20 20 20 20 20 20 2f 2a 20 4e 55 4c 4c *az /* NULL
5d00: 2d 74 65 72 6d 69 6e 61 74 65 64 20 6c 69 73 74 -terminated list
5d10: 20 6f 66 20 61 6c 6c 6f 77 65 64 20 76 61 6c 75 of allowed valu
5d20: 65 73 20 2a 2f 0a 29 7b 0a 20 20 63 6f 6e 73 74 es */.){. const
5d30: 20 63 68 61 72 20 2a 7a 56 61 6c 3b 0a 20 20 69 char *zVal;. i
5d40: 6e 74 20 69 3b 0a 20 20 63 67 69 5f 70 72 69 6e nt i;. cgi_prin
5d50: 74 66 28 22 25 2a 73 3c 73 65 6c 65 63 74 20 73 tf("%*s<select s
5d60: 69 7a 65 3d 31 20 6e 61 6d 65 3d 5c 22 25 73 5c ize=1 name=\"%s\
5d70: 22 3e 5c 6e 22 2c 20 69 6e 2c 20 22 22 2c 20 7a ">\n", in, "", z
5d80: 50 29 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 61 P);. for(i=0; a
5d90: 7a 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 z[i]; i++){.
5da0: 69 66 28 20 73 74 72 63 6d 70 28 61 7a 5b 69 5d if( strcmp(az[i]
5db0: 2c 7a 44 29 3d 3d 30 20 29 20 62 72 65 61 6b 3b ,zD)==0 ) break;
5dc0: 0a 20 20 7d 0a 20 20 69 66 28 20 61 7a 5b 69 5d . }. if( az[i]
5dd0: 3d 3d 30 20 29 7b 0a 20 20 20 20 69 66 28 20 7a ==0 ){. if( z
5de0: 44 5b 30 5d 3d 3d 30 20 29 7b 0a 20 20 20 20 20 D[0]==0 ){.
5df0: 20 63 67 69 5f 70 72 69 6e 74 66 28 22 25 2a 73 cgi_printf("%*s
5e00: 3c 6f 70 74 69 6f 6e 20 76 61 6c 75 65 3d 5c 22 <option value=\"
5e10: 5c 22 20 73 65 6c 65 63 74 65 64 3e 26 6e 62 73 \" selected>&nbs
5e20: 70 3b 3c 2f 6f 70 74 69 6f 6e 3e 5c 6e 22 2c 0a p;</option>\n",.
5e30: 20 20 20 20 20 20 20 69 6e 2b 32 2c 20 22 22 29 in+2, "")
5e40: 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 ;. }else{.
5e50: 20 20 20 63 67 69 5f 70 72 69 6e 74 66 28 22 25 cgi_printf("%
5e60: 2a 73 3c 6f 70 74 69 6f 6e 20 76 61 6c 75 65 3d *s<option value=
5e70: 5c 22 25 68 5c 22 20 73 65 6c 65 63 74 65 64 3e \"%h\" selected>
5e80: 25 68 3c 2f 6f 70 74 69 6f 6e 3e 5c 6e 22 2c 0a %h</option>\n",.
5e90: 20 20 20 20 20 20 20 69 6e 2b 32 2c 20 22 22 2c in+2, "",
5ea0: 20 7a 44 2c 20 7a 44 29 3b 0a 20 20 20 20 7d 0a zD, zD);. }.
5eb0: 20 20 7d 0a 20 20 77 68 69 6c 65 28 20 28 7a 56 }. while( (zV
5ec0: 61 6c 20 3d 20 2a 28 61 7a 2b 2b 29 29 21 3d 30 al = *(az++))!=0
5ed0: 20 20 29 7b 0a 20 20 20 20 69 66 28 20 7a 56 61 ){. if( zVa
5ee0: 6c 5b 30 5d 20 29 7b 0a 20 20 20 20 20 20 63 67 l[0] ){. cg
5ef0: 69 5f 70 72 69 6e 74 66 28 22 25 2a 73 3c 6f 70 i_printf("%*s<op
5f00: 74 69 6f 6e 20 76 61 6c 75 65 3d 5c 22 25 68 5c tion value=\"%h\
5f10: 22 25 73 3e 25 68 3c 2f 6f 70 74 69 6f 6e 3e 5c "%s>%h</option>\
5f20: 6e 22 2c 0a 20 20 20 20 20 20 20 20 69 6e 2b 32 n",. in+2
5f30: 2c 20 22 22 2c 0a 20 20 20 20 20 20 20 20 7a 56 , "",. zV
5f40: 61 6c 2c 0a 20 20 20 20 20 20 20 20 73 74 72 63 al,. strc
5f50: 6d 70 28 7a 56 61 6c 2c 20 7a 44 29 20 3f 20 22 mp(zVal, zD) ? "
5f60: 22 20 3a 20 22 20 73 65 6c 65 63 74 65 64 22 2c " : " selected",
5f70: 0a 20 20 20 20 20 20 20 20 7a 56 61 6c 0a 20 20 . zVal.
5f80: 20 20 20 20 29 3b 0a 20 20 20 20 7d 65 6c 73 65 );. }else
5f90: 7b 0a 20 20 20 20 20 20 63 67 69 5f 70 72 69 6e {. cgi_prin
5fa0: 74 66 28 22 25 2a 73 3c 6f 70 74 69 6f 6e 20 76 tf("%*s<option v
5fb0: 61 6c 75 65 3d 5c 22 5c 22 25 73 3e 26 6e 62 73 alue=\"\"%s>&nbs
5fc0: 70 3b 3c 2f 6f 70 74 69 6f 6e 3e 5c 6e 22 2c 0a p;</option>\n",.
5fd0: 20 20 20 20 20 20 20 20 69 6e 2b 32 2c 20 22 22 in+2, ""
5fe0: 2c 0a 20 20 20 20 20 20 20 20 73 74 72 63 6d 70 ,. strcmp
5ff0: 28 7a 56 61 6c 2c 20 7a 44 29 20 3f 20 22 22 20 (zVal, zD) ? ""
6000: 3a 20 22 20 73 65 6c 65 63 74 65 64 22 0a 20 20 : " selected".
6010: 20 20 20 20 29 3b 0a 20 20 20 20 7d 0a 20 20 7d );. }. }
6020: 0a 20 20 63 67 69 5f 70 72 69 6e 74 66 28 22 25 . cgi_printf("%
6030: 2a 73 3c 2f 73 65 6c 65 63 74 3e 5c 6e 22 2c 20 *s</select>\n",
6040: 69 6e 2c 20 22 22 29 3b 0a 7d 0a 0a 2f 2a 0a 2a in, "");.}../*.*
6050: 2a 20 54 68 69 73 20 72 6f 75 74 69 6e 65 20 77 * This routine w
6060: 6f 72 6b 73 20 61 20 6c 6f 74 20 6c 69 6b 65 20 orks a lot like
6070: 63 67 69 5f 76 5f 6f 70 74 69 6f 6e 6d 65 6e 75 cgi_v_optionmenu
6080: 28 29 20 65 78 63 65 70 74 20 74 68 61 74 20 74 () except that t
6090: 68 65 20 6c 69 73 74 0a 2a 2a 20 69 73 20 61 20 he list.** is a
60a0: 6c 69 73 74 20 6f 66 20 70 61 69 72 73 2e 20 20 list of pairs.
60b0: 54 68 65 20 66 69 72 73 74 20 65 6c 65 6d 65 6e The first elemen
60c0: 74 20 6f 66 20 65 61 63 68 20 70 61 69 72 20 69 t of each pair i
60d0: 73 20 74 68 65 20 76 61 6c 75 65 20 75 73 65 64 s the value used
60e0: 0a 2a 2a 20 69 6e 74 65 72 6e 61 6c 6c 79 20 61 .** internally a
60f0: 6e 64 20 74 68 65 20 73 65 63 6f 6e 64 20 65 6c nd the second el
6100: 65 6d 65 6e 74 20 69 73 20 74 68 65 20 76 61 6c ement is the val
6110: 75 65 20 64 69 73 70 6c 61 79 65 64 20 74 6f 20 ue displayed to
6120: 74 68 65 20 75 73 65 72 2e 0a 2a 2f 0a 76 6f 69 the user..*/.voi
6130: 64 20 63 67 69 5f 76 5f 6f 70 74 69 6f 6e 6d 65 d cgi_v_optionme
6140: 6e 75 32 28 0a 20 20 69 6e 74 20 69 6e 2c 20 20 nu2(. int in,
6150: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 49 /* I
6160: 6e 64 65 6e 74 20 62 79 20 74 68 69 73 20 61 6d ndent by this am
6170: 6f 75 6e 74 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 ount */. const
6180: 63 68 61 72 20 2a 7a 50 2c 20 20 20 20 20 20 2f char *zP, /
6190: 2a 20 54 68 65 20 71 75 65 72 79 20 70 61 72 61 * The query para
61a0: 6d 65 74 65 72 20 6e 61 6d 65 20 2a 2f 0a 20 20 meter name */.
61b0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 2c 20 const char *zD,
61c0: 20 20 20 20 20 2f 2a 20 44 65 66 61 75 6c 74 20 /* Default
61d0: 76 61 6c 75 65 20 2a 2f 0a 20 20 63 6f 6e 73 74 value */. const
61e0: 20 63 68 61 72 20 2a 2a 61 7a 20 20 20 20 20 20 char **az
61f0: 2f 2a 20 4e 55 4c 4c 2d 74 65 72 6d 69 6e 61 74 /* NULL-terminat
6200: 65 64 20 6c 69 73 74 20 6f 66 20 61 6c 6c 6f 77 ed list of allow
6210: 65 64 20 76 61 6c 75 65 73 20 2a 2f 0a 29 7b 0a ed values */.){.
6220: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 56 const char *zV
6230: 61 6c 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 63 al;. int i;. c
6240: 67 69 5f 70 72 69 6e 74 66 28 22 25 2a 73 3c 73 gi_printf("%*s<s
6250: 65 6c 65 63 74 20 73 69 7a 65 3d 31 20 6e 61 6d elect size=1 nam
6260: 65 3d 5c 22 25 73 5c 22 3e 5c 6e 22 2c 20 69 6e e=\"%s\">\n", in
6270: 2c 20 22 22 2c 20 7a 50 29 3b 0a 20 20 66 6f 72 , "", zP);. for
6280: 28 69 3d 30 3b 20 61 7a 5b 69 5d 3b 20 69 2b 3d (i=0; az[i]; i+=
6290: 32 29 7b 0a 20 20 20 20 69 66 28 20 73 74 72 63 2){. if( strc
62a0: 6d 70 28 61 7a 5b 69 5d 2c 7a 44 29 3d 3d 30 20 mp(az[i],zD)==0
62b0: 29 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 20 20 69 ) break;. }. i
62c0: 66 28 20 61 7a 5b 69 5d 3d 3d 30 20 29 7b 0a 20 f( az[i]==0 ){.
62d0: 20 20 20 69 66 28 20 7a 44 5b 30 5d 3d 3d 30 20 if( zD[0]==0
62e0: 29 7b 0a 20 20 20 20 20 20 63 67 69 5f 70 72 69 ){. cgi_pri
62f0: 6e 74 66 28 22 25 2a 73 3c 6f 70 74 69 6f 6e 20 ntf("%*s<option
6300: 76 61 6c 75 65 3d 5c 22 5c 22 20 73 65 6c 65 63 value=\"\" selec
6310: 74 65 64 3e 26 6e 62 73 70 3b 3c 2f 6f 70 74 69 ted> </opti
6320: 6f 6e 3e 5c 6e 22 2c 0a 20 20 20 20 20 20 20 69 on>\n",. i
6330: 6e 2b 32 2c 20 22 22 29 3b 0a 20 20 20 20 7d 65 n+2, "");. }e
6340: 6c 73 65 7b 0a 20 20 20 20 20 20 63 67 69 5f 70 lse{. cgi_p
6350: 72 69 6e 74 66 28 22 25 2a 73 3c 6f 70 74 69 6f rintf("%*s<optio
6360: 6e 20 76 61 6c 75 65 3d 5c 22 25 68 5c 22 20 73 n value=\"%h\" s
6370: 65 6c 65 63 74 65 64 3e 25 68 3c 2f 6f 70 74 69 elected>%h</opti
6380: 6f 6e 3e 5c 6e 22 2c 0a 20 20 20 20 20 20 20 69 on>\n",. i
6390: 6e 2b 32 2c 20 22 22 2c 20 7a 44 2c 20 7a 44 29 n+2, "", zD, zD)
63a0: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 77 68 ;. }. }. wh
63b0: 69 6c 65 28 20 28 7a 56 61 6c 20 3d 20 2a 28 61 ile( (zVal = *(a
63c0: 7a 2b 2b 29 29 21 3d 30 20 20 29 7b 0a 20 20 20 z++))!=0 ){.
63d0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 const char *zNa
63e0: 6d 65 20 3d 20 2a 28 61 7a 2b 2b 29 3b 0a 20 20 me = *(az++);.
63f0: 20 20 69 66 28 20 7a 4e 61 6d 65 5b 30 5d 20 29 if( zName[0] )
6400: 7b 0a 20 20 20 20 20 20 63 67 69 5f 70 72 69 6e {. cgi_prin
6410: 74 66 28 22 25 2a 73 3c 6f 70 74 69 6f 6e 20 76 tf("%*s<option v
6420: 61 6c 75 65 3d 5c 22 25 68 5c 22 25 73 3e 25 68 alue=\"%h\"%s>%h
6430: 3c 2f 6f 70 74 69 6f 6e 3e 5c 6e 22 2c 0a 20 20 </option>\n",.
6440: 20 20 20 20 20 20 69 6e 2b 32 2c 20 22 22 2c 0a in+2, "",.
6450: 20 20 20 20 20 20 20 20 7a 56 61 6c 2c 0a 20 20 zVal,.
6460: 20 20 20 20 20 20 73 74 72 63 6d 70 28 7a 56 61 strcmp(zVa
6470: 6c 2c 20 7a 44 29 20 3f 20 22 22 20 3a 20 22 20 l, zD) ? "" : "
6480: 73 65 6c 65 63 74 65 64 22 2c 0a 20 20 20 20 20 selected",.
6490: 20 20 20 7a 4e 61 6d 65 0a 20 20 20 20 20 20 29 zName. )
64a0: 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 ;. }else{.
64b0: 20 20 20 63 67 69 5f 70 72 69 6e 74 66 28 22 25 cgi_printf("%
64c0: 2a 73 3c 6f 70 74 69 6f 6e 20 76 61 6c 75 65 3d *s<option value=
64d0: 5c 22 25 68 5c 22 25 73 3e 26 6e 62 73 70 3b 3c \"%h\"%s> <
64e0: 2f 6f 70 74 69 6f 6e 3e 5c 6e 22 2c 0a 20 20 20 /option>\n",.
64f0: 20 20 20 20 20 69 6e 2b 32 2c 20 22 22 2c 0a 20 in+2, "",.
6500: 20 20 20 20 20 20 20 7a 56 61 6c 2c 0a 20 20 20 zVal,.
6510: 20 20 20 20 20 73 74 72 63 6d 70 28 7a 56 61 6c strcmp(zVal
6520: 2c 20 7a 44 29 20 3f 20 22 22 20 3a 20 22 20 73 , zD) ? "" : " s
6530: 65 6c 65 63 74 65 64 22 0a 20 20 20 20 20 20 29 elected". )
6540: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 63 67 ;. }. }. cg
6550: 69 5f 70 72 69 6e 74 66 28 22 25 2a 73 3c 2f 73 i_printf("%*s</s
6560: 65 6c 65 63 74 3e 5c 6e 22 2c 20 69 6e 2c 20 22 elect>\n", in, "
6570: 22 29 3b 0a 7d 0a 0a 2f 2a 20 0a 2a 2a 20 54 68 ");.}../* .** Th
6580: 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 6d 70 6c is function impl
6590: 65 6d 65 6e 74 73 20 74 68 65 20 63 61 6c 6c 62 ements the callb
65a0: 61 63 6b 20 66 72 6f 6d 20 76 78 70 72 69 6e 74 ack from vxprint
65b0: 66 2e 20 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 72 f. .**.** This r
65c0: 6f 75 74 69 6e 65 20 73 65 6e 64 73 20 6e 4e 65 outine sends nNe
65d0: 77 43 68 61 72 20 63 68 61 72 61 63 74 65 72 73 wChar characters
65e0: 20 6f 66 20 74 65 78 74 20 69 6e 20 7a 4e 65 77 of text in zNew
65f0: 54 65 78 74 20 74 6f 0a 2a 2a 20 43 47 49 20 72 Text to.** CGI r
6600: 65 70 6c 79 20 63 6f 6e 74 65 6e 74 20 62 75 66 eply content buf
6610: 66 65 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 fer..*/.static v
6620: 6f 69 64 20 73 6f 75 74 28 76 6f 69 64 20 2a 4e oid sout(void *N
6630: 6f 74 55 73 65 64 2c 20 63 6f 6e 73 74 20 63 68 otUsed, const ch
6640: 61 72 20 2a 7a 4e 65 77 54 65 78 74 2c 20 69 6e ar *zNewText, in
6650: 74 20 6e 4e 65 77 43 68 61 72 29 7b 0a 20 20 63 t nNewChar){. c
6660: 67 69 5f 61 70 70 65 6e 64 5f 63 6f 6e 74 65 6e gi_append_conten
6670: 74 28 7a 4e 65 77 54 65 78 74 2c 20 6e 4e 65 77 t(zNewText, nNew
6680: 43 68 61 72 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 Char);.}../*.**
6690: 54 68 69 73 20 72 6f 75 74 69 6e 65 20 77 6f 72 This routine wor
66a0: 6b 73 20 6c 69 6b 65 20 22 70 72 69 6e 74 66 22 ks like "printf"
66b0: 20 65 78 63 65 70 74 20 74 68 61 74 20 69 74 20 except that it
66c0: 68 61 73 20 74 68 65 0a 2a 2a 20 65 78 74 72 61 has the.** extra
66d0: 20 66 6f 72 6d 61 74 74 69 6e 67 20 63 61 70 61 formatting capa
66e0: 62 69 6c 69 74 69 65 73 20 73 75 63 68 20 61 73 bilities such as
66f0: 20 25 68 20 61 6e 64 20 25 74 2e 0a 2a 2f 0a 76 %h and %t..*/.v
6700: 6f 69 64 20 63 67 69 5f 70 72 69 6e 74 66 28 63 oid cgi_printf(c
6710: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f 72 6d onst char *zForm
6720: 61 74 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61 5f 6c at, ...){. va_l
6730: 69 73 74 20 61 70 3b 0a 20 20 76 61 5f 73 74 61 ist ap;. va_sta
6740: 72 74 28 61 70 2c 7a 46 6f 72 6d 61 74 29 3b 0a rt(ap,zFormat);.
6750: 20 20 76 78 70 72 69 6e 74 66 28 73 6f 75 74 2c vxprintf(sout,
6760: 30 2c 7a 46 6f 72 6d 61 74 2c 61 70 29 3b 0a 20 0,zFormat,ap);.
6770: 20 76 61 5f 65 6e 64 28 61 70 29 3b 0a 7d 0a 0a va_end(ap);.}..
6780: 2f 2a 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 69 /*.** This routi
6790: 6e 65 20 77 6f 72 6b 73 20 6c 69 6b 65 20 22 76 ne works like "v
67a0: 70 72 69 6e 74 66 22 20 65 78 63 65 70 74 20 74 printf" except t
67b0: 68 61 74 20 69 74 20 68 61 73 20 74 68 65 0a 2a hat it has the.*
67c0: 2a 20 65 78 74 72 61 20 66 6f 72 6d 61 74 74 69 * extra formatti
67d0: 6e 67 20 63 61 70 61 62 69 6c 69 74 69 65 73 20 ng capabilities
67e0: 73 75 63 68 20 61 73 20 25 68 20 61 6e 64 20 25 such as %h and %
67f0: 74 2e 0a 2a 2f 0a 76 6f 69 64 20 63 67 69 5f 76 t..*/.void cgi_v
6800: 70 72 69 6e 74 66 28 63 6f 6e 73 74 20 63 68 61 printf(const cha
6810: 72 20 2a 7a 46 6f 72 6d 61 74 2c 20 76 61 5f 6c r *zFormat, va_l
6820: 69 73 74 20 61 70 29 7b 0a 20 20 76 78 70 72 69 ist ap){. vxpri
6830: 6e 74 66 28 73 6f 75 74 2c 30 2c 7a 46 6f 72 6d ntf(sout,0,zForm
6840: 61 74 2c 61 70 29 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a at,ap);.}.../*.*
6850: 2a 20 53 65 6e 64 20 61 20 72 65 70 6c 79 20 69 * Send a reply i
6860: 6e 64 69 63 61 74 69 6e 67 20 74 68 61 74 20 74 ndicating that t
6870: 68 65 20 48 54 54 50 20 72 65 71 75 65 73 74 20 he HTTP request
6880: 77 61 73 20 6d 61 6c 66 6f 72 6d 65 64 0a 2a 2f was malformed.*/
6890: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 6d 61 6c .static void mal
68a0: 66 6f 72 6d 65 64 5f 72 65 71 75 65 73 74 28 76 formed_request(v
68b0: 6f 69 64 29 7b 0a 20 20 63 67 69 5f 73 65 74 5f oid){. cgi_set_
68c0: 73 74 61 74 75 73 28 35 30 31 2c 20 22 4e 6f 74 status(501, "Not
68d0: 20 49 6d 70 6c 65 6d 65 6e 74 65 64 22 29 3b 0a Implemented");.
68e0: 20 20 63 67 69 5f 70 72 69 6e 74 66 28 0a 20 20 cgi_printf(.
68f0: 20 20 22 3c 68 74 6d 6c 3e 3c 62 6f 64 79 3e 55 "<html><body>U
6900: 6e 72 65 63 6f 67 6e 69 7a 65 64 20 48 54 54 50 nrecognized HTTP
6910: 20 52 65 71 75 65 73 74 3c 2f 62 6f 64 79 3e 3c Request</body><
6920: 2f 68 74 6d 6c 3e 5c 6e 22 0a 20 20 29 3b 0a 20 /html>\n". );.
6930: 20 63 67 69 5f 72 65 70 6c 79 28 29 3b 0a 20 20 cgi_reply();.
6940: 65 78 69 74 28 30 29 3b 0a 7d 0a 0a 2f 2a 0a 2a exit(0);.}../*.*
6950: 2a 20 50 61 6e 69 63 20 61 6e 64 20 64 69 65 20 * Panic and die
6960: 77 68 69 6c 65 20 70 72 6f 63 65 73 73 69 6e 67 while processing
6970: 20 61 20 77 65 62 70 61 67 65 2e 0a 2a 2f 0a 76 a webpage..*/.v
6980: 6f 69 64 20 63 67 69 5f 70 61 6e 69 63 28 63 6f oid cgi_panic(co
6990: 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61 nst char *zForma
69a0: 74 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61 5f 6c 69 t, ...){. va_li
69b0: 73 74 20 61 70 3b 0a 20 20 63 67 69 5f 72 65 73 st ap;. cgi_res
69c0: 65 74 5f 63 6f 6e 74 65 6e 74 28 29 3b 0a 20 20 et_content();.
69d0: 63 67 69 5f 73 65 74 5f 73 74 61 74 75 73 28 35 cgi_set_status(5
69e0: 30 30 2c 20 22 49 6e 74 65 72 6e 61 6c 20 53 65 00, "Internal Se
69f0: 72 76 65 72 20 45 72 72 6f 72 22 29 3b 0a 20 20 rver Error");.
6a00: 63 67 69 5f 70 72 69 6e 74 66 28 0a 20 20 20 20 cgi_printf(.
6a10: 22 3c 68 74 6d 6c 3e 3c 62 6f 64 79 3e 3c 68 31 "<html><body><h1
6a20: 3e 49 6e 74 65 72 6e 61 6c 20 53 65 72 76 65 72 >Internal Server
6a30: 20 45 72 72 6f 72 3c 2f 68 31 3e 5c 6e 22 0a 20 Error</h1>\n".
6a40: 20 20 20 22 3c 70 6c 61 69 6e 74 65 78 74 3e 22 "<plaintext>"
6a50: 0a 20 20 29 3b 0a 20 20 76 61 5f 73 74 61 72 74 . );. va_start
6a60: 28 61 70 2c 20 7a 46 6f 72 6d 61 74 29 3b 0a 20 (ap, zFormat);.
6a70: 20 76 78 70 72 69 6e 74 66 28 73 6f 75 74 2c 30 vxprintf(sout,0
6a80: 2c 7a 46 6f 72 6d 61 74 2c 61 70 29 3b 0a 20 20 ,zFormat,ap);.
6a90: 76 61 5f 65 6e 64 28 61 70 29 3b 0a 20 20 63 67 va_end(ap);. cg
6aa0: 69 5f 72 65 70 6c 79 28 29 3b 0a 20 20 65 78 69 i_reply();. exi
6ab0: 74 28 31 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 t(1);.}../*.** R
6ac0: 65 6d 6f 76 65 20 74 68 65 20 66 69 72 73 74 20 emove the first
6ad0: 73 70 61 63 65 2d 64 65 6c 69 6d 69 74 65 64 20 space-delimited
6ae0: 74 6f 6b 65 6e 20 66 72 6f 6d 20 61 20 73 74 72 token from a str
6af0: 69 6e 67 20 61 6e 64 20 72 65 74 75 72 6e 0a 2a ing and return.*
6b00: 2a 20 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 69 * a pointer to i
6b10: 74 2e 20 20 41 64 64 20 61 20 4e 55 4c 4c 20 74 t. Add a NULL t
6b20: 6f 20 74 68 65 20 73 74 72 69 6e 67 20 74 6f 20 o the string to
6b30: 74 65 72 6d 69 6e 61 74 65 20 74 68 65 20 74 6f terminate the to
6b40: 6b 65 6e 2e 0a 2a 2a 20 4d 61 6b 65 20 2a 7a 4c ken..** Make *zL
6b50: 65 66 74 4f 76 65 72 20 70 6f 69 6e 74 20 74 6f eftOver point to
6b60: 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 68 the start of th
6b70: 65 20 6e 65 78 74 20 74 6f 6b 65 6e 2e 0a 2a 2f e next token..*/
6b80: 0a 73 74 61 74 69 63 20 63 68 61 72 20 2a 65 78 .static char *ex
6b90: 74 72 61 63 74 5f 74 6f 6b 65 6e 28 63 68 61 72 tract_token(char
6ba0: 20 2a 7a 49 6e 70 75 74 2c 20 63 68 61 72 20 2a *zInput, char *
6bb0: 2a 7a 4c 65 66 74 4f 76 65 72 29 7b 0a 20 20 63 *zLeftOver){. c
6bc0: 68 61 72 20 2a 7a 52 65 73 75 6c 74 20 3d 20 30 har *zResult = 0
6bd0: 3b 0a 20 20 69 66 28 20 7a 49 6e 70 75 74 3d 3d ;. if( zInput==
6be0: 30 20 29 7b 0a 20 20 20 20 69 66 28 20 7a 4c 65 0 ){. if( zLe
6bf0: 66 74 4f 76 65 72 20 29 20 2a 7a 4c 65 66 74 4f ftOver ) *zLeftO
6c00: 76 65 72 20 3d 20 30 3b 0a 20 20 20 20 72 65 74 ver = 0;. ret
6c10: 75 72 6e 20 30 3b 0a 20 20 7d 0a 20 20 77 68 69 urn 0;. }. whi
6c20: 6c 65 28 20 69 73 73 70 61 63 65 28 2a 7a 49 6e le( isspace(*zIn
6c30: 70 75 74 29 20 29 7b 20 7a 49 6e 70 75 74 2b 2b put) ){ zInput++
6c40: 3b 20 7d 0a 20 20 7a 52 65 73 75 6c 74 20 3d 20 ; }. zResult =
6c50: 7a 49 6e 70 75 74 3b 0a 20 20 77 68 69 6c 65 28 zInput;. while(
6c60: 20 2a 7a 49 6e 70 75 74 20 26 26 20 21 69 73 73 *zInput && !iss
6c70: 70 61 63 65 28 2a 7a 49 6e 70 75 74 29 20 29 7b pace(*zInput) ){
6c80: 20 7a 49 6e 70 75 74 2b 2b 3b 20 7d 0a 20 20 69 zInput++; }. i
6c90: 66 28 20 2a 7a 49 6e 70 75 74 20 29 7b 0a 20 20 f( *zInput ){.
6ca0: 20 20 2a 7a 49 6e 70 75 74 20 3d 20 30 3b 0a 20 *zInput = 0;.
6cb0: 20 20 20 7a 49 6e 70 75 74 2b 2b 3b 0a 20 20 20 zInput++;.
6cc0: 20 77 68 69 6c 65 28 20 69 73 73 70 61 63 65 28 while( isspace(
6cd0: 2a 7a 49 6e 70 75 74 29 20 29 7b 20 7a 49 6e 70 *zInput) ){ zInp
6ce0: 75 74 2b 2b 3b 20 7d 0a 20 20 7d 0a 20 20 69 66 ut++; }. }. if
6cf0: 28 20 7a 4c 65 66 74 4f 76 65 72 20 29 7b 20 2a ( zLeftOver ){ *
6d00: 7a 4c 65 66 74 4f 76 65 72 20 3d 20 7a 49 6e 70 zLeftOver = zInp
6d10: 75 74 3b 20 7d 0a 20 20 72 65 74 75 72 6e 20 7a ut; }. return z
6d20: 52 65 73 75 6c 74 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a Result;.}../*.**
6d30: 20 54 68 69 73 20 72 6f 75 74 69 6e 65 20 68 61 This routine ha
6d40: 6e 64 6c 65 73 20 61 20 73 69 6e 67 6c 65 20 48 ndles a single H
6d50: 54 54 50 20 72 65 71 75 65 73 74 20 77 68 69 63 TTP request whic
6d60: 68 20 69 73 20 63 6f 6d 69 6e 67 20 69 6e 20 6f h is coming in o
6d70: 6e 0a 2a 2a 20 73 74 61 6e 64 61 72 64 20 69 6e n.** standard in
6d80: 70 75 74 20 61 6e 64 20 77 68 69 63 68 20 72 65 put and which re
6d90: 70 6c 69 65 73 20 6f 6e 20 73 74 61 6e 64 61 72 plies on standar
6da0: 64 20 6f 75 74 70 75 74 2e 0a 2a 2a 0a 2a 2a 20 d output..**.**
6db0: 54 68 65 20 48 54 54 50 20 72 65 71 75 65 73 74 The HTTP request
6dc0: 20 69 73 20 72 65 61 64 20 66 72 6f 6d 20 73 74 is read from st
6dd0: 61 6e 64 61 72 64 20 69 6e 70 75 74 20 61 6e 64 andard input and
6de0: 20 69 73 20 75 73 65 64 20 74 6f 20 69 6e 69 74 is used to init
6df0: 69 61 6c 69 7a 65 0a 2a 2a 20 65 6e 76 69 72 6f ialize.** enviro
6e00: 6e 6d 65 6e 74 20 76 61 72 69 61 62 6c 65 73 20 nment variables
6e10: 61 73 20 70 65 72 20 43 47 49 2e 20 20 54 68 65 as per CGI. The
6e20: 20 63 67 69 5f 69 6e 69 74 28 29 20 72 6f 75 74 cgi_init() rout
6e30: 69 6e 65 20 74 6f 20 63 6f 6d 70 6c 65 74 65 0a ine to complete.
6e40: 2a 2a 20 74 68 65 20 73 65 74 75 70 2e 20 20 4f ** the setup. O
6e50: 6e 63 65 20 61 6c 6c 20 74 68 65 20 73 65 74 75 nce all the setu
6e60: 70 20 69 73 20 66 69 6e 69 73 68 65 64 2c 20 74 p is finished, t
6e70: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 72 65 his procedure re
6e80: 74 75 72 6e 73 0a 2a 2a 20 61 6e 64 20 73 75 62 turns.** and sub
6e90: 73 65 71 75 65 6e 74 20 63 6f 64 65 20 68 61 6e sequent code han
6ea0: 64 6c 65 73 20 74 68 65 20 61 63 74 75 61 6c 20 dles the actual
6eb0: 67 65 6e 65 72 61 74 69 6f 6e 20 6f 66 20 74 68 generation of th
6ec0: 65 20 77 65 62 70 61 67 65 2e 0a 2a 2f 0a 76 6f e webpage..*/.vo
6ed0: 69 64 20 63 67 69 5f 68 61 6e 64 6c 65 5f 68 74 id cgi_handle_ht
6ee0: 74 70 5f 72 65 71 75 65 73 74 28 76 6f 69 64 29 tp_request(void)
6ef0: 7b 0a 20 20 63 68 61 72 20 2a 7a 2c 20 2a 7a 54 {. char *z, *zT
6f00: 6f 6b 65 6e 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 oken;. int i;.
6f10: 20 73 74 72 75 63 74 20 73 6f 63 6b 61 64 64 72 struct sockaddr
6f20: 5f 69 6e 20 72 65 6d 6f 74 65 4e 61 6d 65 3b 0a _in remoteName;.
6f30: 20 20 73 69 7a 65 5f 74 20 73 69 7a 65 20 3d 20 size_t size =
6f40: 73 69 7a 65 6f 66 28 73 74 72 75 63 74 20 73 6f sizeof(struct so
6f50: 63 6b 61 64 64 72 5f 69 6e 29 3b 0a 20 20 63 68 ckaddr_in);. ch
6f60: 61 72 20 7a 4c 69 6e 65 5b 32 30 30 30 5d 3b 20 ar zLine[2000];
6f70: 20 20 20 20 2f 2a 20 41 20 73 69 6e 67 6c 65 20 /* A single
6f80: 6c 69 6e 65 20 6f 66 20 69 6e 70 75 74 2e 20 2a line of input. *
6f90: 2f 0a 0a 20 20 66 75 6c 6c 48 74 74 70 52 65 70 /.. fullHttpRep
6fa0: 6c 79 20 3d 20 31 3b 0a 20 20 69 66 28 20 66 67 ly = 1;. if( fg
6fb0: 65 74 73 28 7a 4c 69 6e 65 2c 20 73 69 7a 65 6f ets(zLine, sizeo
6fc0: 66 28 7a 4c 69 6e 65 29 2c 20 73 74 64 69 6e 29 f(zLine), stdin)
6fd0: 3d 3d 30 20 29 7b 0a 20 20 20 20 6d 61 6c 66 6f ==0 ){. malfo
6fe0: 72 6d 65 64 5f 72 65 71 75 65 73 74 28 29 3b 0a rmed_request();.
6ff0: 20 20 7d 0a 20 20 7a 54 6f 6b 65 6e 20 3d 20 65 }. zToken = e
7000: 78 74 72 61 63 74 5f 74 6f 6b 65 6e 28 7a 4c 69 xtract_token(zLi
7010: 6e 65 2c 20 26 7a 29 3b 0a 20 20 69 66 28 20 7a ne, &z);. if( z
7020: 54 6f 6b 65 6e 3d 3d 30 20 29 7b 0a 20 20 20 20 Token==0 ){.
7030: 6d 61 6c 66 6f 72 6d 65 64 5f 72 65 71 75 65 73 malformed_reques
7040: 74 28 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 73 t();. }. if( s
7050: 74 72 63 6d 70 28 7a 54 6f 6b 65 6e 2c 22 47 45 trcmp(zToken,"GE
7060: 54 22 29 21 3d 30 20 26 26 20 73 74 72 63 6d 70 T")!=0 && strcmp
7070: 28 7a 54 6f 6b 65 6e 2c 22 50 4f 53 54 22 29 21 (zToken,"POST")!
7080: 3d 30 0a 20 20 20 20 20 20 26 26 20 73 74 72 63 =0. && strc
7090: 6d 70 28 7a 54 6f 6b 65 6e 2c 22 48 45 41 44 22 mp(zToken,"HEAD"
70a0: 29 21 3d 30 20 29 7b 0a 20 20 20 20 6d 61 6c 66 )!=0 ){. malf
70b0: 6f 72 6d 65 64 5f 72 65 71 75 65 73 74 28 29 3b ormed_request();
70c0: 0a 20 20 7d 0a 20 20 63 67 69 5f 73 65 74 65 6e . }. cgi_seten
70d0: 76 28 22 47 41 54 45 57 41 59 5f 49 4e 54 45 52 v("GATEWAY_INTER
70e0: 46 41 43 45 22 2c 22 43 47 49 2f 31 2e 30 22 29 FACE","CGI/1.0")
70f0: 3b 0a 20 20 63 67 69 5f 73 65 74 65 6e 76 28 22 ;. cgi_setenv("
7100: 52 45 51 55 45 53 54 5f 4d 45 54 48 4f 44 22 2c REQUEST_METHOD",
7110: 7a 54 6f 6b 65 6e 29 3b 0a 20 20 7a 54 6f 6b 65 zToken);. zToke
7120: 6e 20 3d 20 65 78 74 72 61 63 74 5f 74 6f 6b 65 n = extract_toke
7130: 6e 28 7a 2c 20 26 7a 29 3b 0a 20 20 69 66 28 20 n(z, &z);. if(
7140: 7a 54 6f 6b 65 6e 3d 3d 30 20 29 7b 0a 20 20 20 zToken==0 ){.
7150: 20 6d 61 6c 66 6f 72 6d 65 64 5f 72 65 71 75 65 malformed_reque
7160: 73 74 28 29 3b 0a 20 20 7d 0a 20 20 63 67 69 5f st();. }. cgi_
7170: 73 65 74 65 6e 76 28 22 52 45 51 55 45 53 54 5f setenv("REQUEST_
7180: 55 52 49 22 2c 20 7a 54 6f 6b 65 6e 29 3b 0a 20 URI", zToken);.
7190: 20 66 6f 72 28 69 3d 30 3b 20 7a 54 6f 6b 65 6e for(i=0; zToken
71a0: 5b 69 5d 20 26 26 20 7a 54 6f 6b 65 6e 5b 69 5d [i] && zToken[i]
71b0: 21 3d 27 3f 27 3b 20 69 2b 2b 29 7b 7d 0a 20 20 !='?'; i++){}.
71c0: 69 66 28 20 7a 54 6f 6b 65 6e 5b 69 5d 20 29 20 if( zToken[i] )
71d0: 7a 54 6f 6b 65 6e 5b 69 2b 2b 5d 20 3d 20 30 3b zToken[i++] = 0;
71e0: 0a 20 20 63 67 69 5f 73 65 74 65 6e 76 28 22 50 . cgi_setenv("P
71f0: 41 54 48 5f 49 4e 46 4f 22 2c 20 7a 54 6f 6b 65 ATH_INFO", zToke
7200: 6e 29 3b 0a 20 20 63 67 69 5f 73 65 74 65 6e 76 n);. cgi_setenv
7210: 28 22 51 55 45 52 59 5f 53 54 52 49 4e 47 22 2c ("QUERY_STRING",
7220: 20 26 7a 54 6f 6b 65 6e 5b 69 5d 29 3b 0a 20 20 &zToken[i]);.
7230: 69 66 28 20 67 65 74 70 65 65 72 6e 61 6d 65 28 if( getpeername(
7240: 66 69 6c 65 6e 6f 28 73 74 64 69 6e 29 2c 20 28 fileno(stdin), (
7250: 73 74 72 75 63 74 20 73 6f 63 6b 61 64 64 72 2a struct sockaddr*
7260: 29 26 72 65 6d 6f 74 65 4e 61 6d 65 2c 20 26 73 )&remoteName, &s
7270: 69 7a 65 29 3e 3d 30 20 29 7b 0a 20 20 20 20 63 ize)>=0 ){. c
7280: 68 61 72 20 2a 7a 49 70 41 64 64 72 20 3d 20 69 har *zIpAddr = i
7290: 6e 65 74 5f 6e 74 6f 61 28 72 65 6d 6f 74 65 4e net_ntoa(remoteN
72a0: 61 6d 65 2e 73 69 6e 5f 61 64 64 72 29 3b 0a 20 ame.sin_addr);.
72b0: 20 20 20 63 67 69 5f 73 65 74 65 6e 76 28 22 52 cgi_setenv("R
72c0: 45 4d 4f 54 45 5f 41 44 44 52 22 2c 20 7a 49 70 EMOTE_ADDR", zIp
72d0: 41 64 64 72 29 3b 0a 0a 20 20 20 20 2f 2a 20 53 Addr);.. /* S
72e0: 65 74 20 74 68 65 20 47 6c 6f 62 61 6c 2e 7a 49 et the Global.zI
72f0: 70 41 64 64 72 20 76 61 72 69 61 62 6c 65 20 74 pAddr variable t
7300: 6f 20 74 68 65 20 73 65 72 76 65 72 20 77 65 20 o the server we
7310: 61 72 65 20 74 61 6c 6b 69 6e 67 20 74 6f 2e 0a are talking to..
7320: 20 20 20 20 2a 2a 20 54 68 69 73 20 69 73 20 75 ** This is u
7330: 73 65 64 20 74 6f 20 70 6f 70 75 6c 61 74 65 20 sed to populate
7340: 74 68 65 20 69 70 61 64 64 72 20 63 6f 6c 75 6d the ipaddr colum
7350: 6e 20 6f 66 20 74 68 65 20 72 63 76 66 72 6f 6d n of the rcvfrom
7360: 20 74 61 62 6c 65 2c 0a 20 20 20 20 2a 2a 20 69 table,. ** i
7370: 66 20 61 6e 79 20 66 69 6c 65 73 20 61 72 65 20 f any files are
7380: 72 65 63 65 69 76 65 64 20 66 72 6f 6d 20 74 68 received from th
7390: 65 20 63 6f 6e 6e 65 63 74 65 64 20 63 6c 69 65 e connected clie
73a0: 6e 74 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20 67 nt.. */. g
73b0: 2e 7a 49 70 41 64 64 72 20 3d 20 6d 70 72 69 6e .zIpAddr = mprin
73c0: 74 66 28 22 25 73 22 2c 20 7a 49 70 41 64 64 72 tf("%s", zIpAddr
73d0: 29 3b 0a 20 20 7d 0a 20 0a 20 20 2f 2a 20 47 65 );. }. . /* Ge
73e0: 74 20 61 6c 6c 20 74 68 65 20 6f 70 74 69 6f 6e t all the option
73f0: 61 6c 20 66 69 65 6c 64 73 20 74 68 61 74 20 66 al fields that f
7400: 6f 6c 6c 6f 77 20 74 68 65 20 66 69 72 73 74 20 ollow the first
7410: 6c 69 6e 65 2e 0a 20 20 2a 2f 0a 20 20 77 68 69 line.. */. whi
7420: 6c 65 28 20 66 67 65 74 73 28 7a 4c 69 6e 65 2c le( fgets(zLine,
7430: 73 69 7a 65 6f 66 28 7a 4c 69 6e 65 29 2c 73 74 sizeof(zLine),st
7440: 64 69 6e 29 20 29 7b 0a 20 20 20 20 63 68 61 72 din) ){. char
7450: 20 2a 7a 46 69 65 6c 64 4e 61 6d 65 3b 0a 20 20 *zFieldName;.
7460: 20 20 63 68 61 72 20 2a 7a 56 61 6c 3b 0a 0a 20 char *zVal;..
7470: 20 20 20 7a 46 69 65 6c 64 4e 61 6d 65 20 3d 20 zFieldName =
7480: 65 78 74 72 61 63 74 5f 74 6f 6b 65 6e 28 7a 4c extract_token(zL
7490: 69 6e 65 2c 26 7a 56 61 6c 29 3b 0a 20 20 20 20 ine,&zVal);.
74a0: 69 66 28 20 7a 46 69 65 6c 64 4e 61 6d 65 3d 3d if( zFieldName==
74b0: 30 20 7c 7c 20 2a 7a 46 69 65 6c 64 4e 61 6d 65 0 || *zFieldName
74c0: 3d 3d 30 20 29 20 62 72 65 61 6b 3b 0a 20 20 20 ==0 ) break;.
74d0: 20 77 68 69 6c 65 28 20 69 73 73 70 61 63 65 28 while( isspace(
74e0: 2a 7a 56 61 6c 29 20 29 7b 20 7a 56 61 6c 2b 2b *zVal) ){ zVal++
74f0: 3b 20 7d 0a 20 20 20 20 69 20 3d 20 73 74 72 6c ; }. i = strl
7500: 65 6e 28 7a 56 61 6c 29 3b 0a 20 20 20 20 77 68 en(zVal);. wh
7510: 69 6c 65 28 20 69 3e 30 20 26 26 20 69 73 73 70 ile( i>0 && issp
7520: 61 63 65 28 7a 56 61 6c 5b 69 2d 31 5d 29 20 29 ace(zVal[i-1]) )
7530: 7b 20 69 2d 2d 3b 20 7d 0a 20 20 20 20 7a 56 61 { i--; }. zVa
7540: 6c 5b 69 5d 20 3d 20 30 3b 0a 20 20 20 20 66 6f l[i] = 0;. fo
7550: 72 28 69 3d 30 3b 20 7a 46 69 65 6c 64 4e 61 6d r(i=0; zFieldNam
7560: 65 5b 69 5d 3b 20 69 2b 2b 29 7b 20 7a 46 69 65 e[i]; i++){ zFie
7570: 6c 64 4e 61 6d 65 5b 69 5d 20 3d 20 74 6f 6c 6f ldName[i] = tolo
7580: 77 65 72 28 7a 46 69 65 6c 64 4e 61 6d 65 5b 69 wer(zFieldName[i
7590: 5d 29 3b 20 7d 0a 20 20 20 20 69 66 28 20 73 74 ]); }. if( st
75a0: 72 63 6d 70 28 7a 46 69 65 6c 64 4e 61 6d 65 2c rcmp(zFieldName,
75b0: 22 75 73 65 72 2d 61 67 65 6e 74 3a 22 29 3d 3d "user-agent:")==
75c0: 30 20 29 7b 0a 20 20 20 20 20 20 63 67 69 5f 73 0 ){. cgi_s
75d0: 65 74 65 6e 76 28 22 48 54 54 50 5f 55 53 45 52 etenv("HTTP_USER
75e0: 5f 41 47 45 4e 54 22 2c 20 7a 56 61 6c 29 3b 0a _AGENT", zVal);.
75f0: 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 73 74 }else if( st
7600: 72 63 6d 70 28 7a 46 69 65 6c 64 4e 61 6d 65 2c rcmp(zFieldName,
7610: 22 63 6f 6e 74 65 6e 74 2d 6c 65 6e 67 74 68 3a "content-length:
7620: 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 63 ")==0 ){. c
7630: 67 69 5f 73 65 74 65 6e 76 28 22 43 4f 4e 54 45 gi_setenv("CONTE
7640: 4e 54 5f 4c 45 4e 47 54 48 22 2c 20 7a 56 61 6c NT_LENGTH", zVal
7650: 29 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 );. }else if(
7660: 20 73 74 72 63 6d 70 28 7a 46 69 65 6c 64 4e 61 strcmp(zFieldNa
7670: 6d 65 2c 22 72 65 66 65 72 65 72 3a 22 29 3d 3d me,"referer:")==
7680: 30 20 29 7b 0a 20 20 20 20 20 20 63 67 69 5f 73 0 ){. cgi_s
7690: 65 74 65 6e 76 28 22 48 54 54 50 5f 52 45 46 45 etenv("HTTP_REFE
76a0: 52 45 52 22 2c 20 7a 56 61 6c 29 3b 0a 20 20 20 RER", zVal);.
76b0: 20 7d 65 6c 73 65 20 69 66 28 20 73 74 72 63 6d }else if( strcm
76c0: 70 28 7a 46 69 65 6c 64 4e 61 6d 65 2c 22 68 6f p(zFieldName,"ho
76d0: 73 74 3a 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 st:")==0 ){.
76e0: 20 20 63 67 69 5f 73 65 74 65 6e 76 28 22 48 54 cgi_setenv("HT
76f0: 54 50 5f 48 4f 53 54 22 2c 20 7a 56 61 6c 29 3b TP_HOST", zVal);
7700: 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 73 . }else if( s
7710: 74 72 63 6d 70 28 7a 46 69 65 6c 64 4e 61 6d 65 trcmp(zFieldName
7720: 2c 22 63 6f 6e 74 65 6e 74 2d 74 79 70 65 3a 22 ,"content-type:"
7730: 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 63 67 )==0 ){. cg
7740: 69 5f 73 65 74 65 6e 76 28 22 43 4f 4e 54 45 4e i_setenv("CONTEN
7750: 54 5f 54 59 50 45 22 2c 20 7a 56 61 6c 29 3b 0a T_TYPE", zVal);.
7760: 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 73 74 }else if( st
7770: 72 63 6d 70 28 7a 46 69 65 6c 64 4e 61 6d 65 2c rcmp(zFieldName,
7780: 22 63 6f 6f 6b 69 65 3a 22 29 3d 3d 30 20 29 7b "cookie:")==0 ){
7790: 0a 20 20 20 20 20 20 63 67 69 5f 73 65 74 65 6e . cgi_seten
77a0: 76 28 22 48 54 54 50 5f 43 4f 4f 4b 49 45 22 2c v("HTTP_COOKIE",
77b0: 20 7a 56 61 6c 29 3b 0a 20 20 20 20 7d 65 6c 73 zVal);. }els
77c0: 65 20 69 66 28 20 73 74 72 63 6d 70 28 7a 46 69 e if( strcmp(zFi
77d0: 65 6c 64 4e 61 6d 65 2c 22 69 66 2d 6e 6f 6e 65 eldName,"if-none
77e0: 2d 6d 61 74 63 68 3a 22 29 3d 3d 30 20 29 7b 0a -match:")==0 ){.
77f0: 20 20 20 20 20 20 63 67 69 5f 73 65 74 65 6e 76 cgi_setenv
7800: 28 22 48 54 54 50 5f 49 46 5f 4e 4f 4e 45 5f 4d ("HTTP_IF_NONE_M
7810: 41 54 43 48 22 2c 20 7a 56 61 6c 29 3b 0a 20 20 ATCH", zVal);.
7820: 20 20 7d 65 6c 73 65 20 69 66 28 20 73 74 72 63 }else if( strc
7830: 6d 70 28 7a 46 69 65 6c 64 4e 61 6d 65 2c 22 69 mp(zFieldName,"i
7840: 66 2d 6d 6f 64 69 66 69 65 64 2d 73 69 6e 63 65 f-modified-since
7850: 3a 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 :")==0 ){.
7860: 63 67 69 5f 73 65 74 65 6e 76 28 22 48 54 54 50 cgi_setenv("HTTP
7870: 5f 49 46 5f 4d 4f 44 49 46 49 45 44 5f 53 49 4e _IF_MODIFIED_SIN
7880: 43 45 22 2c 20 7a 56 61 6c 29 3b 0a 20 20 20 20 CE", zVal);.
7890: 7d 0a 20 20 7d 0a 0a 20 20 63 67 69 5f 69 6e 69 }. }.. cgi_ini
78a0: 74 28 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 4d 61 t();.}../*.** Ma
78b0: 78 69 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66 20 ximum number of
78c0: 63 68 69 6c 64 20 70 72 6f 63 65 73 73 65 73 20 child processes
78d0: 74 68 61 74 20 77 65 20 63 61 6e 20 68 61 76 65 that we can have
78e0: 20 72 75 6e 6e 69 6e 67 0a 2a 2a 20 61 74 20 6f running.** at o
78f0: 6e 65 20 74 69 6d 65 20 62 65 66 6f 72 65 20 77 ne time before w
7900: 65 20 73 74 61 72 74 20 73 6c 6f 77 69 6e 67 20 e start slowing
7910: 74 68 69 6e 67 73 20 64 6f 77 6e 2e 0a 2a 2f 0a things down..*/.
7920: 23 64 65 66 69 6e 65 20 4d 41 58 5f 50 41 52 41 #define MAX_PARA
7930: 4c 4c 45 4c 20 32 0a 0a 2f 2a 0a 2a 2a 20 49 6d LLEL 2../*.** Im
7940: 70 6c 65 6d 65 6e 74 20 61 6e 20 48 54 54 50 20 plement an HTTP
7950: 73 65 72 76 65 72 20 64 61 65 6d 6f 6e 20 6c 69 server daemon li
7960: 73 74 65 6e 69 6e 67 20 6f 6e 20 70 6f 72 74 20 stening on port
7970: 69 50 6f 72 74 2e 0a 2a 2a 0a 2a 2a 20 41 73 20 iPort..**.** As
7980: 6e 65 77 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 new connections
7990: 61 72 72 69 76 65 2c 20 66 6f 72 6b 20 61 20 63 arrive, fork a c
79a0: 68 69 6c 64 20 61 6e 64 20 6c 65 74 20 63 68 69 hild and let chi
79b0: 6c 64 20 72 65 74 75 72 6e 0a 2a 2a 20 6f 75 74 ld return.** out
79c0: 20 6f 66 20 74 68 69 73 20 70 72 6f 63 65 64 75 of this procedu
79d0: 72 65 20 63 61 6c 6c 2e 20 20 54 68 65 20 63 68 re call. The ch
79e0: 69 6c 64 20 77 69 6c 6c 20 68 61 6e 64 6c 65 20 ild will handle
79f0: 74 68 65 20 72 65 71 75 65 73 74 2e 0a 2a 2a 20 the request..**
7a00: 54 68 65 20 70 61 72 65 6e 74 20 6e 65 76 65 72 The parent never
7a10: 20 72 65 74 75 72 6e 73 20 66 72 6f 6d 20 74 68 returns from th
7a20: 69 73 20 70 72 6f 63 65 64 75 72 65 2e 0a 2a 2f is procedure..*/
7a30: 0a 76 6f 69 64 20 63 67 69 5f 68 74 74 70 5f 73 .void cgi_http_s
7a40: 65 72 76 65 72 28 69 6e 74 20 69 50 6f 72 74 29 erver(int iPort)
7a50: 7b 0a 20 20 69 6e 74 20 6c 69 73 74 65 6e 65 72 {. int listener
7a60: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
7a70: 20 2f 2a 20 54 68 65 20 73 65 72 76 65 72 20 73 /* The server s
7a80: 6f 63 6b 65 74 20 2a 2f 0a 20 20 69 6e 74 20 63 ocket */. int c
7a90: 6f 6e 6e 65 63 74 69 6f 6e 3b 20 20 20 20 20 20 onnection;
7aa0: 20 20 20 20 20 20 20 20 2f 2a 20 41 20 73 6f 63 /* A soc
7ab0: 6b 65 74 20 66 6f 72 20 65 61 63 68 20 69 6e 64 ket for each ind
7ac0: 69 76 69 64 75 61 6c 20 63 6f 6e 6e 65 63 74 69 ividual connecti
7ad0: 6f 6e 20 2a 2f 0a 20 20 66 64 5f 73 65 74 20 72 on */. fd_set r
7ae0: 65 61 64 66 64 73 3b 20 20 20 20 20 20 20 20 20 eadfds;
7af0: 20 20 20 20 20 2f 2a 20 53 65 74 20 6f 66 20 66 /* Set of f
7b00: 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 73 20 ile descriptors
7b10: 66 6f 72 20 73 65 6c 65 63 74 28 29 20 2a 2f 0a for select() */.
7b20: 20 20 73 69 7a 65 5f 74 20 6c 65 6e 61 64 64 72 size_t lenaddr
7b30: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f ; /
7b40: 2a 20 4c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 * Length of the
7b50: 69 6e 61 64 64 72 20 73 74 72 75 63 74 75 72 65 inaddr structure
7b60: 20 2a 2f 0a 20 20 69 6e 74 20 63 68 69 6c 64 3b */. int child;
7b70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7b80: 20 20 20 2f 2a 20 50 49 44 20 6f 66 20 74 68 65 /* PID of the
7b90: 20 63 68 69 6c 64 20 70 72 6f 63 65 73 73 20 2a child process *
7ba0: 2f 0a 20 20 69 6e 74 20 6e 63 68 69 6c 64 72 65 /. int nchildre
7bb0: 6e 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 n = 0;
7bc0: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 63 68 /* Number of ch
7bd0: 69 6c 64 20 70 72 6f 63 65 73 73 65 73 20 2a 2f ild processes */
7be0: 0a 20 20 73 74 72 75 63 74 20 74 69 6d 65 76 61 . struct timeva
7bf0: 6c 20 64 65 6c 61 79 3b 20 20 20 20 20 20 20 20 l delay;
7c00: 2f 2a 20 48 6f 77 20 6c 6f 6e 67 20 74 6f 20 77 /* How long to w
7c10: 61 69 74 20 69 6e 73 69 64 65 20 73 65 6c 65 63 ait inside selec
7c20: 74 28 29 20 2a 2f 0a 20 20 73 74 72 75 63 74 20 t() */. struct
7c30: 73 6f 63 6b 61 64 64 72 5f 69 6e 20 69 6e 61 64 sockaddr_in inad
7c40: 64 72 3b 20 20 20 2f 2a 20 54 68 65 20 73 6f 63 dr; /* The soc
7c50: 6b 65 74 20 61 64 64 72 65 73 73 20 2a 2f 0a 20 ket address */.
7c60: 20 69 6e 74 20 6f 70 74 20 3d 20 31 3b 20 20 20 int opt = 1;
7c70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
7c80: 20 73 65 74 73 6f 63 6b 6f 70 74 20 66 6c 61 67 setsockopt flag
7c90: 20 2a 2f 0a 0a 20 20 6d 65 6d 73 65 74 28 26 69 */.. memset(&i
7ca0: 6e 61 64 64 72 2c 20 30 2c 20 73 69 7a 65 6f 66 naddr, 0, sizeof
7cb0: 28 69 6e 61 64 64 72 29 29 3b 0a 20 20 69 6e 61 (inaddr));. ina
7cc0: 64 64 72 2e 73 69 6e 5f 66 61 6d 69 6c 79 20 3d ddr.sin_family =
7cd0: 20 41 46 5f 49 4e 45 54 3b 0a 20 20 69 6e 61 64 AF_INET;. inad
7ce0: 64 72 2e 73 69 6e 5f 61 64 64 72 2e 73 5f 61 64 dr.sin_addr.s_ad
7cf0: 64 72 20 3d 20 49 4e 41 44 44 52 5f 41 4e 59 3b dr = INADDR_ANY;
7d00: 0a 20 20 69 6e 61 64 64 72 2e 73 69 6e 5f 70 6f . inaddr.sin_po
7d10: 72 74 20 3d 20 68 74 6f 6e 73 28 69 50 6f 72 74 rt = htons(iPort
7d20: 29 3b 0a 20 20 6c 69 73 74 65 6e 65 72 20 3d 20 );. listener =
7d30: 73 6f 63 6b 65 74 28 41 46 5f 49 4e 45 54 2c 20 socket(AF_INET,
7d40: 53 4f 43 4b 5f 53 54 52 45 41 4d 2c 20 30 29 3b SOCK_STREAM, 0);
7d50: 0a 20 20 69 66 28 20 6c 69 73 74 65 6e 65 72 3c . if( listener<
7d60: 30 20 29 7b 0a 20 20 20 20 66 70 72 69 6e 74 66 0 ){. fprintf
7d70: 28 73 74 64 65 72 72 2c 22 43 61 6e 27 74 20 63 (stderr,"Can't c
7d80: 72 65 61 74 65 20 61 20 73 6f 63 6b 65 74 5c 6e reate a socket\n
7d90: 22 29 3b 0a 20 20 20 20 65 78 69 74 28 31 29 3b ");. exit(1);
7da0: 0a 20 20 7d 0a 0a 20 20 2f 2a 20 69 66 20 77 65 . }.. /* if we
7db0: 20 63 61 6e 27 74 20 74 65 72 6d 69 6e 61 74 65 can't terminate
7dc0: 20 6e 69 63 65 6c 79 2c 20 61 74 20 6c 65 61 73 nicely, at leas
7dd0: 74 20 61 6c 6c 6f 77 20 74 68 65 20 73 6f 63 6b t allow the sock
7de0: 65 74 20 74 6f 20 62 65 20 72 65 75 73 65 64 20 et to be reused
7df0: 2a 2f 0a 20 20 73 65 74 73 6f 63 6b 6f 70 74 28 */. setsockopt(
7e00: 6c 69 73 74 65 6e 65 72 2c 53 4f 4c 5f 53 4f 43 listener,SOL_SOC
7e10: 4b 45 54 2c 53 4f 5f 52 45 55 53 45 41 44 44 52 KET,SO_REUSEADDR
7e20: 2c 26 6f 70 74 2c 73 69 7a 65 6f 66 28 6f 70 74 ,&opt,sizeof(opt
7e30: 29 29 3b 0a 0a 20 20 69 66 28 20 62 69 6e 64 28 ));.. if( bind(
7e40: 6c 69 73 74 65 6e 65 72 2c 20 28 73 74 72 75 63 listener, (struc
7e50: 74 20 73 6f 63 6b 61 64 64 72 2a 29 26 69 6e 61 t sockaddr*)&ina
7e60: 64 64 72 2c 20 73 69 7a 65 6f 66 28 69 6e 61 64 ddr, sizeof(inad
7e70: 64 72 29 29 3c 30 20 29 7b 0a 20 20 20 20 66 70 dr))<0 ){. fp
7e80: 72 69 6e 74 66 28 73 74 64 65 72 72 2c 22 43 61 rintf(stderr,"Ca
7e90: 6e 27 74 20 62 69 6e 64 20 74 6f 20 70 6f 72 74 n't bind to port
7ea0: 20 25 64 5c 6e 22 2c 20 69 50 6f 72 74 29 3b 0a %d\n", iPort);.
7eb0: 20 20 20 20 65 78 69 74 28 31 29 3b 0a 20 20 7d exit(1);. }
7ec0: 0a 20 20 6c 69 73 74 65 6e 28 6c 69 73 74 65 6e . listen(listen
7ed0: 65 72 2c 31 30 29 3b 0a 20 20 77 68 69 6c 65 28 er,10);. while(
7ee0: 20 31 20 29 7b 0a 20 20 20 20 69 66 28 20 6e 63 1 ){. if( nc
7ef0: 68 69 6c 64 72 65 6e 3e 4d 41 58 5f 50 41 52 41 hildren>MAX_PARA
7f00: 4c 4c 45 4c 20 29 7b 0a 20 20 20 20 20 20 2f 2a LLEL ){. /*
7f10: 20 53 6c 6f 77 20 64 6f 77 6e 20 69 66 20 63 6f Slow down if co
7f20: 6e 6e 65 63 74 69 6f 6e 73 20 61 72 65 20 61 72 nnections are ar
7f30: 72 69 76 69 6e 67 20 74 6f 6f 20 66 61 73 74 20 riving too fast
7f40: 2a 2f 0a 20 20 20 20 20 20 73 6c 65 65 70 28 20 */. sleep(
7f50: 6e 63 68 69 6c 64 72 65 6e 2d 4d 41 58 5f 50 41 nchildren-MAX_PA
7f60: 52 41 4c 4c 45 4c 20 29 3b 0a 20 20 20 20 7d 0a RALLEL );. }.
7f70: 20 20 20 20 64 65 6c 61 79 2e 74 76 5f 73 65 63 delay.tv_sec
7f80: 20 3d 20 36 30 3b 0a 20 20 20 20 64 65 6c 61 79 = 60;. delay
7f90: 2e 74 76 5f 75 73 65 63 20 3d 20 30 3b 0a 20 20 .tv_usec = 0;.
7fa0: 20 20 46 44 5f 5a 45 52 4f 28 26 72 65 61 64 66 FD_ZERO(&readf
7fb0: 64 73 29 3b 0a 20 20 20 20 46 44 5f 53 45 54 28 ds);. FD_SET(
7fc0: 20 6c 69 73 74 65 6e 65 72 2c 20 26 72 65 61 64 listener, &read
7fd0: 66 64 73 29 3b 0a 20 20 20 20 69 66 28 20 73 65 fds);. if( se
7fe0: 6c 65 63 74 28 20 6c 69 73 74 65 6e 65 72 2b 31 lect( listener+1
7ff0: 2c 20 26 72 65 61 64 66 64 73 2c 20 30 2c 20 30 , &readfds, 0, 0
8000: 2c 20 26 64 65 6c 61 79 29 20 29 7b 0a 20 20 20 , &delay) ){.
8010: 20 20 20 6c 65 6e 61 64 64 72 20 3d 20 73 69 7a lenaddr = siz
8020: 65 6f 66 28 69 6e 61 64 64 72 29 3b 0a 20 20 20 eof(inaddr);.
8030: 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 3d 20 connection =
8040: 61 63 63 65 70 74 28 6c 69 73 74 65 6e 65 72 2c accept(listener,
8050: 20 28 73 74 72 75 63 74 20 73 6f 63 6b 61 64 64 (struct sockadd
8060: 72 2a 29 26 69 6e 61 64 64 72 2c 20 26 6c 65 6e r*)&inaddr, &len
8070: 61 64 64 72 29 3b 0a 20 20 20 20 20 20 69 66 28 addr);. if(
8080: 20 63 6f 6e 6e 65 63 74 69 6f 6e 3e 3d 30 20 29 connection>=0 )
8090: 7b 0a 20 20 20 20 20 20 20 20 63 68 69 6c 64 20 {. child
80a0: 3d 20 66 6f 72 6b 28 29 3b 0a 20 20 20 20 20 20 = fork();.
80b0: 20 20 69 66 28 20 63 68 69 6c 64 21 3d 30 20 29 if( child!=0 )
80c0: 7b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 {. if(
80d0: 63 68 69 6c 64 3e 30 20 29 20 6e 63 68 69 6c 64 child>0 ) nchild
80e0: 72 65 6e 2b 2b 3b 0a 20 20 20 20 20 20 20 20 20 ren++;.
80f0: 20 63 6c 6f 73 65 28 63 6f 6e 6e 65 63 74 69 6f close(connectio
8100: 6e 29 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 n);. }els
8110: 65 7b 0a 20 20 20 20 20 20 20 20 20 20 63 6c 6f e{. clo
8120: 73 65 28 30 29 3b 0a 20 20 20 20 20 20 20 20 20 se(0);.
8130: 20 64 75 70 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 dup(connection)
8140: 3b 0a 20 20 20 20 20 20 20 20 20 20 63 6c 6f 73 ;. clos
8150: 65 28 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 e(1);.
8160: 64 75 70 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 3b dup(connection);
8170: 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 21 . if( !
8180: 67 2e 66 48 74 74 70 54 72 61 63 65 20 29 7b 0a g.fHttpTrace ){.
8190: 20 20 20 20 20 20 20 20 20 20 20 20 63 6c 6f 73 clos
81a0: 65 28 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 e(2);.
81b0: 20 20 64 75 70 28 63 6f 6e 6e 65 63 74 69 6f 6e dup(connection
81c0: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 );. }.
81d0: 20 20 20 20 20 20 20 20 20 63 6c 6f 73 65 28 63 close(c
81e0: 6f 6e 6e 65 63 74 69 6f 6e 29 3b 0a 20 20 20 20 onnection);.
81f0: 20 20 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 return;.
8200: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a }. }.
8210: 20 20 20 20 7d 0a 20 20 20 20 2f 2a 20 42 75 72 }. /* Bur
8220: 79 20 64 65 61 64 20 63 68 69 6c 64 72 65 6e 20 y dead children
8230: 2a 2f 0a 20 20 20 20 77 68 69 6c 65 28 20 77 61 */. while( wa
8240: 69 74 70 69 64 28 30 2c 20 30 2c 20 57 4e 4f 48 itpid(0, 0, WNOH
8250: 41 4e 47 29 3e 30 20 29 7b 0a 20 20 20 20 20 20 ANG)>0 ){.
8260: 6e 63 68 69 6c 64 72 65 6e 2d 2d 3b 0a 20 20 20 nchildren--;.
8270: 20 7d 0a 20 20 7d 0a 20 20 2f 2a 20 4e 4f 54 20 }. }. /* NOT
8280: 52 45 41 43 48 45 44 20 2a 2f 20 20 0a 20 20 65 REACHED */ . e
8290: 78 69 74 28 31 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a xit(1);.}../*.**
82a0: 20 4e 61 6d 65 20 6f 66 20 64 61 79 73 20 61 6e Name of days an
82b0: 64 20 6d 6f 6e 74 68 73 2e 0a 2a 2f 0a 73 74 61 d months..*/.sta
82c0: 74 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20 2a tic const char *
82d0: 61 7a 44 61 79 73 5b 5d 20 3d 0a 20 20 20 20 7b azDays[] =. {
82e0: 22 53 75 6e 22 2c 20 22 4d 6f 6e 22 2c 20 22 54 "Sun", "Mon", "T
82f0: 75 65 22 2c 20 22 57 65 64 22 2c 20 22 54 68 75 ue", "Wed", "Thu
8300: 22 2c 20 22 46 72 69 22 2c 20 22 53 61 74 22 2c ", "Fri", "Sat",
8310: 20 30 7d 3b 0a 73 74 61 74 69 63 20 63 6f 6e 73 0};.static cons
8320: 74 20 63 68 61 72 20 2a 61 7a 4d 6f 6e 74 68 73 t char *azMonths
8330: 5b 5d 20 3d 0a 20 20 20 20 7b 22 4a 61 6e 22 2c [] =. {"Jan",
8340: 20 22 46 65 62 22 2c 20 22 4d 61 72 22 2c 20 22 "Feb", "Mar", "
8350: 41 70 72 22 2c 20 22 4d 61 79 22 2c 20 22 4a 75 Apr", "May", "Ju
8360: 6e 22 2c 0a 20 20 20 20 20 22 4a 75 6c 22 2c 20 n",. "Jul",
8370: 22 41 75 67 22 2c 20 22 53 65 70 22 2c 20 22 4f "Aug", "Sep", "O
8380: 63 74 22 2c 20 22 4e 6f 76 22 2c 20 22 44 65 63 ct", "Nov", "Dec
8390: 22 2c 20 30 7d 3b 0a 0a 0a 2f 2a 0a 2a 2a 20 52 ", 0};.../*.** R
83a0: 65 74 75 72 6e 73 20 61 6e 20 52 46 43 38 32 32 eturns an RFC822
83b0: 2d 66 6f 72 6d 61 74 74 65 64 20 74 69 6d 65 20 -formatted time
83c0: 73 74 72 69 6e 67 20 73 75 69 74 61 62 6c 65 20 string suitable
83d0: 66 6f 72 20 48 54 54 50 20 68 65 61 64 65 72 73 for HTTP headers
83e0: 2c 20 61 6d 6f 6e 67 0a 2a 2a 20 6f 74 68 65 72 , among.** other
83f0: 20 74 68 69 6e 67 73 2e 0a 2a 2a 20 52 65 74 75 things..** Retu
8400: 72 6e 65 64 20 74 69 6d 65 7a 6f 6e 65 20 69 73 rned timezone is
8410: 20 61 6c 77 61 79 73 20 47 4d 54 20 61 73 20 72 always GMT as r
8420: 65 71 75 69 72 65 64 20 62 79 20 48 54 54 50 2f equired by HTTP/
8430: 31 2e 31 20 73 70 65 63 69 66 69 63 61 74 69 6f 1.1 specificatio
8440: 6e 2e 0a 2a 2a 0a 2a 2a 20 53 65 65 20 68 74 74 n..**.** See htt
8450: 70 3a 2f 2f 77 77 77 2e 66 61 71 73 2e 6f 72 67 p://www.faqs.org
8460: 2f 72 66 63 73 2f 72 66 63 38 32 32 2e 68 74 6d /rfcs/rfc822.htm
8470: 6c 2c 20 73 65 63 74 69 6f 6e 20 35 0a 2a 2a 20 l, section 5.**
8480: 61 6e 64 20 68 74 74 70 3a 2f 2f 77 77 77 2e 66 and http://www.f
8490: 61 71 73 2e 6f 72 67 2f 72 66 63 73 2f 72 66 63 aqs.org/rfcs/rfc
84a0: 32 36 31 36 2e 68 74 6d 6c 2c 20 73 65 63 74 69 2616.html, secti
84b0: 6f 6e 20 33 2e 33 2e 0a 2a 2f 0a 63 68 61 72 20 on 3.3..*/.char
84c0: 2a 63 67 69 5f 72 66 63 38 32 32 5f 64 61 74 65 *cgi_rfc822_date
84d0: 73 74 61 6d 70 28 74 69 6d 65 5f 74 20 6e 6f 77 stamp(time_t now
84e0: 29 7b 0a 20 20 73 74 72 75 63 74 20 74 6d 20 2a ){. struct tm *
84f0: 70 54 6d 3b 0a 20 20 70 54 6d 20 3d 20 67 6d 74 pTm;. pTm = gmt
8500: 69 6d 65 28 26 6e 6f 77 29 3b 0a 20 20 69 66 28 ime(&now);. if(
8510: 20 70 54 6d 3d 3d 30 20 29 20 72 65 74 75 72 6e pTm==0 ) return
8520: 20 22 22 3b 0a 20 20 72 65 74 75 72 6e 20 6d 70 "";. return mp
8530: 72 69 6e 74 66 28 22 25 73 2c 20 25 64 20 25 73 rintf("%s, %d %s
8540: 20 25 30 32 64 20 25 30 32 64 3a 25 30 32 64 3a %02d %02d:%02d:
8550: 25 30 32 64 20 47 4d 54 22 2c 0a 20 20 20 20 20 %02d GMT",.
8560: 20 20 20 20 20 20 20 20 20 20 20 20 61 7a 44 61 azDa
8570: 79 73 5b 70 54 6d 2d 3e 74 6d 5f 77 64 61 79 5d ys[pTm->tm_wday]
8580: 2c 20 70 54 6d 2d 3e 74 6d 5f 6d 64 61 79 2c 20 , pTm->tm_mday,
8590: 61 7a 4d 6f 6e 74 68 73 5b 70 54 6d 2d 3e 74 6d azMonths[pTm->tm
85a0: 5f 6d 6f 6e 5d 2c 0a 20 20 20 20 20 20 20 20 20 _mon],.
85b0: 20 20 20 20 20 20 20 20 70 54 6d 2d 3e 74 6d 5f pTm->tm_
85c0: 79 65 61 72 2b 31 39 30 30 2c 20 70 54 6d 2d 3e year+1900, pTm->
85d0: 74 6d 5f 68 6f 75 72 2c 20 70 54 6d 2d 3e 74 6d tm_hour, pTm->tm
85e0: 5f 6d 69 6e 2c 20 70 54 6d 2d 3e 74 6d 5f 73 65 _min, pTm->tm_se
85f0: 63 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 61 72 c);.}../*.** Par
8600: 73 65 20 61 6e 20 52 46 43 38 32 32 2d 66 6f 72 se an RFC822-for
8610: 6d 61 74 74 65 64 20 74 69 6d 65 73 74 61 6d 70 matted timestamp
8620: 20 61 73 20 77 65 27 64 20 65 78 70 65 63 74 20 as we'd expect
8630: 66 72 6f 6d 20 48 54 54 50 20 61 6e 64 20 72 65 from HTTP and re
8640: 74 75 72 6e 0a 2a 2a 20 61 20 55 6e 69 78 20 65 turn.** a Unix e
8650: 70 6f 63 68 20 74 69 6d 65 2e 20 3c 3d 20 7a 65 poch time. <= ze
8660: 72 6f 20 69 73 20 72 65 74 75 72 6e 65 64 20 6f ro is returned o
8670: 6e 20 66 61 69 6c 75 72 65 2e 0a 2a 2a 0a 2a 2a n failure..**.**
8680: 20 4e 6f 74 65 20 74 68 61 74 20 74 68 69 73 20 Note that this
8690: 77 6f 6e 27 74 20 68 61 6e 64 6c 65 20 61 6c 6c won't handle all
86a0: 20 74 68 65 20 5f 61 6c 6c 6f 77 65 64 5f 20 48 the _allowed_ H
86b0: 54 54 50 20 66 6f 72 6d 61 74 73 2c 20 6a 75 73 TTP formats, jus
86c0: 74 20 74 68 65 0a 2a 2a 20 6d 6f 73 74 20 70 6f t the.** most po
86d0: 70 75 6c 61 72 20 6f 6e 65 20 28 74 68 65 20 6f pular one (the o
86e0: 6e 65 20 67 65 6e 65 72 61 74 65 64 20 62 79 20 ne generated by
86f0: 63 67 69 5f 72 66 63 38 32 32 5f 64 61 74 65 73 cgi_rfc822_dates
8700: 74 61 6d 70 28 29 2c 20 61 63 74 75 61 6c 6c 79 tamp(), actually
8710: 29 2e 0a 2a 2f 0a 74 69 6d 65 5f 74 20 63 67 69 )..*/.time_t cgi
8720: 5f 72 66 63 38 32 32 5f 70 61 72 73 65 64 61 74 _rfc822_parsedat
8730: 65 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 e(const char *zD
8740: 61 74 65 29 7b 0a 20 20 73 74 72 75 63 74 20 74 ate){. struct t
8750: 6d 20 74 3b 0a 20 20 63 68 61 72 20 7a 49 67 6e m t;. char zIgn
8760: 6f 72 65 5b 31 36 5d 3b 0a 20 20 63 68 61 72 20 ore[16];. char
8770: 7a 4d 6f 6e 74 68 5b 31 36 5d 3b 0a 0a 20 20 6d zMonth[16];.. m
8780: 65 6d 73 65 74 28 26 74 2c 20 30 2c 20 73 69 7a emset(&t, 0, siz
8790: 65 6f 66 28 74 29 29 3b 0a 20 20 69 66 28 20 37 eof(t));. if( 7
87a0: 3d 3d 73 73 63 61 6e 66 28 7a 44 61 74 65 2c 20 ==sscanf(zDate,
87b0: 22 25 31 32 5b 41 2d 5a 61 2d 7a 2c 5d 20 25 64 "%12[A-Za-z,] %d
87c0: 20 25 31 32 5b 41 2d 5a 61 2d 7a 5d 20 25 64 20 %12[A-Za-z] %d
87d0: 25 64 3a 25 64 3a 25 64 22 2c 20 7a 49 67 6e 6f %d:%d:%d", zIgno
87e0: 72 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 re,.
87f0: 20 20 20 20 20 20 20 20 20 20 20 26 74 2e 74 6d &t.tm
8800: 5f 6d 64 61 79 2c 20 7a 4d 6f 6e 74 68 2c 20 26 _mday, zMonth, &
8810: 74 2e 74 6d 5f 79 65 61 72 2c 20 26 74 2e 74 6d t.tm_year, &t.tm
8820: 5f 68 6f 75 72 2c 20 26 74 2e 74 6d 5f 6d 69 6e _hour, &t.tm_min
8830: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
8840: 20 20 20 20 20 20 20 20 20 26 74 2e 74 6d 5f 73 &t.tm_s
8850: 65 63 29 29 7b 0a 0a 20 20 20 20 69 66 28 20 74 ec)){.. if( t
8860: 2e 74 6d 5f 79 65 61 72 20 3e 20 31 39 30 30 20 .tm_year > 1900
8870: 29 20 74 2e 74 6d 5f 79 65 61 72 20 2d 3d 20 31 ) t.tm_year -= 1
8880: 39 30 30 3b 0a 20 20 20 20 66 6f 72 28 74 2e 74 900;. for(t.t
8890: 6d 5f 6d 6f 6e 3d 30 3b 20 61 7a 4d 6f 6e 74 68 m_mon=0; azMonth
88a0: 73 5b 74 2e 74 6d 5f 6d 6f 6e 5d 3b 20 74 2e 74 s[t.tm_mon]; t.t
88b0: 6d 5f 6d 6f 6e 2b 2b 29 7b 0a 20 20 20 20 20 20 m_mon++){.
88c0: 69 66 28 20 21 73 74 72 6e 63 61 73 65 63 6d 70 if( !strncasecmp
88d0: 28 20 61 7a 4d 6f 6e 74 68 73 5b 74 2e 74 6d 5f ( azMonths[t.tm_
88e0: 6d 6f 6e 5d 2c 20 7a 4d 6f 6e 74 68 2c 20 33 20 mon], zMonth, 3
88f0: 29 29 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75 )){. retu
8900: 72 6e 20 6d 6b 67 6d 74 69 6d 65 28 26 74 29 3b rn mkgmtime(&t);
8910: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 . }. }.
8920: 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a }.. return 0;.
8930: 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6e 76 65 72 74 }../*.** Convert
8940: 20 61 20 73 74 72 75 63 74 20 74 6d 2a 20 74 68 a struct tm* th
8950: 61 74 20 72 65 70 72 65 73 65 6e 74 73 20 61 20 at represents a
8960: 6d 6f 6d 65 6e 74 20 69 6e 20 55 54 43 20 69 6e moment in UTC in
8970: 74 6f 20 74 68 65 20 6e 75 6d 62 65 72 0a 2a 2a to the number.**
8980: 20 6f 66 20 73 65 63 6f 6e 64 73 20 69 6e 20 31 of seconds in 1
8990: 39 37 30 2c 20 55 54 43 2e 0a 2a 2f 0a 74 69 6d 970, UTC..*/.tim
89a0: 65 5f 74 20 6d 6b 67 6d 74 69 6d 65 28 73 74 72 e_t mkgmtime(str
89b0: 75 63 74 20 74 6d 20 2a 70 29 7b 0a 20 20 74 69 uct tm *p){. ti
89c0: 6d 65 5f 74 20 74 3b 0a 20 20 69 6e 74 20 6e 44 me_t t;. int nD
89d0: 61 79 3b 0a 20 20 69 6e 74 20 69 73 4c 65 61 70 ay;. int isLeap
89e0: 59 72 3b 0a 20 20 2f 2a 20 44 61 79 73 20 69 6e Yr;. /* Days in
89f0: 20 65 61 63 68 20 6d 6f 6e 74 68 3a 20 20 20 20 each month:
8a00: 20 20 20 33 31 2c 20 32 38 2c 20 33 31 2c 20 33 31, 28, 31, 3
8a10: 30 2c 20 33 31 2c 20 33 30 2c 20 33 31 2c 20 33 0, 31, 30, 31, 3
8a20: 31 2c 20 33 30 2c 20 33 31 2c 20 33 30 2c 20 33 1, 30, 31, 30, 3
8a30: 31 20 2a 2f 0a 20 20 73 74 61 74 69 63 20 69 6e 1 */. static in
8a40: 74 20 70 72 69 6f 72 44 61 79 73 5b 5d 20 20 20 t priorDays[]
8a50: 3d 20 7b 20 20 30 2c 20 33 31 2c 20 35 39 2c 20 = { 0, 31, 59,
8a60: 39 30 2c 31 32 30 2c 31 35 31 2c 31 38 31 2c 32 90,120,151,181,2
8a70: 31 32 2c 32 34 33 2c 32 37 33 2c 33 30 34 2c 33 12,243,273,304,3
8a80: 33 34 20 7d 3b 0a 20 20 69 66 28 20 70 2d 3e 74 34 };. if( p->t
8a90: 6d 5f 6d 6f 6e 3c 30 20 29 7b 0a 20 20 20 20 69 m_mon<0 ){. i
8aa0: 6e 74 20 6e 59 65 61 72 20 3d 20 28 31 31 20 2d nt nYear = (11 -
8ab0: 20 70 2d 3e 74 6d 5f 6d 6f 6e 29 2f 31 32 3b 0a p->tm_mon)/12;.
8ac0: 20 20 20 20 70 2d 3e 74 6d 5f 79 65 61 72 20 2d p->tm_year -
8ad0: 3d 20 6e 59 65 61 72 3b 0a 20 20 20 20 70 2d 3e = nYear;. p->
8ae0: 74 6d 5f 6d 6f 6e 20 2b 3d 20 6e 59 65 61 72 2a tm_mon += nYear*
8af0: 31 32 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 12;. }else if(
8b00: 70 2d 3e 74 6d 5f 6d 6f 6e 3e 31 31 20 29 7b 0a p->tm_mon>11 ){.
8b10: 20 20 20 20 70 2d 3e 74 6d 5f 79 65 61 72 20 2b p->tm_year +
8b20: 3d 20 70 2d 3e 74 6d 5f 6d 6f 6e 2f 31 32 3b 0a = p->tm_mon/12;.
8b30: 20 20 20 20 70 2d 3e 74 6d 5f 6d 6f 6e 20 25 3d p->tm_mon %=
8b40: 20 31 32 3b 0a 20 20 7d 0a 20 20 69 73 4c 65 61 12;. }. isLea
8b50: 70 59 72 20 3d 20 70 2d 3e 74 6d 5f 79 65 61 72 pYr = p->tm_year
8b60: 25 34 3d 3d 30 20 26 26 20 28 70 2d 3e 74 6d 5f %4==0 && (p->tm_
8b70: 79 65 61 72 25 31 30 30 21 3d 30 20 7c 7c 20 28 year%100!=0 || (
8b80: 70 2d 3e 74 6d 5f 79 65 61 72 2b 33 30 30 29 25 p->tm_year+300)%
8b90: 34 30 30 3d 3d 30 29 3b 0a 20 20 70 2d 3e 74 6d 400==0);. p->tm
8ba0: 5f 79 64 61 79 20 3d 20 70 72 69 6f 72 44 61 79 _yday = priorDay
8bb0: 73 5b 70 2d 3e 74 6d 5f 6d 6f 6e 5d 20 2b 20 70 s[p->tm_mon] + p
8bc0: 2d 3e 74 6d 5f 6d 64 61 79 20 2d 20 31 3b 0a 20 ->tm_mday - 1;.
8bd0: 20 69 66 28 20 69 73 4c 65 61 70 59 72 20 26 26 if( isLeapYr &&
8be0: 20 70 2d 3e 74 6d 5f 6d 6f 6e 3e 31 20 29 20 70 p->tm_mon>1 ) p
8bf0: 2d 3e 74 6d 5f 79 64 61 79 2b 2b 3b 0a 20 20 6e ->tm_yday++;. n
8c00: 44 61 79 20 3d 20 28 70 2d 3e 74 6d 5f 79 65 61 Day = (p->tm_yea
8c10: 72 2d 37 30 29 2a 33 36 35 20 2b 20 28 70 2d 3e r-70)*365 + (p->
8c20: 74 6d 5f 79 65 61 72 2d 36 39 29 2f 34 20 2d 70 tm_year-69)/4 -p
8c30: 2d 3e 74 6d 5f 79 65 61 72 2f 31 30 30 20 2b 20 ->tm_year/100 +
8c40: 0a 20 20 20 20 20 20 20 20 20 28 70 2d 3e 74 6d . (p->tm
8c50: 5f 79 65 61 72 2b 33 30 30 29 2f 34 30 30 20 2b _year+300)/400 +
8c60: 20 70 2d 3e 74 6d 5f 79 64 61 79 3b 0a 20 20 74 p->tm_yday;. t
8c70: 20 3d 20 28 28 6e 44 61 79 2a 32 34 20 2b 20 70 = ((nDay*24 + p
8c80: 2d 3e 74 6d 5f 68 6f 75 72 29 2a 36 30 20 2b 20 ->tm_hour)*60 +
8c90: 70 2d 3e 74 6d 5f 6d 69 6e 29 2a 36 30 20 2b 20 p->tm_min)*60 +
8ca0: 70 2d 3e 74 6d 5f 73 65 63 3b 0a 20 20 72 65 74 p->tm_sec;. ret
8cb0: 75 72 6e 20 74 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 urn t;.}../*.**
8cc0: 43 68 65 63 6b 20 74 68 65 20 6f 62 6a 65 63 74 Check the object
8cd0: 54 69 6d 65 20 61 67 61 69 6e 73 74 20 74 68 65 Time against the
8ce0: 20 49 66 2d 4d 6f 64 69 66 69 65 64 2d 53 69 6e If-Modified-Sin
8cf0: 63 65 20 72 65 71 75 65 73 74 20 68 65 61 64 65 ce request heade
8d00: 72 2e 20 49 66 20 74 68 65 0a 2a 2a 20 6f 62 6a r. If the.** obj
8d10: 65 63 74 20 74 69 6d 65 20 69 73 6e 27 74 20 61 ect time isn't a
8d20: 6e 79 20 6e 65 77 65 72 20 74 68 61 6e 20 74 68 ny newer than th
8d30: 65 20 68 65 61 64 65 72 2c 20 77 65 20 69 6d 6d e header, we imm
8d40: 65 64 69 61 74 65 6c 79 20 73 65 6e 64 20 62 61 ediately send ba
8d50: 63 6b 0a 2a 2a 20 61 20 33 30 34 20 72 65 70 6c ck.** a 304 repl
8d60: 79 20 61 6e 64 20 65 78 69 74 2e 0a 2a 2f 0a 76 y and exit..*/.v
8d70: 6f 69 64 20 63 67 69 5f 6d 6f 64 69 66 69 65 64 oid cgi_modified
8d80: 5f 73 69 6e 63 65 28 74 69 6d 65 5f 74 20 6f 62 _since(time_t ob
8d90: 6a 65 63 74 54 69 6d 65 29 7b 0a 20 20 63 6f 6e jectTime){. con
8da0: 73 74 20 63 68 61 72 20 2a 7a 49 66 20 3d 20 50 st char *zIf = P
8db0: 28 22 48 54 54 50 5f 49 46 5f 4d 4f 44 49 46 49 ("HTTP_IF_MODIFI
8dc0: 45 44 5f 53 49 4e 43 45 22 29 3b 0a 20 20 69 66 ED_SINCE");. if
8dd0: 28 20 7a 49 66 3d 3d 30 20 29 20 72 65 74 75 72 ( zIf==0 ) retur
8de0: 6e 3b 0a 20 20 69 66 28 20 6f 62 6a 65 63 74 54 n;. if( objectT
8df0: 69 6d 65 20 3e 20 63 67 69 5f 72 66 63 38 32 32 ime > cgi_rfc822
8e00: 5f 70 61 72 73 65 64 61 74 65 28 7a 49 66 29 20 _parsedate(zIf)
8e10: 29 20 72 65 74 75 72 6e 3b 0a 20 20 63 67 69 5f ) return;. cgi_
8e20: 73 65 74 5f 73 74 61 74 75 73 28 33 30 34 2c 22 set_status(304,"
8e30: 4e 6f 74 20 4d 6f 64 69 66 69 65 64 22 29 3b 0a Not Modified");.
8e40: 20 20 63 67 69 5f 72 65 73 65 74 5f 63 6f 6e 74 cgi_reset_cont
8e50: 65 6e 74 28 29 3b 0a 20 20 63 67 69 5f 72 65 70 ent();. cgi_rep
8e60: 6c 79 28 29 3b 0a 20 20 65 78 69 74 28 30 29 3b ly();. exit(0);
8e70: 0a 7d 0a .}.