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 66 6f 72 6d 0a 23 20 63 61 74 65 ype: form.# cate
0060: 67 6f 72 79 3a 20 61 75 74 68 0a 23 20 74 69 74 gory: auth.# tit
0070: 6c 65 3a 20 49 6e 64 69 65 41 75 74 68 20 61 75 le: IndieAuth au
0080: 74 68 6f 72 69 7a 61 74 69 6f 6e 5f 65 6e 64 70 thorization_endp
0090: 6f 69 6e 74 0a 23 20 64 65 73 63 72 69 70 74 69 oint.# descripti
00a0: 6f 6e 3a 20 56 65 72 69 66 69 65 73 20 61 20 72 on: Verifies a r
00b0: 65 6d 6f 74 65 20 75 73 65 72 20 69 64 20 28 55 emote user id (U
00c0: 52 4c 29 20 61 67 61 69 6e 73 74 20 61 63 74 69 RL) against acti
00d0: 76 65 20 66 6f 73 73 69 6c 20 6c 6f 67 69 6e 0a ve fossil login.
00e0: 23 20 76 65 72 73 69 6f 6e 3a 20 30 2e 36 0a 23 # version: 0.6.#
00f0: 20 73 74 61 74 65 3a 20 62 65 74 61 0a 23 20 64 state: beta.# d
0100: 65 70 65 6e 64 73 3a 20 70 68 70 3a 63 75 72 6c epends: php:curl
0110: 2c 20 70 68 70 3a 73 71 6c 69 74 65 0a 23 20 64 , php:sqlite.# d
0120: 6f 63 3a 20 68 74 74 70 73 3a 2f 2f 77 77 77 2e oc: https://www.
0130: 77 33 2e 6f 72 67 2f 54 52 2f 69 6e 64 69 65 61 w3.org/TR/indiea
0140: 75 74 68 2f 23 61 75 74 68 65 6e 74 69 63 61 74 uth/#authenticat
0150: 69 6f 6e 2c 0a 23 20 20 20 20 20 68 74 74 70 73 ion,.# https
0160: 3a 2f 2f 69 6e 64 69 65 77 65 62 2e 6f 72 67 2f ://indieweb.org/
0170: 61 75 74 68 6f 72 69 7a 61 74 69 6f 6e 2d 65 6e authorization-en
0180: 64 70 6f 69 6e 74 0a 23 20 63 6f 6e 66 69 67 3a dpoint.# config:
0190: 20 2d 0a 23 20 61 63 63 65 73 73 3a 20 61 75 74 -.# access: aut
01a0: 68 0a 23 0a 23 20 4d 69 6e 69 6d 61 6c 20 69 6d h.#.# Minimal im
01b0: 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 plementation of
01c0: 49 6e 64 69 65 41 75 74 68 20 6c 6f 67 69 6e 20 IndieAuth login
01d0: 65 6e 64 70 6f 69 6e 74 2e 20 52 75 6e 73 20 61 endpoint. Runs a
01e0: 73 20 66 6f 73 73 69 6c 20 63 67 69 0a 23 20 65 s fossil cgi.# e
01f0: 78 74 65 6e 73 69 6f 6e 20 74 6f 20 76 65 72 69 xtension to veri
0200: 66 79 20 63 75 72 72 65 6e 74 6c 79 20 6c 6f 67 fy currently log
0210: 67 65 64 20 69 6e 20 75 73 65 72 2e 20 43 6f 6e ged in user. Con
0220: 66 69 72 6d 73 20 49 6e 64 69 65 41 75 74 68 2f firms IndieAuth/
0230: 4f 41 75 74 68 0a 23 20 72 65 71 75 65 73 74 2c OAuth.# request,
0240: 20 61 6e 64 20 6b 65 65 70 73 20 6c 6f 67 69 6e and keeps login
0250: 20 74 6f 6b 65 6e 73 20 69 6e 20 60 66 78 5f 61 tokens in `fx_a
0260: 75 74 68 60 20 74 61 62 6c 65 2e 0a 23 0a 23 20 uth` table..#.#
0270: 54 68 69 73 20 6d 69 67 68 74 20 70 72 6f 67 72 This might progr
0280: 65 73 73 20 69 6e 74 6f 20 61 20 2f 74 6f 6b 65 ess into a /toke
0290: 6e 20 65 6e 64 70 6f 69 6e 74 2c 20 69 64 65 61 n endpoint, idea
02a0: 6c 6c 79 20 65 6e 61 62 6c 69 6e 67 20 2f 6d 69 lly enabling /mi
02b0: 63 72 6f 70 75 62 0a 23 20 66 6f 72 20 74 68 65 cropub.# for the
02c0: 20 74 69 63 6b 65 74 20 73 79 73 74 65 6d 20 6c ticket system l
02d0: 61 74 65 72 20 6f 6e 2e 20 57 68 69 63 68 20 69 ater on. Which i
02e0: 73 20 77 68 79 20 74 68 65 20 66 78 5f 61 75 74 s why the fx_aut
02f0: 68 2f 74 6f 6b 65 6e 20 74 61 62 6c 65 0a 23 20 h/token table.#
0300: 69 73 20 73 6f 6d 65 77 68 61 74 20 6f 66 20 61 is somewhat of a
0310: 20 62 6c 6f 62 20 63 6f 6c 6c 65 63 74 69 6f 6e blob collection
0320: 20 69 6e 20 69 74 73 65 6c 66 2e 0a 23 0a 23 0a in itself..#.#.
0330: 23 20 23 23 20 53 45 54 55 50 0a 23 0a 23 20 53 # ## SETUP.#.# S
0340: 6f 20 74 68 69 73 20 72 65 71 75 69 72 65 73 20 o this requires
0350: 69 6e 73 74 61 6c 6c 61 74 69 6f 6e 20 69 6e 20 installation in
0360: 66 6f 73 73 69 6c 73 20 65 78 74 72 6f 6f 74 3a fossils extroot:
0370: 20 28 69 6e 74 65 72 6e 61 6c 20 63 67 69 20 73 (internal cgi s
0380: 63 72 69 70 74 73 29 2c 0a 23 20 61 6e 64 20 6d cripts),.# and m
0390: 69 67 68 74 20 6e 6f 74 20 77 6f 72 6b 20 69 6e ight not work in
03a0: 20 63 68 72 6f 6f 74 20 6a 61 69 6c 73 20 28 64 chroot jails (d
03b0: 75 65 20 74 6f 20 70 68 70 2d 63 67 69 20 73 68 ue to php-cgi sh
03c0: 65 62 61 6e 67 29 2e 20 43 6f 70 79 20 74 68 65 ebang). Copy the
03d0: 20 73 63 72 69 70 74 0a 23 20 69 6e 74 6f 20 65 script.# into e
03e0: 78 74 2f 2c 20 70 72 65 66 65 72 72 61 62 6c 79 xt/, preferrably
03f0: 20 77 69 74 68 6f 75 74 20 2e 70 68 70 20 6f 72 without .php or
0400: 20 2e 63 67 69 20 65 78 74 65 6e 73 69 6f 6e 2c .cgi extension,
0410: 20 61 6e 64 20 63 68 6d 6f 64 20 2b 78 20 69 74 and chmod +x it
0420: 2e 0a 23 0a 23 20 55 73 65 72 20 61 63 63 6f 75 ..#.# User accou
0430: 6e 74 73 20 61 72 65 20 72 65 71 75 69 72 65 64 nts are required
0440: 20 74 6f 20 6c 69 73 74 20 61 6e 20 75 72 6c 20 to list an url
0450: 69 6e 20 60 68 6f 6d 65 70 61 67 65 73 60 20 6f in `homepages` o
0460: 72 20 60 69 6e 66 6f 60 20 63 6f 6c 75 6d 6e 2e r `info` column.
0470: 0a 23 20 45 61 63 68 20 6e 65 65 64 73 20 61 74 .# Each needs at
0480: 20 6c 65 61 73 74 20 6f 6e 65 2c 20 73 6f 20 72 least one, so r
0490: 65 71 75 65 73 74 73 20 63 61 6e 27 74 20 62 65 equests can't be
04a0: 20 75 73 65 64 20 74 6f 20 69 6d 70 65 72 73 6f used to imperso
04b0: 6e 61 74 65 2e 0a 23 0a 23 20 41 66 74 65 72 77 nate..#.# Afterw
04c0: 61 72 64 73 20 63 6f 6e 66 69 67 75 72 65 20 79 ards configure y
04d0: 6f 75 72 20 68 6f 6d 65 70 61 67 65 20 74 6f 20 our homepage to
04e0: 61 6c 6c 6f 77 20 69 74 73 20 75 73 65 20 61 73 allow its use as
04f0: 20 49 6e 64 69 65 41 75 74 68 20 69 64 3a 0a 23 IndieAuth id:.#
0500: 20 3c 6c 69 6e 6b 20 72 65 6c 3d 61 75 74 68 6f <link rel=autho
0510: 72 69 7a 61 74 69 6f 6e 5f 65 6e 64 70 6f 69 6e rization_endpoin
0520: 74 20 68 72 65 66 3d 22 68 74 74 70 3a 2f 2f 66 t href="http://f
0530: 6f 73 73 69 6c 2e 64 6f 6d 61 69 6e 2f 65 78 74 ossil.domain/ext
0540: 2f 61 75 74 68 22 3e 0a 23 0a 23 0a 23 20 23 23 /auth">.#.#.# ##
0550: 20 54 4f 4b 45 4e 0a 23 0a 23 20 54 68 65 20 66 TOKEN.#.# The f
0560: 78 5f 61 75 74 68 20 74 61 62 6c 65 20 63 6f 6e x_auth table con
0570: 74 61 69 6e 73 20 69 6e 64 69 76 69 64 75 61 6c tains individual
0580: 20 63 6f 6c 75 6d 6e 73 20 6e 6f 77 20 74 6f 20 columns now to
0590: 72 65 63 6f 72 64 20 70 72 65 76 69 6f 75 73 0a record previous.
05a0: 23 20 61 75 74 68 6f 72 69 7a 61 74 69 6f 6e 20 # authorization
05b0: 72 65 71 75 65 73 74 73 2e 20 4d 6f 73 74 20 6f requests. Most o
05c0: 66 20 77 68 69 63 68 20 69 73 20 75 6e 6e 65 63 f which is unnec
05d0: 65 73 73 61 72 79 20 74 6f 20 6b 65 65 70 20 61 essary to keep a
05e0: 66 74 65 72 20 74 68 65 0a 23 20 69 6e 69 74 69 fter the.# initi
05f0: 61 6c 20 72 65 71 75 65 73 74 2e 20 54 68 69 73 al request. This
0600: 20 69 73 20 6c 61 72 67 65 6c 79 20 66 6f 72 20 is largely for
0610: 64 65 62 75 67 67 69 6e 67 2e 0a 23 0a 23 20 54 debugging..#.# T
0620: 68 65 20 2f 74 6f 6b 65 6e 20 65 6e 64 70 6f 69 he /token endpoi
0630: 6e 74 20 77 69 6c 6c 20 75 73 65 20 74 68 65 20 nt will use the
0640: 73 61 6d 65 20 65 6e 74 72 69 65 73 20 68 6f 77 same entries how
0650: 65 76 65 72 2c 20 61 6e 64 20 75 70 67 72 61 64 ever, and upgrad
0660: 65 20 66 72 6f 6d 0a 23 20 60 63 6f 64 65 60 20 e from.# `code`
0670: 74 6f 20 60 74 6f 6b 65 6e 60 20 6f 6e 20 72 65 to `token` on re
0680: 71 75 65 73 74 2e 20 20 57 68 69 63 68 20 74 68 quest. Which th
0690: 65 20 2f 6d 69 63 72 6f 70 75 62 20 68 61 6e 64 e /micropub hand
06a0: 6c 65 72 20 74 68 65 6e 20 76 65 72 69 66 69 65 ler then verifie
06b0: 73 2e 0a 23 0a 23 0a 23 20 23 23 20 50 52 4f 54 s..#.#.# ## PROT
06c0: 4f 43 4f 4c 0a 23 0a 23 20 41 75 74 68 6f 72 69 OCOL.#.# Authori
06d0: 7a 61 74 69 6f 6e 20 72 65 71 75 65 73 74 3a 0a zation request:.
06e0: 23 20 20 20 20 3f 6d 65 3d 68 74 74 70 73 3a 2f # ?me=https:/
06f0: 2f 75 73 65 72 2e 65 78 61 6d 70 6c 65 2e 6f 72 /user.example.or
0700: 67 2f 0a 23 20 20 20 20 26 63 6c 69 65 6e 74 5f g/.# &client_
0710: 69 64 3d 68 74 74 70 3a 2f 2f 61 70 70 2e 65 78 id=http://app.ex
0720: 61 6d 70 6c 65 2e 63 6f 6d 2f 0a 23 20 20 20 20 ample.com/.#
0730: 26 72 65 64 69 72 65 63 74 5f 75 72 69 3d 68 74 &redirect_uri=ht
0740: 74 70 3a 2f 2f 61 70 70 2e 65 78 61 6d 70 6c 65 tp://app.example
0750: 2e 63 6f 6d 2f 6c 6f 67 69 6e 2f 63 61 6c 6c 62 .com/login/callb
0760: 61 63 6b 0a 23 20 20 20 20 26 73 74 61 74 65 3d ack.# &state=
0770: 31 32 33 34 35 36 37 38 39 30 0a 23 20 20 20 20 1234567890.#
0780: 26 72 65 73 70 6f 6e 73 65 5f 74 79 70 65 3d 63 &response_type=c
0790: 6f 64 65 0a 23 20 20 20 20 26 73 63 6f 70 65 3d ode.# &scope=
07a0: 70 72 6f 66 69 6c 65 2b 63 72 65 61 74 65 2b 75 profile+create+u
07b0: 70 64 61 74 65 2b 64 65 6c 65 74 65 0a 23 20 20 pdate+delete.#
07c0: 20 20 26 63 6f 64 65 5f 63 68 61 6c 6c 65 6e 67 &code_challeng
07d0: 65 3d 42 73 65 36 34 78 31 32 33 2e 2e 0a 23 20 e=Bse64x123...#
07e0: 20 20 20 26 63 6f 64 65 5f 63 68 61 6c 6c 65 6e &code_challen
07f0: 67 65 5f 6d 65 74 68 6f 64 3d 53 32 35 36 0a 23 ge_method=S256.#
0800: 20 41 63 74 69 6f 6e 3a 0a 23 20 20 20 20 c2 b7 Action:.# ·
0810: 20 76 65 72 69 66 79 20 75 73 65 72 20 65 78 69 verify user exi
0820: 73 74 73 2c 20 69 73 20 6c 6f 67 67 65 64 20 69 sts, is logged i
0830: 6e 2c 20 61 6e 64 20 6d 65 3d 20 70 61 72 61 6d n, and me= param
0840: 65 74 65 72 20 69 73 20 77 68 69 74 65 6c 69 73 eter is whitelis
0850: 74 65 64 0a 23 20 20 20 20 c2 b7 20 63 6f 6e 66 ted.# · conf
0860: 69 72 6d 20 70 65 72 20 62 75 74 74 6f 6e 20 70 irm per button p
0870: 72 65 73 73 2c 20 6f 72 20 64 69 72 65 63 74 20 ress, or direct
0880: 75 6e 61 75 74 68 65 6e 74 69 63 61 74 65 64 20 unauthenticated
0890: 75 73 65 72 20 74 6f 20 2f 6c 6f 67 69 6e 20 70 user to /login p
08a0: 61 67 65 0a 23 20 20 20 20 c2 b7 20 67 65 6e 65 age.# · gene
08b0: 72 61 74 65 20 61 6e 20 61 72 62 69 74 72 61 72 rate an arbitrar
08c0: 79 20 63 6f 64 65 2c 20 72 65 63 6f 72 64 20 69 y code, record i
08d0: 6e 20 66 78 5f 61 75 74 68 20 74 61 62 6c 65 2f n fx_auth table/
08e0: 6a 73 6f 6e 20 62 6c 6f 62 0a 23 20 52 65 73 70 json blob.# Resp
08f0: 6f 6e 73 65 3a 0a 23 20 20 20 20 4c 6f 63 61 74 onse:.# Locat
0900: 69 6f 6e 3a 20 68 74 74 70 73 3a 2f 2f 61 70 70 ion: https://app
0910: 2e 65 78 61 6d 70 6c 65 2e 63 6f 6d 2f 6c 6f 67 .example.com/log
0920: 69 6e 2f 63 61 6c 6c 62 61 63 6b 3f 63 6f 64 65 in/callback?code
0930: 3d 2e 2e 2e 26 73 74 61 74 65 3d 31 32 33 34 35 =...&state=12345
0940: 36 37 38 39 30 0a 23 0a 23 20 56 65 72 69 66 69 67890.#.# Verifi
0950: 63 61 74 69 6f 6e 20 72 65 71 75 65 73 74 3a 0a cation request:.
0960: 23 20 20 20 20 3f 63 6f 64 65 3d 24 31 79 24 2e # ?code=$1y$.
0970: 2e 2e 2e 2e 0a 23 20 20 20 20 26 63 6c 69 65 6e .....# &clien
0980: 74 5f 69 64 3d 68 74 74 70 3a 2f 2f 61 70 70 2e t_id=http://app.
0990: 65 78 61 6d 70 6c 65 2e 63 6f 6d 2f 0a 23 20 20 example.com/.#
09a0: 20 20 26 72 65 64 69 72 65 63 74 5f 75 72 69 3d &redirect_uri=
09b0: 68 74 74 70 3a 2f 2f 61 70 70 2e 65 78 61 6d 70 http://app.examp
09c0: 6c 65 2e 63 6f 6d 2f 6c 6f 67 69 6e 2f 63 61 6c le.com/login/cal
09d0: 6c 62 61 63 6b 0a 23 20 20 20 20 26 63 6f 64 65 lback.# &code
09e0: 5f 76 65 72 69 66 69 65 72 3d 72 61 77 2d 70 72 _verifier=raw-pr
09f0: 65 2d 73 68 61 32 35 36 2d 63 6e 74 0a 23 20 52 e-sha256-cnt.# R
0a00: 65 73 70 6f 6e 73 65 3a 0a 23 20 20 20 20 7b 20 esponse:.# {
0a10: 22 6d 65 22 3a 20 22 68 74 74 70 73 3a 2f 2f 75 "me": "https://u
0a20: 73 65 72 2e 65 78 61 6d 70 6c 65 2e 6f 72 67 2f ser.example.org/
0a30: 22 2c 20 22 73 63 6f 70 65 22 3a 20 22 2e 2e 2e ", "scope": "...
0a40: 22 2c 20 22 61 63 63 65 73 73 5f 74 6f 6b 65 6e ", "access_token
0a50: 22 3a 20 22 2e 2e 2e 22 20 7d 0a 23 0a 23 0a 0a ": "..." }.#.#..
0a60: 69 66 20 28 24 5f 52 45 51 55 45 53 54 5b 22 64 if ($_REQUEST["d
0a70: 62 67 22 5d 29 20 7b 0a 20 20 20 20 65 72 72 6f bg"]) {. erro
0a80: 72 5f 72 65 70 6f 72 74 69 6e 67 28 45 5f 41 4c r_reporting(E_AL
0a90: 4c 29 3b 20 69 6e 69 5f 73 65 74 28 22 64 69 73 L); ini_set("dis
0aa0: 70 6c 61 79 5f 65 72 72 6f 72 73 22 2c 20 31 29 play_errors", 1)
0ab0: 3b 0a 7d 0a 0a 23 2d 2d 20 64 61 74 61 62 61 73 ;.}..#-- databas
0ac0: 65 20 28 3d 3d 20 66 6f 73 73 69 6c 20 72 65 70 e (== fossil rep
0ad0: 6f 29 0a 66 75 6e 63 74 69 6f 6e 20 64 62 28 24 o).function db($
0ae0: 73 71 6c 3d 22 22 2c 20 24 70 61 72 61 6d 73 3d sql="", $params=
0af0: 5b 5d 29 20 7b 0a 20 20 20 20 73 74 61 74 69 63 []) {. static
0b00: 20 24 64 62 3b 0a 20 20 20 20 69 66 20 28 65 6d $db;. if (em
0b10: 70 74 79 28 24 64 62 29 29 20 7b 0a 20 20 20 20 pty($db)) {.
0b20: 20 20 20 20 24 64 62 20 3d 20 6e 65 77 20 50 44 $db = new PD
0b30: 4f 28 22 73 71 6c 69 74 65 3a 24 5f 53 45 52 56 O("sqlite:$_SERV
0b40: 45 52 5b 46 4f 53 53 49 4c 5f 52 45 50 4f 53 49 ER[FOSSIL_REPOSI
0b50: 54 4f 52 59 5d 22 29 3b 0a 20 20 20 20 20 20 20 TORY]");.
0b60: 20 23 24 64 62 2d 3e 73 65 74 41 74 74 72 69 62 #$db->setAttrib
0b70: 75 74 65 28 50 44 4f 3a 3a 41 54 54 52 5f 45 52 ute(PDO::ATTR_ER
0b80: 52 4d 4f 44 45 2c 20 50 44 4f 3a 3a 45 52 52 4d RMODE, PDO::ERRM
0b90: 4f 44 45 5f 57 41 52 4e 49 4e 47 29 3b 0a 20 20 ODE_WARNING);.
0ba0: 20 20 20 20 20 20 63 72 65 61 74 65 5f 74 61 62 create_tab
0bb0: 6c 65 28 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 le();. }.
0bc0: 69 66 20 28 24 70 61 72 61 6d 73 29 20 7b 0a 20 if ($params) {.
0bd0: 20 20 20 20 20 20 20 24 73 74 6d 74 20 3d 20 24 $stmt = $
0be0: 64 62 2d 3e 70 72 65 70 61 72 65 28 24 73 71 6c db->prepare($sql
0bf0: 29 3b 0a 20 20 20 20 20 20 20 20 24 73 74 6d 74 );. $stmt
0c00: 2d 3e 65 78 65 63 75 74 65 28 24 70 61 72 61 6d ->execute($param
0c10: 73 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75 s);. retu
0c20: 72 6e 20 24 73 74 6d 74 2d 3e 66 65 74 63 68 41 rn $stmt->fetchA
0c30: 6c 6c 28 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 ll();. }.
0c40: 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 20 72 else {. r
0c50: 65 74 75 72 6e 20 24 64 62 2d 3e 71 75 65 72 79 eturn $db->query
0c60: 28 24 73 71 6c 29 3b 0a 20 20 20 20 7d 0a 7d 0a ($sql);. }.}.
0c70: 66 75 6e 63 74 69 6f 6e 20 63 72 65 61 74 65 5f function create_
0c80: 74 61 62 6c 65 28 29 20 7b 0a 20 20 20 20 64 62 table() {. db
0c90: 28 22 43 52 45 41 54 45 20 54 41 42 4c 45 20 49 ("CREATE TABLE I
0ca0: 46 20 4e 4f 54 20 45 58 49 53 54 53 20 60 66 78 F NOT EXISTS `fx
0cb0: 5f 61 75 74 68 60 20 28 20 20 2d 2d 20 49 6e 64 _auth` ( -- Ind
0cc0: 69 65 41 75 74 68 20 74 6f 6b 65 6e 20 74 61 62 ieAuth token tab
0cd0: 6c 65 0a 20 20 20 20 20 20 20 20 60 63 6f 64 65 le. `code
0ce0: 60 20 54 45 58 54 2c 20 20 20 20 20 20 20 20 20 ` TEXT,
0cf0: 20 20 20 2d 2d 20 4f 41 75 74 68 20 61 75 74 68 -- OAuth auth
0d00: 6f 72 69 7a 61 74 69 6f 6e 20 63 6f 64 65 0a 20 orization code.
0d10: 20 20 20 20 20 20 20 60 74 79 70 65 60 20 54 45 `type` TE
0d20: 58 54 2c 20 20 20 20 20 20 20 20 20 20 20 20 2d XT, -
0d30: 2d 20 6f 6e 65 20 6f 66 20 69 64 2c 63 6f 64 65 - one of id,code
0d40: 2c 74 6f 6b 65 6e 2c 72 65 76 6f 6b 65 64 0a 20 ,token,revoked.
0d50: 20 20 20 20 20 20 20 60 73 63 6f 70 65 60 20 54 `scope` T
0d60: 45 58 54 2c 20 20 20 20 20 20 20 20 20 20 20 2d EXT, -
0d70: 2d 20 72 65 71 75 65 73 74 65 64 20 70 65 72 6d - requested perm
0d80: 69 73 73 69 6f 6e 73 20 28 63 72 65 61 74 65 2c issions (create,
0d90: 75 70 64 61 74 65 2c 64 65 6c 65 74 65 29 0a 20 update,delete).
0da0: 20 20 20 20 20 20 20 60 63 61 70 73 60 20 54 45 `caps` TE
0db0: 58 54 2c 20 20 20 20 20 20 20 20 20 20 20 20 2d XT, -
0dc0: 2d 20 66 6f 73 73 69 6c 20 70 65 72 6d 69 73 73 - fossil permiss
0dd0: 69 6f 6e 73 20 28 61 73 6b 6d 6e 77 33 43 29 0a ions (askmnw3C).
0de0: 20 20 20 20 20 20 20 20 60 6c 6f 67 69 6e 60 20 `login`
0df0: 54 45 58 54 2c 20 20 20 20 20 20 20 20 20 20 20 TEXT,
0e00: 2d 2d 20 66 6f 73 73 69 6c 20 75 73 65 72 20 61 -- fossil user a
0e10: 63 63 6f 75 6e 74 0a 20 20 20 20 20 20 20 20 60 ccount. `
0e20: 6d 65 60 20 54 45 58 54 2c 20 20 20 20 20 20 20 me` TEXT,
0e30: 20 20 20 20 20 20 20 2d 2d 20 68 74 74 70 73 3a -- https:
0e40: 2f 2f 75 73 65 72 77 65 62 69 64 2e 65 78 61 6d //userwebid.exam
0e50: 70 6c 65 2e 6f 72 67 2f 0a 20 20 20 20 20 20 20 ple.org/.
0e60: 20 60 63 6c 69 65 6e 74 5f 69 64 60 20 54 45 58 `client_id` TEX
0e70: 54 2c 20 20 20 20 20 20 20 2d 2d 20 68 74 74 70 T, -- http
0e80: 73 3a 2f 2f 72 65 6d 6f 74 65 61 70 70 2e 65 78 s://remoteapp.ex
0e90: 61 6d 70 6c 65 2e 63 6f 6d 2f 0a 20 20 20 20 20 ample.com/.
0ea0: 20 20 20 60 72 65 64 69 72 65 63 74 5f 75 72 69 `redirect_uri
0eb0: 60 20 54 45 58 54 2c 20 20 20 20 2d 2d 20 68 74 ` TEXT, -- ht
0ec0: 74 70 73 3a 2f 2f 61 70 70 2f 6c 6f 67 69 6e 2f tps://app/login/
0ed0: 63 61 6c 6c 62 61 63 6b 0a 20 20 20 20 20 20 20 callback.
0ee0: 20 60 73 74 61 74 65 60 20 54 45 58 54 2c 20 20 `state` TEXT,
0ef0: 20 20 20 20 20 20 20 20 20 2d 2d 20 72 65 6d 6f -- remo
0f00: 74 65 20 73 65 73 73 69 6f 6e 20 69 64 20 28 31 te session id (1
0f10: 32 33 34 35 2e 2e 29 0a 20 20 20 20 20 20 20 20 2345..).
0f20: 60 63 6f 64 65 5f 63 68 61 6c 6c 65 6e 67 65 60 `code_challenge`
0f30: 20 54 45 58 54 2c 20 20 2d 2d 20 70 72 65 2d 68 TEXT, -- pre-h
0f40: 61 73 68 65 64 20 73 65 63 72 65 74 20 66 6f 72 ashed secret for
0f50: 20 6c 61 74 65 72 20 74 6f 6b 65 6e 20 72 65 71 later token req
0f60: 0a 20 20 20 20 20 20 20 20 60 63 6f 64 65 5f 63 . `code_c
0f70: 68 61 6c 6c 65 6e 67 65 5f 6d 60 20 54 45 58 54 hallenge_m` TEXT
0f80: 2c 2d 2d 20 68 61 73 68 20 6d 65 74 68 6f 64 20 ,-- hash method
0f90: 66 6f 72 20 73 65 63 72 65 74 0a 20 20 20 20 20 for secret.
0fa0: 20 20 20 60 6d 74 69 6d 65 60 20 49 4e 54 2c 20 `mtime` INT,
0fb0: 20 20 20 20 20 20 20 20 20 20 20 2d 2d 20 74 6f -- to
0fc0: 6b 65 6e 20 65 6e 74 72 79 20 6c 61 73 74 20 6d ken entry last m
0fd0: 6f 64 69 66 69 65 64 0a 20 20 20 20 20 20 20 20 odified.
0fe0: 60 65 78 70 69 72 65 73 60 20 49 4e 54 20 20 20 `expires` INT
0ff0: 20 20 20 20 20 20 20 20 2d 2d 20 63 6f 64 65 20 -- code
1000: 76 61 6c 69 64 20 75 6e 74 69 6c 20 74 69 6d 65 valid until time
1010: 73 74 61 6d 70 0a 20 20 20 20 29 22 29 3b 0a 7d stamp. )");.}
1020: 0a 0a 23 2d 2d 20 66 6f 73 73 69 6c 20 48 54 4d ..#-- fossil HTM
1030: 4c 20 6f 75 74 70 75 74 0a 66 75 6e 63 74 69 6f L output.functio
1040: 6e 20 70 61 67 65 5f 68 74 6d 6c 28 24 68 74 6d n page_html($htm
1050: 6c 29 20 7b 0a 20 20 20 20 68 65 61 64 65 72 28 l) {. header(
1060: 22 43 6f 6e 74 65 6e 74 2d 54 79 70 65 3a 20 74 "Content-Type: t
1070: 65 78 74 2f 68 74 6d 6c 3b 20 63 68 61 72 73 65 ext/html; charse
1080: 74 3d 75 74 66 2d 38 22 29 3b 0a 20 20 20 20 24 t=utf-8");. $
1090: 73 76 67 20 3d 20 3c 3c 3c 53 56 47 0a 3c 73 76 svg = <<<SVG.<sv
10a0: 67 20 73 74 79 6c 65 3d 27 66 6c 6f 61 74 3a 6c g style='float:l
10b0: 65 66 74 3b 20 6d 61 72 67 69 6e 2d 72 69 67 68 eft; margin-righ
10c0: 74 3a 20 33 30 70 74 3b 27 20 77 69 64 74 68 3d t: 30pt;' width=
10d0: 22 32 38 30 22 20 68 65 69 67 68 74 3d 22 32 36 "280" height="26
10e0: 38 22 20 76 65 72 73 69 6f 6e 3d 22 31 2e 31 22 8" version="1.1"
10f0: 20 76 69 65 77 42 6f 78 3d 22 30 20 30 20 35 36 viewBox="0 0 56
1100: 2e 30 34 38 20 35 33 2e 37 37 39 22 20 78 6d 6c .048 53.779" xml
1110: 6e 73 3d 22 68 74 74 70 3a 2f 2f 77 77 77 2e 77 ns="http://www.w
1120: 33 2e 6f 72 67 2f 32 30 30 30 2f 73 76 67 22 20 3.org/2000/svg"
1130: 78 6d 6c 6e 73 3a 78 6c 69 6e 6b 3d 22 68 74 74 xmlns:xlink="htt
1140: 70 3a 2f 2f 77 77 77 2e 77 33 2e 6f 72 67 2f 31 p://www.w3.org/1
1150: 39 39 39 2f 78 6c 69 6e 6b 22 3e 0a 20 3c 64 65 999/xlink">. <de
1160: 66 73 3e 0a 20 20 3c 6c 69 6e 65 61 72 47 72 61 fs>. <linearGra
1170: 64 69 65 6e 74 20 69 64 3d 22 6c 69 6e 65 61 72 dient id="linear
1180: 47 72 61 64 69 65 6e 74 32 30 36 36 22 20 78 31 Gradient2066" x1
1190: 3d 22 36 33 2e 34 30 39 22 20 78 32 3d 22 33 36 ="63.409" x2="36
11a0: 2e 30 38 35 22 20 79 31 3d 22 31 30 39 2e 31 36 .085" y1="109.16
11b0: 22 20 79 32 3d 22 38 32 2e 32 39 35 22 20 67 72 " y2="82.295" gr
11c0: 61 64 69 65 6e 74 54 72 61 6e 73 66 6f 72 6d 3d adientTransform=
11d0: 22 6d 61 74 72 69 78 28 33 2e 37 37 39 35 20 30 "matrix(3.7795 0
11e0: 20 30 20 33 2e 37 37 39 35 20 2d 35 37 2e 33 38 0 3.7795 -57.38
11f0: 35 20 2d 32 37 34 2e 30 36 29 22 20 67 72 61 64 5 -274.06)" grad
1200: 69 65 6e 74 55 6e 69 74 73 3d 22 75 73 65 72 53 ientUnits="userS
1210: 70 61 63 65 4f 6e 55 73 65 22 3e 0a 20 20 20 3c paceOnUse">. <
1220: 73 74 6f 70 20 73 74 6f 70 2d 63 6f 6c 6f 72 3d stop stop-color=
1230: 22 23 37 61 62 61 30 66 22 20 6f 66 66 73 65 74 "#7aba0f" offset
1240: 3d 22 30 22 2f 3e 0a 20 20 20 3c 73 74 6f 70 20 ="0"/>. <stop
1250: 73 74 6f 70 2d 63 6f 6c 6f 72 3d 22 23 62 66 65 stop-color="#bfe
1260: 34 37 66 22 20 6f 66 66 73 65 74 3d 22 31 22 2f 47f" offset="1"/
1270: 3e 0a 20 20 3c 2f 6c 69 6e 65 61 72 47 72 61 64 >. </linearGrad
1280: 69 65 6e 74 3e 0a 20 20 3c 6c 69 6e 65 61 72 47 ient>. <linearG
1290: 72 61 64 69 65 6e 74 20 69 64 3d 22 6c 69 6e 65 radient id="line
12a0: 61 72 47 72 61 64 69 65 6e 74 31 31 38 35 22 20 arGradient1185"
12b0: 78 31 3d 22 35 32 2e 36 31 33 22 20 78 32 3d 22 x1="52.613" x2="
12c0: 34 37 2e 32 31 31 22 20 79 31 3d 22 38 34 2e 30 47.211" y1="84.0
12d0: 39 35 22 20 79 32 3d 22 39 33 2e 35 38 33 22 20 95" y2="93.583"
12e0: 67 72 61 64 69 65 6e 74 55 6e 69 74 73 3d 22 75 gradientUnits="u
12f0: 73 65 72 53 70 61 63 65 4f 6e 55 73 65 22 3e 0a serSpaceOnUse">.
1300: 20 20 20 3c 73 74 6f 70 20 73 74 6f 70 2d 63 6f <stop stop-co
1310: 6c 6f 72 3d 22 23 66 66 66 22 20 73 74 6f 70 2d lor="#fff" stop-
1320: 6f 70 61 63 69 74 79 3d 22 2e 39 22 20 6f 66 66 opacity=".9" off
1330: 73 65 74 3d 22 30 22 2f 3e 0a 20 20 20 3c 73 74 set="0"/>. <st
1340: 6f 70 20 73 74 6f 70 2d 63 6f 6c 6f 72 3d 22 23 op stop-color="#
1350: 66 39 66 61 66 39 22 20 73 74 6f 70 2d 6f 70 61 f9faf9" stop-opa
1360: 63 69 74 79 3d 22 2e 35 22 20 6f 66 66 73 65 74 city=".5" offset
1370: 3d 22 31 22 2f 3e 0a 20 20 3c 2f 6c 69 6e 65 61 ="1"/>. </linea
1380: 72 47 72 61 64 69 65 6e 74 3e 0a 20 20 3c 66 69 rGradient>. <fi
1390: 6c 74 65 72 20 69 64 3d 22 66 69 6c 74 65 72 31 lter id="filter1
13a0: 32 37 35 22 20 78 3d 22 2d 2e 30 32 34 30 36 33 275" x="-.024063
13b0: 22 20 79 3d 22 2d 2e 30 32 33 39 33 37 22 20 77 " y="-.023937" w
13c0: 69 64 74 68 3d 22 31 2e 30 34 38 31 22 20 68 65 idth="1.0481" he
13d0: 69 67 68 74 3d 22 31 2e 30 34 37 39 22 20 63 6f ight="1.0479" co
13e0: 6c 6f 72 2d 69 6e 74 65 72 70 6f 6c 61 74 69 6f lor-interpolatio
13f0: 6e 2d 66 69 6c 74 65 72 73 3d 22 73 52 47 42 22 n-filters="sRGB"
1400: 3e 0a 20 20 20 3c 66 65 47 61 75 73 73 69 61 6e >. <feGaussian
1410: 42 6c 75 72 20 73 74 64 44 65 76 69 61 74 69 6f Blur stdDeviatio
1420: 6e 3d 22 30 2e 31 32 37 32 38 37 31 31 22 2f 3e n="0.12728711"/>
1430: 0a 20 20 3c 2f 66 69 6c 74 65 72 3e 0a 20 3c 2f . </filter>. </
1440: 64 65 66 73 3e 0a 20 3c 67 20 74 72 61 6e 73 66 defs>. <g transf
1450: 6f 72 6d 3d 22 74 72 61 6e 73 6c 61 74 65 28 2d orm="translate(-
1460: 31 35 2e 31 38 33 20 2d 37 32 2e 35 31 31 29 22 15.183 -72.511)"
1470: 3e 0a 20 20 3c 67 20 74 72 61 6e 73 66 6f 72 6d >. <g transform
1480: 3d 22 6d 61 74 72 69 78 28 31 2e 36 31 33 39 20 ="matrix(1.6139
1490: 30 20 30 20 31 2e 35 31 39 32 20 35 31 2e 39 34 0 0 1.5192 51.94
14a0: 33 20 2d 35 32 2e 30 37 34 29 22 3e 0a 20 20 20 3 -52.074)">.
14b0: 3c 70 61 74 68 20 64 3d 22 6d 37 2e 38 33 38 39 <path d="m7.8389
14c0: 20 38 35 2e 34 38 35 2d 33 2e 38 37 34 33 20 36 85.485-3.8743 6
14d0: 2e 30 34 37 36 63 2d 32 33 2e 32 32 36 2d 33 2e .0476c-23.226-3.
14e0: 31 31 35 37 2d 33 33 2e 33 31 38 20 39 2e 33 33 1157-33.318 9.33
14f0: 31 34 2d 38 2e 35 39 39 20 32 32 2e 39 36 32 2d 14-8.599 22.962-
1500: 32 34 2e 39 30 36 2d 34 2e 38 30 35 39 2d 32 37 24.906-4.8059-27
1510: 2e 32 32 39 2d 33 30 2e 39 39 38 20 31 32 2e 34 .229-30.998 12.4
1520: 37 33 2d 32 39 2e 30 31 7a 22 20 66 69 6c 6c 3d 73-29.01z" fill=
1530: 22 23 66 65 32 33 30 66 22 2f 3e 0a 20 20 20 3c "#fe230f"/>. <
1540: 70 61 74 68 20 64 3d 22 6d 34 2e 37 38 38 34 20 path d="m4.7884
1550: 39 30 2e 32 37 36 2d 32 2e 35 30 36 36 20 34 2e 90.276-2.5066 4.
1560: 38 30 31 35 63 2d 32 31 2e 38 32 35 2d 32 2e 35 8015c-21.825-2.5
1570: 32 32 34 2d 32 32 2e 38 30 33 20 36 2e 35 31 35 224-22.803 6.515
1580: 2d 37 2e 30 34 30 38 20 31 39 2e 33 34 35 2d 31 -7.0408 19.345-1
1590: 34 2e 31 34 34 2d 35 2e 33 30 38 32 2d 32 37 2e 4.144-5.3082-27.
15a0: 37 36 2d 32 35 2e 37 35 37 20 39 2e 35 34 37 34 76-25.757 9.5474
15b0: 2d 32 34 2e 31 34 37 7a 22 20 66 69 6c 6c 3d 22 -24.147z" fill="
15c0: 23 66 65 35 64 30 66 22 2f 3e 0a 20 20 20 3c 70 #fe5d0f"/>. <p
15d0: 61 74 68 20 64 3d 22 6d 32 2e 33 39 39 20 39 34 ath d="m2.399 94
15e0: 2e 37 38 2d 32 2e 31 37 37 33 20 33 2e 38 39 31 .78-2.1773 3.891
15f0: 32 63 2d 31 38 2e 36 37 35 2d 31 2e 37 36 30 37 2c-18.675-1.7607
1600: 2d 31 34 2e 38 39 34 20 33 2e 37 36 37 39 2d 35 -14.894 3.7679-5
1610: 2e 30 37 36 35 20 31 35 2e 37 37 32 2d 37 2e 38 .0765 15.772-7.8
1620: 34 34 34 2d 35 2e 37 31 39 32 2d 32 33 2e 31 36 444-5.7192-23.16
1630: 38 2d 32 32 2e 33 38 35 20 37 2e 32 35 33 38 2d 8-22.385 7.2538-
1640: 31 39 2e 36 36 33 7a 22 20 66 69 6c 6c 3d 22 23 19.663z" fill="#
1650: 66 65 61 37 30 66 22 2f 3e 0a 20 20 3c 2f 67 3e fea70f"/>. </g>
1660: 0a 20 20 3c 70 61 74 68 20 74 72 61 6e 73 66 6f . <path transfo
1670: 72 6d 3d 22 6d 61 74 72 69 78 28 2e 32 36 34 35 rm="matrix(.2645
1680: 38 20 30 20 30 20 2e 32 36 34 35 38 20 31 35 2e 8 0 0 .26458 15.
1690: 31 38 33 20 37 32 2e 35 31 31 29 22 20 64 3d 22 183 72.511)" d="
16a0: 6d 31 36 39 2e 34 20 33 2e 33 33 35 39 63 2d 32 m169.4 3.3359c-2
16b0: 34 2e 30 33 36 20 30 2e 31 36 37 39 36 2d 34 38 4.036 0.16796-48
16c0: 2e 30 37 32 20 30 2e 33 33 35 39 32 2d 37 32 2e .072 0.33592-72.
16d0: 31 30 37 20 30 2e 35 30 33 39 31 2d 39 2e 34 30 107 0.50391-9.40
16e0: 30 39 20 34 32 2e 31 38 36 2d 31 38 2e 38 30 32 09 42.186-18.802
16f0: 20 38 34 2e 33 37 32 2d 32 38 2e 32 30 33 20 31 84.372-28.203 1
1700: 32 36 2e 35 36 20 31 31 2e 31 35 39 20 31 37 2e 26.56 11.159 17.
1710: 37 34 35 20 32 34 2e 31 39 35 20 33 38 2e 35 31 745 24.195 38.51
1720: 37 20 33 37 2e 38 39 38 20 35 34 2e 32 33 34 20 7 37.898 54.234
1730: 30 2e 35 32 39 38 31 2d 31 38 2e 38 31 38 20 31 0.52981-18.818 1
1740: 2e 30 36 2d 33 37 2e 36 33 35 20 31 2e 35 38 39 .06-37.635 1.589
1750: 38 2d 35 36 2e 34 35 33 20 37 2e 37 33 31 31 2d 8-56.453 7.7311-
1760: 33 2e 32 34 36 31 20 31 35 2e 34 36 32 2d 36 2e 3.2461 15.462-6.
1770: 34 39 32 32 20 32 33 2e 31 39 33 2d 39 2e 37 33 4922 23.193-9.73
1780: 38 33 20 38 2e 30 38 34 20 33 2e 33 38 36 31 20 83 8.084 3.3861
1790: 31 36 2e 31 36 38 20 36 2e 37 37 32 31 20 32 34 16.168 6.7721 24
17a0: 2e 32 35 32 20 31 30 2e 31 35 38 2d 30 2e 34 30 .252 10.158-0.40
17b0: 30 34 31 20 32 32 2e 35 33 32 20 32 2e 34 32 31 041 22.532 2.421
17c0: 32 20 34 35 2e 30 39 39 20 30 2e 36 37 33 38 33 2 45.099 0.67383
17d0: 20 36 37 2e 35 39 32 2d 33 2e 31 30 34 36 20 34 67.592-3.1046 4
17e0: 2e 38 33 34 36 20 34 2e 39 30 38 36 20 31 2e 39 .8346 4.9086 1.9
17f0: 31 38 32 20 37 2e 37 36 37 36 20 32 2e 37 31 34 182 7.7676 2.714
1800: 38 20 31 34 2e 34 33 39 20 30 2e 30 30 37 35 36 8 14.439 0.00756
1810: 20 32 38 2e 38 37 38 20 30 2e 30 31 37 38 33 20 28.878 0.01783
1820: 34 33 2e 33 31 36 20 30 2e 30 32 35 33 39 2d 31 43.316 0.02539-1
1830: 32 2e 37 39 34 2d 36 35 2e 31 39 39 2d 32 35 2e 2.794-65.199-25.
1840: 35 38 37 2d 31 33 30 2e 34 2d 33 38 2e 33 38 31 587-130.4-38.381
1850: 2d 31 39 35 2e 36 7a 6d 2d 33 34 2e 31 38 38 20 -195.6zm-34.188
1860: 32 38 2e 34 31 32 63 31 37 2e 32 32 32 20 30 2e 28.412c17.222 0.
1870: 35 34 38 35 37 20 33 30 2e 36 32 39 20 31 39 2e 54857 30.629 19.
1880: 35 33 34 20 32 34 2e 38 35 39 20 33 35 2e 39 39 534 24.859 35.99
1890: 34 2d 34 2e 36 37 33 36 20 31 37 2e 34 30 31 2d 4-4.6736 17.401-
18a0: 32 37 2e 37 34 35 20 32 35 2e 34 34 37 2d 34 32 27.745 25.447-42
18b0: 2e 32 32 33 20 31 34 2e 37 31 37 2d 31 35 2e 32 .223 14.717-15.2
18c0: 34 38 2d 39 2e 36 30 37 34 2d 31 36 2e 31 31 35 48-9.6074-16.115
18d0: 2d 33 34 2e 30 32 35 2d 31 2e 35 38 34 2d 34 34 -34.025-1.584-44
18e0: 2e 36 38 38 20 34 2e 38 36 30 33 2d 33 2e 38 37 .688 4.8603-3.87
18f0: 37 33 20 31 31 2e 30 35 33 2d 36 2e 30 33 33 31 73 11.053-6.0331
1900: 20 31 37 2e 32 37 2d 36 2e 30 31 37 36 20 30 2e 17.27-6.0176 0.
1910: 35 36 32 39 36 2d 30 2e 30 32 31 33 37 36 20 31 56296-0.021376 1
1920: 2e 31 32 32 32 2d 30 2e 30 32 33 35 35 35 20 31 .1222-0.023555 1
1930: 2e 36 37 37 37 2d 30 2e 30 30 35 38 35 39 7a 6d .6777-0.005859zm
1940: 2d 37 35 2e 38 39 35 20 31 34 32 2e 35 31 63 2d -75.895 142.51c-
1950: 31 2e 39 30 36 36 20 38 2e 35 35 36 2d 33 2e 38 1.9066 8.556-3.8
1960: 31 34 31 20 31 37 2e 31 31 32 2d 35 2e 37 32 30 141 17.112-5.720
1970: 37 20 32 35 2e 36 36 38 6c 35 32 2e 39 36 31 2d 7 25.668l52.961-
1980: 30 2e 30 31 31 37 32 63 30 2e 31 31 37 30 37 2d 0.01172c0.11707-
1990: 34 2e 31 35 38 32 20 30 2e 32 33 34 34 39 2d 38 4.1582 0.23449-8
19a0: 2e 33 31 36 34 20 30 2e 33 35 31 35 37 2d 31 32 .3164 0.35157-12
19b0: 2e 34 37 35 2d 31 35 2e 31 38 39 2d 33 2e 30 38 .475-15.189-3.08
19c0: 36 39 2d 33 32 2e 33 38 39 2d 37 2e 35 39 36 35 69-32.389-7.5965
19d0: 2d 34 37 2e 35 39 32 2d 31 33 2e 31 38 32 7a 6d -47.592-13.182zm
19e0: 39 35 2e 36 39 35 20 32 34 2e 36 34 36 63 31 2e 95.695 24.646c1.
19f0: 32 33 36 38 20 30 20 30 2e 33 37 32 36 36 20 30 2368 0 0.37266 0
1a00: 20 30 20 30 7a 22 20 66 69 6c 6c 3d 22 75 72 6c 0 0z" fill="url
1a10: 28 23 6c 69 6e 65 61 72 47 72 61 64 69 65 6e 74 (#linearGradient
1a20: 32 30 36 36 29 22 20 73 74 72 6f 6b 65 3d 22 23 2066)" stroke="#
1a30: 34 61 35 38 34 38 22 20 73 74 72 6f 6b 65 2d 77 4a5848" stroke-w
1a40: 69 64 74 68 3d 22 36 2e 36 37 30 39 22 2f 3e 0a idth="6.6709"/>.
1a50: 20 20 3c 65 6c 6c 69 70 73 65 20 63 78 3d 22 35 <ellipse cx="5
1a60: 30 2e 34 34 36 22 20 63 79 3d 22 38 38 2e 32 33 0.446" cy="88.23
1a70: 37 22 20 72 78 3d 22 36 2e 33 34 37 37 22 20 72 7" rx="6.3477" r
1a80: 79 3d 22 36 2e 33 38 31 31 22 20 66 69 6c 6c 3d y="6.3811" fill=
1a90: 22 75 72 6c 28 23 6c 69 6e 65 61 72 47 72 61 64 "url(#linearGrad
1aa0: 69 65 6e 74 31 31 38 35 29 22 20 66 69 6c 74 65 ient1185)" filte
1ab0: 72 3d 22 75 72 6c 28 23 66 69 6c 74 65 72 31 32 r="url(#filter12
1ac0: 37 35 29 22 20 6f 70 61 63 69 74 79 3d 22 2e 39 75)" opacity=".9
1ad0: 22 2f 3e 0a 20 3c 2f 67 3e 0a 3c 2f 73 76 67 3e "/>. </g>.</svg>
1ae0: 0a 0a 20 20 20 20 20 3c 21 2d 2d 73 76 67 20 68 .. <!--svg h
1af0: 65 69 67 68 74 3d 32 37 30 20 77 69 64 74 68 3d eight=270 width=
1b00: 32 31 35 20 73 74 79 6c 65 3d 27 66 6c 6f 61 74 215 style='float
1b10: 3a 6c 65 66 74 3b 20 6d 61 72 67 69 6e 2d 72 69 :left; margin-ri
1b20: 67 68 74 3a 20 33 30 70 74 3b 27 20 76 69 65 77 ght: 30pt;' view
1b30: 42 6f 78 3d 27 30 20 30 20 34 32 2e 39 36 37 38 Box='0 0 42.9678
1b40: 36 31 20 35 33 2e 37 37 38 35 38 27 3e 20 3c 67 61 53.77858'> <g
1b50: 20 74 72 61 6e 73 66 6f 72 6d 3d 27 74 72 61 6e transform='tran
1b60: 73 6c 61 74 65 28 2d 32 36 2e 39 32 36 37 30 37 slate(-26.926707
1b70: 2c 2d 37 32 2e 32 34 34 30 34 38 29 27 20 69 64 ,-72.244048)' id
1b80: 3d 27 6c 61 79 65 72 31 27 3e 0a 20 20 20 20 20 ='layer1'>.
1b90: 20 20 3c 70 61 74 68 20 69 64 3d 27 70 61 74 68 <path id='path
1ba0: 38 32 38 27 20 64 3d 27 6d 20 35 38 2e 36 36 37 828' d='m 58.667
1bb0: 30 33 32 2c 37 33 2e 31 32 36 35 32 36 20 63 20 032,73.126526 c
1bc0: 2d 36 2e 33 35 39 34 37 2c 30 2e 30 34 34 34 34 -6.35947,0.04444
1bd0: 20 2d 31 32 2e 37 31 38 39 35 2c 30 2e 30 38 38 -12.71895,0.088
1be0: 38 38 20 2d 31 39 2e 30 37 38 34 31 38 2c 30 2e 88 -19.078418,0.
1bf0: 31 33 33 33 32 37 20 2d 33 2e 38 35 33 36 38 33 133327 -3.853683
1c00: 2c 31 37 2e 32 39 33 33 35 20 2d 37 2e 37 30 37 ,17.29335 -7.707
1c10: 33 36 37 2c 33 34 2e 35 38 36 36 38 37 20 2d 31 367,34.586687 -1
1c20: 31 2e 35 36 31 30 35 2c 35 31 2e 38 38 30 30 33 1.56105,51.88003
1c30: 37 20 34 2e 36 37 30 38 36 2c 2d 31 30 65 2d 34 7 4.67086,-10e-4
1c40: 20 39 2e 33 34 31 37 31 39 2c 2d 30 2e 30 30 32 9.341719,-0.002
1c50: 20 31 34 2e 30 31 32 35 37 38 2c 2d 30 2e 30 30 14.012578,-0.00
1c60: 33 20 30 2e 31 37 38 31 31 2c 2d 36 2e 33 32 36 3 0.17811,-6.326
1c70: 32 33 20 30 2e 33 35 36 32 33 2c 2d 31 32 2e 36 23 0.35623,-12.6
1c80: 35 32 34 36 20 30 2e 35 33 34 33 34 2c 2d 31 38 5246 0.53434,-18
1c90: 2e 39 37 38 36 39 20 32 2e 30 34 35 35 32 2c 2d .97869 2.04552,-
1ca0: 30 2e 38 35 38 38 36 20 34 2e 30 39 31 30 34 2c 0.85886 4.09104,
1cb0: 2d 31 2e 37 31 37 37 33 20 36 2e 31 33 36 35 37 -1.71773 6.13657
1cc0: 2c 2d 32 2e 35 37 36 35 39 20 32 2e 31 33 38 38 ,-2.57659 2.1388
1cd0: 39 2c 30 2e 38 39 35 39 20 34 2e 32 37 37 37 37 9,0.8959 4.27777
1ce0: 2c 31 2e 37 39 31 37 39 20 36 2e 34 31 36 36 36 ,1.79179 6.41666
1cf0: 2c 32 2e 36 38 37 36 39 20 2d 30 2e 31 30 35 39 ,2.68769 -0.1059
1d00: 34 2c 35 2e 39 36 31 36 31 20 30 2e 36 34 30 35 4,5.96161 0.6405
1d10: 39 2c 31 31 2e 39 33 32 34 31 20 30 2e 31 37 38 9,11.93241 0.178
1d20: 32 35 2c 31 37 2e 38 38 33 36 38 20 2d 30 2e 38 25,17.88368 -0.8
1d30: 32 31 34 33 2c 31 2e 32 37 39 31 35 20 31 2e 32 2143,1.27915 1.2
1d40: 39 38 38 39 2c 30 2e 35 30 37 34 38 20 32 2e 30 9889,0.50748 2.0
1d50: 35 35 33 33 2c 30 2e 37 31 38 32 37 20 33 2e 38 5533,0.71827 3.8
1d60: 32 30 32 33 2c 30 2e 30 30 32 20 37 2e 36 34 30 2023,0.002 7.640
1d70: 34 35 2c 30 2e 30 30 35 20 31 31 2e 34 36 30 36 45,0.005 11.4606
1d80: 37 2c 30 2e 30 30 37 20 2d 33 2e 33 38 34 39 38 7,0.007 -3.38498
1d90: 2c 2d 31 37 2e 32 35 30 37 33 20 2d 36 2e 37 36 ,-17.25073 -6.76
1da0: 39 39 35 2c 2d 33 34 2e 35 30 31 34 35 37 20 2d 995,-34.501457 -
1db0: 31 30 2e 31 35 34 39 33 2c 2d 35 31 2e 37 35 32 10.15493,-51.752
1dc0: 31 39 34 20 7a 20 6d 20 2d 39 2e 34 38 39 33 34 194 z m -9.48934
1dd0: 2c 37 2e 35 31 38 39 32 32 20 63 20 34 2e 37 36 ,7.518922 c 4.76
1de0: 36 33 39 2c 2d 30 2e 31 38 30 39 38 38 20 38 2e 639,-0.180988 8.
1df0: 35 39 37 33 32 2c 35 2e 30 32 36 33 33 39 20 37 59732,5.026339 7
1e00: 2e 30 32 31 36 36 2c 39 2e 35 32 31 39 38 35 20 .02166,9.521985
1e10: 2d 31 2e 32 33 36 35 35 2c 34 2e 36 30 33 39 35 -1.23655,4.60395
1e20: 20 2d 37 2e 33 34 31 30 39 2c 36 2e 37 33 33 31 -7.34109,6.7331
1e30: 20 2d 31 31 2e 31 37 31 37 34 2c 33 2e 38 39 34 -11.17174,3.894
1e40: 31 34 20 2d 34 2e 30 33 34 34 37 34 2c 2d 32 2e 14 -4.034474,-2.
1e50: 35 34 31 39 36 20 2d 34 2e 32 36 33 32 38 34 2c 54196 -4.263284,
1e60: 2d 39 2e 30 30 32 35 37 34 20 2d 30 2e 34 31 38 -9.002574 -0.418
1e70: 37 35 2c 2d 31 31 2e 38 32 33 35 38 20 31 2e 32 75,-11.82358 1.2
1e80: 38 35 39 35 2c 2d 31 2e 30 32 35 38 36 38 20 32 8595,-1.025868 2
1e90: 2e 39 32 34 30 35 2c 2d 31 2e 35 39 36 36 34 35 .92405,-1.596645
1ea0: 20 34 2e 35 36 38 38 33 2c 2d 31 2e 35 39 32 35 4.56883,-1.5925
1eb0: 34 35 20 7a 20 6d 20 35 2e 36 38 32 38 35 2c 34 45 z m 5.68285,4
1ec0: 34 2e 32 32 34 31 37 32 20 63 20 30 2e 33 32 37 4.224172 c 0.327
1ed0: 32 34 2c 30 20 30 2e 30 39 38 36 2c 30 20 30 2c 24,0 0.0986,0 0,
1ee0: 30 20 7a 27 0a 20 20 20 20 20 20 20 73 74 79 6c 0 z'. styl
1ef0: 65 3d 27 66 69 6c 6c 3a 23 61 65 65 61 34 37 3b e='fill:#aeea47;
1f00: 66 69 6c 6c 2d 6f 70 61 63 69 74 79 3a 31 3b 73 fill-opacity:1;s
1f10: 74 72 6f 6b 65 3a 23 34 61 35 38 34 38 3b 73 74 troke:#4a5848;st
1f20: 72 6f 6b 65 2d 77 69 64 74 68 3a 31 2e 37 36 34 roke-width:1.764
1f30: 39 39 39 39 39 3b 73 74 72 6f 6b 65 2d 6c 69 6e 99999;stroke-lin
1f40: 65 63 61 70 3a 62 75 74 74 3b 73 74 72 6f 6b 65 ecap:butt;stroke
1f50: 2d 6c 69 6e 65 6a 6f 69 6e 3a 6d 69 74 65 72 3b -linejoin:miter;
1f60: 73 74 72 6f 6b 65 2d 6d 69 74 65 72 6c 69 6d 69 stroke-miterlimi
1f70: 74 3a 34 3b 73 74 72 6f 6b 65 2d 64 61 73 68 61 t:4;stroke-dasha
1f80: 72 72 61 79 3a 6e 6f 6e 65 3b 73 74 72 6f 6b 65 rray:none;stroke
1f90: 2d 6f 70 61 63 69 74 79 3a 30 2e 39 39 34 35 36 -opacity:0.99456
1fa0: 35 31 38 27 20 2f 3e 0a 20 20 20 20 20 3c 2f 67 518' />. </g
1fb0: 3e 3c 2f 73 76 67 2d 2d 3e 0a 53 56 47 3b 0a 20 ></svg-->.SVG;.
1fc0: 20 20 20 70 72 69 6e 74 28 22 3c 64 69 76 20 63 print("<div c
1fd0: 6c 61 73 73 3d 27 66 6f 73 73 69 6c 2d 64 6f 63 lass='fossil-doc
1fe0: 27 20 64 61 74 61 2d 74 69 74 6c 65 3d 27 49 6e ' data-title='In
1ff0: 64 69 65 41 75 74 68 27 3e 5c 6e 24 73 76 67 5c dieAuth'>\n$svg\
2000: 6e 24 68 74 6d 6c 5c 6e 3c 2f 64 69 76 3e 22 29 n$html\n</div>")
2010: 3b 0a 7d 0a 66 75 6e 63 74 69 6f 6e 20 6d 69 73 ;.}.function mis
2020: 73 69 6e 67 5f 70 61 72 61 6d 28 24 6e 61 6d 65 sing_param($name
2030: 29 20 7b 0a 20 20 20 20 64 69 65 28 70 61 67 65 ) {. die(page
2040: 5f 68 74 6d 6c 28 22 3c 68 32 3e 4d 69 73 73 69 _html("<h2>Missi
2050: 6e 67 20 69 6e 70 75 74 3c 2f 68 32 3e 3c 70 3e ng input</h2><p>
2060: 55 52 4c 20 6c 61 63 6b 73 20 3c 63 6f 64 65 3e URL lacks <code>
2070: 26 24 6e 61 6d 65 3d 3c 2f 63 6f 64 65 3e 20 70 &$name=</code> p
2080: 61 72 61 6d 65 74 65 72 2e 3c 70 3e 43 61 6e 27 arameter.<p>Can'
2090: 74 20 70 72 6f 63 65 73 73 20 61 73 20 49 6e 64 t process as Ind
20a0: 69 65 41 75 74 68 2f 4f 41 75 74 68 20 72 65 71 ieAuth/OAuth req
20b0: 75 65 73 74 2e 22 29 29 3b 0a 7d 0a 66 75 6e 63 uest."));.}.func
20c0: 74 69 6f 6e 20 70 61 67 65 5f 6d 64 28 24 74 65 tion page_md($te
20d0: 78 74 29 20 7b 0a 20 20 20 20 68 65 61 64 65 72 xt) {. header
20e0: 28 22 43 6f 6e 74 65 6e 74 2d 54 79 70 65 3a 20 ("Content-Type:
20f0: 74 65 78 74 2f 78 2d 6d 61 72 6b 64 6f 77 6e 3b text/x-markdown;
2100: 20 63 68 61 72 73 65 74 3d 75 74 66 2d 38 22 29 charset=utf-8")
2110: 3b 0a 20 20 20 20 70 72 69 6e 74 28 24 74 65 78 ;. print($tex
2120: 74 29 3b 0a 7d 0a 66 75 6e 63 74 69 6f 6e 20 68 t);.}.function h
2130: 28 24 73 29 20 7b 0a 20 20 20 20 72 65 74 75 72 ($s) {. retur
2140: 6e 20 68 74 6d 6c 73 70 65 63 69 61 6c 63 68 61 n htmlspecialcha
2150: 72 73 28 24 73 2c 20 45 4e 54 5f 51 55 4f 54 45 rs($s, ENT_QUOTE
2160: 53 7c 45 4e 54 5f 48 54 4d 4c 35 2c 20 22 55 54 S|ENT_HTML5, "UT
2170: 46 2d 38 22 29 3b 0a 7d 0a 0a 0a 23 2d 2d 20 74 F-8");.}...#-- t
2180: 65 73 74 20 69 66 20 68 74 74 70 3a 2f 2f 69 64 est if http://id
2190: 65 6e 74 69 74 79 2f 20 69 73 20 77 68 69 74 65 entity/ is white
21a0: 6c 69 73 74 65 64 20 69 6e 20 75 73 65 72 2e 60 listed in user.`
21b0: 68 6f 6d 65 70 61 67 65 60 2f 60 69 6e 66 6f 60 homepage`/`info`
21c0: 20 63 6f 6c 75 6d 6e 0a 66 75 6e 63 74 69 6f 6e column.function
21d0: 20 61 6c 6c 6f 77 65 64 5f 69 64 65 6e 74 69 74 allowed_identit
21e0: 79 28 24 75 73 65 72 2c 20 24 75 72 6c 2c 20 26 y($user, $url, &
21f0: 24 6d 61 79 5f 61 75 74 6f 6c 6f 67 69 6e 29 20 $may_autologin)
2200: 7b 0a 20 20 20 20 23 20 73 65 61 72 63 68 20 61 {. # search a
2210: 6c 6c 20 66 69 65 6c 64 73 20 66 6f 72 20 75 72 ll fields for ur
2220: 6c 73 0a 20 20 20 20 70 72 65 67 5f 6d 61 74 63 ls. preg_matc
2230: 68 5f 61 6c 6c 28 0a 20 20 20 20 20 20 20 20 20 h_all(.
2240: 22 7e 5c 5c 62 20 68 74 74 70 73 3f 3a 2f 2f 28 "~\\b https?://(
2250: 5c 53 2b 29 20 28 3f 3c 21 5b 2c 3b 7c 3c 3e 27 \S+) (?<![,;|<>'
2260: 5c 22 5d 29 7e 78 22 2c 0a 20 20 20 20 20 20 20 \"])~x",.
2270: 20 20 6a 6f 69 6e 28 22 2c 20 22 2c 20 64 62 28 join(", ", db(
2280: 22 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 75 "SELECT * FROM u
2290: 73 65 72 20 57 48 45 52 45 20 6c 6f 67 69 6e 3d ser WHERE login=
22a0: 3f 22 2c 20 5b 24 75 73 65 72 5d 29 5b 30 5d 29 ?", [$user])[0])
22b0: 2c 0a 20 20 20 20 20 20 20 20 20 24 61 6c 6c 6f ,. $allo
22c0: 77 65 64 0a 20 20 20 20 29 3b 0a 20 20 20 20 24 wed. );. $
22d0: 61 6c 6c 6f 77 65 64 20 3d 20 24 61 6c 6c 6f 77 allowed = $allow
22e0: 65 64 5b 31 5d 3b 0a 20 20 20 20 23 20 69 66 20 ed[1];. # if
22f0: 6c 69 73 74 20 63 6f 6e 74 61 69 6e 73 20 22 68 list contains "h
2300: 74 74 70 3a 2f 2f 61 75 74 6f 6c 6f 67 69 6e 2f ttp://autologin/
2310: 0a 20 20 20 20 69 66 20 28 69 6e 5f 61 72 72 61 . if (in_arra
2320: 79 28 22 61 75 74 6f 6c 6f 67 69 6e 22 2c 20 24 y("autologin", $
2330: 61 6c 6c 6f 77 65 64 29 29 20 7b 0a 20 20 20 20 allowed)) {.
2340: 20 20 20 20 24 6d 61 79 5f 61 75 74 6f 6c 6f 67 $may_autolog
2350: 69 6e 20 3d 20 24 61 6c 6c 6f 77 65 64 3b 20 23 in = $allowed; #
2360: 20 73 68 6f 75 6c 64 20 63 6f 6e 74 61 69 6e 20 should contain
2370: 63 61 6c 6c 62 61 63 6b 20 75 72 6c 73 0a 20 20 callback urls.
2380: 20 20 7d 0a 20 20 20 20 23 20 62 75 74 20 76 65 }. # but ve
2390: 72 69 66 79 20 24 6d 65 20 62 65 69 6e 67 20 77 rify $me being w
23a0: 68 69 74 65 6c 69 73 74 65 64 20 66 69 72 73 74 hitelisted first
23b0: 0a 20 20 20 20 66 6f 72 65 61 63 68 20 28 24 61 . foreach ($a
23c0: 6c 6c 6f 77 65 64 20 61 73 20 24 69 74 65 6d 29 llowed as $item)
23d0: 20 7b 0a 20 20 20 20 20 20 20 20 69 66 20 28 74 {. if (t
23e0: 72 69 6d 5f 75 72 6c 28 24 69 74 65 6d 29 20 3d rim_url($item) =
23f0: 3d 20 74 72 69 6d 5f 75 72 6c 28 24 75 72 6c 29 = trim_url($url)
2400: 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ) {.
2410: 20 72 65 74 75 72 6e 20 54 72 75 65 3b 0a 20 20 return True;.
2420: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 7d 0a }. }.}.
2430: 66 75 6e 63 74 69 6f 6e 20 74 72 69 6d 5f 75 72 function trim_ur
2440: 6c 28 24 75 72 6c 29 20 7b 0a 20 20 20 20 23 20 l($url) {. #
2450: 56 65 72 79 20 63 72 75 64 65 20 55 52 4c 20 65 Very crude URL e
2460: 71 75 61 6c 69 74 79 20 74 65 73 74 2e 0a 20 20 quality test..
2470: 20 20 23 20 53 74 72 69 70 20 61 6e 79 20 68 74 # Strip any ht
2480: 74 70 3a 2f 2f 20 70 72 65 66 69 78 2c 20 74 72 tp:// prefix, tr
2490: 61 69 6c 69 6e 67 20 73 6c 61 73 68 65 73 2c 20 ailing slashes,
24a0: 6f 72 20 2f 68 6f 6d 65 2c 20 2f 69 6e 64 65 78 or /home, /index
24b0: 20 28 77 68 65 6e 20 72 65 66 65 72 72 69 6e 67 (when referring
24c0: 20 74 6f 20 66 6f 73 73 69 6c 20 69 6e 73 74 61 to fossil insta
24d0: 6e 63 65 29 2e 0a 20 20 20 20 72 65 74 75 72 6e nce).. return
24e0: 20 73 74 72 74 6f 6c 6f 77 65 72 28 70 72 65 67 strtolower(preg
24f0: 5f 72 65 70 6c 61 63 65 28 22 7e 20 5e 68 74 74 _replace("~ ^htt
2500: 70 73 3f 3a 2f 2f 20 7c 20 2f 2b 28 68 6f 6d 65 ps?:// | /+(home
2510: 7c 69 6e 64 65 78 29 24 20 7c 20 2f 2b 24 20 7e |index)$ | /+$ ~
2520: 78 22 2c 20 22 22 2c 20 24 75 72 6c 29 29 3b 0a x", "", $url));.
2530: 7d 0a 66 75 6e 63 74 69 6f 6e 20 62 61 73 65 36 }.function base6
2540: 34 5f 75 72 6c 65 6e 63 6f 64 65 28 24 72 61 77 4_urlencode($raw
2550: 29 20 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 73 ) {. return s
2560: 74 72 74 72 28 74 72 69 6d 28 62 61 73 65 36 34 trtr(trim(base64
2570: 5f 65 6e 63 6f 64 65 28 24 72 61 77 29 2c 20 22 _encode($raw), "
2580: 3d 22 29 2c 20 22 2b 2f 22 2c 20 22 2d 5f 22 29 ="), "+/", "-_")
2590: 3b 0a 7d 0a 0a 23 2d 2d 20 6c 6f 61 64 20 61 75 ;.}..#-- load au
25a0: 74 68 6f 72 69 7a 61 74 69 6f 6e 20 70 72 6f 70 thorization prop
25b0: 65 72 74 69 65 73 20 62 79 20 61 75 74 68 20 63 erties by auth c
25c0: 6f 64 65 0a 66 75 6e 63 74 69 6f 6e 20 67 65 74 ode.function get
25d0: 5f 74 6f 6b 65 6e 5f 62 79 5f 63 6f 64 65 28 24 _token_by_code($
25e0: 63 6f 64 65 29 20 7b 0a 20 20 20 20 72 65 74 75 code) {. retu
25f0: 72 6e 20 64 62 28 22 53 45 4c 45 43 54 20 2a 20 rn db("SELECT *
2600: 46 52 4f 4d 20 66 78 5f 61 75 74 68 20 57 48 45 FROM fx_auth WHE
2610: 52 45 20 63 6f 64 65 3d 3f 22 2c 20 5b 24 63 6f RE code=?", [$co
2620: 64 65 5d 29 20 3f 3a 20 5b 5b 5d 5d 3b 0a 7d 0a de]) ?: [[]];.}.
2630: 66 75 6e 63 74 69 6f 6e 20 63 6c 65 61 6e 5f 65 function clean_e
2640: 78 70 69 72 65 64 5f 74 6f 6b 65 6e 28 29 20 7b xpired_token() {
2650: 0a 20 20 20 20 64 62 28 22 44 45 4c 45 54 45 20 . db("DELETE
2660: 46 52 4f 4d 20 66 78 5f 61 75 74 68 20 57 48 45 FROM fx_auth WHE
2670: 52 45 20 65 78 70 69 72 65 73 20 3c 20 3f 22 2c RE expires < ?",
2680: 20 5b 74 69 6d 65 28 29 5d 29 3b 0a 7d 0a 0a 0a [time()]);.}...
2690: 23 2d 2d 20 3c 66 6f 72 6d 3e 20 63 68 65 63 6b #-- <form> check
26a0: 62 6f 78 65 73 20 66 6f 72 20 22 73 63 6f 70 65 boxes for "scope
26b0: 22 20 74 6f 6b 65 6e 20 72 65 71 75 65 73 74 2c " token request,
26c0: 20 65 78 74 65 6e 64 65 64 20 64 65 66 61 75 6c extended defaul
26d0: 74 20 6c 69 73 74 20 61 6e 64 20 3f 73 63 6f 70 t list and ?scop
26e0: 65 3d e2 80 a6 20 72 65 71 75 65 73 74 73 0a 66 e=… requests.f
26f0: 75 6e 63 74 69 6f 6e 20 73 63 6f 70 65 5f 6c 69 unction scope_li
2700: 73 74 28 24 68 74 6d 6c 3d 22 22 29 20 7b 0a 20 st($html="") {.
2710: 20 20 20 24 73 63 6f 70 65 73 20 3d 20 5b 22 63 $scopes = ["c
2720: 72 65 61 74 65 22 3d 3e 22 63 68 65 63 6b 65 64 reate"=>"checked
2730: 22 2c 20 22 75 70 64 61 74 65 22 3d 3e 22 63 68 ", "update"=>"ch
2740: 65 63 6b 65 64 22 2c 20 22 64 65 6c 65 74 65 22 ecked", "delete"
2750: 3d 3e 22 22 2c 20 22 74 65 63 68 6e 6f 74 65 22 =>"", "technote"
2760: 3d 3e 22 63 68 65 63 6b 65 64 22 2c 20 22 74 69 =>"checked", "ti
2770: 63 6b 65 74 22 3d 3e 22 63 68 65 63 6b 65 64 22 cket"=>"checked"
2780: 2c 20 22 77 69 6b 69 22 3d 3e 22 22 2c 20 22 63 , "wiki"=>"", "c
2790: 68 61 74 22 3d 3e 22 22 5d 3b 0a 20 20 20 20 69 hat"=>""];. i
27a0: 66 20 28 21 65 6d 70 74 79 28 24 5f 52 45 51 55 f (!empty($_REQU
27b0: 45 53 54 5b 22 73 63 6f 70 65 22 5d 29 20 61 6e EST["scope"]) an
27c0: 64 20 70 72 65 67 5f 6d 61 74 63 68 5f 61 6c 6c d preg_match_all
27d0: 28 22 2f 28 5c 77 2b 29 2f 22 2c 20 24 5f 52 45 ("/(\w+)/", $_RE
27e0: 51 55 45 53 54 5b 22 73 63 6f 70 65 22 5d 2c 20 QUEST["scope"],
27f0: 24 75 75 29 29 20 7b 0a 20 20 20 20 20 20 20 20 $uu)) {.
2800: 66 6f 72 65 61 63 68 20 28 24 75 75 5b 31 5d 20 foreach ($uu[1]
2810: 61 73 20 24 66 69 65 6c 64 29 20 7b 20 24 73 63 as $field) { $sc
2820: 6f 70 65 73 5b 24 66 69 65 6c 64 5d 20 3d 20 22 opes[$field] = "
2830: 63 68 65 63 6b 65 64 22 3b 20 7d 0a 20 20 20 20 checked"; }.
2840: 7d 0a 20 20 20 20 66 6f 72 65 61 63 68 20 28 24 }. foreach ($
2850: 73 63 6f 70 65 73 20 61 73 20 24 66 69 65 6c 64 scopes as $field
2860: 3d 3e 24 63 68 65 63 6b 65 64 29 20 7b 0a 20 20 =>$checked) {.
2870: 20 20 20 20 20 20 24 68 74 6d 6c 20 2e 3d 20 22 $html .= "
2880: 3c 6c 69 20 73 74 79 6c 65 3d 27 66 6c 65 78 3a <li style='flex:
2890: 20 31 20 30 20 33 33 25 3b 20 6c 69 73 74 2d 73 1 0 33%; list-s
28a0: 74 79 6c 65 2d 74 79 70 65 3a 20 6e 6f 6e 65 3b tyle-type: none;
28b0: 27 3e 20 3c 6c 61 62 65 6c 3e 3c 69 6e 70 75 74 '> <label><input
28c0: 20 74 79 70 65 3d 63 68 65 63 6b 62 6f 78 20 24 type=checkbox $
28d0: 63 68 65 63 6b 65 64 20 6e 61 6d 65 3d 27 73 63 checked name='sc
28e0: 6f 70 65 5b 5d 27 20 76 61 6c 75 65 3d 24 66 69 ope[]' value=$fi
28f0: 65 6c 64 3e 20 24 66 69 65 6c 64 3c 2f 6c 61 62 eld> $field</lab
2900: 65 6c 3e 5c 6e 22 3b 0a 20 20 20 20 7d 0a 20 20 el>\n";. }.
2910: 20 20 72 65 74 75 72 6e 20 24 68 74 6d 6c 3b 0a return $html;.
2920: 7d 0a 0a 23 2d 2d 20 69 6e 69 74 69 61 6c 20 61 }..#-- initial a
2930: 75 74 68 6f 72 69 7a 61 74 69 6f 6e 20 72 65 71 uthorization req
2940: 75 65 73 74 0a 66 75 6e 63 74 69 6f 6e 20 70 72 uest.function pr
2950: 6f 63 65 73 73 5f 72 65 71 75 65 73 74 28 29 20 ocess_request()
2960: 7b 0a 0a 20 20 20 20 23 20 69 6e 70 75 74 20 70 {.. # input p
2970: 61 72 61 6d 73 0a 20 20 20 20 24 75 73 65 72 20 arams. $user
2980: 3d 20 24 5f 53 45 52 56 45 52 5b 22 46 4f 53 53 = $_SERVER["FOSS
2990: 49 4c 5f 55 53 45 52 22 5d 3b 0a 20 20 20 20 24 IL_USER"];. $
29a0: 63 61 70 73 20 3d 20 70 72 65 67 5f 72 65 70 6c caps = preg_repl
29b0: 61 63 65 28 22 2f 5b 5e 61 62 63 66 68 69 6b 6b ace("/[^abcfhikk
29c0: 6d 6e 73 77 33 43 5d 2f 22 2c 20 22 22 2c 20 24 mnsw3C]/", "", $
29d0: 5f 53 45 52 56 45 52 5b 22 46 4f 53 53 49 4c 5f _SERVER["FOSSIL_
29e0: 43 41 50 41 42 49 4c 49 54 49 45 53 22 5d 29 3b CAPABILITIES"]);
29f0: 0a 20 20 20 20 24 73 65 63 72 65 74 20 3d 20 24 . $secret = $
2a00: 5f 53 45 52 56 45 52 5b 22 46 4f 53 53 49 4c 5f _SERVER["FOSSIL_
2a10: 4e 4f 4e 43 45 22 5d 3b 0a 20 20 20 20 24 6d 65 NONCE"];. $me
2a20: 20 3d 20 24 5f 52 45 51 55 45 53 54 5b 22 6d 65 = $_REQUEST["me
2a30: 22 5d 20 6f 72 20 6d 69 73 73 69 6e 67 5f 70 61 "] or missing_pa
2a40: 72 61 6d 28 22 6d 65 22 29 3b 0a 20 20 20 20 24 ram("me");. $
2a50: 63 6c 69 65 6e 74 5f 69 64 20 3d 20 24 5f 52 45 client_id = $_RE
2a60: 51 55 45 53 54 5b 22 63 6c 69 65 6e 74 5f 69 64 QUEST["client_id
2a70: 22 5d 20 6f 72 20 6d 69 73 73 69 6e 67 5f 70 61 "] or missing_pa
2a80: 72 61 6d 28 22 63 6c 69 65 6e 74 5f 69 64 22 29 ram("client_id")
2a90: 3b 0a 20 20 20 20 24 72 65 64 69 72 65 63 74 5f ;. $redirect_
2aa0: 75 72 69 20 3d 20 24 5f 52 45 51 55 45 53 54 5b uri = $_REQUEST[
2ab0: 22 72 65 64 69 72 65 63 74 5f 75 72 69 22 5d 20 "redirect_uri"]
2ac0: 6f 72 20 6d 69 73 73 69 6e 67 5f 70 61 72 61 6d or missing_param
2ad0: 28 22 72 65 64 69 72 65 63 74 5f 75 72 69 22 29 ("redirect_uri")
2ae0: 3b 0a 20 20 20 20 24 73 74 61 74 65 20 3d 20 24 ;. $state = $
2af0: 5f 52 45 51 55 45 53 54 5b 22 73 74 61 74 65 22 _REQUEST["state"
2b00: 5d 20 3f 3a 20 22 22 3b 0a 20 20 20 20 24 63 6f ] ?: "";. $co
2b10: 64 65 5f 63 68 61 6c 6c 65 6e 67 65 20 3d 20 24 de_challenge = $
2b20: 5f 52 45 51 55 45 53 54 5b 22 63 6f 64 65 5f 63 _REQUEST["code_c
2b30: 68 61 6c 6c 65 6e 67 65 22 5d 20 3f 3a 20 22 22 hallenge"] ?: ""
2b40: 3b 0a 20 20 20 20 24 63 6f 64 65 5f 63 68 61 6c ;. $code_chal
2b50: 6c 65 6e 67 65 5f 6d 20 3d 20 24 5f 52 45 51 55 lenge_m = $_REQU
2b60: 45 53 54 5b 22 63 6f 64 65 5f 63 68 61 6c 6c 65 EST["code_challe
2b70: 6e 67 65 5f 6d 65 74 68 6f 64 22 5d 20 3f 3a 20 nge_method"] ?:
2b80: 22 53 32 35 36 22 3b 0a 20 20 20 20 24 72 65 73 "S256";. $res
2b90: 70 6f 6e 73 65 5f 74 79 70 65 20 3d 20 24 5f 52 ponse_type = $_R
2ba0: 45 51 55 45 53 54 5b 22 72 65 73 70 6f 6e 73 65 EQUEST["response
2bb0: 5f 74 79 70 65 22 5d 20 3f 3a 20 22 69 64 22 3b _type"] ?: "id";
2bc0: 0a 20 20 20 20 24 68 20 3d 20 22 68 22 3b 0a 0a . $h = "h";..
2bd0: 20 20 20 20 23 20 63 68 65 63 6b 20 69 66 20 24 # check if $
2be0: 6d 65 20 69 73 20 61 6c 6c 6f 77 65 64 0a 20 20 me is allowed.
2bf0: 20 20 69 66 20 28 21 61 6c 6c 6f 77 65 64 5f 69 if (!allowed_i
2c00: 64 65 6e 74 69 74 79 28 24 75 73 65 72 2c 20 24 dentity($user, $
2c10: 6d 65 2c 20 24 6d 61 79 5f 61 75 74 6f 6c 6f 67 me, $may_autolog
2c20: 69 6e 29 29 20 7b 0a 20 20 20 20 20 20 20 20 72 in)) {. r
2c30: 65 74 75 72 6e 20 70 61 67 65 5f 68 74 6d 6c 28 eturn page_html(
2c40: 22 3c 68 32 3e 49 6e 76 61 6c 69 64 20 69 64 65 "<h2>Invalid ide
2c50: 6e 74 69 74 79 3c 2f 68 32 3e 20 55 73 65 72 20 ntity</h2> User
2c60: 64 6f 65 73 6e 27 74 20 68 61 76 65 20 27 7b 24 doesn't have '{$
2c70: 68 28 24 6d 65 29 7d 27 20 72 65 73 65 72 76 65 h($me)}' reserve
2c80: 64 20 69 6e 20 75 73 65 72 20 74 61 62 6c 65 2e d in user table.
2c90: 22 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 0a 20 ");. }. .
2ca0: 20 20 20 23 20 6e 65 77 20 63 6f 64 65 20 2f 2f # new code //
2cb0: 20 68 61 73 68 69 6e 67 20 74 68 65 20 70 72 6f hashing the pro
2cc0: 70 65 72 74 69 65 73 20 69 73 20 61 20 62 69 74 perties is a bit
2cd0: 20 6f 76 65 72 6b 69 6c 6c 2c 20 61 6e 79 20 72 overkill, any r
2ce0: 61 6e 64 6f 6d 20 69 64 20 77 6f 75 6c 64 20 73 andom id would s
2cf0: 75 66 66 69 63 65 0a 20 20 20 20 24 63 6f 64 65 uffice. $code
2d00: 20 3d 20 70 61 73 73 77 6f 72 64 5f 68 61 73 68 = password_hash
2d10: 28 22 24 6d 65 2f 24 63 6c 69 65 6e 74 5f 69 64 ("$me/$client_id
2d20: 2f 24 73 74 61 74 65 2f 24 73 65 63 72 65 74 22 /$state/$secret"
2d30: 2c 20 50 41 53 53 57 4f 52 44 5f 44 45 46 41 55 , PASSWORD_DEFAU
2d40: 4c 54 29 3b 0a 20 20 20 20 64 62 28 22 0a 20 20 LT);. db(".
2d50: 20 20 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 INSERT INT
2d60: 4f 20 66 78 5f 61 75 74 68 0a 20 20 20 20 20 20 O fx_auth.
2d70: 20 20 28 60 63 6f 64 65 60 2c 20 20 60 74 79 70 (`code`, `typ
2d80: 65 60 2c 20 20 60 63 61 70 73 60 2c 20 60 6c 6f e`, `caps`, `lo
2d90: 67 69 6e 60 2c 20 60 6d 65 60 2c 20 60 63 6c 69 gin`, `me`, `cli
2da0: 65 6e 74 5f 69 64 60 2c 20 60 72 65 64 69 72 65 ent_id`, `redire
2db0: 63 74 5f 75 72 69 60 2c 20 60 73 74 61 74 65 60 ct_uri`, `state`
2dc0: 2c 20 60 63 6f 64 65 5f 63 68 61 6c 6c 65 6e 67 , `code_challeng
2dd0: 65 60 2c 20 60 63 6f 64 65 5f 63 68 61 6c 6c 65 e`, `code_challe
2de0: 6e 67 65 5f 6d 60 2c 20 60 6d 74 69 6d 65 60 2c nge_m`, `mtime`,
2df0: 20 60 65 78 70 69 72 65 73 60 29 0a 20 20 20 20 `expires`).
2e00: 20 20 20 20 56 41 4c 55 45 53 0a 20 20 20 20 20 VALUES.
2e10: 20 20 20 28 20 3f 2c 20 20 20 20 20 20 20 3f 2c ( ?, ?,
2e20: 20 20 20 20 20 20 20 20 20 20 3f 2c 20 20 20 20 ?,
2e30: 20 20 3f 2c 20 20 20 20 20 3f 2c 20 20 20 20 3f ?, ?, ?
2e40: 2c 20 20 20 20 20 20 20 20 20 20 3f 2c 20 20 20 , ?,
2e50: 20 20 20 20 20 20 20 20 20 20 20 3f 2c 20 20 20 ?,
2e60: 20 20 20 20 3f 2c 20 20 20 20 20 20 20 20 20 20 ?,
2e70: 20 20 20 20 20 20 3f 2c 20 20 20 20 20 20 20 20 ?,
2e80: 20 20 20 20 20 20 20 20 20 20 3f 2c 20 20 20 20 ?,
2e90: 20 20 20 3f 29 22 2c 0a 20 20 20 20 20 20 20 20 ?)",.
2ea0: 5b 24 63 6f 64 65 2c 20 24 72 65 73 70 6f 6e 73 [$code, $respons
2eb0: 65 5f 74 79 70 65 2c 20 24 63 61 70 73 2c 20 24 e_type, $caps, $
2ec0: 75 73 65 72 2c 20 24 6d 65 2c 20 24 63 6c 69 65 user, $me, $clie
2ed0: 6e 74 5f 69 64 2c 20 24 72 65 64 69 72 65 63 74 nt_id, $redirect
2ee0: 5f 75 72 69 2c 20 24 73 74 61 74 65 2c 20 24 63 _uri, $state, $c
2ef0: 6f 64 65 5f 63 68 61 6c 6c 65 6e 67 65 2c 20 24 ode_challenge, $
2f00: 63 6f 64 65 5f 63 68 61 6c 6c 65 6e 67 65 5f 6d code_challenge_m
2f10: 2c 20 74 69 6d 65 28 29 2c 20 74 69 6d 65 28 29 , time(), time()
2f20: 2b 33 30 30 5d 0a 20 20 20 20 29 3b 0a 0a 20 20 +300]. );..
2f30: 20 20 23 20 63 6f 6e 73 74 72 75 63 74 20 63 6f # construct co
2f40: 6e 66 69 72 6d 61 74 69 6f 6e 2b 72 65 64 69 72 nfirmation+redir
2f50: 65 63 74 20 75 72 6c 0a 20 20 20 20 24 75 72 6c ect url. $url
2f60: 3d 20 24 72 65 64 69 72 65 63 74 5f 75 72 69 0a = $redirect_uri.
2f70: 20 20 20 20 20 20 20 20 2e 20 28 73 74 72 73 74 . (strst
2f80: 72 28 24 72 65 64 69 72 65 63 74 5f 75 72 69 2c r($redirect_uri,
2f90: 20 22 3f 22 29 20 3f 20 22 26 22 20 3a 20 22 3f "?") ? "&" : "?
2fa0: 22 29 0a 20 20 20 20 20 20 20 20 2e 20 22 63 6f "). . "co
2fb0: 64 65 3d 22 20 2e 20 75 72 6c 65 6e 63 6f 64 65 de=" . urlencode
2fc0: 28 24 63 6f 64 65 29 20 2e 20 22 26 73 74 61 74 ($code) . "&stat
2fd0: 65 3d 22 20 2e 20 75 72 6c 65 6e 63 6f 64 65 28 e=" . urlencode(
2fe0: 24 73 74 61 74 65 29 3b 0a 20 20 20 20 0a 20 20 $state);. .
2ff0: 20 20 23 20 61 75 74 6f 6c 6f 67 69 6e 20 28 6d # autologin (m
3000: 65 61 6e 74 20 66 6f 72 20 75 70 73 74 72 65 61 eant for upstrea
3010: 6d 20 74 69 63 6b 65 74 20 62 72 69 64 67 65 73 m ticket bridges
3020: 2c 20 72 65 71 75 69 72 65 73 20 62 6f 74 68 20 , requires both
3030: 69 64 65 6e 74 69 74 79 20 61 6e 64 20 63 61 6c identity and cal
3040: 6c 62 61 63 6b 20 75 72 6c 73 20 74 6f 20 62 65 lback urls to be
3050: 20 77 68 69 74 65 6c 69 73 74 65 64 29 0a 20 20 whitelisted).
3060: 20 20 69 66 20 28 24 6d 61 79 5f 61 75 74 6f 6c if ($may_autol
3070: 6f 67 69 6e 29 20 7b 0a 20 20 20 20 20 20 20 20 ogin) {.
3080: 69 66 20 28 69 6e 5f 61 72 72 61 79 28 74 72 69 if (in_array(tri
3090: 6d 5f 75 72 6c 28 24 72 65 64 69 72 65 63 74 5f m_url($redirect_
30a0: 75 72 69 29 2c 20 24 6d 61 79 5f 61 75 74 6f 6c uri), $may_autol
30b0: 6f 67 69 6e 29 29 20 7b 0a 20 20 20 20 20 20 20 ogin)) {.
30c0: 20 20 20 20 20 66 69 6c 65 5f 67 65 74 5f 63 6f file_get_co
30d0: 6e 74 65 6e 74 73 28 24 75 72 6c 29 3b 0a 20 20 ntents($url);.
30e0: 20 20 20 20 20 20 20 20 20 20 64 69 65 28 68 65 die(he
30f0: 61 64 65 72 28 22 4c 6f 63 61 74 69 6f 6e 3a 20 ader("Location:
3100: 24 75 72 6c 22 29 29 3b 0a 20 20 20 20 20 20 20 $url"));.
3110: 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 0a 20 20 }. }. .
3120: 20 20 23 20 6f 75 74 70 75 74 20 70 61 67 65 0a # output page.
3130: 20 20 20 20 69 66 20 28 24 72 65 73 70 6f 6e 73 if ($respons
3140: 65 5f 74 79 70 65 20 3d 3d 20 22 63 6f 64 65 22 e_type == "code"
3150: 29 20 7b 0a 20 20 20 20 20 20 20 20 24 73 63 6f ) {. $sco
3160: 70 65 20 3d 20 73 63 6f 70 65 5f 6c 69 73 74 28 pe = scope_list(
3170: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 24 68 74 );. }. $ht
3180: 6d 6c 20 3d 20 3c 3c 3c 48 54 4d 4c 0a 0a 20 20 ml = <<<HTML..
3190: 20 20 3c 68 32 3e 4c 6f 67 69 6e 20 72 65 71 75 <h2>Login requ
31a0: 65 73 74 3c 2f 68 32 3e 0a 0a 20 20 20 20 3c 21 est</h2>.. <!
31b0: 2d 2d 20 49 6e 64 69 65 41 75 74 68 20 2d 2d 3e -- IndieAuth -->
31c0: 0a 20 20 20 20 3c 70 3e 3c 62 3e 7b 24 68 28 24 . <p><b>{$h($
31d0: 63 6c 69 65 6e 74 5f 69 64 29 7d 3c 2f 62 3e 20 client_id)}</b>
31e0: 68 61 73 20 72 65 71 75 65 73 74 65 64 20 6c 6f has requested lo
31f0: 67 69 6e 20 76 65 72 69 66 69 63 61 74 69 6f 6e gin verification
3200: 20 66 6f 72 20 3c 65 6d 3e 7b 24 68 28 24 6d 65 for <em>{$h($me
3210: 29 7d 3c 2f 65 6d 3e 2e 3c 2f 70 3e 0a 20 20 20 )}</em>.</p>.
3220: 20 3c 66 6f 72 6d 20 61 63 74 69 6f 6e 3d 27 24 <form action='$
3230: 5f 53 45 52 56 45 52 5b 50 48 50 5f 53 45 4c 46 _SERVER[PHP_SELF
3240: 5d 27 20 6d 65 74 68 6f 64 3d 50 4f 53 54 3e 0a ]' method=POST>.
3250: 20 20 20 20 20 20 3c 75 6c 20 73 74 79 6c 65 3d <ul style=
3260: 22 64 69 73 70 6c 61 79 3a 20 66 6c 65 78 3b 20 "display: flex;
3270: 66 6c 65 78 2d 77 72 61 70 3a 20 77 72 61 70 22 flex-wrap: wrap"
3280: 3e 0a 20 20 20 20 20 20 20 20 20 24 73 63 6f 70 >. $scop
3290: 65 0a 20 20 20 20 20 20 3c 2f 75 6c 3e 0a 20 20 e. </ul>.
32a0: 20 20 20 20 3c 70 3e 0a 20 20 20 20 20 20 20 20 <p>.
32b0: 3c 69 6e 70 75 74 20 74 79 70 65 3d 68 69 64 64 <input type=hidd
32c0: 65 6e 20 6e 61 6d 65 3d 63 6f 64 65 20 76 61 6c en name=code val
32d0: 75 65 3d 27 7b 24 68 28 24 63 6f 64 65 29 7d 27 ue='{$h($code)}'
32e0: 3e 0a 20 20 20 20 20 20 20 20 3c 69 6e 70 75 74 >. <input
32f0: 20 74 79 70 65 3d 68 69 64 64 65 6e 20 6e 61 6d type=hidden nam
3300: 65 3d 72 65 64 69 72 65 63 74 5f 74 61 72 67 65 e=redirect_targe
3310: 74 20 76 61 6c 75 65 3d 27 7b 24 68 28 24 75 72 t value='{$h($ur
3320: 6c 29 7d 27 3e 0a 20 20 20 20 20 20 20 20 3c 69 l)}'>. <i
3330: 6e 70 75 74 20 74 79 70 65 3d 73 75 62 6d 69 74 nput type=submit
3340: 20 6e 61 6d 65 3d 63 6f 6e 66 69 72 6d 20 76 61 name=confirm va
3350: 6c 75 65 3d 43 6f 6e 66 69 72 6d 20 73 74 79 6c lue=Confirm styl
3360: 65 3d 27 62 6f 72 64 65 72 2d 72 61 64 69 75 73 e='border-radius
3370: 3a 20 35 70 74 3b 20 70 61 64 64 69 6e 67 3a 20 : 5pt; padding:
3380: 35 70 74 20 32 35 70 74 3b 20 74 65 78 74 2d 73 5pt 25pt; text-s
3390: 68 61 64 6f 77 3a 20 31 70 74 3b 27 3e 0a 20 20 hadow: 1pt;'>.
33a0: 20 20 20 20 3c 2f 70 3e 0a 20 20 20 20 3c 2f 66 </p>. </f
33b0: 6f 72 6d 3e 0a 0a 48 54 4d 4c 3b 0a 20 20 20 20 orm>..HTML;.
33c0: 70 61 67 65 5f 68 74 6d 6c 28 24 68 74 6d 6c 29 page_html($html)
33d0: 3b 0a 7d 0a 0a 23 2d 2d 20 63 6f 6e 66 69 72 6d ;.}..#-- confirm
33e0: 20 62 75 74 74 6f 6e 20 70 72 65 73 73 65 64 2c button pressed,
33f0: 20 64 6f 20 74 68 65 20 61 63 74 75 61 6c 20 72 do the actual r
3400: 65 64 69 72 65 63 74 0a 66 75 6e 63 74 69 6f 6e edirect.function
3410: 20 63 6f 6e 66 69 72 6d 28 29 20 7b 0a 20 20 20 confirm() {.
3420: 20 69 66 20 28 21 65 6d 70 74 79 28 24 5f 50 4f if (!empty($_PO
3430: 53 54 5b 22 73 63 6f 70 65 22 5d 29 29 20 7b 0a ST["scope"])) {.
3440: 20 20 20 20 20 20 20 20 64 62 28 22 55 50 44 41 db("UPDA
3450: 54 45 20 66 78 5f 61 75 74 68 20 53 45 54 20 73 TE fx_auth SET s
3460: 63 6f 70 65 3d 3f 20 57 48 45 52 45 20 63 6f 64 cope=? WHERE cod
3470: 65 3d 3f 22 2c 20 5b 20 20 69 6d 70 6c 6f 64 65 e=?", [ implode
3480: 28 22 20 22 2c 20 24 5f 50 4f 53 54 5b 22 73 63 (" ", $_POST["sc
3490: 6f 70 65 22 5d 29 2c 20 20 24 5f 50 4f 53 54 5b ope"]), $_POST[
34a0: 22 63 6f 64 65 22 5d 20 20 5d 29 3b 0a 20 20 20 "code"] ]);.
34b0: 20 7d 0a 20 20 20 20 64 69 65 28 68 65 61 64 65 }. die(heade
34c0: 72 28 22 4c 6f 63 61 74 69 6f 6e 3a 20 24 5f 50 r("Location: $_P
34d0: 4f 53 54 5b 72 65 64 69 72 65 63 74 5f 74 61 72 OST[redirect_tar
34e0: 67 65 74 5d 22 29 29 3b 0a 7d 0a 0a 0a 23 2d 2d get]"));.}...#--
34f0: 20 73 65 6e 64 20 3f 63 6f 64 65 3d 20 76 65 72 send ?code= ver
3500: 69 66 69 63 61 74 69 6f 6e 20 72 65 73 70 6f 6e ification respon
3510: 73 65 0a 66 75 6e 63 74 69 6f 6e 20 76 65 72 69 se.function veri
3520: 66 79 5f 63 6f 64 65 28 29 20 7b 0a 20 20 20 20 fy_code() {.
3530: 68 65 61 64 65 72 28 22 43 6f 6e 74 65 6e 74 2d header("Content-
3540: 54 79 70 65 3a 20 61 70 70 6c 69 63 61 74 69 6f Type: applicatio
3550: 6e 2f 6a 73 6f 6e 22 29 3b 0a 0a 20 20 20 20 23 n/json");.. #
3560: 20 69 6e 70 75 74 0a 20 20 20 20 24 67 72 61 6e input. $gran
3570: 74 5f 74 79 70 65 20 3d 20 24 5f 52 45 51 55 45 t_type = $_REQUE
3580: 53 54 5b 22 67 72 61 6e 74 5f 74 79 70 65 22 5d ST["grant_type"]
3590: 3b 0a 20 20 20 20 24 63 6f 64 65 20 3d 20 24 5f ;. $code = $_
35a0: 52 45 51 55 45 53 54 5b 22 63 6f 64 65 22 5d 3b REQUEST["code"];
35b0: 0a 20 20 20 20 24 63 6c 69 65 6e 74 5f 69 64 20 . $client_id
35c0: 3d 20 24 5f 52 45 51 55 45 53 54 5b 22 63 6c 69 = $_REQUEST["cli
35d0: 65 6e 74 5f 69 64 22 5d 3b 0a 20 20 20 20 24 72 ent_id"];. $r
35e0: 65 64 69 72 65 63 74 5f 75 72 69 20 3d 20 24 5f edirect_uri = $_
35f0: 52 45 51 55 45 53 54 5b 22 72 65 64 69 72 65 63 REQUEST["redirec
3600: 74 5f 75 72 69 22 5d 3b 0a 20 20 20 20 24 63 6f t_uri"];. $co
3610: 64 65 5f 76 65 72 69 66 69 65 72 20 3d 20 24 5f de_verifier = $_
3620: 52 45 51 55 45 53 54 5b 22 63 6f 64 65 5f 76 65 REQUEST["code_ve
3630: 72 69 66 69 65 72 22 5d 3b 0a 20 20 20 20 0a 20 rifier"];. .
3640: 20 20 20 23 20 66 69 6e 64 20 74 6f 6b 65 6e 0a # find token.
3650: 20 20 20 20 63 6c 65 61 6e 5f 65 78 70 69 72 65 clean_expire
3660: 64 5f 74 6f 6b 65 6e 28 29 3b 0a 20 20 20 20 24 d_token();. $
3670: 74 6f 6b 65 6e 20 3d 20 67 65 74 5f 74 6f 6b 65 token = get_toke
3680: 6e 5f 62 79 5f 63 6f 64 65 28 24 63 6f 64 65 29 n_by_code($code)
3690: 5b 30 5d 3b 0a 20 20 20 20 24 63 6f 64 65 5f 63 [0];. $code_c
36a0: 68 61 6c 6c 65 6e 67 65 20 3d 20 24 74 6f 6b 65 hallenge = $toke
36b0: 6e 5b 22 63 6f 64 65 5f 63 68 61 6c 6c 65 6e 67 n["code_challeng
36c0: 65 22 5d 3b 0a 20 20 20 20 0a 20 20 20 20 23 20 e"];. . #
36d0: 63 68 65 63 6b 20 70 61 72 61 6d 73 0a 20 20 20 check params.
36e0: 20 69 66 20 28 65 6d 70 74 79 28 24 63 6f 64 65 if (empty($code
36f0: 29 20 6f 72 20 65 6d 70 74 79 28 24 63 6c 69 65 ) or empty($clie
3700: 6e 74 5f 69 64 29 20 6f 72 20 65 6d 70 74 79 28 nt_id) or empty(
3710: 24 72 65 64 69 72 65 63 74 5f 75 72 69 29 29 20 $redirect_uri))
3720: 7b 0a 20 20 20 20 20 20 20 20 24 6c 73 20 3d 20 {. $ls =
3730: 6a 6f 69 6e 28 22 2c 20 22 2c 20 61 72 72 61 79 join(", ", array
3740: 5f 64 69 66 66 28 5b 22 63 6f 64 65 22 2c 20 22 _diff(["code", "
3750: 63 6c 69 65 6e 74 5f 69 64 22 2c 20 22 72 65 64 client_id", "red
3760: 69 72 65 63 74 5f 75 72 69 22 5d 2c 20 61 72 72 irect_uri"], arr
3770: 61 79 5f 6b 65 79 73 28 24 5f 52 45 51 55 45 53 ay_keys($_REQUES
3780: 54 29 29 29 3b 0a 20 20 20 20 20 20 20 20 64 69 T)));. di
3790: 65 28 6a 73 6f 6e 5f 65 6e 63 6f 64 65 28 5b 22 e(json_encode(["
37a0: 65 72 72 6f 72 22 20 3d 3e 20 20 22 69 6e 76 61 error" => "inva
37b0: 6c 69 64 5f 72 65 71 75 65 73 74 22 2c 20 22 65 lid_request", "e
37c0: 72 72 6f 72 5f 64 65 73 63 72 69 70 74 69 6f 6e rror_description
37d0: 22 20 3d 3e 20 22 6d 69 73 73 69 6e 67 20 70 61 " => "missing pa
37e0: 72 61 6d 65 74 65 72 73 20 28 24 6c 73 29 22 5d rameters ($ls)"]
37f0: 29 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 65 6c ));. }. el
3800: 73 65 69 66 20 28 65 6d 70 74 79 28 24 74 6f 6b seif (empty($tok
3810: 65 6e 29 29 20 7b 0a 20 20 20 20 20 20 20 20 64 en)) {. d
3820: 69 65 28 6a 73 6f 6e 5f 65 6e 63 6f 64 65 28 5b ie(json_encode([
3830: 22 65 72 72 6f 72 22 20 3d 3e 20 20 22 61 63 63 "error" => "acc
3840: 65 73 73 5f 64 65 6e 69 65 64 22 2c 20 22 65 72 ess_denied", "er
3850: 72 6f 72 5f 64 65 73 63 72 69 70 74 69 6f 6e 22 ror_description"
3860: 20 3d 3e 20 22 63 6f 64 65 20 27 24 63 6f 64 65 => "code '$code
3870: 27 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 ' does not exist
3880: 20 28 70 6f 73 73 69 62 6c 79 20 65 78 70 69 72 (possibly expir
3890: 65 64 29 22 5d 29 29 3b 0a 20 20 20 20 7d 0a 20 ed)"]));. }.
38a0: 20 20 20 65 6c 73 65 69 66 20 28 28 24 74 6f 6b elseif (($tok
38b0: 65 6e 5b 22 63 6c 69 65 6e 74 5f 69 64 22 5d 20 en["client_id"]
38c0: 21 3d 20 24 63 6c 69 65 6e 74 5f 69 64 29 20 6f != $client_id) o
38d0: 72 20 28 24 74 6f 6b 65 6e 5b 22 72 65 64 69 72 r ($token["redir
38e0: 65 63 74 5f 75 72 69 22 5d 20 21 3d 20 24 72 65 ect_uri"] != $re
38f0: 64 69 72 65 63 74 5f 75 72 69 29 29 20 7b 0a 20 direct_uri)) {.
3900: 20 20 20 20 20 20 20 64 69 65 28 6a 73 6f 6e 5f die(json_
3910: 65 6e 63 6f 64 65 28 5b 22 65 72 72 6f 72 22 20 encode(["error"
3920: 3d 3e 20 20 22 69 6e 76 61 6c 69 64 5f 73 63 6f => "invalid_sco
3930: 70 65 22 2c 20 22 65 72 72 6f 72 5f 64 65 73 63 pe", "error_desc
3940: 72 69 70 74 69 6f 6e 22 20 3d 3e 20 22 63 6f 64 ription" => "cod
3950: 65 20 64 6f 65 73 20 6e 6f 74 20 6d 61 74 63 68 e does not match
3960: 20 70 72 65 76 69 6f 75 73 20 70 61 72 61 6d 73 previous params
3970: 20 28 63 6c 69 65 6e 74 5f 69 64 2c 20 72 65 64 (client_id, red
3980: 69 72 65 63 74 5f 75 72 69 29 22 5d 29 29 3b 0a irect_uri)"]));.
3990: 20 20 20 20 7d 0a 20 20 20 20 65 6c 73 65 69 66 }. elseif
39a0: 20 28 24 63 6f 64 65 5f 63 68 61 6c 6c 65 6e 67 ($code_challeng
39b0: 65 20 61 6e 64 20 62 61 73 65 36 34 5f 75 72 6c e and base64_url
39c0: 65 6e 63 6f 64 65 28 68 61 73 68 28 22 73 68 61 encode(hash("sha
39d0: 32 35 36 22 2c 20 24 63 6f 64 65 5f 76 65 72 69 256", $code_veri
39e0: 66 69 65 72 2c 20 31 29 29 20 21 3d 20 24 63 6f fier, 1)) != $co
39f0: 64 65 5f 63 68 61 6c 6c 65 6e 67 65 29 20 7b 0a de_challenge) {.
3a00: 20 20 20 20 20 20 20 20 64 69 65 28 6a 73 6f 6e die(json
3a10: 5f 65 6e 63 6f 64 65 28 5b 22 65 72 72 6f 72 22 _encode(["error"
3a20: 20 3d 3e 20 20 22 75 6e 61 75 74 68 6f 72 69 7a => "unauthoriz
3a30: 65 64 5f 63 6c 69 65 6e 74 22 2c 20 22 65 72 72 ed_client", "err
3a40: 6f 72 5f 64 65 73 63 72 69 70 74 69 6f 6e 22 20 or_description"
3a50: 3d 3e 20 22 63 6f 64 65 5f 63 68 61 6c 6c 65 6e => "code_challen
3a60: 67 65 20 64 6f 65 73 20 6e 6f 74 20 6d 61 74 63 ge does not matc
3a70: 68 20 63 6f 64 65 5f 76 65 72 69 66 69 65 72 22 h code_verifier"
3a80: 5d 29 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 65 ]));. }. e
3a90: 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 20 23 20 lse {. #
3aa0: 61 70 70 72 6f 76 65 64 0a 20 20 20 20 20 20 20 approved.
3ab0: 20 64 69 65 28 6a 73 6f 6e 5f 65 6e 63 6f 64 65 die(json_encode
3ac0: 28 5b 22 6d 65 22 20 3d 3e 20 24 74 6f 6b 65 6e (["me" => $token
3ad0: 5b 22 6d 65 22 5d 2c 20 22 73 63 6f 70 65 22 20 ["me"], "scope"
3ae0: 3d 3e 20 24 74 6f 6b 65 6e 5b 22 73 63 6f 70 65 => $token["scope
3af0: 22 5d 2c 20 22 61 63 63 65 73 73 5f 74 6f 6b 65 "], "access_toke
3b00: 6e 22 20 3d 3e 20 24 63 6f 64 65 5d 29 29 3b 0a n" => $code]));.
3b10: 20 20 20 20 7d 0a 7d 0a 0a 0a 23 2d 2d 20 72 75 }.}...#-- ru
3b20: 6e 0a 69 66 20 28 65 6d 70 74 79 28 24 5f 50 4f n.if (empty($_PO
3b30: 53 54 5b 22 72 65 64 69 72 65 63 74 5f 74 61 72 ST["redirect_tar
3b40: 67 65 74 22 5d 29 20 61 6e 64 20 21 65 6d 70 74 get"]) and !empt
3b50: 79 28 24 5f 52 45 51 55 45 53 54 5b 22 63 6f 64 y($_REQUEST["cod
3b60: 65 22 5d 29 29 20 7b 20 20 23 20 3f 63 6f 64 65 e"])) { # ?code
3b70: 3d e2 80 a6 20 77 68 65 6e 20 74 68 65 20 72 65 =… when the re
3b80: 6d 6f 74 65 20 61 70 70 20 76 65 72 69 66 69 65 mote app verifie
3b90: 73 20 74 68 65 20 72 65 73 70 6f 6e 73 65 0a 20 s the response.
3ba0: 20 20 20 76 65 72 69 66 79 5f 63 6f 64 65 28 29 verify_code()
3bb0: 3b 0a 7d 0a 65 6c 73 65 69 66 20 28 65 6d 70 74 ;.}.elseif (empt
3bc0: 79 28 24 5f 53 45 52 56 45 52 5b 22 46 4f 53 53 y($_SERVER["FOSS
3bd0: 49 4c 5f 55 53 45 52 22 5d 29 29 20 7b 20 20 20 IL_USER"])) {
3be0: 23 20 75 73 65 72 20 6d 75 73 74 20 62 65 20 73 # user must be s
3bf0: 69 67 6e 65 64 20 69 6e 20 61 74 20 74 68 69 73 igned in at this
3c00: 20 70 6f 69 6e 74 0a 20 20 20 20 70 61 67 65 5f point. page_
3c10: 68 74 6d 6c 28 22 3c 68 32 3e 4e 6f 74 20 6c 6f html("<h2>Not lo
3c20: 67 67 65 64 20 69 6e 3c 2f 68 32 3e 5c 6e 20 52 gged in</h2>\n R
3c30: 65 71 75 65 73 74 20 63 61 6e 27 74 20 62 65 20 equest can't be
3c40: 61 75 74 68 6f 72 69 7a 65 64 2c 20 75 6e 6c 65 authorized, unle
3c50: 73 73 20 79 6f 75 27 72 65 20 3c 61 20 68 72 65 ss you're <a hre
3c60: 66 3d 27 2e 2e 2f 6c 6f 67 69 6e 27 3e 6c 6f 67 f='../login'>log
3c70: 67 65 64 20 69 6e 3c 2f 61 3e 2e 22 29 3b 0a 7d ged in</a>.");.}
3c80: 0a 65 6c 73 65 69 66 20 28 21 65 6d 70 74 79 28 .elseif (!empty(
3c90: 24 5f 52 45 51 55 45 53 54 5b 22 6d 65 22 5d 29 $_REQUEST["me"])
3ca0: 29 20 7b 20 20 20 23 20 3f 6d 65 3d e2 80 a6 20 ) { # ?me=…
3cb0: 73 74 61 72 74 73 20 61 6e 20 61 75 74 68 6f 72 starts an author
3cc0: 69 7a 61 74 69 6f 6e 20 72 65 71 75 65 73 74 0a ization request.
3cd0: 20 20 20 20 70 72 6f 63 65 73 73 5f 72 65 71 75 process_requ
3ce0: 65 73 74 28 29 3b 0a 7d 0a 65 6c 73 65 69 66 20 est();.}.elseif
3cf0: 28 21 65 6d 70 74 79 28 24 5f 50 4f 53 54 5b 22 (!empty($_POST["
3d00: 63 6f 6e 66 69 72 6d 22 5d 29 29 20 7b 20 20 20 confirm"])) {
3d10: 23 20 3f 72 65 64 69 72 65 63 74 5f 74 61 72 67 # ?redirect_targ
3d20: 65 74 3d e2 80 a6 20 20 66 6f 72 20 63 6f 6e 66 et=… for conf
3d30: 69 72 6d 61 74 69 6f 6e 20 62 75 74 74 6f 6e 0a irmation button.
3d40: 20 20 20 20 63 6f 6e 66 69 72 6d 28 29 3b 0a 7d confirm();.}
3d50: 0a 65 6c 73 65 69 66 20 28 24 5f 50 4f 53 54 5b .elseif ($_POST[
3d60: 22 72 65 73 65 74 5f 64 62 22 5d 20 61 6e 64 20 "reset_db"] and
3d70: 73 74 72 73 74 72 28 24 5f 53 45 52 56 45 52 5b strstr($_SERVER[
3d80: 22 46 4f 53 53 49 4c 5f 43 41 50 41 42 49 4c 49 "FOSSIL_CAPABILI
3d90: 54 49 45 53 22 5d 2c 20 22 73 22 29 29 20 7b 0a TIES"], "s")) {.
3da0: 20 20 20 20 23 64 62 28 22 44 52 4f 50 20 54 41 #db("DROP TA
3db0: 42 4c 45 20 66 78 5f 61 75 74 68 3b 22 29 3b 0a BLE fx_auth;");.
3dc0: 7d 0a 65 6c 73 65 20 7b 0a 20 20 20 20 64 62 28 }.else {. db(
3dd0: 22 53 45 4c 45 43 54 20 31 22 29 3b 0a 20 20 20 "SELECT 1");.
3de0: 20 70 61 67 65 5f 68 74 6d 6c 28 22 0a 20 20 20 page_html(".
3df0: 20 20 20 20 3c 68 33 3e 41 75 74 68 6f 72 69 7a <h3>Authoriz
3e00: 61 74 69 6f 6e 20 65 6e 64 70 6f 69 6e 74 3c 2f ation endpoint</
3e10: 68 33 3e 0a 20 20 20 20 20 20 20 54 68 65 72 65 h3>. There
3e20: 20 77 61 73 20 6e 6f 20 3f 63 6f 64 65 3d 20 6f was no ?code= o
3e30: 72 20 3f 6d 65 3d 20 70 61 72 61 6d 65 74 65 72 r ?me= parameter
3e40: 2c 3c 62 72 3e 20 73 6f 20 6e 6f 74 20 61 6e 20 ,<br> so not an
3e50: 61 63 74 75 61 6c 20 49 6e 64 69 65 2f 4f 41 75 actual Indie/OAu
3e60: 74 68 20 72 65 71 75 65 73 74 2e 0a 20 20 20 20 th request..
3e70: 20 20 20 3c 75 6c 3e 0a 20 20 20 20 20 20 20 20 <ul>.
3e80: 20 3c 6c 69 3e 54 68 65 20 3c 63 6f 64 65 3e 66 <li>The <code>f
3e90: 78 5f 61 75 74 68 3c 2f 63 6f 64 65 3e 20 74 61 x_auth</code> ta
3ea0: 62 6c 65 20 69 73 20 6e 6f 77 20 63 6f 6e 66 69 ble is now confi
3eb0: 67 75 72 65 64 2e 0a 20 20 20 20 20 20 20 20 20 gured..
3ec0: 3c 6c 69 3e 55 73 65 72 73 20 73 74 69 6c 6c 20 <li>Users still
3ed0: 6e 65 65 64 20 74 6f 20 72 65 67 69 73 74 65 72 need to register
3ee0: 20 61 20 77 65 62 20 61 64 64 72 65 73 73 20 69 a web address i
3ef0: 6e 20 74 68 65 20 69 6e 66 6f 2f 68 6f 6d 65 70 n the info/homep
3f00: 61 67 65 20 66 69 65 6c 64 2e 20 28 53 65 65 20 age field. (See
3f10: 3c 61 20 68 72 65 66 3d 27 75 73 65 72 5f 63 6f <a href='user_co
3f20: 6e 66 69 67 27 3e 65 78 74 2f 75 73 65 72 5f 63 nfig'>ext/user_c
3f30: 6f 6e 66 69 67 3c 2f 61 3e 2e 29 0a 20 20 20 20 onfig</a>.).
3f40: 20 20 20 20 20 3c 6c 69 3e 41 6e 64 20 74 68 65 <li>And the
3f50: 6e 20 64 65 63 6c 61 72 65 20 74 68 69 73 20 65 n declare this e
3f60: 6e 64 70 6f 69 6e 74 20 6f 6e 20 74 68 65 69 72 ndpoint on their
3f70: 20 70 65 72 73 6f 6e 61 6c 20 68 6f 6d 65 70 61 personal homepa
3f80: 67 65 3a 3c 62 72 3e 0a 20 20 20 20 20 20 20 20 ge:<br>.
3f90: 20 20 20 20 20 3c 63 6f 64 65 3e 26 6c 74 3b 6c <code><l
3fa0: 69 6e 6b 20 72 65 6c 3d 61 75 74 68 6f 72 69 7a ink rel=authoriz
3fb0: 61 74 69 6f 6e 5f 65 6e 64 70 6f 69 6e 74 20 68 ation_endpoint h
3fc0: 72 65 66 3d 27 68 74 74 70 73 3a 2f 2f 24 5f 53 ref='https://$_S
3fd0: 45 52 56 45 52 5b 53 45 52 56 45 52 5f 4e 41 4d ERVER[SERVER_NAM
3fe0: 45 5d 24 5f 53 45 52 56 45 52 5b 50 48 50 5f 53 E]$_SERVER[PHP_S
3ff0: 45 4c 46 5d 27 26 67 74 3b 3c 2f 63 6f 64 65 3e ELF]'></code>
4000: 0a 20 20 20 20 20 20 20 3c 2f 75 6c 3e 0a 20 20 . </ul>.
4010: 20 20 22 29 3b 0a 20 20 20 20 69 66 20 28 73 74 ");. if (st
4020: 72 73 74 72 28 24 5f 53 45 52 56 45 52 5b 22 46 rstr($_SERVER["F
4030: 4f 53 53 49 4c 5f 43 41 50 41 42 49 4c 49 54 49 OSSIL_CAPABILITI
4040: 45 53 22 5d 2c 20 22 73 22 29 29 20 7b 0a 20 20 ES"], "s")) {.
4050: 20 20 20 20 20 20 23 70 72 69 6e 74 20 22 3c 66 #print "<f
4060: 6f 72 6d 20 61 63 74 69 6f 6e 3d 27 27 20 6d 65 orm action='' me
4070: 74 68 6f 64 3d 50 4f 53 54 3e 3c 69 6e 70 75 74 thod=POST><input
4080: 20 74 79 70 65 3d 73 75 62 6d 69 74 20 6e 61 6d type=submit nam
4090: 65 3d 72 65 73 65 74 5f 64 62 20 76 61 6c 75 65 e=reset_db value
40a0: 3d 27 72 65 73 65 74 20 66 78 5f 61 75 74 68 20 ='reset fx_auth
40b0: 74 61 62 6c 65 27 3e 3c 2f 66 6f 72 6d 3e 22 3b table'></form>";
40c0: 0a 20 20 20 20 7d 0a 7d 0a 0a 0a 3f 3e . }.}...?>