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