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 7a 4c 6f 63 61 74 69 ' ){. zLocati
2250: 6f 6e 20 3d 20 6d 70 72 69 6e 74 66 28 22 4c 6f on = mprintf("Lo
2260: 63 61 74 69 6f 6e 3a 20 25 73 5c 72 5c 6e 22 2c cation: %s\r\n",
2270: 20 7a 55 52 4c 29 3b 0a 20 20 7d 65 6c 73 65 7b zURL);. }else{
2280: 0a 20 20 20 20 7a 4c 6f 63 61 74 69 6f 6e 20 3d . zLocation =
2290: 20 6d 70 72 69 6e 74 66 28 22 4c 6f 63 61 74 69 mprintf("Locati
22a0: 6f 6e 3a 20 25 73 2f 25 73 5c 72 5c 6e 22 2c 20 on: %s/%s\r\n",
22b0: 67 2e 7a 42 61 73 65 55 52 4c 2c 20 7a 55 52 4c g.zBaseURL, zURL
22c0: 29 3b 0a 20 20 7d 0a 20 20 63 67 69 5f 61 70 70 );. }. cgi_app
22d0: 65 6e 64 5f 68 65 61 64 65 72 28 7a 4c 6f 63 61 end_header(zLoca
22e0: 74 69 6f 6e 29 3b 0a 20 20 63 67 69 5f 72 65 73 tion);. cgi_res
22f0: 65 74 5f 63 6f 6e 74 65 6e 74 28 29 3b 0a 20 20 et_content();.
2300: 63 67 69 5f 70 72 69 6e 74 66 28 22 3c 68 74 6d cgi_printf("<htm
2310: 6c 3e 5c 6e 3c 70 3e 52 65 64 69 72 65 63 74 20 l>\n<p>Redirect
2320: 74 6f 20 25 68 3c 2f 70 3e 5c 6e 3c 2f 68 74 6d to %h</p>\n</htm
2330: 6c 3e 5c 6e 22 2c 20 7a 55 52 4c 29 3b 0a 20 20 l>\n", zURL);.
2340: 63 67 69 5f 73 65 74 5f 73 74 61 74 75 73 28 33 cgi_set_status(3
2350: 30 32 2c 20 22 4d 6f 76 65 64 20 54 65 6d 70 6f 02, "Moved Tempo
2360: 72 61 72 69 6c 79 22 29 3b 0a 20 20 66 72 65 65 rarily");. free
2370: 28 7a 4c 6f 63 61 74 69 6f 6e 29 3b 0a 20 20 63 (zLocation);. c
2380: 67 69 5f 72 65 70 6c 79 28 29 3b 0a 20 20 65 78 gi_reply();. ex
2390: 69 74 28 30 29 3b 0a 7d 0a 76 6f 69 64 20 63 67 it(0);.}.void cg
23a0: 69 5f 72 65 64 69 72 65 63 74 66 28 63 6f 6e 73 i_redirectf(cons
23b0: 74 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74 2c t char *zFormat,
23c0: 20 2e 2e 2e 29 7b 0a 20 20 76 61 5f 6c 69 73 74 ...){. va_list
23d0: 20 61 70 3b 0a 20 20 76 61 5f 73 74 61 72 74 28 ap;. va_start(
23e0: 61 70 2c 20 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 ap, zFormat);.
23f0: 63 67 69 5f 72 65 64 69 72 65 63 74 28 76 6d 70 cgi_redirect(vmp
2400: 72 69 6e 74 66 28 7a 46 6f 72 6d 61 74 2c 20 61 rintf(zFormat, a
2410: 70 29 29 3b 0a 20 20 76 61 5f 65 6e 64 28 61 70 p));. va_end(ap
2420: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6e 66 6f );.}../*.** Info
2430: 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 61 6c rmation about al
2440: 6c 20 71 75 65 72 79 20 70 61 72 61 6d 65 74 65 l query paramete
2450: 72 73 20 61 6e 64 20 63 6f 6f 6b 69 65 73 20 61 rs and cookies a
2460: 72 65 20 73 74 6f 72 65 64 0a 2a 2a 20 69 6e 20 re stored.** in
2470: 74 68 65 73 65 20 76 61 72 69 61 62 6c 65 73 2e these variables.
2480: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 6e .*/.static int n
2490: 41 6c 6c 6f 63 51 50 20 3d 20 30 3b 20 2f 2a 20 AllocQP = 0; /*
24a0: 53 70 61 63 65 20 61 6c 6c 6f 63 61 74 65 64 20 Space allocated
24b0: 66 6f 72 20 61 50 61 72 61 6d 51 50 5b 5d 20 2a for aParamQP[] *
24c0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 6e 55 73 /.static int nUs
24d0: 65 64 51 50 20 3d 20 30 3b 20 20 2f 2a 20 53 70 edQP = 0; /* Sp
24e0: 61 63 65 20 61 63 74 75 61 6c 6c 79 20 75 73 65 ace actually use
24f0: 64 20 69 6e 20 61 50 61 72 61 6d 51 50 5b 5d 20 d in aParamQP[]
2500: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 6f */.static int so
2510: 72 74 51 50 20 3d 20 30 3b 20 20 20 2f 2a 20 54 rtQP = 0; /* T
2520: 72 75 65 20 69 66 20 61 50 61 72 61 6d 51 50 5b rue if aParamQP[
2530: 5d 20 6e 65 65 64 73 20 73 6f 72 74 69 6e 67 20 ] needs sorting
2540: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 65 */.static int se
2550: 71 51 50 20 3d 20 30 3b 20 20 20 20 2f 2a 20 53 qQP = 0; /* S
2560: 65 71 75 65 6e 63 65 20 6e 75 6d 62 65 72 73 20 equence numbers
2570: 2a 2f 0a 73 74 61 74 69 63 20 73 74 72 75 63 74 */.static struct
2580: 20 51 50 61 72 61 6d 20 7b 20 20 20 2f 2a 20 4f QParam { /* O
2590: 6e 65 20 65 6e 74 72 79 20 66 6f 72 20 65 61 63 ne entry for eac
25a0: 68 20 71 75 65 72 79 20 70 61 72 61 6d 65 74 65 h query paramete
25b0: 72 20 6f 72 20 63 6f 6f 6b 69 65 20 2a 2f 0a 20 r or cookie */.
25c0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 const char *zNa
25d0: 6d 65 3b 20 20 20 20 20 20 20 20 2f 2a 20 50 61 me; /* Pa
25e0: 72 61 6d 65 74 65 72 20 6f 72 20 63 6f 6f 6b 69 rameter or cooki
25f0: 65 20 6e 61 6d 65 20 2a 2f 0a 20 20 63 6f 6e 73 e name */. cons
2600: 74 20 63 68 61 72 20 2a 7a 56 61 6c 75 65 3b 20 t char *zValue;
2610: 20 20 20 20 20 20 2f 2a 20 56 61 6c 75 65 20 6f /* Value o
2620: 66 20 74 68 65 20 71 75 65 72 79 20 70 61 72 61 f the query para
2630: 6d 65 74 65 72 20 6f 72 20 63 6f 6f 6b 69 65 20 meter or cookie
2640: 2a 2f 0a 20 20 69 6e 74 20 73 65 71 3b 20 20 20 */. int seq;
2650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f /
2660: 2a 20 4f 72 64 65 72 20 6f 66 20 69 6e 73 65 72 * Order of inser
2670: 74 69 6f 6e 20 2a 2f 0a 7d 20 2a 61 50 61 72 61 tion */.} *aPara
2680: 6d 51 50 3b 20 20 20 20 20 20 20 20 20 20 20 20 mQP;
2690: 20 2f 2a 20 41 6e 20 61 72 72 61 79 20 6f 66 20 /* An array of
26a0: 61 6c 6c 20 70 61 72 61 6d 65 74 65 72 73 20 61 all parameters a
26b0: 6e 64 20 63 6f 6f 6b 69 65 73 20 2a 2f 0a 0a 2f nd cookies */../
26c0: 2a 0a 2a 2a 20 41 64 64 20 61 6e 6f 74 68 65 72 *.** Add another
26d0: 20 71 75 65 72 79 20 70 61 72 61 6d 65 74 65 72 query parameter
26e0: 20 6f 72 20 63 6f 6f 6b 69 65 20 74 6f 20 74 68 or cookie to th
26f0: 65 20 70 61 72 61 6d 65 74 65 72 20 73 65 74 2e e parameter set.
2700: 0a 2a 2a 20 7a 4e 61 6d 65 20 69 73 20 74 68 65 .** zName is the
2710: 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 71 75 65 name of the que
2720: 72 79 20 70 61 72 61 6d 65 74 65 72 20 6f 72 20 ry parameter or
2730: 63 6f 6f 6b 69 65 20 61 6e 64 20 7a 56 61 6c 75 cookie and zValu
2740: 65 0a 2a 2a 20 69 73 20 69 74 73 20 66 75 6c 6c e.** is its full
2750: 79 20 64 65 63 6f 64 65 64 20 76 61 6c 75 65 2e y decoded value.
2760: 0a 2a 2a 0a 2a 2a 20 7a 4e 61 6d 65 20 61 6e 64 .**.** zName and
2770: 20 7a 56 61 6c 75 65 20 61 72 65 20 6e 6f 74 20 zValue are not
2780: 63 6f 70 69 65 64 20 61 6e 64 20 6d 75 73 74 20 copied and must
2790: 6e 6f 74 20 63 68 61 6e 67 65 20 6f 72 20 62 65 not change or be
27a0: 0a 2a 2a 20 64 65 61 6c 6c 6f 63 61 74 65 64 20 .** deallocated
27b0: 61 66 74 65 72 20 74 68 69 73 20 72 6f 75 74 69 after this routi
27c0: 6e 65 20 72 65 74 75 72 6e 73 2e 0a 2a 2f 0a 76 ne returns..*/.v
27d0: 6f 69 64 20 63 67 69 5f 73 65 74 5f 70 61 72 61 oid cgi_set_para
27e0: 6d 65 74 65 72 5f 6e 6f 63 6f 70 79 28 63 6f 6e meter_nocopy(con
27f0: 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 st char *zName,
2800: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 56 61 6c const char *zVal
2810: 75 65 29 7b 0a 20 20 69 66 28 20 6e 41 6c 6c 6f ue){. if( nAllo
2820: 63 51 50 3c 3d 6e 55 73 65 64 51 50 20 29 7b 0a cQP<=nUsedQP ){.
2830: 20 20 20 20 6e 41 6c 6c 6f 63 51 50 20 3d 20 6e nAllocQP = n
2840: 41 6c 6c 6f 63 51 50 2a 32 20 2b 20 31 30 3b 0a AllocQP*2 + 10;.
2850: 20 20 20 20 61 50 61 72 61 6d 51 50 20 3d 20 72 aParamQP = r
2860: 65 61 6c 6c 6f 63 28 20 61 50 61 72 61 6d 51 50 ealloc( aParamQP
2870: 2c 20 6e 41 6c 6c 6f 63 51 50 2a 73 69 7a 65 6f , nAllocQP*sizeo
2880: 66 28 61 50 61 72 61 6d 51 50 5b 30 5d 29 20 29 f(aParamQP[0]) )
2890: 3b 0a 20 20 20 20 69 66 28 20 61 50 61 72 61 6d ;. if( aParam
28a0: 51 50 3d 3d 30 20 29 20 65 78 69 74 28 31 29 3b QP==0 ) exit(1);
28b0: 0a 20 20 7d 0a 20 20 61 50 61 72 61 6d 51 50 5b . }. aParamQP[
28c0: 6e 55 73 65 64 51 50 5d 2e 7a 4e 61 6d 65 20 3d nUsedQP].zName =
28d0: 20 7a 4e 61 6d 65 3b 0a 20 20 61 50 61 72 61 6d zName;. aParam
28e0: 51 50 5b 6e 55 73 65 64 51 50 5d 2e 7a 56 61 6c QP[nUsedQP].zVal
28f0: 75 65 20 3d 20 7a 56 61 6c 75 65 3b 0a 20 20 61 ue = zValue;. a
2900: 50 61 72 61 6d 51 50 5b 6e 55 73 65 64 51 50 5d ParamQP[nUsedQP]
2910: 2e 73 65 71 20 3d 20 73 65 71 51 50 2b 2b 3b 0a .seq = seqQP++;.
2920: 20 20 6e 55 73 65 64 51 50 2b 2b 3b 0a 20 20 73 nUsedQP++;. s
2930: 6f 72 74 51 50 20 3d 20 31 3b 0a 7d 0a 0a 2f 2a ortQP = 1;.}../*
2940: 0a 2a 2a 20 41 64 64 20 61 6e 6f 74 68 65 72 20 .** Add another
2950: 71 75 65 72 79 20 70 61 72 61 6d 65 74 65 72 20 query parameter
2960: 6f 72 20 63 6f 6f 6b 69 65 20 74 6f 20 74 68 65 or cookie to the
2970: 20 70 61 72 61 6d 65 74 65 72 20 73 65 74 2e 0a parameter set..
2980: 2a 2a 20 7a 4e 61 6d 65 20 69 73 20 74 68 65 20 ** zName is the
2990: 6e 61 6d 65 20 6f 66 20 74 68 65 20 71 75 65 72 name of the quer
29a0: 79 20 70 61 72 61 6d 65 74 65 72 20 6f 72 20 63 y parameter or c
29b0: 6f 6f 6b 69 65 20 61 6e 64 20 7a 56 61 6c 75 65 ookie and zValue
29c0: 0a 2a 2a 20 69 73 20 69 74 73 20 66 75 6c 6c 79 .** is its fully
29d0: 20 64 65 63 6f 64 65 64 20 76 61 6c 75 65 2e 0a decoded value..
29e0: 2a 2a 0a 2a 2a 20 43 6f 70 69 65 73 20 61 72 65 **.** Copies are
29f0: 20 6d 61 64 65 20 6f 66 20 62 6f 74 68 20 74 68 made of both th
2a00: 65 20 7a 4e 61 6d 65 20 61 6e 64 20 7a 56 61 6c e zName and zVal
2a10: 75 65 20 70 61 72 61 6d 65 74 65 72 73 2e 0a 2a ue parameters..*
2a20: 2f 0a 76 6f 69 64 20 63 67 69 5f 73 65 74 5f 70 /.void cgi_set_p
2a30: 61 72 61 6d 65 74 65 72 28 63 6f 6e 73 74 20 63 arameter(const c
2a40: 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 63 6f 6e 73 har *zName, cons
2a50: 74 20 63 68 61 72 20 2a 7a 56 61 6c 75 65 29 7b t char *zValue){
2a60: 0a 20 20 63 67 69 5f 73 65 74 5f 70 61 72 61 6d . cgi_set_param
2a70: 65 74 65 72 5f 6e 6f 63 6f 70 79 28 6d 70 72 69 eter_nocopy(mpri
2a80: 6e 74 66 28 22 25 73 22 2c 7a 4e 61 6d 65 29 2c ntf("%s",zName),
2a90: 20 6d 70 72 69 6e 74 66 28 22 25 73 22 2c 7a 56 mprintf("%s",zV
2aa0: 61 6c 75 65 29 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a alue));.}../*.**
2ab0: 20 41 64 64 20 61 20 71 75 65 72 79 20 70 61 72 Add a query par
2ac0: 61 6d 65 74 65 72 2e 20 20 54 68 65 20 7a 4e 61 ameter. The zNa
2ad0: 6d 65 20 70 6f 72 74 69 6f 6e 20 69 73 20 66 69 me portion is fi
2ae0: 78 65 64 20 62 75 74 20 61 20 63 6f 70 79 0a 2a xed but a copy.*
2af0: 2a 20 6d 75 73 74 20 62 65 20 6d 61 64 65 20 6f * must be made o
2b00: 66 20 7a 56 61 6c 75 65 2e 0a 2a 2f 0a 76 6f 69 f zValue..*/.voi
2b10: 64 20 63 67 69 5f 73 65 74 65 6e 76 28 63 6f 6e d cgi_setenv(con
2b20: 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 st char *zName,
2b30: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 56 61 6c const char *zVal
2b40: 75 65 29 7b 0a 20 20 63 67 69 5f 73 65 74 5f 70 ue){. cgi_set_p
2b50: 61 72 61 6d 65 74 65 72 5f 6e 6f 63 6f 70 79 28 arameter_nocopy(
2b60: 7a 4e 61 6d 65 2c 20 6d 70 72 69 6e 74 66 28 22 zName, mprintf("
2b70: 25 73 22 2c 7a 56 61 6c 75 65 29 29 3b 0a 7d 0a %s",zValue));.}.
2b80: 20 0a 0a 2f 2a 0a 2a 2a 20 41 64 64 20 61 20 6c ../*.** Add a l
2b90: 69 73 74 20 6f 66 20 71 75 65 72 79 20 70 61 72 ist of query par
2ba0: 61 6d 65 74 65 72 73 20 6f 72 20 63 6f 6f 6b 69 ameters or cooki
2bb0: 65 73 20 74 6f 20 74 68 65 20 70 61 72 61 6d 65 es to the parame
2bc0: 74 65 72 20 73 65 74 2e 0a 2a 2a 0a 2a 2a 20 45 ter set..**.** E
2bd0: 61 63 68 20 70 61 72 61 6d 65 74 65 72 20 69 73 ach parameter is
2be0: 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 4e 41 4d of the form NAM
2bf0: 45 3d 56 41 4c 55 45 2e 20 20 42 6f 74 68 20 74 E=VALUE. Both t
2c00: 68 65 20 4e 41 4d 45 20 61 6e 64 20 74 68 65 0a he NAME and the.
2c10: 2a 2a 20 56 41 4c 55 45 20 6d 61 79 20 62 65 20 ** VALUE may be
2c20: 75 72 6c 2d 65 6e 63 6f 64 65 64 20 28 22 2b 22 url-encoded ("+"
2c30: 20 66 6f 72 20 73 70 61 63 65 2c 20 22 25 48 48 for space, "%HH
2c40: 22 20 66 6f 72 20 6f 74 68 65 72 20 73 70 65 63 " for other spec
2c50: 69 61 6c 0a 2a 2a 20 63 68 61 72 61 63 74 65 72 ial.** character
2c60: 73 29 2e 20 20 42 75 74 20 74 68 69 73 20 72 6f s). But this ro
2c70: 75 74 69 6e 65 20 61 73 73 75 6d 65 73 20 74 68 utine assumes th
2c80: 61 74 20 4e 41 4d 45 20 63 6f 6e 74 61 69 6e 73 at NAME contains
2c90: 20 6e 6f 0a 2a 2a 20 73 70 65 63 69 61 6c 20 63 no.** special c
2ca0: 68 61 72 61 63 74 65 72 20 61 6e 64 20 74 68 65 haracter and the
2cb0: 72 65 66 6f 72 65 20 64 6f 65 73 20 6e 6f 74 20 refore does not
2cc0: 64 65 63 6f 64 65 20 69 74 2e 0a 2a 2a 0a 2a 2a decode it..**.**
2cd0: 20 49 66 20 4e 41 4d 45 20 62 65 67 69 6e 73 20 If NAME begins
2ce0: 77 69 74 68 20 61 6e 6f 74 68 65 72 20 6f 74 68 with another oth
2cf0: 65 72 20 74 68 61 6e 20 61 20 6c 6f 77 65 72 2d er than a lower-
2d00: 63 61 73 65 20 6c 65 74 74 65 72 20 74 68 65 6e case letter then
2d10: 0a 2a 2a 20 74 68 65 20 65 6e 74 69 72 65 20 4e .** the entire N
2d20: 41 4d 45 3d 56 41 4c 55 45 20 74 65 72 6d 20 69 AME=VALUE term i
2d30: 73 20 69 67 6e 6f 72 65 64 2e 20 20 48 65 6e 63 s ignored. Henc
2d40: 65 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 2a 20 e:.**.** *
2d50: 20 63 6f 6f 6b 69 65 73 20 61 6e 64 20 71 75 65 cookies and que
2d60: 72 79 20 70 61 72 61 6d 65 74 65 72 73 20 74 68 ry parameters th
2d70: 61 74 20 68 61 76 65 20 75 70 70 65 72 63 61 73 at have uppercas
2d80: 65 20 6e 61 6d 65 73 0a 2a 2a 20 20 20 20 20 20 e names.**
2d90: 20 20 20 61 72 65 20 69 67 6e 6f 72 65 64 2e 0a are ignored..
2da0: 2a 2a 0a 2a 2a 20 20 20 20 20 20 2a 20 20 69 74 **.** * it
2db0: 20 69 73 20 69 6d 70 6f 73 73 69 62 6c 65 20 66 is impossible f
2dc0: 6f 72 20 61 20 63 6f 6f 6b 69 65 20 6f 72 20 71 or a cookie or q
2dd0: 75 65 72 79 20 70 61 72 61 6d 65 74 65 72 20 74 uery parameter t
2de0: 6f 0a 2a 2a 20 20 20 20 20 20 20 20 20 6f 76 65 o.** ove
2df0: 72 72 69 64 65 20 74 68 65 20 76 61 6c 75 65 20 rride the value
2e00: 6f 66 20 61 6e 20 65 6e 76 69 72 6f 6e 6d 65 6e of an environmen
2e10: 74 20 76 61 72 69 61 62 6c 65 20 73 69 6e 63 65 t variable since
2e20: 0a 2a 2a 20 20 20 20 20 20 20 20 20 65 6e 76 69 .** envi
2e30: 72 6f 6e 6d 65 6e 74 20 76 61 72 69 61 62 6c 65 ronment variable
2e40: 73 20 61 6c 77 61 79 73 20 68 61 76 65 20 75 70 s always have up
2e50: 70 65 72 63 61 73 65 20 6e 61 6d 65 73 2e 0a 2a percase names..*
2e60: 2a 0a 2a 2a 20 50 61 72 61 6d 65 74 65 72 73 20 *.** Parameters
2e70: 61 72 65 20 73 65 70 61 72 61 74 65 64 20 62 79 are separated by
2e80: 20 74 68 65 20 22 74 65 72 6d 69 6e 61 74 6f 72 the "terminator
2e90: 22 20 63 68 61 72 61 63 74 65 72 2e 20 20 57 68 " character. Wh
2ea0: 69 74 65 73 70 61 63 65 0a 2a 2a 20 62 65 66 6f itespace.** befo
2eb0: 72 65 20 74 68 65 20 4e 41 4d 45 20 69 73 20 69 re the NAME is i
2ec0: 67 6e 6f 72 65 64 2e 0a 2a 2a 0a 2a 2a 20 54 68 gnored..**.** Th
2ed0: 65 20 69 6e 70 75 74 20 73 74 72 69 6e 67 20 22 e input string "
2ee0: 7a 22 20 69 73 20 6d 6f 64 69 66 69 65 64 20 62 z" is modified b
2ef0: 75 74 20 6e 6f 20 63 6f 70 69 65 73 20 69 73 20 ut no copies is
2f00: 6d 61 64 65 2e 20 20 22 7a 22 0a 2a 2a 20 73 68 made. "z".** sh
2f10: 6f 75 6c 64 20 6e 6f 74 20 62 65 20 64 65 61 6c ould not be deal
2f20: 6c 6f 63 61 74 65 64 20 6f 72 20 63 68 61 6e 67 located or chang
2f30: 65 64 20 61 67 61 69 6e 20 61 66 74 65 72 20 74 ed again after t
2f40: 68 69 73 20 72 6f 75 74 69 6e 65 0a 2a 2a 20 72 his routine.** r
2f50: 65 74 75 72 6e 73 20 6f 72 20 69 74 20 77 69 6c eturns or it wil
2f60: 6c 20 63 6f 72 72 75 70 74 20 74 68 65 20 70 61 l corrupt the pa
2f70: 72 61 6d 65 74 65 72 20 74 61 62 6c 65 2e 0a 2a rameter table..*
2f80: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 61 64 /.static void ad
2f90: 64 5f 70 61 72 61 6d 5f 6c 69 73 74 28 63 68 61 d_param_list(cha
2fa0: 72 20 2a 7a 2c 20 69 6e 74 20 74 65 72 6d 69 6e r *z, int termin
2fb0: 61 74 6f 72 29 7b 0a 20 20 77 68 69 6c 65 28 20 ator){. while(
2fc0: 2a 7a 20 29 7b 0a 20 20 20 20 63 68 61 72 20 2a *z ){. char *
2fd0: 7a 4e 61 6d 65 3b 0a 20 20 20 20 63 68 61 72 20 zName;. char
2fe0: 2a 7a 56 61 6c 75 65 3b 0a 20 20 20 20 77 68 69 *zValue;. whi
2ff0: 6c 65 28 20 69 73 73 70 61 63 65 28 2a 7a 29 20 le( isspace(*z)
3000: 29 7b 20 7a 2b 2b 3b 20 7d 0a 20 20 20 20 7a 4e ){ z++; }. zN
3010: 61 6d 65 20 3d 20 7a 3b 0a 20 20 20 20 77 68 69 ame = z;. whi
3020: 6c 65 28 20 2a 7a 20 26 26 20 2a 7a 21 3d 27 3d le( *z && *z!='=
3030: 27 20 26 26 20 2a 7a 21 3d 74 65 72 6d 69 6e 61 ' && *z!=termina
3040: 74 6f 72 20 29 7b 20 7a 2b 2b 3b 20 7d 0a 20 20 tor ){ z++; }.
3050: 20 20 69 66 28 20 2a 7a 3d 3d 27 3d 27 20 29 7b if( *z=='=' ){
3060: 0a 20 20 20 20 20 20 2a 7a 20 3d 20 30 3b 0a 20 . *z = 0;.
3070: 20 20 20 20 20 7a 2b 2b 3b 0a 20 20 20 20 20 20 z++;.
3080: 7a 56 61 6c 75 65 20 3d 20 7a 3b 0a 20 20 20 20 zValue = z;.
3090: 20 20 77 68 69 6c 65 28 20 2a 7a 20 26 26 20 2a while( *z && *
30a0: 7a 21 3d 74 65 72 6d 69 6e 61 74 6f 72 20 29 7b z!=terminator ){
30b0: 20 7a 2b 2b 3b 20 7d 0a 20 20 20 20 20 20 69 66 z++; }. if
30c0: 28 20 2a 7a 20 29 7b 0a 20 20 20 20 20 20 20 20 ( *z ){.
30d0: 2a 7a 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 *z = 0;.
30e0: 7a 2b 2b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 z++;. }.
30f0: 20 20 20 64 65 68 74 74 70 69 7a 65 28 7a 56 61 dehttpize(zVa
3100: 6c 75 65 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b lue);. }else{
3110: 0a 20 20 20 20 20 20 69 66 28 20 2a 7a 20 29 7b . if( *z ){
3120: 20 2a 7a 2b 2b 20 3d 20 30 3b 20 7d 0a 20 20 20 *z++ = 0; }.
3130: 20 20 20 7a 56 61 6c 75 65 20 3d 20 22 22 3b 0a zValue = "";.
3140: 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 69 73 }. if( is
3150: 6c 6f 77 65 72 28 7a 4e 61 6d 65 5b 30 5d 29 20 lower(zName[0])
3160: 29 7b 0a 20 20 20 20 20 20 63 67 69 5f 73 65 74 ){. cgi_set
3170: 5f 70 61 72 61 6d 65 74 65 72 5f 6e 6f 63 6f 70 _parameter_nocop
3180: 79 28 7a 4e 61 6d 65 2c 20 7a 56 61 6c 75 65 29 y(zName, zValue)
3190: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f ;. }. }.}../
31a0: 2a 0a 2a 2a 20 2a 70 7a 20 69 73 20 61 20 73 74 *.** *pz is a st
31b0: 72 69 6e 67 20 74 68 61 74 20 63 6f 6e 73 69 73 ring that consis
31c0: 74 73 20 6f 66 20 6d 75 6c 74 69 70 6c 65 20 6c ts of multiple l
31d0: 69 6e 65 73 20 6f 66 20 74 65 78 74 2e 20 20 54 ines of text. T
31e0: 68 69 73 0a 2a 2a 20 72 6f 75 74 69 6e 65 20 66 his.** routine f
31f0: 69 6e 64 73 20 74 68 65 20 65 6e 64 20 6f 66 20 inds the end of
3200: 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 the current line
3210: 20 6f 66 20 74 65 78 74 20 61 6e 64 20 63 6f 6e of text and con
3220: 76 65 72 74 73 0a 2a 2a 20 74 68 65 20 22 5c 6e verts.** the "\n
3230: 22 20 6f 72 20 22 5c 72 5c 6e 22 20 74 68 61 74 " or "\r\n" that
3240: 20 65 6e 64 73 20 74 68 61 74 20 6c 69 6e 65 20 ends that line
3250: 69 6e 74 6f 20 61 20 22 5c 30 30 30 22 2e 20 20 into a "\000".
3260: 49 74 20 74 68 65 6e 0a 2a 2a 20 61 64 76 61 6e It then.** advan
3270: 63 65 73 20 2a 70 7a 20 74 6f 20 74 68 65 20 62 ces *pz to the b
3280: 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 eginning of the
3290: 6e 65 78 74 20 6c 69 6e 65 20 61 6e 64 20 72 65 next line and re
32a0: 74 75 72 6e 73 20 74 68 65 0a 2a 2a 20 70 72 65 turns the.** pre
32b0: 76 69 6f 75 73 20 76 61 6c 75 65 20 6f 66 20 2a vious value of *
32c0: 70 7a 20 28 77 68 69 63 68 20 69 73 20 74 68 65 pz (which is the
32d0: 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 63 75 start of the cu
32e0: 72 72 65 6e 74 20 6c 69 6e 65 2e 29 0a 2a 2f 0a rrent line.).*/.
32f0: 73 74 61 74 69 63 20 63 68 61 72 20 2a 67 65 74 static char *get
3300: 5f 6c 69 6e 65 5f 66 72 6f 6d 5f 73 74 72 69 6e _line_from_strin
3310: 67 28 63 68 61 72 20 2a 2a 70 7a 2c 20 69 6e 74 g(char **pz, int
3320: 20 2a 70 4c 65 6e 29 7b 0a 20 20 63 68 61 72 20 *pLen){. char
3330: 2a 7a 20 3d 20 2a 70 7a 3b 0a 20 20 69 6e 74 20 *z = *pz;. int
3340: 69 3b 0a 20 20 69 66 28 20 7a 5b 30 5d 3d 3d 30 i;. if( z[0]==0
3350: 20 29 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 66 ) return 0;. f
3360: 6f 72 28 69 3d 30 3b 20 7a 5b 69 5d 3b 20 69 2b or(i=0; z[i]; i+
3370: 2b 29 7b 0a 20 20 20 20 69 66 28 20 7a 5b 69 5d +){. if( z[i]
3380: 3d 3d 27 5c 6e 27 20 29 7b 0a 20 20 20 20 20 20 =='\n' ){.
3390: 69 66 28 20 69 3e 30 20 26 26 20 7a 5b 69 2d 31 if( i>0 && z[i-1
33a0: 5d 3d 3d 27 5c 72 27 20 29 7b 0a 20 20 20 20 20 ]=='\r' ){.
33b0: 20 20 20 7a 5b 69 2d 31 5d 20 3d 20 30 3b 0a 20 z[i-1] = 0;.
33c0: 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 }else{.
33d0: 20 20 20 20 7a 5b 69 5d 20 3d 20 30 3b 0a 20 20 z[i] = 0;.
33e0: 20 20 20 20 7d 0a 20 20 20 20 20 20 69 2b 2b 3b }. i++;
33f0: 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 . break;.
3400: 20 20 7d 0a 20 20 7d 0a 20 20 2a 70 7a 20 3d 20 }. }. *pz =
3410: 26 7a 5b 69 5d 3b 0a 20 20 2a 70 4c 65 6e 20 2d &z[i];. *pLen -
3420: 3d 20 69 3b 0a 20 20 72 65 74 75 72 6e 20 7a 3b = i;. return z;
3430: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 69 6e .}../*.** The in
3440: 70 75 74 20 2a 70 7a 20 70 6f 69 6e 74 73 20 74 put *pz points t
3450: 6f 20 63 6f 6e 74 65 6e 74 20 74 68 61 74 20 69 o content that i
3460: 73 20 74 65 72 6d 69 6e 61 74 65 64 20 62 79 20 s terminated by
3470: 61 20 22 5c 72 5c 6e 22 0a 2a 2a 20 66 6f 6c 6c a "\r\n".** foll
3480: 6f 77 65 64 20 62 79 20 74 68 65 20 62 6f 75 6e owed by the boun
3490: 64 72 79 20 6d 61 72 6b 65 72 20 7a 42 6f 75 6e dry marker zBoun
34a0: 64 72 79 2e 20 20 41 6e 20 65 78 74 72 61 20 22 dry. An extra "
34b0: 2d 2d 22 20 6d 61 79 20 6f 72 0a 2a 2a 20 6d 61 --" may or.** ma
34c0: 79 20 6e 6f 74 20 62 65 20 61 70 70 65 6e 64 65 y not be appende
34d0: 64 20 74 6f 20 74 68 65 20 62 6f 75 6e 64 72 79 d to the boundry
34e0: 20 6d 61 72 6b 65 72 2e 20 20 54 68 65 72 65 20 marker. There
34f0: 61 72 65 20 2a 70 4c 65 6e 20 63 68 61 72 61 63 are *pLen charac
3500: 74 65 72 73 0a 2a 2a 20 69 6e 20 2a 70 7a 2e 0a ters.** in *pz..
3510: 2a 2a 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 69 **.** This routi
3520: 6e 65 20 61 64 64 73 20 61 20 22 5c 30 30 30 22 ne adds a "\000"
3530: 20 74 6f 20 74 68 65 20 65 6e 64 20 6f 66 20 74 to the end of t
3540: 68 65 20 63 6f 6e 74 65 6e 74 20 28 6f 76 65 72 he content (over
3550: 77 72 69 74 69 6e 67 0a 2a 2a 20 74 68 65 20 22 writing.** the "
3560: 5c 72 5c 6e 22 29 20 61 6e 64 20 72 65 74 75 72 \r\n") and retur
3570: 6e 73 20 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 ns a pointer to
3580: 74 68 65 20 63 6f 6e 74 65 6e 74 2e 20 20 54 68 the content. Th
3590: 65 20 2a 70 7a 20 69 6e 70 75 74 0a 2a 2a 20 69 e *pz input.** i
35a0: 73 20 61 64 6a 75 73 74 65 64 20 74 6f 20 70 6f s adjusted to po
35b0: 69 6e 74 20 74 6f 20 74 68 65 20 66 69 72 73 74 int to the first
35c0: 20 6c 69 6e 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 line following
35d0: 74 68 65 20 62 6f 75 6e 64 72 79 2e 0a 2a 2a 20 the boundry..**
35e0: 54 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 The length of th
35f0: 65 20 63 6f 6e 74 65 6e 74 20 69 73 20 73 74 6f e content is sto
3600: 72 65 64 20 69 6e 20 2a 70 6e 43 6f 6e 74 65 6e red in *pnConten
3610: 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 63 68 61 t..*/.static cha
3620: 72 20 2a 67 65 74 5f 62 6f 75 6e 64 65 64 5f 63 r *get_bounded_c
3630: 6f 6e 74 65 6e 74 28 0a 20 20 63 68 61 72 20 2a ontent(. char *
3640: 2a 70 7a 2c 20 20 20 20 20 20 20 20 20 2f 2a 20 *pz, /*
3650: 43 6f 6e 74 65 6e 74 20 74 61 6b 65 6e 20 66 72 Content taken fr
3660: 6f 6d 20 68 65 72 65 20 2a 2f 0a 20 20 69 6e 74 om here */. int
3670: 20 2a 70 4c 65 6e 2c 20 20 20 20 20 20 20 20 20 *pLen,
3680: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 62 79 74 /* Number of byt
3690: 65 73 20 6f 66 20 64 61 74 61 20 69 6e 20 28 2a es of data in (*
36a0: 70 7a 29 5b 5d 20 2a 2f 0a 20 20 63 68 61 72 20 pz)[] */. char
36b0: 2a 7a 42 6f 75 6e 64 72 79 2c 20 20 20 20 2f 2a *zBoundry, /*
36c0: 20 42 6f 75 6e 64 72 79 20 74 65 78 74 20 6d 61 Boundry text ma
36d0: 72 6b 69 6e 67 20 74 68 65 20 65 6e 64 20 6f 66 rking the end of
36e0: 20 63 6f 6e 74 65 6e 74 20 2a 2f 0a 20 20 69 6e content */. in
36f0: 74 20 2a 70 6e 43 6f 6e 74 65 6e 74 20 20 20 20 t *pnContent
3700: 20 2f 2a 20 57 72 69 74 65 20 74 68 65 20 73 69 /* Write the si
3710: 7a 65 20 6f 66 20 74 68 65 20 63 6f 6e 74 65 6e ze of the conten
3720: 74 20 68 65 72 65 20 2a 2f 0a 29 7b 0a 20 20 63 t here */.){. c
3730: 68 61 72 20 2a 7a 20 3d 20 2a 70 7a 3b 0a 20 20 har *z = *pz;.
3740: 69 6e 74 20 6c 65 6e 20 3d 20 2a 70 4c 65 6e 3b int len = *pLen;
3750: 0a 20 20 69 6e 74 20 69 3b 0a 20 20 69 6e 74 20 . int i;. int
3760: 6e 42 6f 75 6e 64 72 79 20 3d 20 73 74 72 6c 65 nBoundry = strle
3770: 6e 28 7a 42 6f 75 6e 64 72 79 29 3b 0a 20 20 2a n(zBoundry);. *
3780: 70 6e 43 6f 6e 74 65 6e 74 20 3d 20 6c 65 6e 3b pnContent = len;
3790: 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6c 65 . for(i=0; i<le
37a0: 6e 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 n; i++){. if(
37b0: 20 7a 5b 69 5d 3d 3d 27 5c 6e 27 20 26 26 20 73 z[i]=='\n' && s
37c0: 74 72 6e 63 6d 70 28 7a 42 6f 75 6e 64 72 79 2c trncmp(zBoundry,
37d0: 20 26 7a 5b 69 2b 31 5d 2c 20 6e 42 6f 75 6e 64 &z[i+1], nBound
37e0: 72 79 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 ry)==0 ){.
37f0: 69 66 28 20 69 3e 30 20 26 26 20 7a 5b 69 2d 31 if( i>0 && z[i-1
3800: 5d 3d 3d 27 5c 72 27 20 29 20 69 2d 2d 3b 0a 20 ]=='\r' ) i--;.
3810: 20 20 20 20 20 7a 5b 69 5d 20 3d 20 30 3b 0a 20 z[i] = 0;.
3820: 20 20 20 20 20 2a 70 6e 43 6f 6e 74 65 6e 74 20 *pnContent
3830: 3d 20 69 3b 0a 20 20 20 20 20 20 69 20 2b 3d 20 = i;. i +=
3840: 6e 42 6f 75 6e 64 72 79 3b 0a 20 20 20 20 20 20 nBoundry;.
3850: 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d break;. }. }
3860: 0a 20 20 2a 70 7a 20 3d 20 26 7a 5b 69 5d 3b 0a . *pz = &z[i];.
3870: 20 20 67 65 74 5f 6c 69 6e 65 5f 66 72 6f 6d 5f get_line_from_
3880: 73 74 72 69 6e 67 28 70 7a 2c 20 70 4c 65 6e 29 string(pz, pLen)
3890: 3b 0a 20 20 72 65 74 75 72 6e 20 7a 3b 20 20 20 ;. return z;
38a0: 20 20 20 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 6f 6b .}../*.** Tok
38b0: 65 6e 69 7a 65 20 61 20 6c 69 6e 65 20 6f 66 20 enize a line of
38c0: 74 65 78 74 20 69 6e 74 6f 20 61 73 20 6d 61 6e text into as man
38d0: 79 20 61 73 20 6e 41 72 67 20 74 6f 6b 65 6e 73 y as nArg tokens
38e0: 2e 20 20 4d 61 6b 65 0a 2a 2a 20 61 7a 41 72 67 . Make.** azArg
38f0: 5b 5d 20 70 6f 69 6e 74 20 74 6f 20 74 68 65 20 [] point to the
3900: 73 74 61 72 74 20 6f 66 20 65 61 63 68 20 74 6f start of each to
3910: 6b 65 6e 2e 0a 2a 2a 0a 2a 2a 20 54 6f 6b 65 6e ken..**.** Token
3920: 73 20 63 6f 6e 73 69 73 74 20 6f 66 20 73 70 61 s consist of spa
3930: 63 65 20 6f 72 20 73 65 6d 69 2d 63 6f 6c 6f 6e ce or semi-colon
3940: 20 64 65 6c 69 6d 69 74 65 64 20 77 6f 72 64 73 delimited words
3950: 20 6f 72 0a 2a 2a 20 73 74 72 69 6e 67 73 20 69 or.** strings i
3960: 6e 73 69 64 65 20 64 6f 75 62 6c 65 2d 71 75 6f nside double-quo
3970: 74 65 73 2e 20 20 45 78 61 6d 70 6c 65 3a 0a 2a tes. Example:.*
3980: 2a 0a 2a 2a 20 20 20 20 63 6f 6e 74 65 6e 74 2d *.** content-
3990: 64 69 73 70 6f 73 69 74 69 6f 6e 3a 20 66 6f 72 disposition: for
39a0: 6d 2d 64 61 74 61 3b 20 6e 61 6d 65 3d 22 66 6e m-data; name="fn
39b0: 22 3b 20 66 69 6c 65 6e 61 6d 65 3d 22 69 6e 64 "; filename="ind
39c0: 65 78 2e 68 74 6d 6c 22 0a 2a 2a 0a 2a 2a 20 54 ex.html".**.** T
39d0: 68 65 20 6c 69 6e 65 20 61 62 6f 76 65 20 69 73 he line above is
39e0: 20 74 6f 6b 65 6e 69 7a 65 64 20 61 73 20 66 6f tokenized as fo
39f0: 6c 6c 6f 77 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 llows:.**.**
3a00: 61 7a 41 72 67 5b 30 5d 20 3d 20 22 63 6f 6e 74 azArg[0] = "cont
3a10: 65 6e 74 2d 64 69 73 70 6f 73 69 74 69 6f 6e 3a ent-disposition:
3a20: 22 0a 2a 2a 20 20 20 20 61 7a 41 72 67 5b 31 5d ".** azArg[1]
3a30: 20 3d 20 22 66 6f 72 6d 2d 64 61 74 61 22 0a 2a = "form-data".*
3a40: 2a 20 20 20 20 61 7a 41 72 67 5b 32 5d 20 3d 20 * azArg[2] =
3a50: 22 6e 61 6d 65 3d 22 0a 2a 2a 20 20 20 20 61 7a "name=".** az
3a60: 41 72 67 5b 33 5d 20 3d 20 22 66 6e 22 0a 2a 2a Arg[3] = "fn".**
3a70: 20 20 20 20 61 7a 41 72 67 5b 34 5d 20 3d 20 22 azArg[4] = "
3a80: 66 69 6c 65 6e 61 6d 65 3d 22 0a 2a 2a 20 20 20 filename=".**
3a90: 20 61 7a 41 72 67 5b 35 5d 20 3d 20 22 69 6e 64 azArg[5] = "ind
3aa0: 65 78 2e 68 74 6d 6c 22 0a 2a 2a 20 20 20 20 61 ex.html".** a
3ab0: 7a 41 72 67 5b 36 5d 20 3d 20 30 3b 0a 2a 2a 0a zArg[6] = 0;.**.
3ac0: 2a 2a 20 27 5c 30 30 30 27 20 63 68 61 72 61 63 ** '\000' charac
3ad0: 74 65 72 73 20 61 72 65 20 69 6e 73 65 72 74 65 ters are inserte
3ae0: 64 20 69 6e 20 7a 5b 5d 20 61 74 20 74 68 65 20 d in z[] at the
3af0: 65 6e 64 20 6f 66 20 65 61 63 68 20 74 6f 6b 65 end of each toke
3b00: 6e 2e 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 69 n..** This routi
3b10: 6e 65 20 72 65 74 75 72 6e 73 20 74 68 65 20 74 ne returns the t
3b20: 6f 74 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20 74 otal number of t
3b30: 6f 6b 65 6e 73 20 6f 6e 20 74 68 65 20 6c 69 6e okens on the lin
3b40: 65 2c 20 36 0a 2a 2a 20 69 6e 20 74 68 65 20 65 e, 6.** in the e
3b50: 78 61 6d 70 6c 65 20 61 62 6f 76 65 2e 0a 2a 2f xample above..*/
3b60: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 6f 6b 65 .static int toke
3b70: 6e 69 7a 65 5f 6c 69 6e 65 28 63 68 61 72 20 2a nize_line(char *
3b80: 7a 2c 20 69 6e 74 20 6d 78 41 72 67 2c 20 63 68 z, int mxArg, ch
3b90: 61 72 20 2a 2a 61 7a 41 72 67 29 7b 0a 20 20 69 ar **azArg){. i
3ba0: 6e 74 20 69 20 3d 20 30 3b 0a 20 20 77 68 69 6c nt i = 0;. whil
3bb0: 65 28 20 2a 7a 20 29 7b 0a 20 20 20 20 77 68 69 e( *z ){. whi
3bc0: 6c 65 28 20 69 73 73 70 61 63 65 28 2a 7a 29 20 le( isspace(*z)
3bd0: 7c 7c 20 2a 7a 3d 3d 27 3b 27 20 29 7b 20 7a 2b || *z==';' ){ z+
3be0: 2b 3b 20 7d 0a 20 20 20 20 69 66 28 20 2a 7a 3d +; }. if( *z=
3bf0: 3d 27 22 27 20 26 26 20 7a 5b 31 5d 20 29 7b 0a ='"' && z[1] ){.
3c00: 20 20 20 20 20 20 2a 7a 20 3d 20 30 3b 0a 20 20 *z = 0;.
3c10: 20 20 20 20 7a 2b 2b 3b 0a 20 20 20 20 20 20 69 z++;. i
3c20: 66 28 20 69 3c 6d 78 41 72 67 2d 31 20 29 7b 20 f( i<mxArg-1 ){
3c30: 61 7a 41 72 67 5b 69 2b 2b 5d 20 3d 20 7a 3b 20 azArg[i++] = z;
3c40: 7d 0a 20 20 20 20 20 20 77 68 69 6c 65 28 20 2a }. while( *
3c50: 7a 20 26 26 20 2a 7a 21 3d 27 22 27 20 29 7b 20 z && *z!='"' ){
3c60: 7a 2b 2b 3b 20 7d 0a 20 20 20 20 20 20 69 66 28 z++; }. if(
3c70: 20 2a 7a 3d 3d 30 20 29 20 62 72 65 61 6b 3b 0a *z==0 ) break;.
3c80: 20 20 20 20 20 20 2a 7a 20 3d 20 30 3b 0a 20 20 *z = 0;.
3c90: 20 20 20 20 7a 2b 2b 3b 0a 20 20 20 20 7d 65 6c z++;. }el
3ca0: 73 65 7b 0a 20 20 20 20 20 20 69 66 28 20 69 3c se{. if( i<
3cb0: 6d 78 41 72 67 2d 31 20 29 7b 20 61 7a 41 72 67 mxArg-1 ){ azArg
3cc0: 5b 69 2b 2b 5d 20 3d 20 7a 3b 20 7d 0a 20 20 20 [i++] = z; }.
3cd0: 20 20 20 77 68 69 6c 65 28 20 2a 7a 20 26 26 20 while( *z &&
3ce0: 21 69 73 73 70 61 63 65 28 2a 7a 29 20 26 26 20 !isspace(*z) &&
3cf0: 2a 7a 21 3d 27 3b 27 20 26 26 20 2a 7a 21 3d 27 *z!=';' && *z!='
3d00: 22 27 20 29 7b 20 7a 2b 2b 3b 20 7d 0a 20 20 20 "' ){ z++; }.
3d10: 20 20 20 69 66 28 20 2a 7a 20 26 26 20 2a 7a 21 if( *z && *z!
3d20: 3d 27 22 27 20 29 7b 0a 20 20 20 20 20 20 20 20 ='"' ){.
3d30: 2a 7a 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 *z = 0;.
3d40: 7a 2b 2b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 z++;. }.
3d50: 20 7d 0a 20 20 7d 0a 20 20 61 7a 41 72 67 5b 69 }. }. azArg[i
3d60: 5d 20 3d 20 30 3b 0a 20 20 72 65 74 75 72 6e 20 ] = 0;. return
3d70: 69 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 63 61 6e i;.}../*.** Scan
3d80: 20 74 68 65 20 6d 75 6c 74 69 70 61 72 74 2d 66 the multipart-f
3d90: 6f 72 6d 20 63 6f 6e 74 65 6e 74 20 61 6e 64 20 orm content and
3da0: 6d 61 6b 65 20 61 70 70 72 6f 70 72 69 61 74 65 make appropriate
3db0: 20 65 6e 74 72 69 65 73 0a 2a 2a 20 69 6e 74 6f entries.** into
3dc0: 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 74 the parameter t
3dd0: 61 62 6c 65 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 able..**.** The
3de0: 63 6f 6e 74 65 6e 74 20 73 74 72 69 6e 67 20 22 content string "
3df0: 7a 22 20 69 73 20 6d 6f 64 69 66 69 65 64 20 62 z" is modified b
3e00: 79 20 74 68 69 73 20 72 6f 75 74 69 6e 65 20 62 y this routine b
3e10: 75 74 20 69 74 20 69 73 0a 2a 2a 20 6e 6f 74 20 ut it is.** not
3e20: 63 6f 70 69 65 64 2e 20 20 54 68 65 20 63 61 6c copied. The cal
3e30: 6c 69 6e 67 20 66 75 6e 63 74 69 6f 6e 20 6d 75 ling function mu
3e40: 73 74 20 6e 6f 74 20 64 65 61 6c 6c 6f 63 61 74 st not deallocat
3e50: 65 20 6f 72 20 6d 6f 64 69 66 79 0a 2a 2a 20 22 e or modify.** "
3e60: 7a 22 20 61 66 74 65 72 20 74 68 69 73 20 72 6f z" after this ro
3e70: 75 74 69 6e 65 20 66 69 6e 69 73 68 65 73 20 6f utine finishes o
3e80: 72 20 69 74 20 63 6f 75 6c 64 20 63 6f 72 72 75 r it could corru
3e90: 70 74 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 pt the parameter
3ea0: 0a 2a 2a 20 74 61 62 6c 65 2e 0a 2a 2f 0a 73 74 .** table..*/.st
3eb0: 61 74 69 63 20 76 6f 69 64 20 70 72 6f 63 65 73 atic void proces
3ec0: 73 5f 6d 75 6c 74 69 70 61 72 74 5f 66 6f 72 6d s_multipart_form
3ed0: 5f 64 61 74 61 28 63 68 61 72 20 2a 7a 2c 20 69 _data(char *z, i
3ee0: 6e 74 20 6c 65 6e 29 7b 0a 20 20 63 68 61 72 20 nt len){. char
3ef0: 2a 7a 4c 69 6e 65 3b 0a 20 20 69 6e 74 20 6e 41 *zLine;. int nA
3f00: 72 67 2c 20 69 3b 0a 20 20 63 68 61 72 20 2a 7a rg, i;. char *z
3f10: 42 6f 75 6e 64 72 79 3b 0a 20 20 63 68 61 72 20 Boundry;. char
3f20: 2a 7a 56 61 6c 75 65 3b 0a 20 20 63 68 61 72 20 *zValue;. char
3f30: 2a 7a 4e 61 6d 65 20 3d 20 30 3b 0a 20 20 69 6e *zName = 0;. in
3f40: 74 20 73 68 6f 77 42 79 74 65 73 20 3d 20 30 3b t showBytes = 0;
3f50: 0a 20 20 63 68 61 72 20 2a 61 7a 41 72 67 5b 35 . char *azArg[5
3f60: 30 5d 3b 0a 0a 20 20 7a 42 6f 75 6e 64 72 79 20 0];.. zBoundry
3f70: 3d 20 67 65 74 5f 6c 69 6e 65 5f 66 72 6f 6d 5f = get_line_from_
3f80: 73 74 72 69 6e 67 28 26 7a 2c 20 26 6c 65 6e 29 string(&z, &len)
3f90: 3b 0a 20 20 69 66 28 20 7a 42 6f 75 6e 64 72 79 ;. if( zBoundry
3fa0: 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 ==0 ) return;.
3fb0: 77 68 69 6c 65 28 20 28 7a 4c 69 6e 65 20 3d 20 while( (zLine =
3fc0: 67 65 74 5f 6c 69 6e 65 5f 66 72 6f 6d 5f 73 74 get_line_from_st
3fd0: 72 69 6e 67 28 26 7a 2c 20 26 6c 65 6e 29 29 21 ring(&z, &len))!
3fe0: 3d 30 20 29 7b 0a 20 20 20 20 69 66 28 20 7a 4c =0 ){. if( zL
3ff0: 69 6e 65 5b 30 5d 3d 3d 30 20 29 7b 0a 20 20 20 ine[0]==0 ){.
4000: 20 20 20 69 6e 74 20 6e 43 6f 6e 74 65 6e 74 20 int nContent
4010: 3d 20 30 3b 0a 20 20 20 20 20 20 7a 56 61 6c 75 = 0;. zValu
4020: 65 20 3d 20 67 65 74 5f 62 6f 75 6e 64 65 64 5f e = get_bounded_
4030: 63 6f 6e 74 65 6e 74 28 26 7a 2c 20 26 6c 65 6e content(&z, &len
4040: 2c 20 7a 42 6f 75 6e 64 72 79 2c 20 26 6e 43 6f , zBoundry, &nCo
4050: 6e 74 65 6e 74 29 3b 0a 20 20 20 20 20 20 69 66 ntent);. if
4060: 28 20 7a 4e 61 6d 65 20 26 26 20 7a 56 61 6c 75 ( zName && zValu
4070: 65 20 26 26 20 69 73 6c 6f 77 65 72 28 7a 4e 61 e && islower(zNa
4080: 6d 65 5b 30 5d 29 20 29 7b 0a 20 20 20 20 20 20 me[0]) ){.
4090: 20 20 63 67 69 5f 73 65 74 5f 70 61 72 61 6d 65 cgi_set_parame
40a0: 74 65 72 5f 6e 6f 63 6f 70 79 28 7a 4e 61 6d 65 ter_nocopy(zName
40b0: 2c 20 7a 56 61 6c 75 65 29 3b 0a 20 20 20 20 20 , zValue);.
40c0: 20 20 20 69 66 28 20 73 68 6f 77 42 79 74 65 73 if( showBytes
40d0: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 63 67 ){. cg
40e0: 69 5f 73 65 74 5f 70 61 72 61 6d 65 74 65 72 5f i_set_parameter_
40f0: 6e 6f 63 6f 70 79 28 6d 70 72 69 6e 74 66 28 22 nocopy(mprintf("
4100: 25 73 3a 62 79 74 65 73 22 2c 20 7a 4e 61 6d 65 %s:bytes", zName
4110: 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ),.
4120: 20 20 6d 70 72 69 6e 74 66 28 22 25 64 22 2c 6e mprintf("%d",n
4130: 43 6f 6e 74 65 6e 74 29 29 3b 0a 20 20 20 20 20 Content));.
4140: 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 }. }.
4150: 20 20 20 7a 4e 61 6d 65 20 3d 20 30 3b 0a 20 20 zName = 0;.
4160: 20 20 20 20 73 68 6f 77 42 79 74 65 73 20 3d 20 showBytes =
4170: 30 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 0;. }else{.
4180: 20 20 20 20 6e 41 72 67 20 3d 20 74 6f 6b 65 6e nArg = token
4190: 69 7a 65 5f 6c 69 6e 65 28 7a 4c 69 6e 65 2c 20 ize_line(zLine,
41a0: 73 69 7a 65 6f 66 28 61 7a 41 72 67 29 2f 73 69 sizeof(azArg)/si
41b0: 7a 65 6f 66 28 61 7a 41 72 67 5b 30 5d 29 2c 20 zeof(azArg[0]),
41c0: 61 7a 41 72 67 29 3b 0a 20 20 20 20 20 20 66 6f azArg);. fo
41d0: 72 28 69 3d 30 3b 20 69 3c 6e 41 72 67 3b 20 69 r(i=0; i<nArg; i
41e0: 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 69 6e 74 ++){. int
41f0: 20 63 20 3d 20 74 6f 6c 6f 77 65 72 28 61 7a 41 c = tolower(azA
4200: 72 67 5b 69 5d 5b 30 5d 29 3b 0a 20 20 20 20 20 rg[i][0]);.
4210: 20 20 20 69 66 28 20 63 3d 3d 27 63 27 20 26 26 if( c=='c' &&
4220: 20 73 74 72 69 63 6d 70 28 61 7a 41 72 67 5b 69 stricmp(azArg[i
4230: 5d 2c 22 63 6f 6e 74 65 6e 74 2d 64 69 73 70 6f ],"content-dispo
4240: 73 69 74 69 6f 6e 3a 22 29 3d 3d 30 20 29 7b 0a sition:")==0 ){.
4250: 20 20 20 20 20 20 20 20 20 20 69 2b 2b 3b 0a 20 i++;.
4260: 20 20 20 20 20 20 20 7d 65 6c 73 65 20 69 66 28 }else if(
4270: 20 63 3d 3d 27 6e 27 20 26 26 20 73 74 72 69 63 c=='n' && stric
4280: 6d 70 28 61 7a 41 72 67 5b 69 5d 2c 22 6e 61 6d mp(azArg[i],"nam
4290: 65 3d 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 e=")==0 ){.
42a0: 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 61 7a 41 zName = azA
42b0: 72 67 5b 2b 2b 69 5d 3b 0a 20 20 20 20 20 20 20 rg[++i];.
42c0: 20 7d 65 6c 73 65 20 69 66 28 20 63 3d 3d 27 66 }else if( c=='f
42d0: 27 20 26 26 20 73 74 72 69 63 6d 70 28 61 7a 41 ' && stricmp(azA
42e0: 72 67 5b 69 5d 2c 22 66 69 6c 65 6e 61 6d 65 3d rg[i],"filename=
42f0: 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 ")==0 ){.
4300: 20 20 20 63 68 61 72 20 2a 7a 20 3d 20 61 7a 41 char *z = azA
4310: 72 67 5b 2b 2b 69 5d 3b 0a 20 20 20 20 20 20 20 rg[++i];.
4320: 20 20 20 69 66 28 20 7a 4e 61 6d 65 20 26 26 20 if( zName &&
4330: 7a 20 26 26 20 69 73 6c 6f 77 65 72 28 7a 4e 61 z && islower(zNa
4340: 6d 65 5b 30 5d 29 20 29 7b 0a 20 20 20 20 20 20 me[0]) ){.
4350: 20 20 20 20 20 20 63 67 69 5f 73 65 74 5f 70 61 cgi_set_pa
4360: 72 61 6d 65 74 65 72 5f 6e 6f 63 6f 70 79 28 6d rameter_nocopy(m
4370: 70 72 69 6e 74 66 28 22 25 73 3a 66 69 6c 65 6e printf("%s:filen
4380: 61 6d 65 22 2c 7a 4e 61 6d 65 29 2c 20 7a 29 3b ame",zName), z);
4390: 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 . }.
43a0: 20 20 20 20 20 20 20 73 68 6f 77 42 79 74 65 73 showBytes
43b0: 20 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 7d 65 = 1;. }e
43c0: 6c 73 65 20 69 66 28 20 63 3d 3d 27 63 27 20 26 lse if( c=='c' &
43d0: 26 20 73 74 72 69 63 6d 70 28 61 7a 41 72 67 5b & stricmp(azArg[
43e0: 69 5d 2c 22 63 6f 6e 74 65 6e 74 2d 74 79 70 65 i],"content-type
43f0: 3a 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 :")==0 ){.
4400: 20 20 20 20 63 68 61 72 20 2a 7a 20 3d 20 61 7a char *z = az
4410: 41 72 67 5b 2b 2b 69 5d 3b 0a 20 20 20 20 20 20 Arg[++i];.
4420: 20 20 20 20 69 66 28 20 7a 4e 61 6d 65 20 26 26 if( zName &&
4430: 20 7a 20 26 26 20 69 73 6c 6f 77 65 72 28 7a 4e z && islower(zN
4440: 61 6d 65 5b 30 5d 29 20 29 7b 0a 20 20 20 20 20 ame[0]) ){.
4450: 20 20 20 20 20 20 20 63 67 69 5f 73 65 74 5f 70 cgi_set_p
4460: 61 72 61 6d 65 74 65 72 5f 6e 6f 63 6f 70 79 28 arameter_nocopy(
4470: 6d 70 72 69 6e 74 66 28 22 25 73 3a 6d 69 6d 65 mprintf("%s:mime
4480: 74 79 70 65 22 2c 7a 4e 61 6d 65 29 2c 20 7a 29 type",zName), z)
4490: 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 ;. }.
44a0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a }. }.
44b0: 20 20 20 20 7d 0a 20 20 7d 20 20 20 20 20 20 20 }. }
44c0: 20 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6e 69 74 69 .}../*.** Initi
44d0: 61 6c 69 7a 65 20 74 68 65 20 71 75 65 72 79 20 alize the query
44e0: 70 61 72 61 6d 65 74 65 72 20 64 61 74 61 62 61 parameter databa
44f0: 73 65 2e 20 20 49 6e 66 6f 72 6d 61 74 69 6f 6e se. Information
4500: 20 69 73 20 70 75 6c 6c 65 64 20 66 72 6f 6d 0a is pulled from.
4510: 2a 2a 20 74 68 65 20 51 55 45 52 59 5f 53 54 52 ** the QUERY_STR
4520: 49 4e 47 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 ING environment
4530: 76 61 72 69 61 62 6c 65 20 28 69 66 20 69 74 20 variable (if it
4540: 65 78 69 73 74 73 29 2c 20 66 72 6f 6d 20 73 74 exists), from st
4550: 61 6e 64 61 72 64 0a 2a 2a 20 69 6e 70 75 74 20 andard.** input
4560: 69 66 20 74 68 65 72 65 20 69 73 20 50 4f 53 54 if there is POST
4570: 20 64 61 74 61 2c 20 61 6e 64 20 66 72 6f 6d 20 data, and from
4580: 48 54 54 50 5f 43 4f 4f 4b 49 45 2e 0a 2a 2f 0a HTTP_COOKIE..*/.
4590: 76 6f 69 64 20 63 67 69 5f 69 6e 69 74 28 76 6f void cgi_init(vo
45a0: 69 64 29 7b 0a 20 20 63 68 61 72 20 2a 7a 3b 0a id){. char *z;.
45b0: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 54 const char *zT
45c0: 79 70 65 3b 0a 20 20 69 6e 74 20 6c 65 6e 3b 0a ype;. int len;.
45d0: 20 20 7a 20 3d 20 28 63 68 61 72 2a 29 50 28 22 z = (char*)P("
45e0: 51 55 45 52 59 5f 53 54 52 49 4e 47 22 29 3b 0a QUERY_STRING");.
45f0: 20 20 69 66 28 20 7a 20 29 7b 0a 20 20 20 20 7a if( z ){. z
4600: 20 3d 20 6d 70 72 69 6e 74 66 28 22 25 73 22 2c = mprintf("%s",
4610: 7a 29 3b 0a 20 20 20 20 61 64 64 5f 70 61 72 61 z);. add_para
4620: 6d 5f 6c 69 73 74 28 7a 2c 20 27 26 27 29 3b 0a m_list(z, '&');.
4630: 20 20 7d 0a 0a 20 20 6c 65 6e 20 3d 20 61 74 6f }.. len = ato
4640: 69 28 50 44 28 22 43 4f 4e 54 45 4e 54 5f 4c 45 i(PD("CONTENT_LE
4650: 4e 47 54 48 22 2c 20 22 30 22 29 29 3b 0a 20 20 NGTH", "0"));.
4660: 67 2e 7a 43 6f 6e 74 65 6e 74 54 79 70 65 20 3d g.zContentType =
4670: 20 7a 54 79 70 65 20 3d 20 50 28 22 43 4f 4e 54 zType = P("CONT
4680: 45 4e 54 5f 54 59 50 45 22 29 3b 0a 20 20 69 66 ENT_TYPE");. if
4690: 28 20 6c 65 6e 3e 30 20 26 26 20 7a 54 79 70 65 ( len>0 && zType
46a0: 20 29 7b 0a 20 20 20 20 62 6c 6f 62 5f 7a 65 72 ){. blob_zer
46b0: 6f 28 26 67 2e 63 67 69 49 6e 29 3b 0a 20 20 20 o(&g.cgiIn);.
46c0: 20 69 66 28 20 73 74 72 63 6d 70 28 7a 54 79 70 if( strcmp(zTyp
46d0: 65 2c 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f 78 e,"application/x
46e0: 2d 77 77 77 2d 66 6f 72 6d 2d 75 72 6c 65 6e 63 -www-form-urlenc
46f0: 6f 64 65 64 22 29 3d 3d 30 20 0a 20 20 20 20 20 oded")==0 .
4700: 20 20 20 20 7c 7c 20 73 74 72 6e 63 6d 70 28 7a || strncmp(z
4710: 54 79 70 65 2c 22 6d 75 6c 74 69 70 61 72 74 2f Type,"multipart/
4720: 66 6f 72 6d 2d 64 61 74 61 22 2c 31 39 29 3d 3d form-data",19)==
4730: 30 20 29 7b 0a 20 20 20 20 20 20 7a 20 3d 20 6d 0 ){. z = m
4740: 61 6c 6c 6f 63 28 20 6c 65 6e 2b 31 20 29 3b 0a alloc( len+1 );.
4750: 20 20 20 20 20 20 69 66 28 20 7a 3d 3d 30 20 29 if( z==0 )
4760: 20 65 78 69 74 28 31 29 3b 0a 20 20 20 20 20 20 exit(1);.
4770: 6c 65 6e 20 3d 20 66 72 65 61 64 28 7a 2c 20 31 len = fread(z, 1
4780: 2c 20 6c 65 6e 2c 20 73 74 64 69 6e 29 3b 0a 20 , len, stdin);.
4790: 20 20 20 20 20 7a 5b 6c 65 6e 5d 20 3d 20 30 3b z[len] = 0;
47a0: 0a 20 20 20 20 20 20 69 66 28 20 7a 54 79 70 65 . if( zType
47b0: 5b 30 5d 3d 3d 27 61 27 20 29 7b 0a 20 20 20 20 [0]=='a' ){.
47c0: 20 20 20 20 61 64 64 5f 70 61 72 61 6d 5f 6c 69 add_param_li
47d0: 73 74 28 7a 2c 20 27 26 27 29 3b 0a 20 20 20 20 st(z, '&');.
47e0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 }else{.
47f0: 20 70 72 6f 63 65 73 73 5f 6d 75 6c 74 69 70 61 process_multipa
4800: 72 74 5f 66 6f 72 6d 5f 64 61 74 61 28 7a 2c 20 rt_form_data(z,
4810: 6c 65 6e 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 len);. }.
4820: 20 20 7d 65 6c 73 65 20 69 66 28 20 73 74 72 63 }else if( strc
4830: 6d 70 28 7a 54 79 70 65 2c 20 22 61 70 70 6c 69 mp(zType, "appli
4840: 63 61 74 69 6f 6e 2f 78 2d 66 6f 73 73 69 6c 22 cation/x-fossil"
4850: 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 62 6c )==0 ){. bl
4860: 6f 62 5f 72 65 61 64 5f 66 72 6f 6d 5f 63 68 61 ob_read_from_cha
4870: 6e 6e 65 6c 28 26 67 2e 63 67 69 49 6e 2c 20 73 nnel(&g.cgiIn, s
4880: 74 64 69 6e 2c 20 6c 65 6e 29 3b 0a 20 20 20 20 tdin, len);.
4890: 20 20 62 6c 6f 62 5f 75 6e 63 6f 6d 70 72 65 73 blob_uncompres
48a0: 73 28 26 67 2e 63 67 69 49 6e 2c 20 26 67 2e 63 s(&g.cgiIn, &g.c
48b0: 67 69 49 6e 29 3b 0a 20 20 20 20 7d 65 6c 73 65 giIn);. }else
48c0: 20 69 66 28 20 73 74 72 63 6d 70 28 7a 54 79 70 if( strcmp(zTyp
48d0: 65 2c 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 2f e, "application/
48e0: 78 2d 66 6f 73 73 69 6c 2d 64 65 62 75 67 22 29 x-fossil-debug")
48f0: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 62 6c 6f ==0 ){. blo
4900: 62 5f 72 65 61 64 5f 66 72 6f 6d 5f 63 68 61 6e b_read_from_chan
4910: 6e 65 6c 28 26 67 2e 63 67 69 49 6e 2c 20 73 74 nel(&g.cgiIn, st
4920: 64 69 6e 2c 20 6c 65 6e 29 3b 0a 20 20 20 20 7d din, len);. }
4930: 0a 20 20 7d 0a 0a 20 20 7a 20 3d 20 28 63 68 61 . }.. z = (cha
4940: 72 2a 29 50 28 22 48 54 54 50 5f 43 4f 4f 4b 49 r*)P("HTTP_COOKI
4950: 45 22 29 3b 0a 20 20 69 66 28 20 7a 20 29 7b 0a E");. if( z ){.
4960: 20 20 20 20 7a 20 3d 20 6d 70 72 69 6e 74 66 28 z = mprintf(
4970: 22 25 73 22 2c 7a 29 3b 0a 20 20 20 20 61 64 64 "%s",z);. add
4980: 5f 70 61 72 61 6d 5f 6c 69 73 74 28 7a 2c 20 27 _param_list(z, '
4990: 3b 27 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a ;');. }.}../*.*
49a0: 2a 20 54 68 69 73 20 69 73 20 74 68 65 20 63 6f * This is the co
49b0: 6d 70 61 72 69 73 6f 6e 20 66 75 6e 63 74 69 6f mparison functio
49c0: 6e 20 75 73 65 64 20 74 6f 20 73 6f 72 74 20 74 n used to sort t
49d0: 68 65 20 61 50 61 72 61 6d 51 50 5b 5d 20 61 72 he aParamQP[] ar
49e0: 72 61 79 20 6f 66 0a 2a 2a 20 71 75 65 72 79 20 ray of.** query
49f0: 70 61 72 61 6d 65 74 65 72 73 20 61 6e 64 20 63 parameters and c
4a00: 6f 6f 6b 69 65 73 2e 0a 2a 2f 0a 73 74 61 74 69 ookies..*/.stati
4a10: 63 20 69 6e 74 20 71 70 61 72 61 6d 5f 63 6f 6d c int qparam_com
4a20: 70 61 72 65 28 63 6f 6e 73 74 20 76 6f 69 64 20 pare(const void
4a30: 2a 61 2c 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a *a, const void *
4a40: 62 29 7b 0a 20 20 73 74 72 75 63 74 20 51 50 61 b){. struct QPa
4a50: 72 61 6d 20 2a 70 41 20 3d 20 28 73 74 72 75 63 ram *pA = (struc
4a60: 74 20 51 50 61 72 61 6d 2a 29 61 3b 0a 20 20 73 t QParam*)a;. s
4a70: 74 72 75 63 74 20 51 50 61 72 61 6d 20 2a 70 42 truct QParam *pB
4a80: 20 3d 20 28 73 74 72 75 63 74 20 51 50 61 72 61 = (struct QPara
4a90: 6d 2a 29 62 3b 0a 20 20 69 6e 74 20 63 3b 0a 20 m*)b;. int c;.
4aa0: 20 63 20 3d 20 73 74 72 63 6d 70 28 70 41 2d 3e c = strcmp(pA->
4ab0: 7a 4e 61 6d 65 2c 20 70 42 2d 3e 7a 4e 61 6d 65 zName, pB->zName
4ac0: 29 3b 0a 20 20 69 66 28 20 63 3d 3d 30 20 29 7b );. if( c==0 ){
4ad0: 0a 20 20 20 20 63 20 3d 20 70 41 2d 3e 73 65 71 . c = pA->seq
4ae0: 20 2d 20 70 42 2d 3e 73 65 71 3b 0a 20 20 7d 0a - pB->seq;. }.
4af0: 20 20 72 65 74 75 72 6e 20 63 3b 0a 7d 0a 0a 2f return c;.}../
4b00: 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 *.** Return the
4b10: 76 61 6c 75 65 20 6f 66 20 61 20 71 75 65 72 79 value of a query
4b20: 20 70 61 72 61 6d 65 74 65 72 20 6f 72 20 63 6f parameter or co
4b30: 6f 6b 69 65 20 77 68 6f 73 65 20 6e 61 6d 65 20 okie whose name
4b40: 69 73 20 7a 4e 61 6d 65 2e 0a 2a 2a 20 49 66 20 is zName..** If
4b50: 74 68 65 72 65 20 69 73 20 6e 6f 20 71 75 65 72 there is no quer
4b60: 79 20 70 61 72 61 6d 65 74 65 72 20 6f 72 20 63 y parameter or c
4b70: 6f 6f 6b 69 65 20 6e 61 6d 65 64 20 7a 4e 61 6d ookie named zNam
4b80: 65 20 61 6e 64 20 74 68 65 20 66 69 72 73 74 0a e and the first.
4b90: 2a 2a 20 63 68 61 72 61 63 74 65 72 20 6f 66 20 ** character of
4ba0: 7a 4e 61 6d 65 20 69 73 20 75 70 70 65 72 63 61 zName is upperca
4bb0: 73 65 2c 20 74 68 65 6e 20 63 68 65 63 6b 20 74 se, then check t
4bc0: 6f 20 73 65 65 20 69 66 20 74 68 65 72 65 20 69 o see if there i
4bd0: 73 20 61 6e 0a 2a 2a 20 65 6e 76 69 72 6f 6e 6d s an.** environm
4be0: 65 6e 74 20 76 61 72 69 61 62 6c 65 20 62 79 20 ent variable by
4bf0: 74 68 61 74 20 6e 61 6d 65 20 61 6e 64 20 72 65 that name and re
4c00: 74 75 72 6e 20 69 74 20 69 66 20 74 68 65 72 65 turn it if there
4c10: 20 69 73 2e 20 20 41 73 0a 2a 2a 20 61 20 6c 61 is. As.** a la
4c20: 73 74 20 72 65 73 6f 72 74 20 77 68 65 6e 20 6e st resort when n
4c30: 6f 74 68 69 6e 67 20 65 6c 73 65 20 6d 61 74 63 othing else matc
4c40: 68 65 73 2c 20 72 65 74 75 72 6e 20 7a 44 65 66 hes, return zDef
4c50: 61 75 6c 74 2e 0a 2a 2f 0a 63 6f 6e 73 74 20 63 ault..*/.const c
4c60: 68 61 72 20 2a 63 67 69 5f 70 61 72 61 6d 65 74 har *cgi_paramet
4c70: 65 72 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a er(const char *z
4c80: 4e 61 6d 65 2c 20 63 6f 6e 73 74 20 63 68 61 72 Name, const char
4c90: 20 2a 7a 44 65 66 61 75 6c 74 29 7b 0a 20 20 69 *zDefault){. i
4ca0: 6e 74 20 6c 6f 2c 20 68 69 2c 20 6d 69 64 2c 20 nt lo, hi, mid,
4cb0: 63 3b 0a 0a 20 20 2f 2a 20 54 68 65 20 73 6f 72 c;.. /* The sor
4cc0: 74 51 50 20 66 6c 61 67 20 69 73 20 73 65 74 20 tQP flag is set
4cd0: 77 68 65 6e 65 76 65 72 20 61 20 6e 65 77 20 71 whenever a new q
4ce0: 75 65 72 79 20 70 61 72 61 6d 65 74 65 72 20 69 uery parameter i
4cf0: 73 20 69 6e 73 65 72 74 65 64 2e 0a 20 20 2a 2a s inserted.. **
4d00: 20 49 74 20 69 6e 64 69 63 61 74 65 73 20 74 68 It indicates th
4d10: 61 74 20 77 65 20 6e 65 65 64 20 74 6f 20 72 65 at we need to re
4d20: 73 6f 72 74 20 74 68 65 20 71 75 65 72 79 20 70 sort the query p
4d30: 61 72 61 6d 65 74 65 72 73 2e 0a 20 20 2a 2f 0a arameters.. */.
4d40: 20 20 69 66 28 20 73 6f 72 74 51 50 20 29 7b 0a if( sortQP ){.
4d50: 20 20 20 20 69 6e 74 20 69 2c 20 6a 3b 0a 20 20 int i, j;.
4d60: 20 20 71 73 6f 72 74 28 61 50 61 72 61 6d 51 50 qsort(aParamQP
4d70: 2c 20 6e 55 73 65 64 51 50 2c 20 73 69 7a 65 6f , nUsedQP, sizeo
4d80: 66 28 61 50 61 72 61 6d 51 50 5b 30 5d 29 2c 20 f(aParamQP[0]),
4d90: 71 70 61 72 61 6d 5f 63 6f 6d 70 61 72 65 29 3b qparam_compare);
4da0: 0a 20 20 20 20 73 6f 72 74 51 50 20 3d 20 30 3b . sortQP = 0;
4db0: 0a 20 20 20 20 2f 2a 20 41 66 74 65 72 20 73 6f . /* After so
4dc0: 72 74 69 6e 67 2c 20 72 65 6d 6f 76 65 20 64 75 rting, remove du
4dd0: 70 6c 69 63 61 74 65 20 70 61 72 61 6d 65 74 65 plicate paramete
4de0: 72 73 2e 20 20 54 68 65 20 73 65 63 6f 6e 64 61 rs. The seconda
4df0: 72 79 20 73 6f 72 74 0a 20 20 20 20 2a 2a 20 6b ry sort. ** k
4e00: 65 79 20 69 73 20 61 50 61 72 61 6d 51 50 5b 5d ey is aParamQP[]
4e10: 2e 73 65 71 20 61 6e 64 20 77 65 20 6b 65 65 70 .seq and we keep
4e20: 20 74 68 65 20 66 69 72 73 74 20 65 6e 74 72 79 the first entry
4e30: 2e 20 20 54 68 61 74 20 6d 65 61 6e 73 0a 20 20 . That means.
4e40: 20 20 2a 2a 20 77 69 74 68 20 64 75 70 6c 69 63 ** with duplic
4e50: 61 74 65 20 63 61 6c 6c 73 20 74 6f 20 63 67 69 ate calls to cgi
4e60: 5f 73 65 74 5f 70 61 72 61 6d 65 74 65 72 28 29 _set_parameter()
4e70: 20 74 68 65 20 73 65 63 6f 6e 64 20 61 6e 64 0a the second and.
4e80: 20 20 20 20 2a 2a 20 73 75 62 73 65 71 75 65 6e ** subsequen
4e90: 74 20 63 61 6c 6c 73 20 61 72 65 20 65 66 66 65 t calls are effe
4ea0: 63 74 69 76 65 6c 79 20 6e 6f 2d 6f 70 73 2e 20 ctively no-ops.
4eb0: 2a 2f 0a 20 20 20 20 66 6f 72 28 69 3d 6a 3d 31 */. for(i=j=1
4ec0: 3b 20 69 3c 6e 55 73 65 64 51 50 3b 20 69 2b 2b ; i<nUsedQP; i++
4ed0: 29 7b 0a 20 20 20 20 20 20 69 66 28 20 73 74 72 ){. if( str
4ee0: 63 6d 70 28 61 50 61 72 61 6d 51 50 5b 69 5d 2e cmp(aParamQP[i].
4ef0: 7a 4e 61 6d 65 2c 61 50 61 72 61 6d 51 50 5b 69 zName,aParamQP[i
4f00: 2d 31 5d 2e 7a 4e 61 6d 65 29 3d 3d 30 20 29 7b -1].zName)==0 ){
4f10: 0a 20 20 20 20 20 20 20 20 63 6f 6e 74 69 6e 75 . continu
4f20: 65 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 e;. }.
4f30: 20 69 66 28 20 6a 3c 69 20 29 7b 0a 20 20 20 20 if( j<i ){.
4f40: 20 20 20 20 6d 65 6d 63 70 79 28 26 61 50 61 72 memcpy(&aPar
4f50: 61 6d 51 50 5b 6a 5d 2c 20 26 61 50 61 72 61 6d amQP[j], &aParam
4f60: 51 50 5b 69 5d 2c 20 73 69 7a 65 6f 66 28 61 50 QP[i], sizeof(aP
4f70: 61 72 61 6d 51 50 5b 6a 5d 29 29 3b 0a 20 20 20 aramQP[j]));.
4f80: 20 20 20 7d 0a 20 20 20 20 20 20 6a 2b 2b 3b 0a }. j++;.
4f90: 20 20 20 20 7d 0a 20 20 20 20 6e 55 73 65 64 51 }. nUsedQ
4fa0: 50 20 3d 20 6a 3b 0a 20 20 7d 0a 0a 20 20 2f 2a P = j;. }.. /*
4fb0: 20 44 6f 20 61 20 62 69 6e 61 72 79 20 73 65 61 Do a binary sea
4fc0: 72 63 68 20 66 6f 72 20 61 20 6d 61 74 63 68 69 rch for a matchi
4fd0: 6e 67 20 71 75 65 72 79 20 70 61 72 61 6d 65 74 ng query paramet
4fe0: 65 72 20 2a 2f 0a 20 20 6c 6f 20 3d 20 30 3b 0a er */. lo = 0;.
4ff0: 20 20 68 69 20 3d 20 6e 55 73 65 64 51 50 2d 31 hi = nUsedQP-1
5000: 3b 0a 20 20 77 68 69 6c 65 28 20 6c 6f 3c 3d 68 ;. while( lo<=h
5010: 69 20 29 7b 0a 20 20 20 20 6d 69 64 20 3d 20 28 i ){. mid = (
5020: 6c 6f 2b 68 69 29 2f 32 3b 0a 20 20 20 20 63 20 lo+hi)/2;. c
5030: 3d 20 73 74 72 63 6d 70 28 61 50 61 72 61 6d 51 = strcmp(aParamQ
5040: 50 5b 6d 69 64 5d 2e 7a 4e 61 6d 65 2c 20 7a 4e P[mid].zName, zN
5050: 61 6d 65 29 3b 0a 20 20 20 20 69 66 28 20 63 3d ame);. if( c=
5060: 3d 30 20 29 7b 0a 20 20 20 20 20 20 43 47 49 44 =0 ){. CGID
5070: 45 42 55 47 28 28 22 6d 65 6d 2d 6d 61 74 63 68 EBUG(("mem-match
5080: 20 5b 25 73 5d 20 3d 20 5b 25 73 5d 5c 6e 22 2c [%s] = [%s]\n",
5090: 20 7a 4e 61 6d 65 2c 20 61 50 61 72 61 6d 51 50 zName, aParamQP
50a0: 5b 6d 69 64 5d 2e 7a 56 61 6c 75 65 29 29 3b 0a [mid].zValue));.
50b0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 61 50 61 return aPa
50c0: 72 61 6d 51 50 5b 6d 69 64 5d 2e 7a 56 61 6c 75 ramQP[mid].zValu
50d0: 65 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 e;. }else if(
50e0: 20 63 3e 30 20 29 7b 0a 20 20 20 20 20 20 68 69 c>0 ){. hi
50f0: 20 3d 20 6d 69 64 2d 31 3b 0a 20 20 20 20 7d 65 = mid-1;. }e
5100: 6c 73 65 7b 0a 20 20 20 20 20 20 6c 6f 20 3d 20 lse{. lo =
5110: 6d 69 64 2b 31 3b 0a 20 20 20 20 7d 0a 20 20 7d mid+1;. }. }
5120: 0a 0a 20 20 2f 2a 20 49 66 20 6e 6f 20 6d 61 74 .. /* If no mat
5130: 63 68 20 69 73 20 66 6f 75 6e 64 20 61 6e 64 20 ch is found and
5140: 74 68 65 20 6e 61 6d 65 20 62 65 67 69 6e 73 20 the name begins
5150: 77 69 74 68 20 61 6e 20 75 70 70 65 72 2d 63 61 with an upper-ca
5160: 73 65 0a 20 20 2a 2a 20 6c 65 74 74 65 72 2c 20 se. ** letter,
5170: 74 68 65 6e 20 63 68 65 63 6b 20 74 6f 20 73 65 then check to se
5180: 65 20 69 66 20 74 68 65 72 65 20 69 73 20 61 6e e if there is an
5190: 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 76 61 72 environment var
51a0: 69 61 62 6c 65 0a 20 20 2a 2a 20 77 69 74 68 20 iable. ** with
51b0: 74 68 65 20 67 69 76 65 6e 20 6e 61 6d 65 2e 0a the given name..
51c0: 20 20 2a 2f 0a 20 20 69 66 28 20 69 73 75 70 70 */. if( isupp
51d0: 65 72 28 7a 4e 61 6d 65 5b 30 5d 29 20 29 7b 0a er(zName[0]) ){.
51e0: 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a const char *
51f0: 7a 56 61 6c 75 65 20 3d 20 67 65 74 65 6e 76 28 zValue = getenv(
5200: 7a 4e 61 6d 65 29 3b 0a 20 20 20 20 69 66 28 20 zName);. if(
5210: 7a 56 61 6c 75 65 20 29 7b 0a 20 20 20 20 20 20 zValue ){.
5220: 63 67 69 5f 73 65 74 5f 70 61 72 61 6d 65 74 65 cgi_set_paramete
5230: 72 5f 6e 6f 63 6f 70 79 28 7a 4e 61 6d 65 2c 20 r_nocopy(zName,
5240: 7a 56 61 6c 75 65 29 3b 0a 20 20 20 20 20 20 43 zValue);. C
5250: 47 49 44 45 42 55 47 28 28 22 65 6e 76 2d 6d 61 GIDEBUG(("env-ma
5260: 74 63 68 20 5b 25 73 5d 20 3d 20 5b 25 73 5d 5c tch [%s] = [%s]\
5270: 6e 22 2c 20 7a 4e 61 6d 65 2c 20 7a 56 61 6c 75 n", zName, zValu
5280: 65 29 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 e));. retur
5290: 6e 20 7a 56 61 6c 75 65 3b 0a 20 20 20 20 7d 0a n zValue;. }.
52a0: 20 20 7d 0a 20 20 43 47 49 44 45 42 55 47 28 28 }. CGIDEBUG((
52b0: 22 6e 6f 2d 6d 61 74 63 68 20 5b 25 73 5d 5c 6e "no-match [%s]\n
52c0: 22 2c 20 7a 4e 61 6d 65 29 29 3b 0a 20 20 72 65 ", zName));. re
52d0: 74 75 72 6e 20 7a 44 65 66 61 75 6c 74 3b 0a 7d turn zDefault;.}
52e0: 0a 0a 2f 2a 0a 2a 2a 20 50 72 69 6e 74 20 43 47 ../*.** Print CG
52f0: 49 20 64 65 62 75 67 67 69 6e 67 20 6d 65 73 73 I debugging mess
5300: 61 67 65 73 2e 0a 2a 2f 0a 76 6f 69 64 20 63 67 ages..*/.void cg
5310: 69 5f 64 65 62 75 67 28 63 6f 6e 73 74 20 63 68 i_debug(const ch
5320: 61 72 20 2a 7a 46 6f 72 6d 61 74 2c 20 2e 2e 2e ar *zFormat, ...
5330: 29 7b 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 3b ){. va_list ap;
5340: 0a 20 20 69 66 28 20 67 2e 66 44 65 62 75 67 20 . if( g.fDebug
5350: 29 7b 0a 20 20 20 20 76 61 5f 73 74 61 72 74 28 ){. va_start(
5360: 61 70 2c 20 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 ap, zFormat);.
5370: 20 20 76 66 70 72 69 6e 74 66 28 67 2e 66 44 65 vfprintf(g.fDe
5380: 62 75 67 2c 20 7a 46 6f 72 6d 61 74 2c 20 61 70 bug, zFormat, ap
5390: 29 3b 0a 20 20 20 20 76 61 5f 65 6e 64 28 61 70 );. va_end(ap
53a0: 29 3b 0a 20 20 20 20 66 66 6c 75 73 68 28 67 2e );. fflush(g.
53b0: 66 44 65 62 75 67 29 3b 0a 20 20 7d 0a 7d 0a 0a fDebug);. }.}..
53c0: 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 72 75 /*.** Return tru
53d0: 65 20 69 66 20 61 6e 79 20 6f 66 20 74 68 65 20 e if any of the
53e0: 71 75 65 72 79 20 70 61 72 61 6d 65 74 65 72 73 query parameters
53f0: 20 69 6e 20 74 68 65 20 61 72 67 75 6d 65 6e 74 in the argument
5400: 0a 2a 2a 20 6c 69 73 74 20 61 72 65 20 64 65 66 .** list are def
5410: 69 6e 65 64 2e 0a 2a 2f 0a 69 6e 74 20 63 67 69 ined..*/.int cgi
5420: 5f 61 6e 79 28 63 6f 6e 73 74 20 63 68 61 72 20 _any(const char
5430: 2a 7a 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61 5f 6c *z, ...){. va_l
5440: 69 73 74 20 61 70 3b 0a 20 20 63 68 61 72 20 2a ist ap;. char *
5450: 7a 32 3b 0a 20 20 69 66 28 20 63 67 69 5f 70 61 z2;. if( cgi_pa
5460: 72 61 6d 65 74 65 72 28 7a 2c 30 29 21 3d 30 20 rameter(z,0)!=0
5470: 29 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 76 61 ) return 1;. va
5480: 5f 73 74 61 72 74 28 61 70 2c 20 7a 29 3b 0a 20 _start(ap, z);.
5490: 20 77 68 69 6c 65 28 20 28 7a 32 20 3d 20 76 61 while( (z2 = va
54a0: 5f 61 72 67 28 61 70 2c 20 63 68 61 72 2a 29 29 _arg(ap, char*))
54b0: 21 3d 30 20 29 7b 0a 20 20 20 20 69 66 28 20 63 !=0 ){. if( c
54c0: 67 69 5f 70 61 72 61 6d 65 74 65 72 28 7a 32 2c gi_parameter(z2,
54d0: 30 29 21 3d 30 20 29 20 72 65 74 75 72 6e 20 31 0)!=0 ) return 1
54e0: 3b 0a 20 20 7d 0a 20 20 76 61 5f 65 6e 64 28 61 ;. }. va_end(a
54f0: 70 29 3b 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a p);. return 0;.
5500: 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 }../*.** Return
5510: 74 72 75 65 20 69 66 20 61 6c 6c 20 6f 66 20 74 true if all of t
5520: 68 65 20 71 75 65 72 79 20 70 61 72 61 6d 65 74 he query paramet
5530: 65 72 73 20 69 6e 20 74 68 65 20 61 72 67 75 6d ers in the argum
5540: 65 6e 74 20 6c 69 73 74 0a 2a 2a 20 61 72 65 20 ent list.** are
5550: 64 65 66 69 6e 65 64 2e 0a 2a 2f 0a 69 6e 74 20 defined..*/.int
5560: 63 67 69 5f 61 6c 6c 28 63 6f 6e 73 74 20 63 68 cgi_all(const ch
5570: 61 72 20 2a 7a 2c 20 2e 2e 2e 29 7b 0a 20 20 76 ar *z, ...){. v
5580: 61 5f 6c 69 73 74 20 61 70 3b 0a 20 20 63 68 61 a_list ap;. cha
5590: 72 20 2a 7a 32 3b 0a 20 20 69 66 28 20 63 67 69 r *z2;. if( cgi
55a0: 5f 70 61 72 61 6d 65 74 65 72 28 7a 2c 30 29 3d _parameter(z,0)=
55b0: 3d 30 20 29 20 72 65 74 75 72 6e 20 30 3b 0a 20 =0 ) return 0;.
55c0: 20 76 61 5f 73 74 61 72 74 28 61 70 2c 20 7a 29 va_start(ap, z)
55d0: 3b 0a 20 20 77 68 69 6c 65 28 20 28 7a 32 20 3d ;. while( (z2 =
55e0: 20 76 61 5f 61 72 67 28 61 70 2c 20 63 68 61 72 va_arg(ap, char
55f0: 2a 29 29 3d 3d 30 20 29 7b 0a 20 20 20 20 69 66 *))==0 ){. if
5600: 28 20 63 67 69 5f 70 61 72 61 6d 65 74 65 72 28 ( cgi_parameter(
5610: 7a 32 2c 30 29 3d 3d 30 20 29 20 72 65 74 75 72 z2,0)==0 ) retur
5620: 6e 20 30 3b 0a 20 20 7d 0a 20 20 76 61 5f 65 6e n 0;. }. va_en
5630: 64 28 61 70 29 3b 0a 20 20 72 65 74 75 72 6e 20 d(ap);. return
5640: 31 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 72 69 6e 1;.}../*.** Prin
5650: 74 20 61 6c 6c 20 71 75 65 72 79 20 70 61 72 61 t all query para
5660: 6d 65 74 65 72 73 20 6f 6e 20 73 74 61 6e 64 61 meters on standa
5670: 72 64 20 6f 75 74 70 75 74 2e 20 20 46 6f 72 6d rd output. Form
5680: 61 74 20 74 68 65 0a 2a 2a 20 70 61 72 61 6d 65 at the.** parame
5690: 74 65 72 73 20 61 73 20 48 54 4d 4c 2e 20 20 54 ters as HTML. T
56a0: 68 69 73 20 69 73 20 75 73 65 64 20 66 6f 72 20 his is used for
56b0: 74 65 73 74 69 6e 67 20 61 6e 64 20 64 65 62 75 testing and debu
56c0: 67 67 69 6e 67 2e 0a 2a 2f 0a 76 6f 69 64 20 63 gging..*/.void c
56d0: 67 69 5f 70 72 69 6e 74 5f 61 6c 6c 28 76 6f 69 gi_print_all(voi
56e0: 64 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 63 d){. int i;. c
56f0: 67 69 5f 70 61 72 61 6d 65 74 65 72 28 22 22 2c gi_parameter("",
5700: 22 22 29 3b 20 20 2f 2a 20 46 6f 72 63 65 20 74 ""); /* Force t
5710: 68 65 20 70 61 72 61 6d 65 74 65 72 73 20 69 6e he parameters in
5720: 74 6f 20 73 6f 72 74 65 64 20 6f 72 64 65 72 20 to sorted order
5730: 2a 2f 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c */. for(i=0; i<
5740: 6e 55 73 65 64 51 50 3b 20 69 2b 2b 29 7b 0a 20 nUsedQP; i++){.
5750: 20 20 20 63 67 69 5f 70 72 69 6e 74 66 28 22 25 cgi_printf("%
5760: 73 20 3d 20 25 73 20 20 3c 62 72 20 2f 3e 5c 6e s = %s <br />\n
5770: 22 2c 0a 20 20 20 20 20 20 20 68 74 6d 6c 69 7a ",. htmliz
5780: 65 28 61 50 61 72 61 6d 51 50 5b 69 5d 2e 7a 4e e(aParamQP[i].zN
5790: 61 6d 65 2c 20 2d 31 29 2c 20 68 74 6d 6c 69 7a ame, -1), htmliz
57a0: 65 28 61 50 61 72 61 6d 51 50 5b 69 5d 2e 7a 56 e(aParamQP[i].zV
57b0: 61 6c 75 65 2c 20 2d 31 29 29 3b 0a 20 20 7d 0a alue, -1));. }.
57c0: 7d 0a 0a 2f 2a 0a 2a 2a 20 57 72 69 74 65 20 48 }../*.** Write H
57d0: 54 4d 4c 20 74 65 78 74 20 66 6f 72 20 61 6e 20 TML text for an
57e0: 6f 70 74 69 6f 6e 20 6d 65 6e 75 20 74 6f 20 73 option menu to s
57f0: 74 61 6e 64 61 72 64 20 6f 75 74 70 75 74 2e 20 tandard output.
5800: 20 7a 50 61 72 61 6d 0a 2a 2a 20 69 73 20 74 68 zParam.** is th
5810: 65 20 71 75 65 72 79 20 70 61 72 61 6d 65 74 65 e query paramete
5820: 72 20 74 68 61 74 20 74 68 65 20 6f 70 74 69 6f r that the optio
5830: 6e 20 6d 65 6e 75 20 73 65 74 73 2e 20 20 7a 44 n menu sets. zD
5840: 66 6c 74 20 69 73 20 74 68 65 0a 2a 2a 20 69 6e flt is the.** in
5850: 69 74 69 61 6c 20 76 61 6c 75 65 20 6f 66 20 74 itial value of t
5860: 68 65 20 6f 70 74 69 6f 6e 20 6d 65 6e 75 2e 20 he option menu.
5870: 20 41 64 64 69 74 69 6f 6e 20 61 72 67 75 6d 65 Addition argume
5880: 6e 74 73 20 61 72 65 20 6e 61 6d 65 2f 76 61 6c nts are name/val
5890: 75 65 0a 2a 2a 20 70 61 69 72 73 20 74 68 61 74 ue.** pairs that
58a0: 20 64 65 66 69 6e 65 20 76 61 6c 75 65 73 20 6f define values o
58b0: 6e 20 74 68 65 20 6d 65 6e 75 2e 20 20 54 68 65 n the menu. The
58c0: 20 6c 69 73 74 20 69 73 20 74 65 72 6d 69 6e 61 list is termina
58d0: 74 65 64 20 77 69 74 68 0a 2a 2a 20 61 20 73 69 ted with.** a si
58e0: 6e 67 6c 65 20 4e 55 4c 4c 20 61 72 67 75 6d 65 ngle NULL argume
58f0: 6e 74 2e 0a 2a 2f 0a 76 6f 69 64 20 63 67 69 5f nt..*/.void cgi_
5900: 6f 70 74 69 6f 6e 6d 65 6e 75 28 69 6e 74 20 69 optionmenu(int i
5910: 6e 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a n, const char *z
5920: 50 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a P, const char *z
5930: 44 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61 5f 6c 69 D, ...){. va_li
5940: 73 74 20 61 70 3b 0a 20 20 63 68 61 72 20 2a 7a st ap;. char *z
5950: 4e 61 6d 65 2c 20 2a 7a 56 61 6c 3b 0a 20 20 69 Name, *zVal;. i
5960: 6e 74 20 64 66 6c 74 53 65 65 6e 20 3d 20 30 3b nt dfltSeen = 0;
5970: 0a 20 20 63 67 69 5f 70 72 69 6e 74 66 28 22 25 . cgi_printf("%
5980: 2a 73 3c 73 65 6c 65 63 74 20 73 69 7a 65 3d 31 *s<select size=1
5990: 20 6e 61 6d 65 3d 5c 22 25 73 5c 22 3e 5c 6e 22 name=\"%s\">\n"
59a0: 2c 20 69 6e 2c 20 22 22 2c 20 7a 50 29 3b 0a 20 , in, "", zP);.
59b0: 20 76 61 5f 73 74 61 72 74 28 61 70 2c 20 7a 44 va_start(ap, zD
59c0: 29 3b 0a 20 20 77 68 69 6c 65 28 20 28 7a 4e 61 );. while( (zNa
59d0: 6d 65 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 20 me = va_arg(ap,
59e0: 63 68 61 72 2a 29 29 21 3d 30 20 26 26 20 28 7a char*))!=0 && (z
59f0: 56 61 6c 20 3d 20 76 61 5f 61 72 67 28 61 70 2c Val = va_arg(ap,
5a00: 20 63 68 61 72 2a 29 29 21 3d 30 20 29 7b 0a 20 char*))!=0 ){.
5a10: 20 20 20 69 66 28 20 73 74 72 63 6d 70 28 7a 56 if( strcmp(zV
5a20: 61 6c 2c 7a 44 29 3d 3d 30 20 29 7b 20 64 66 6c al,zD)==0 ){ dfl
5a30: 74 53 65 65 6e 20 3d 20 31 3b 20 62 72 65 61 6b tSeen = 1; break
5a40: 3b 20 7d 0a 20 20 7d 0a 20 20 76 61 5f 65 6e 64 ; }. }. va_end
5a50: 28 61 70 29 3b 0a 20 20 69 66 28 20 21 64 66 6c (ap);. if( !dfl
5a60: 74 53 65 65 6e 20 29 7b 0a 20 20 20 20 69 66 28 tSeen ){. if(
5a70: 20 7a 44 5b 30 5d 20 29 7b 0a 20 20 20 20 20 20 zD[0] ){.
5a80: 63 67 69 5f 70 72 69 6e 74 66 28 22 25 2a 73 3c cgi_printf("%*s<
5a90: 6f 70 74 69 6f 6e 20 76 61 6c 75 65 3d 5c 22 25 option value=\"%
5aa0: 68 5c 22 20 73 65 6c 65 63 74 65 64 3e 25 68 3c h\" selected>%h<
5ab0: 2f 6f 70 74 69 6f 6e 3e 5c 6e 22 2c 0a 20 20 20 /option>\n",.
5ac0: 20 20 20 20 20 69 6e 2b 32 2c 20 22 22 2c 20 7a in+2, "", z
5ad0: 44 2c 20 7a 44 29 3b 0a 20 20 20 20 7d 65 6c 73 D, zD);. }els
5ae0: 65 7b 0a 20 20 20 20 20 20 63 67 69 5f 70 72 69 e{. cgi_pri
5af0: 6e 74 66 28 22 25 2a 73 3c 6f 70 74 69 6f 6e 20 ntf("%*s<option
5b00: 76 61 6c 75 65 3d 5c 22 5c 22 20 73 65 6c 65 63 value=\"\" selec
5b10: 74 65 64 3e 26 6e 62 73 70 3b 3c 2f 6f 70 74 69 ted> </opti
5b20: 6f 6e 3e 5c 6e 22 2c 20 69 6e 2b 32 2c 20 22 22 on>\n", in+2, ""
5b30: 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 76 );. }. }. v
5b40: 61 5f 73 74 61 72 74 28 61 70 2c 20 7a 44 29 3b a_start(ap, zD);
5b50: 0a 20 20 77 68 69 6c 65 28 20 28 7a 4e 61 6d 65 . while( (zName
5b60: 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 20 63 68 = va_arg(ap, ch
5b70: 61 72 2a 29 29 21 3d 30 20 26 26 20 28 7a 56 61 ar*))!=0 && (zVa
5b80: 6c 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 20 63 l = va_arg(ap, c
5b90: 68 61 72 2a 29 29 21 3d 30 20 29 7b 0a 20 20 20 har*))!=0 ){.
5ba0: 20 69 66 28 20 7a 4e 61 6d 65 5b 30 5d 20 29 7b if( zName[0] ){
5bb0: 0a 20 20 20 20 20 20 63 67 69 5f 70 72 69 6e 74 . cgi_print
5bc0: 66 28 22 25 2a 73 3c 6f 70 74 69 6f 6e 20 76 61 f("%*s<option va
5bd0: 6c 75 65 3d 5c 22 25 68 5c 22 25 73 3e 25 68 3c lue=\"%h\"%s>%h<
5be0: 2f 6f 70 74 69 6f 6e 3e 5c 6e 22 2c 0a 20 20 20 /option>\n",.
5bf0: 20 20 20 20 20 69 6e 2b 32 2c 20 22 22 2c 0a 20 in+2, "",.
5c00: 20 20 20 20 20 20 20 7a 56 61 6c 2c 0a 20 20 20 zVal,.
5c10: 20 20 20 20 20 73 74 72 63 6d 70 28 7a 56 61 6c strcmp(zVal
5c20: 2c 20 7a 44 29 20 3f 20 22 22 20 3a 20 22 20 73 , zD) ? "" : " s
5c30: 65 6c 65 63 74 65 64 22 2c 0a 20 20 20 20 20 20 elected",.
5c40: 20 20 7a 4e 61 6d 65 0a 20 20 20 20 20 20 29 3b zName. );
5c50: 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 . }else{.
5c60: 20 20 63 67 69 5f 70 72 69 6e 74 66 28 22 25 2a cgi_printf("%*
5c70: 73 3c 6f 70 74 69 6f 6e 20 76 61 6c 75 65 3d 5c s<option value=\
5c80: 22 5c 22 25 73 3e 26 6e 62 73 70 3b 3c 2f 6f 70 "\"%s> </op
5c90: 74 69 6f 6e 3e 5c 6e 22 2c 0a 20 20 20 20 20 20 tion>\n",.
5ca0: 20 20 69 6e 2b 32 2c 20 22 22 2c 0a 20 20 20 20 in+2, "",.
5cb0: 20 20 20 20 73 74 72 63 6d 70 28 7a 56 61 6c 2c strcmp(zVal,
5cc0: 20 7a 44 29 20 3f 20 22 22 20 3a 20 22 20 73 65 zD) ? "" : " se
5cd0: 6c 65 63 74 65 64 22 0a 20 20 20 20 20 20 29 3b lected". );
5ce0: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 76 61 5f . }. }. va_
5cf0: 65 6e 64 28 61 70 29 3b 0a 20 20 63 67 69 5f 70 end(ap);. cgi_p
5d00: 72 69 6e 74 66 28 22 25 2a 73 3c 2f 73 65 6c 65 rintf("%*s</sele
5d10: 63 74 3e 5c 6e 22 2c 20 69 6e 2c 20 22 22 29 3b ct>\n", in, "");
5d20: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 72 .}../*.** This r
5d30: 6f 75 74 69 6e 65 20 77 6f 72 6b 73 20 61 20 6c outine works a l
5d40: 6f 74 20 6c 69 6b 65 20 63 67 69 5f 6f 70 74 69 ot like cgi_opti
5d50: 6f 6e 6d 65 6e 75 28 29 20 65 78 63 65 70 74 20 onmenu() except
5d60: 74 68 61 74 20 74 68 65 20 6c 69 73 74 20 6f 66 that the list of
5d70: 0a 2a 2a 20 76 61 6c 75 65 73 20 69 73 20 63 6f .** values is co
5d80: 6e 74 61 69 6e 65 64 20 69 6e 20 61 6e 20 61 72 ntained in an ar
5d90: 72 61 79 2e 20 20 41 6c 73 6f 2c 20 74 68 65 20 ray. Also, the
5da0: 76 61 6c 75 65 73 20 61 72 65 20 6a 75 73 74 20 values are just
5db0: 76 61 6c 75 65 73 2c 20 6e 6f 74 0a 2a 2a 20 6e values, not.** n
5dc0: 61 6d 65 2f 76 61 6c 75 65 20 70 61 69 72 73 20 ame/value pairs
5dd0: 61 73 20 69 6e 20 63 67 69 5f 6f 70 74 69 6f 6e as in cgi_option
5de0: 6d 65 6e 75 2e 0a 2a 2f 0a 76 6f 69 64 20 63 67 menu..*/.void cg
5df0: 69 5f 76 5f 6f 70 74 69 6f 6e 6d 65 6e 75 28 0a i_v_optionmenu(.
5e00: 20 20 69 6e 74 20 69 6e 2c 20 20 20 20 20 20 20 int in,
5e10: 20 20 20 20 20 20 20 2f 2a 20 49 6e 64 65 6e 74 /* Indent
5e20: 20 62 79 20 74 68 69 73 20 61 6d 6f 75 6e 74 20 by this amount
5e30: 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 */. const char
5e40: 2a 7a 50 2c 20 20 20 20 20 20 2f 2a 20 54 68 65 *zP, /* The
5e50: 20 71 75 65 72 79 20 70 61 72 61 6d 65 74 65 72 query parameter
5e60: 20 6e 61 6d 65 20 2a 2f 0a 20 20 63 6f 6e 73 74 name */. const
5e70: 20 63 68 61 72 20 2a 7a 44 2c 20 20 20 20 20 20 char *zD,
5e80: 2f 2a 20 44 65 66 61 75 6c 74 20 76 61 6c 75 65 /* Default value
5e90: 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 */. const char
5ea0: 20 2a 2a 61 7a 20 20 20 20 20 20 2f 2a 20 4e 55 **az /* NU
5eb0: 4c 4c 2d 74 65 72 6d 69 6e 61 74 65 64 20 6c 69 LL-terminated li
5ec0: 73 74 20 6f 66 20 61 6c 6c 6f 77 65 64 20 76 61 st of allowed va
5ed0: 6c 75 65 73 20 2a 2f 0a 29 7b 0a 20 20 63 6f 6e lues */.){. con
5ee0: 73 74 20 63 68 61 72 20 2a 7a 56 61 6c 3b 0a 20 st char *zVal;.
5ef0: 20 69 6e 74 20 69 3b 0a 20 20 63 67 69 5f 70 72 int i;. cgi_pr
5f00: 69 6e 74 66 28 22 25 2a 73 3c 73 65 6c 65 63 74 intf("%*s<select
5f10: 20 73 69 7a 65 3d 31 20 6e 61 6d 65 3d 5c 22 25 size=1 name=\"%
5f20: 73 5c 22 3e 5c 6e 22 2c 20 69 6e 2c 20 22 22 2c s\">\n", in, "",
5f30: 20 7a 50 29 3b 0a 20 20 66 6f 72 28 69 3d 30 3b zP);. for(i=0;
5f40: 20 61 7a 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 az[i]; i++){.
5f50: 20 20 69 66 28 20 73 74 72 63 6d 70 28 61 7a 5b if( strcmp(az[
5f60: 69 5d 2c 7a 44 29 3d 3d 30 20 29 20 62 72 65 61 i],zD)==0 ) brea
5f70: 6b 3b 0a 20 20 7d 0a 20 20 69 66 28 20 61 7a 5b k;. }. if( az[
5f80: 69 5d 3d 3d 30 20 29 7b 0a 20 20 20 20 69 66 28 i]==0 ){. if(
5f90: 20 7a 44 5b 30 5d 3d 3d 30 20 29 7b 0a 20 20 20 zD[0]==0 ){.
5fa0: 20 20 20 63 67 69 5f 70 72 69 6e 74 66 28 22 25 cgi_printf("%
5fb0: 2a 73 3c 6f 70 74 69 6f 6e 20 76 61 6c 75 65 3d *s<option value=
5fc0: 5c 22 5c 22 20 73 65 6c 65 63 74 65 64 3e 26 6e \"\" selected>&n
5fd0: 62 73 70 3b 3c 2f 6f 70 74 69 6f 6e 3e 5c 6e 22 bsp;</option>\n"
5fe0: 2c 0a 20 20 20 20 20 20 20 69 6e 2b 32 2c 20 22 ,. in+2, "
5ff0: 22 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 ");. }else{.
6000: 20 20 20 20 20 63 67 69 5f 70 72 69 6e 74 66 28 cgi_printf(
6010: 22 25 2a 73 3c 6f 70 74 69 6f 6e 20 76 61 6c 75 "%*s<option valu
6020: 65 3d 5c 22 25 68 5c 22 20 73 65 6c 65 63 74 65 e=\"%h\" selecte
6030: 64 3e 25 68 3c 2f 6f 70 74 69 6f 6e 3e 5c 6e 22 d>%h</option>\n"
6040: 2c 0a 20 20 20 20 20 20 20 69 6e 2b 32 2c 20 22 ,. in+2, "
6050: 22 2c 20 7a 44 2c 20 7a 44 29 3b 0a 20 20 20 20 ", zD, zD);.
6060: 7d 0a 20 20 7d 0a 20 20 77 68 69 6c 65 28 20 28 }. }. while( (
6070: 7a 56 61 6c 20 3d 20 2a 28 61 7a 2b 2b 29 29 21 zVal = *(az++))!
6080: 3d 30 20 20 29 7b 0a 20 20 20 20 69 66 28 20 7a =0 ){. if( z
6090: 56 61 6c 5b 30 5d 20 29 7b 0a 20 20 20 20 20 20 Val[0] ){.
60a0: 63 67 69 5f 70 72 69 6e 74 66 28 22 25 2a 73 3c cgi_printf("%*s<
60b0: 6f 70 74 69 6f 6e 20 76 61 6c 75 65 3d 5c 22 25 option value=\"%
60c0: 68 5c 22 25 73 3e 25 68 3c 2f 6f 70 74 69 6f 6e h\"%s>%h</option
60d0: 3e 5c 6e 22 2c 0a 20 20 20 20 20 20 20 20 69 6e >\n",. in
60e0: 2b 32 2c 20 22 22 2c 0a 20 20 20 20 20 20 20 20 +2, "",.
60f0: 7a 56 61 6c 2c 0a 20 20 20 20 20 20 20 20 73 74 zVal,. st
6100: 72 63 6d 70 28 7a 56 61 6c 2c 20 7a 44 29 20 3f rcmp(zVal, zD) ?
6110: 20 22 22 20 3a 20 22 20 73 65 6c 65 63 74 65 64 "" : " selected
6120: 22 2c 0a 20 20 20 20 20 20 20 20 7a 56 61 6c 0a ",. zVal.
6130: 20 20 20 20 20 20 29 3b 0a 20 20 20 20 7d 65 6c );. }el
6140: 73 65 7b 0a 20 20 20 20 20 20 63 67 69 5f 70 72 se{. cgi_pr
6150: 69 6e 74 66 28 22 25 2a 73 3c 6f 70 74 69 6f 6e intf("%*s<option
6160: 20 76 61 6c 75 65 3d 5c 22 5c 22 25 73 3e 26 6e value=\"\"%s>&n
6170: 62 73 70 3b 3c 2f 6f 70 74 69 6f 6e 3e 5c 6e 22 bsp;</option>\n"
6180: 2c 0a 20 20 20 20 20 20 20 20 69 6e 2b 32 2c 20 ,. in+2,
6190: 22 22 2c 0a 20 20 20 20 20 20 20 20 73 74 72 63 "",. strc
61a0: 6d 70 28 7a 56 61 6c 2c 20 7a 44 29 20 3f 20 22 mp(zVal, zD) ? "
61b0: 22 20 3a 20 22 20 73 65 6c 65 63 74 65 64 22 0a " : " selected".
61c0: 20 20 20 20 20 20 29 3b 0a 20 20 20 20 7d 0a 20 );. }.
61d0: 20 7d 0a 20 20 63 67 69 5f 70 72 69 6e 74 66 28 }. cgi_printf(
61e0: 22 25 2a 73 3c 2f 73 65 6c 65 63 74 3e 5c 6e 22 "%*s</select>\n"
61f0: 2c 20 69 6e 2c 20 22 22 29 3b 0a 7d 0a 0a 2f 2a , in, "");.}../*
6200: 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 69 6e 65 .** This routine
6210: 20 77 6f 72 6b 73 20 61 20 6c 6f 74 20 6c 69 6b works a lot lik
6220: 65 20 63 67 69 5f 76 5f 6f 70 74 69 6f 6e 6d 65 e cgi_v_optionme
6230: 6e 75 28 29 20 65 78 63 65 70 74 20 74 68 61 74 nu() except that
6240: 20 74 68 65 20 6c 69 73 74 0a 2a 2a 20 69 73 20 the list.** is
6250: 61 20 6c 69 73 74 20 6f 66 20 70 61 69 72 73 2e a list of pairs.
6260: 20 20 54 68 65 20 66 69 72 73 74 20 65 6c 65 6d The first elem
6270: 65 6e 74 20 6f 66 20 65 61 63 68 20 70 61 69 72 ent of each pair
6280: 20 69 73 20 74 68 65 20 76 61 6c 75 65 20 75 73 is the value us
6290: 65 64 0a 2a 2a 20 69 6e 74 65 72 6e 61 6c 6c 79 ed.** internally
62a0: 20 61 6e 64 20 74 68 65 20 73 65 63 6f 6e 64 20 and the second
62b0: 65 6c 65 6d 65 6e 74 20 69 73 20 74 68 65 20 76 element is the v
62c0: 61 6c 75 65 20 64 69 73 70 6c 61 79 65 64 20 74 alue displayed t
62d0: 6f 20 74 68 65 20 75 73 65 72 2e 0a 2a 2f 0a 76 o the user..*/.v
62e0: 6f 69 64 20 63 67 69 5f 76 5f 6f 70 74 69 6f 6e oid cgi_v_option
62f0: 6d 65 6e 75 32 28 0a 20 20 69 6e 74 20 69 6e 2c menu2(. int in,
6300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
6310: 20 49 6e 64 65 6e 74 20 62 79 20 74 68 69 73 20 Indent by this
6320: 61 6d 6f 75 6e 74 20 2a 2f 0a 20 20 63 6f 6e 73 amount */. cons
6330: 74 20 63 68 61 72 20 2a 7a 50 2c 20 20 20 20 20 t char *zP,
6340: 20 2f 2a 20 54 68 65 20 71 75 65 72 79 20 70 61 /* The query pa
6350: 72 61 6d 65 74 65 72 20 6e 61 6d 65 20 2a 2f 0a rameter name */.
6360: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 const char *zD
6370: 2c 20 20 20 20 20 20 2f 2a 20 44 65 66 61 75 6c , /* Defaul
6380: 74 20 76 61 6c 75 65 20 2a 2f 0a 20 20 63 6f 6e t value */. con
6390: 73 74 20 63 68 61 72 20 2a 2a 61 7a 20 20 20 20 st char **az
63a0: 20 20 2f 2a 20 4e 55 4c 4c 2d 74 65 72 6d 69 6e /* NULL-termin
63b0: 61 74 65 64 20 6c 69 73 74 20 6f 66 20 61 6c 6c ated list of all
63c0: 6f 77 65 64 20 76 61 6c 75 65 73 20 2a 2f 0a 29 owed values */.)
63d0: 7b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a {. const char *
63e0: 7a 56 61 6c 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 zVal;. int i;.
63f0: 20 63 67 69 5f 70 72 69 6e 74 66 28 22 25 2a 73 cgi_printf("%*s
6400: 3c 73 65 6c 65 63 74 20 73 69 7a 65 3d 31 20 6e <select size=1 n
6410: 61 6d 65 3d 5c 22 25 73 5c 22 3e 5c 6e 22 2c 20 ame=\"%s\">\n",
6420: 69 6e 2c 20 22 22 2c 20 7a 50 29 3b 0a 20 20 66 in, "", zP);. f
6430: 6f 72 28 69 3d 30 3b 20 61 7a 5b 69 5d 3b 20 69 or(i=0; az[i]; i
6440: 2b 3d 32 29 7b 0a 20 20 20 20 69 66 28 20 73 74 +=2){. if( st
6450: 72 63 6d 70 28 61 7a 5b 69 5d 2c 7a 44 29 3d 3d rcmp(az[i],zD)==
6460: 30 20 29 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 20 0 ) break;. }.
6470: 20 69 66 28 20 61 7a 5b 69 5d 3d 3d 30 20 29 7b if( az[i]==0 ){
6480: 0a 20 20 20 20 69 66 28 20 7a 44 5b 30 5d 3d 3d . if( zD[0]==
6490: 30 20 29 7b 0a 20 20 20 20 20 20 63 67 69 5f 70 0 ){. cgi_p
64a0: 72 69 6e 74 66 28 22 25 2a 73 3c 6f 70 74 69 6f rintf("%*s<optio
64b0: 6e 20 76 61 6c 75 65 3d 5c 22 5c 22 20 73 65 6c n value=\"\" sel
64c0: 65 63 74 65 64 3e 26 6e 62 73 70 3b 3c 2f 6f 70 ected> </op
64d0: 74 69 6f 6e 3e 5c 6e 22 2c 0a 20 20 20 20 20 20 tion>\n",.
64e0: 20 69 6e 2b 32 2c 20 22 22 29 3b 0a 20 20 20 20 in+2, "");.
64f0: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 63 67 69 }else{. cgi
6500: 5f 70 72 69 6e 74 66 28 22 25 2a 73 3c 6f 70 74 _printf("%*s<opt
6510: 69 6f 6e 20 76 61 6c 75 65 3d 5c 22 25 68 5c 22 ion value=\"%h\"
6520: 20 73 65 6c 65 63 74 65 64 3e 25 68 3c 2f 6f 70 selected>%h</op
6530: 74 69 6f 6e 3e 5c 6e 22 2c 0a 20 20 20 20 20 20 tion>\n",.
6540: 20 69 6e 2b 32 2c 20 22 22 2c 20 7a 44 2c 20 7a in+2, "", zD, z
6550: 44 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 D);. }. }.
6560: 77 68 69 6c 65 28 20 28 7a 56 61 6c 20 3d 20 2a while( (zVal = *
6570: 28 61 7a 2b 2b 29 29 21 3d 30 20 20 29 7b 0a 20 (az++))!=0 ){.
6580: 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a const char *z
6590: 4e 61 6d 65 20 3d 20 2a 28 61 7a 2b 2b 29 3b 0a Name = *(az++);.
65a0: 20 20 20 20 69 66 28 20 7a 4e 61 6d 65 5b 30 5d if( zName[0]
65b0: 20 29 7b 0a 20 20 20 20 20 20 63 67 69 5f 70 72 ){. cgi_pr
65c0: 69 6e 74 66 28 22 25 2a 73 3c 6f 70 74 69 6f 6e intf("%*s<option
65d0: 20 76 61 6c 75 65 3d 5c 22 25 68 5c 22 25 73 3e value=\"%h\"%s>
65e0: 25 68 3c 2f 6f 70 74 69 6f 6e 3e 5c 6e 22 2c 0a %h</option>\n",.
65f0: 20 20 20 20 20 20 20 20 69 6e 2b 32 2c 20 22 22 in+2, ""
6600: 2c 0a 20 20 20 20 20 20 20 20 7a 56 61 6c 2c 0a ,. zVal,.
6610: 20 20 20 20 20 20 20 20 73 74 72 63 6d 70 28 7a strcmp(z
6620: 56 61 6c 2c 20 7a 44 29 20 3f 20 22 22 20 3a 20 Val, zD) ? "" :
6630: 22 20 73 65 6c 65 63 74 65 64 22 2c 0a 20 20 20 " selected",.
6640: 20 20 20 20 20 7a 4e 61 6d 65 0a 20 20 20 20 20 zName.
6650: 20 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 );. }else{.
6660: 20 20 20 20 20 63 67 69 5f 70 72 69 6e 74 66 28 cgi_printf(
6670: 22 25 2a 73 3c 6f 70 74 69 6f 6e 20 76 61 6c 75 "%*s<option valu
6680: 65 3d 5c 22 25 68 5c 22 25 73 3e 26 6e 62 73 70 e=\"%h\"%s> 
6690: 3b 3c 2f 6f 70 74 69 6f 6e 3e 5c 6e 22 2c 0a 20 ;</option>\n",.
66a0: 20 20 20 20 20 20 20 69 6e 2b 32 2c 20 22 22 2c in+2, "",
66b0: 0a 20 20 20 20 20 20 20 20 7a 56 61 6c 2c 0a 20 . zVal,.
66c0: 20 20 20 20 20 20 20 73 74 72 63 6d 70 28 7a 56 strcmp(zV
66d0: 61 6c 2c 20 7a 44 29 20 3f 20 22 22 20 3a 20 22 al, zD) ? "" : "
66e0: 20 73 65 6c 65 63 74 65 64 22 0a 20 20 20 20 20 selected".
66f0: 20 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 );. }. }.
6700: 63 67 69 5f 70 72 69 6e 74 66 28 22 25 2a 73 3c cgi_printf("%*s<
6710: 2f 73 65 6c 65 63 74 3e 5c 6e 22 2c 20 69 6e 2c /select>\n", in,
6720: 20 22 22 29 3b 0a 7d 0a 0a 2f 2a 20 0a 2a 2a 20 "");.}../* .**
6730: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 6d This function im
6740: 70 6c 65 6d 65 6e 74 73 20 74 68 65 20 63 61 6c plements the cal
6750: 6c 62 61 63 6b 20 66 72 6f 6d 20 76 78 70 72 69 lback from vxpri
6760: 6e 74 66 2e 20 0a 2a 2a 0a 2a 2a 20 54 68 69 73 ntf. .**.** This
6770: 20 72 6f 75 74 69 6e 65 20 73 65 6e 64 73 20 6e routine sends n
6780: 4e 65 77 43 68 61 72 20 63 68 61 72 61 63 74 65 NewChar characte
6790: 72 73 20 6f 66 20 74 65 78 74 20 69 6e 20 7a 4e rs of text in zN
67a0: 65 77 54 65 78 74 20 74 6f 0a 2a 2a 20 43 47 49 ewText to.** CGI
67b0: 20 72 65 70 6c 79 20 63 6f 6e 74 65 6e 74 20 62 reply content b
67c0: 75 66 66 65 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 uffer..*/.static
67d0: 20 76 6f 69 64 20 73 6f 75 74 28 76 6f 69 64 20 void sout(void
67e0: 2a 4e 6f 74 55 73 65 64 2c 20 63 6f 6e 73 74 20 *NotUsed, const
67f0: 63 68 61 72 20 2a 7a 4e 65 77 54 65 78 74 2c 20 char *zNewText,
6800: 69 6e 74 20 6e 4e 65 77 43 68 61 72 29 7b 0a 20 int nNewChar){.
6810: 20 63 67 69 5f 61 70 70 65 6e 64 5f 63 6f 6e 74 cgi_append_cont
6820: 65 6e 74 28 7a 4e 65 77 54 65 78 74 2c 20 6e 4e ent(zNewText, nN
6830: 65 77 43 68 61 72 29 3b 0a 7d 0a 0a 2f 2a 0a 2a ewChar);.}../*.*
6840: 2a 20 54 68 69 73 20 72 6f 75 74 69 6e 65 20 77 * This routine w
6850: 6f 72 6b 73 20 6c 69 6b 65 20 22 70 72 69 6e 74 orks like "print
6860: 66 22 20 65 78 63 65 70 74 20 74 68 61 74 20 69 f" except that i
6870: 74 20 68 61 73 20 74 68 65 0a 2a 2a 20 65 78 74 t has the.** ext
6880: 72 61 20 66 6f 72 6d 61 74 74 69 6e 67 20 63 61 ra formatting ca
6890: 70 61 62 69 6c 69 74 69 65 73 20 73 75 63 68 20 pabilities such
68a0: 61 73 20 25 68 20 61 6e 64 20 25 74 2e 0a 2a 2f as %h and %t..*/
68b0: 0a 76 6f 69 64 20 63 67 69 5f 70 72 69 6e 74 66 .void cgi_printf
68c0: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f (const char *zFo
68d0: 72 6d 61 74 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61 rmat, ...){. va
68e0: 5f 6c 69 73 74 20 61 70 3b 0a 20 20 76 61 5f 73 _list ap;. va_s
68f0: 74 61 72 74 28 61 70 2c 7a 46 6f 72 6d 61 74 29 tart(ap,zFormat)
6900: 3b 0a 20 20 76 78 70 72 69 6e 74 66 28 73 6f 75 ;. vxprintf(sou
6910: 74 2c 30 2c 7a 46 6f 72 6d 61 74 2c 61 70 29 3b t,0,zFormat,ap);
6920: 0a 20 20 76 61 5f 65 6e 64 28 61 70 29 3b 0a 7d . va_end(ap);.}
6930: 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 72 6f 75 ../*.** This rou
6940: 74 69 6e 65 20 77 6f 72 6b 73 20 6c 69 6b 65 20 tine works like
6950: 22 76 70 72 69 6e 74 66 22 20 65 78 63 65 70 74 "vprintf" except
6960: 20 74 68 61 74 20 69 74 20 68 61 73 20 74 68 65 that it has the
6970: 0a 2a 2a 20 65 78 74 72 61 20 66 6f 72 6d 61 74 .** extra format
6980: 74 69 6e 67 20 63 61 70 61 62 69 6c 69 74 69 65 ting capabilitie
6990: 73 20 73 75 63 68 20 61 73 20 25 68 20 61 6e 64 s such as %h and
69a0: 20 25 74 2e 0a 2a 2f 0a 76 6f 69 64 20 63 67 69 %t..*/.void cgi
69b0: 5f 76 70 72 69 6e 74 66 28 63 6f 6e 73 74 20 63 _vprintf(const c
69c0: 68 61 72 20 2a 7a 46 6f 72 6d 61 74 2c 20 76 61 har *zFormat, va
69d0: 5f 6c 69 73 74 20 61 70 29 7b 0a 20 20 76 78 70 _list ap){. vxp
69e0: 72 69 6e 74 66 28 73 6f 75 74 2c 30 2c 7a 46 6f rintf(sout,0,zFo
69f0: 72 6d 61 74 2c 61 70 29 3b 0a 7d 0a 0a 0a 2f 2a rmat,ap);.}.../*
6a00: 0a 2a 2a 20 53 65 6e 64 20 61 20 72 65 70 6c 79 .** Send a reply
6a10: 20 69 6e 64 69 63 61 74 69 6e 67 20 74 68 61 74 indicating that
6a20: 20 74 68 65 20 48 54 54 50 20 72 65 71 75 65 73 the HTTP reques
6a30: 74 20 77 61 73 20 6d 61 6c 66 6f 72 6d 65 64 0a t was malformed.
6a40: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 6d */.static void m
6a50: 61 6c 66 6f 72 6d 65 64 5f 72 65 71 75 65 73 74 alformed_request
6a60: 28 76 6f 69 64 29 7b 0a 20 20 63 67 69 5f 73 65 (void){. cgi_se
6a70: 74 5f 73 74 61 74 75 73 28 35 30 31 2c 20 22 4e t_status(501, "N
6a80: 6f 74 20 49 6d 70 6c 65 6d 65 6e 74 65 64 22 29 ot Implemented")
6a90: 3b 0a 20 20 63 67 69 5f 70 72 69 6e 74 66 28 0a ;. cgi_printf(.
6aa0: 20 20 20 20 22 3c 68 74 6d 6c 3e 3c 62 6f 64 79 "<html><body
6ab0: 3e 55 6e 72 65 63 6f 67 6e 69 7a 65 64 20 48 54 >Unrecognized HT
6ac0: 54 50 20 52 65 71 75 65 73 74 3c 2f 62 6f 64 79 TP Request</body
6ad0: 3e 3c 2f 68 74 6d 6c 3e 5c 6e 22 0a 20 20 29 3b ></html>\n". );
6ae0: 0a 20 20 63 67 69 5f 72 65 70 6c 79 28 29 3b 0a . cgi_reply();.
6af0: 20 20 65 78 69 74 28 30 29 3b 0a 7d 0a 0a 2f 2a exit(0);.}../*
6b00: 0a 2a 2a 20 50 61 6e 69 63 20 61 6e 64 20 64 69 .** Panic and di
6b10: 65 20 77 68 69 6c 65 20 70 72 6f 63 65 73 73 69 e while processi
6b20: 6e 67 20 61 20 77 65 62 70 61 67 65 2e 0a 2a 2f ng a webpage..*/
6b30: 0a 76 6f 69 64 20 63 67 69 5f 70 61 6e 69 63 28 .void cgi_panic(
6b40: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f 72 const char *zFor
6b50: 6d 61 74 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61 5f mat, ...){. va_
6b60: 6c 69 73 74 20 61 70 3b 0a 20 20 63 67 69 5f 72 list ap;. cgi_r
6b70: 65 73 65 74 5f 63 6f 6e 74 65 6e 74 28 29 3b 0a eset_content();.
6b80: 20 20 63 67 69 5f 73 65 74 5f 73 74 61 74 75 73 cgi_set_status
6b90: 28 35 30 30 2c 20 22 49 6e 74 65 72 6e 61 6c 20 (500, "Internal
6ba0: 53 65 72 76 65 72 20 45 72 72 6f 72 22 29 3b 0a Server Error");.
6bb0: 20 20 63 67 69 5f 70 72 69 6e 74 66 28 0a 20 20 cgi_printf(.
6bc0: 20 20 22 3c 68 74 6d 6c 3e 3c 62 6f 64 79 3e 3c "<html><body><
6bd0: 68 31 3e 49 6e 74 65 72 6e 61 6c 20 53 65 72 76 h1>Internal Serv
6be0: 65 72 20 45 72 72 6f 72 3c 2f 68 31 3e 5c 6e 22 er Error</h1>\n"
6bf0: 0a 20 20 20 20 22 3c 70 6c 61 69 6e 74 65 78 74 . "<plaintext
6c00: 3e 22 0a 20 20 29 3b 0a 20 20 76 61 5f 73 74 61 >". );. va_sta
6c10: 72 74 28 61 70 2c 20 7a 46 6f 72 6d 61 74 29 3b rt(ap, zFormat);
6c20: 0a 20 20 76 78 70 72 69 6e 74 66 28 73 6f 75 74 . vxprintf(sout
6c30: 2c 30 2c 7a 46 6f 72 6d 61 74 2c 61 70 29 3b 0a ,0,zFormat,ap);.
6c40: 20 20 76 61 5f 65 6e 64 28 61 70 29 3b 0a 20 20 va_end(ap);.
6c50: 63 67 69 5f 72 65 70 6c 79 28 29 3b 0a 20 20 65 cgi_reply();. e
6c60: 78 69 74 28 31 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a xit(1);.}../*.**
6c70: 20 52 65 6d 6f 76 65 20 74 68 65 20 66 69 72 73 Remove the firs
6c80: 74 20 73 70 61 63 65 2d 64 65 6c 69 6d 69 74 65 t space-delimite
6c90: 64 20 74 6f 6b 65 6e 20 66 72 6f 6d 20 61 20 73 d token from a s
6ca0: 74 72 69 6e 67 20 61 6e 64 20 72 65 74 75 72 6e tring and return
6cb0: 0a 2a 2a 20 61 20 70 6f 69 6e 74 65 72 20 74 6f .** a pointer to
6cc0: 20 69 74 2e 20 20 41 64 64 20 61 20 4e 55 4c 4c it. Add a NULL
6cd0: 20 74 6f 20 74 68 65 20 73 74 72 69 6e 67 20 74 to the string t
6ce0: 6f 20 74 65 72 6d 69 6e 61 74 65 20 74 68 65 20 o terminate the
6cf0: 74 6f 6b 65 6e 2e 0a 2a 2a 20 4d 61 6b 65 20 2a token..** Make *
6d00: 7a 4c 65 66 74 4f 76 65 72 20 70 6f 69 6e 74 20 zLeftOver point
6d10: 74 6f 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 to the start of
6d20: 74 68 65 20 6e 65 78 74 20 74 6f 6b 65 6e 2e 0a the next token..
6d30: 2a 2f 0a 73 74 61 74 69 63 20 63 68 61 72 20 2a */.static char *
6d40: 65 78 74 72 61 63 74 5f 74 6f 6b 65 6e 28 63 68 extract_token(ch
6d50: 61 72 20 2a 7a 49 6e 70 75 74 2c 20 63 68 61 72 ar *zInput, char
6d60: 20 2a 2a 7a 4c 65 66 74 4f 76 65 72 29 7b 0a 20 **zLeftOver){.
6d70: 20 63 68 61 72 20 2a 7a 52 65 73 75 6c 74 20 3d char *zResult =
6d80: 20 30 3b 0a 20 20 69 66 28 20 7a 49 6e 70 75 74 0;. if( zInput
6d90: 3d 3d 30 20 29 7b 0a 20 20 20 20 69 66 28 20 7a ==0 ){. if( z
6da0: 4c 65 66 74 4f 76 65 72 20 29 20 2a 7a 4c 65 66 LeftOver ) *zLef
6db0: 74 4f 76 65 72 20 3d 20 30 3b 0a 20 20 20 20 72 tOver = 0;. r
6dc0: 65 74 75 72 6e 20 30 3b 0a 20 20 7d 0a 20 20 77 eturn 0;. }. w
6dd0: 68 69 6c 65 28 20 69 73 73 70 61 63 65 28 2a 7a hile( isspace(*z
6de0: 49 6e 70 75 74 29 20 29 7b 20 7a 49 6e 70 75 74 Input) ){ zInput
6df0: 2b 2b 3b 20 7d 0a 20 20 7a 52 65 73 75 6c 74 20 ++; }. zResult
6e00: 3d 20 7a 49 6e 70 75 74 3b 0a 20 20 77 68 69 6c = zInput;. whil
6e10: 65 28 20 2a 7a 49 6e 70 75 74 20 26 26 20 21 69 e( *zInput && !i
6e20: 73 73 70 61 63 65 28 2a 7a 49 6e 70 75 74 29 20 sspace(*zInput)
6e30: 29 7b 20 7a 49 6e 70 75 74 2b 2b 3b 20 7d 0a 20 ){ zInput++; }.
6e40: 20 69 66 28 20 2a 7a 49 6e 70 75 74 20 29 7b 0a if( *zInput ){.
6e50: 20 20 20 20 2a 7a 49 6e 70 75 74 20 3d 20 30 3b *zInput = 0;
6e60: 0a 20 20 20 20 7a 49 6e 70 75 74 2b 2b 3b 0a 20 . zInput++;.
6e70: 20 20 20 77 68 69 6c 65 28 20 69 73 73 70 61 63 while( isspac
6e80: 65 28 2a 7a 49 6e 70 75 74 29 20 29 7b 20 7a 49 e(*zInput) ){ zI
6e90: 6e 70 75 74 2b 2b 3b 20 7d 0a 20 20 7d 0a 20 20 nput++; }. }.
6ea0: 69 66 28 20 7a 4c 65 66 74 4f 76 65 72 20 29 7b if( zLeftOver ){
6eb0: 20 2a 7a 4c 65 66 74 4f 76 65 72 20 3d 20 7a 49 *zLeftOver = zI
6ec0: 6e 70 75 74 3b 20 7d 0a 20 20 72 65 74 75 72 6e nput; }. return
6ed0: 20 7a 52 65 73 75 6c 74 3b 0a 7d 0a 0a 2f 2a 0a zResult;.}../*.
6ee0: 2a 2a 20 54 68 69 73 20 72 6f 75 74 69 6e 65 20 ** This routine
6ef0: 68 61 6e 64 6c 65 73 20 61 20 73 69 6e 67 6c 65 handles a single
6f00: 20 48 54 54 50 20 72 65 71 75 65 73 74 20 77 68 HTTP request wh
6f10: 69 63 68 20 69 73 20 63 6f 6d 69 6e 67 20 69 6e ich is coming in
6f20: 20 6f 6e 0a 2a 2a 20 73 74 61 6e 64 61 72 64 20 on.** standard
6f30: 69 6e 70 75 74 20 61 6e 64 20 77 68 69 63 68 20 input and which
6f40: 72 65 70 6c 69 65 73 20 6f 6e 20 73 74 61 6e 64 replies on stand
6f50: 61 72 64 20 6f 75 74 70 75 74 2e 0a 2a 2a 0a 2a ard output..**.*
6f60: 2a 20 54 68 65 20 48 54 54 50 20 72 65 71 75 65 * The HTTP reque
6f70: 73 74 20 69 73 20 72 65 61 64 20 66 72 6f 6d 20 st is read from
6f80: 73 74 61 6e 64 61 72 64 20 69 6e 70 75 74 20 61 standard input a
6f90: 6e 64 20 69 73 20 75 73 65 64 20 74 6f 20 69 6e nd is used to in
6fa0: 69 74 69 61 6c 69 7a 65 0a 2a 2a 20 65 6e 76 69 itialize.** envi
6fb0: 72 6f 6e 6d 65 6e 74 20 76 61 72 69 61 62 6c 65 ronment variable
6fc0: 73 20 61 73 20 70 65 72 20 43 47 49 2e 20 20 54 s as per CGI. T
6fd0: 68 65 20 63 67 69 5f 69 6e 69 74 28 29 20 72 6f he cgi_init() ro
6fe0: 75 74 69 6e 65 20 74 6f 20 63 6f 6d 70 6c 65 74 utine to complet
6ff0: 65 0a 2a 2a 20 74 68 65 20 73 65 74 75 70 2e 20 e.** the setup.
7000: 20 4f 6e 63 65 20 61 6c 6c 20 74 68 65 20 73 65 Once all the se
7010: 74 75 70 20 69 73 20 66 69 6e 69 73 68 65 64 2c tup is finished,
7020: 20 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 this procedure
7030: 72 65 74 75 72 6e 73 0a 2a 2a 20 61 6e 64 20 73 returns.** and s
7040: 75 62 73 65 71 75 65 6e 74 20 63 6f 64 65 20 68 ubsequent code h
7050: 61 6e 64 6c 65 73 20 74 68 65 20 61 63 74 75 61 andles the actua
7060: 6c 20 67 65 6e 65 72 61 74 69 6f 6e 20 6f 66 20 l generation of
7070: 74 68 65 20 77 65 62 70 61 67 65 2e 0a 2a 2f 0a the webpage..*/.
7080: 76 6f 69 64 20 63 67 69 5f 68 61 6e 64 6c 65 5f void cgi_handle_
7090: 68 74 74 70 5f 72 65 71 75 65 73 74 28 76 6f 69 http_request(voi
70a0: 64 29 7b 0a 20 20 63 68 61 72 20 2a 7a 2c 20 2a d){. char *z, *
70b0: 7a 54 6f 6b 65 6e 3b 0a 20 20 69 6e 74 20 69 3b zToken;. int i;
70c0: 0a 20 20 73 74 72 75 63 74 20 73 6f 63 6b 61 64 . struct sockad
70d0: 64 72 5f 69 6e 20 72 65 6d 6f 74 65 4e 61 6d 65 dr_in remoteName
70e0: 3b 0a 20 20 73 69 7a 65 5f 74 20 73 69 7a 65 20 ;. size_t size
70f0: 3d 20 73 69 7a 65 6f 66 28 73 74 72 75 63 74 20 = sizeof(struct
7100: 73 6f 63 6b 61 64 64 72 5f 69 6e 29 3b 0a 20 20 sockaddr_in);.
7110: 63 68 61 72 20 7a 4c 69 6e 65 5b 32 30 30 30 5d char zLine[2000]
7120: 3b 20 20 20 20 20 2f 2a 20 41 20 73 69 6e 67 6c ; /* A singl
7130: 65 20 6c 69 6e 65 20 6f 66 20 69 6e 70 75 74 2e e line of input.
7140: 20 2a 2f 0a 0a 20 20 66 75 6c 6c 48 74 74 70 52 */.. fullHttpR
7150: 65 70 6c 79 20 3d 20 31 3b 0a 20 20 69 66 28 20 eply = 1;. if(
7160: 66 67 65 74 73 28 7a 4c 69 6e 65 2c 20 73 69 7a fgets(zLine, siz
7170: 65 6f 66 28 7a 4c 69 6e 65 29 2c 20 73 74 64 69 eof(zLine), stdi
7180: 6e 29 3d 3d 30 20 29 7b 0a 20 20 20 20 6d 61 6c n)==0 ){. mal
7190: 66 6f 72 6d 65 64 5f 72 65 71 75 65 73 74 28 29 formed_request()
71a0: 3b 0a 20 20 7d 0a 20 20 7a 54 6f 6b 65 6e 20 3d ;. }. zToken =
71b0: 20 65 78 74 72 61 63 74 5f 74 6f 6b 65 6e 28 7a extract_token(z
71c0: 4c 69 6e 65 2c 20 26 7a 29 3b 0a 20 20 69 66 28 Line, &z);. if(
71d0: 20 7a 54 6f 6b 65 6e 3d 3d 30 20 29 7b 0a 20 20 zToken==0 ){.
71e0: 20 20 6d 61 6c 66 6f 72 6d 65 64 5f 72 65 71 75 malformed_requ
71f0: 65 73 74 28 29 3b 0a 20 20 7d 0a 20 20 69 66 28 est();. }. if(
7200: 20 73 74 72 63 6d 70 28 7a 54 6f 6b 65 6e 2c 22 strcmp(zToken,"
7210: 47 45 54 22 29 21 3d 30 20 26 26 20 73 74 72 63 GET")!=0 && strc
7220: 6d 70 28 7a 54 6f 6b 65 6e 2c 22 50 4f 53 54 22 mp(zToken,"POST"
7230: 29 21 3d 30 0a 20 20 20 20 20 20 26 26 20 73 74 )!=0. && st
7240: 72 63 6d 70 28 7a 54 6f 6b 65 6e 2c 22 48 45 41 rcmp(zToken,"HEA
7250: 44 22 29 21 3d 30 20 29 7b 0a 20 20 20 20 6d 61 D")!=0 ){. ma
7260: 6c 66 6f 72 6d 65 64 5f 72 65 71 75 65 73 74 28 lformed_request(
7270: 29 3b 0a 20 20 7d 0a 20 20 63 67 69 5f 73 65 74 );. }. cgi_set
7280: 65 6e 76 28 22 47 41 54 45 57 41 59 5f 49 4e 54 env("GATEWAY_INT
7290: 45 52 46 41 43 45 22 2c 22 43 47 49 2f 31 2e 30 ERFACE","CGI/1.0
72a0: 22 29 3b 0a 20 20 63 67 69 5f 73 65 74 65 6e 76 ");. cgi_setenv
72b0: 28 22 52 45 51 55 45 53 54 5f 4d 45 54 48 4f 44 ("REQUEST_METHOD
72c0: 22 2c 7a 54 6f 6b 65 6e 29 3b 0a 20 20 7a 54 6f ",zToken);. zTo
72d0: 6b 65 6e 20 3d 20 65 78 74 72 61 63 74 5f 74 6f ken = extract_to
72e0: 6b 65 6e 28 7a 2c 20 26 7a 29 3b 0a 20 20 69 66 ken(z, &z);. if
72f0: 28 20 7a 54 6f 6b 65 6e 3d 3d 30 20 29 7b 0a 20 ( zToken==0 ){.
7300: 20 20 20 6d 61 6c 66 6f 72 6d 65 64 5f 72 65 71 malformed_req
7310: 75 65 73 74 28 29 3b 0a 20 20 7d 0a 20 20 63 67 uest();. }. cg
7320: 69 5f 73 65 74 65 6e 76 28 22 52 45 51 55 45 53 i_setenv("REQUES
7330: 54 5f 55 52 49 22 2c 20 7a 54 6f 6b 65 6e 29 3b T_URI", zToken);
7340: 0a 20 20 66 6f 72 28 69 3d 30 3b 20 7a 54 6f 6b . for(i=0; zTok
7350: 65 6e 5b 69 5d 20 26 26 20 7a 54 6f 6b 65 6e 5b en[i] && zToken[
7360: 69 5d 21 3d 27 3f 27 3b 20 69 2b 2b 29 7b 7d 0a i]!='?'; i++){}.
7370: 20 20 69 66 28 20 7a 54 6f 6b 65 6e 5b 69 5d 20 if( zToken[i]
7380: 29 20 7a 54 6f 6b 65 6e 5b 69 2b 2b 5d 20 3d 20 ) zToken[i++] =
7390: 30 3b 0a 20 20 63 67 69 5f 73 65 74 65 6e 76 28 0;. cgi_setenv(
73a0: 22 50 41 54 48 5f 49 4e 46 4f 22 2c 20 7a 54 6f "PATH_INFO", zTo
73b0: 6b 65 6e 29 3b 0a 20 20 63 67 69 5f 73 65 74 65 ken);. cgi_sete
73c0: 6e 76 28 22 51 55 45 52 59 5f 53 54 52 49 4e 47 nv("QUERY_STRING
73d0: 22 2c 20 26 7a 54 6f 6b 65 6e 5b 69 5d 29 3b 0a ", &zToken[i]);.
73e0: 20 20 69 66 28 20 67 65 74 70 65 65 72 6e 61 6d if( getpeernam
73f0: 65 28 66 69 6c 65 6e 6f 28 73 74 64 69 6e 29 2c e(fileno(stdin),
7400: 20 28 73 74 72 75 63 74 20 73 6f 63 6b 61 64 64 (struct sockadd
7410: 72 2a 29 26 72 65 6d 6f 74 65 4e 61 6d 65 2c 20 r*)&remoteName,
7420: 28 73 6f 63 6b 6c 65 6e 5f 74 2a 29 26 73 69 7a (socklen_t*)&siz
7430: 65 29 3e 3d 30 20 29 7b 0a 20 20 20 20 63 68 61 e)>=0 ){. cha
7440: 72 20 2a 7a 49 70 41 64 64 72 20 3d 20 69 6e 65 r *zIpAddr = ine
7450: 74 5f 6e 74 6f 61 28 72 65 6d 6f 74 65 4e 61 6d t_ntoa(remoteNam
7460: 65 2e 73 69 6e 5f 61 64 64 72 29 3b 0a 20 20 20 e.sin_addr);.
7470: 20 63 67 69 5f 73 65 74 65 6e 76 28 22 52 45 4d cgi_setenv("REM
7480: 4f 54 45 5f 41 44 44 52 22 2c 20 7a 49 70 41 64 OTE_ADDR", zIpAd
7490: 64 72 29 3b 0a 0a 20 20 20 20 2f 2a 20 53 65 74 dr);.. /* Set
74a0: 20 74 68 65 20 47 6c 6f 62 61 6c 2e 7a 49 70 41 the Global.zIpA
74b0: 64 64 72 20 76 61 72 69 61 62 6c 65 20 74 6f 20 ddr variable to
74c0: 74 68 65 20 73 65 72 76 65 72 20 77 65 20 61 72 the server we ar
74d0: 65 20 74 61 6c 6b 69 6e 67 20 74 6f 2e 0a 20 20 e talking to..
74e0: 20 20 2a 2a 20 54 68 69 73 20 69 73 20 75 73 65 ** This is use
74f0: 64 20 74 6f 20 70 6f 70 75 6c 61 74 65 20 74 68 d to populate th
7500: 65 20 69 70 61 64 64 72 20 63 6f 6c 75 6d 6e 20 e ipaddr column
7510: 6f 66 20 74 68 65 20 72 63 76 66 72 6f 6d 20 74 of the rcvfrom t
7520: 61 62 6c 65 2c 0a 20 20 20 20 2a 2a 20 69 66 20 able,. ** if
7530: 61 6e 79 20 66 69 6c 65 73 20 61 72 65 20 72 65 any files are re
7540: 63 65 69 76 65 64 20 66 72 6f 6d 20 74 68 65 20 ceived from the
7550: 63 6f 6e 6e 65 63 74 65 64 20 63 6c 69 65 6e 74 connected client
7560: 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20 67 2e 7a .. */. g.z
7570: 49 70 41 64 64 72 20 3d 20 6d 70 72 69 6e 74 66 IpAddr = mprintf
7580: 28 22 25 73 22 2c 20 7a 49 70 41 64 64 72 29 3b ("%s", zIpAddr);
7590: 0a 20 20 7d 0a 20 0a 20 20 2f 2a 20 47 65 74 20 . }. . /* Get
75a0: 61 6c 6c 20 74 68 65 20 6f 70 74 69 6f 6e 61 6c all the optional
75b0: 20 66 69 65 6c 64 73 20 74 68 61 74 20 66 6f 6c fields that fol
75c0: 6c 6f 77 20 74 68 65 20 66 69 72 73 74 20 6c 69 low the first li
75d0: 6e 65 2e 0a 20 20 2a 2f 0a 20 20 77 68 69 6c 65 ne.. */. while
75e0: 28 20 66 67 65 74 73 28 7a 4c 69 6e 65 2c 73 69 ( fgets(zLine,si
75f0: 7a 65 6f 66 28 7a 4c 69 6e 65 29 2c 73 74 64 69 zeof(zLine),stdi
7600: 6e 29 20 29 7b 0a 20 20 20 20 63 68 61 72 20 2a n) ){. char *
7610: 7a 46 69 65 6c 64 4e 61 6d 65 3b 0a 20 20 20 20 zFieldName;.
7620: 63 68 61 72 20 2a 7a 56 61 6c 3b 0a 0a 20 20 20 char *zVal;..
7630: 20 7a 46 69 65 6c 64 4e 61 6d 65 20 3d 20 65 78 zFieldName = ex
7640: 74 72 61 63 74 5f 74 6f 6b 65 6e 28 7a 4c 69 6e tract_token(zLin
7650: 65 2c 26 7a 56 61 6c 29 3b 0a 20 20 20 20 69 66 e,&zVal);. if
7660: 28 20 7a 46 69 65 6c 64 4e 61 6d 65 3d 3d 30 20 ( zFieldName==0
7670: 7c 7c 20 2a 7a 46 69 65 6c 64 4e 61 6d 65 3d 3d || *zFieldName==
7680: 30 20 29 20 62 72 65 61 6b 3b 0a 20 20 20 20 77 0 ) break;. w
7690: 68 69 6c 65 28 20 69 73 73 70 61 63 65 28 2a 7a hile( isspace(*z
76a0: 56 61 6c 29 20 29 7b 20 7a 56 61 6c 2b 2b 3b 20 Val) ){ zVal++;
76b0: 7d 0a 20 20 20 20 69 20 3d 20 73 74 72 6c 65 6e }. i = strlen
76c0: 28 7a 56 61 6c 29 3b 0a 20 20 20 20 77 68 69 6c (zVal);. whil
76d0: 65 28 20 69 3e 30 20 26 26 20 69 73 73 70 61 63 e( i>0 && isspac
76e0: 65 28 7a 56 61 6c 5b 69 2d 31 5d 29 20 29 7b 20 e(zVal[i-1]) ){
76f0: 69 2d 2d 3b 20 7d 0a 20 20 20 20 7a 56 61 6c 5b i--; }. zVal[
7700: 69 5d 20 3d 20 30 3b 0a 20 20 20 20 66 6f 72 28 i] = 0;. for(
7710: 69 3d 30 3b 20 7a 46 69 65 6c 64 4e 61 6d 65 5b i=0; zFieldName[
7720: 69 5d 3b 20 69 2b 2b 29 7b 20 7a 46 69 65 6c 64 i]; i++){ zField
7730: 4e 61 6d 65 5b 69 5d 20 3d 20 74 6f 6c 6f 77 65 Name[i] = tolowe
7740: 72 28 7a 46 69 65 6c 64 4e 61 6d 65 5b 69 5d 29 r(zFieldName[i])
7750: 3b 20 7d 0a 20 20 20 20 69 66 28 20 73 74 72 63 ; }. if( strc
7760: 6d 70 28 7a 46 69 65 6c 64 4e 61 6d 65 2c 22 75 mp(zFieldName,"u
7770: 73 65 72 2d 61 67 65 6e 74 3a 22 29 3d 3d 30 20 ser-agent:")==0
7780: 29 7b 0a 20 20 20 20 20 20 63 67 69 5f 73 65 74 ){. cgi_set
7790: 65 6e 76 28 22 48 54 54 50 5f 55 53 45 52 5f 41 env("HTTP_USER_A
77a0: 47 45 4e 54 22 2c 20 7a 56 61 6c 29 3b 0a 20 20 GENT", zVal);.
77b0: 20 20 7d 65 6c 73 65 20 69 66 28 20 73 74 72 63 }else if( strc
77c0: 6d 70 28 7a 46 69 65 6c 64 4e 61 6d 65 2c 22 63 mp(zFieldName,"c
77d0: 6f 6e 74 65 6e 74 2d 6c 65 6e 67 74 68 3a 22 29 ontent-length:")
77e0: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 63 67 69 ==0 ){. cgi
77f0: 5f 73 65 74 65 6e 76 28 22 43 4f 4e 54 45 4e 54 _setenv("CONTENT
7800: 5f 4c 45 4e 47 54 48 22 2c 20 7a 56 61 6c 29 3b _LENGTH", zVal);
7810: 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 73 . }else if( s
7820: 74 72 63 6d 70 28 7a 46 69 65 6c 64 4e 61 6d 65 trcmp(zFieldName
7830: 2c 22 72 65 66 65 72 65 72 3a 22 29 3d 3d 30 20 ,"referer:")==0
7840: 29 7b 0a 20 20 20 20 20 20 63 67 69 5f 73 65 74 ){. cgi_set
7850: 65 6e 76 28 22 48 54 54 50 5f 52 45 46 45 52 45 env("HTTP_REFERE
7860: 52 22 2c 20 7a 56 61 6c 29 3b 0a 20 20 20 20 7d R", zVal);. }
7870: 65 6c 73 65 20 69 66 28 20 73 74 72 63 6d 70 28 else if( strcmp(
7880: 7a 46 69 65 6c 64 4e 61 6d 65 2c 22 68 6f 73 74 zFieldName,"host
7890: 3a 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 :")==0 ){.
78a0: 63 67 69 5f 73 65 74 65 6e 76 28 22 48 54 54 50 cgi_setenv("HTTP
78b0: 5f 48 4f 53 54 22 2c 20 7a 56 61 6c 29 3b 0a 20 _HOST", zVal);.
78c0: 20 20 20 7d 65 6c 73 65 20 69 66 28 20 73 74 72 }else if( str
78d0: 63 6d 70 28 7a 46 69 65 6c 64 4e 61 6d 65 2c 22 cmp(zFieldName,"
78e0: 63 6f 6e 74 65 6e 74 2d 74 79 70 65 3a 22 29 3d content-type:")=
78f0: 3d 30 20 29 7b 0a 20 20 20 20 20 20 63 67 69 5f =0 ){. cgi_
7900: 73 65 74 65 6e 76 28 22 43 4f 4e 54 45 4e 54 5f setenv("CONTENT_
7910: 54 59 50 45 22 2c 20 7a 56 61 6c 29 3b 0a 20 20 TYPE", zVal);.
7920: 20 20 7d 65 6c 73 65 20 69 66 28 20 73 74 72 63 }else if( strc
7930: 6d 70 28 7a 46 69 65 6c 64 4e 61 6d 65 2c 22 63 mp(zFieldName,"c
7940: 6f 6f 6b 69 65 3a 22 29 3d 3d 30 20 29 7b 0a 20 ookie:")==0 ){.
7950: 20 20 20 20 20 63 67 69 5f 73 65 74 65 6e 76 28 cgi_setenv(
7960: 22 48 54 54 50 5f 43 4f 4f 4b 49 45 22 2c 20 7a "HTTP_COOKIE", z
7970: 56 61 6c 29 3b 0a 20 20 20 20 7d 65 6c 73 65 20 Val);. }else
7980: 69 66 28 20 73 74 72 63 6d 70 28 7a 46 69 65 6c if( strcmp(zFiel
7990: 64 4e 61 6d 65 2c 22 69 66 2d 6e 6f 6e 65 2d 6d dName,"if-none-m
79a0: 61 74 63 68 3a 22 29 3d 3d 30 20 29 7b 0a 20 20 atch:")==0 ){.
79b0: 20 20 20 20 63 67 69 5f 73 65 74 65 6e 76 28 22 cgi_setenv("
79c0: 48 54 54 50 5f 49 46 5f 4e 4f 4e 45 5f 4d 41 54 HTTP_IF_NONE_MAT
79d0: 43 48 22 2c 20 7a 56 61 6c 29 3b 0a 20 20 20 20 CH", zVal);.
79e0: 7d 65 6c 73 65 20 69 66 28 20 73 74 72 63 6d 70 }else if( strcmp
79f0: 28 7a 46 69 65 6c 64 4e 61 6d 65 2c 22 69 66 2d (zFieldName,"if-
7a00: 6d 6f 64 69 66 69 65 64 2d 73 69 6e 63 65 3a 22 modified-since:"
7a10: 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 63 67 )==0 ){. cg
7a20: 69 5f 73 65 74 65 6e 76 28 22 48 54 54 50 5f 49 i_setenv("HTTP_I
7a30: 46 5f 4d 4f 44 49 46 49 45 44 5f 53 49 4e 43 45 F_MODIFIED_SINCE
7a40: 22 2c 20 7a 56 61 6c 29 3b 0a 20 20 20 20 7d 0a ", zVal);. }.
7a50: 20 20 7d 0a 0a 20 20 63 67 69 5f 69 6e 69 74 28 }.. cgi_init(
7a60: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 4d 61 78 69 );.}../*.** Maxi
7a70: 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66 20 63 68 mum number of ch
7a80: 69 6c 64 20 70 72 6f 63 65 73 73 65 73 20 74 68 ild processes th
7a90: 61 74 20 77 65 20 63 61 6e 20 68 61 76 65 20 72 at we can have r
7aa0: 75 6e 6e 69 6e 67 0a 2a 2a 20 61 74 20 6f 6e 65 unning.** at one
7ab0: 20 74 69 6d 65 20 62 65 66 6f 72 65 20 77 65 20 time before we
7ac0: 73 74 61 72 74 20 73 6c 6f 77 69 6e 67 20 74 68 start slowing th
7ad0: 69 6e 67 73 20 64 6f 77 6e 2e 0a 2a 2f 0a 23 64 ings down..*/.#d
7ae0: 65 66 69 6e 65 20 4d 41 58 5f 50 41 52 41 4c 4c efine MAX_PARALL
7af0: 45 4c 20 32 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c EL 2../*.** Impl
7b00: 65 6d 65 6e 74 20 61 6e 20 48 54 54 50 20 73 65 ement an HTTP se
7b10: 72 76 65 72 20 64 61 65 6d 6f 6e 20 6c 69 73 74 rver daemon list
7b20: 65 6e 69 6e 67 20 6f 6e 20 70 6f 72 74 20 69 50 ening on port iP
7b30: 6f 72 74 2e 0a 2a 2a 0a 2a 2a 20 41 73 20 6e 65 ort..**.** As ne
7b40: 77 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 61 72 w connections ar
7b50: 72 69 76 65 2c 20 66 6f 72 6b 20 61 20 63 68 69 rive, fork a chi
7b60: 6c 64 20 61 6e 64 20 6c 65 74 20 63 68 69 6c 64 ld and let child
7b70: 20 72 65 74 75 72 6e 0a 2a 2a 20 6f 75 74 20 6f return.** out o
7b80: 66 20 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 f this procedure
7b90: 20 63 61 6c 6c 2e 20 20 54 68 65 20 63 68 69 6c call. The chil
7ba0: 64 20 77 69 6c 6c 20 68 61 6e 64 6c 65 20 74 68 d will handle th
7bb0: 65 20 72 65 71 75 65 73 74 2e 0a 2a 2a 20 54 68 e request..** Th
7bc0: 65 20 70 61 72 65 6e 74 20 6e 65 76 65 72 20 72 e parent never r
7bd0: 65 74 75 72 6e 73 20 66 72 6f 6d 20 74 68 69 73 eturns from this
7be0: 20 70 72 6f 63 65 64 75 72 65 2e 0a 2a 2f 0a 76 procedure..*/.v
7bf0: 6f 69 64 20 63 67 69 5f 68 74 74 70 5f 73 65 72 oid cgi_http_ser
7c00: 76 65 72 28 69 6e 74 20 69 50 6f 72 74 29 7b 0a ver(int iPort){.
7c10: 23 69 66 64 65 66 20 5f 5f 4d 49 4e 47 57 33 32 #ifdef __MINGW32
7c20: 5f 5f 0a 20 20 66 70 72 69 6e 74 66 28 73 74 64 __. fprintf(std
7c30: 65 72 72 2c 22 73 65 72 76 65 72 20 6e 6f 74 20 err,"server not
7c40: 79 65 74 20 61 76 61 69 6c 61 62 6c 65 20 69 6e yet available in
7c50: 20 77 69 6e 64 6f 77 73 20 76 65 72 73 69 6f 6e windows version
7c60: 20 6f 66 20 66 6f 73 73 69 6c 5c 6e 22 29 3b 0a of fossil\n");.
7c70: 20 20 65 78 69 74 28 31 29 3b 0a 23 65 6c 73 65 exit(1);.#else
7c80: 0a 20 20 69 6e 74 20 6c 69 73 74 65 6e 65 72 3b . int listener;
7c90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7ca0: 2f 2a 20 54 68 65 20 73 65 72 76 65 72 20 73 6f /* The server so
7cb0: 63 6b 65 74 20 2a 2f 0a 20 20 69 6e 74 20 63 6f cket */. int co
7cc0: 6e 6e 65 63 74 69 6f 6e 3b 20 20 20 20 20 20 20 nnection;
7cd0: 20 20 20 20 20 20 20 2f 2a 20 41 20 73 6f 63 6b /* A sock
7ce0: 65 74 20 66 6f 72 20 65 61 63 68 20 69 6e 64 69 et for each indi
7cf0: 76 69 64 75 61 6c 20 63 6f 6e 6e 65 63 74 69 6f vidual connectio
7d00: 6e 20 2a 2f 0a 20 20 66 64 5f 73 65 74 20 72 65 n */. fd_set re
7d10: 61 64 66 64 73 3b 20 20 20 20 20 20 20 20 20 20 adfds;
7d20: 20 20 20 20 2f 2a 20 53 65 74 20 6f 66 20 66 69 /* Set of fi
7d30: 6c 65 20 64 65 73 63 72 69 70 74 6f 72 73 20 66 le descriptors f
7d40: 6f 72 20 73 65 6c 65 63 74 28 29 20 2a 2f 0a 20 or select() */.
7d50: 20 73 69 7a 65 5f 74 20 6c 65 6e 61 64 64 72 3b size_t lenaddr;
7d60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
7d70: 20 4c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 69 Length of the i
7d80: 6e 61 64 64 72 20 73 74 72 75 63 74 75 72 65 20 naddr structure
7d90: 2a 2f 0a 20 20 69 6e 74 20 63 68 69 6c 64 3b 20 */. int child;
7da0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7db0: 20 20 2f 2a 20 50 49 44 20 6f 66 20 74 68 65 20 /* PID of the
7dc0: 63 68 69 6c 64 20 70 72 6f 63 65 73 73 20 2a 2f child process */
7dd0: 0a 20 20 69 6e 74 20 6e 63 68 69 6c 64 72 65 6e . int nchildren
7de0: 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 = 0;
7df0: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 63 68 69 /* Number of chi
7e00: 6c 64 20 70 72 6f 63 65 73 73 65 73 20 2a 2f 0a ld processes */.
7e10: 20 20 73 74 72 75 63 74 20 74 69 6d 65 76 61 6c struct timeval
7e20: 20 64 65 6c 61 79 3b 20 20 20 20 20 20 20 20 2f delay; /
7e30: 2a 20 48 6f 77 20 6c 6f 6e 67 20 74 6f 20 77 61 * How long to wa
7e40: 69 74 20 69 6e 73 69 64 65 20 73 65 6c 65 63 74 it inside select
7e50: 28 29 20 2a 2f 0a 20 20 73 74 72 75 63 74 20 73 () */. struct s
7e60: 6f 63 6b 61 64 64 72 5f 69 6e 20 69 6e 61 64 64 ockaddr_in inadd
7e70: 72 3b 20 20 20 2f 2a 20 54 68 65 20 73 6f 63 6b r; /* The sock
7e80: 65 74 20 61 64 64 72 65 73 73 20 2a 2f 0a 20 20 et address */.
7e90: 69 6e 74 20 6f 70 74 20 3d 20 31 3b 20 20 20 20 int opt = 1;
7ea0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
7eb0: 73 65 74 73 6f 63 6b 6f 70 74 20 66 6c 61 67 20 setsockopt flag
7ec0: 2a 2f 0a 0a 20 20 6d 65 6d 73 65 74 28 26 69 6e */.. memset(&in
7ed0: 61 64 64 72 2c 20 30 2c 20 73 69 7a 65 6f 66 28 addr, 0, sizeof(
7ee0: 69 6e 61 64 64 72 29 29 3b 0a 20 20 69 6e 61 64 inaddr));. inad
7ef0: 64 72 2e 73 69 6e 5f 66 61 6d 69 6c 79 20 3d 20 dr.sin_family =
7f00: 41 46 5f 49 4e 45 54 3b 0a 20 20 69 6e 61 64 64 AF_INET;. inadd
7f10: 72 2e 73 69 6e 5f 61 64 64 72 2e 73 5f 61 64 64 r.sin_addr.s_add
7f20: 72 20 3d 20 49 4e 41 44 44 52 5f 41 4e 59 3b 0a r = INADDR_ANY;.
7f30: 20 20 69 6e 61 64 64 72 2e 73 69 6e 5f 70 6f 72 inaddr.sin_por
7f40: 74 20 3d 20 68 74 6f 6e 73 28 69 50 6f 72 74 29 t = htons(iPort)
7f50: 3b 0a 20 20 6c 69 73 74 65 6e 65 72 20 3d 20 73 ;. listener = s
7f60: 6f 63 6b 65 74 28 41 46 5f 49 4e 45 54 2c 20 53 ocket(AF_INET, S
7f70: 4f 43 4b 5f 53 54 52 45 41 4d 2c 20 30 29 3b 0a OCK_STREAM, 0);.
7f80: 20 20 69 66 28 20 6c 69 73 74 65 6e 65 72 3c 30 if( listener<0
7f90: 20 29 7b 0a 20 20 20 20 66 70 72 69 6e 74 66 28 ){. fprintf(
7fa0: 73 74 64 65 72 72 2c 22 43 61 6e 27 74 20 63 72 stderr,"Can't cr
7fb0: 65 61 74 65 20 61 20 73 6f 63 6b 65 74 5c 6e 22 eate a socket\n"
7fc0: 29 3b 0a 20 20 20 20 65 78 69 74 28 31 29 3b 0a );. exit(1);.
7fd0: 20 20 7d 0a 0a 20 20 2f 2a 20 69 66 20 77 65 20 }.. /* if we
7fe0: 63 61 6e 27 74 20 74 65 72 6d 69 6e 61 74 65 20 can't terminate
7ff0: 6e 69 63 65 6c 79 2c 20 61 74 20 6c 65 61 73 74 nicely, at least
8000: 20 61 6c 6c 6f 77 20 74 68 65 20 73 6f 63 6b 65 allow the socke
8010: 74 20 74 6f 20 62 65 20 72 65 75 73 65 64 20 2a t to be reused *
8020: 2f 0a 20 20 73 65 74 73 6f 63 6b 6f 70 74 28 6c /. setsockopt(l
8030: 69 73 74 65 6e 65 72 2c 53 4f 4c 5f 53 4f 43 4b istener,SOL_SOCK
8040: 45 54 2c 53 4f 5f 52 45 55 53 45 41 44 44 52 2c ET,SO_REUSEADDR,
8050: 26 6f 70 74 2c 73 69 7a 65 6f 66 28 6f 70 74 29 &opt,sizeof(opt)
8060: 29 3b 0a 0a 20 20 69 66 28 20 62 69 6e 64 28 6c );.. if( bind(l
8070: 69 73 74 65 6e 65 72 2c 20 28 73 74 72 75 63 74 istener, (struct
8080: 20 73 6f 63 6b 61 64 64 72 2a 29 26 69 6e 61 64 sockaddr*)&inad
8090: 64 72 2c 20 73 69 7a 65 6f 66 28 69 6e 61 64 64 dr, sizeof(inadd
80a0: 72 29 29 3c 30 20 29 7b 0a 20 20 20 20 66 70 72 r))<0 ){. fpr
80b0: 69 6e 74 66 28 73 74 64 65 72 72 2c 22 43 61 6e intf(stderr,"Can
80c0: 27 74 20 62 69 6e 64 20 74 6f 20 70 6f 72 74 20 't bind to port
80d0: 25 64 5c 6e 22 2c 20 69 50 6f 72 74 29 3b 0a 20 %d\n", iPort);.
80e0: 20 20 20 65 78 69 74 28 31 29 3b 0a 20 20 7d 0a exit(1);. }.
80f0: 20 20 6c 69 73 74 65 6e 28 6c 69 73 74 65 6e 65 listen(listene
8100: 72 2c 31 30 29 3b 0a 20 20 77 68 69 6c 65 28 20 r,10);. while(
8110: 31 20 29 7b 0a 20 20 20 20 69 66 28 20 6e 63 68 1 ){. if( nch
8120: 69 6c 64 72 65 6e 3e 4d 41 58 5f 50 41 52 41 4c ildren>MAX_PARAL
8130: 4c 45 4c 20 29 7b 0a 20 20 20 20 20 20 2f 2a 20 LEL ){. /*
8140: 53 6c 6f 77 20 64 6f 77 6e 20 69 66 20 63 6f 6e Slow down if con
8150: 6e 65 63 74 69 6f 6e 73 20 61 72 65 20 61 72 72 nections are arr
8160: 69 76 69 6e 67 20 74 6f 6f 20 66 61 73 74 20 2a iving too fast *
8170: 2f 0a 20 20 20 20 20 20 73 6c 65 65 70 28 20 6e /. sleep( n
8180: 63 68 69 6c 64 72 65 6e 2d 4d 41 58 5f 50 41 52 children-MAX_PAR
8190: 41 4c 4c 45 4c 20 29 3b 0a 20 20 20 20 7d 0a 20 ALLEL );. }.
81a0: 20 20 20 64 65 6c 61 79 2e 74 76 5f 73 65 63 20 delay.tv_sec
81b0: 3d 20 36 30 3b 0a 20 20 20 20 64 65 6c 61 79 2e = 60;. delay.
81c0: 74 76 5f 75 73 65 63 20 3d 20 30 3b 0a 20 20 20 tv_usec = 0;.
81d0: 20 46 44 5f 5a 45 52 4f 28 26 72 65 61 64 66 64 FD_ZERO(&readfd
81e0: 73 29 3b 0a 20 20 20 20 46 44 5f 53 45 54 28 20 s);. FD_SET(
81f0: 6c 69 73 74 65 6e 65 72 2c 20 26 72 65 61 64 66 listener, &readf
8200: 64 73 29 3b 0a 20 20 20 20 69 66 28 20 73 65 6c ds);. if( sel
8210: 65 63 74 28 20 6c 69 73 74 65 6e 65 72 2b 31 2c ect( listener+1,
8220: 20 26 72 65 61 64 66 64 73 2c 20 30 2c 20 30 2c &readfds, 0, 0,
8230: 20 26 64 65 6c 61 79 29 20 29 7b 0a 20 20 20 20 &delay) ){.
8240: 20 20 6c 65 6e 61 64 64 72 20 3d 20 73 69 7a 65 lenaddr = size
8250: 6f 66 28 69 6e 61 64 64 72 29 3b 0a 20 20 20 20 of(inaddr);.
8260: 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 3d 20 61 connection = a
8270: 63 63 65 70 74 28 6c 69 73 74 65 6e 65 72 2c 20 ccept(listener,
8280: 28 73 74 72 75 63 74 20 73 6f 63 6b 61 64 64 72 (struct sockaddr
8290: 2a 29 26 69 6e 61 64 64 72 2c 20 28 73 6f 63 6b *)&inaddr, (sock
82a0: 6c 65 6e 5f 74 2a 29 20 26 6c 65 6e 61 64 64 72 len_t*) &lenaddr
82b0: 29 3b 0a 20 20 20 20 20 20 69 66 28 20 63 6f 6e );. if( con
82c0: 6e 65 63 74 69 6f 6e 3e 3d 30 20 29 7b 0a 20 20 nection>=0 ){.
82d0: 20 20 20 20 20 20 63 68 69 6c 64 20 3d 20 66 6f child = fo
82e0: 72 6b 28 29 3b 0a 20 20 20 20 20 20 20 20 69 66 rk();. if
82f0: 28 20 63 68 69 6c 64 21 3d 30 20 29 7b 0a 20 20 ( child!=0 ){.
8300: 20 20 20 20 20 20 20 20 69 66 28 20 63 68 69 6c if( chil
8310: 64 3e 30 20 29 20 6e 63 68 69 6c 64 72 65 6e 2b d>0 ) nchildren+
8320: 2b 3b 0a 20 20 20 20 20 20 20 20 20 20 63 6c 6f +;. clo
8330: 73 65 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 3b 0a se(connection);.
8340: 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 }else{.
8350: 20 20 20 20 20 20 20 20 20 63 6c 6f 73 65 28 30 close(0
8360: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 64 75 70 );. dup
8370: 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 3b 0a 20 20 (connection);.
8380: 20 20 20 20 20 20 20 20 63 6c 6f 73 65 28 31 29 close(1)
8390: 3b 0a 20 20 20 20 20 20 20 20 20 20 64 75 70 28 ;. dup(
83a0: 63 6f 6e 6e 65 63 74 69 6f 6e 29 3b 0a 20 20 20 connection);.
83b0: 20 20 20 20 20 20 20 69 66 28 20 21 67 2e 66 48 if( !g.fH
83c0: 74 74 70 54 72 61 63 65 20 29 7b 0a 20 20 20 20 ttpTrace ){.
83d0: 20 20 20 20 20 20 20 20 63 6c 6f 73 65 28 32 29 close(2)
83e0: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 64 75 ;. du
83f0: 70 28 63 6f 6e 6e 65 63 74 69 6f 6e 29 3b 0a 20 p(connection);.
8400: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 }.
8410: 20 20 20 20 20 63 6c 6f 73 65 28 63 6f 6e 6e 65 close(conne
8420: 63 74 69 6f 6e 29 3b 0a 20 20 20 20 20 20 20 20 ction);.
8430: 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 return;.
8440: 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 }. }.
8450: 7d 0a 20 20 20 20 2f 2a 20 42 75 72 79 20 64 65 }. /* Bury de
8460: 61 64 20 63 68 69 6c 64 72 65 6e 20 2a 2f 0a 20 ad children */.
8470: 20 20 20 77 68 69 6c 65 28 20 77 61 69 74 70 69 while( waitpi
8480: 64 28 30 2c 20 30 2c 20 57 4e 4f 48 41 4e 47 29 d(0, 0, WNOHANG)
8490: 3e 30 20 29 7b 0a 20 20 20 20 20 20 6e 63 68 69 >0 ){. nchi
84a0: 6c 64 72 65 6e 2d 2d 3b 0a 20 20 20 20 7d 0a 20 ldren--;. }.
84b0: 20 7d 0a 20 20 2f 2a 20 4e 4f 54 20 52 45 41 43 }. /* NOT REAC
84c0: 48 45 44 20 2a 2f 20 20 0a 20 20 65 78 69 74 28 HED */ . exit(
84d0: 31 29 3b 0a 23 65 6e 64 69 66 0a 7d 0a 0a 2f 2a 1);.#endif.}../*
84e0: 0a 2a 2a 20 4e 61 6d 65 20 6f 66 20 64 61 79 73 .** Name of days
84f0: 20 61 6e 64 20 6d 6f 6e 74 68 73 2e 0a 2a 2f 0a and months..*/.
8500: 73 74 61 74 69 63 20 63 6f 6e 73 74 20 63 68 61 static const cha
8510: 72 20 2a 61 7a 44 61 79 73 5b 5d 20 3d 0a 20 20 r *azDays[] =.
8520: 20 20 7b 22 53 75 6e 22 2c 20 22 4d 6f 6e 22 2c {"Sun", "Mon",
8530: 20 22 54 75 65 22 2c 20 22 57 65 64 22 2c 20 22 "Tue", "Wed", "
8540: 54 68 75 22 2c 20 22 46 72 69 22 2c 20 22 53 61 Thu", "Fri", "Sa
8550: 74 22 2c 20 30 7d 3b 0a 73 74 61 74 69 63 20 63 t", 0};.static c
8560: 6f 6e 73 74 20 63 68 61 72 20 2a 61 7a 4d 6f 6e onst char *azMon
8570: 74 68 73 5b 5d 20 3d 0a 20 20 20 20 7b 22 4a 61 ths[] =. {"Ja
8580: 6e 22 2c 20 22 46 65 62 22 2c 20 22 4d 61 72 22 n", "Feb", "Mar"
8590: 2c 20 22 41 70 72 22 2c 20 22 4d 61 79 22 2c 20 , "Apr", "May",
85a0: 22 4a 75 6e 22 2c 0a 20 20 20 20 20 22 4a 75 6c "Jun",. "Jul
85b0: 22 2c 20 22 41 75 67 22 2c 20 22 53 65 70 22 2c ", "Aug", "Sep",
85c0: 20 22 4f 63 74 22 2c 20 22 4e 6f 76 22 2c 20 22 "Oct", "Nov", "
85d0: 44 65 63 22 2c 20 30 7d 3b 0a 0a 0a 2f 2a 0a 2a Dec", 0};.../*.*
85e0: 2a 20 52 65 74 75 72 6e 73 20 61 6e 20 52 46 43 * Returns an RFC
85f0: 38 32 32 2d 66 6f 72 6d 61 74 74 65 64 20 74 69 822-formatted ti
8600: 6d 65 20 73 74 72 69 6e 67 20 73 75 69 74 61 62 me string suitab
8610: 6c 65 20 66 6f 72 20 48 54 54 50 20 68 65 61 64 le for HTTP head
8620: 65 72 73 2c 20 61 6d 6f 6e 67 0a 2a 2a 20 6f 74 ers, among.** ot
8630: 68 65 72 20 74 68 69 6e 67 73 2e 0a 2a 2a 20 52 her things..** R
8640: 65 74 75 72 6e 65 64 20 74 69 6d 65 7a 6f 6e 65 eturned timezone
8650: 20 69 73 20 61 6c 77 61 79 73 20 47 4d 54 20 61 is always GMT a
8660: 73 20 72 65 71 75 69 72 65 64 20 62 79 20 48 54 s required by HT
8670: 54 50 2f 31 2e 31 20 73 70 65 63 69 66 69 63 61 TP/1.1 specifica
8680: 74 69 6f 6e 2e 0a 2a 2a 0a 2a 2a 20 53 65 65 20 tion..**.** See
8690: 68 74 74 70 3a 2f 2f 77 77 77 2e 66 61 71 73 2e http://www.faqs.
86a0: 6f 72 67 2f 72 66 63 73 2f 72 66 63 38 32 32 2e org/rfcs/rfc822.
86b0: 68 74 6d 6c 2c 20 73 65 63 74 69 6f 6e 20 35 0a html, section 5.
86c0: 2a 2a 20 61 6e 64 20 68 74 74 70 3a 2f 2f 77 77 ** and http://ww
86d0: 77 2e 66 61 71 73 2e 6f 72 67 2f 72 66 63 73 2f w.faqs.org/rfcs/
86e0: 72 66 63 32 36 31 36 2e 68 74 6d 6c 2c 20 73 65 rfc2616.html, se
86f0: 63 74 69 6f 6e 20 33 2e 33 2e 0a 2a 2f 0a 63 68 ction 3.3..*/.ch
8700: 61 72 20 2a 63 67 69 5f 72 66 63 38 32 32 5f 64 ar *cgi_rfc822_d
8710: 61 74 65 73 74 61 6d 70 28 74 69 6d 65 5f 74 20 atestamp(time_t
8720: 6e 6f 77 29 7b 0a 20 20 73 74 72 75 63 74 20 74 now){. struct t
8730: 6d 20 2a 70 54 6d 3b 0a 20 20 70 54 6d 20 3d 20 m *pTm;. pTm =
8740: 67 6d 74 69 6d 65 28 26 6e 6f 77 29 3b 0a 20 20 gmtime(&now);.
8750: 69 66 28 20 70 54 6d 3d 3d 30 20 29 20 72 65 74 if( pTm==0 ) ret
8760: 75 72 6e 20 22 22 3b 0a 20 20 72 65 74 75 72 6e urn "";. return
8770: 20 6d 70 72 69 6e 74 66 28 22 25 73 2c 20 25 64 mprintf("%s, %d
8780: 20 25 73 20 25 30 32 64 20 25 30 32 64 3a 25 30 %s %02d %02d:%0
8790: 32 64 3a 25 30 32 64 20 47 4d 54 22 2c 0a 20 20 2d:%02d GMT",.
87a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 a
87b0: 7a 44 61 79 73 5b 70 54 6d 2d 3e 74 6d 5f 77 64 zDays[pTm->tm_wd
87c0: 61 79 5d 2c 20 70 54 6d 2d 3e 74 6d 5f 6d 64 61 ay], pTm->tm_mda
87d0: 79 2c 20 61 7a 4d 6f 6e 74 68 73 5b 70 54 6d 2d y, azMonths[pTm-
87e0: 3e 74 6d 5f 6d 6f 6e 5d 2c 0a 20 20 20 20 20 20 >tm_mon],.
87f0: 20 20 20 20 20 20 20 20 20 20 20 70 54 6d 2d 3e pTm->
8800: 74 6d 5f 79 65 61 72 2b 31 39 30 30 2c 20 70 54 tm_year+1900, pT
8810: 6d 2d 3e 74 6d 5f 68 6f 75 72 2c 20 70 54 6d 2d m->tm_hour, pTm-
8820: 3e 74 6d 5f 6d 69 6e 2c 20 70 54 6d 2d 3e 74 6d >tm_min, pTm->tm
8830: 5f 73 65 63 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 _sec);.}../*.**
8840: 50 61 72 73 65 20 61 6e 20 52 46 43 38 32 32 2d Parse an RFC822-
8850: 66 6f 72 6d 61 74 74 65 64 20 74 69 6d 65 73 74 formatted timest
8860: 61 6d 70 20 61 73 20 77 65 27 64 20 65 78 70 65 amp as we'd expe
8870: 63 74 20 66 72 6f 6d 20 48 54 54 50 20 61 6e 64 ct from HTTP and
8880: 20 72 65 74 75 72 6e 0a 2a 2a 20 61 20 55 6e 69 return.** a Uni
8890: 78 20 65 70 6f 63 68 20 74 69 6d 65 2e 20 3c 3d x epoch time. <=
88a0: 20 7a 65 72 6f 20 69 73 20 72 65 74 75 72 6e 65 zero is returne
88b0: 64 20 6f 6e 20 66 61 69 6c 75 72 65 2e 0a 2a 2a d on failure..**
88c0: 0a 2a 2a 20 4e 6f 74 65 20 74 68 61 74 20 74 68 .** Note that th
88d0: 69 73 20 77 6f 6e 27 74 20 68 61 6e 64 6c 65 20 is won't handle
88e0: 61 6c 6c 20 74 68 65 20 5f 61 6c 6c 6f 77 65 64 all the _allowed
88f0: 5f 20 48 54 54 50 20 66 6f 72 6d 61 74 73 2c 20 _ HTTP formats,
8900: 6a 75 73 74 20 74 68 65 0a 2a 2a 20 6d 6f 73 74 just the.** most
8910: 20 70 6f 70 75 6c 61 72 20 6f 6e 65 20 28 74 68 popular one (th
8920: 65 20 6f 6e 65 20 67 65 6e 65 72 61 74 65 64 20 e one generated
8930: 62 79 20 63 67 69 5f 72 66 63 38 32 32 5f 64 61 by cgi_rfc822_da
8940: 74 65 73 74 61 6d 70 28 29 2c 20 61 63 74 75 61 testamp(), actua
8950: 6c 6c 79 29 2e 0a 2a 2f 0a 74 69 6d 65 5f 74 20 lly)..*/.time_t
8960: 63 67 69 5f 72 66 63 38 32 32 5f 70 61 72 73 65 cgi_rfc822_parse
8970: 64 61 74 65 28 63 6f 6e 73 74 20 63 68 61 72 20 date(const char
8980: 2a 7a 44 61 74 65 29 7b 0a 20 20 73 74 72 75 63 *zDate){. struc
8990: 74 20 74 6d 20 74 3b 0a 20 20 63 68 61 72 20 7a t tm t;. char z
89a0: 49 67 6e 6f 72 65 5b 31 36 5d 3b 0a 20 20 63 68 Ignore[16];. ch
89b0: 61 72 20 7a 4d 6f 6e 74 68 5b 31 36 5d 3b 0a 0a ar zMonth[16];..
89c0: 20 20 6d 65 6d 73 65 74 28 26 74 2c 20 30 2c 20 memset(&t, 0,
89d0: 73 69 7a 65 6f 66 28 74 29 29 3b 0a 20 20 69 66 sizeof(t));. if
89e0: 28 20 37 3d 3d 73 73 63 61 6e 66 28 7a 44 61 74 ( 7==sscanf(zDat
89f0: 65 2c 20 22 25 31 32 5b 41 2d 5a 61 2d 7a 2c 5d e, "%12[A-Za-z,]
8a00: 20 25 64 20 25 31 32 5b 41 2d 5a 61 2d 7a 5d 20 %d %12[A-Za-z]
8a10: 25 64 20 25 64 3a 25 64 3a 25 64 22 2c 20 7a 49 %d %d:%d:%d", zI
8a20: 67 6e 6f 72 65 2c 0a 20 20 20 20 20 20 20 20 20 gnore,.
8a30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 74 &t
8a40: 2e 74 6d 5f 6d 64 61 79 2c 20 7a 4d 6f 6e 74 68 .tm_mday, zMonth
8a50: 2c 20 26 74 2e 74 6d 5f 79 65 61 72 2c 20 26 74 , &t.tm_year, &t
8a60: 2e 74 6d 5f 68 6f 75 72 2c 20 26 74 2e 74 6d 5f .tm_hour, &t.tm_
8a70: 6d 69 6e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 min,.
8a80: 20 20 20 20 20 20 20 20 20 20 20 20 26 74 2e 74 &t.t
8a90: 6d 5f 73 65 63 29 29 7b 0a 0a 20 20 20 20 69 66 m_sec)){.. if
8aa0: 28 20 74 2e 74 6d 5f 79 65 61 72 20 3e 20 31 39 ( t.tm_year > 19
8ab0: 30 30 20 29 20 74 2e 74 6d 5f 79 65 61 72 20 2d 00 ) t.tm_year -
8ac0: 3d 20 31 39 30 30 3b 0a 20 20 20 20 66 6f 72 28 = 1900;. for(
8ad0: 74 2e 74 6d 5f 6d 6f 6e 3d 30 3b 20 61 7a 4d 6f t.tm_mon=0; azMo
8ae0: 6e 74 68 73 5b 74 2e 74 6d 5f 6d 6f 6e 5d 3b 20 nths[t.tm_mon];
8af0: 74 2e 74 6d 5f 6d 6f 6e 2b 2b 29 7b 0a 20 20 20 t.tm_mon++){.
8b00: 20 20 20 69 66 28 20 21 73 74 72 6e 63 61 73 65 if( !strncase
8b10: 63 6d 70 28 20 61 7a 4d 6f 6e 74 68 73 5b 74 2e cmp( azMonths[t.
8b20: 74 6d 5f 6d 6f 6e 5d 2c 20 7a 4d 6f 6e 74 68 2c tm_mon], zMonth,
8b30: 20 33 20 29 29 7b 0a 20 20 20 20 20 20 20 20 72 3 )){. r
8b40: 65 74 75 72 6e 20 6d 6b 67 6d 74 69 6d 65 28 26 eturn mkgmtime(&
8b50: 74 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 t);. }.
8b60: 7d 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 }. }.. return
8b70: 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6e 76 0;.}../*.** Conv
8b80: 65 72 74 20 61 20 73 74 72 75 63 74 20 74 6d 2a ert a struct tm*
8b90: 20 74 68 61 74 20 72 65 70 72 65 73 65 6e 74 73 that represents
8ba0: 20 61 20 6d 6f 6d 65 6e 74 20 69 6e 20 55 54 43 a moment in UTC
8bb0: 20 69 6e 74 6f 20 74 68 65 20 6e 75 6d 62 65 72 into the number
8bc0: 0a 2a 2a 20 6f 66 20 73 65 63 6f 6e 64 73 20 69 .** of seconds i
8bd0: 6e 20 31 39 37 30 2c 20 55 54 43 2e 0a 2a 2f 0a n 1970, UTC..*/.
8be0: 74 69 6d 65 5f 74 20 6d 6b 67 6d 74 69 6d 65 28 time_t mkgmtime(
8bf0: 73 74 72 75 63 74 20 74 6d 20 2a 70 29 7b 0a 20 struct tm *p){.
8c00: 20 74 69 6d 65 5f 74 20 74 3b 0a 20 20 69 6e 74 time_t t;. int
8c10: 20 6e 44 61 79 3b 0a 20 20 69 6e 74 20 69 73 4c nDay;. int isL
8c20: 65 61 70 59 72 3b 0a 20 20 2f 2a 20 44 61 79 73 eapYr;. /* Days
8c30: 20 69 6e 20 65 61 63 68 20 6d 6f 6e 74 68 3a 20 in each month:
8c40: 20 20 20 20 20 20 33 31 2c 20 32 38 2c 20 33 31 31, 28, 31
8c50: 2c 20 33 30 2c 20 33 31 2c 20 33 30 2c 20 33 31 , 30, 31, 30, 31
8c60: 2c 20 33 31 2c 20 33 30 2c 20 33 31 2c 20 33 30 , 31, 30, 31, 30
8c70: 2c 20 33 31 20 2a 2f 0a 20 20 73 74 61 74 69 63 , 31 */. static
8c80: 20 69 6e 74 20 70 72 69 6f 72 44 61 79 73 5b 5d int priorDays[]
8c90: 20 20 20 3d 20 7b 20 20 30 2c 20 33 31 2c 20 35 = { 0, 31, 5
8ca0: 39 2c 20 39 30 2c 31 32 30 2c 31 35 31 2c 31 38 9, 90,120,151,18
8cb0: 31 2c 32 31 32 2c 32 34 33 2c 32 37 33 2c 33 30 1,212,243,273,30
8cc0: 34 2c 33 33 34 20 7d 3b 0a 20 20 69 66 28 20 70 4,334 };. if( p
8cd0: 2d 3e 74 6d 5f 6d 6f 6e 3c 30 20 29 7b 0a 20 20 ->tm_mon<0 ){.
8ce0: 20 20 69 6e 74 20 6e 59 65 61 72 20 3d 20 28 31 int nYear = (1
8cf0: 31 20 2d 20 70 2d 3e 74 6d 5f 6d 6f 6e 29 2f 31 1 - p->tm_mon)/1
8d00: 32 3b 0a 20 20 20 20 70 2d 3e 74 6d 5f 79 65 61 2;. p->tm_yea
8d10: 72 20 2d 3d 20 6e 59 65 61 72 3b 0a 20 20 20 20 r -= nYear;.
8d20: 70 2d 3e 74 6d 5f 6d 6f 6e 20 2b 3d 20 6e 59 65 p->tm_mon += nYe
8d30: 61 72 2a 31 32 3b 0a 20 20 7d 65 6c 73 65 20 69 ar*12;. }else i
8d40: 66 28 20 70 2d 3e 74 6d 5f 6d 6f 6e 3e 31 31 20 f( p->tm_mon>11
8d50: 29 7b 0a 20 20 20 20 70 2d 3e 74 6d 5f 79 65 61 ){. p->tm_yea
8d60: 72 20 2b 3d 20 70 2d 3e 74 6d 5f 6d 6f 6e 2f 31 r += p->tm_mon/1
8d70: 32 3b 0a 20 20 20 20 70 2d 3e 74 6d 5f 6d 6f 6e 2;. p->tm_mon
8d80: 20 25 3d 20 31 32 3b 0a 20 20 7d 0a 20 20 69 73 %= 12;. }. is
8d90: 4c 65 61 70 59 72 20 3d 20 70 2d 3e 74 6d 5f 79 LeapYr = p->tm_y
8da0: 65 61 72 25 34 3d 3d 30 20 26 26 20 28 70 2d 3e ear%4==0 && (p->
8db0: 74 6d 5f 79 65 61 72 25 31 30 30 21 3d 30 20 7c tm_year%100!=0 |
8dc0: 7c 20 28 70 2d 3e 74 6d 5f 79 65 61 72 2b 33 30 | (p->tm_year+30
8dd0: 30 29 25 34 30 30 3d 3d 30 29 3b 0a 20 20 70 2d 0)%400==0);. p-
8de0: 3e 74 6d 5f 79 64 61 79 20 3d 20 70 72 69 6f 72 >tm_yday = prior
8df0: 44 61 79 73 5b 70 2d 3e 74 6d 5f 6d 6f 6e 5d 20 Days[p->tm_mon]
8e00: 2b 20 70 2d 3e 74 6d 5f 6d 64 61 79 20 2d 20 31 + p->tm_mday - 1
8e10: 3b 0a 20 20 69 66 28 20 69 73 4c 65 61 70 59 72 ;. if( isLeapYr
8e20: 20 26 26 20 70 2d 3e 74 6d 5f 6d 6f 6e 3e 31 20 && p->tm_mon>1
8e30: 29 20 70 2d 3e 74 6d 5f 79 64 61 79 2b 2b 3b 0a ) p->tm_yday++;.
8e40: 20 20 6e 44 61 79 20 3d 20 28 70 2d 3e 74 6d 5f nDay = (p->tm_
8e50: 79 65 61 72 2d 37 30 29 2a 33 36 35 20 2b 20 28 year-70)*365 + (
8e60: 70 2d 3e 74 6d 5f 79 65 61 72 2d 36 39 29 2f 34 p->tm_year-69)/4
8e70: 20 2d 70 2d 3e 74 6d 5f 79 65 61 72 2f 31 30 30 -p->tm_year/100
8e80: 20 2b 20 0a 20 20 20 20 20 20 20 20 20 28 70 2d + . (p-
8e90: 3e 74 6d 5f 79 65 61 72 2b 33 30 30 29 2f 34 30 >tm_year+300)/40
8ea0: 30 20 2b 20 70 2d 3e 74 6d 5f 79 64 61 79 3b 0a 0 + p->tm_yday;.
8eb0: 20 20 74 20 3d 20 28 28 6e 44 61 79 2a 32 34 20 t = ((nDay*24
8ec0: 2b 20 70 2d 3e 74 6d 5f 68 6f 75 72 29 2a 36 30 + p->tm_hour)*60
8ed0: 20 2b 20 70 2d 3e 74 6d 5f 6d 69 6e 29 2a 36 30 + p->tm_min)*60
8ee0: 20 2b 20 70 2d 3e 74 6d 5f 73 65 63 3b 0a 20 20 + p->tm_sec;.
8ef0: 72 65 74 75 72 6e 20 74 3b 0a 7d 0a 0a 2f 2a 0a return t;.}../*.
8f00: 2a 2a 20 43 68 65 63 6b 20 74 68 65 20 6f 62 6a ** Check the obj
8f10: 65 63 74 54 69 6d 65 20 61 67 61 69 6e 73 74 20 ectTime against
8f20: 74 68 65 20 49 66 2d 4d 6f 64 69 66 69 65 64 2d the If-Modified-
8f30: 53 69 6e 63 65 20 72 65 71 75 65 73 74 20 68 65 Since request he
8f40: 61 64 65 72 2e 20 49 66 20 74 68 65 0a 2a 2a 20 ader. If the.**
8f50: 6f 62 6a 65 63 74 20 74 69 6d 65 20 69 73 6e 27 object time isn'
8f60: 74 20 61 6e 79 20 6e 65 77 65 72 20 74 68 61 6e t any newer than
8f70: 20 74 68 65 20 68 65 61 64 65 72 2c 20 77 65 20 the header, we
8f80: 69 6d 6d 65 64 69 61 74 65 6c 79 20 73 65 6e 64 immediately send
8f90: 20 62 61 63 6b 0a 2a 2a 20 61 20 33 30 34 20 72 back.** a 304 r
8fa0: 65 70 6c 79 20 61 6e 64 20 65 78 69 74 2e 0a 2a eply and exit..*
8fb0: 2f 0a 76 6f 69 64 20 63 67 69 5f 6d 6f 64 69 66 /.void cgi_modif
8fc0: 69 65 64 5f 73 69 6e 63 65 28 74 69 6d 65 5f 74 ied_since(time_t
8fd0: 20 6f 62 6a 65 63 74 54 69 6d 65 29 7b 0a 20 20 objectTime){.
8fe0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 49 66 20 const char *zIf
8ff0: 3d 20 50 28 22 48 54 54 50 5f 49 46 5f 4d 4f 44 = P("HTTP_IF_MOD
9000: 49 46 49 45 44 5f 53 49 4e 43 45 22 29 3b 0a 20 IFIED_SINCE");.
9010: 20 69 66 28 20 7a 49 66 3d 3d 30 20 29 20 72 65 if( zIf==0 ) re
9020: 74 75 72 6e 3b 0a 20 20 69 66 28 20 6f 62 6a 65 turn;. if( obje
9030: 63 74 54 69 6d 65 20 3e 20 63 67 69 5f 72 66 63 ctTime > cgi_rfc
9040: 38 32 32 5f 70 61 72 73 65 64 61 74 65 28 7a 49 822_parsedate(zI
9050: 66 29 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 63 f) ) return;. c
9060: 67 69 5f 73 65 74 5f 73 74 61 74 75 73 28 33 30 gi_set_status(30
9070: 34 2c 22 4e 6f 74 20 4d 6f 64 69 66 69 65 64 22 4,"Not Modified"
9080: 29 3b 0a 20 20 63 67 69 5f 72 65 73 65 74 5f 63 );. cgi_reset_c
9090: 6f 6e 74 65 6e 74 28 29 3b 0a 20 20 63 67 69 5f ontent();. cgi_
90a0: 72 65 70 6c 79 28 29 3b 0a 20 20 65 78 69 74 28 reply();. exit(
90b0: 30 29 3b 0a 7d 0a 0);.}.