Artifact 9463ed8860d06399be4e0642ad56c61a6f6c19b5:

• Executable file extroot/survey_sum — part of check-in [a08c7b5ce3] at 2021-09-19 10:16:52 on branch trunk — Add survey tbl display tool. (user: mario size: 1812)

---

0000: 23 21 2f 75 73 72 2f 62 69 6e 2f 70 68 70 2d 63  #!/usr/bin/php-c
0010: 67 69 20 2d 64 63 67 69 2e 66 6f 72 63 65 5f 72  gi -dcgi.force_r
0020: 65 64 69 72 65 63 74 3d 30 0a 3c 3f 70 68 70 0a  edirect=0.<?php.
0030: 23 20 65 6e 63 6f 64 69 6e 67 3a 20 75 74 66 2d  # encoding: utf-
0040: 38 0a 23 20 61 70 69 3a 20 63 67 69 0a 23 20 74  8.# api: cgi.# t
0050: 79 70 65 3a 20 64 69 73 70 6c 61 79 0a 23 20 63  ype: display.# c
0060: 61 74 65 67 6f 72 79 3a 20 64 61 74 61 62 61 73  ategory: databas
0070: 65 0a 23 20 74 69 74 6c 65 3a 20 53 75 72 76 65  e.# title: Surve
0080: 79 20 73 75 6d 6d 61 72 69 7a 65 0a 23 20 64 65  y summarize.# de
0090: 73 63 72 69 70 74 69 6f 6e 3a 20 4f 6e 6c 79 20  scription: Only 
00a0: 63 6f 6c 6c 65 63 74 73 0a 23 20 76 65 72 73 69  collects.# versi
00b0: 6f 6e 3a 20 30 2e 32 0a 23 20 73 74 61 74 65 3a  on: 0.2.# state:
00c0: 20 61 6c 70 68 61 0a 23 20 63 6f 6e 66 69 67 3a   alpha.# config:
00d0: 20 2d 0a 23 0a 23 20 52 65 71 75 69 72 65 73 20   -.#.# Requires 
00e0: 61 20 6c 69 6e 6b 20 6c 69 6b 65 20 20 22 2f 65  a link like  "/e
00f0: 78 74 2f 73 75 72 76 65 79 5f 73 75 6d 2f 53 41  xt/survey_sum/SA
0100: 4d 50 4c 45 22 2c 0a 23 20 61 6e 64 20 63 6f 75  MPLE",.# and cou
0110: 6e 74 73 20 74 68 65 20 6e 75 6d 65 72 69 63 20  nts the numeric 
0120: 66 69 65 6c 64 73 20 28 63 68 65 63 6b 62 6f 78  fields (checkbox
0130: 65 73 20 79 65 73 2f 6e 6f 29 2e 0a 23 20 49 74  es yes/no)..# It
0140: 27 73 20 6a 75 73 74 20 6d 65 61 6e 74 20 66 6f  's just meant fo
0150: 72 20 61 20 71 75 69 63 6b 20 72 65 73 75 6c 74  r a quick result
0160: 20 6c 69 73 74 2c 20 61 6e 64 0a 23 20 6f 75 74   list, and.# out
0170: 70 75 74 73 20 61 70 70 72 6f 78 69 6d 61 74 65  puts approximate
0180: 20 70 6f 69 6e 74 73 20 f0 9f 9e 93 0a 0a 0a 23   points 🞓...#
0190: 2d 2d 20 64 61 74 61 62 61 73 65 20 28 3d 3d 20  -- database (== 
01a0: 66 6f 73 73 69 6c 20 72 65 70 6f 29 0a 66 75 6e  fossil repo).fun
01b0: 63 74 69 6f 6e 20 64 62 28 24 73 71 6c 3d 22 22  ction db($sql=""
01c0: 2c 20 24 70 61 72 61 6d 73 3d 5b 5d 29 20 7b 0a  , $params=[]) {.
01d0: 20 20 20 20 73 74 61 74 69 63 20 24 64 62 3b 0a      static $db;.
01e0: 20 20 20 20 69 66 20 28 65 6d 70 74 79 28 24 64      if (empty($d
01f0: 62 29 29 20 7b 0a 20 20 20 20 20 20 20 20 24 64  b)) {.        $d
0200: 62 20 3d 20 6e 65 77 20 50 44 4f 28 22 73 71 6c  b = new PDO("sql
0210: 69 74 65 3a 24 5f 53 45 52 56 45 52 5b 46 4f 53  ite:$_SERVER[FOS
0220: 53 49 4c 5f 52 45 50 4f 53 49 54 4f 52 59 5d 22  SIL_REPOSITORY]"
0230: 29 3b 0a 23 24 64 62 2d 3e 73 65 74 41 74 74 72  );.#$db->setAttr
0240: 69 62 75 74 65 28 50 44 4f 3a 3a 41 54 54 52 5f  ibute(PDO::ATTR_
0250: 45 52 52 4d 4f 44 45 2c 20 50 44 4f 3a 3a 45 52  ERRMODE, PDO::ER
0260: 52 4d 4f 44 45 5f 57 41 52 4e 49 4e 47 29 3b 0a  RMODE_WARNING);.
0270: 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 24 70      }.    if ($p
0280: 61 72 61 6d 73 29 20 7b 0a 20 20 20 20 20 20 20  arams) {.       
0290: 20 24 73 74 6d 74 20 3d 20 24 64 62 2d 3e 70 72   $stmt = $db->pr
02a0: 65 70 61 72 65 28 24 73 71 6c 29 3b 0a 20 20 20  epare($sql);.   
02b0: 20 20 20 20 20 24 73 74 6d 74 2d 3e 65 78 65 63       $stmt->exec
02c0: 75 74 65 28 24 70 61 72 61 6d 73 29 3b 0a 20 20  ute($params);.  
02d0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 73 74        return $st
02e0: 6d 74 2d 3e 66 65 74 63 68 41 6c 6c 28 50 44 4f  mt->fetchAll(PDO
02f0: 3a 3a 46 45 54 43 48 5f 41 53 53 4f 43 29 3b 0a  ::FETCH_ASSOC);.
0300: 20 20 20 20 7d 0a 20 20 20 20 65 6c 73 65 20 7b      }.    else {
0310: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
0320: 24 64 62 2d 3e 71 75 65 72 79 28 24 73 71 6c 29  $db->query($sql)
0330: 2d 3e 66 65 74 63 68 41 6c 6c 28 29 3b 0a 20 20  ->fetchAll();.  
0340: 20 20 7d 0a 7d 0a 0a 0a 23 2d 2d 20 69 6e 73 65    }.}...#-- inse
0350: 72 74 0a 66 75 6e 63 74 69 6f 6e 20 73 68 6f 77  rt.function show
0360: 28 24 74 62 6c 29 20 7b 0a 20 20 20 20 24 72 20  ($tbl) {.    $r 
0370: 3d 20 5b 5d 3b 0a 20 20 20 20 66 6f 72 65 61 63  = [];.    foreac
0380: 68 20 28 64 62 28 22 53 45 4c 45 43 54 20 66 69  h (db("SELECT fi
0390: 65 6c 64 73 20 46 52 4f 4d 20 60 73 75 72 76 65  elds FROM `surve
03a0: 79 5f 24 74 62 6c 60 22 29 20 61 73 20 24 6a 29  y_$tbl`") as $j)
03b0: 20 7b 0a 20 20 20 20 20 20 20 20 69 66 20 28 24   {.        if ($
03c0: 6a 20 3d 20 6a 73 6f 6e 5f 64 65 63 6f 64 65 28  j = json_decode(
03d0: 24 6a 5b 22 66 69 65 6c 64 73 22 5d 29 29 20 7b  $j["fields"])) {
03e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72  .            for
03f0: 65 61 63 68 20 28 24 6a 20 61 73 20 24 6b 3d 3e  each ($j as $k=>
0400: 24 76 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20  $v) {.          
0410: 20 20 20 20 20 20 69 66 20 28 69 73 5f 6e 75 6d        if (is_num
0420: 65 72 69 63 28 24 76 29 29 20 7b 0a 20 20 20 20  eric($v)) {.    
0430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0440: 20 40 24 72 5b 24 6b 5d 20 2b 3d 20 24 76 3b 0a   @$r[$k] += $v;.
0450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0460: 7d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a  }.            }.
0470: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a          }.    }.
0480: 69 6e 69 5f 73 65 74 28 22 64 69 73 70 6c 61 79  ini_set("display
0490: 5f 65 72 72 6f 72 73 22 2c 20 31 29 3b 0a 20 20  _errors", 1);.  
04a0: 20 20 69 66 20 28 24 72 29 20 7b 0a 20 20 20 20    if ($r) {.    
04b0: 20 20 20 20 20 70 72 69 6e 74 28 22 7c 20 71 75       print("| qu
04c0: 65 73 74 69 6f 6e 20 7c 20 73 63 6f 72 65 20 7c  estion | score |
04d0: 5c 6e 7c 2d 2d 2d 2d 2d 2d 2d 7c 2d 2d 2d 2d 2d  \n|-------|-----
04e0: 2d 2d 7c 5c 6e 22 29 3b 0a 20 20 20 20 20 20 20  --|\n");.       
04f0: 20 20 24 6d 61 78 20 3d 20 6d 61 78 28 24 72 29    $max = max($r)
0500: 20 2b 20 31 3b 0a 20 20 20 20 20 20 20 20 20 66   + 1;.         f
0510: 6f 72 65 61 63 68 20 28 24 72 20 61 73 20 24 6b  oreach ($r as $k
0520: 3d 3e 24 76 29 20 7b 0a 20 20 20 20 20 20 20 20  =>$v) {.        
0530: 20 20 20 20 20 24 6b 20 3d 20 68 74 6d 6c 73 70       $k = htmlsp
0540: 65 63 69 61 6c 63 68 61 72 73 28 24 6b 2c 20 45  ecialchars($k, E
0550: 4e 54 5f 51 55 4f 54 45 53 29 3b 20 23 20 74 68  NT_QUOTES); # th
0560: 6f 75 67 68 20 61 6c 72 65 61 64 79 20 4d 44 0a  ough already MD.
0570: 20 20 20 20 20 20 20 20 20 20 20 20 20 24 6e 20               $n 
0580: 3d 20 28 24 76 20 2f 20 24 6d 61 78 29 20 2a 20  = ($v / $max) * 
0590: 32 30 2e 31 3b 0a 20 20 20 20 20 20 20 20 20 20  20.1;.          
05a0: 20 20 20 24 6e 20 3d 20 73 74 72 5f 72 65 70 65     $n = str_repe
05b0: 61 74 28 22 f0 9f 9e 93 22 2c 20 28 69 6e 74 29  at("🞓", (int)
05c0: 24 6e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20  $n);.           
05d0: 20 20 70 72 69 6e 74 28 22 7c 20 24 6b 20 7c 20    print("| $k | 
05e0: 24 6e 20 7c 5c 6e 22 29 3b 0a 20 20 20 20 20 20  $n |\n");.      
05f0: 20 20 20 7d 0a 20 20 20 20 7d 0a 7d 0a 0a 23 2d     }.    }.}..#-
0600: 2d 20 72 75 6e 0a 69 66 20 28 24 74 62 6c 20 3d  - run.if ($tbl =
0610: 20 70 72 65 67 5f 72 65 70 6c 61 63 65 28 22 2f   preg_replace("/
0620: 5c 57 2b 2f 22 2c 20 22 22 2c 20 62 61 73 65 6e  \W+/", "", basen
0630: 61 6d 65 28 24 5f 53 45 52 56 45 52 5b 22 50 41  ame($_SERVER["PA
0640: 54 48 5f 49 4e 46 4f 22 5d 29 29 29 20 7b 0a 20  TH_INFO"]))) {. 
0650: 20 20 20 68 65 61 64 65 72 28 22 43 6f 6e 74 65     header("Conte
0660: 6e 74 2d 54 79 70 65 3a 20 74 65 78 74 2f 78 2d  nt-Type: text/x-
0670: 6d 61 72 6b 64 6f 77 6e 22 29 3b 0a 20 20 20 20  markdown");.    
0680: 70 72 69 6e 74 28 22 5c 6e 23 23 23 23 23 20 73  print("\n##### s
0690: 75 72 76 65 79 20 24 74 62 6c 5c 6e 23 23 23 23  urvey $tbl\n####
06a0: 23 20 53 75 72 76 65 79 20 27 2a 24 74 62 6c 2a  # Survey '*$tbl*
06b0: 27 20 28 61 70 70 72 6f 78 2e 20 72 65 73 75 6c  ' (approx. resul
06c0: 74 73 29 5c 6e 5c 6e 22 29 3b 0a 20 20 20 20 73  ts)\n\n");.    s
06d0: 68 6f 77 28 24 74 62 6c 29 3b 0a 7d 0a 65 6c 73  how($tbl);.}.els
06e0: 65 20 7b 0a 20 20 20 20 64 69 65 28 22 4e 6f 20  e {.    die("No 
06f0: 74 61 62 6c 65 20 6e 61 6d 65 20 67 69 76 65 6e  table name given
0700: 20 2f 73 75 72 76 65 79 2f 4e 41 4d 45 22 29 3b   /survey/NAME");
0710: 0a 7d 0a 0a                                      .}..