Hex Artifact Content
Not logged in

Artifact c163109c85455a13f765b5615c309984824ba3bb:

File src/setup.c part of check-in [21326fb6f7] - Fix enforcement of access restrictions on reports. Do not allow reports to show the content of fields whose names begin with "private_" unless the "e" permission is enabled. by drh on 2008-07-19 15:12:34.

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 37 20 44 2e 20 52 69 63 68  (c) 2007 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 61  lic.** License a
00b0: 73 20 70 75 62 6c 69 73 68 65 64 20 62 79 20 74  s published by t
00c0: 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65  he Free Software
00d0: 20 46 6f 75 6e 64 61 74 69 6f 6e 3b 20 65 69 74   Foundation; eit
00e0: 68 65 72 0a 2a 2a 20 76 65 72 73 69 6f 6e 20 32  her.** version 2
00f0: 20 6f 66 20 74 68 65 20 4c 69 63 65 6e 73 65 2c   of the License,
0100: 20 6f 72 20 28 61 74 20 79 6f 75 72 20 6f 70 74   or (at your opt
0110: 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76  ion) any later v
0120: 65 72 73 69 6f 6e 2e 0a 2a 2a 0a 2a 2a 20 54 68  ersion..**.** Th
0130: 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69  is program is di
0140: 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65  stributed in the
0150: 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69   hope that it wi
0160: 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 2a 2a  ll be useful,.**
0170: 20 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59   but WITHOUT ANY
0180: 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f   WARRANTY; witho
0190: 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c  ut even the impl
01a0: 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a  ied warranty of.
01b0: 2a 2a 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49  ** MERCHANTABILI
01c0: 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f  TY or FITNESS FO
01d0: 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50  R A PARTICULAR P
01e0: 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65  URPOSE.  See the
01f0: 20 47 4e 55 0a 2a 2a 20 47 65 6e 65 72 61 6c 20   GNU.** General 
0200: 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66  Public License f
0210: 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e  or more details.
0220: 0a 2a 2a 0a 2a 2a 20 59 6f 75 20 73 68 6f 75 6c  .**.** You shoul
0230: 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20  d have received 
0240: 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e  a copy of the GN
0250: 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63  U General Public
0260: 0a 2a 2a 20 4c 69 63 65 6e 73 65 20 61 6c 6f 6e  .** License alon
0270: 67 20 77 69 74 68 20 74 68 69 73 20 6c 69 62 72  g with this libr
0280: 61 72 79 3b 20 69 66 20 6e 6f 74 2c 20 77 72 69  ary; if not, wri
0290: 74 65 20 74 6f 20 74 68 65 0a 2a 2a 20 46 72 65  te to the.** Fre
02a0: 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64  e Software Found
02b0: 61 74 69 6f 6e 2c 20 49 6e 63 2e 2c 20 35 39 20  ation, Inc., 59 
02c0: 54 65 6d 70 6c 65 20 50 6c 61 63 65 20 2d 20 53  Temple Place - S
02d0: 75 69 74 65 20 33 33 30 2c 0a 2a 2a 20 42 6f 73  uite 330,.** Bos
02e0: 74 6f 6e 2c 20 4d 41 20 20 30 32 31 31 31 2d 31  ton, MA  02111-1
02f0: 33 30 37 2c 20 55 53 41 2e 0a 2a 2a 0a 2a 2a 20  307, USA..**.** 
0300: 41 75 74 68 6f 72 20 63 6f 6e 74 61 63 74 20 69  Author contact i
0310: 6e 66 6f 72 6d 61 74 69 6f 6e 3a 0a 2a 2a 20 20  nformation:.**  
0320: 20 64 72 68 40 68 77 61 63 69 2e 63 6f 6d 0a 2a   drh@hwaci.com.*
0330: 2a 20 20 20 68 74 74 70 3a 2f 2f 77 77 77 2e 68  *   http://www.h
0340: 77 61 63 69 2e 63 6f 6d 2f 64 72 68 2f 0a 2a 2a  waci.com/drh/.**
0350: 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  .***************
0360: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0370: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0380: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0390: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
03a0: 0a 2a 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74  .**.** Implement
03b0: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 53 65 74  ation of the Set
03c0: 75 70 20 70 61 67 65 0a 2a 2f 0a 23 69 6e 63 6c  up page.*/.#incl
03d0: 75 64 65 20 3c 61 73 73 65 72 74 2e 68 3e 0a 23  ude <assert.h>.#
03e0: 69 6e 63 6c 75 64 65 20 22 63 6f 6e 66 69 67 2e  include "config.
03f0: 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 73 65 74  h".#include "set
0400: 75 70 2e 68 22 0a 0a 0a 2f 2a 0a 2a 2a 20 4f 75  up.h".../*.** Ou
0410: 74 70 75 74 20 61 20 73 69 6e 67 6c 65 20 65 6e  tput a single en
0420: 74 72 79 20 66 6f 72 20 61 20 6d 65 6e 75 20 67  try for a menu g
0430: 65 6e 65 72 61 74 65 64 20 75 73 69 6e 67 20 61  enerated using a
0440: 6e 20 48 54 4d 4c 20 74 61 62 6c 65 2e 0a 2a 2a  n HTML table..**
0450: 20 49 66 20 7a 4c 69 6e 6b 20 69 73 20 6e 6f 74   If zLink is not
0460: 20 4e 55 4c 4c 20 6f 72 20 61 6e 20 65 6d 70 74   NULL or an empt
0470: 79 20 73 74 72 69 6e 67 2c 20 74 68 65 6e 20 69  y string, then i
0480: 74 20 69 73 20 74 68 65 20 70 61 67 65 20 74 68  t is the page th
0490: 61 74 0a 2a 2a 20 74 68 65 20 6d 65 6e 75 20 65  at.** the menu e
04a0: 6e 74 72 79 20 77 69 6c 6c 20 68 79 70 65 72 6c  ntry will hyperl
04b0: 69 6e 6b 20 74 6f 2e 20 20 49 66 20 7a 4c 69 6e  ink to.  If zLin
04c0: 6b 20 69 73 20 4e 55 4c 4c 20 6f 72 20 22 22 2c  k is NULL or "",
04d0: 20 74 68 65 6e 0a 2a 2a 20 74 68 65 20 6d 65 6e   then.** the men
04e0: 75 20 65 6e 74 72 79 20 68 61 73 20 6e 6f 20 68  u entry has no h
04f0: 79 70 65 72 6c 69 6e 6b 20 2d 20 69 74 20 69 73  yperlink - it is
0500: 20 64 69 73 61 62 6c 65 64 2e 0a 2a 2f 0a 76 6f   disabled..*/.vo
0510: 69 64 20 73 65 74 75 70 5f 6d 65 6e 75 5f 65 6e  id setup_menu_en
0520: 74 72 79 28 0a 20 20 63 6f 6e 73 74 20 63 68 61  try(.  const cha
0530: 72 20 2a 7a 54 69 74 6c 65 2c 0a 20 20 63 6f 6e  r *zTitle,.  con
0540: 73 74 20 63 68 61 72 20 2a 7a 4c 69 6e 6b 2c 0a  st char *zLink,.
0550: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44    const char *zD
0560: 65 73 63 0a 29 7b 0a 20 20 40 20 3c 74 72 3e 3c  esc.){.  @ <tr><
0570: 74 64 20 76 61 6c 69 67 6e 3d 22 74 6f 70 22 20  td valign="top" 
0580: 61 6c 69 67 6e 3d 22 72 69 67 68 74 22 3e 0a 20  align="right">. 
0590: 20 69 66 28 20 7a 4c 69 6e 6b 20 26 26 20 7a 4c   if( zLink && zL
05a0: 69 6e 6b 5b 30 5d 20 29 7b 0a 20 20 20 20 40 20  ink[0] ){.    @ 
05b0: 3c 61 20 68 72 65 66 3d 22 25 73 28 7a 4c 69 6e  <a href="%s(zLin
05c0: 6b 29 22 3e 25 68 28 7a 54 69 74 6c 65 29 3c 2f  k)">%h(zTitle)</
05d0: 61 3e 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20  a>.  }else{.    
05e0: 40 20 25 68 28 7a 54 69 74 6c 65 29 0a 20 20 7d  @ %h(zTitle).  }
05f0: 0a 20 20 40 20 3c 2f 74 64 3e 3c 74 64 20 76 61  .  @ </td><td va
0600: 6c 69 67 6e 3d 22 74 6f 70 22 3e 25 68 28 7a 44  lign="top">%h(zD
0610: 65 73 63 29 3c 2f 74 64 3e 3c 2f 74 72 3e 0a 7d  esc)</td></tr>.}
0620: 0a 0a 2f 2a 0a 2a 2a 20 57 45 42 50 41 47 45 3a  ../*.** WEBPAGE:
0630: 20 2f 73 65 74 75 70 0a 2a 2f 0a 76 6f 69 64 20   /setup.*/.void 
0640: 73 65 74 75 70 5f 70 61 67 65 28 76 6f 69 64 29  setup_page(void)
0650: 7b 0a 20 20 6c 6f 67 69 6e 5f 63 68 65 63 6b 5f  {.  login_check_
0660: 63 72 65 64 65 6e 74 69 61 6c 73 28 29 3b 0a 20  credentials();. 
0670: 20 69 66 28 20 21 67 2e 6f 6b 53 65 74 75 70 20   if( !g.okSetup 
0680: 29 7b 0a 20 20 20 20 6c 6f 67 69 6e 5f 6e 65 65  ){.    login_nee
0690: 64 65 64 28 29 3b 0a 20 20 7d 0a 0a 20 20 73 74  ded();.  }..  st
06a0: 79 6c 65 5f 68 65 61 64 65 72 28 22 53 65 74 75  yle_header("Setu
06b0: 70 22 29 3b 0a 20 20 40 20 3c 74 61 62 6c 65 20  p");.  @ <table 
06c0: 62 6f 72 64 65 72 3d 22 30 22 20 63 65 6c 6c 73  border="0" cells
06d0: 70 61 63 69 6e 67 3d 22 32 30 22 3e 0a 20 20 73  pacing="20">.  s
06e0: 65 74 75 70 5f 6d 65 6e 75 5f 65 6e 74 72 79 28  etup_menu_entry(
06f0: 22 55 73 65 72 73 22 2c 20 22 73 65 74 75 70 5f  "Users", "setup_
0700: 75 6c 69 73 74 22 2c 0a 20 20 20 20 22 47 72 61  ulist",.    "Gra
0710: 6e 74 20 70 72 69 76 69 6c 65 67 65 73 20 74 6f  nt privileges to
0720: 20 69 6e 64 69 76 69 64 75 61 6c 20 75 73 65 72   individual user
0730: 73 2e 22 29 3b 0a 20 20 73 65 74 75 70 5f 6d 65  s.");.  setup_me
0740: 6e 75 5f 65 6e 74 72 79 28 22 41 63 63 65 73 73  nu_entry("Access
0750: 22 2c 20 22 73 65 74 75 70 5f 61 63 63 65 73 73  ", "setup_access
0760: 22 2c 0a 20 20 20 20 22 43 6f 6e 74 72 6f 6c 20  ",.    "Control 
0770: 61 63 63 65 73 73 20 73 65 74 74 69 6e 67 73 2e  access settings.
0780: 22 29 3b 0a 20 20 73 65 74 75 70 5f 6d 65 6e 75  ");.  setup_menu
0790: 5f 65 6e 74 72 79 28 22 43 6f 6e 66 69 67 75 72  _entry("Configur
07a0: 61 74 69 6f 6e 22 2c 20 22 73 65 74 75 70 5f 63  ation", "setup_c
07b0: 6f 6e 66 69 67 22 2c 0a 20 20 20 20 22 43 6f 6e  onfig",.    "Con
07c0: 66 69 67 75 72 65 20 74 68 65 20 57 57 57 20 63  figure the WWW c
07d0: 6f 6d 70 6f 6e 65 6e 74 73 20 6f 66 20 74 68 65  omponents of the
07e0: 20 72 65 70 6f 73 69 74 6f 72 79 22 29 3b 0a 20   repository");. 
07f0: 20 73 65 74 75 70 5f 6d 65 6e 75 5f 65 6e 74 72   setup_menu_entr
0800: 79 28 22 54 69 6d 65 6c 69 6e 65 22 2c 20 22 73  y("Timeline", "s
0810: 65 74 75 70 5f 74 69 6d 65 6c 69 6e 65 22 2c 0a  etup_timeline",.
0820: 20 20 20 20 22 54 69 6d 65 6c 69 6e 65 20 64 69      "Timeline di
0830: 73 70 6c 61 79 20 70 72 65 66 65 72 65 6e 63 65  splay preference
0840: 73 22 29 3b 0a 20 20 73 65 74 75 70 5f 6d 65 6e  s");.  setup_men
0850: 75 5f 65 6e 74 72 79 28 22 54 69 63 6b 65 74 73  u_entry("Tickets
0860: 22 2c 20 22 74 6b 74 73 65 74 75 70 22 2c 0a 20  ", "tktsetup",. 
0870: 20 20 20 22 43 6f 6e 66 69 67 75 72 65 20 74 68     "Configure th
0880: 65 20 74 72 6f 75 62 6c 65 2d 74 69 63 6b 65 74  e trouble-ticket
0890: 69 6e 67 20 73 79 73 74 65 6d 20 66 6f 72 20 74  ing system for t
08a0: 68 69 73 20 72 65 70 6f 73 69 74 6f 72 79 22 29  his repository")
08b0: 3b 0a 20 20 73 65 74 75 70 5f 6d 65 6e 75 5f 65  ;.  setup_menu_e
08c0: 6e 74 72 79 28 22 43 53 53 22 2c 20 22 73 65 74  ntry("CSS", "set
08d0: 75 70 5f 65 64 69 74 63 73 73 22 2c 0a 20 20 20  up_editcss",.   
08e0: 20 22 45 64 69 74 20 74 68 65 20 43 61 73 63 61   "Edit the Casca
08f0: 64 69 6e 67 20 53 74 79 6c 65 20 53 68 65 65 74  ding Style Sheet
0900: 20 75 73 65 64 20 62 79 20 61 6c 6c 20 70 61 67   used by all pag
0910: 65 73 20 6f 66 20 74 68 69 73 20 72 65 70 6f 73  es of this repos
0920: 69 74 6f 72 79 22 29 3b 0a 20 20 73 65 74 75 70  itory");.  setup
0930: 5f 6d 65 6e 75 5f 65 6e 74 72 79 28 22 48 65 61  _menu_entry("Hea
0940: 64 65 72 22 2c 20 22 73 65 74 75 70 5f 68 65 61  der", "setup_hea
0950: 64 65 72 22 2c 0a 20 20 20 20 22 45 64 69 74 20  der",.    "Edit 
0960: 48 54 4d 4c 20 74 65 78 74 20 69 6e 73 65 72 74  HTML text insert
0970: 65 64 20 61 74 20 74 68 65 20 74 6f 70 20 6f 66  ed at the top of
0980: 20 65 76 65 72 79 20 70 61 67 65 22 29 3b 0a 20   every page");. 
0990: 20 73 65 74 75 70 5f 6d 65 6e 75 5f 65 6e 74 72   setup_menu_entr
09a0: 79 28 22 46 6f 6f 74 65 72 22 2c 20 22 73 65 74  y("Footer", "set
09b0: 75 70 5f 66 6f 6f 74 65 72 22 2c 0a 20 20 20 20  up_footer",.    
09c0: 22 45 64 69 74 20 48 54 4d 4c 20 74 65 78 74 20  "Edit HTML text 
09d0: 69 6e 73 65 72 74 65 64 20 61 74 20 74 68 65 20  inserted at the 
09e0: 62 6f 74 74 6f 6d 20 6f 66 20 65 76 65 72 79 20  bottom of every 
09f0: 70 61 67 65 22 29 3b 0a 20 20 73 65 74 75 70 5f  page");.  setup_
0a00: 6d 65 6e 75 5f 65 6e 74 72 79 28 22 53 68 75 6e  menu_entry("Shun
0a10: 6e 65 64 22 2c 20 22 73 68 75 6e 22 2c 0a 20 20  ned", "shun",.  
0a20: 20 20 22 53 68 6f 77 20 61 72 74 69 66 61 63 74    "Show artifact
0a30: 73 20 74 68 61 74 20 61 72 65 20 73 68 75 6e 6e  s that are shunn
0a40: 65 64 20 62 79 20 74 68 69 73 20 72 65 70 6f 73  ed by this repos
0a50: 69 74 6f 72 79 22 29 3b 0a 20 20 73 65 74 75 70  itory");.  setup
0a60: 5f 6d 65 6e 75 5f 65 6e 74 72 79 28 22 53 74 61  _menu_entry("Sta
0a70: 74 73 22 2c 20 22 73 74 61 74 22 2c 0a 20 20 20  ts", "stat",.   
0a80: 20 22 44 69 73 70 6c 61 79 20 72 65 70 6f 73 69   "Display reposi
0a90: 74 6f 72 79 20 73 74 61 74 69 73 74 69 63 73 22  tory statistics"
0aa0: 29 3b 0a 20 20 40 20 3c 2f 74 61 62 6c 65 3e 0a  );.  @ </table>.
0ab0: 0a 20 20 73 74 79 6c 65 5f 66 6f 6f 74 65 72 28  .  style_footer(
0ac0: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 57 45 42 50  );.}../*.** WEBP
0ad0: 41 47 45 3a 20 73 65 74 75 70 5f 75 6c 69 73 74  AGE: setup_ulist
0ae0: 0a 2a 2a 0a 2a 2a 20 53 68 6f 77 20 61 20 6c 69  .**.** Show a li
0af0: 73 74 20 6f 66 20 75 73 65 72 73 2e 20 20 43 6c  st of users.  Cl
0b00: 69 63 6b 69 6e 67 20 6f 6e 20 61 6e 79 20 75 73  icking on any us
0b10: 65 72 20 6a 75 6d 70 73 20 74 6f 20 74 68 65 20  er jumps to the 
0b20: 65 64 69 74 0a 2a 2a 20 73 63 72 65 65 6e 20 66  edit.** screen f
0b30: 6f 72 20 74 68 61 74 20 75 73 65 72 2e 0a 2a 2f  or that user..*/
0b40: 0a 76 6f 69 64 20 73 65 74 75 70 5f 75 6c 69 73  .void setup_ulis
0b50: 74 28 76 6f 69 64 29 7b 0a 20 20 53 74 6d 74 20  t(void){.  Stmt 
0b60: 73 3b 0a 0a 20 20 6c 6f 67 69 6e 5f 63 68 65 63  s;..  login_chec
0b70: 6b 5f 63 72 65 64 65 6e 74 69 61 6c 73 28 29 3b  k_credentials();
0b80: 0a 20 20 69 66 28 20 21 67 2e 6f 6b 53 65 74 75  .  if( !g.okSetu
0b90: 70 20 29 7b 0a 20 20 20 20 6c 6f 67 69 6e 5f 6e  p ){.    login_n
0ba0: 65 65 64 65 64 28 29 3b 0a 20 20 20 20 72 65 74  eeded();.    ret
0bb0: 75 72 6e 3b 0a 20 20 7d 0a 0a 20 20 73 74 79 6c  urn;.  }..  styl
0bc0: 65 5f 73 75 62 6d 65 6e 75 5f 65 6c 65 6d 65 6e  e_submenu_elemen
0bd0: 74 28 22 41 64 64 22 2c 20 22 41 64 64 20 55 73  t("Add", "Add Us
0be0: 65 72 22 2c 20 22 73 65 74 75 70 5f 75 65 64 69  er", "setup_uedi
0bf0: 74 22 29 3b 0a 20 20 73 74 79 6c 65 5f 68 65 61  t");.  style_hea
0c00: 64 65 72 28 22 55 73 65 72 20 4c 69 73 74 22 29  der("User List")
0c10: 3b 0a 20 20 40 20 3c 74 61 62 6c 65 20 62 6f 72  ;.  @ <table bor
0c20: 64 65 72 3d 22 30 22 20 63 65 6c 6c 70 61 64 64  der="0" cellpadd
0c30: 69 6e 67 3d 22 30 22 20 63 65 6c 6c 73 70 61 63  ing="0" cellspac
0c40: 69 6e 67 3d 22 32 35 22 3e 0a 20 20 40 20 3c 74  ing="25">.  @ <t
0c50: 72 3e 3c 74 64 20 76 61 6c 69 67 6e 3d 22 74 6f  r><td valign="to
0c60: 70 22 3e 0a 20 20 40 20 3c 62 3e 55 73 65 72 73  p">.  @ <b>Users
0c70: 3a 3c 2f 62 3e 0a 20 20 40 20 3c 74 61 62 6c 65  :</b>.  @ <table
0c80: 20 62 6f 72 64 65 72 3d 22 31 22 20 63 65 6c 6c   border="1" cell
0c90: 70 61 64 64 69 6e 67 3d 22 31 30 22 3e 3c 74 72  padding="10"><tr
0ca0: 3e 3c 74 64 3e 0a 20 20 40 20 3c 74 61 62 6c 65  ><td>.  @ <table
0cb0: 20 63 65 6c 6c 73 70 61 63 69 6e 67 3d 30 20 63   cellspacing=0 c
0cc0: 65 6c 6c 70 61 64 64 69 6e 67 3d 30 20 62 6f 72  ellpadding=0 bor
0cd0: 64 65 72 3d 30 3e 0a 20 20 40 20 3c 74 72 3e 0a  der=0>.  @ <tr>.
0ce0: 20 20 40 20 20 20 3c 74 68 20 61 6c 69 67 6e 3d    @   <th align=
0cf0: 22 72 69 67 68 74 22 3e 55 73 65 72 26 6e 62 73  "right">User&nbs
0d00: 70 3b 49 44 3c 2f 74 68 3e 3c 74 64 20 77 69 64  p;ID</th><td wid
0d10: 74 68 3d 22 32 30 22 3e 26 6e 62 73 70 3b 3c 2f  th="20">&nbsp;</
0d20: 74 64 3e 0a 20 20 40 20 20 20 3c 74 68 3e 43 61  td>.  @   <th>Ca
0d30: 70 61 62 69 6c 69 74 69 65 73 3c 2f 74 68 3e 3c  pabilities</th><
0d40: 74 64 20 77 69 64 74 68 3d 22 31 35 22 3e 26 6e  td width="15">&n
0d50: 62 73 70 3b 3c 2f 74 64 3e 0a 20 20 40 20 20 20  bsp;</td>.  @   
0d60: 3c 74 68 3e 43 6f 6e 74 61 63 74 26 6e 62 73 70  <th>Contact&nbsp
0d70: 3b 49 6e 66 6f 3c 2f 74 68 3e 0a 20 20 40 20 3c  ;Info</th>.  @ <
0d80: 2f 74 72 3e 0a 20 20 64 62 5f 70 72 65 70 61 72  /tr>.  db_prepar
0d90: 65 28 26 73 2c 20 22 53 45 4c 45 43 54 20 75 69  e(&s, "SELECT ui
0da0: 64 2c 20 6c 6f 67 69 6e 2c 20 63 61 70 2c 20 69  d, login, cap, i
0db0: 6e 66 6f 20 46 52 4f 4d 20 75 73 65 72 20 4f 52  nfo FROM user OR
0dc0: 44 45 52 20 42 59 20 6c 6f 67 69 6e 22 29 3b 0a  DER BY login");.
0dd0: 20 20 77 68 69 6c 65 28 20 64 62 5f 73 74 65 70    while( db_step
0de0: 28 26 73 29 3d 3d 53 51 4c 49 54 45 5f 52 4f 57  (&s)==SQLITE_ROW
0df0: 20 29 7b 0a 20 20 20 20 40 20 3c 74 72 3e 0a 20   ){.    @ <tr>. 
0e00: 20 20 20 40 20 3c 74 64 20 61 6c 69 67 6e 3d 22     @ <td align="
0e10: 72 69 67 68 74 22 3e 0a 20 20 20 20 69 66 28 20  right">.    if( 
0e20: 67 2e 6f 6b 41 64 6d 69 6e 20 29 7b 0a 20 20 20  g.okAdmin ){.   
0e30: 20 20 20 40 20 3c 61 20 68 72 65 66 3d 22 73 65     @ <a href="se
0e40: 74 75 70 5f 75 65 64 69 74 3f 69 64 3d 25 64 28  tup_uedit?id=%d(
0e50: 64 62 5f 63 6f 6c 75 6d 6e 5f 69 6e 74 28 26 73  db_column_int(&s
0e60: 2c 30 29 29 22 3e 0a 20 20 20 20 7d 0a 20 20 20  ,0))">.    }.   
0e70: 20 40 20 3c 6e 6f 62 72 3e 25 68 28 64 62 5f 63   @ <nobr>%h(db_c
0e80: 6f 6c 75 6d 6e 5f 74 65 78 74 28 26 73 2c 31 29  olumn_text(&s,1)
0e90: 29 3c 2f 6e 6f 62 72 3e 0a 20 20 20 20 69 66 28  )</nobr>.    if(
0ea0: 20 67 2e 6f 6b 41 64 6d 69 6e 20 29 7b 0a 20 20   g.okAdmin ){.  
0eb0: 20 20 20 20 40 20 3c 2f 61 3e 0a 20 20 20 20 7d      @ </a>.    }
0ec0: 0a 20 20 20 20 40 20 3c 2f 74 64 3e 3c 74 64 3e  .    @ </td><td>
0ed0: 26 6e 62 73 70 3b 26 6e 62 73 70 3b 26 6e 62 73  &nbsp;&nbsp;&nbs
0ee0: 70 3b 3c 2f 74 64 3e 0a 20 20 20 20 40 20 3c 74  p;</td>.    @ <t
0ef0: 64 20 61 6c 69 67 6e 3d 22 63 65 6e 74 65 72 22  d align="center"
0f00: 3e 25 73 28 64 62 5f 63 6f 6c 75 6d 6e 5f 74 65  >%s(db_column_te
0f10: 78 74 28 26 73 2c 32 29 29 3c 2f 74 64 3e 0a 20  xt(&s,2))</td>. 
0f20: 20 20 20 40 20 3c 74 64 3e 26 6e 62 73 70 3b 26     @ <td>&nbsp;&
0f30: 6e 62 73 70 3b 26 6e 62 73 70 3b 3c 2f 74 64 3e  nbsp;&nbsp;</td>
0f40: 0a 20 20 20 20 40 20 3c 74 64 20 61 6c 69 67 6e  .    @ <td align
0f50: 3d 22 6c 65 66 74 22 3e 25 73 28 64 62 5f 63 6f  ="left">%s(db_co
0f60: 6c 75 6d 6e 5f 74 65 78 74 28 26 73 2c 33 29 29  lumn_text(&s,3))
0f70: 3c 2f 74 64 3e 0a 20 20 20 20 40 20 3c 2f 74 72  </td>.    @ </tr
0f80: 3e 0a 20 20 7d 0a 20 20 40 20 3c 2f 74 61 62 6c  >.  }.  @ </tabl
0f90: 65 3e 3c 2f 74 64 3e 3c 2f 74 72 3e 3c 2f 74 61  e></td></tr></ta
0fa0: 62 6c 65 3e 0a 20 20 40 20 3c 74 64 20 76 61 6c  ble>.  @ <td val
0fb0: 69 67 6e 3d 22 74 6f 70 22 3e 0a 20 20 40 20 3c  ign="top">.  @ <
0fc0: 62 3e 4e 6f 74 65 73 3a 3c 2f 62 3e 0a 20 20 40  b>Notes:</b>.  @
0fd0: 20 3c 6f 6c 3e 0a 20 20 40 20 3c 6c 69 3e 3c 70   <ol>.  @ <li><p
0fe0: 3e 54 68 65 20 70 65 72 6d 69 73 73 69 6f 6e 20  >The permission 
0ff0: 66 6c 61 67 73 20 61 72 65 20 61 73 20 66 6f 6c  flags are as fol
1000: 6c 6f 77 73 3a 3c 2f 70 3e 0a 20 20 40 20 3c 6f  lows:</p>.  @ <o
1010: 6c 20 74 79 70 65 3d 22 61 22 3e 0a 20 20 40 20  l type="a">.  @ 
1020: 3c 6c 69 20 76 61 6c 75 65 3d 22 31 22 3e 3c 62  <li value="1"><b
1030: 3e 41 64 6d 69 6e 3c 2f 62 3e 3a 20 43 72 65 61  >Admin</b>: Crea
1040: 74 65 20 61 6e 64 20 64 65 6c 65 74 65 20 75 73  te and delete us
1050: 65 72 73 3c 2f 6c 69 3e 0a 20 20 40 20 3c 6c 69  ers</li>.  @ <li
1060: 20 76 61 6c 75 65 3d 22 33 22 3e 3c 62 3e 41 70   value="3"><b>Ap
1070: 70 65 6e 64 2d 54 6b 74 3c 2f 62 3e 3a 20 41 70  pend-Tkt</b>: Ap
1080: 70 65 6e 64 20 74 6f 20 74 69 63 6b 65 74 73 3c  pend to tickets<
1090: 2f 6c 69 3e 0a 20 20 40 20 3c 6c 69 20 76 61 6c  /li>.  @ <li val
10a0: 75 65 3d 22 34 22 3e 3c 62 3e 44 65 6c 65 74 65  ue="4"><b>Delete
10b0: 3c 2f 62 3e 3a 20 44 65 6c 65 74 65 20 77 69 6b  </b>: Delete wik
10c0: 69 20 61 6e 64 20 74 69 63 6b 65 74 73 3c 2f 6c  i and tickets</l
10d0: 69 3e 0a 20 20 40 20 3c 6c 69 20 76 61 6c 75 65  i>.  @ <li value
10e0: 3d 22 35 22 3e 3c 62 3e 45 6d 61 69 6c 3c 2f 62  ="5"><b>Email</b
10f0: 3e 3a 20 56 69 65 77 20 73 65 6e 73 69 74 69 76  >: View sensitiv
1100: 65 20 64 61 74 61 20 73 75 63 68 20 61 73 20 45  e data such as E
1110: 4d 61 69 6c 20 61 64 64 72 65 73 73 65 73 3c 2f  Mail addresses</
1120: 6c 69 3e 0a 20 20 40 20 3c 6c 69 20 76 61 6c 75  li>.  @ <li valu
1130: 65 3d 22 36 22 3e 3c 62 3e 4e 65 77 2d 57 69 6b  e="6"><b>New-Wik
1140: 69 3c 2f 62 3e 3a 20 43 72 65 61 74 65 20 6e 65  i</b>: Create ne
1150: 77 20 77 69 6b 69 20 70 61 67 65 73 3c 2f 6c 69  w wiki pages</li
1160: 3e 0a 20 20 40 20 3c 6c 69 20 76 61 6c 75 65 3d  >.  @ <li value=
1170: 22 37 22 3e 3c 62 3e 43 6c 6f 6e 65 3c 2f 62 3e  "7"><b>Clone</b>
1180: 3a 20 43 6c 6f 6e 65 20 74 68 65 20 72 65 70 6f  : Clone the repo
1190: 73 69 74 6f 72 79 3c 2f 6c 69 3e 0a 20 20 40 20  sitory</li>.  @ 
11a0: 3c 6c 69 20 76 61 6c 75 65 3d 22 38 22 3e 3c 62  <li value="8"><b
11b0: 3e 48 69 73 74 6f 72 79 3c 2f 62 3e 3a 20 56 69  >History</b>: Vi
11c0: 65 77 20 64 65 74 61 69 6c 20 72 65 70 6f 73 69  ew detail reposi
11d0: 74 6f 72 79 20 68 69 73 74 6f 72 79 3c 2f 6c 69  tory history</li
11e0: 3e 0a 20 20 40 20 3c 6c 69 20 76 61 6c 75 65 3d  >.  @ <li value=
11f0: 22 39 22 3e 3c 62 3e 43 68 65 63 6b 2d 49 6e 3c  "9"><b>Check-In<
1200: 2f 62 3e 3a 20 43 6f 6d 6d 69 74 20 6e 65 77 20  /b>: Commit new 
1210: 76 65 72 73 69 6f 6e 73 20 69 6e 20 74 68 65 20  versions in the 
1220: 72 65 70 6f 73 69 74 6f 72 79 3c 2f 6c 69 3e 0a  repository</li>.
1230: 20 20 40 20 3c 6c 69 20 76 61 6c 75 65 3d 22 31    @ <li value="1
1240: 30 22 3e 3c 62 3e 52 65 61 64 2d 57 69 6b 69 3c  0"><b>Read-Wiki<
1250: 2f 62 3e 3a 20 56 69 65 77 20 77 69 6b 69 20 70  /b>: View wiki p
1260: 61 67 65 73 3c 2f 6c 69 3e 0a 20 20 40 20 3c 6c  ages</li>.  @ <l
1270: 69 20 76 61 6c 75 65 3d 22 31 31 22 3e 3c 62 3e  i value="11"><b>
1280: 57 72 69 74 65 2d 57 69 6b 69 3c 2f 62 3e 3a 20  Write-Wiki</b>: 
1290: 45 64 69 74 20 77 69 6b 69 20 70 61 67 65 73 3c  Edit wiki pages<
12a0: 2f 6c 69 3e 0a 20 20 40 20 3c 6c 69 20 76 61 6c  /li>.  @ <li val
12b0: 75 65 3d 22 31 33 22 3e 3c 62 3e 41 70 70 65 6e  ue="13"><b>Appen
12c0: 64 2d 57 69 6b 69 3c 2f 62 3e 3a 20 41 70 70 65  d-Wiki</b>: Appe
12d0: 6e 64 20 74 6f 20 77 69 6b 69 20 70 61 67 65 73  nd to wiki pages
12e0: 3c 2f 6c 69 3e 0a 20 20 40 20 3c 6c 69 20 76 61  </li>.  @ <li va
12f0: 6c 75 65 3d 22 31 34 22 3e 3c 62 3e 4e 65 77 2d  lue="14"><b>New-
1300: 54 6b 74 3c 2f 62 3e 3a 20 43 72 65 61 74 65 20  Tkt</b>: Create 
1310: 6e 65 77 20 74 69 63 6b 65 74 73 3c 2f 6c 69 3e  new tickets</li>
1320: 0a 20 20 40 20 3c 6c 69 20 76 61 6c 75 65 3d 22  .  @ <li value="
1330: 31 35 22 3e 3c 62 3e 43 68 65 63 6b 2d 4f 75 74  15"><b>Check-Out
1340: 3c 2f 62 3e 3a 20 43 68 65 63 6b 20 6f 75 74 20  </b>: Check out 
1350: 76 65 72 73 69 6f 6e 73 3c 2f 6c 69 3e 0a 20 20  versions</li>.  
1360: 40 20 3c 6c 69 20 76 61 6c 75 65 3d 22 31 36 22  @ <li value="16"
1370: 3e 3c 62 3e 50 61 73 73 77 6f 72 64 3c 2f 62 3e  ><b>Password</b>
1380: 3a 20 43 68 61 6e 67 65 20 79 6f 75 72 20 6f 77  : Change your ow
1390: 6e 20 70 61 73 73 77 6f 72 64 3c 2f 6c 69 3e 0a  n password</li>.
13a0: 20 20 40 20 3c 6c 69 20 76 61 6c 75 65 3d 22 31    @ <li value="1
13b0: 38 22 3e 3c 62 3e 52 65 61 64 2d 54 6b 74 3c 2f  8"><b>Read-Tkt</
13c0: 62 3e 3a 20 56 69 65 77 20 74 69 63 6b 65 74 73  b>: View tickets
13d0: 3c 2f 6c 69 3e 0a 20 20 40 20 3c 6c 69 20 76 61  </li>.  @ <li va
13e0: 6c 75 65 3d 22 31 39 22 3e 3c 62 3e 53 65 74 75  lue="19"><b>Setu
13f0: 70 3a 3c 2f 62 3e 20 53 65 74 75 70 20 61 6e 64  p:</b> Setup and
1400: 20 63 6f 6e 66 69 67 75 72 65 20 74 68 69 73 20   configure this 
1410: 77 65 62 73 69 74 65 3c 2f 6c 69 3e 0a 20 20 40  website</li>.  @
1420: 20 3c 6c 69 20 76 61 6c 75 65 3d 22 32 30 22 3e   <li value="20">
1430: 3c 62 3e 54 6b 74 2d 52 65 70 6f 72 74 3a 3c 2f  <b>Tkt-Report:</
1440: 62 3e 20 43 72 65 61 74 65 20 6e 65 77 20 62 75  b> Create new bu
1450: 67 20 73 75 6d 6d 61 72 79 20 72 65 70 6f 72 74  g summary report
1460: 73 3c 2f 6c 69 3e 0a 20 20 40 20 3c 6c 69 20 76  s</li>.  @ <li v
1470: 61 6c 75 65 3d 22 32 33 22 3e 3c 62 3e 57 72 69  alue="23"><b>Wri
1480: 74 65 2d 54 6b 74 3c 2f 62 3e 3a 20 45 64 69 74  te-Tkt</b>: Edit
1490: 20 74 69 63 6b 65 74 73 3c 2f 6c 69 3e 0a 20 20   tickets</li>.  
14a0: 40 20 3c 2f 6f 6c 3e 0a 20 20 40 20 3c 2f 70 3e  @ </ol>.  @ </p>
14b0: 3c 2f 6c 69 3e 0a 20 20 40 0a 20 20 40 20 3c 6c  </li>.  @.  @ <l
14c0: 69 3e 3c 70 3e 0a 20 20 40 20 45 76 65 72 79 20  i><p>.  @ Every 
14d0: 75 73 65 72 2c 20 6c 6f 67 67 65 64 20 69 6e 20  user, logged in 
14e0: 6f 72 20 6e 6f 74 2c 20 68 61 73 20 74 68 65 20  or not, has the 
14f0: 70 72 69 76 69 6c 65 67 65 73 20 6f 66 20 3c 62  privileges of <b
1500: 3e 6e 6f 62 6f 64 79 3c 2f 62 3e 2e 0a 20 20 40  >nobody</b>..  @
1510: 20 41 6e 79 20 68 75 6d 61 6e 20 63 61 6e 20 6c   Any human can l
1520: 6f 67 69 6e 20 61 73 20 3c 62 3e 61 6e 6f 6e 79  ogin as <b>anony
1530: 6d 6f 75 73 3c 2f 62 3e 20 73 69 6e 63 65 20 74  mous</b> since t
1540: 68 65 20 70 61 73 73 77 6f 72 64 20 69 73 0a 20  he password is. 
1550: 20 40 20 63 6c 65 61 72 6c 79 20 64 69 73 70 6c   @ clearly displ
1560: 61 79 65 64 20 6f 6e 20 74 68 65 20 6c 6f 67 69  ayed on the logi
1570: 6e 20 70 61 67 65 20 66 6f 72 20 74 68 65 6d 20  n page for them 
1580: 74 6f 20 74 79 70 65 2e 20 20 54 68 65 20 70 75  to type.  The pu
1590: 72 70 6f 73 65 0a 20 20 40 20 6f 66 20 72 65 71  rpose.  @ of req
15a0: 75 69 72 69 6e 67 20 61 6e 6f 6e 79 6d 6f 75 73  uiring anonymous
15b0: 20 74 6f 20 6c 6f 67 20 69 6e 20 69 73 20 74 6f   to log in is to
15c0: 20 70 72 65 76 65 6e 74 20 61 63 63 65 73 73 20   prevent access 
15d0: 62 79 20 73 70 69 64 65 72 73 2e 0a 20 20 40 20  by spiders..  @ 
15e0: 3c 2f 70 3e 3c 2f 6c 69 3e 0a 20 20 40 0a 20 20  </p></li>.  @.  
15f0: 40 20 3c 2f 6f 6c 3e 0a 20 20 40 20 3c 2f 74 64  @ </ol>.  @ </td
1600: 3e 3c 2f 74 72 3e 3c 2f 74 61 62 6c 65 3e 0a 20  ></tr></table>. 
1610: 20 73 74 79 6c 65 5f 66 6f 6f 74 65 72 28 29 3b   style_footer();
1620: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 57 45 42 50 41 47  .}../*.** WEBPAG
1630: 45 3a 20 2f 73 65 74 75 70 5f 75 65 64 69 74 0a  E: /setup_uedit.
1640: 2a 2f 0a 76 6f 69 64 20 75 73 65 72 5f 65 64 69  */.void user_edi
1650: 74 28 76 6f 69 64 29 7b 0a 20 20 63 6f 6e 73 74  t(void){.  const
1660: 20 63 68 61 72 20 2a 7a 49 64 2c 20 2a 7a 4c 6f   char *zId, *zLo
1670: 67 69 6e 2c 20 2a 7a 49 6e 66 6f 2c 20 2a 7a 43  gin, *zInfo, *zC
1680: 61 70 3b 0a 20 20 63 68 61 72 20 2a 6f 61 61 2c  ap;.  char *oaa,
1690: 20 2a 6f 61 73 2c 20 2a 6f 61 72 2c 20 2a 6f 61   *oas, *oar, *oa
16a0: 77 2c 20 2a 6f 61 6e 2c 20 2a 6f 61 69 2c 20 2a  w, *oan, *oai, *
16b0: 6f 61 6a 2c 20 2a 6f 61 6f 2c 20 2a 6f 61 70 3b  oaj, *oao, *oap;
16c0: 0a 20 20 63 68 61 72 20 2a 6f 61 6b 2c 20 2a 6f  .  char *oak, *o
16d0: 61 64 2c 20 2a 6f 61 63 2c 20 2a 6f 61 66 2c 20  ad, *oac, *oaf, 
16e0: 2a 6f 61 6d 2c 20 2a 6f 61 68 2c 20 2a 6f 61 67  *oam, *oah, *oag
16f0: 2c 20 2a 6f 61 65 3b 0a 20 20 63 68 61 72 20 2a  , *oae;.  char *
1700: 6f 61 74 3b 0a 20 20 69 6e 74 20 64 6f 57 72 69  oat;.  int doWri
1710: 74 65 3b 0a 20 20 69 6e 74 20 75 69 64 3b 0a 20  te;.  int uid;. 
1720: 20 69 6e 74 20 68 69 67 68 65 72 55 73 65 72 20   int higherUser 
1730: 3d 20 30 3b 20 20 2f 2a 20 54 72 75 65 20 69 66  = 0;  /* True if
1740: 20 75 73 65 72 20 62 65 69 6e 67 20 65 64 69 74   user being edit
1750: 65 64 20 69 73 20 53 45 54 55 50 20 61 6e 64 20  ed is SETUP and 
1760: 74 68 65 20 2a 2f 0a 20 20 20 20 20 20 20 20 20  the */.         
1770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
1780: 20 75 73 65 72 20 64 6f 69 6e 67 20 74 68 65 20   user doing the 
1790: 65 64 69 74 69 6e 67 20 69 73 20 41 44 4d 49 4e  editing is ADMIN
17a0: 2e 20 20 44 69 73 61 6c 6c 6f 77 20 65 64 69 74  .  Disallow edit
17b0: 69 6e 67 20 2a 2f 0a 0a 20 20 2f 2a 20 4d 75 73  ing */..  /* Mus
17c0: 74 20 68 61 76 65 20 41 44 4d 49 4e 20 70 72 69  t have ADMIN pri
17d0: 76 6c 65 67 65 73 20 74 6f 20 61 63 63 65 73 73  vleges to access
17e0: 20 74 68 69 73 20 70 61 67 65 0a 20 20 2a 2f 0a   this page.  */.
17f0: 20 20 6c 6f 67 69 6e 5f 63 68 65 63 6b 5f 63 72    login_check_cr
1800: 65 64 65 6e 74 69 61 6c 73 28 29 3b 0a 20 20 69  edentials();.  i
1810: 66 28 20 21 67 2e 6f 6b 41 64 6d 69 6e 20 29 7b  f( !g.okAdmin ){
1820: 20 6c 6f 67 69 6e 5f 6e 65 65 64 65 64 28 29 3b   login_needed();
1830: 20 72 65 74 75 72 6e 3b 20 7d 0a 0a 20 20 2f 2a   return; }..  /*
1840: 20 43 68 65 63 6b 20 74 6f 20 73 65 65 20 69 66   Check to see if
1850: 20 61 6e 20 41 44 4d 49 4e 20 75 73 65 72 20 69   an ADMIN user i
1860: 73 20 74 72 79 69 6e 67 20 74 6f 20 65 64 69 74  s trying to edit
1870: 20 61 20 53 45 54 55 50 20 61 63 63 6f 75 6e 74   a SETUP account
1880: 2e 0a 20 20 2a 2a 20 44 6f 6e 27 74 20 61 6c 6c  ..  ** Don't all
1890: 6f 77 20 74 68 61 74 2e 0a 20 20 2a 2f 0a 20 20  ow that..  */.  
18a0: 7a 49 64 20 3d 20 50 44 28 22 69 64 22 2c 20 22  zId = PD("id", "
18b0: 30 22 29 3b 0a 20 20 75 69 64 20 3d 20 61 74 6f  0");.  uid = ato
18c0: 69 28 7a 49 64 29 3b 0a 20 20 69 66 28 20 7a 49  i(zId);.  if( zI
18d0: 64 20 26 26 20 21 67 2e 6f 6b 53 65 74 75 70 20  d && !g.okSetup 
18e0: 26 26 20 75 69 64 3e 30 20 29 7b 0a 20 20 20 20  && uid>0 ){.    
18f0: 63 68 61 72 20 2a 7a 4f 6c 64 43 61 70 73 3b 0a  char *zOldCaps;.
1900: 20 20 20 20 7a 4f 6c 64 43 61 70 73 20 3d 20 64      zOldCaps = d
1910: 62 5f 74 65 78 74 28 30 2c 20 22 53 45 4c 45 43  b_text(0, "SELEC
1920: 54 20 63 61 70 73 20 46 52 4f 4d 20 75 73 65 72  T caps FROM user
1930: 20 57 48 45 52 45 20 75 69 64 3d 25 64 22 2c 75   WHERE uid=%d",u
1940: 69 64 29 3b 0a 20 20 20 20 68 69 67 68 65 72 55  id);.    higherU
1950: 73 65 72 20 3d 20 7a 4f 6c 64 43 61 70 73 20 26  ser = zOldCaps &
1960: 26 20 73 74 72 63 68 72 28 7a 4f 6c 64 43 61 70  & strchr(zOldCap
1970: 73 2c 27 73 27 29 3b 0a 20 20 7d 0a 0a 20 20 69  s,'s');.  }..  i
1980: 66 28 20 50 28 22 63 61 6e 22 29 20 29 7b 0a 20  f( P("can") ){. 
1990: 20 20 20 63 67 69 5f 72 65 64 69 72 65 63 74 28     cgi_redirect(
19a0: 22 73 65 74 75 70 5f 75 6c 69 73 74 22 29 3b 0a  "setup_ulist");.
19b0: 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a      return;.  }.
19c0: 0a 20 20 2f 2a 20 49 66 20 77 65 20 68 61 76 65  .  /* If we have
19d0: 20 61 6c 6c 20 74 68 65 20 6e 65 63 65 73 73 61   all the necessa
19e0: 72 79 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2c 20  ry information, 
19f0: 77 72 69 74 65 20 74 68 65 20 6e 65 77 20 6f 72  write the new or
1a00: 0a 20 20 2a 2a 20 6d 6f 64 69 66 69 65 64 20 75  .  ** modified u
1a10: 73 65 72 20 72 65 63 6f 72 64 2e 20 20 41 66 74  ser record.  Aft
1a20: 65 72 20 77 72 69 74 69 6e 67 20 74 68 65 20 75  er writing the u
1a30: 73 65 72 20 72 65 63 6f 72 64 2c 20 72 65 64 69  ser record, redi
1a40: 72 65 63 74 0a 20 20 2a 2a 20 74 6f 20 74 68 65  rect.  ** to the
1a50: 20 70 61 67 65 20 74 68 61 74 20 64 69 73 70 6c   page that displ
1a60: 61 79 73 20 61 20 6c 69 73 74 20 6f 66 20 75 73  ays a list of us
1a70: 65 72 73 2e 0a 20 20 2a 2f 0a 20 20 64 6f 57 72  ers..  */.  doWr
1a80: 69 74 65 20 3d 20 63 67 69 5f 61 6c 6c 28 22 6c  ite = cgi_all("l
1a90: 6f 67 69 6e 22 2c 22 69 6e 66 6f 22 2c 22 70 77  ogin","info","pw
1aa0: 22 29 20 26 26 20 21 68 69 67 68 65 72 55 73 65  ") && !higherUse
1ab0: 72 3b 0a 20 20 69 66 28 20 64 6f 57 72 69 74 65  r;.  if( doWrite
1ac0: 20 29 7b 0a 20 20 20 20 63 6f 6e 73 74 20 63 68   ){.    const ch
1ad0: 61 72 20 2a 7a 50 77 3b 0a 20 20 20 20 63 6f 6e  ar *zPw;.    con
1ae0: 73 74 20 63 68 61 72 20 2a 7a 4c 6f 67 69 6e 3b  st char *zLogin;
1af0: 0a 20 20 20 20 63 68 61 72 20 7a 43 61 70 5b 35  .    char zCap[5
1b00: 30 5d 3b 0a 20 20 20 20 69 6e 74 20 69 20 3d 20  0];.    int i = 
1b10: 30 3b 0a 20 20 20 20 69 6e 74 20 61 61 20 3d 20  0;.    int aa = 
1b20: 50 28 22 61 61 22 29 21 3d 30 3b 0a 20 20 20 20  P("aa")!=0;.    
1b30: 69 6e 74 20 61 64 20 3d 20 50 28 22 61 64 22 29  int ad = P("ad")
1b40: 21 3d 30 3b 0a 20 20 20 20 69 6e 74 20 61 65 20  !=0;.    int ae 
1b50: 3d 20 50 28 22 61 65 22 29 21 3d 30 3b 0a 20 20  = P("ae")!=0;.  
1b60: 20 20 69 6e 74 20 61 69 20 3d 20 50 28 22 61 69    int ai = P("ai
1b70: 22 29 21 3d 30 3b 0a 20 20 20 20 69 6e 74 20 61  ")!=0;.    int a
1b80: 6a 20 3d 20 50 28 22 61 6a 22 29 21 3d 30 3b 0a  j = P("aj")!=0;.
1b90: 20 20 20 20 69 6e 74 20 61 6b 20 3d 20 50 28 22      int ak = P("
1ba0: 61 6b 22 29 21 3d 30 3b 0a 20 20 20 20 69 6e 74  ak")!=0;.    int
1bb0: 20 61 6e 20 3d 20 50 28 22 61 6e 22 29 21 3d 30   an = P("an")!=0
1bc0: 3b 0a 20 20 20 20 69 6e 74 20 61 6f 20 3d 20 50  ;.    int ao = P
1bd0: 28 22 61 6f 22 29 21 3d 30 3b 0a 20 20 20 20 69  ("ao")!=0;.    i
1be0: 6e 74 20 61 70 20 3d 20 50 28 22 61 70 22 29 21  nt ap = P("ap")!
1bf0: 3d 30 3b 0a 20 20 20 20 69 6e 74 20 61 72 20 3d  =0;.    int ar =
1c00: 20 50 28 22 61 72 22 29 21 3d 30 3b 0a 20 20 20   P("ar")!=0;.   
1c10: 20 69 6e 74 20 61 73 20 3d 20 67 2e 6f 6b 53 65   int as = g.okSe
1c20: 74 75 70 20 26 26 20 50 28 22 61 73 22 29 21 3d  tup && P("as")!=
1c30: 30 3b 0a 20 20 20 20 69 6e 74 20 61 77 20 3d 20  0;.    int aw = 
1c40: 50 28 22 61 77 22 29 21 3d 30 3b 0a 20 20 20 20  P("aw")!=0;.    
1c50: 69 6e 74 20 61 63 20 3d 20 50 28 22 61 63 22 29  int ac = P("ac")
1c60: 21 3d 30 3b 0a 20 20 20 20 69 6e 74 20 61 66 20  !=0;.    int af 
1c70: 3d 20 50 28 22 61 66 22 29 21 3d 30 3b 0a 20 20  = P("af")!=0;.  
1c80: 20 20 69 6e 74 20 61 6d 20 3d 20 50 28 22 61 6d    int am = P("am
1c90: 22 29 21 3d 30 3b 0a 20 20 20 20 69 6e 74 20 61  ")!=0;.    int a
1ca0: 68 20 3d 20 50 28 22 61 68 22 29 21 3d 30 3b 0a  h = P("ah")!=0;.
1cb0: 20 20 20 20 69 6e 74 20 61 67 20 3d 20 50 28 22      int ag = P("
1cc0: 61 67 22 29 21 3d 30 3b 0a 20 20 20 20 69 6e 74  ag")!=0;.    int
1cd0: 20 61 74 20 3d 20 50 28 22 61 74 22 29 21 3d 30   at = P("at")!=0
1ce0: 3b 0a 20 20 20 20 69 66 28 20 61 61 20 29 7b 20  ;.    if( aa ){ 
1cf0: 7a 43 61 70 5b 69 2b 2b 5d 20 3d 20 27 61 27 3b  zCap[i++] = 'a';
1d00: 20 7d 0a 20 20 20 20 69 66 28 20 61 63 20 29 7b   }.    if( ac ){
1d10: 20 7a 43 61 70 5b 69 2b 2b 5d 20 3d 20 27 63 27   zCap[i++] = 'c'
1d20: 3b 20 7d 0a 20 20 20 20 69 66 28 20 61 64 20 29  ; }.    if( ad )
1d30: 7b 20 7a 43 61 70 5b 69 2b 2b 5d 20 3d 20 27 64  { zCap[i++] = 'd
1d40: 27 3b 20 7d 0a 20 20 20 20 69 66 28 20 61 65 20  '; }.    if( ae 
1d50: 29 7b 20 7a 43 61 70 5b 69 2b 2b 5d 20 3d 20 27  ){ zCap[i++] = '
1d60: 65 27 3b 20 7d 0a 20 20 20 20 69 66 28 20 61 66  e'; }.    if( af
1d70: 20 29 7b 20 7a 43 61 70 5b 69 2b 2b 5d 20 3d 20   ){ zCap[i++] = 
1d80: 27 66 27 3b 20 7d 0a 20 20 20 20 69 66 28 20 61  'f'; }.    if( a
1d90: 68 20 29 7b 20 7a 43 61 70 5b 69 2b 2b 5d 20 3d  h ){ zCap[i++] =
1da0: 20 27 68 27 3b 20 7d 0a 20 20 20 20 69 66 28 20   'h'; }.    if( 
1db0: 61 67 20 29 7b 20 7a 43 61 70 5b 69 2b 2b 5d 20  ag ){ zCap[i++] 
1dc0: 3d 20 27 67 27 3b 20 7d 0a 20 20 20 20 69 66 28  = 'g'; }.    if(
1dd0: 20 61 69 20 29 7b 20 7a 43 61 70 5b 69 2b 2b 5d   ai ){ zCap[i++]
1de0: 20 3d 20 27 69 27 3b 20 7d 0a 20 20 20 20 69 66   = 'i'; }.    if
1df0: 28 20 61 6a 20 29 7b 20 7a 43 61 70 5b 69 2b 2b  ( aj ){ zCap[i++
1e00: 5d 20 3d 20 27 6a 27 3b 20 7d 0a 20 20 20 20 69  ] = 'j'; }.    i
1e10: 66 28 20 61 6b 20 29 7b 20 7a 43 61 70 5b 69 2b  f( ak ){ zCap[i+
1e20: 2b 5d 20 3d 20 27 6b 27 3b 20 7d 0a 20 20 20 20  +] = 'k'; }.    
1e30: 69 66 28 20 61 6d 20 29 7b 20 7a 43 61 70 5b 69  if( am ){ zCap[i
1e40: 2b 2b 5d 20 3d 20 27 6d 27 3b 20 7d 0a 20 20 20  ++] = 'm'; }.   
1e50: 20 69 66 28 20 61 6e 20 29 7b 20 7a 43 61 70 5b   if( an ){ zCap[
1e60: 69 2b 2b 5d 20 3d 20 27 6e 27 3b 20 7d 0a 20 20  i++] = 'n'; }.  
1e70: 20 20 69 66 28 20 61 6f 20 29 7b 20 7a 43 61 70    if( ao ){ zCap
1e80: 5b 69 2b 2b 5d 20 3d 20 27 6f 27 3b 20 7d 0a 20  [i++] = 'o'; }. 
1e90: 20 20 20 69 66 28 20 61 70 20 29 7b 20 7a 43 61     if( ap ){ zCa
1ea0: 70 5b 69 2b 2b 5d 20 3d 20 27 70 27 3b 20 7d 0a  p[i++] = 'p'; }.
1eb0: 20 20 20 20 69 66 28 20 61 72 20 29 7b 20 7a 43      if( ar ){ zC
1ec0: 61 70 5b 69 2b 2b 5d 20 3d 20 27 72 27 3b 20 7d  ap[i++] = 'r'; }
1ed0: 0a 20 20 20 20 69 66 28 20 61 73 20 29 7b 20 7a  .    if( as ){ z
1ee0: 43 61 70 5b 69 2b 2b 5d 20 3d 20 27 73 27 3b 20  Cap[i++] = 's'; 
1ef0: 7d 0a 20 20 20 20 69 66 28 20 61 74 20 29 7b 20  }.    if( at ){ 
1f00: 7a 43 61 70 5b 69 2b 2b 5d 20 3d 20 27 74 27 3b  zCap[i++] = 't';
1f10: 20 7d 0a 20 20 20 20 69 66 28 20 61 77 20 29 7b   }.    if( aw ){
1f20: 20 7a 43 61 70 5b 69 2b 2b 5d 20 3d 20 27 77 27   zCap[i++] = 'w'
1f30: 3b 20 7d 0a 0a 20 20 20 20 7a 43 61 70 5b 69 5d  ; }..    zCap[i]
1f40: 20 3d 20 30 3b 0a 20 20 20 20 7a 50 77 20 3d 20   = 0;.    zPw = 
1f50: 50 28 22 70 77 22 29 3b 0a 20 20 20 20 69 66 28  P("pw");.    if(
1f60: 20 7a 50 77 3d 3d 30 20 7c 7c 20 7a 50 77 5b 30   zPw==0 || zPw[0
1f70: 5d 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 7a 50  ]==0 ){.      zP
1f80: 77 20 3d 20 64 62 5f 74 65 78 74 28 30 2c 20 22  w = db_text(0, "
1f90: 53 45 4c 45 43 54 20 70 77 20 46 52 4f 4d 20 75  SELECT pw FROM u
1fa0: 73 65 72 20 57 48 45 52 45 20 75 69 64 3d 25 64  ser WHERE uid=%d
1fb0: 22 2c 20 75 69 64 29 3b 0a 20 20 20 20 7d 0a 20  ", uid);.    }. 
1fc0: 20 20 20 7a 4c 6f 67 69 6e 20 3d 20 50 28 22 6c     zLogin = P("l
1fd0: 6f 67 69 6e 22 29 3b 0a 20 20 20 20 69 66 28 20  ogin");.    if( 
1fe0: 75 69 64 3e 30 20 26 26 0a 20 20 20 20 20 20 20  uid>0 &&.       
1ff0: 20 64 62 5f 65 78 69 73 74 73 28 22 53 45 4c 45   db_exists("SELE
2000: 43 54 20 31 20 46 52 4f 4d 20 75 73 65 72 20 57  CT 1 FROM user W
2010: 48 45 52 45 20 6c 6f 67 69 6e 3d 25 51 20 41 4e  HERE login=%Q AN
2020: 44 20 75 69 64 21 3d 25 64 22 2c 20 7a 4c 6f 67  D uid!=%d", zLog
2030: 69 6e 2c 20 75 69 64 29 0a 20 20 20 20 29 7b 0a  in, uid).    ){.
2040: 20 20 20 20 20 20 73 74 79 6c 65 5f 68 65 61 64        style_head
2050: 65 72 28 22 55 73 65 72 20 43 72 65 61 74 69 6f  er("User Creatio
2060: 6e 20 45 72 72 6f 72 22 29 3b 0a 20 20 20 20 20  n Error");.     
2070: 20 40 20 3c 66 6f 6e 74 20 63 6f 6c 6f 72 3d 22   @ <font color="
2080: 72 65 64 22 3e 4c 6f 67 69 6e 20 22 25 68 28 7a  red">Login "%h(z
2090: 4c 6f 67 69 6e 29 22 20 69 73 20 61 6c 72 65 61  Login)" is alrea
20a0: 64 79 20 75 73 65 64 20 62 79 20 61 20 64 69 66  dy used by a dif
20b0: 66 65 72 65 6e 74 0a 20 20 20 20 20 20 40 20 75  ferent.      @ u
20c0: 73 65 72 2e 3c 2f 66 6f 6e 74 3e 0a 20 20 20 20  ser.</font>.    
20d0: 20 20 40 0a 20 20 20 20 20 20 40 20 3c 70 3e 3c    @.      @ <p><
20e0: 61 20 68 72 65 66 3d 22 73 65 74 75 70 5f 75 65  a href="setup_ue
20f0: 64 69 74 3f 69 64 3d 25 64 28 75 69 64 29 29 3e  dit?id=%d(uid))>
2100: 5b 42 75 6d 6d 65 72 5d 3c 2f 61 3e 3c 2f 70 3e  [Bummer]</a></p>
2110: 0a 20 20 20 20 20 20 73 74 79 6c 65 5f 66 6f 6f  .      style_foo
2120: 74 65 72 28 29 3b 0a 20 20 20 20 20 20 72 65 74  ter();.      ret
2130: 75 72 6e 3b 0a 20 20 20 20 7d 0a 20 20 20 20 64  urn;.    }.    d
2140: 62 5f 6d 75 6c 74 69 5f 65 78 65 63 28 0a 20 20  b_multi_exec(.  
2150: 20 20 20 20 20 22 52 45 50 4c 41 43 45 20 49 4e       "REPLACE IN
2160: 54 4f 20 75 73 65 72 28 75 69 64 2c 6c 6f 67 69  TO user(uid,logi
2170: 6e 2c 69 6e 66 6f 2c 70 77 2c 63 61 70 29 20 22  n,info,pw,cap) "
2180: 0a 20 20 20 20 20 20 20 22 56 41 4c 55 45 53 28  .       "VALUES(
2190: 6e 75 6c 6c 69 66 28 25 64 2c 30 29 2c 25 51 2c  nullif(%d,0),%Q,
21a0: 25 51 2c 25 51 2c 27 25 73 27 29 22 2c 0a 20 20  %Q,%Q,'%s')",.  
21b0: 20 20 20 20 75 69 64 2c 20 50 28 22 6c 6f 67 69      uid, P("logi
21c0: 6e 22 29 2c 20 50 28 22 69 6e 66 6f 22 29 2c 20  n"), P("info"), 
21d0: 7a 50 77 2c 20 7a 43 61 70 0a 20 20 20 20 29 3b  zPw, zCap.    );
21e0: 0a 20 20 20 20 63 67 69 5f 72 65 64 69 72 65 63  .    cgi_redirec
21f0: 74 28 22 73 65 74 75 70 5f 75 6c 69 73 74 22 29  t("setup_ulist")
2200: 3b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20  ;.    return;.  
2210: 7d 0a 0a 20 20 2f 2a 20 4c 6f 61 64 20 74 68 65  }..  /* Load the
2220: 20 65 78 69 73 74 69 6e 67 20 69 6e 66 6f 72 6d   existing inform
2230: 61 74 69 6f 6e 20 61 62 6f 75 74 20 74 68 65 20  ation about the 
2240: 75 73 65 72 2c 20 69 66 20 61 6e 79 0a 20 20 2a  user, if any.  *
2250: 2f 0a 20 20 7a 4c 6f 67 69 6e 20 3d 20 22 22 3b  /.  zLogin = "";
2260: 0a 20 20 7a 49 6e 66 6f 20 3d 20 22 22 3b 0a 20  .  zInfo = "";. 
2270: 20 7a 43 61 70 20 3d 20 22 22 3b 0a 20 20 6f 61   zCap = "";.  oa
2280: 61 20 3d 20 6f 61 63 20 3d 20 6f 61 64 20 3d 20  a = oac = oad = 
2290: 6f 61 65 20 3d 20 6f 61 66 20 3d 20 6f 61 67 20  oae = oaf = oag 
22a0: 3d 20 6f 61 68 20 3d 20 6f 61 69 20 3d 20 6f 61  = oah = oai = oa
22b0: 6a 20 3d 20 6f 61 6b 20 3d 20 6f 61 6d 20 3d 0a  j = oak = oam =.
22c0: 20 20 20 20 20 20 20 20 6f 61 6e 20 3d 20 6f 61          oan = oa
22d0: 6f 20 3d 20 6f 61 70 20 3d 20 6f 61 72 20 3d 20  o = oap = oar = 
22e0: 6f 61 73 20 3d 20 6f 61 74 20 3d 20 6f 61 77 20  oas = oat = oaw 
22f0: 3d 20 22 22 3b 0a 20 20 69 66 28 20 75 69 64 20  = "";.  if( uid 
2300: 29 7b 0a 20 20 20 20 7a 4c 6f 67 69 6e 20 3d 20  ){.    zLogin = 
2310: 64 62 5f 74 65 78 74 28 22 22 2c 20 22 53 45 4c  db_text("", "SEL
2320: 45 43 54 20 6c 6f 67 69 6e 20 46 52 4f 4d 20 75  ECT login FROM u
2330: 73 65 72 20 57 48 45 52 45 20 75 69 64 3d 25 64  ser WHERE uid=%d
2340: 22 2c 20 75 69 64 29 3b 0a 20 20 20 20 7a 49 6e  ", uid);.    zIn
2350: 66 6f 20 3d 20 64 62 5f 74 65 78 74 28 22 22 2c  fo = db_text("",
2360: 20 22 53 45 4c 45 43 54 20 69 6e 66 6f 20 46 52   "SELECT info FR
2370: 4f 4d 20 75 73 65 72 20 57 48 45 52 45 20 75 69  OM user WHERE ui
2380: 64 3d 25 64 22 2c 20 75 69 64 29 3b 0a 20 20 20  d=%d", uid);.   
2390: 20 7a 43 61 70 20 3d 20 64 62 5f 74 65 78 74 28   zCap = db_text(
23a0: 22 22 2c 20 22 53 45 4c 45 43 54 20 63 61 70 20  "", "SELECT cap 
23b0: 46 52 4f 4d 20 75 73 65 72 20 57 48 45 52 45 20  FROM user WHERE 
23c0: 75 69 64 3d 25 64 22 2c 20 75 69 64 29 3b 0a 20  uid=%d", uid);. 
23d0: 20 20 20 69 66 28 20 73 74 72 63 68 72 28 7a 43     if( strchr(zC
23e0: 61 70 2c 20 27 61 27 29 20 29 20 6f 61 61 20 3d  ap, 'a') ) oaa =
23f0: 20 22 20 63 68 65 63 6b 65 64 22 3b 0a 20 20 20   " checked";.   
2400: 20 69 66 28 20 73 74 72 63 68 72 28 7a 43 61 70   if( strchr(zCap
2410: 2c 20 27 63 27 29 20 29 20 6f 61 63 20 3d 20 22  , 'c') ) oac = "
2420: 20 63 68 65 63 6b 65 64 22 3b 0a 20 20 20 20 69   checked";.    i
2430: 66 28 20 73 74 72 63 68 72 28 7a 43 61 70 2c 20  f( strchr(zCap, 
2440: 27 64 27 29 20 29 20 6f 61 64 20 3d 20 22 20 63  'd') ) oad = " c
2450: 68 65 63 6b 65 64 22 3b 0a 20 20 20 20 69 66 28  hecked";.    if(
2460: 20 73 74 72 63 68 72 28 7a 43 61 70 2c 20 27 65   strchr(zCap, 'e
2470: 27 29 20 29 20 6f 61 65 20 3d 20 22 20 63 68 65  ') ) oae = " che
2480: 63 6b 65 64 22 3b 0a 20 20 20 20 69 66 28 20 73  cked";.    if( s
2490: 74 72 63 68 72 28 7a 43 61 70 2c 20 27 66 27 29  trchr(zCap, 'f')
24a0: 20 29 20 6f 61 66 20 3d 20 22 20 63 68 65 63 6b   ) oaf = " check
24b0: 65 64 22 3b 0a 20 20 20 20 69 66 28 20 73 74 72  ed";.    if( str
24c0: 63 68 72 28 7a 43 61 70 2c 20 27 67 27 29 20 29  chr(zCap, 'g') )
24d0: 20 6f 61 67 20 3d 20 22 20 63 68 65 63 6b 65 64   oag = " checked
24e0: 22 3b 0a 20 20 20 20 69 66 28 20 73 74 72 63 68  ";.    if( strch
24f0: 72 28 7a 43 61 70 2c 20 27 68 27 29 20 29 20 6f  r(zCap, 'h') ) o
2500: 61 68 20 3d 20 22 20 63 68 65 63 6b 65 64 22 3b  ah = " checked";
2510: 0a 20 20 20 20 69 66 28 20 73 74 72 63 68 72 28  .    if( strchr(
2520: 7a 43 61 70 2c 20 27 69 27 29 20 29 20 6f 61 69  zCap, 'i') ) oai
2530: 20 3d 20 22 20 63 68 65 63 6b 65 64 22 3b 0a 20   = " checked";. 
2540: 20 20 20 69 66 28 20 73 74 72 63 68 72 28 7a 43     if( strchr(zC
2550: 61 70 2c 20 27 6a 27 29 20 29 20 6f 61 6a 20 3d  ap, 'j') ) oaj =
2560: 20 22 20 63 68 65 63 6b 65 64 22 3b 0a 20 20 20   " checked";.   
2570: 20 69 66 28 20 73 74 72 63 68 72 28 7a 43 61 70   if( strchr(zCap
2580: 2c 20 27 6b 27 29 20 29 20 6f 61 6b 20 3d 20 22  , 'k') ) oak = "
2590: 20 63 68 65 63 6b 65 64 22 3b 0a 20 20 20 20 69   checked";.    i
25a0: 66 28 20 73 74 72 63 68 72 28 7a 43 61 70 2c 20  f( strchr(zCap, 
25b0: 27 6d 27 29 20 29 20 6f 61 6d 20 3d 20 22 20 63  'm') ) oam = " c
25c0: 68 65 63 6b 65 64 22 3b 0a 20 20 20 20 69 66 28  hecked";.    if(
25d0: 20 73 74 72 63 68 72 28 7a 43 61 70 2c 20 27 6e   strchr(zCap, 'n
25e0: 27 29 20 29 20 6f 61 6e 20 3d 20 22 20 63 68 65  ') ) oan = " che
25f0: 63 6b 65 64 22 3b 0a 20 20 20 20 69 66 28 20 73  cked";.    if( s
2600: 74 72 63 68 72 28 7a 43 61 70 2c 20 27 6f 27 29  trchr(zCap, 'o')
2610: 20 29 20 6f 61 6f 20 3d 20 22 20 63 68 65 63 6b   ) oao = " check
2620: 65 64 22 3b 0a 20 20 20 20 69 66 28 20 73 74 72  ed";.    if( str
2630: 63 68 72 28 7a 43 61 70 2c 20 27 70 27 29 20 29  chr(zCap, 'p') )
2640: 20 6f 61 70 20 3d 20 22 20 63 68 65 63 6b 65 64   oap = " checked
2650: 22 3b 0a 20 20 20 20 69 66 28 20 73 74 72 63 68  ";.    if( strch
2660: 72 28 7a 43 61 70 2c 20 27 72 27 29 20 29 20 6f  r(zCap, 'r') ) o
2670: 61 72 20 3d 20 22 20 63 68 65 63 6b 65 64 22 3b  ar = " checked";
2680: 0a 20 20 20 20 69 66 28 20 73 74 72 63 68 72 28  .    if( strchr(
2690: 7a 43 61 70 2c 20 27 73 27 29 20 29 20 6f 61 73  zCap, 's') ) oas
26a0: 20 3d 20 22 20 63 68 65 63 6b 65 64 22 3b 0a 20   = " checked";. 
26b0: 20 20 20 69 66 28 20 73 74 72 63 68 72 28 7a 43     if( strchr(zC
26c0: 61 70 2c 20 27 74 27 29 20 29 20 6f 61 74 20 3d  ap, 't') ) oat =
26d0: 20 22 20 63 68 65 63 6b 65 64 22 3b 0a 20 20 20   " checked";.   
26e0: 20 69 66 28 20 73 74 72 63 68 72 28 7a 43 61 70   if( strchr(zCap
26f0: 2c 20 27 77 27 29 20 29 20 6f 61 77 20 3d 20 22  , 'w') ) oaw = "
2700: 20 63 68 65 63 6b 65 64 22 3b 0a 20 20 7d 0a 0a   checked";.  }..
2710: 20 20 2f 2a 20 42 65 67 69 6e 20 67 65 6e 65 72    /* Begin gener
2720: 61 74 69 6e 67 20 74 68 65 20 70 61 67 65 0a 20  ating the page. 
2730: 20 2a 2f 0a 20 20 73 74 79 6c 65 5f 73 75 62 6d   */.  style_subm
2740: 65 6e 75 5f 65 6c 65 6d 65 6e 74 28 22 43 61 6e  enu_element("Can
2750: 63 65 6c 22 2c 20 22 43 61 6e 63 65 6c 22 2c 20  cel", "Cancel", 
2760: 22 73 65 74 75 70 5f 75 6c 69 73 74 22 29 3b 0a  "setup_ulist");.
2770: 20 20 69 66 28 20 75 69 64 20 29 7b 0a 20 20 20    if( uid ){.   
2780: 20 73 74 79 6c 65 5f 68 65 61 64 65 72 28 6d 70   style_header(mp
2790: 72 69 6e 74 66 28 22 45 64 69 74 20 55 73 65 72  rintf("Edit User
27a0: 20 25 68 22 2c 20 7a 4c 6f 67 69 6e 29 29 3b 0a   %h", zLogin));.
27b0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 73 74 79    }else{.    sty
27c0: 6c 65 5f 68 65 61 64 65 72 28 22 41 64 64 20 41  le_header("Add A
27d0: 20 4e 65 77 20 55 73 65 72 22 29 3b 0a 20 20 7d   New User");.  }
27e0: 0a 20 20 40 20 3c 74 61 62 6c 65 20 61 6c 69 67  .  @ <table alig
27f0: 6e 3d 22 6c 65 66 74 22 20 68 73 70 61 63 65 3d  n="left" hspace=
2800: 22 32 30 22 20 76 73 70 61 63 65 3d 22 31 30 22  "20" vspace="10"
2810: 3e 3c 74 72 3e 3c 74 64 3e 0a 20 20 40 20 3c 66  ><tr><td>.  @ <f
2820: 6f 72 6d 20 61 63 74 69 6f 6e 3d 22 25 73 28 67  orm action="%s(g
2830: 2e 7a 50 61 74 68 29 22 20 6d 65 74 68 6f 64 3d  .zPath)" method=
2840: 22 50 4f 53 54 22 3e 0a 20 20 40 20 3c 74 61 62  "POST">.  @ <tab
2850: 6c 65 3e 0a 20 20 40 20 3c 74 72 3e 0a 20 20 40  le>.  @ <tr>.  @
2860: 20 20 20 3c 74 64 20 61 6c 69 67 6e 3d 22 72 69     <td align="ri
2870: 67 68 74 22 3e 3c 6e 6f 62 72 3e 55 73 65 72 20  ght"><nobr>User 
2880: 49 44 3a 3c 2f 6e 6f 62 72 3e 3c 2f 74 64 3e 0a  ID:</nobr></td>.
2890: 20 20 69 66 28 20 75 69 64 20 29 7b 0a 20 20 20    if( uid ){.   
28a0: 20 40 20 20 20 3c 74 64 3e 25 64 28 75 69 64 29   @   <td>%d(uid)
28b0: 20 3c 69 6e 70 75 74 20 74 79 70 65 3d 22 68 69   <input type="hi
28c0: 64 64 65 6e 22 20 6e 61 6d 65 3d 22 69 64 22 20  dden" name="id" 
28d0: 76 61 6c 75 65 3d 22 25 64 28 75 69 64 29 22 3e  value="%d(uid)">
28e0: 3c 2f 74 64 3e 0a 20 20 7d 65 6c 73 65 7b 0a 20  </td>.  }else{. 
28f0: 20 20 20 40 20 20 20 3c 74 64 3e 28 6e 65 77 20     @   <td>(new 
2900: 75 73 65 72 29 3c 69 6e 70 75 74 20 74 79 70 65  user)<input type
2910: 3d 22 68 69 64 64 65 6e 22 20 6e 61 6d 65 3d 22  ="hidden" name="
2920: 69 64 22 20 76 61 6c 75 65 3d 30 3e 3c 2f 74 64  id" value=0></td
2930: 3e 0a 20 20 7d 0a 20 20 40 20 3c 2f 74 72 3e 0a  >.  }.  @ </tr>.
2940: 20 20 40 20 3c 74 72 3e 0a 20 20 40 20 20 20 3c    @ <tr>.  @   <
2950: 74 64 20 61 6c 69 67 6e 3d 22 72 69 67 68 74 22  td align="right"
2960: 3e 3c 6e 6f 62 72 3e 4c 6f 67 69 6e 3a 3c 2f 6e  ><nobr>Login:</n
2970: 6f 62 72 3e 3c 2f 74 64 3e 0a 20 20 40 20 20 20  obr></td>.  @   
2980: 3c 74 64 3e 3c 69 6e 70 75 74 20 74 79 70 65 3d  <td><input type=
2990: 22 74 65 78 74 22 20 6e 61 6d 65 3d 22 6c 6f 67  "text" name="log
29a0: 69 6e 22 20 76 61 6c 75 65 3d 22 25 68 28 7a 4c  in" value="%h(zL
29b0: 6f 67 69 6e 29 22 3e 3c 2f 74 64 3e 0a 20 20 40  ogin)"></td>.  @
29c0: 20 3c 2f 74 72 3e 0a 20 20 40 20 3c 74 72 3e 0a   </tr>.  @ <tr>.
29d0: 20 20 40 20 20 20 3c 74 64 20 61 6c 69 67 6e 3d    @   <td align=
29e0: 22 72 69 67 68 74 22 3e 3c 6e 6f 62 72 3e 43 6f  "right"><nobr>Co
29f0: 6e 74 61 63 74 26 6e 62 73 70 3b 49 6e 66 6f 3a  ntact&nbsp;Info:
2a00: 3c 2f 6e 6f 62 72 3e 3c 2f 74 64 3e 0a 20 20 40  </nobr></td>.  @
2a10: 20 20 20 3c 74 64 3e 3c 69 6e 70 75 74 20 74 79     <td><input ty
2a20: 70 65 3d 22 74 65 78 74 22 20 6e 61 6d 65 3d 22  pe="text" name="
2a30: 69 6e 66 6f 22 20 73 69 7a 65 3d 34 30 20 76 61  info" size=40 va
2a40: 6c 75 65 3d 22 25 68 28 7a 49 6e 66 6f 29 22 3e  lue="%h(zInfo)">
2a50: 3c 2f 74 64 3e 0a 20 20 40 20 3c 2f 74 72 3e 0a  </td>.  @ </tr>.
2a60: 20 20 40 20 3c 74 72 3e 0a 20 20 40 20 20 20 3c    @ <tr>.  @   <
2a70: 74 64 20 61 6c 69 67 6e 3d 22 72 69 67 68 74 22  td align="right"
2a80: 20 76 61 6c 69 67 6e 3d 22 74 6f 70 22 3e 43 61   valign="top">Ca
2a90: 70 61 62 69 6c 69 74 69 65 73 3a 3c 2f 74 64 3e  pabilities:</td>
2aa0: 0a 20 20 40 20 20 20 3c 74 64 3e 0a 20 20 69 66  .  @   <td>.  if
2ab0: 28 20 67 2e 6f 6b 53 65 74 75 70 20 29 7b 0a 20  ( g.okSetup ){. 
2ac0: 20 20 20 40 20 20 20 20 20 3c 69 6e 70 75 74 20     @     <input 
2ad0: 74 79 70 65 3d 22 63 68 65 63 6b 62 6f 78 22 20  type="checkbox" 
2ae0: 6e 61 6d 65 3d 22 61 73 22 25 73 28 6f 61 73 29  name="as"%s(oas)
2af0: 3e 53 65 74 75 70 3c 2f 69 6e 70 75 74 3e 3c 62  >Setup</input><b
2b00: 72 3e 0a 20 20 7d 0a 20 20 40 20 20 20 20 20 3c  r>.  }.  @     <
2b10: 69 6e 70 75 74 20 74 79 70 65 3d 22 63 68 65 63  input type="chec
2b20: 6b 62 6f 78 22 20 6e 61 6d 65 3d 22 61 61 22 25  kbox" name="aa"%
2b30: 73 28 6f 61 61 29 3e 41 64 6d 69 6e 3c 2f 69 6e  s(oaa)>Admin</in
2b40: 70 75 74 3e 3c 62 72 3e 0a 20 20 40 20 20 20 20  put><br>.  @    
2b50: 20 3c 69 6e 70 75 74 20 74 79 70 65 3d 22 63 68   <input type="ch
2b60: 65 63 6b 62 6f 78 22 20 6e 61 6d 65 3d 22 61 64  eckbox" name="ad
2b70: 22 25 73 28 6f 61 64 29 3e 44 65 6c 65 74 65 3c  "%s(oad)>Delete<
2b80: 2f 69 6e 70 75 74 3e 3c 62 72 3e 0a 20 20 40 20  /input><br>.  @ 
2b90: 20 20 20 20 3c 69 6e 70 75 74 20 74 79 70 65 3d      <input type=
2ba0: 22 63 68 65 63 6b 62 6f 78 22 20 6e 61 6d 65 3d  "checkbox" name=
2bb0: 22 61 65 22 25 73 28 6f 61 64 29 3e 45 6d 61 69  "ae"%s(oad)>Emai
2bc0: 6c 3c 2f 69 6e 70 75 74 3e 3c 62 72 3e 0a 20 20  l</input><br>.  
2bd0: 40 20 20 20 20 20 3c 69 6e 70 75 74 20 74 79 70  @     <input typ
2be0: 65 3d 22 63 68 65 63 6b 62 6f 78 22 20 6e 61 6d  e="checkbox" nam
2bf0: 65 3d 22 61 70 22 25 73 28 6f 61 70 29 3e 50 61  e="ap"%s(oap)>Pa
2c00: 73 73 77 6f 72 64 3c 2f 69 6e 70 75 74 3e 3c 62  ssword</input><b
2c10: 72 3e 0a 20 20 40 20 20 20 20 20 3c 69 6e 70 75  r>.  @     <inpu
2c20: 74 20 74 79 70 65 3d 22 63 68 65 63 6b 62 6f 78  t type="checkbox
2c30: 22 20 6e 61 6d 65 3d 22 61 69 22 25 73 28 6f 61  " name="ai"%s(oa
2c40: 69 29 3e 43 68 65 63 6b 2d 49 6e 3c 2f 69 6e 70  i)>Check-In</inp
2c50: 75 74 3e 3c 62 72 3e 0a 20 20 40 20 20 20 20 20  ut><br>.  @     
2c60: 3c 69 6e 70 75 74 20 74 79 70 65 3d 22 63 68 65  <input type="che
2c70: 63 6b 62 6f 78 22 20 6e 61 6d 65 3d 22 61 6f 22  ckbox" name="ao"
2c80: 25 73 28 6f 61 6f 29 3e 43 68 65 63 6b 2d 4f 75  %s(oao)>Check-Ou
2c90: 74 3c 2f 69 6e 70 75 74 3e 3c 62 72 3e 0a 20 20  t</input><br>.  
2ca0: 40 20 20 20 20 20 3c 69 6e 70 75 74 20 74 79 70  @     <input typ
2cb0: 65 3d 22 63 68 65 63 6b 62 6f 78 22 20 6e 61 6d  e="checkbox" nam
2cc0: 65 3d 22 61 68 22 25 73 28 6f 61 68 29 3e 48 69  e="ah"%s(oah)>Hi
2cd0: 73 74 6f 72 79 3c 2f 69 6e 70 75 74 3e 3c 62 72  story</input><br
2ce0: 3e 0a 20 20 40 20 20 20 20 20 3c 69 6e 70 75 74  >.  @     <input
2cf0: 20 74 79 70 65 3d 22 63 68 65 63 6b 62 6f 78 22   type="checkbox"
2d00: 20 6e 61 6d 65 3d 22 61 67 22 25 73 28 6f 61 67   name="ag"%s(oag
2d10: 29 3e 43 6c 6f 6e 65 3c 2f 69 6e 70 75 74 3e 3c  )>Clone</input><
2d20: 62 72 3e 0a 20 20 40 20 20 20 20 20 3c 69 6e 70  br>.  @     <inp
2d30: 75 74 20 74 79 70 65 3d 22 63 68 65 63 6b 62 6f  ut type="checkbo
2d40: 78 22 20 6e 61 6d 65 3d 22 61 6a 22 25 73 28 6f  x" name="aj"%s(o
2d50: 61 6a 29 3e 52 65 61 64 20 57 69 6b 69 3c 2f 69  aj)>Read Wiki</i
2d60: 6e 70 75 74 3e 3c 62 72 3e 0a 20 20 40 20 20 20  nput><br>.  @   
2d70: 20 20 3c 69 6e 70 75 74 20 74 79 70 65 3d 22 63    <input type="c
2d80: 68 65 63 6b 62 6f 78 22 20 6e 61 6d 65 3d 22 61  heckbox" name="a
2d90: 66 22 25 73 28 6f 61 66 29 3e 4e 65 77 20 57 69  f"%s(oaf)>New Wi
2da0: 6b 69 3c 2f 69 6e 70 75 74 3e 3c 62 72 3e 0a 20  ki</input><br>. 
2db0: 20 40 20 20 20 20 20 3c 69 6e 70 75 74 20 74 79   @     <input ty
2dc0: 70 65 3d 22 63 68 65 63 6b 62 6f 78 22 20 6e 61  pe="checkbox" na
2dd0: 6d 65 3d 22 61 6d 22 25 73 28 6f 61 6d 29 3e 41  me="am"%s(oam)>A
2de0: 70 70 65 6e 64 20 57 69 6b 69 3c 2f 69 6e 70 75  ppend Wiki</inpu
2df0: 74 3e 3c 62 72 3e 0a 20 20 40 20 20 20 20 20 3c  t><br>.  @     <
2e00: 69 6e 70 75 74 20 74 79 70 65 3d 22 63 68 65 63  input type="chec
2e10: 6b 62 6f 78 22 20 6e 61 6d 65 3d 22 61 6b 22 25  kbox" name="ak"%
2e20: 73 28 6f 61 6b 29 3e 57 72 69 74 65 20 57 69 6b  s(oak)>Write Wik
2e30: 69 3c 2f 69 6e 70 75 74 3e 3c 62 72 3e 0a 20 20  i</input><br>.  
2e40: 40 20 20 20 20 20 3c 69 6e 70 75 74 20 74 79 70  @     <input typ
2e50: 65 3d 22 63 68 65 63 6b 62 6f 78 22 20 6e 61 6d  e="checkbox" nam
2e60: 65 3d 22 61 72 22 25 73 28 6f 61 72 29 3e 52 65  e="ar"%s(oar)>Re
2e70: 61 64 20 54 6b 74 3c 2f 69 6e 70 75 74 3e 3c 62  ad Tkt</input><b
2e80: 72 3e 0a 20 20 40 20 20 20 20 20 3c 69 6e 70 75  r>.  @     <inpu
2e90: 74 20 74 79 70 65 3d 22 63 68 65 63 6b 62 6f 78  t type="checkbox
2ea0: 22 20 6e 61 6d 65 3d 22 61 6e 22 25 73 28 6f 61  " name="an"%s(oa
2eb0: 6e 29 3e 4e 65 77 20 54 6b 74 3c 2f 69 6e 70 75  n)>New Tkt</inpu
2ec0: 74 3e 3c 62 72 3e 0a 20 20 40 20 20 20 20 20 3c  t><br>.  @     <
2ed0: 69 6e 70 75 74 20 74 79 70 65 3d 22 63 68 65 63  input type="chec
2ee0: 6b 62 6f 78 22 20 6e 61 6d 65 3d 22 61 63 22 25  kbox" name="ac"%
2ef0: 73 28 6f 61 63 29 3e 41 70 70 65 6e 64 20 54 6b  s(oac)>Append Tk
2f00: 74 3c 2f 69 6e 70 75 74 3e 3c 62 72 3e 0a 20 20  t</input><br>.  
2f10: 40 20 20 20 20 20 3c 69 6e 70 75 74 20 74 79 70  @     <input typ
2f20: 65 3d 22 63 68 65 63 6b 62 6f 78 22 20 6e 61 6d  e="checkbox" nam
2f30: 65 3d 22 61 77 22 25 73 28 6f 61 77 29 3e 57 72  e="aw"%s(oaw)>Wr
2f40: 69 74 65 20 54 6b 74 3c 2f 69 6e 70 75 74 3e 3c  ite Tkt</input><
2f50: 62 72 3e 0a 20 20 40 20 20 20 20 20 3c 69 6e 70  br>.  @     <inp
2f60: 75 74 20 74 79 70 65 3d 22 63 68 65 63 6b 62 6f  ut type="checkbo
2f70: 78 22 20 6e 61 6d 65 3d 22 61 74 22 25 73 28 6f  x" name="at"%s(o
2f80: 61 74 29 3e 54 6b 74 20 52 65 70 6f 72 74 3c 2f  at)>Tkt Report</
2f90: 69 6e 70 75 74 3e 0a 20 20 40 20 20 20 3c 2f 74  input>.  @   </t
2fa0: 64 3e 0a 20 20 40 20 3c 2f 74 72 3e 0a 20 20 40  d>.  @ </tr>.  @
2fb0: 20 3c 74 72 3e 0a 20 20 40 20 20 20 3c 74 64 20   <tr>.  @   <td 
2fc0: 61 6c 69 67 6e 3d 22 72 69 67 68 74 22 3e 50 61  align="right">Pa
2fd0: 73 73 77 6f 72 64 3a 3c 2f 74 64 3e 0a 20 20 40  ssword:</td>.  @
2fe0: 20 20 20 3c 74 64 3e 3c 69 6e 70 75 74 20 74 79     <td><input ty
2ff0: 70 65 3d 22 70 61 73 73 77 6f 72 64 22 20 6e 61  pe="password" na
3000: 6d 65 3d 22 70 77 22 20 76 61 6c 75 65 3d 22 22  me="pw" value=""
3010: 3e 3c 2f 74 64 3e 0a 20 20 40 20 3c 2f 74 72 3e  ></td>.  @ </tr>
3020: 0a 20 20 69 66 28 20 21 68 69 67 68 65 72 55 73  .  if( !higherUs
3030: 65 72 20 29 7b 0a 20 20 20 20 40 20 3c 74 72 3e  er ){.    @ <tr>
3040: 0a 20 20 20 20 40 20 20 20 3c 74 64 3e 26 6e 62  .    @   <td>&nb
3050: 73 70 3c 2f 74 64 3e 0a 20 20 20 20 40 20 20 20  sp</td>.    @   
3060: 3c 74 64 3e 3c 69 6e 70 75 74 20 74 79 70 65 3d  <td><input type=
3070: 22 73 75 62 6d 69 74 22 20 6e 61 6d 65 3d 22 73  "submit" name="s
3080: 75 62 6d 69 74 22 20 76 61 6c 75 65 3d 22 41 70  ubmit" value="Ap
3090: 70 6c 79 20 43 68 61 6e 67 65 73 22 3e 0a 20 20  ply Changes">.  
30a0: 20 20 40 20 3c 2f 74 72 3e 0a 20 20 7d 0a 20 20    @ </tr>.  }.  
30b0: 40 20 3c 2f 74 61 62 6c 65 3e 3c 2f 74 64 3e 3c  @ </table></td><
30c0: 2f 74 72 3e 3c 2f 74 61 62 6c 65 3e 0a 20 20 40  /tr></table>.  @
30d0: 20 3c 70 3e 3c 62 3e 4e 6f 74 65 73 3a 3c 2f 62   <p><b>Notes:</b
30e0: 3e 3c 2f 70 3e 0a 20 20 40 20 3c 6f 6c 3e 0a 20  ></p>.  @ <ol>. 
30f0: 20 69 66 28 20 68 69 67 68 65 72 55 73 65 72 20   if( higherUser 
3100: 29 7b 0a 20 20 20 20 40 20 3c 6c 69 3e 3c 70 3e  ){.    @ <li><p>
3110: 0a 20 20 20 20 40 20 55 73 65 72 20 25 68 28 7a  .    @ User %h(z
3120: 49 64 29 20 68 61 73 20 53 65 74 75 70 20 70 72  Id) has Setup pr
3130: 69 76 69 6c 65 67 65 73 20 61 6e 64 20 79 6f 75  ivileges and you
3140: 20 6f 6e 6c 79 20 68 61 76 65 20 41 64 6d 69 6e   only have Admin
3150: 20 70 72 69 76 69 6c 65 67 65 73 0a 20 20 20 20   privileges.    
3160: 40 20 73 6f 20 79 6f 75 20 61 72 65 20 6e 6f 74  @ so you are not
3170: 20 70 65 72 6d 69 74 74 65 64 20 74 6f 20 6d 61   permitted to ma
3180: 6b 65 20 63 68 61 6e 67 65 73 20 74 6f 20 25 68  ke changes to %h
3190: 28 7a 49 64 29 2e 0a 20 20 20 20 40 20 3c 2f 70  (zId)..    @ </p
31a0: 3e 3c 2f 6c 69 3e 0a 20 20 20 20 40 0a 20 20 7d  ></li>.    @.  }
31b0: 0a 20 20 40 0a 20 20 40 20 3c 6c 69 3e 3c 70 3e  .  @.  @ <li><p>
31c0: 0a 20 20 40 20 54 68 65 20 3c 62 3e 44 65 6c 65  .  @ The <b>Dele
31d0: 74 65 3c 2f 62 3e 20 70 72 69 76 69 6c 65 67 65  te</b> privilege
31e0: 20 67 69 76 65 20 74 68 65 20 75 73 65 72 20 74   give the user t
31f0: 68 65 20 61 62 69 6c 69 74 79 20 74 6f 20 65 72  he ability to er
3200: 61 73 65 0a 20 20 40 20 77 69 6b 69 2c 20 74 69  ase.  @ wiki, ti
3210: 63 6b 65 74 73 2c 20 61 6e 64 20 61 74 74 74 61  ckets, and attta
3220: 63 68 6d 65 6e 74 73 20 74 68 61 74 20 68 61 76  chments that hav
3230: 65 20 62 65 65 6e 20 61 64 64 65 64 20 62 79 20  e been added by 
3240: 61 6e 6f 6e 79 6d 6f 75 73 0a 20 20 40 20 75 73  anonymous.  @ us
3250: 65 72 73 2e 20 20 54 68 69 73 20 63 61 70 61 62  ers.  This capab
3260: 69 6c 69 74 79 20 69 73 20 69 6e 74 65 6e 64 65  ility is intende
3270: 64 20 66 6f 72 20 64 65 6c 65 74 69 6f 6e 20 6f  d for deletion o
3280: 66 20 73 70 61 6d 2e 20 20 54 68 65 0a 20 20 40  f spam.  The.  @
3290: 20 64 65 6c 65 74 65 20 63 61 70 61 62 69 6c 69   delete capabili
32a0: 74 79 20 69 73 20 6f 6e 6c 79 20 69 6e 20 65 66  ty is only in ef
32b0: 66 65 63 74 20 66 6f 72 20 32 34 20 68 6f 75 72  fect for 24 hour
32c0: 73 20 61 66 74 65 72 20 74 68 65 20 69 74 65 6d  s after the item
32d0: 0a 20 20 40 20 69 73 20 66 69 72 73 74 20 70 6f  .  @ is first po
32e0: 73 74 65 64 2e 20 20 54 68 65 20 53 65 74 75 70  sted.  The Setup
32f0: 20 75 73 65 72 20 63 61 6e 20 64 65 6c 65 74 65   user can delete
3300: 20 61 6e 79 74 68 69 6e 67 20 61 74 20 61 6e 79   anything at any
3310: 20 74 69 6d 65 2e 0a 20 20 40 20 3c 2f 70 3e 3c   time..  @ </p><
3320: 2f 6c 69 3e 0a 20 20 40 0a 20 20 40 20 3c 6c 69  /li>.  @.  @ <li
3330: 3e 3c 70 3e 0a 20 20 40 20 41 6e 20 3c 62 3e 41  ><p>.  @ An <b>A
3340: 64 6d 69 6e 3c 2f 62 3e 20 75 73 65 72 20 63 61  dmin</b> user ca
3350: 6e 20 61 64 64 20 6f 74 68 65 72 20 75 73 65 72  n add other user
3360: 73 2c 20 63 72 65 61 74 65 20 6e 65 77 20 74 69  s, create new ti
3370: 63 6b 65 74 20 72 65 70 6f 72 74 0a 20 20 40 20  cket report.  @ 
3380: 66 6f 72 6d 61 74 73 2c 20 61 6e 64 20 63 68 61  formats, and cha
3390: 6e 67 65 20 73 79 73 74 65 6d 20 64 65 66 61 75  nge system defau
33a0: 6c 74 73 2e 20 20 42 75 74 20 6f 6e 6c 79 20 74  lts.  But only t
33b0: 68 65 20 3c 62 3e 53 65 74 75 70 3c 2f 62 3e 20  he <b>Setup</b> 
33c0: 75 73 65 72 0a 20 20 40 20 69 73 20 61 62 6c 65  user.  @ is able
33d0: 20 74 6f 20 63 68 61 6e 67 65 20 74 68 65 20 72   to change the r
33e0: 65 70 6f 73 69 74 6f 72 79 20 74 6f 0a 20 20 40  epository to.  @
33f0: 20 77 68 69 63 68 20 74 68 69 73 20 70 72 6f 67   which this prog
3400: 72 61 6d 20 69 73 20 6c 69 6e 6b 65 64 2e 0a 20  ram is linked.. 
3410: 20 40 20 3c 2f 70 3e 3c 2f 6c 69 3e 0a 20 20 40   @ </p></li>.  @
3420: 0a 20 20 40 20 3c 6c 69 3e 3c 70 3e 0a 20 20 40  .  @ <li><p>.  @
3430: 20 54 68 65 20 3c 62 3e 48 69 73 74 6f 72 79 3c   The <b>History<
3440: 2f 62 3e 20 70 72 69 76 69 6c 65 67 65 20 61 6c  /b> privilege al
3450: 6c 6f 77 73 20 61 20 75 73 65 72 20 74 6f 20 73  lows a user to s
3460: 65 65 20 61 20 74 69 6d 65 6c 69 6e 65 0a 20 20  ee a timeline.  
3470: 40 20 77 69 74 68 20 68 79 70 65 72 6c 69 6e 6b  @ with hyperlink
3480: 73 20 74 6f 20 76 65 72 73 69 6f 6e 20 69 6e 66  s to version inf
3490: 6f 72 6d 61 74 69 6f 6e 2c 20 74 6f 20 64 6f 77  ormation, to dow
34a0: 6e 6c 6f 61 64 20 5a 49 50 20 61 72 63 68 69 76  nload ZIP archiv
34b0: 65 73 0a 20 20 40 20 6f 66 20 69 6e 64 69 76 69  es.  @ of indivi
34c0: 64 75 61 6c 20 76 65 72 73 69 6f 6e 73 2e 0a 20  dual versions.. 
34d0: 20 40 20 3c 2f 70 3e 3c 2f 6c 69 3e 0a 20 20 40   @ </p></li>.  @
34e0: 0a 20 20 40 20 3c 6c 69 3e 3c 70 3e 0a 20 20 40  .  @ <li><p>.  @
34f0: 20 54 68 65 20 3c 62 3e 52 65 61 64 20 57 69 6b   The <b>Read Wik
3500: 69 3c 2f 62 3e 2c 20 3c 62 3e 4e 65 77 20 57 69  i</b>, <b>New Wi
3510: 6b 69 3c 2f 62 3e 2c 20 3c 62 3e 41 70 70 65 6e  ki</b>, <b>Appen
3520: 64 20 57 69 6b 69 3c 2f 62 3e 2c 20 61 6e 64 0a  d Wiki</b>, and.
3530: 20 20 40 20 3c 62 3e 57 72 69 74 65 20 57 69 6b    @ <b>Write Wik
3540: 69 3c 2f 62 3e 20 70 72 69 76 69 6c 65 67 65 73  i</b> privileges
3550: 20 63 6f 6e 74 72 6f 6c 20 61 63 63 65 73 73 20   control access 
3560: 74 6f 20 77 69 6b 69 20 70 61 67 65 73 2e 20 20  to wiki pages.  
3570: 54 68 65 0a 20 20 40 20 3c 62 3e 52 65 61 64 20  The.  @ <b>Read 
3580: 54 6b 74 3c 2f 62 3e 2c 20 3c 62 3e 4e 65 77 20  Tkt</b>, <b>New 
3590: 54 6b 74 3c 2f 62 3e 2c 20 3c 62 3e 41 70 70 65  Tkt</b>, <b>Appe
35a0: 6e 64 20 54 6b 74 3c 2f 62 3e 2c 20 61 6e 64 0a  nd Tkt</b>, and.
35b0: 20 20 40 20 3c 62 3e 57 72 69 74 65 20 54 6b 74    @ <b>Write Tkt
35c0: 3c 2f 62 3e 20 70 72 69 76 69 6c 65 67 65 73 20  </b> privileges 
35d0: 63 6f 6e 74 72 6f 6c 20 61 63 63 65 73 73 20 74  control access t
35e0: 6f 20 74 72 6f 75 62 6c 65 20 74 69 63 6b 65 74  o trouble ticket
35f0: 73 2e 0a 20 20 40 20 54 68 65 20 3c 62 3e 54 6b  s..  @ The <b>Tk
3600: 74 20 52 65 70 6f 72 74 3c 2f 62 3e 20 70 72 69  t Report</b> pri
3610: 76 69 6c 65 67 65 20 61 6c 6c 6f 77 73 20 74 68  vilege allows th
3620: 65 20 75 73 65 72 20 74 6f 20 63 72 65 61 74 65  e user to create
3630: 20 6f 72 20 65 64 69 74 0a 20 20 40 20 74 69 63   or edit.  @ tic
3640: 6b 65 74 20 72 65 70 6f 72 74 20 66 6f 72 6d 61  ket report forma
3650: 74 73 2e 0a 20 20 40 20 3c 2f 70 3e 3c 2f 6c 69  ts..  @ </p></li
3660: 3e 0a 20 20 40 0a 20 20 40 20 3c 6c 69 3e 3c 70  >.  @.  @ <li><p
3670: 3e 0a 20 20 40 20 4e 6f 20 6c 6f 67 69 6e 20 69  >.  @ No login i
3680: 73 20 72 65 71 75 69 72 65 64 20 66 6f 72 20 75  s required for u
3690: 73 65 72 20 22 3c 62 3e 6e 6f 62 6f 64 79 3c 2f  ser "<b>nobody</
36a0: 62 3e 22 2e 20 20 54 68 65 20 63 61 70 61 62 69  b>".  The capabi
36b0: 6c 69 74 69 65 73 0a 20 20 40 20 6f 66 20 74 68  lities.  @ of th
36c0: 69 73 20 75 73 65 72 20 61 72 65 20 61 76 61 69  is user are avai
36d0: 6c 61 62 6c 65 20 74 6f 20 61 6e 79 6f 6e 65 20  lable to anyone 
36e0: 77 69 74 68 6f 75 74 20 73 75 70 70 6c 79 69 6e  without supplyin
36f0: 67 20 61 20 75 73 65 72 6e 61 6d 65 20 6f 72 0a  g a username or.
3700: 20 20 40 20 70 61 73 73 77 6f 72 64 2e 20 20 54    @ password.  T
3710: 6f 20 64 69 73 61 62 6c 65 20 6e 6f 62 6f 64 79  o disable nobody
3720: 20 61 63 63 65 73 73 2c 20 6d 61 6b 65 20 73 75   access, make su
3730: 72 65 20 74 68 65 72 65 20 69 73 20 6e 6f 20 75  re there is no u
3740: 73 65 72 0a 20 20 40 20 77 69 74 68 20 61 6e 20  ser.  @ with an 
3750: 49 44 20 6f 66 20 3c 62 3e 6e 6f 62 6f 64 79 3c  ID of <b>nobody<
3760: 2f 62 3e 20 6f 72 20 74 68 61 74 20 74 68 65 20  /b> or that the 
3770: 6e 6f 62 6f 64 79 20 75 73 65 72 20 68 61 73 20  nobody user has 
3780: 6e 6f 0a 20 20 40 20 63 61 70 61 62 69 6c 69 74  no.  @ capabilit
3790: 69 65 73 20 65 6e 61 62 6c 65 64 2e 20 20 54 68  ies enabled.  Th
37a0: 65 20 70 61 73 73 77 6f 72 64 20 66 6f 72 20 6e  e password for n
37b0: 6f 62 6f 64 79 20 69 73 20 69 67 6e 6f 72 65 2e  obody is ignore.
37c0: 20 20 54 6f 0a 20 20 40 20 61 76 6f 69 64 20 70    To.  @ avoid p
37d0: 72 6f 62 6c 65 6d 73 20 77 69 74 68 20 73 70 69  roblems with spi
37e0: 64 65 72 73 20 6f 76 65 72 6c 6f 61 64 69 6e 67  ders overloading
37f0: 20 74 68 65 20 73 65 72 76 65 72 2c 20 69 74 20   the server, it 
3800: 69 73 20 73 75 67 67 65 73 74 65 64 0a 20 20 40  is suggested.  @
3810: 20 74 68 61 74 20 74 68 65 20 27 68 27 20 28 48   that the 'h' (H
3820: 69 73 74 6f 72 79 29 20 63 61 70 61 62 69 6c 69  istory) capabili
3830: 74 79 20 62 65 20 74 75 72 6e 65 64 20 6f 66 66  ty be turned off
3840: 20 66 6f 72 20 75 73 65 72 20 6e 6f 62 6f 64 79   for user nobody
3850: 2e 0a 20 20 40 20 3c 2f 70 3e 3c 2f 6c 69 3e 0a  ..  @ </p></li>.
3860: 20 20 40 0a 20 20 40 20 3c 6c 69 3e 3c 70 3e 0a    @.  @ <li><p>.
3870: 20 20 40 20 4c 6f 67 69 6e 20 69 73 20 72 65 71    @ Login is req
3880: 75 69 72 65 64 20 66 6f 72 20 75 73 65 72 20 22  uired for user "
3890: 3c 62 3e 61 6e 6f 6e 79 6d 6f 75 73 3c 2f 62 3e  <b>anonymous</b>
38a0: 22 20 62 75 74 20 74 68 65 20 70 61 73 73 77 6f  " but the passwo
38b0: 72 64 0a 20 20 40 20 69 73 20 64 69 73 70 6c 61  rd.  @ is displa
38c0: 79 65 64 20 6f 6e 20 74 68 65 20 6c 6f 67 69 6e  yed on the login
38d0: 20 73 63 72 65 65 6e 20 62 65 73 69 64 65 20 74   screen beside t
38e0: 68 65 20 70 61 73 73 77 6f 72 64 20 65 6e 74 72  he password entr
38f0: 79 20 62 6f 78 0a 20 20 40 20 73 6f 20 61 6e 79  y box.  @ so any
3900: 62 6f 64 79 20 77 68 6f 20 63 61 6e 20 72 65 61  body who can rea
3910: 64 20 73 68 6f 75 6c 64 20 62 65 20 61 62 6c 65  d should be able
3920: 20 74 6f 20 6c 6f 67 69 6e 20 61 73 20 61 6e 6f   to login as ano
3930: 6e 79 6d 6f 75 73 2e 0a 20 20 40 20 4f 6e 20 74  nymous..  @ On t
3940: 68 65 20 6f 74 68 65 72 20 68 61 6e 64 2c 20 73  he other hand, s
3950: 70 69 64 65 72 73 20 61 6e 64 20 77 65 62 2d 63  piders and web-c
3960: 72 61 77 6c 65 72 73 20 77 69 6c 6c 20 74 79 70  rawlers will typ
3970: 69 63 61 6c 6c 79 20 6e 6f 74 0a 20 20 40 20 62  ically not.  @ b
3980: 65 20 61 62 6c 65 20 74 6f 20 6c 6f 67 69 6e 2e  e able to login.
3990: 20 20 53 65 74 20 74 68 65 20 63 61 70 61 62 69    Set the capabi
39a0: 6c 69 74 69 65 73 20 6f 66 20 74 68 65 20 61 6e  lities of the an
39b0: 6f 6e 79 6d 6f 75 73 20 75 73 65 72 0a 20 20 40  onymous user.  @
39c0: 20 74 6f 20 74 68 69 6e 67 73 20 74 68 61 74 20   to things that 
39d0: 79 6f 75 20 77 61 6e 74 20 61 6e 79 20 68 75 6d  you want any hum
39e0: 61 6e 20 74 6f 20 62 65 20 61 62 6c 65 20 74 6f  an to be able to
39f0: 20 64 6f 2c 20 62 75 74 20 6e 6f 74 20 61 6e 79   do, but not any
3a00: 0a 20 20 40 20 73 70 69 64 65 72 2e 0a 20 20 40  .  @ spider..  @
3a10: 20 3c 2f 70 3e 3c 2f 6c 69 3e 0a 20 20 40 20 3c   </p></li>.  @ <
3a20: 2f 66 6f 72 6d 3e 0a 20 20 73 74 79 6c 65 5f 66  /form>.  style_f
3a30: 6f 6f 74 65 72 28 29 3b 0a 7d 0a 0a 0a 2f 2a 0a  ooter();.}.../*.
3a40: 2a 2a 20 47 65 6e 65 72 61 74 65 20 61 20 63 68  ** Generate a ch
3a50: 65 63 6b 62 6f 78 20 66 6f 72 20 61 6e 20 61 74  eckbox for an at
3a60: 74 72 69 62 75 74 65 2e 0a 2a 2f 0a 73 74 61 74  tribute..*/.stat
3a70: 69 63 20 76 6f 69 64 20 6f 6e 6f 66 66 5f 61 74  ic void onoff_at
3a80: 74 72 69 62 75 74 65 28 0a 20 20 63 6f 6e 73 74  tribute(.  const
3a90: 20 63 68 61 72 20 2a 7a 4c 61 62 65 6c 2c 20 20   char *zLabel,  
3aa0: 20 2f 2a 20 54 68 65 20 74 65 78 74 20 6c 61 62   /* The text lab
3ab0: 65 6c 20 6f 6e 20 74 68 65 20 63 68 65 63 6b 62  el on the checkb
3ac0: 6f 78 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 68  ox */.  const ch
3ad0: 61 72 20 2a 7a 56 61 72 2c 20 20 20 20 20 2f 2a  ar *zVar,     /*
3ae0: 20 54 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69   The correspondi
3af0: 6e 67 20 72 6f 77 20 69 6e 20 74 68 65 20 56 41  ng row in the VA
3b00: 52 20 74 61 62 6c 65 20 2a 2f 0a 20 20 63 6f 6e  R table */.  con
3b10: 73 74 20 63 68 61 72 20 2a 7a 51 50 61 72 6d 2c  st char *zQParm,
3b20: 20 20 20 2f 2a 20 54 68 65 20 71 75 65 72 79 20     /* The query 
3b30: 70 61 72 61 6d 65 74 65 72 20 2a 2f 0a 20 20 69  parameter */.  i
3b40: 6e 74 20 64 66 6c 74 56 61 6c 20 20 20 20 20 20  nt dfltVal      
3b50: 20 20 20 20 20 2f 2a 20 44 65 66 61 75 6c 74 20       /* Default 
3b60: 76 61 6c 75 65 20 69 66 20 56 41 52 20 74 61 62  value if VAR tab
3b70: 6c 65 20 65 6e 74 72 79 20 64 6f 65 73 20 6e 6f  le entry does no
3b80: 74 20 65 78 69 73 74 20 2a 2f 0a 29 7b 0a 20 20  t exist */.){.  
3b90: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 56 61 6c  const char *zVal
3ba0: 20 3d 20 64 62 5f 67 65 74 28 7a 56 61 72 2c 20   = db_get(zVar, 
3bb0: 30 29 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72  0);.  const char
3bc0: 20 2a 7a 51 20 3d 20 50 28 7a 51 50 61 72 6d 29   *zQ = P(zQParm)
3bd0: 3b 0a 20 20 69 6e 74 20 69 56 61 6c 3b 0a 20 20  ;.  int iVal;.  
3be0: 69 66 28 20 7a 56 61 6c 20 29 7b 0a 20 20 20 20  if( zVal ){.    
3bf0: 69 56 61 6c 20 3d 20 61 74 6f 69 28 7a 56 61 6c  iVal = atoi(zVal
3c00: 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20  );.  }else{.    
3c10: 69 56 61 6c 20 3d 20 64 66 6c 74 56 61 6c 3b 0a  iVal = dfltVal;.
3c20: 20 20 7d 0a 20 20 69 66 28 20 7a 51 3d 3d 30 20    }.  if( zQ==0 
3c30: 26 26 20 50 28 22 73 75 62 6d 69 74 22 29 20 29  && P("submit") )
3c40: 7b 0a 20 20 20 20 7a 51 20 3d 20 22 6f 66 66 22  {.    zQ = "off"
3c50: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 7a 51 20 29  ;.  }.  if( zQ )
3c60: 7b 0a 20 20 20 20 69 6e 74 20 69 51 20 3d 20 73  {.    int iQ = s
3c70: 74 72 63 6d 70 28 7a 51 2c 22 6f 6e 22 29 3d 3d  trcmp(zQ,"on")==
3c80: 30 20 7c 7c 20 61 74 6f 69 28 7a 51 29 3b 0a 20  0 || atoi(zQ);. 
3c90: 20 20 20 69 66 28 20 69 51 21 3d 69 56 61 6c 20     if( iQ!=iVal 
3ca0: 29 7b 0a 20 20 20 20 20 20 64 62 5f 73 65 74 28  ){.      db_set(
3cb0: 7a 56 61 72 2c 20 69 51 20 3f 20 22 31 22 20 3a  zVar, iQ ? "1" :
3cc0: 20 22 30 22 2c 20 30 29 3b 0a 20 20 20 20 20 20   "0", 0);.      
3cd0: 69 56 61 6c 20 3d 20 69 51 3b 0a 20 20 20 20 7d  iVal = iQ;.    }
3ce0: 0a 20 20 7d 0a 20 20 69 66 28 20 69 56 61 6c 20  .  }.  if( iVal 
3cf0: 29 7b 0a 20 20 20 20 40 20 3c 69 6e 70 75 74 20  ){.    @ <input 
3d00: 74 79 70 65 3d 22 63 68 65 63 6b 62 6f 78 22 20  type="checkbox" 
3d10: 6e 61 6d 65 3d 22 25 73 28 7a 51 50 61 72 6d 29  name="%s(zQParm)
3d20: 22 20 63 68 65 63 6b 65 64 3e 3c 62 3e 25 73 28  " checked><b>%s(
3d30: 7a 4c 61 62 65 6c 29 3c 2f 62 3e 3c 2f 69 6e 70  zLabel)</b></inp
3d40: 75 74 3e 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20  ut>.  }else{.   
3d50: 20 40 20 3c 69 6e 70 75 74 20 74 79 70 65 3d 22   @ <input type="
3d60: 63 68 65 63 6b 62 6f 78 22 20 6e 61 6d 65 3d 22  checkbox" name="
3d70: 25 73 28 7a 51 50 61 72 6d 29 22 3e 3c 62 3e 25  %s(zQParm)"><b>%
3d80: 73 28 7a 4c 61 62 65 6c 29 3c 2f 62 3e 3c 2f 69  s(zLabel)</b></i
3d90: 6e 70 75 74 3e 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a  nput>.  }.}../*.
3da0: 2a 2a 20 47 65 6e 65 72 61 74 65 20 61 6e 20 65  ** Generate an e
3db0: 6e 74 72 79 20 62 6f 78 20 66 6f 72 20 61 6e 20  ntry box for an 
3dc0: 61 74 74 72 69 62 75 74 65 2e 0a 2a 2f 0a 73 74  attribute..*/.st
3dd0: 61 74 69 63 20 76 6f 69 64 20 65 6e 74 72 79 5f  atic void entry_
3de0: 61 74 74 72 69 62 75 74 65 28 0a 20 20 63 6f 6e  attribute(.  con
3df0: 73 74 20 63 68 61 72 20 2a 7a 4c 61 62 65 6c 2c  st char *zLabel,
3e00: 20 20 20 2f 2a 20 54 68 65 20 74 65 78 74 20 6c     /* The text l
3e10: 61 62 65 6c 20 6f 6e 20 74 68 65 20 65 6e 74 72  abel on the entr
3e20: 79 20 62 6f 78 20 2a 2f 0a 20 20 69 6e 74 20 77  y box */.  int w
3e30: 69 64 74 68 2c 20 20 20 20 20 20 20 20 20 20 20  idth,           
3e40: 20 2f 2a 20 57 69 64 74 68 20 6f 66 20 74 68 65   /* Width of the
3e50: 20 65 6e 74 72 79 20 62 6f 78 20 2a 2f 0a 20 20   entry box */.  
3e60: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 56 61 72  const char *zVar
3e70: 2c 20 20 20 20 20 2f 2a 20 54 68 65 20 63 6f 72  ,     /* The cor
3e80: 72 65 73 70 6f 6e 64 69 6e 67 20 72 6f 77 20 69  responding row i
3e90: 6e 20 74 68 65 20 56 41 52 20 74 61 62 6c 65 20  n the VAR table 
3ea0: 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20  */.  const char 
3eb0: 2a 7a 51 50 61 72 6d 2c 20 20 20 2f 2a 20 54 68  *zQParm,   /* Th
3ec0: 65 20 71 75 65 72 79 20 70 61 72 61 6d 65 74 65  e query paramete
3ed0: 72 20 2a 2f 0a 20 20 63 68 61 72 20 2a 7a 44 66  r */.  char *zDf
3ee0: 6c 74 20 20 20 20 20 2f 2a 20 44 65 66 61 75 6c  lt     /* Defaul
3ef0: 74 20 76 61 6c 75 65 20 69 66 20 56 41 52 20 74  t value if VAR t
3f00: 61 62 6c 65 20 65 6e 74 72 79 20 64 6f 65 73 20  able entry does 
3f10: 6e 6f 74 20 65 78 69 73 74 20 2a 2f 0a 29 7b 0a  not exist */.){.
3f20: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 56    const char *zV
3f30: 61 6c 20 3d 20 64 62 5f 67 65 74 28 7a 56 61 72  al = db_get(zVar
3f40: 2c 20 7a 44 66 6c 74 29 3b 0a 20 20 63 6f 6e 73  , zDflt);.  cons
3f50: 74 20 63 68 61 72 20 2a 7a 51 20 3d 20 50 28 7a  t char *zQ = P(z
3f60: 51 50 61 72 6d 29 3b 0a 20 20 69 66 28 20 7a 51  QParm);.  if( zQ
3f70: 20 26 26 20 73 74 72 63 6d 70 28 7a 51 2c 7a 56   && strcmp(zQ,zV
3f80: 61 6c 29 21 3d 30 20 29 7b 0a 20 20 20 20 64 62  al)!=0 ){.    db
3f90: 5f 73 65 74 28 7a 56 61 72 2c 20 7a 51 2c 20 30  _set(zVar, zQ, 0
3fa0: 29 3b 0a 20 20 20 20 7a 56 61 6c 20 3d 20 7a 51  );.    zVal = zQ
3fb0: 3b 0a 20 20 7d 0a 20 20 40 20 3c 69 6e 70 75 74  ;.  }.  @ <input
3fc0: 20 74 79 70 65 3d 22 74 65 78 74 22 20 6e 61 6d   type="text" nam
3fd0: 65 3d 22 25 73 28 7a 51 50 61 72 6d 29 22 20 76  e="%s(zQParm)" v
3fe0: 61 6c 75 65 3d 22 25 68 28 7a 56 61 6c 29 22 20  alue="%h(zVal)" 
3ff0: 73 69 7a 65 3d 22 25 64 28 77 69 64 74 68 29 22  size="%d(width)"
4000: 3e 0a 20 20 40 20 3c 62 3e 25 73 28 7a 4c 61 62  >.  @ <b>%s(zLab
4010: 65 6c 29 3c 2f 62 3e 0a 7d 0a 0a 2f 2a 0a 2a 2a  el)</b>.}../*.**
4020: 20 47 65 6e 65 72 61 74 65 20 61 20 74 65 78 74   Generate a text
4030: 20 62 6f 78 20 66 6f 72 20 61 6e 20 61 74 74 72   box for an attr
4040: 69 62 75 74 65 2e 0a 2a 2f 0a 73 74 61 74 69 63  ibute..*/.static
4050: 20 76 6f 69 64 20 74 65 78 74 61 72 65 61 5f 61   void textarea_a
4060: 74 74 72 69 62 75 74 65 28 0a 20 20 63 6f 6e 73  ttribute(.  cons
4070: 74 20 63 68 61 72 20 2a 7a 4c 61 62 65 6c 2c 20  t char *zLabel, 
4080: 20 20 2f 2a 20 54 68 65 20 74 65 78 74 20 6c 61    /* The text la
4090: 62 65 6c 20 6f 6e 20 74 68 65 20 74 65 78 74 61  bel on the texta
40a0: 72 65 61 20 2a 2f 0a 20 20 69 6e 74 20 72 6f 77  rea */.  int row
40b0: 73 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 2f  s,             /
40c0: 2a 20 52 6f 77 73 20 69 6e 20 74 68 65 20 74 65  * Rows in the te
40d0: 78 74 61 72 65 61 20 2a 2f 0a 20 20 69 6e 74 20  xtarea */.  int 
40e0: 63 6f 6c 73 2c 20 20 20 20 20 20 20 20 20 20 20  cols,           
40f0: 20 20 2f 2a 20 43 6f 6c 75 6d 6e 73 20 69 6e 20    /* Columns in 
4100: 74 68 65 20 74 65 78 74 61 72 65 61 20 2a 2f 0a  the textarea */.
4110: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 56    const char *zV
4120: 61 72 2c 20 20 20 20 20 2f 2a 20 54 68 65 20 63  ar,     /* The c
4130: 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 72 6f 77  orresponding row
4140: 20 69 6e 20 74 68 65 20 56 41 52 20 74 61 62 6c   in the VAR tabl
4150: 65 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 68 61  e */.  const cha
4160: 72 20 2a 7a 51 50 2c 20 20 20 20 20 20 2f 2a 20  r *zQP,      /* 
4170: 54 68 65 20 71 75 65 72 79 20 70 61 72 61 6d 65  The query parame
4180: 74 65 72 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 63  ter */.  const c
4190: 68 61 72 20 2a 7a 44 66 6c 74 20 20 20 20 20 2f  har *zDflt     /
41a0: 2a 20 44 65 66 61 75 6c 74 20 76 61 6c 75 65 20  * Default value 
41b0: 69 66 20 56 41 52 20 74 61 62 6c 65 20 65 6e 74  if VAR table ent
41c0: 72 79 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73  ry does not exis
41d0: 74 20 2a 2f 0a 29 7b 0a 20 20 63 6f 6e 73 74 20  t */.){.  const 
41e0: 63 68 61 72 20 2a 7a 20 3d 20 64 62 5f 67 65 74  char *z = db_get
41f0: 28 7a 56 61 72 2c 20 28 63 68 61 72 2a 29 7a 44  (zVar, (char*)zD
4200: 66 6c 74 29 3b 0a 20 20 63 6f 6e 73 74 20 63 68  flt);.  const ch
4210: 61 72 20 2a 7a 51 20 3d 20 50 28 7a 51 50 29 3b  ar *zQ = P(zQP);
4220: 0a 20 20 69 66 28 20 7a 51 20 26 26 20 73 74 72  .  if( zQ && str
4230: 63 6d 70 28 7a 51 2c 7a 29 21 3d 30 20 29 7b 0a  cmp(zQ,z)!=0 ){.
4240: 20 20 20 20 64 62 5f 73 65 74 28 7a 56 61 72 2c      db_set(zVar,
4250: 20 7a 51 2c 20 30 29 3b 0a 20 20 20 20 7a 20 3d   zQ, 0);.    z =
4260: 20 7a 51 3b 0a 20 20 7d 0a 20 20 69 66 28 20 72   zQ;.  }.  if( r
4270: 6f 77 73 3e 30 20 26 26 20 63 6f 6c 73 3e 30 20  ows>0 && cols>0 
4280: 29 7b 0a 20 20 20 20 40 20 3c 74 65 78 74 61 72  ){.    @ <textar
4290: 65 61 20 6e 61 6d 65 3d 22 25 73 28 7a 51 50 29  ea name="%s(zQP)
42a0: 22 20 72 6f 77 73 3d 22 25 64 28 72 6f 77 73 29  " rows="%d(rows)
42b0: 22 20 63 6f 6c 73 3d 22 25 64 28 63 6f 6c 73 29  " cols="%d(cols)
42c0: 22 3e 25 68 28 7a 29 3c 2f 74 65 78 74 61 72 65  ">%h(z)</textare
42d0: 61 3e 0a 20 20 20 20 40 20 3c 62 3e 25 73 28 7a  a>.    @ <b>%s(z
42e0: 4c 61 62 65 6c 29 3c 2f 62 3e 0a 20 20 7d 0a 7d  Label)</b>.  }.}
42f0: 0a 0a 0a 2f 2a 0a 2a 2a 20 57 45 42 50 41 47 45  .../*.** WEBPAGE
4300: 3a 20 73 65 74 75 70 5f 61 63 63 65 73 73 0a 2a  : setup_access.*
4310: 2f 0a 76 6f 69 64 20 73 65 74 75 70 5f 61 63 63  /.void setup_acc
4320: 65 73 73 28 76 6f 69 64 29 7b 0a 20 20 6c 6f 67  ess(void){.  log
4330: 69 6e 5f 63 68 65 63 6b 5f 63 72 65 64 65 6e 74  in_check_credent
4340: 69 61 6c 73 28 29 3b 0a 20 20 69 66 28 20 21 67  ials();.  if( !g
4350: 2e 6f 6b 53 65 74 75 70 20 29 7b 0a 20 20 20 20  .okSetup ){.    
4360: 6c 6f 67 69 6e 5f 6e 65 65 64 65 64 28 29 3b 0a  login_needed();.
4370: 20 20 7d 0a 0a 20 20 73 74 79 6c 65 5f 68 65 61    }..  style_hea
4380: 64 65 72 28 22 41 63 63 65 73 73 20 43 6f 6e 74  der("Access Cont
4390: 72 6f 6c 20 53 65 74 74 69 6e 67 73 22 29 3b 0a  rol Settings");.
43a0: 20 20 64 62 5f 62 65 67 69 6e 5f 74 72 61 6e 73    db_begin_trans
43b0: 61 63 74 69 6f 6e 28 29 3b 0a 20 20 40 20 3c 66  action();.  @ <f
43c0: 6f 72 6d 20 61 63 74 69 6f 6e 3d 22 25 73 28 67  orm action="%s(g
43d0: 2e 7a 42 61 73 65 55 52 4c 29 2f 73 65 74 75 70  .zBaseURL)/setup
43e0: 5f 61 63 63 65 73 73 22 20 6d 65 74 68 6f 64 3d  _access" method=
43f0: 22 50 4f 53 54 22 3e 0a 0a 20 20 40 20 3c 68 72  "POST">..  @ <hr
4400: 3e 0a 20 20 6f 6e 6f 66 66 5f 61 74 74 72 69 62  >.  onoff_attrib
4410: 75 74 65 28 22 52 65 71 75 69 72 65 20 70 61 73  ute("Require pas
4420: 73 77 6f 72 64 20 66 6f 72 20 6c 6f 63 61 6c 20  sword for local 
4430: 61 63 63 65 73 73 22 2c 0a 20 20 20 20 20 22 6c  access",.     "l
4440: 6f 63 61 6c 61 75 74 68 22 2c 20 22 6c 6f 63 61  ocalauth", "loca
4450: 6c 61 75 74 68 22 2c 20 31 29 3b 0a 20 20 40 20  lauth", 1);.  @ 
4460: 3c 70 3e 57 68 65 6e 20 65 6e 61 62 6c 65 64 2c  <p>When enabled,
4470: 20 74 68 65 20 70 61 73 73 77 6f 72 64 20 73 69   the password si
4480: 67 6e 2d 69 6e 20 69 73 20 72 65 71 75 69 72 65  gn-in is require
4490: 64 20 66 6f 72 0a 20 20 40 20 77 65 62 20 61 63  d for.  @ web ac
44a0: 63 65 73 73 20 63 6f 6d 69 6e 67 20 66 72 6f 6d  cess coming from
44b0: 20 31 32 37 2e 30 2e 30 2e 31 2e 20 20 57 68 65   127.0.0.1.  Whe
44c0: 6e 20 64 69 73 61 62 6c 65 64 2c 20 77 65 62 20  n disabled, web 
44d0: 61 63 63 65 73 73 0a 20 20 40 20 66 72 6f 6d 20  access.  @ from 
44e0: 31 32 37 2e 30 2e 30 2e 31 20 69 73 20 61 6c 6c  127.0.0.1 is all
44f0: 6f 77 73 20 77 69 74 68 6f 75 74 20 61 6e 79 20  ows without any 
4500: 6c 6f 67 69 6e 20 2d 20 74 68 65 20 75 73 65 72  login - the user
4510: 20 69 64 20 69 73 20 73 65 6c 65 63 74 65 64 0a   id is selected.
4520: 20 20 40 20 66 72 6f 6d 20 74 68 65 20 7e 2f 2e    @ from the ~/.
4530: 66 6f 73 73 69 6c 20 64 61 74 61 62 61 73 65 2e  fossil database.
4540: 20 50 61 73 73 77 6f 72 64 20 6c 6f 67 69 6e 20   Password login 
4550: 69 73 20 61 6c 77 61 79 73 20 72 65 71 75 69 72  is always requir
4560: 65 64 0a 20 20 40 20 66 6f 72 20 69 6e 63 6f 6d  ed.  @ for incom
4570: 69 6e 67 20 77 65 62 20 63 6f 6e 6e 65 63 74 69  ing web connecti
4580: 6f 6e 73 20 6f 6e 20 69 6e 74 65 72 6e 65 74 20  ons on internet 
4590: 61 64 64 72 65 73 73 65 73 20 6f 74 68 65 72 20  addresses other 
45a0: 74 68 61 6e 0a 20 20 40 20 31 32 37 2e 30 2e 30  than.  @ 127.0.0
45b0: 2e 31 2e 3c 2f 70 3e 3c 2f 6c 69 3e 0a 0a 20 20  .1.</p></li>..  
45c0: 40 20 3c 68 72 3e 0a 20 20 65 6e 74 72 79 5f 61  @ <hr>.  entry_a
45d0: 74 74 72 69 62 75 74 65 28 22 4c 6f 67 69 6e 20  ttribute("Login 
45e0: 65 78 70 69 72 61 74 69 6f 6e 20 74 69 6d 65 22  expiration time"
45f0: 2c 20 36 2c 20 22 63 6f 6f 6b 69 65 2d 65 78 70  , 6, "cookie-exp
4600: 69 72 65 22 2c 20 22 63 65 78 22 2c 20 22 38 37  ire", "cex", "87
4610: 36 36 22 29 3b 0a 20 20 40 20 3c 70 3e 54 68 65  66");.  @ <p>The
4620: 20 6e 75 6d 62 65 72 20 6f 66 20 68 6f 75 72 73   number of hours
4630: 20 66 6f 72 20 77 68 69 63 68 20 61 20 6c 6f 67   for which a log
4640: 69 6e 20 69 73 20 76 61 6c 69 64 2e 20 20 54 68  in is valid.  Th
4650: 69 73 20 6d 75 73 74 20 62 65 20 61 0a 20 20 40  is must be a.  @
4660: 20 70 6f 73 69 74 69 76 65 20 6e 75 6d 62 65 72   positive number
4670: 2e 20 20 54 68 65 20 64 65 66 61 75 6c 74 20 69  .  The default i
4680: 73 20 38 37 36 30 20 68 6f 75 72 73 20 77 68 69  s 8760 hours whi
4690: 63 68 20 69 73 20 61 70 70 72 6f 78 69 6d 61 74  ch is approximat
46a0: 65 6c 79 20 65 71 75 61 6c 0a 20 20 40 20 74 6f  ely equal.  @ to
46b0: 20 61 20 79 65 61 72 2e 3c 2f 70 3e 0a 0a 20 20   a year.</p>..  
46c0: 40 20 3c 68 72 3e 0a 20 20 65 6e 74 72 79 5f 61  @ <hr>.  entry_a
46d0: 74 74 72 69 62 75 74 65 28 22 44 6f 77 6e 6c 6f  ttribute("Downlo
46e0: 61 64 20 70 61 63 6b 65 74 20 6c 69 6d 69 74 22  ad packet limit"
46f0: 2c 20 31 30 2c 20 22 6d 61 78 2d 64 6f 77 6e 6c  , 10, "max-downl
4700: 6f 61 64 22 2c 20 22 6d 78 64 77 6e 22 2c 0a 20  oad", "mxdwn",. 
4710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4720: 20 22 35 30 30 30 30 30 30 22 29 3b 0a 20 20 40   "5000000");.  @
4730: 20 3c 70 3e 46 6f 73 73 69 6c 20 74 72 69 65 73   <p>Fossil tries
4740: 20 74 6f 20 6c 69 6d 69 74 20 6f 75 74 2d 62 6f   to limit out-bo
4750: 75 6e 64 20 73 79 6e 63 2c 20 63 6c 6f 6e 65 2c  und sync, clone,
4760: 20 61 6e 64 20 70 75 6c 6c 20 70 61 63 6b 65 74   and pull packet
4770: 73 0a 20 20 40 20 74 6f 20 74 68 69 73 20 6d 61  s.  @ to this ma
4780: 6e 79 20 62 79 74 65 73 2c 20 75 6e 63 6f 6d 70  ny bytes, uncomp
4790: 72 65 73 73 65 64 2e 20 20 49 66 20 74 68 65 20  ressed.  If the 
47a0: 63 6c 69 65 6e 74 20 72 65 71 75 69 72 65 73 20  client requires 
47b0: 6d 6f 72 65 20 64 61 74 61 0a 20 20 40 20 74 68  more data.  @ th
47c0: 61 6e 20 74 68 69 73 2c 20 74 68 65 6e 20 74 68  an this, then th
47d0: 65 20 63 6c 69 65 6e 74 20 77 69 6c 6c 20 69 73  e client will is
47e0: 73 75 65 20 6d 75 6c 74 69 70 6c 65 20 48 54 54  sue multiple HTT
47f0: 50 20 72 65 71 75 65 73 74 73 2e 0a 20 20 40 20  P requests..  @ 
4800: 56 61 6c 75 65 73 20 62 65 6c 6f 77 20 31 20 6d  Values below 1 m
4810: 69 6c 6c 69 6f 6e 20 61 72 65 20 6e 6f 74 20 72  illion are not r
4820: 65 63 6f 6d 6d 65 6e 64 65 64 2e 20 20 35 20 6d  ecommended.  5 m
4830: 69 6c 6c 69 6f 6e 20 69 73 20 61 20 0a 20 20 40  illion is a .  @
4840: 20 72 65 61 73 6f 6e 61 62 6c 65 20 6e 75 6d 62   reasonable numb
4850: 65 72 2e 3c 2f 70 3e 0a 0a 20 20 40 20 3c 68 72  er.</p>..  @ <hr
4860: 3e 0a 20 20 40 20 3c 70 3e 3c 69 6e 70 75 74 20  >.  @ <p><input 
4870: 74 79 70 65 3d 22 73 75 62 6d 69 74 22 20 20 6e  type="submit"  n
4880: 61 6d 65 3d 22 73 75 62 6d 69 74 22 20 76 61 6c  ame="submit" val
4890: 75 65 3d 22 41 70 70 6c 79 20 43 68 61 6e 67 65  ue="Apply Change
48a0: 73 22 3e 3c 2f 70 3e 0a 20 20 40 20 3c 2f 66 6f  s"></p>.  @ </fo
48b0: 72 6d 3e 0a 20 20 64 62 5f 65 6e 64 5f 74 72 61  rm>.  db_end_tra
48c0: 6e 73 61 63 74 69 6f 6e 28 30 29 3b 0a 20 20 73  nsaction(0);.  s
48d0: 74 79 6c 65 5f 66 6f 6f 74 65 72 28 29 3b 0a 7d  tyle_footer();.}
48e0: 0a 0a 2f 2a 0a 2a 2a 20 57 45 42 50 41 47 45 3a  ../*.** WEBPAGE:
48f0: 20 73 65 74 75 70 5f 74 69 6d 65 6c 69 6e 65 0a   setup_timeline.
4900: 2a 2f 0a 76 6f 69 64 20 73 65 74 75 70 5f 74 69  */.void setup_ti
4910: 6d 65 6c 69 6e 65 28 76 6f 69 64 29 7b 0a 20 20  meline(void){.  
4920: 6c 6f 67 69 6e 5f 63 68 65 63 6b 5f 63 72 65 64  login_check_cred
4930: 65 6e 74 69 61 6c 73 28 29 3b 0a 20 20 69 66 28  entials();.  if(
4940: 20 21 67 2e 6f 6b 53 65 74 75 70 20 29 7b 0a 20   !g.okSetup ){. 
4950: 20 20 20 6c 6f 67 69 6e 5f 6e 65 65 64 65 64 28     login_needed(
4960: 29 3b 0a 20 20 7d 0a 0a 20 20 73 74 79 6c 65 5f  );.  }..  style_
4970: 68 65 61 64 65 72 28 22 54 69 6d 65 6c 69 6e 65  header("Timeline
4980: 20 44 69 73 70 6c 61 79 20 50 72 65 66 65 72 65   Display Prefere
4990: 6e 63 65 73 22 29 3b 0a 20 20 64 62 5f 62 65 67  nces");.  db_beg
49a0: 69 6e 5f 74 72 61 6e 73 61 63 74 69 6f 6e 28 29  in_transaction()
49b0: 3b 0a 20 20 40 20 3c 66 6f 72 6d 20 61 63 74 69  ;.  @ <form acti
49c0: 6f 6e 3d 22 25 73 28 67 2e 7a 42 61 73 65 55 52  on="%s(g.zBaseUR
49d0: 4c 29 2f 73 65 74 75 70 5f 74 69 6d 65 6c 69 6e  L)/setup_timelin
49e0: 65 22 20 6d 65 74 68 6f 64 3d 22 50 4f 53 54 22  e" method="POST"
49f0: 3e 0a 0a 20 20 40 20 3c 68 72 3e 0a 20 20 6f 6e  >..  @ <hr>.  on
4a00: 6f 66 66 5f 61 74 74 72 69 62 75 74 65 28 22 42  off_attribute("B
4a10: 6c 6f 63 6b 20 6d 61 72 6b 75 70 20 69 6e 20 74  lock markup in t
4a20: 69 6d 65 6c 69 6e 65 22 2c 0a 20 20 20 20 20 20  imeline",.      
4a30: 20 20 20 20 20 20 20 20 20 20 20 20 22 74 69 6d              "tim
4a40: 65 6c 69 6e 65 2d 62 6c 6f 63 6b 2d 6d 61 72 6b  eline-block-mark
4a50: 75 70 22 2c 20 22 74 62 6d 22 2c 20 30 29 3b 0a  up", "tbm", 0);.
4a60: 20 20 40 20 3c 70 3e 49 6e 20 74 69 6d 65 6c 69    @ <p>In timeli
4a70: 6e 65 20 64 69 73 70 6c 61 79 73 2c 20 63 68 65  ne displays, che
4a80: 63 6b 2d 69 6e 20 63 6f 6d 6d 65 6e 74 73 20 63  ck-in comments c
4a90: 61 6e 20 62 65 20 64 69 73 70 6c 61 79 65 64 20  an be displayed 
4aa0: 77 69 74 68 20 6f 72 0a 20 20 40 20 77 69 74 68  with or.  @ with
4ab0: 6f 75 74 20 62 6c 6f 63 6b 20 6d 61 72 6b 75 70  out block markup
4ac0: 20 28 70 61 72 61 67 72 61 70 68 73 2c 20 74 61   (paragraphs, ta
4ad0: 62 6c 65 73 2c 20 65 74 63 2e 29 3c 2f 70 3e 0a  bles, etc.)</p>.
4ae0: 0a 20 20 40 20 3c 68 72 3e 0a 20 20 65 6e 74 72  .  @ <hr>.  entr
4af0: 79 5f 61 74 74 72 69 62 75 74 65 28 22 4d 61 78  y_attribute("Max
4b00: 20 74 69 6d 65 6c 69 6e 65 20 63 6f 6d 6d 65 6e   timeline commen
4b10: 74 20 6c 65 6e 67 74 68 22 2c 20 36 2c 20 0a 20  t length", 6, . 
4b20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4b30: 20 22 74 69 6d 65 6c 69 6e 65 2d 6d 61 78 2d 63   "timeline-max-c
4b40: 6f 6d 6d 65 6e 74 22 2c 20 22 74 6d 63 22 2c 20  omment", "tmc", 
4b50: 22 30 22 29 3b 0a 20 20 40 20 3c 70 3e 54 68 65  "0");.  @ <p>The
4b60: 20 6d 61 78 69 6d 75 6d 20 6c 65 6e 67 74 68 20   maximum length 
4b70: 6f 66 20 61 20 63 6f 6d 6d 65 6e 74 20 74 6f 20  of a comment to 
4b80: 62 65 20 64 69 73 70 6c 61 79 65 64 20 69 6e 20  be displayed in 
4b90: 61 20 74 69 6d 65 6c 69 6e 65 2e 0a 20 20 40 20  a timeline..  @ 
4ba0: 22 30 22 20 74 68 65 72 65 20 69 73 20 6e 6f 20  "0" there is no 
4bb0: 6c 65 6e 67 74 68 20 6c 69 6d 69 74 2e 3c 2f 70  length limit.</p
4bc0: 3e 0a 0a 20 20 40 20 3c 68 72 3e 0a 20 20 40 20  >..  @ <hr>.  @ 
4bd0: 3c 70 3e 3c 69 6e 70 75 74 20 74 79 70 65 3d 22  <p><input type="
4be0: 73 75 62 6d 69 74 22 20 20 6e 61 6d 65 3d 22 73  submit"  name="s
4bf0: 75 62 6d 69 74 22 20 76 61 6c 75 65 3d 22 41 70  ubmit" value="Ap
4c00: 70 6c 79 20 43 68 61 6e 67 65 73 22 3e 3c 2f 70  ply Changes"></p
4c10: 3e 0a 20 20 40 20 3c 2f 66 6f 72 6d 3e 0a 20 20  >.  @ </form>.  
4c20: 64 62 5f 65 6e 64 5f 74 72 61 6e 73 61 63 74 69  db_end_transacti
4c30: 6f 6e 28 30 29 3b 0a 20 20 73 74 79 6c 65 5f 66  on(0);.  style_f
4c40: 6f 6f 74 65 72 28 29 3b 0a 7d 0a 0a 2f 2a 0a 2a  ooter();.}../*.*
4c50: 2a 20 57 45 42 50 41 47 45 3a 20 73 65 74 75 70  * WEBPAGE: setup
4c60: 5f 63 6f 6e 66 69 67 0a 2a 2f 0a 76 6f 69 64 20  _config.*/.void 
4c70: 73 65 74 75 70 5f 63 6f 6e 66 69 67 28 76 6f 69  setup_config(voi
4c80: 64 29 7b 0a 20 20 6c 6f 67 69 6e 5f 63 68 65 63  d){.  login_chec
4c90: 6b 5f 63 72 65 64 65 6e 74 69 61 6c 73 28 29 3b  k_credentials();
4ca0: 0a 20 20 69 66 28 20 21 67 2e 6f 6b 53 65 74 75  .  if( !g.okSetu
4cb0: 70 20 29 7b 0a 20 20 20 20 6c 6f 67 69 6e 5f 6e  p ){.    login_n
4cc0: 65 65 64 65 64 28 29 3b 0a 20 20 7d 0a 0a 20 20  eeded();.  }..  
4cd0: 73 74 79 6c 65 5f 68 65 61 64 65 72 28 22 57 57  style_header("WW
4ce0: 57 20 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e 22  W Configuration"
4cf0: 29 3b 0a 20 20 64 62 5f 62 65 67 69 6e 5f 74 72  );.  db_begin_tr
4d00: 61 6e 73 61 63 74 69 6f 6e 28 29 3b 0a 20 20 40  ansaction();.  @
4d10: 20 3c 66 6f 72 6d 20 61 63 74 69 6f 6e 3d 22 25   <form action="%
4d20: 73 28 67 2e 7a 42 61 73 65 55 52 4c 29 2f 73 65  s(g.zBaseURL)/se
4d30: 74 75 70 5f 63 6f 6e 66 69 67 22 20 6d 65 74 68  tup_config" meth
4d40: 6f 64 3d 22 50 4f 53 54 22 3e 0a 20 20 40 20 3c  od="POST">.  @ <
4d50: 68 72 20 2f 3e 0a 20 20 65 6e 74 72 79 5f 61 74  hr />.  entry_at
4d60: 74 72 69 62 75 74 65 28 22 50 72 6f 6a 65 63 74  tribute("Project
4d70: 20 4e 61 6d 65 22 2c 20 36 30 2c 20 22 70 72 6f   Name", 60, "pro
4d80: 6a 65 63 74 2d 6e 61 6d 65 22 2c 20 22 70 6e 22  ject-name", "pn"
4d90: 2c 20 22 22 29 3b 0a 20 20 40 20 3c 70 3e 47 69  , "");.  @ <p>Gi
4da0: 76 65 20 79 6f 75 72 20 70 72 6f 6a 65 63 74 20  ve your project 
4db0: 61 20 6e 61 6d 65 20 73 6f 20 76 69 73 69 74 6f  a name so visito
4dc0: 72 73 20 6b 6e 6f 77 20 77 68 61 74 20 74 68 69  rs know what thi
4dd0: 73 20 73 69 74 65 20 69 73 20 61 62 6f 75 74 2e  s site is about.
4de0: 0a 20 20 40 20 54 68 65 20 70 72 6f 6a 65 63 74  .  @ The project
4df0: 20 6e 61 6d 65 20 77 69 6c 6c 20 61 6c 73 6f 20   name will also 
4e00: 62 65 20 75 73 65 64 20 61 73 20 74 68 65 20 52  be used as the R
4e10: 53 53 20 66 65 65 64 20 74 69 74 6c 65 2e 3c 2f  SS feed title.</
4e20: 70 3e 0a 20 20 40 20 3c 68 72 20 2f 3e 0a 20 20  p>.  @ <hr />.  
4e30: 74 65 78 74 61 72 65 61 5f 61 74 74 72 69 62 75  textarea_attribu
4e40: 74 65 28 22 50 72 6f 6a 65 63 74 20 44 65 73 63  te("Project Desc
4e50: 72 69 70 74 69 6f 6e 22 2c 20 35 2c 20 36 30 2c  ription", 5, 60,
4e60: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
4e70: 20 20 20 20 20 20 22 70 72 6f 6a 65 63 74 2d 64        "project-d
4e80: 65 73 63 72 69 70 74 69 6f 6e 22 2c 20 22 70 64  escription", "pd
4e90: 22 2c 20 22 22 29 3b 0a 20 20 40 20 3c 70 3e 44  ", "");.  @ <p>D
4ea0: 65 73 63 72 69 62 65 20 79 6f 75 72 20 70 72 6f  escribe your pro
4eb0: 6a 65 63 74 2e 20 54 68 69 73 20 77 69 6c 6c 20  ject. This will 
4ec0: 62 65 20 75 73 65 64 20 69 6e 20 70 61 67 65 20  be used in page 
4ed0: 68 65 61 64 65 72 73 20 66 6f 72 20 73 65 61 72  headers for sear
4ee0: 63 68 0a 20 20 40 20 65 6e 67 69 6e 65 73 20 61  ch.  @ engines a
4ef0: 73 20 77 65 6c 6c 20 61 73 20 61 20 73 68 6f 72  s well as a shor
4f00: 74 20 52 53 53 20 64 65 73 63 72 69 70 74 69 6f  t RSS descriptio
4f10: 6e 2e 3c 2f 70 3e 0a 20 20 40 20 3c 68 72 20 2f  n.</p>.  @ <hr /
4f20: 3e 0a 20 20 65 6e 74 72 79 5f 61 74 74 72 69 62  >.  entry_attrib
4f30: 75 74 65 28 22 49 6e 64 65 78 20 50 61 67 65 22  ute("Index Page"
4f40: 2c 20 36 30 2c 20 22 69 6e 64 65 78 2d 70 61 67  , 60, "index-pag
4f50: 65 22 2c 20 22 69 64 78 70 67 22 2c 20 22 2f 68  e", "idxpg", "/h
4f60: 6f 6d 65 22 29 3b 0a 20 20 40 20 3c 70 3e 45 6e  ome");.  @ <p>En
4f70: 74 65 72 20 74 68 65 20 70 61 74 68 6e 61 6d 65  ter the pathname
4f80: 20 6f 66 20 74 68 65 20 70 61 67 65 20 74 6f 20   of the page to 
4f90: 64 69 73 70 6c 61 79 20 77 68 65 6e 20 74 68 65  display when the
4fa0: 20 22 48 6f 6d 65 22 20 6d 65 6e 75 0a 20 20 40   "Home" menu.  @
4fb0: 20 6f 70 74 69 6f 6e 20 69 73 20 73 65 6c 65 63   option is selec
4fc0: 74 65 64 20 61 6e 64 20 77 68 65 6e 20 6e 6f 20  ted and when no 
4fd0: 70 61 74 68 6e 61 6d 65 20 69 73 0a 20 20 40 20  pathname is.  @ 
4fe0: 73 70 65 63 69 66 69 65 64 20 69 6e 20 74 68 65  specified in the
4ff0: 20 55 52 4c 2e 20 20 46 6f 72 20 65 78 61 6d 70   URL.  For examp
5000: 6c 65 2c 20 69 66 20 79 6f 75 20 76 69 73 69 74  le, if you visit
5010: 20 74 68 65 20 75 72 6c 3a 3c 2f 70 3e 0a 20 20   the url:</p>.  
5020: 40 0a 20 20 40 20 3c 62 6c 6f 63 6b 71 75 6f 74  @.  @ <blockquot
5030: 65 3e 25 68 28 67 2e 7a 42 61 73 65 55 52 4c 29  e>%h(g.zBaseURL)
5040: 3c 2f 62 6c 6f 63 6b 71 75 6f 74 65 3e 0a 20 20  </blockquote>.  
5050: 40 0a 20 20 40 20 3c 70 3e 41 6e 64 20 79 6f 75  @.  @ <p>And you
5060: 20 68 61 76 65 20 73 70 65 63 69 66 69 65 64 20   have specified 
5070: 61 6e 20 69 6e 64 65 78 20 70 61 67 65 20 6f 66  an index page of
5080: 20 22 2f 68 6f 6d 65 22 20 74 68 65 20 61 62 6f   "/home" the abo
5090: 76 65 20 77 69 6c 6c 0a 20 20 40 20 61 75 74 6f  ve will.  @ auto
50a0: 6d 61 74 69 63 61 6c 6c 79 20 72 65 64 69 72 65  matically redire
50b0: 63 74 20 74 6f 3a 3c 2f 70 3e 0a 20 20 40 0a 20  ct to:</p>.  @. 
50c0: 20 40 20 3c 62 6c 6f 63 6b 71 75 6f 74 65 3e 25   @ <blockquote>%
50d0: 68 28 67 2e 7a 42 61 73 65 55 52 4c 29 2f 68 6f  h(g.zBaseURL)/ho
50e0: 6d 65 3c 2f 62 6c 6f 63 6b 71 75 6f 74 65 3e 0a  me</blockquote>.
50f0: 20 20 40 0a 20 20 40 20 3c 70 3e 54 68 65 20 64    @.  @ <p>The d
5100: 65 66 61 75 6c 74 20 22 2f 68 6f 6d 65 22 20 70  efault "/home" p
5110: 61 67 65 20 64 69 73 70 6c 61 79 73 20 61 20 57  age displays a W
5120: 69 6b 69 20 70 61 67 65 20 77 69 74 68 20 74 68  iki page with th
5130: 65 20 73 61 6d 65 20 6e 61 6d 65 0a 20 20 40 20  e same name.  @ 
5140: 61 73 20 74 68 65 20 50 72 6f 6a 65 63 74 20 4e  as the Project N
5150: 61 6d 65 20 73 70 65 63 69 66 69 65 64 20 61 62  ame specified ab
5160: 6f 76 65 2e 20 20 53 6f 6d 65 20 73 69 74 65 73  ove.  Some sites
5170: 20 70 72 65 66 65 72 20 74 6f 20 72 65 64 69 72   prefer to redir
5180: 65 63 74 0a 20 20 40 20 74 6f 20 61 20 64 6f 63  ect.  @ to a doc
5190: 75 6d 65 6e 74 61 74 69 6f 6e 20 70 61 67 65 20  umentation page 
51a0: 28 65 78 3a 20 22 2f 64 6f 63 2f 74 69 70 2f 69  (ex: "/doc/tip/i
51b0: 6e 64 65 78 2e 77 69 6b 69 22 29 20 6f 72 20 74  ndex.wiki") or t
51c0: 6f 20 22 2f 74 69 6d 65 6c 69 6e 65 22 2e 3c 2f  o "/timeline".</
51d0: 70 3e 0a 20 20 40 20 3c 68 72 20 2f 3e 0a 20 20  p>.  @ <hr />.  
51e0: 40 20 3c 70 3e 3c 69 6e 70 75 74 20 74 79 70 65  @ <p><input type
51f0: 3d 22 73 75 62 6d 69 74 22 20 20 6e 61 6d 65 3d  ="submit"  name=
5200: 22 73 75 62 6d 69 74 22 20 76 61 6c 75 65 3d 22  "submit" value="
5210: 41 70 70 6c 79 20 43 68 61 6e 67 65 73 22 3e 3c  Apply Changes"><
5220: 2f 70 3e 0a 20 20 40 20 3c 2f 66 6f 72 6d 3e 0a  /p>.  @ </form>.
5230: 20 20 64 62 5f 65 6e 64 5f 74 72 61 6e 73 61 63    db_end_transac
5240: 74 69 6f 6e 28 30 29 3b 0a 20 20 73 74 79 6c 65  tion(0);.  style
5250: 5f 66 6f 6f 74 65 72 28 29 3b 0a 7d 0a 0a 2f 2a  _footer();.}../*
5260: 0a 2a 2a 20 57 45 42 50 41 47 45 3a 20 73 65 74  .** WEBPAGE: set
5270: 75 70 5f 65 64 69 74 63 73 73 0a 2a 2f 0a 76 6f  up_editcss.*/.vo
5280: 69 64 20 73 65 74 75 70 5f 65 64 69 74 63 73 73  id setup_editcss
5290: 28 76 6f 69 64 29 7b 0a 20 20 6c 6f 67 69 6e 5f  (void){.  login_
52a0: 63 68 65 63 6b 5f 63 72 65 64 65 6e 74 69 61 6c  check_credential
52b0: 73 28 29 3b 0a 20 20 69 66 28 20 21 67 2e 6f 6b  s();.  if( !g.ok
52c0: 53 65 74 75 70 20 29 7b 0a 20 20 20 20 6c 6f 67  Setup ){.    log
52d0: 69 6e 5f 6e 65 65 64 65 64 28 29 3b 0a 20 20 7d  in_needed();.  }
52e0: 0a 20 20 73 74 79 6c 65 5f 68 65 61 64 65 72 28  .  style_header(
52f0: 22 45 64 69 74 20 43 53 53 22 29 3b 0a 20 20 40  "Edit CSS");.  @
5300: 20 3c 66 6f 72 6d 20 61 63 74 69 6f 6e 3d 22 25   <form action="%
5310: 73 28 67 2e 7a 42 61 73 65 55 52 4c 29 2f 73 65  s(g.zBaseURL)/se
5320: 74 75 70 5f 65 64 69 74 63 73 73 22 20 6d 65 74  tup_editcss" met
5330: 68 6f 64 3d 22 50 4f 53 54 22 3e 0a 20 20 40 20  hod="POST">.  @ 
5340: 45 64 69 74 20 74 68 65 20 43 53 53 3a 3c 62 72  Edit the CSS:<br
5350: 20 2f 3e 0a 20 20 74 65 78 74 61 72 65 61 5f 61   />.  textarea_a
5360: 74 74 72 69 62 75 74 65 28 22 22 2c 20 34 30 2c  ttribute("", 40,
5370: 20 38 30 2c 20 22 63 73 73 22 2c 20 22 63 73 73   80, "css", "css
5380: 22 2c 20 7a 44 65 66 61 75 6c 74 43 53 53 29 3b  ", zDefaultCSS);
5390: 0a 20 20 40 20 3c 62 72 20 2f 3e 0a 20 20 40 20  .  @ <br />.  @ 
53a0: 3c 69 6e 70 75 74 20 74 79 70 65 3d 22 73 75 62  <input type="sub
53b0: 6d 69 74 22 20 6e 61 6d 65 3d 22 73 75 62 6d 69  mit" name="submi
53c0: 74 22 20 76 61 6c 75 65 3d 22 41 70 70 6c 79 20  t" value="Apply 
53d0: 43 68 61 6e 67 65 73 22 3e 0a 20 20 40 20 3c 2f  Changes">.  @ </
53e0: 66 6f 72 6d 3e 0a 20 20 40 20 3c 68 72 3e 0a 20  form>.  @ <hr>. 
53f0: 20 40 20 48 65 72 65 20 69 73 20 74 68 65 20 64   @ Here is the d
5400: 65 66 61 75 6c 74 20 43 53 53 3a 0a 20 20 40 20  efault CSS:.  @ 
5410: 3c 62 6c 6f 63 6b 71 75 6f 74 65 3e 3c 70 72 65  <blockquote><pre
5420: 3e 0a 20 20 40 20 25 68 28 7a 44 65 66 61 75 6c  >.  @ %h(zDefaul
5430: 74 43 53 53 29 0a 20 20 40 20 3c 2f 70 72 65 3e  tCSS).  @ </pre>
5440: 3c 2f 62 6c 6f 63 6b 71 75 6f 74 65 3e 0a 20 20  </blockquote>.  
5450: 73 74 79 6c 65 5f 66 6f 6f 74 65 72 28 29 3b 0a  style_footer();.
5460: 7d 0a 0a 2f 2a 0a 2a 2a 20 57 45 42 50 41 47 45  }../*.** WEBPAGE
5470: 3a 20 73 65 74 75 70 5f 68 65 61 64 65 72 0a 2a  : setup_header.*
5480: 2f 0a 76 6f 69 64 20 73 65 74 75 70 5f 68 65 61  /.void setup_hea
5490: 64 65 72 28 76 6f 69 64 29 7b 0a 20 20 6c 6f 67  der(void){.  log
54a0: 69 6e 5f 63 68 65 63 6b 5f 63 72 65 64 65 6e 74  in_check_credent
54b0: 69 61 6c 73 28 29 3b 0a 20 20 69 66 28 20 21 67  ials();.  if( !g
54c0: 2e 6f 6b 53 65 74 75 70 20 29 7b 0a 20 20 20 20  .okSetup ){.    
54d0: 6c 6f 67 69 6e 5f 6e 65 65 64 65 64 28 29 3b 0a  login_needed();.
54e0: 20 20 7d 0a 20 20 64 62 5f 62 65 67 69 6e 5f 74    }.  db_begin_t
54f0: 72 61 6e 73 61 63 74 69 6f 6e 28 29 3b 0a 20 20  ransaction();.  
5500: 69 66 28 20 50 28 22 63 6c 65 61 72 22 29 21 3d  if( P("clear")!=
5510: 30 20 29 7b 0a 20 20 20 20 64 62 5f 6d 75 6c 74  0 ){.    db_mult
5520: 69 5f 65 78 65 63 28 22 44 45 4c 45 54 45 20 46  i_exec("DELETE F
5530: 52 4f 4d 20 63 6f 6e 66 69 67 20 57 48 45 52 45  ROM config WHERE
5540: 20 6e 61 6d 65 3d 27 68 65 61 64 65 72 27 22 29   name='header'")
5550: 3b 0a 20 20 20 20 63 67 69 5f 72 65 70 6c 61 63  ;.    cgi_replac
5560: 65 5f 70 61 72 61 6d 65 74 65 72 28 22 68 65 61  e_parameter("hea
5570: 64 65 72 22 2c 20 7a 44 65 66 61 75 6c 74 48 65  der", zDefaultHe
5580: 61 64 65 72 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a  ader);.  }else{.
5590: 20 20 20 20 74 65 78 74 61 72 65 61 5f 61 74 74      textarea_att
55a0: 72 69 62 75 74 65 28 30 2c 20 30 2c 20 30 2c 20  ribute(0, 0, 0, 
55b0: 22 68 65 61 64 65 72 22 2c 20 22 68 65 61 64 65  "header", "heade
55c0: 72 22 2c 20 7a 44 65 66 61 75 6c 74 48 65 61 64  r", zDefaultHead
55d0: 65 72 29 3b 0a 20 20 7d 0a 20 20 73 74 79 6c 65  er);.  }.  style
55e0: 5f 68 65 61 64 65 72 28 22 45 64 69 74 20 50 61  _header("Edit Pa
55f0: 67 65 20 48 65 61 64 65 72 22 29 3b 0a 20 20 40  ge Header");.  @
5600: 20 3c 66 6f 72 6d 20 61 63 74 69 6f 6e 3d 22 25   <form action="%
5610: 73 28 67 2e 7a 42 61 73 65 55 52 4c 29 2f 73 65  s(g.zBaseURL)/se
5620: 74 75 70 5f 68 65 61 64 65 72 22 20 6d 65 74 68  tup_header" meth
5630: 6f 64 3d 22 50 4f 53 54 22 3e 0a 20 20 40 20 3c  od="POST">.  @ <
5640: 70 3e 45 64 69 74 20 48 54 4d 4c 20 74 65 78 74  p>Edit HTML text
5650: 20 77 69 74 68 20 65 6d 62 65 64 64 65 64 20 54   with embedded T
5660: 48 31 20 28 61 20 54 43 4c 20 64 69 61 6c 65 63  H1 (a TCL dialec
5670: 74 29 20 74 68 61 74 20 77 69 6c 6c 20 62 65 20  t) that will be 
5680: 75 73 65 64 20 74 6f 0a 20 20 40 20 67 65 6e 65  used to.  @ gene
5690: 72 61 74 65 20 74 68 65 20 62 65 67 69 6e 6e 69  rate the beginni
56a0: 6e 67 20 6f 66 20 65 76 65 72 79 20 70 61 67 65  ng of every page
56b0: 20 74 68 72 6f 75 67 68 20 73 74 61 72 74 20 6f   through start o
56c0: 66 20 74 68 65 20 6d 61 69 6e 0a 20 20 40 20 6d  f the main.  @ m
56d0: 65 6e 75 2e 3c 2f 70 3e 0a 20 20 74 65 78 74 61  enu.</p>.  texta
56e0: 72 65 61 5f 61 74 74 72 69 62 75 74 65 28 22 22  rea_attribute(""
56f0: 2c 20 34 30 2c 20 38 30 2c 20 22 68 65 61 64 65  , 40, 80, "heade
5700: 72 22 2c 20 22 68 65 61 64 65 72 22 2c 20 7a 44  r", "header", zD
5710: 65 66 61 75 6c 74 48 65 61 64 65 72 29 3b 0a 20  efaultHeader);. 
5720: 20 40 20 3c 62 72 20 2f 3e 0a 20 20 40 20 3c 69   @ <br />.  @ <i
5730: 6e 70 75 74 20 74 79 70 65 3d 22 73 75 62 6d 69  nput type="submi
5740: 74 22 20 6e 61 6d 65 3d 22 73 75 62 6d 69 74 22  t" name="submit"
5750: 20 76 61 6c 75 65 3d 22 41 70 70 6c 79 20 43 68   value="Apply Ch
5760: 61 6e 67 65 73 22 3e 0a 20 20 40 20 3c 69 6e 70  anges">.  @ <inp
5770: 75 74 20 74 79 70 65 3d 22 73 75 62 6d 69 74 22  ut type="submit"
5780: 20 6e 61 6d 65 3d 22 63 6c 65 61 72 22 20 76 61   name="clear" va
5790: 6c 75 65 3d 22 52 65 76 65 72 74 20 54 6f 20 44  lue="Revert To D
57a0: 65 66 61 75 6c 74 22 3e 0a 20 20 40 20 3c 2f 66  efault">.  @ </f
57b0: 6f 72 6d 3e 0a 20 20 40 20 3c 68 72 3e 0a 20 20  orm>.  @ <hr>.  
57c0: 40 20 48 65 72 65 20 69 73 20 74 68 65 20 64 65  @ Here is the de
57d0: 66 61 75 6c 74 20 70 61 67 65 20 68 65 61 64 65  fault page heade
57e0: 72 3a 0a 20 20 40 20 3c 62 6c 6f 63 6b 71 75 6f  r:.  @ <blockquo
57f0: 74 65 3e 3c 70 72 65 3e 0a 20 20 40 20 25 68 28  te><pre>.  @ %h(
5800: 7a 44 65 66 61 75 6c 74 48 65 61 64 65 72 29 0a  zDefaultHeader).
5810: 20 20 40 20 3c 2f 70 72 65 3e 3c 2f 62 6c 6f 63    @ </pre></bloc
5820: 6b 71 75 6f 74 65 3e 0a 20 20 73 74 79 6c 65 5f  kquote>.  style_
5830: 66 6f 6f 74 65 72 28 29 3b 0a 20 20 64 62 5f 65  footer();.  db_e
5840: 6e 64 5f 74 72 61 6e 73 61 63 74 69 6f 6e 28 30  nd_transaction(0
5850: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 57 45 42 50  );.}../*.** WEBP
5860: 41 47 45 3a 20 73 65 74 75 70 5f 66 6f 6f 74 65  AGE: setup_foote
5870: 72 0a 2a 2f 0a 76 6f 69 64 20 73 65 74 75 70 5f  r.*/.void setup_
5880: 66 6f 6f 74 65 72 28 76 6f 69 64 29 7b 0a 20 20  footer(void){.  
5890: 6c 6f 67 69 6e 5f 63 68 65 63 6b 5f 63 72 65 64  login_check_cred
58a0: 65 6e 74 69 61 6c 73 28 29 3b 0a 20 20 69 66 28  entials();.  if(
58b0: 20 21 67 2e 6f 6b 53 65 74 75 70 20 29 7b 0a 20   !g.okSetup ){. 
58c0: 20 20 20 6c 6f 67 69 6e 5f 6e 65 65 64 65 64 28     login_needed(
58d0: 29 3b 0a 20 20 7d 0a 20 20 64 62 5f 62 65 67 69  );.  }.  db_begi
58e0: 6e 5f 74 72 61 6e 73 61 63 74 69 6f 6e 28 29 3b  n_transaction();
58f0: 0a 20 20 69 66 28 20 50 28 22 63 6c 65 61 72 22  .  if( P("clear"
5900: 29 21 3d 30 20 29 7b 0a 20 20 20 20 64 62 5f 6d  )!=0 ){.    db_m
5910: 75 6c 74 69 5f 65 78 65 63 28 22 44 45 4c 45 54  ulti_exec("DELET
5920: 45 20 46 52 4f 4d 20 63 6f 6e 66 69 67 20 57 48  E FROM config WH
5930: 45 52 45 20 6e 61 6d 65 3d 27 66 6f 6f 74 65 72  ERE name='footer
5940: 27 22 29 3b 0a 20 20 20 20 63 67 69 5f 72 65 70  '");.    cgi_rep
5950: 6c 61 63 65 5f 70 61 72 61 6d 65 74 65 72 28 22  lace_parameter("
5960: 66 6f 6f 74 65 72 22 2c 20 7a 44 65 66 61 75 6c  footer", zDefaul
5970: 74 46 6f 6f 74 65 72 29 3b 0a 20 20 7d 65 6c 73  tFooter);.  }els
5980: 65 7b 0a 20 20 20 20 74 65 78 74 61 72 65 61 5f  e{.    textarea_
5990: 61 74 74 72 69 62 75 74 65 28 30 2c 20 30 2c 20  attribute(0, 0, 
59a0: 30 2c 20 22 66 6f 6f 74 65 72 22 2c 20 22 66 6f  0, "footer", "fo
59b0: 6f 74 65 72 22 2c 20 7a 44 65 66 61 75 6c 74 46  oter", zDefaultF
59c0: 6f 6f 74 65 72 29 3b 0a 20 20 7d 0a 20 20 73 74  ooter);.  }.  st
59d0: 79 6c 65 5f 68 65 61 64 65 72 28 22 45 64 69 74  yle_header("Edit
59e0: 20 50 61 67 65 20 46 6f 6f 74 65 72 22 29 3b 0a   Page Footer");.
59f0: 20 20 40 20 3c 66 6f 72 6d 20 61 63 74 69 6f 6e    @ <form action
5a00: 3d 22 25 73 28 67 2e 7a 42 61 73 65 55 52 4c 29  ="%s(g.zBaseURL)
5a10: 2f 73 65 74 75 70 5f 66 6f 6f 74 65 72 22 20 6d  /setup_footer" m
5a20: 65 74 68 6f 64 3d 22 50 4f 53 54 22 3e 0a 20 20  ethod="POST">.  
5a30: 40 20 3c 70 3e 45 64 69 74 20 48 54 4d 4c 20 74  @ <p>Edit HTML t
5a40: 65 78 74 20 77 69 74 68 20 65 6d 62 65 64 64 65  ext with embedde
5a50: 64 20 54 48 31 20 28 61 20 54 43 4c 20 64 69 61  d TH1 (a TCL dia
5a60: 6c 65 63 74 29 20 74 68 61 74 20 77 69 6c 6c 20  lect) that will 
5a70: 62 65 20 75 73 65 64 20 74 6f 0a 20 20 40 20 67  be used to.  @ g
5a80: 65 6e 65 72 61 74 65 20 74 68 65 20 65 6e 64 20  enerate the end 
5a90: 6f 66 20 65 76 65 72 79 20 70 61 67 65 2e 3c 2f  of every page.</
5aa0: 70 3e 0a 20 20 74 65 78 74 61 72 65 61 5f 61 74  p>.  textarea_at
5ab0: 74 72 69 62 75 74 65 28 22 22 2c 20 32 30 2c 20  tribute("", 20, 
5ac0: 38 30 2c 20 22 66 6f 6f 74 65 72 22 2c 20 22 66  80, "footer", "f
5ad0: 6f 6f 74 65 72 22 2c 20 7a 44 65 66 61 75 6c 74  ooter", zDefault
5ae0: 46 6f 6f 74 65 72 29 3b 0a 20 20 40 20 3c 62 72  Footer);.  @ <br
5af0: 20 2f 3e 0a 20 20 40 20 3c 69 6e 70 75 74 20 74   />.  @ <input t
5b00: 79 70 65 3d 22 73 75 62 6d 69 74 22 20 6e 61 6d  ype="submit" nam
5b10: 65 3d 22 73 75 62 6d 69 74 22 20 76 61 6c 75 65  e="submit" value
5b20: 3d 22 41 70 70 6c 79 20 43 68 61 6e 67 65 73 22  ="Apply Changes"
5b30: 3e 0a 20 20 40 20 3c 69 6e 70 75 74 20 74 79 70  >.  @ <input typ
5b40: 65 3d 22 73 75 62 6d 69 74 22 20 6e 61 6d 65 3d  e="submit" name=
5b50: 22 63 6c 65 61 72 22 20 76 61 6c 75 65 3d 22 52  "clear" value="R
5b60: 65 76 65 72 74 20 54 6f 20 44 65 66 61 75 6c 74  evert To Default
5b70: 22 3e 0a 20 20 40 20 3c 2f 66 6f 72 6d 3e 0a 20  ">.  @ </form>. 
5b80: 20 40 20 3c 68 72 3e 0a 20 20 40 20 48 65 72 65   @ <hr>.  @ Here
5b90: 20 69 73 20 74 68 65 20 64 65 66 61 75 6c 74 20   is the default 
5ba0: 70 61 67 65 20 66 6f 6f 74 65 72 3a 0a 20 20 40  page footer:.  @
5bb0: 20 3c 62 6c 6f 63 6b 71 75 6f 74 65 3e 3c 70 72   <blockquote><pr
5bc0: 65 3e 0a 20 20 40 20 25 68 28 7a 44 65 66 61 75  e>.  @ %h(zDefau
5bd0: 6c 74 46 6f 6f 74 65 72 29 0a 20 20 40 20 3c 2f  ltFooter).  @ </
5be0: 70 72 65 3e 3c 2f 62 6c 6f 63 6b 71 75 6f 74 65  pre></blockquote
5bf0: 3e 0a 20 20 73 74 79 6c 65 5f 66 6f 6f 74 65 72  >.  style_footer
5c00: 28 29 3b 0a 20 20 64 62 5f 65 6e 64 5f 74 72 61  ();.  db_end_tra
5c10: 6e 73 61 63 74 69 6f 6e 28 30 29 3b 0a 7d 0a     nsaction(0);.}.