Fossil Skins Extra: Hex Artifact Content

Artifact b98ebcdd140cd1501f49fd1fc293960e9dd8852c:

Executable file extroot/survey_sum — part of check-in [0e67fdb36b] at 2021-10-20 05:59:00 on branch trunk — support for #access: flag (user: mario size: 1460)
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 20 6e 75 6d 65 72 69 63  collects numeric
00b0: 20 65 6e 74 72 69 65 73 20 66 6f 72 20 61 70 70   entries for app
00c0: 72 6f 78 69 6d 61 74 65 20 73 74 61 74 73 0a 23  roximate stats.#
00d0: 20 76 65 72 73 69 6f 6e 3a 20 30 2e 32 0a 23 20   version: 0.2.# 
00e0: 73 74 61 74 65 3a 20 61 6c 70 68 61 0a 23 20 63  state: alpha.# c
00f0: 6f 6e 66 69 67 3a 20 2d 0a 23 20 61 63 63 65 73  onfig: -.# acces
0100: 73 3a 20 70 75 62 6c 69 63 0a 23 0a 23 20 52 65  s: public.#.# Re
0110: 71 75 69 72 65 73 20 61 20 6c 69 6e 6b 20 6c 69  quires a link li
0120: 6b 65 20 20 22 2f 65 78 74 2f 73 75 72 76 65 79  ke  "/ext/survey
0130: 5f 73 75 6d 2f 53 41 4d 50 4c 45 22 2c 0a 23 20  _sum/SAMPLE",.# 
0140: 61 6e 64 20 63 6f 75 6e 74 73 20 74 68 65 20 6e  and counts the n
0150: 75 6d 65 72 69 63 20 66 69 65 6c 64 73 20 28 63  umeric fields (c
0160: 68 65 63 6b 62 6f 78 65 73 20 79 65 73 2f 6e 6f  heckboxes yes/no
0170: 29 2e 0a 23 20 49 74 27 73 20 6a 75 73 74 20 6d  )..# It's just m
0180: 65 61 6e 74 20 66 6f 72 20 61 20 71 75 69 63 6b  eant for a quick
0190: 20 72 65 73 75 6c 74 20 6c 69 73 74 2c 20 61 6e   result list, an
01a0: 64 0a 23 20 6f 75 74 70 75 74 73 20 61 70 70 72  d.# outputs appr
01b0: 6f 78 69 6d 61 74 65 20 70 6f 69 6e 74 73 20 f0  oximate points �
01c0: 9f 9e 93 0a 0a 0a 69 6e 63 6c 75 64 65 28 22 2e  ���...include(".
01d0: 2f 66 6f 73 73 69 6c 5f 63 6f 6d 6d 6f 6e 2e 70  /fossil_common.p
01e0: 68 70 22 29 3b 0a 0a 0a 23 2d 2d 20 69 6e 73 65  hp");...#-- inse
01f0: 72 74 0a 66 75 6e 63 74 69 6f 6e 20 73 68 6f 77  rt.function show
0200: 28 24 74 62 6c 29 20 7b 0a 20 20 20 20 24 72 20  ($tbl) {.    $r 
0210: 3d 20 5b 5d 3b 0a 20 20 20 20 66 6f 72 65 61 63  = [];.    foreac
0220: 68 20 28 64 62 28 22 53 45 4c 45 43 54 20 66 69  h (db("SELECT fi
0230: 65 6c 64 73 20 46 52 4f 4d 20 60 73 75 72 76 65  elds FROM `surve
0240: 79 5f 24 74 62 6c 60 22 29 20 61 73 20 24 6a 29  y_$tbl`") as $j)
0250: 20 7b 0a 20 20 20 20 20 20 20 20 69 66 20 28 24   {.        if ($
0260: 6a 20 3d 20 6a 73 6f 6e 5f 64 65 63 6f 64 65 28  j = json_decode(
0270: 24 6a 5b 22 66 69 65 6c 64 73 22 5d 29 29 20 7b  $j["fields"])) {
0280: 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72  .            for
0290: 65 61 63 68 20 28 24 6a 20 61 73 20 24 6b 3d 3e  each ($j as $k=>
02a0: 24 76 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20  $v) {.          
02b0: 20 20 20 20 20 20 69 66 20 28 69 73 5f 6e 75 6d        if (is_num
02c0: 65 72 69 63 28 24 76 29 29 20 7b 0a 20 20 20 20  eric($v)) {.    
02d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
02e0: 20 40 24 72 5b 24 6b 5d 20 2b 3d 20 24 76 3b 0a   @$r[$k] += $v;.
02f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0300: 7d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a  }.            }.
0310: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a          }.    }.
0320: 69 6e 69 5f 73 65 74 28 22 64 69 73 70 6c 61 79  ini_set("display
0330: 5f 65 72 72 6f 72 73 22 2c 20 31 29 3b 0a 20 20  _errors", 1);.  
0340: 20 20 69 66 20 28 24 72 29 20 7b 0a 20 20 20 20    if ($r) {.    
0350: 20 20 20 20 20 70 72 69 6e 74 28 22 7c 20 71 75       print("| qu
0360: 65 73 74 69 6f 6e 20 7c 20 73 63 6f 72 65 20 7c  estion | score |
0370: 5c 6e 7c 2d 2d 2d 2d 2d 2d 2d 7c 2d 2d 2d 2d 2d  \n|-------|-----
0380: 2d 2d 7c 5c 6e 22 29 3b 0a 20 20 20 20 20 20 20  --|\n");.       
0390: 20 20 24 6d 61 78 20 3d 20 6d 61 78 28 24 72 29    $max = max($r)
03a0: 20 2b 20 31 3b 0a 20 20 20 20 20 20 20 20 20 66   + 1;.         f
03b0: 6f 72 65 61 63 68 20 28 24 72 20 61 73 20 24 6b  oreach ($r as $k
03c0: 3d 3e 24 76 29 20 7b 0a 20 20 20 20 20 20 20 20  =>$v) {.        
03d0: 20 20 20 20 20 24 6b 20 3d 20 68 74 6d 6c 73 70       $k = htmlsp
03e0: 65 63 69 61 6c 63 68 61 72 73 28 24 6b 2c 20 45  ecialchars($k, E
03f0: 4e 54 5f 51 55 4f 54 45 53 29 3b 20 23 20 74 68  NT_QUOTES); # th
0400: 6f 75 67 68 20 61 6c 72 65 61 64 79 20 4d 44 0a  ough already MD.
0410: 20 20 20 20 20 20 20 20 20 20 20 20 20 24 6e 20               $n 
0420: 3d 20 28 24 76 20 2f 20 24 6d 61 78 29 20 2a 20  = ($v / $max) * 
0430: 32 30 2e 31 3b 0a 20 20 20 20 20 20 20 20 20 20  20.1;.          
0440: 20 20 20 24 6e 20 3d 20 73 74 72 5f 72 65 70 65     $n = str_repe
0450: 61 74 28 22 f0 9f 9e 93 22 2c 20 28 69 6e 74 29  at("🞓", (int)
0460: 24 6e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20  $n);.           
0470: 20 20 70 72 69 6e 74 28 22 7c 20 24 6b 20 7c 20    print("| $k | 
0480: 24 6e 20 7c 5c 6e 22 29 3b 0a 20 20 20 20 20 20  $n |\n");.      
0490: 20 20 20 7d 0a 20 20 20 20 7d 0a 7d 0a 0a 23 2d     }.    }.}..#-
04a0: 2d 20 72 75 6e 0a 69 66 20 28 24 74 62 6c 20 3d  - run.if ($tbl =
04b0: 20 70 72 65 67 5f 72 65 70 6c 61 63 65 28 22 2f   preg_replace("/
04c0: 5c 57 2b 2f 22 2c 20 22 22 2c 20 62 61 73 65 6e  \W+/", "", basen
04d0: 61 6d 65 28 24 5f 53 45 52 56 45 52 5b 22 50 41  ame($_SERVER["PA
04e0: 54 48 5f 49 4e 46 4f 22 5d 29 29 29 20 7b 0a 20  TH_INFO"]))) {. 
04f0: 20 20 20 68 65 61 64 65 72 28 22 43 6f 6e 74 65     header("Conte
0500: 6e 74 2d 54 79 70 65 3a 20 74 65 78 74 2f 78 2d  nt-Type: text/x-
0510: 6d 61 72 6b 64 6f 77 6e 22 29 3b 0a 20 20 20 20  markdown");.    
0520: 70 72 69 6e 74 28 22 5c 6e 23 23 23 23 23 20 73  print("\n##### s
0530: 75 72 76 65 79 20 24 74 62 6c 5c 6e 23 23 23 23  urvey $tbl\n####
0540: 23 20 53 75 72 76 65 79 20 27 2a 24 74 62 6c 2a  # Survey '*$tbl*
0550: 27 20 28 61 70 70 72 6f 78 2e 20 72 65 73 75 6c  ' (approx. resul
0560: 74 73 29 5c 6e 5c 6e 22 29 3b 0a 20 20 20 20 73  ts)\n\n");.    s
0570: 68 6f 77 28 24 74 62 6c 29 3b 0a 7d 0a 65 6c 73  how($tbl);.}.els
0580: 65 20 7b 0a 20 20 20 20 64 69 65 28 22 4e 6f 20  e {.    die("No 
0590: 74 61 62 6c 65 20 6e 61 6d 65 20 67 69 76 65 6e  table name given
05a0: 20 2f 73 75 72 76 65 79 2f 4e 41 4d 45 22 29 3b   /survey/NAME");
05b0: 0a 7d 0a 0a                                      .}..