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 6a 73 6f 6e 0a 23 20 74 69 74 6c ype: json.# titl
0060: 65 3a 20 4d 69 63 72 6f 50 75 62 20 41 50 49 0a e: MicroPub API.
0070: 23 20 64 65 73 63 72 69 70 74 69 6f 6e 3a 20 41 # description: A
0080: 63 63 65 70 74 73 20 62 6c 6f 67 2f 74 69 63 6b ccepts blog/tick
0090: 65 74 2f 63 68 61 74 20 65 6e 74 72 69 65 73 20 et/chat entries
00a0: 66 72 6f 6d 20 6d 69 63 72 6f 70 75 62 20 63 6c from micropub cl
00b0: 69 65 6e 74 73 0a 23 20 76 65 72 73 69 6f 6e 3a ients.# version:
00c0: 20 30 2e 30 0a 23 20 73 74 61 74 65 3a 20 75 6e 0.0.# state: un
00d0: 74 65 73 74 65 64 0a 23 20 64 65 70 65 6e 64 73 tested.# depends
00e0: 3a 20 70 68 70 3a 73 71 6c 69 74 65 0a 23 20 64 : php:sqlite.# d
00f0: 6f 63 3a 20 68 74 74 70 73 3a 2f 2f 69 6e 64 69 oc: https://indi
0100: 65 77 65 62 2e 6f 72 67 2f 6f 62 74 61 69 6e 69 eweb.org/obtaini
0110: 6e 67 2d 61 6e 2d 61 63 63 65 73 73 2d 74 6f 6b ng-an-access-tok
0120: 65 6e 0a 23 20 63 6f 6e 66 69 67 3a 20 2d 0a 23 en.# config: -.#
0130: 0a 23 20 53 75 70 70 6f 73 65 64 20 74 6f 20 66 .# Supposed to f
0140: 65 65 64 20 6d 69 63 72 6f 70 75 62 20 72 65 71 eed micropub req
0150: 75 65 73 74 73 20 62 61 63 6b 20 69 6e 74 6f 20 uests back into
0160: 60 66 6f 73 73 69 6c 60 2e 0a 23 20 56 65 72 69 `fossil`..# Veri
0170: 66 69 65 73 20 61 75 74 68 2f 74 6f 6b 65 6e 2c fies auth/token,
0180: 20 75 6e 70 61 63 6b 73 20 72 65 71 75 65 73 74 unpacks request
0190: 20 70 61 72 61 6d 65 74 65 72 73 2c 20 61 6e 64 parameters, and
01a0: 20 69 6e 76 6f 6b 65 73 20 66 6f 73 73 69 6c 20 invokes fossil
01b0: 62 69 6e 0a 23 20 6f 6e 20 74 68 65 20 63 75 72 bin.# on the cur
01c0: 72 65 6e 74 20 2d 52 20 72 65 70 6f 73 69 74 6f rent -R reposito
01d0: 72 79 2e 0a 23 20 20 20 c2 b7 20 63 61 74 20 22 ry..# ยท cat "
01e0: 63 6f 6e 74 65 6e 74 2e 2e 2e 22 20 7c 20 66 6f content..." | fo
01f0: 73 73 69 6c 20 77 69 6b 69 20 63 72 65 61 74 65 ssil wiki create
0200: 7c 63 6f 6d 6d 69 74 20 2d 4d 20 74 65 78 74 2f |commit -M text/
0210: 78 2d 6d 61 72 6b 64 6f 77 6e 0a 23 20 20 20 c2 x-markdown.# ย
0220: b7 20 63 61 74 20 22 63 6f 6e 74 65 6e 74 2e 2e ท cat "content..
0230: 2e 22 20 7c 20 66 6f 73 73 69 6c 20 77 69 6b 69 ." | fossil wiki
0240: 20 2d 2d 74 65 63 68 6e 6f 74 65 20 2d 4d 20 74 --technote -M t
0250: 65 78 74 2f 78 2d 6d 61 72 6b 64 6f 77 6e 0a 23 ext/x-markdown.#
0260: 20 20 20 c2 b7 20 74 69 63 6b 65 74 20 61 64 64 ยท ticket add
0270: 20 43 4f 4e 54 45 4e 54 20 2e 2e 2e 20 53 54 41 CONTENT ... STA
0280: 54 55 53 20 2e 2e 2e 20 45 54 43 20 2e 2e 2e 0a TUS ... ETC ....
0290: 23 0a 23 0a 0a 69 66 20 28 24 5f 52 45 51 55 45 #.#..if ($_REQUE
02a0: 53 54 5b 22 64 62 67 22 5d 29 20 7b 0a 20 20 20 ST["dbg"]) {.
02b0: 20 65 72 72 6f 72 5f 72 65 70 6f 72 74 69 6e 67 error_reporting
02c0: 28 45 5f 41 4c 4c 29 3b 20 69 6e 69 5f 73 65 74 (E_ALL); ini_set
02d0: 28 22 64 69 73 70 6c 61 79 5f 65 72 72 6f 72 73 ("display_errors
02e0: 22 2c 20 31 29 3b 0a 7d 0a 0a 23 2d 2d 20 64 61 ", 1);.}..#-- da
02f0: 74 61 62 61 73 65 20 28 3d 3d 20 66 6f 73 73 69 tabase (== fossi
0300: 6c 20 72 65 70 6f 29 0a 66 75 6e 63 74 69 6f 6e l repo).function
0310: 20 64 62 28 24 73 71 6c 3d 22 22 2c 20 24 70 61 db($sql="", $pa
0320: 72 61 6d 73 3d 5b 5d 29 20 7b 0a 20 20 20 20 73 rams=[]) {. s
0330: 74 61 74 69 63 20 24 64 62 3b 0a 20 20 20 20 69 tatic $db;. i
0340: 66 20 28 65 6d 70 74 79 28 24 64 62 29 29 20 7b f (empty($db)) {
0350: 0a 20 20 20 20 20 20 20 20 24 64 62 20 3d 20 6e . $db = n
0360: 65 77 20 50 44 4f 28 22 73 71 6c 69 74 65 3a 24 ew PDO("sqlite:$
0370: 5f 53 45 52 56 45 52 5b 46 4f 53 53 49 4c 5f 52 _SERVER[FOSSIL_R
0380: 45 50 4f 53 49 54 4f 52 59 5d 22 29 3b 0a 20 20 EPOSITORY]");.
0390: 20 20 20 20 20 20 24 64 62 2d 3e 73 65 74 41 74 $db->setAt
03a0: 74 72 69 62 75 74 65 28 50 44 4f 3a 3a 41 54 54 tribute(PDO::ATT
03b0: 52 5f 45 52 52 4d 4f 44 45 2c 20 50 44 4f 3a 3a R_ERRMODE, PDO::
03c0: 45 52 52 4d 4f 44 45 5f 57 41 52 4e 49 4e 47 29 ERRMODE_WARNING)
03d0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 ;. }. if (
03e0: 24 70 61 72 61 6d 73 29 20 7b 0a 20 20 20 20 20 $params) {.
03f0: 20 20 20 24 73 74 6d 74 20 3d 20 24 64 62 2d 3e $stmt = $db->
0400: 70 72 65 70 61 72 65 28 24 73 71 6c 29 3b 0a 20 prepare($sql);.
0410: 20 20 20 20 20 20 20 24 73 74 6d 74 2d 3e 65 78 $stmt->ex
0420: 65 63 75 74 65 28 24 70 61 72 61 6d 73 29 3b 0a ecute($params);.
0430: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 return $
0440: 73 74 6d 74 2d 3e 66 65 74 63 68 41 6c 6c 28 29 stmt->fetchAll()
0450: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 65 6c 73 65 ;. }. else
0460: 20 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 {. retur
0470: 6e 20 24 64 62 2d 3e 71 75 65 72 79 28 24 73 71 n $db->query($sq
0480: 6c 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 23 2d 2d l);. }.}..#--
0490: 20 4a 53 4f 4e 2f 66 6f 72 6d 2d 65 6e 63 6f 64 JSON/form-encod
04a0: 65 64 20 6f 75 74 70 75 74 0a 66 75 6e 63 74 69 ed output.functi
04b0: 6f 6e 20 6a 73 6f 6e 5f 72 65 73 70 6f 6e 73 65 on json_response
04c0: 28 24 72 2c 20 24 73 74 61 74 75 73 29 20 7b 0a ($r, $status) {.
04d0: 20 20 20 20 69 66 20 28 24 73 74 61 74 75 73 29 if ($status)
04e0: 20 7b 0a 20 20 20 20 20 20 20 20 68 65 61 64 65 {. heade
04f0: 72 28 22 53 74 61 74 75 73 3a 20 24 73 74 61 74 r("Status: $stat
0500: 75 73 22 29 3b 0a 20 20 20 20 20 20 20 20 69 66 us");. if
0510: 20 28 69 73 5f 73 74 72 69 6e 67 28 24 72 29 29 (is_string($r))
0520: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 24 {. $
0530: 72 20 3d 20 5b 22 65 72 72 6f 72 22 3d 3e 22 69 r = ["error"=>"i
0540: 6e 76 61 6c 69 64 5f 72 65 71 75 65 73 74 22 2c nvalid_request",
0550: 20 22 65 72 72 6f 72 5f 64 65 73 63 72 69 70 74 "error_descript
0560: 69 6f 6e 22 3d 3e 24 72 5d 3b 0a 20 20 20 20 20 ion"=>$r];.
0570: 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 }. }. i
0580: 66 20 28 73 74 72 69 73 74 72 28 24 5f 53 45 52 f (stristr($_SER
0590: 56 45 52 5b 22 48 54 54 50 5f 41 43 43 45 50 54 VER["HTTP_ACCEPT
05a0: 22 5d 2c 20 22 2f 6a 73 6f 6e 22 29 29 20 7b 0a "], "/json")) {.
05b0: 20 20 20 20 20 20 20 20 68 65 61 64 65 72 28 22 header("
05c0: 43 6f 6e 74 65 6e 74 2d 54 79 70 65 3a 20 74 65 Content-Type: te
05d0: 78 74 2f 6a 73 6f 6e 22 29 3b 0a 20 20 20 20 20 xt/json");.
05e0: 20 20 20 64 69 65 28 6a 73 6f 6e 5f 65 6e 63 6f die(json_enco
05f0: 64 65 28 24 72 2c 20 4a 53 4f 4e 5f 50 52 45 54 de($r, JSON_PRET
0600: 54 59 5f 50 52 49 4e 54 7c 4a 53 4f 4e 5f 55 4e TY_PRINT|JSON_UN
0610: 45 53 43 41 50 45 44 5f 53 4c 41 53 48 45 53 29 ESCAPED_SLASHES)
0620: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 65 6c 73 );. }. els
0630: 65 69 66 20 28 73 74 72 69 73 74 72 28 24 5f 53 eif (stristr($_S
0640: 45 52 56 45 52 5b 22 48 54 54 50 5f 41 43 43 45 ERVER["HTTP_ACCE
0650: 50 54 22 5d 2c 20 22 2f 78 2d 77 77 77 2d 66 6f PT"], "/x-www-fo
0660: 72 6d 22 29 29 20 7b 0a 20 20 20 20 20 20 20 20 rm")) {.
0670: 68 65 61 64 65 72 28 22 43 6f 6e 74 65 6e 74 2d header("Content-
0680: 54 79 70 65 3a 20 61 70 70 6c 69 63 61 74 69 6f Type: applicatio
0690: 6e 2f 78 2d 77 77 77 2d 66 6f 72 6d 2d 75 72 6c n/x-www-form-url
06a0: 65 6e 63 6f 64 65 64 22 29 3b 0a 20 20 20 20 20 encoded");.
06b0: 20 20 20 61 72 72 61 79 5f 77 61 6c 6b 28 24 72 array_walk($r
06c0: 2c 20 66 75 6e 63 74 69 6f 6e 28 26 24 76 2c 20 , function(&$v,
06d0: 24 6b 29 20 7b 20 24 76 20 3d 20 22 24 6b 3d 22 $k) { $v = "$k="
06e0: 20 2e 20 75 72 6c 65 6e 63 6f 64 65 28 24 76 29 . urlencode($v)
06f0: 3b 20 7d 29 3b 0a 20 20 20 20 20 20 20 20 64 69 ; });. di
0700: 65 28 6a 6f 69 6e 28 22 26 22 2c 20 24 72 29 29 e(join("&", $r))
0710: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 65 6c 73 65 ;. }. else
0720: 20 7b 0a 20 20 20 20 20 20 20 20 68 65 61 64 65 {. heade
0730: 72 28 22 43 6f 6e 74 65 6e 74 2d 54 79 70 65 3a r("Content-Type:
0740: 20 74 65 78 74 2f 70 68 70 2d 73 6f 75 72 63 65 text/php-source
0750: 22 29 3b 0a 20 20 20 20 20 20 20 20 64 69 65 28 ");. die(
0760: 76 61 72 5f 65 78 70 6f 72 74 28 24 72 2c 20 54 var_export($r, T
0770: 72 75 65 29 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a rue));. }.}..
0780: 0a 23 2d 2d 20 6c 6f 61 64 20 61 75 74 68 6f 72 .#-- load author
0790: 69 7a 61 74 69 6f 6e 20 70 72 6f 70 65 72 74 69 ization properti
07a0: 65 73 20 62 79 20 61 75 74 68 20 63 6f 64 65 0a es by auth code.
07b0: 66 75 6e 63 74 69 6f 6e 20 67 65 74 5f 74 6f 6b function get_tok
07c0: 65 6e 5f 62 79 5f 63 6f 64 65 28 24 63 6f 64 65 en_by_code($code
07d0: 29 20 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 64 ) {. return d
07e0: 62 28 22 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d b("SELECT * FROM
07f0: 20 66 78 5f 61 75 74 68 20 57 48 45 52 45 20 63 fx_auth WHERE c
0800: 6f 64 65 3d 3f 20 41 4e 44 20 60 74 79 70 65 60 ode=? AND `type`
0810: 3d 3f 20 41 4e 44 20 65 78 70 69 72 65 73 3e 3f =? AND expires>?
0820: 22 2c 20 5b 24 63 6f 64 65 2c 20 27 74 6f 6b 65 ", [$code, 'toke
0830: 6e 27 2c 20 74 69 6d 65 28 29 5d 29 20 3f 3a 20 n', time()]) ?:
0840: 5b 5b 5d 5d 3b 0a 7d 0a 23 2d 2d 20 67 65 74 20 [[]];.}.#-- get
0850: 63 6f 64 65 20 66 72 6f 6d 20 41 75 74 68 6f 72 code from Author
0860: 69 7a 61 74 69 6f 6e 3a 20 68 65 61 64 65 72 0a ization: header.
0870: 66 75 6e 63 74 69 6f 6e 20 62 65 61 72 65 72 28 function bearer(
0880: 29 20 7b 0a 20 20 20 20 69 66 20 28 65 6d 70 74 ) {. if (empt
0890: 79 28 24 5f 53 45 52 56 45 52 5b 22 48 54 54 50 y($_SERVER["HTTP
08a0: 5f 41 55 54 48 4f 52 49 5a 41 54 49 4f 4e 22 5d _AUTHORIZATION"]
08b0: 29 29 20 7b 0a 20 20 20 20 20 20 20 20 20 72 65 )) {. re
08c0: 74 75 72 6e 20 22 22 3b 0a 20 20 20 20 7d 0a 20 turn "";. }.
08d0: 20 20 20 69 66 20 28 70 72 65 67 5f 6d 61 74 63 if (preg_matc
08e0: 68 28 22 2f 42 65 61 72 65 72 5c 73 2b 28 5c 53 h("/Bearer\s+(\S
08f0: 2b 29 2f 69 22 2c 20 24 5f 53 45 52 56 45 52 5b +)/i", $_SERVER[
0900: 22 48 54 54 50 5f 41 55 54 48 4f 52 49 5a 41 54 "HTTP_AUTHORIZAT
0910: 49 4f 4e 22 5d 2c 20 24 75 75 29 29 20 7b 0a 20 ION"], $uu)) {.
0920: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 return $
0930: 75 75 5b 31 5d 3b 0a 20 20 20 20 7d 0a 7d 0a 23 uu[1];. }.}.#
0940: 2d 2d 20 66 65 74 63 68 20 74 6f 6b 65 6e 20 66 -- fetch token f
0950: 6f 72 20 41 75 74 68 6f 72 69 7a 61 74 69 6f 6e or Authorization
0960: 3a 20 42 65 61 72 65 72 20 69 64 0a 66 75 6e 63 : Bearer id.func
0970: 74 69 6f 6e 20 67 65 74 5f 74 6f 6b 65 6e 28 24 tion get_token($
0980: 61 63 63 65 73 73 5f 74 6f 6b 65 6e 3d 4e 55 4c access_token=NUL
0990: 4c 29 20 7b 0a 20 20 20 20 23 20 66 69 6e 64 20 L) {. # find
09a0: 41 75 74 68 3a 20 74 6f 6b 65 6e 0a 20 20 20 20 Auth: token.
09b0: 24 63 6f 64 65 20 3d 20 24 61 63 63 65 73 73 5f $code = $access_
09c0: 74 6f 6b 65 6e 20 3f 3a 20 62 65 61 72 65 72 28 token ?: bearer(
09d0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 67 65 );. return ge
09e0: 74 5f 74 6f 6b 65 6e 5f 62 79 5f 63 6f 64 65 28 t_token_by_code(
09f0: 24 63 6f 64 65 29 5b 30 5d 3b 0a 7d 0a 0a 23 2d $code)[0];.}..#-
0a00: 2d 20 61 6c 69 61 73 20 66 6f 72 20 67 65 6e 65 - alias for gene
0a10: 72 69 63 20 74 79 70 65 73 20 74 6f 20 66 6f 73 ric types to fos
0a20: 73 69 6c 20 69 74 65 6d 73 0a 66 75 6e 63 74 69 sil items.functi
0a30: 6f 6e 20 73 63 6f 70 65 5f 6d 61 70 28 24 68 5f on scope_map($h_
0a40: 74 79 70 65 29 20 7b 0a 20 20 20 20 24 68 5f 74 type) {. $h_t
0a50: 79 70 65 20 3d 20 70 72 65 67 5f 72 65 70 6c 61 ype = preg_repla
0a60: 63 65 28 22 2f 5e 68 2d 22 2c 20 22 22 2c 20 24 ce("/^h-", "", $
0a70: 68 5f 74 79 70 65 29 3b 0a 20 20 20 20 24 6d 61 h_type);. $ma
0a80: 70 20 3d 20 5b 0a 20 20 20 20 20 20 20 20 20 22 p = [. "
0a90: 65 6e 74 72 79 22 20 3d 3e 20 22 74 65 63 68 6e entry" => "techn
0aa0: 6f 74 65 22 2c 0a 20 20 20 20 20 20 20 20 20 22 ote",. "
0ab0: 69 73 73 75 65 22 20 3d 3e 20 22 74 69 63 6b 65 issue" => "ticke
0ac0: 74 22 2c 0a 20 20 20 20 20 20 20 20 20 22 65 76 t",. "ev
0ad0: 65 6e 74 22 20 3d 3e 20 22 63 68 61 74 22 2c 0a ent" => "chat",.
0ae0: 20 20 20 20 20 20 20 20 20 22 63 69 74 65 22 20 "cite"
0af0: 3d 3e 20 22 77 69 6b 69 22 2c 0a 20 20 20 20 5d => "wiki",. ]
0b00: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 24 6d 61 ;. return $ma
0b10: 70 5b 24 68 5f 74 79 70 65 5d 20 3f 3a 20 24 68 p[$h_type] ?: $h
0b20: 5f 74 79 70 65 3b 0a 7d 0a 23 20 63 68 65 63 6b _type;.}.# check
0b30: 20 69 66 20 72 65 71 75 65 73 74 20 61 63 74 69 if request acti
0b40: 6f 6e 2b 74 79 70 65 20 65 6e 74 72 79 20 61 6c on+type entry al
0b50: 6c 20 6d 61 74 63 68 20 74 6f 6b 65 6e 20 73 63 l match token sc
0b60: 6f 70 65 73 0a 66 75 6e 63 74 69 6f 6e 20 76 65 opes.function ve
0b70: 72 69 66 79 5f 73 63 6f 70 65 28 24 74 6f 6b 65 rify_scope($toke
0b80: 6e 3d 5b 5d 2c 20 24 73 63 6f 70 65 73 3d 5b 5d n=[], $scopes=[]
0b90: 29 20 7b 0a 20 20 20 20 70 72 65 67 5f 6d 61 74 ) {. preg_mat
0ba0: 63 68 5f 61 6c 6c 28 22 2f 28 5c 77 2b 29 2f 22 ch_all("/(\w+)/"
0bb0: 2c 20 24 74 6f 6b 65 6e 5b 22 73 63 6f 70 65 22 , $token["scope"
0bc0: 5d 2c 20 24 73 63 6f 70 65 5f 6c 73 29 3b 0a 20 ], $scope_ls);.
0bd0: 20 20 20 24 6f 6b 20 3d 20 4e 55 4c 4c 3b 0a 20 $ok = NULL;.
0be0: 20 20 20 23 20 63 6f 6d 61 70 61 72 65 20 61 67 # comapare ag
0bf0: 61 69 6e 73 74 20 74 6f 6b 65 6e 20 73 63 6f 70 ainst token scop
0c00: 65 20 6c 69 73 74 0a 20 20 20 20 66 6f 72 65 61 e list. forea
0c10: 63 68 20 28 24 73 63 6f 70 65 73 20 61 73 20 24 ch ($scopes as $
0c20: 74 29 20 7b 0a 20 20 20 20 20 20 20 20 24 6f 6b t) {. $ok
0c30: 20 3d 20 28 24 61 20 21 3d 3d 20 46 61 6c 73 65 = ($a !== False
0c40: 29 20 26 26 20 69 6e 5f 61 72 72 61 79 28 73 63 ) && in_array(sc
0c50: 6f 70 65 5f 6d 61 70 28 24 74 29 2c 20 24 73 63 ope_map($t), $sc
0c60: 6f 70 65 5f 6c 73 5b 31 5d 29 3b 0a 20 20 20 20 ope_ls[1]);.
0c70: 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 24 6f 6b }. return $ok
0c80: 3b 0a 7d 0a 0a 23 2d 2d 20 74 72 61 6e 73 66 6f ;.}..#-- transfo
0c90: 72 6d 20 24 5f 50 4f 53 54 20 74 6f 20 4a 53 4f rm $_POST to JSO
0ca0: 4e 20 62 6f 64 79 0a 66 75 6e 63 74 69 6f 6e 20 N body.function
0cb0: 72 65 71 75 65 73 74 28 29 20 7b 0a 20 20 20 20 request() {.
0cc0: 69 66 20 28 70 72 65 67 5f 6d 61 74 63 68 28 22 if (preg_match("
0cd0: 7e 5e 5c 73 28 61 70 70 6c 69 63 61 74 69 6f 6e ~^\s(application
0ce0: 7c 74 65 78 74 7c 6a 73 6f 6e 29 2f 6a 73 6f 6e |text|json)/json
0cf0: 5c 73 28 3b 7c 24 29 7e 22 2c 20 24 5f 53 45 52 \s(;|$)~", $_SER
0d00: 56 45 52 5b 22 48 54 54 50 5f 43 4f 4e 54 45 4e VER["HTTP_CONTEN
0d10: 54 5f 54 59 50 45 22 5d 29 29 20 7b 0a 20 20 20 T_TYPE"])) {.
0d20: 20 20 20 20 20 24 6a 73 6f 6e 20 3d 20 6a 73 6f $json = jso
0d30: 6e 5f 64 65 63 6f 64 65 28 66 69 6c 65 5f 67 65 n_decode(file_ge
0d40: 74 5f 63 6f 6e 74 65 6e 74 73 28 22 70 68 70 3a t_contents("php:
0d50: 2f 2f 69 6e 70 75 74 22 29 2c 20 54 72 75 65 29 //input"), True)
0d60: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 65 6c 73 65 ;. }. else
0d70: 69 66 20 28 63 6f 75 6e 74 28 24 5f 50 4f 53 54 if (count($_POST
0d80: 29 29 20 7b 0a 20 20 20 20 20 20 20 20 24 6a 73 )) {. $js
0d90: 6f 6e 20 3d 20 5b 0a 20 20 20 20 20 20 20 20 20 on = [.
0da0: 20 20 20 22 71 22 20 3d 3e 20 22 24 5f 50 4f 53 "q" => "$_POS
0db0: 54 5b 71 5d 22 2c 0a 20 20 20 20 20 20 20 20 20 T[q]",.
0dc0: 20 20 20 22 74 79 70 65 22 20 3d 3e 20 22 68 2d "type" => "h-
0dd0: 24 5f 50 4f 53 54 5b 68 5d 22 2c 0a 20 20 20 20 $_POST[h]",.
0de0: 20 20 20 20 20 20 20 20 22 70 72 6f 70 65 72 74 "propert
0df0: 69 65 73 22 20 3d 3e 20 61 72 72 61 79 5f 6d 61 ies" => array_ma
0e00: 70 28 66 75 6e 63 74 69 6f 6e 20 28 24 76 29 20 p(function ($v)
0e10: 7b 20 72 65 74 75 72 6e 20 5b 24 76 5d 3b 20 7d { return [$v]; }
0e20: 2c 20 24 5f 50 4f 53 54 29 2c 0a 20 20 20 20 20 , $_POST),.
0e30: 20 20 20 5d 3b 0a 20 20 20 20 7d 0a 20 20 20 20 ];. }.
0e40: 72 65 74 75 72 6e 20 24 5f 50 4f 53 54 20 3d 20 return $_POST =
0e50: 24 6a 73 6f 6e 3b 0a 7d 0a 0a 0a 23 2d 2d 20 74 $json;.}...#-- t
0e60: 72 61 6e 73 66 6f 72 6d 20 70 6f 73 74 20 74 6f ransform post to
0e70: 20 66 6f 73 73 69 6c 20 63 6f 6d 6d 61 6e 64 0a fossil command.
0e80: 63 6c 61 73 73 20 63 72 65 61 74 65 20 7b 0a 0a class create {..
0e90: 20 20 20 20 70 75 62 6c 69 63 20 24 74 6f 6b 65 public $toke
0ea0: 6e 20 3d 20 5b 5d 3b 0a 20 20 20 20 70 75 62 6c n = [];. publ
0eb0: 69 63 20 24 75 72 6c 20 3d 20 22 22 3b 0a 0a 20 ic $url = "";..
0ec0: 20 20 20 23 20 64 69 73 70 61 74 63 68 20 60 74 # dispatch `t
0ed0: 79 70 65 60 20 6f 6e 74 6f 20 66 75 6e 63 74 69 ype` onto functi
0ee0: 6f 6e 73 0a 20 20 20 20 66 75 6e 63 74 69 6f 6e ons. function
0ef0: 20 5f 5f 63 6f 6e 73 74 72 75 63 74 28 24 70 6f __construct($po
0f00: 73 74 2c 20 24 74 6f 6b 65 6e 29 20 7b 0a 20 20 st, $token) {.
0f10: 20 20 20 20 20 20 24 74 68 69 73 2d 3e 74 6f 6b $this->tok
0f20: 65 6e 20 3d 20 24 74 6f 6b 65 6e 3b 0a 20 20 20 en = $token;.
0f30: 20 20 20 20 20 24 61 63 74 69 6f 6e 20 3d 20 24 $action = $
0f40: 70 6f 73 74 5b 22 61 63 74 69 6f 6e 22 5d 3b 0a post["action"];.
0f50: 20 20 20 20 20 20 20 20 24 74 79 70 65 20 3d 20 $type =
0f60: 73 63 6f 70 65 5f 6d 61 70 28 24 70 6f 73 74 5b scope_map($post[
0f70: 22 74 79 70 65 22 5d 29 3b 0a 20 20 20 20 20 20 "type"]);.
0f80: 20 20 69 66 20 28 6d 65 74 68 6f 64 5f 65 78 69 if (method_exi
0f90: 73 74 73 28 24 74 68 69 73 2c 20 24 74 79 70 65 sts($this, $type
0fa0: 29 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 )) {.
0fb0: 20 24 72 20 3d 20 63 61 6c 6c 5f 75 73 65 72 5f $r = call_user_
0fc0: 66 75 6e 63 28 5b 24 74 68 69 73 2c 20 24 74 79 func([$this, $ty
0fd0: 70 65 5d 2c 20 24 70 6f 73 74 5b 22 70 72 6f 70 pe], $post["prop
0fe0: 65 72 74 69 65 73 22 5d 29 3b 0a 20 20 20 20 20 erties"]);.
0ff0: 20 20 20 20 20 20 20 69 66 20 28 21 24 74 68 69 if (!$thi
1000: 73 2d 3e 75 72 6c 29 20 7b 0a 20 20 20 20 20 20 s->url) {.
1010: 20 20 20 20 20 20 20 20 20 20 24 74 68 69 73 2d $this-
1020: 3e 6e 65 77 5f 75 72 6c 28 22 22 2c 20 24 72 29 >new_url("", $r)
1030: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a ;. }.
1040: 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 if (
1050: 24 74 68 69 73 2d 3e 75 72 6c 29 20 7b 0a 20 20 $this->url) {.
1060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 65 he
1070: 61 64 65 72 28 22 4c 6f 63 61 74 69 6f 6e 3a 20 ader("Location:
1080: 24 74 68 69 73 2d 3e 75 72 6c 22 29 3b 0a 20 20 $this->url");.
1090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6a 73 js
10a0: 6f 6e 5f 72 65 73 70 6f 6e 73 65 28 5b 22 72 65 on_response(["re
10b0: 73 75 6c 74 22 3d 3e 22 24 72 22 5d 2c 20 22 32 sult"=>"$r"], "2
10c0: 30 31 20 43 72 65 61 74 65 64 22 29 3b 0a 20 20 01 Created");.
10d0: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 }.
10e0: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 6a 73 }. js
10f0: 6f 6e 5f 72 65 73 70 6f 6e 73 65 28 22 55 6e 6b on_response("Unk
1100: 6e 6f 77 6e 20 68 2d 74 79 70 65 3a 20 60 24 74 nown h-type: `$t
1110: 79 70 65 60 22 2c 20 22 34 30 30 20 4e 6f 22 29 ype`", "400 No")
1120: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 67 ;. }.. # g
1130: 72 65 70 20 6e 65 77 20 4c 6f 63 61 74 69 6f 6e rep new Location
1140: 3a 20 75 72 6c 20 66 72 6f 6d 20 66 6f 73 73 69 : url from fossi
1150: 6c 20 63 6f 6d 6d 61 6e 64 20 6f 75 74 70 75 74 l command output
1160: 0a 20 20 20 20 66 75 6e 63 74 69 6f 6e 20 6e 65 . function ne
1170: 77 5f 75 72 6c 28 24 70 61 74 68 2c 20 24 72 3d w_url($path, $r=
1180: 22 22 29 20 7b 0a 20 20 20 20 20 20 20 20 69 66 "") {. if
1190: 20 28 70 72 65 67 5f 6d 61 74 63 68 28 22 2f 43 (preg_match("/C
11a0: 72 65 61 74 65 64 20 6e 65 77 20 77 69 6b 69 20 reated new wiki
11b0: 70 61 67 65 20 28 2e 2b 29 5c 2e 2f 69 22 2c 20 page (.+)\./i",
11c0: 24 72 2c 20 24 75 75 29 29 20 7b 0a 20 20 20 20 $r, $uu)) {.
11d0: 20 20 20 20 20 20 20 20 24 70 61 74 68 20 3d 20 $path =
11e0: 22 2f 77 69 6b 69 2f 24 75 75 5b 31 5d 22 3b 0a "/wiki/$uu[1]";.
11f0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
1200: 20 20 65 6c 73 65 69 66 20 28 70 72 65 67 5f 6d elseif (preg_m
1210: 61 74 63 68 28 22 2f 43 72 65 61 74 65 64 20 6e atch("/Created n
1220: 65 77 20 74 65 63 68 20 6e 6f 74 65 20 28 5b 5c ew tech note ([\
1230: 64 5c 2d 3a 2e 5c 73 5d 2b 29 24 2f 69 6d 22 2c d\-:.\s]+)$/im",
1240: 20 24 72 2c 20 24 75 75 29 29 20 7b 0a 20 20 20 $r, $uu)) {.
1250: 20 20 20 20 20 20 20 20 20 69 66 20 28 70 72 65 if (pre
1260: 67 5f 6d 61 74 63 68 28 22 2f 28 5c 77 2b 29 20 g_match("/(\w+)
1270: 24 75 75 5b 31 5d 2f 22 2c 20 24 74 68 69 73 2d $uu[1]/", $this-
1280: 3e 66 6f 73 73 69 6c 28 5b 22 77 69 6b 69 22 2c >fossil(["wiki",
1290: 22 6c 69 73 74 22 2c 22 2d 74 22 2c 22 2d 73 22 "list","-t","-s"
12a0: 5d 29 2c 20 24 75 75 29 29 20 7b 0a 20 20 20 20 ]), $uu)) {.
12b0: 20 20 20 20 20 20 20 20 20 20 20 20 24 70 61 74 $pat
12c0: 68 20 3d 20 22 2f 74 65 63 68 6e 6f 74 65 2f 24 h = "/technote/$
12d0: 75 75 5b 31 5d 22 3b 0a 20 20 20 20 20 20 20 20 uu[1]";.
12e0: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a }. }.
12f0: 20 20 20 20 20 20 20 20 65 6c 73 65 69 66 20 28 elseif (
1300: 70 72 65 67 5f 6d 61 74 63 68 28 22 2f 74 69 63 preg_match("/tic
1310: 6b 65 74 20 61 64 64 20 73 75 63 63 65 65 64 65 ket add succeede
1320: 64 20 66 6f 72 20 28 5c 77 2b 29 2f 69 22 2c 20 d for (\w+)/i",
1330: 24 72 2c 20 24 75 75 29 29 20 7b 0a 20 20 20 20 $r, $uu)) {.
1340: 20 20 20 20 20 20 20 20 24 70 61 74 68 20 3d 20 $path =
1350: 22 2f 74 69 63 6b 65 74 2f 24 75 75 5b 31 5d 22 "/ticket/$uu[1]"
1360: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 ;. }.
1370: 20 20 20 20 24 74 68 69 73 2d 3e 75 72 6c 20 3d $this->url =
1380: 20 70 72 65 67 5f 72 65 70 6c 61 63 65 28 22 2f preg_replace("/
1390: 65 78 74 2f 5c 77 2b 22 2c 20 22 22 2c 20 22 68 ext/\w+", "", "h
13a0: 74 74 70 73 3a 2f 2f 24 5f 53 45 52 56 45 52 5b ttps://$_SERVER[
13b0: 53 45 52 56 45 52 5f 4e 41 4d 45 5d 24 5f 53 45 SERVER_NAME]$_SE
13c0: 52 56 45 52 5b 50 48 50 5f 53 45 4c 46 5d 24 70 RVER[PHP_SELF]$p
13d0: 61 74 68 22 29 3b 0a 20 20 20 20 7d 0a 20 20 20 ath");. }.
13e0: 20 0a 20 20 20 20 66 75 6e 63 74 69 6f 6e 20 74 . function t
13f0: 65 63 68 6e 6f 74 65 28 24 70 2c 20 24 61 63 74 echnote($p, $act
1400: 3d 22 63 72 65 61 74 65 22 29 20 7b 0a 20 20 20 ="create") {.
1410: 20 20 20 20 20 23 20 26 63 6f 6e 74 65 6e 74 3d # &content=
1420: 0a 20 20 20 20 20 20 20 20 23 20 26 63 61 74 65 . # &cate
1430: 67 6f 72 79 5b 5d 3d 0a 20 20 20 20 20 20 20 20 gory[]=.
1440: 24 61 72 67 73 20 3d 20 5b 22 77 69 6b 69 22 2c $args = ["wiki",
1450: 20 22 24 61 63 74 22 2c 20 22 2d 2d 74 65 63 68 "$act", "--tech
1460: 6e 6f 74 65 22 2c 20 28 24 74 68 69 73 2d 3e 69 note", ($this->i
1470: 64 20 3f 3a 20 22 6e 6f 77 22 29 2c 20 22 2d 2d d ?: "now"), "--
1480: 6d 69 6d 65 74 79 70 65 22 2c 20 22 74 65 78 74 mimetype", "text
1490: 2f 78 2d 6d 61 72 6b 64 6f 77 6e 22 2c 20 22 2d /x-markdown", "-
14a0: 22 5d 3b 0a 20 20 20 20 20 20 20 20 69 66 20 28 "];. if (
14b0: 24 70 5b 22 63 61 74 65 67 6f 72 79 22 5d 29 20 $p["category"])
14c0: 7b 20 24 61 72 67 73 20 2b 3d 20 5b 22 2d 2d 74 { $args += ["--t
14d0: 65 63 68 6e 6f 74 65 2d 74 61 67 73 22 2c 20 69 echnote-tags", i
14e0: 6d 70 6c 6f 64 65 28 22 2c 22 2c 20 24 70 5b 22 mplode(",", $p["
14f0: 63 61 74 65 67 6f 72 79 22 5d 29 5d 3b 20 7d 0a category"])]; }.
1500: 20 20 20 20 20 20 20 20 24 6d 64 20 3d 20 6a 6f $md = jo
1510: 69 6e 28 22 5c 6e 22 2c 20 24 70 5b 22 63 6f 6e in("\n", $p["con
1520: 74 65 6e 74 22 5d 29 3b 0a 20 20 20 20 20 20 20 tent"]);.
1530: 20 72 65 74 75 72 6e 20 24 74 68 69 73 2d 3e 66 return $this->f
1540: 6f 73 73 69 6c 28 24 61 72 67 73 2c 20 24 6d 64 ossil($args, $md
1550: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 66 75 );. }.. fu
1560: 6e 63 74 69 6f 6e 20 77 69 6b 69 28 24 70 2c 20 nction wiki($p,
1570: 24 61 63 74 3d 22 63 72 65 61 74 65 22 29 20 7b $act="create") {
1580: 0a 20 20 20 20 20 20 20 20 23 20 26 74 69 74 6c . # &titl
1590: 65 3d 0a 20 20 20 20 20 20 20 20 23 20 26 63 6f e=. # &co
15a0: 6e 74 65 6e 74 3d 0a 20 20 20 20 20 20 20 20 23 ntent=. #
15b0: 20 26 63 61 74 65 67 6f 72 79 5b 5d 3d 0a 20 20 &category[]=.
15c0: 20 20 20 20 20 20 24 61 72 67 73 20 3d 20 5b 22 $args = ["
15d0: 77 69 6b 69 22 2c 20 22 24 61 63 74 22 2c 20 22 wiki", "$act", "
15e0: 2d 2d 6d 69 6d 65 74 79 70 65 22 2c 20 22 74 65 --mimetype", "te
15f0: 78 74 2f 78 2d 6d 61 72 6b 64 6f 77 6e 22 2c 20 xt/x-markdown",
1600: 28 24 74 68 69 73 2d 3e 69 64 20 3f 3a 20 24 70 ($this->id ?: $p
1610: 5b 22 74 69 74 6c 65 22 5d 5b 30 5d 29 5d 3b 0a ["title"][0])];.
1620: 20 20 20 20 20 20 20 20 24 6d 64 20 3d 20 6a 6f $md = jo
1630: 69 6e 28 22 5c 6e 22 2c 20 24 70 5b 22 63 6f 6e in("\n", $p["con
1640: 74 65 6e 74 22 5d 29 3b 0a 20 20 20 20 20 20 20 tent"]);.
1650: 20 72 65 74 75 72 6e 20 24 74 68 69 73 2d 3e 66 return $this->f
1660: 6f 73 73 69 6c 28 24 61 72 67 73 2c 20 24 6d 64 ossil($args, $md
1670: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 66 75 );. }.. fu
1680: 6e 63 74 69 6f 6e 20 74 69 63 6b 65 74 28 24 70 nction ticket($p
1690: 2c 20 24 61 72 67 73 3d 5b 22 74 69 63 6b 65 74 , $args=["ticket
16a0: 22 2c 20 22 61 64 64 22 5d 29 20 7b 0a 20 20 20 ", "add"]) {.
16b0: 20 20 20 20 20 23 20 63 6f 6d 6d 65 6e 74 20 74 # comment t
16c0: 79 70 65 09 73 74 61 74 75 73 09 73 75 62 73 79 ype.status.subsy
16d0: 73 74 65 6d 09 70 72 69 6f 72 69 74 79 09 73 65 stem.priority.se
16e0: 76 65 72 69 74 79 09 66 6f 75 6e 64 69 6e 09 70 verity.foundin.p
16f0: 72 69 76 61 74 65 5f 63 6f 6e 74 61 63 74 09 72 rivate_contact.r
1700: 65 73 6f 6c 75 74 69 6f 6e 09 74 69 74 6c 65 09 esolution.title.
1710: 63 6f 6d 6d 65 6e 74 0a 20 20 20 20 20 20 20 20 comment.
1720: 24 6d 61 70 20 3d 20 5b 22 74 79 70 65 22 3d 3e $map = ["type"=>
1730: 22 74 79 70 65 22 2c 20 22 73 75 6d 6d 61 72 79 "type", "summary
1740: 22 3d 3e 22 74 69 74 6c 65 22 2c 20 22 63 6f 6e "=>"title", "con
1750: 74 65 6e 74 22 3d 3e 22 63 6f 6d 6d 65 6e 74 22 tent"=>"comment"
1760: 2c 20 22 70 72 69 6f 72 69 74 79 22 3d 3e 22 70 , "priority"=>"p
1770: 72 69 6f 72 69 74 79 22 2c 20 22 73 65 76 65 72 riority", "sever
1780: 69 74 79 22 3d 3e 22 73 65 76 65 72 69 74 79 22 ity"=>"severity"
1790: 2c 20 22 63 61 74 65 67 6f 72 79 22 3d 3e 22 73 , "category"=>"s
17a0: 75 62 73 79 73 74 65 6d 22 2c 20 22 76 65 72 73 ubsystem", "vers
17b0: 69 6f 6e 22 3d 3e 22 66 6f 75 6e 64 69 6e 22 2c ion"=>"foundin",
17c0: 20 22 63 6f 6e 74 61 63 74 22 3d 3e 22 70 72 69 "contact"=>"pri
17d0: 76 61 74 65 5f 63 6f 6e 74 61 63 74 22 5d 3b 0a vate_contact"];.
17e0: 20 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 foreach
17f0: 28 24 6d 61 70 20 61 73 20 24 66 72 6f 6d 3d 3e ($map as $from=>
1800: 24 74 6f 29 20 7b 0a 20 20 20 20 20 20 20 20 20 $to) {.
1810: 20 20 20 69 66 20 28 24 70 5b 24 66 72 6f 6d 5d if ($p[$from]
1820: 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ) {.
1830: 20 20 20 20 24 61 72 67 73 5b 5d 20 3d 20 24 74 $args[] = $t
1840: 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 o;.
1850: 20 20 20 24 61 72 67 73 5b 5d 20 3d 20 69 6d 70 $args[] = imp
1860: 6c 6f 64 65 28 22 2c 20 22 2c 20 24 70 5b 24 66 lode(", ", $p[$f
1870: 72 6f 6d 5d 29 3b 0a 20 20 20 20 20 20 20 20 20 rom]);.
1880: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 }. }.
1890: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 74 return $t
18a0: 68 69 73 2d 3e 66 6f 73 73 69 6c 28 24 61 72 67 his->fossil($arg
18b0: 73 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 66 s);. }.. f
18c0: 75 6e 63 74 69 6f 6e 20 63 68 61 74 28 24 70 2c unction chat($p,
18d0: 20 24 61 63 74 3d 22 73 65 6e 64 22 29 20 7b 0a $act="send") {.
18e0: 20 20 20 20 20 20 20 20 24 61 72 67 73 20 3d 20 $args =
18f0: 5b 22 63 68 61 74 22 2c 20 22 73 65 6e 64 22 2c ["chat", "send",
1900: 20 22 2d 6d 22 2c 20 24 70 5b 22 63 6f 6e 74 65 "-m", $p["conte
1910: 6e 74 22 5d 5d 3b 0a 20 20 20 20 20 20 20 20 69 nt"]];. i
1920: 66 20 28 63 6f 75 6e 74 28 24 5f 46 49 4c 45 53 f (count($_FILES
1930: 29 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 )) {.
1940: 20 24 61 72 67 73 20 2b 3d 20 5b 22 2d 66 22 2c $args += ["-f",
1950: 20 63 75 72 72 65 6e 74 28 24 5f 46 49 4c 45 53 current($_FILES
1960: 29 5b 22 74 6d 70 5f 6e 61 6d 65 22 5d 5d 3b 0a )["tmp_name"]];.
1970: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
1980: 20 20 24 5f 46 49 4c 45 53 20 3d 20 5b 5d 3b 0a $_FILES = [];.
1990: 20 20 20 20 20 20 20 20 24 74 68 69 73 2d 3e 6e $this->n
19a0: 65 77 5f 75 72 6c 28 22 2f 63 68 61 74 2f 23 22 ew_url("/chat/#"
19b0: 20 2e 20 6d 64 35 28 72 61 6e 64 28 29 29 29 3b . md5(rand()));
19c0: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 . return
19d0: 24 74 68 69 73 2d 3e 66 6f 73 73 69 6c 28 24 61 $this->fossil($a
19e0: 72 67 73 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 rgs);. }..
19f0: 20 23 20 61 20 62 69 74 20 6d 6f 72 65 20 65 73 # a bit more es
1a00: 63 61 70 69 6e 67 0a 20 20 20 20 73 74 61 74 69 caping. stati
1a10: 63 20 66 75 6e 63 74 69 6f 6e 20 65 73 63 28 24 c function esc($
1a20: 73 29 20 7b 0a 20 20 20 20 20 20 20 20 69 66 20 s) {. if
1a30: 28 69 73 5f 61 72 72 61 79 28 24 73 29 29 20 7b (is_array($s)) {
1a40: 20 24 73 20 3d 20 69 6d 70 6c 6f 64 65 28 22 20 $s = implode("
1a50: 22 2c 20 24 73 29 3b 20 7d 20 20 2f 2f 20 6a 6f ", $s); } // jo
1a60: 69 6e 20 61 6e 79 20 6c 69 73 74 0a 20 20 20 20 in any list.
1a70: 20 20 20 20 24 73 20 3d 20 70 72 65 67 5f 72 65 $s = preg_re
1a80: 70 6c 61 63 65 28 22 2f 5b 5e 5c 5c 72 5c 5c 6e place("/[^\\r\\n
1a90: 5c 5c 74 5c 5c 78 32 30 2d 5c 5c 78 46 46 5d 2f \\t\\x20-\\xFF]/
1aa0: 22 2c 20 22 22 2c 20 24 73 29 3b 20 2f 2f 20 73 ", "", $s); // s
1ab0: 74 72 69 70 20 63 6f 6e 74 72 6f 6c 20 63 68 61 trip control cha
1ac0: 72 61 63 74 65 72 73 0a 20 20 20 20 20 20 20 20 racters.
1ad0: 72 65 74 75 72 6e 20 65 73 63 61 70 65 73 68 65 return escapeshe
1ae0: 6c 6c 61 72 67 28 24 73 29 3b 20 20 2f 2f 20 71 llarg($s); // q
1af0: 75 6f 74 65 20 66 6f 72 20 73 68 65 6c 6c 0a 20 uote for shell.
1b00: 20 20 20 7d 0a 0a 20 20 20 20 23 20 69 6e 76 6f }.. # invo
1b10: 6b 65 20 66 6f 73 73 69 6c 20 62 69 6e 61 72 79 ke fossil binary
1b20: 20 77 69 74 68 20 65 73 63 61 70 65 64 20 61 72 with escaped ar
1b30: 67 75 6d 65 6e 74 73 2c 20 61 6e 64 20 70 6f 73 guments, and pos
1b40: 73 69 62 6c 79 20 70 69 70 69 6e 67 20 63 6f 6e sibly piping con
1b50: 74 65 6e 74 20 61 73 20 73 74 64 69 6e 0a 20 20 tent as stdin.
1b60: 20 20 66 75 6e 63 74 69 6f 6e 20 66 6f 73 73 69 function fossi
1b70: 6c 28 24 61 72 67 73 2c 20 24 69 6e 70 75 74 29 l($args, $input)
1b80: 20 7b 0a 20 20 20 20 20 20 20 20 24 62 69 6e 20 {. $bin
1b90: 3d 20 22 66 6f 73 73 69 6c 22 3b 0a 20 20 20 20 = "fossil";.
1ba0: 20 20 20 20 24 61 72 67 73 20 3d 20 5b 22 2d 52 $args = ["-R
1bb0: 22 2c 20 24 5f 53 45 52 56 45 52 5b 22 46 4f 53 ", $_SERVER["FOS
1bc0: 53 49 4c 5f 52 45 50 4f 53 49 54 4f 52 59 22 5d SIL_REPOSITORY"]
1bd0: 5d 20 2b 20 24 61 72 67 73 3b 0a 20 20 20 20 20 ] + $args;.
1be0: 20 20 20 24 61 72 67 73 20 3d 20 5b 24 62 69 6e $args = [$bin
1bf0: 5d 20 2b 20 61 72 72 61 79 5f 6d 61 70 28 22 63 ] + array_map("c
1c00: 72 65 61 74 65 3a 3a 65 73 63 22 2c 20 24 61 72 reate::esc", $ar
1c10: 67 73 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 gs);. if
1c20: 28 65 6d 70 74 79 28 24 69 6e 70 75 74 29 29 20 (empty($input))
1c30: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 78 {. ex
1c40: 65 63 28 69 6d 70 6c 6f 64 65 28 22 20 22 2c 20 ec(implode(" ",
1c50: 24 61 72 67 73 29 2c 20 24 73 74 64 6f 75 74 29 $args), $stdout)
1c60: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 ;. re
1c70: 74 75 72 6e 20 69 6d 70 6c 6f 64 65 28 22 5c 6e turn implode("\n
1c80: 22 2c 20 24 73 74 64 6f 75 74 29 3b 0a 20 20 20 ", $stdout);.
1c90: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 65 }. e
1ca0: 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 20 20 20 lse {.
1cb0: 20 20 24 70 69 70 65 73 70 65 63 20 3d 20 5b 5b $pipespec = [[
1cc0: 22 70 69 70 65 22 2c 22 72 22 5d 2c 5b 22 70 69 "pipe","r"],["pi
1cd0: 70 65 22 2c 22 77 22 5d 2c 5b 22 70 69 70 65 22 pe","w"],["pipe"
1ce0: 2c 22 61 22 5d 5d 3b 0a 20 20 20 20 20 20 20 20 ,"a"]];.
1cf0: 20 20 20 20 24 70 69 70 65 73 20 3d 20 5b 4e 55 $pipes = [NU
1d00: 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 5d 3b LL, NULL, NULL];
1d10: 0a 20 20 20 20 20 20 20 20 20 20 20 20 24 65 6e . $en
1d20: 76 20 3d 20 5b 20 20 23 20 6f 76 65 72 72 69 64 v = [ # overrid
1d30: 65 20 45 4e 56 20 73 6f 20 61 73 20 6e 6f 74 20 e ENV so as not
1d40: 74 6f 20 74 72 69 67 67 65 72 20 6e 65 73 74 65 to trigger neste
1d50: 64 20 43 47 49 20 6d 6f 64 65 0a 20 20 20 20 20 d CGI mode.
1d60: 20 20 20 20 20 20 20 20 20 20 20 22 50 41 54 48 "PATH
1d70: 22 20 3d 3e 20 24 5f 53 45 52 56 45 52 5b 22 50 " => $_SERVER["P
1d80: 41 54 48 22 5d 2c 0a 20 20 20 20 20 20 20 20 20 ATH"],.
1d90: 20 20 20 20 20 20 20 22 54 45 4d 50 22 20 3d 3e "TEMP" =>
1da0: 20 24 5f 53 45 52 56 45 52 5b 22 54 45 4d 50 22 $_SERVER["TEMP"
1db0: 5d 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ],.
1dc0: 20 20 20 22 55 53 45 52 22 20 3d 3e 20 24 74 68 "USER" => $th
1dd0: 69 73 2d 3e 74 6f 6b 65 6e 5b 22 75 73 65 72 22 is->token["user"
1de0: 5d 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ],.
1df0: 20 20 20 22 4c 41 4e 47 22 20 3d 3e 20 22 43 22 "LANG" => "C"
1e00: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
1e10: 20 20 22 45 44 49 54 4f 52 22 20 3d 3e 20 22 2f "EDITOR" => "/
1e20: 62 69 6e 2f 66 61 6c 73 65 22 2c 0a 20 20 20 20 bin/false",.
1e30: 20 20 20 20 20 20 20 20 5d 3b 0a 20 20 20 20 20 ];.
1e40: 20 20 20 20 20 20 20 24 70 72 6f 63 20 3d 20 70 $proc = p
1e50: 72 6f 63 5f 6f 70 65 6e 28 69 6d 70 6c 6f 64 65 roc_open(implode
1e60: 28 22 20 22 2c 20 24 61 72 67 73 29 2c 20 24 70 (" ", $args), $p
1e70: 69 70 65 73 70 65 63 2c 20 24 70 69 70 65 73 2c ipespec, $pipes,
1e80: 20 22 2f 74 6d 70 22 2c 20 24 65 6e 76 29 3b 0a "/tmp", $env);.
1e90: 20 20 20 20 20 20 20 20 20 20 20 20 66 77 72 69 fwri
1ea0: 74 65 28 24 70 69 70 65 73 5b 30 5d 2c 20 24 69 te($pipes[0], $i
1eb0: 6e 70 75 74 29 3b 0a 20 20 20 20 20 20 20 20 20 nput);.
1ec0: 20 20 20 24 73 74 64 6f 75 74 20 3d 20 66 72 65 $stdout = fre
1ed0: 61 64 28 24 70 69 70 65 73 5b 31 5d 29 3b 0a 20 ad($pipes[1]);.
1ee0: 20 20 20 20 20 20 20 20 20 20 20 61 72 72 61 79 array
1ef0: 5f 6d 61 70 28 22 66 63 6c 6f 73 65 22 2c 20 24 _map("fclose", $
1f00: 70 69 70 65 73 29 3b 0a 20 20 20 20 20 20 20 20 pipes);.
1f10: 20 20 20 20 70 72 6f 63 5f 63 6c 6f 73 65 28 24 proc_close($
1f20: 70 72 6f 63 29 3b 0a 20 20 20 20 20 20 20 20 20 proc);.
1f30: 20 20 20 72 65 74 75 72 6e 20 24 73 74 64 6f 75 return $stdou
1f40: 74 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 t;. }.
1f50: 20 7d 0a 7d 0a 0a 23 20 73 61 6d 65 20 63 6f 6d }.}..# same com
1f60: 6d 61 6e 64 73 2c 20 62 75 74 20 75 73 75 61 6c mands, but usual
1f70: 6c 79 20 60 63 6f 6d 6d 69 74 60 20 69 6e 73 74 ly `commit` inst
1f80: 65 61 64 20 6f 66 20 60 63 72 65 61 74 65 60 0a ead of `create`.
1f90: 63 6c 61 73 73 20 75 70 64 61 74 65 20 65 78 74 class update ext
1fa0: 65 6e 64 73 20 63 72 65 61 74 65 20 7b 0a 20 20 ends create {.
1fb0: 20 20 66 75 6e 63 74 69 6f 6e 20 5f 5f 63 6f 6e function __con
1fc0: 73 74 72 75 63 74 28 24 70 6f 73 74 2c 20 24 74 struct($post, $t
1fd0: 6f 6b 65 6e 29 20 7b 0a 20 20 20 20 20 20 20 20 oken) {.
1fe0: 69 66 20 28 21 24 74 68 69 73 2d 3e 75 72 6c 20 if (!$this->url
1ff0: 3d 20 24 70 6f 73 74 5b 22 75 72 6c 22 5d 29 20 = $post["url"])
2000: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6a 73 {. js
2010: 6f 6e 5f 72 65 73 70 6f 6e 73 65 28 22 4e 6f 20 on_response("No
2020: 6f 72 69 67 69 6e 61 6c 20 75 72 6c 3a 20 67 69 original url: gi
2030: 76 65 6e 22 2c 20 22 34 30 30 20 50 61 72 61 6d ven", "400 Param
2040: 73 22 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 s");. }.
2050: 20 20 20 20 20 20 20 24 74 68 69 73 2d 3e 69 64 $this->id
2060: 20 3d 20 70 72 65 67 5f 72 65 70 6c 61 63 65 28 = preg_replace(
2070: 22 7e 5e 2e 2b 2f 28 3f 3d 5c 77 2b 29 7c 2f 24 "~^.+/(?=\w+)|/$
2080: 7e 22 2c 20 22 22 2c 20 24 74 68 69 73 2d 3e 75 ~", "", $this->u
2090: 72 6c 29 3b 0a 20 20 20 20 20 20 20 20 24 70 6f rl);. $po
20a0: 73 74 5b 22 70 72 6f 70 65 72 74 69 65 73 22 5d st["properties"]
20b0: 20 3d 20 24 70 6f 73 74 5b 22 72 65 70 6c 61 63 = $post["replac
20c0: 65 22 5d 20 3f 3a 20 24 70 6f 73 74 5b 22 61 64 e"] ?: $post["ad
20d0: 64 22 5d 3b 0a 20 20 20 20 20 20 20 20 70 61 72 d"];. par
20e0: 65 6e 74 3a 3a 5f 5f 63 6f 6e 73 74 72 75 63 74 ent::__construct
20f0: 28 24 70 6f 73 74 2c 20 24 74 6f 6b 65 6e 29 3b ($post, $token);
2100: 0a 20 20 20 20 7d 0a 20 20 20 20 66 75 6e 63 74 . }. funct
2110: 69 6f 6e 20 74 65 63 68 6e 6f 74 65 28 24 70 2c ion technote($p,
2120: 20 24 61 63 74 3d 22 63 6f 6d 6d 69 74 22 29 20 $act="commit")
2130: 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e {. return
2140: 20 70 61 72 65 6e 74 3a 3a 74 65 63 68 6e 6f 74 parent::technot
2150: 65 28 24 70 2c 20 24 61 63 74 29 3b 0a 20 20 20 e($p, $act);.
2160: 20 7d 0a 20 20 20 20 66 75 6e 63 74 69 6f 6e 20 }. function
2170: 77 69 6b 69 28 24 70 2c 20 24 61 63 74 3d 22 63 wiki($p, $act="c
2180: 6f 6d 6d 69 74 22 29 20 7b 0a 20 20 20 20 20 20 ommit") {.
2190: 20 20 72 65 74 75 72 6e 20 70 61 72 65 6e 74 3a return parent:
21a0: 3a 77 69 6b 69 28 24 70 2c 20 24 61 63 74 29 3b :wiki($p, $act);
21b0: 0a 20 20 20 20 7d 0a 20 20 20 20 66 75 6e 63 74 . }. funct
21c0: 69 6f 6e 20 74 69 63 6b 65 74 28 24 70 2c 20 24 ion ticket($p, $
21d0: 61 72 67 73 3d 5b 22 74 69 63 6b 65 74 22 2c 20 args=["ticket",
21e0: 22 73 65 74 22 2c 20 22 49 44 22 5d 29 20 7b 0a "set", "ID"]) {.
21f0: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 70 return p
2200: 61 72 65 6e 74 3a 3a 74 69 63 6b 65 74 28 24 70 arent::ticket($p
2210: 2c 20 5b 22 74 69 63 6b 65 74 22 2c 20 22 73 65 , ["ticket", "se
2220: 74 22 2c 20 24 74 68 69 73 2d 3e 69 64 5d 29 3b t", $this->id]);
2230: 0a 20 20 20 20 7d 0a 20 20 20 20 66 75 6e 63 74 . }. funct
2240: 69 6f 6e 20 63 68 61 74 28 24 70 2c 20 24 61 63 ion chat($p, $ac
2250: 74 3d 22 73 65 6e 64 22 29 20 7b 7d 0a 7d 0a 0a t="send") {}.}..
2260: 23 20 66 65 74 63 68 20 73 6f 75 72 63 65 20 63 # fetch source c
2270: 6f 64 65 0a 63 6c 61 73 73 20 73 6f 75 72 63 65 ode.class source
2280: 20 65 78 74 65 6e 64 73 20 75 70 64 61 74 65 20 extends update
2290: 7b 0a 20 20 20 20 66 75 6e 63 74 69 6f 6e 20 5f {. function _
22a0: 5f 63 6f 6e 73 74 72 75 63 74 28 24 67 65 74 2c _construct($get,
22b0: 20 24 74 6f 6b 65 6e 29 20 7b 0a 20 20 20 20 20 $token) {.
22c0: 20 20 20 69 66 20 28 21 24 74 68 69 73 2d 3e 75 if (!$this->u
22d0: 72 6c 20 3d 20 24 67 65 74 5b 22 75 72 6c 22 5d rl = $get["url"]
22e0: 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ) {.
22f0: 6a 73 6f 6e 5f 72 65 73 70 6f 6e 73 65 28 22 4e json_response("N
2300: 6f 20 6f 72 69 67 69 6e 61 6c 20 75 72 6c 3a 20 o original url:
2310: 67 69 76 65 6e 22 2c 20 22 34 30 30 20 50 61 72 given", "400 Par
2320: 61 6d 73 22 29 3b 0a 20 20 20 20 20 20 20 20 7d ams");. }
2330: 0a 20 20 20 20 20 20 20 20 24 74 68 69 73 2d 3e . $this->
2340: 69 64 20 3d 20 70 72 65 67 5f 72 65 70 6c 61 63 id = preg_replac
2350: 65 28 22 7e 5e 2e 2b 2f 28 3f 3d 5c 77 2b 29 7c e("~^.+/(?=\w+)|
2360: 2f 24 7e 22 2c 20 22 22 2c 20 24 74 68 69 73 2d /$~", "", $this-
2370: 3e 75 72 6c 29 3b 0a 20 20 20 20 20 20 20 20 24 >url);. $
2380: 74 68 69 73 2d 3e 74 6f 6b 65 6e 20 3d 20 24 74 this->token = $t
2390: 6f 6b 65 6e 3b 0a 20 20 20 20 20 20 20 20 24 74 oken;. $t
23a0: 79 70 65 20 3d 20 73 63 6f 70 65 5f 6d 61 70 28 ype = scope_map(
23b0: 24 67 65 74 5b 22 74 79 70 65 22 5d 29 3b 0a 20 $get["type"]);.
23c0: 20 20 20 20 20 20 20 69 66 20 28 6d 65 74 68 6f if (metho
23d0: 64 5f 65 78 69 73 74 73 28 24 74 68 69 73 2c 20 d_exists($this,
23e0: 24 74 79 70 65 29 29 20 7b 0a 20 20 20 20 20 20 $type)) {.
23f0: 20 20 20 20 20 20 24 72 20 3d 20 63 61 6c 6c 5f $r = call_
2400: 75 73 65 72 5f 66 75 6e 63 28 5b 24 74 68 69 73 user_func([$this
2410: 2c 20 24 74 79 70 65 5d 2c 20 5b 5d 29 3b 0a 20 , $type], []);.
2420: 20 20 20 20 20 20 20 20 20 20 20 6a 73 6f 6e 5f json_
2430: 72 65 73 70 6f 6e 73 65 28 5b 0a 20 20 20 20 20 response([.
2440: 20 20 20 20 20 20 20 20 20 20 20 22 74 79 70 65 "type
2450: 22 20 3d 3e 20 5b 24 67 65 74 5b 22 74 79 70 65 " => [$get["type
2460: 22 5d 5d 2c 0a 20 20 20 20 20 20 20 20 20 20 20 "]],.
2470: 20 20 20 20 20 22 70 72 6f 70 65 72 74 69 65 73 "properties
2480: 22 20 3d 3e 20 28 69 73 5f 61 72 72 61 79 28 24 " => (is_array($
2490: 72 29 20 3f 20 24 72 20 3a 20 5b 0a 20 20 20 20 r) ? $r : [.
24a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
24b0: 22 63 6f 6e 74 65 6e 74 22 3d 3e 20 5b 24 72 5d "content"=> [$r]
24c0: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
24d0: 20 20 5d 29 0a 20 20 20 20 20 20 20 20 20 20 20 ]).
24e0: 20 5d 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 ]);. }.
24f0: 20 20 20 20 20 20 20 6a 73 6f 6e 5f 72 65 73 70 json_resp
2500: 6f 6e 73 65 28 22 55 6e 6b 6e 6f 77 6e 20 68 2d onse("Unknown h-
2510: 74 79 70 65 3a 20 60 24 74 79 70 65 60 22 2c 20 type: `$type`",
2520: 22 34 30 30 20 4e 6f 22 29 3b 0a 20 20 20 20 7d "400 No");. }
2530: 0a 20 20 20 20 66 75 6e 63 74 69 6f 6e 20 74 65 . function te
2540: 63 68 6e 6f 74 65 28 24 70 2c 20 24 61 63 74 3d chnote($p, $act=
2550: 22 65 78 70 6f 72 74 22 29 20 7b 0a 20 20 20 20 "export") {.
2560: 20 20 20 20 64 69 65 28 24 74 68 69 73 2d 3e 66 die($this->f
2570: 6f 73 73 69 6c 28 5b 22 77 69 6b 69 22 2c 20 22 ossil(["wiki", "
2580: 65 78 70 6f 72 74 22 2c 20 22 2d 74 22 2c 20 24 export", "-t", $
2590: 74 68 69 73 2d 3e 69 64 5d 29 29 3b 0a 20 20 20 this->id]));.
25a0: 20 7d 0a 20 20 20 20 66 75 6e 63 74 69 6f 6e 20 }. function
25b0: 77 69 6b 69 28 24 70 2c 20 24 61 63 74 3d 22 65 wiki($p, $act="e
25c0: 78 70 6f 72 74 22 29 20 7b 0a 20 20 20 20 20 20 xport") {.
25d0: 20 20 64 69 65 28 24 74 68 69 73 2d 3e 66 6f 73 die($this->fos
25e0: 73 69 6c 28 5b 22 77 69 6b 69 22 2c 20 22 65 78 sil(["wiki", "ex
25f0: 70 6f 72 74 22 2c 20 24 74 68 69 73 2d 3e 69 64 port", $this->id
2600: 5d 29 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 66 ]));. }. f
2610: 75 6e 63 74 69 6f 6e 20 74 69 63 6b 65 74 28 24 unction ticket($
2620: 70 2c 20 24 61 63 74 3d 22 68 69 73 74 6f 72 79 p, $act="history
2630: 22 29 20 7b 0a 20 20 20 20 20 20 20 20 64 69 65 ") {. die
2640: 28 24 74 68 69 73 2d 3e 66 6f 73 73 69 6c 28 5b ($this->fossil([
2650: 22 74 69 63 6b 65 74 22 2c 20 22 68 69 73 74 6f "ticket", "histo
2660: 72 79 22 2c 20 24 74 68 69 73 2d 3e 69 64 5d 29 ry", $this->id])
2670: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 66 75 6e );. }. fun
2680: 63 74 69 6f 6e 20 63 68 61 74 28 24 70 2c 20 24 ction chat($p, $
2690: 61 63 74 3d 22 73 65 6e 64 22 29 20 7b 7d 0a 7d act="send") {}.}
26a0: 0a 0a 0a 23 2d 2d 20 72 75 6e 0a 69 66 20 28 21 ...#-- run.if (!
26b0: 72 65 71 75 65 73 74 28 29 29 20 7b 0a 20 20 20 request()) {.
26c0: 20 70 72 69 6e 74 3c 3c 3c 48 54 4d 4c 0a 20 20 print<<<HTML.
26d0: 20 20 3c 64 69 76 20 63 6c 61 73 73 3d 27 66 6f <div class='fo
26e0: 73 73 69 6c 2d 64 6f 63 27 20 64 61 74 61 2d 74 ssil-doc' data-t
26f0: 69 74 6c 65 3d 27 4d 69 63 72 6f 50 75 62 20 41 itle='MicroPub A
2700: 50 49 27 3e 0a 20 20 20 20 20 20 20 3c 73 76 67 PI'>. <svg
2710: 20 73 74 79 6c 65 3d 22 66 6c 6f 61 74 3a 6c 65 style="float:le
2720: 66 74 3b 20 6d 61 72 67 69 6e 2d 72 69 67 68 74 ft; margin-right
2730: 3a 33 30 70 74 22 20 77 69 64 74 68 3d 22 31 35 :30pt" width="15
2740: 36 22 20 68 65 69 67 68 74 3d 22 31 32 36 22 20 6" height="126"
2750: 76 65 72 73 69 6f 6e 3d 22 31 2e 31 22 20 76 69 version="1.1" vi
2760: 65 77 42 6f 78 3d 22 30 20 30 20 31 35 36 2e 35 ewBox="0 0 156.5
2770: 31 20 31 32 36 2e 37 37 22 20 78 6d 6c 6e 73 3d 1 126.77" xmlns=
2780: 22 68 74 74 70 3a 2f 2f 77 77 77 2e 77 33 2e 6f "http://www.w3.o
2790: 72 67 2f 32 30 30 30 2f 73 76 67 22 3e 0a 20 20 rg/2000/svg">.
27a0: 20 20 20 20 20 20 3c 67 20 74 72 61 6e 73 66 6f <g transfo
27b0: 72 6d 3d 22 74 72 61 6e 73 6c 61 74 65 28 2d 32 rm="translate(-2
27c0: 39 2e 37 34 39 20 2d 37 32 2e 33 37 37 29 22 20 9.749 -72.377)"
27d0: 66 69 6c 6c 3d 22 23 35 63 33 35 36 36 22 3e 0a fill="#5c3566">.
27e0: 20 20 20 20 20 20 20 20 20 3c 70 61 74 68 20 64 <path d
27f0: 3d 22 6d 31 30 33 2e 32 39 20 37 33 2e 31 30 33 ="m103.29 73.103
2800: 63 33 2e 39 30 35 36 2d 30 2e 30 31 38 30 37 20 c3.9056-0.01807
2810: 37 2e 38 31 31 33 2d 30 2e 30 33 36 31 35 20 31 7.8113-0.03615 1
2820: 31 2e 37 31 37 2d 30 2e 30 35 34 32 32 20 32 2e 1.717-0.05422 2.
2830: 35 32 36 20 31 2e 35 30 30 31 20 31 2e 35 34 38 526 1.5001 1.548
2840: 36 20 34 2e 38 34 35 34 20 32 2e 30 35 36 39 20 6 4.8454 2.0569
2850: 37 2e 33 31 34 36 20 33 2e 31 34 32 39 20 33 39 7.3146 3.1429 39
2860: 2e 30 33 32 20 36 2e 32 38 35 39 20 37 38 2e 30 .032 6.2859 78.0
2870: 36 34 20 39 2e 34 32 38 38 20 31 31 37 2e 31 2d 64 9.4288 117.1-
2880: 30 2e 34 39 38 32 35 20 32 2e 35 35 38 39 2d 33 0.49825 2.5589-3
2890: 2e 34 37 32 35 20 31 2e 33 37 37 35 2d 35 2e 33 .4725 1.3775-5.3
28a0: 30 30 31 20 31 2e 36 34 30 33 2d 39 2e 33 38 37 001 1.6403-9.387
28b0: 32 2d 30 2e 30 31 31 32 2d 31 38 2e 37 37 34 2d 2-0.0112-18.774-
28c0: 30 2e 30 32 32 34 2d 32 38 2e 31 36 32 2d 30 2e 0.0224-28.162-0.
28d0: 30 33 33 36 2d 32 2e 33 38 38 37 2d 30 2e 36 33 0336-2.3887-0.63
28e0: 37 30 37 2d 30 2e 39 31 33 35 31 2d 33 2e 34 38 707-0.91351-3.48
28f0: 30 37 2d 31 2e 30 37 31 34 2d 35 2e 32 33 33 36 07-1.0714-5.2336
2900: 20 33 2e 32 37 35 37 2d 33 39 2e 38 36 34 20 36 3.2757-39.864 6
2910: 2e 35 35 31 34 2d 37 39 2e 37 32 39 20 39 2e 38 .5514-79.729 9.8
2920: 32 37 31 2d 31 31 39 2e 35 39 20 30 2e 34 32 30 271-119.59 0.420
2930: 35 32 2d 30 2e 34 34 39 35 31 20 30 2e 38 34 32 52-0.44951 0.842
2940: 34 34 2d 31 2e 30 33 33 37 20 31 2e 35 30 33 34 44-1.0337 1.5034
2950: 2d 31 2e 31 33 35 36 7a 22 2f 3e 0a 20 20 20 20 -1.1356z"/>.
2960: 20 20 20 20 20 3c 70 61 74 68 20 64 3d 22 6d 31 <path d="m1
2970: 32 30 2e 33 38 20 37 33 2e 31 32 37 63 35 2e 31 20.38 73.127c5.1
2980: 39 33 36 20 31 2e 31 30 35 32 20 31 32 2e 39 31 936 1.1052 12.91
2990: 31 2d 32 2e 34 31 31 39 20 31 36 2e 30 33 35 20 1-2.4119 16.035
29a0: 32 2e 38 39 38 20 31 36 2e 35 33 39 20 34 30 2e 2.898 16.539 40.
29b0: 32 35 32 20 33 33 2e 32 34 20 38 30 2e 34 35 33 252 33.24 80.453
29c0: 20 34 39 2e 38 34 31 20 31 32 30 2e 36 39 2d 32 49.841 120.69-2
29d0: 2e 35 38 37 36 20 33 2e 37 33 33 37 2d 38 2e 39 .5876 3.7337-8.9
29e0: 32 39 33 20 30 2e 38 32 34 38 32 2d 31 33 2e 30 293 0.82482-13.0
29f0: 38 31 20 31 2e 36 38 37 31 2d 31 31 2e 39 38 39 81 1.6871-11.989
2a00: 2d 30 2e 30 34 38 34 2d 32 33 2e 39 38 32 20 30 -0.0484-23.982 0
2a10: 2e 30 39 34 33 2d 33 35 2e 39 36 37 2d 30 2e 33 .0943-35.967-0.3
2a20: 30 36 33 39 2d 32 2e 38 30 32 32 2d 34 2e 30 32 0639-2.8022-4.02
2a30: 34 36 2d 31 2e 37 31 31 2d 31 30 2e 34 34 2d 33 46-1.711-10.44-3
2a40: 2e 30 34 37 37 2d 31 35 2e 33 37 39 2d 34 2e 38 .0477-15.379-4.8
2a50: 33 33 34 2d 33 36 2e 30 34 32 2d 39 2e 39 30 34 334-36.042-9.904
2a60: 35 2d 37 32 2e 30 37 31 2d 31 34 2e 35 38 39 2d 5-72.071-14.589-
2a70: 31 30 38 2e 31 32 20 30 2e 30 33 32 36 2d 30 2e 108.12 0.0326-0.
2a80: 35 35 33 32 32 20 30 2e 31 37 30 30 37 2d 31 2e 55322 0.17007-1.
2a90: 32 38 35 37 20 30 2e 38 30 38 33 31 2d 31 2e 34 2857 0.80831-1.4
2aa0: 36 34 37 7a 22 2f 3e 0a 20 20 20 20 20 20 20 20 647z"/>.
2ab0: 20 3c 70 61 74 68 20 64 3d 22 6d 39 30 2e 34 38 <path d="m90.48
2ac0: 34 20 37 32 2e 34 38 32 63 32 2e 33 33 37 32 20 4 72.482c2.3372
2ad0: 30 2e 31 33 36 37 32 20 34 2e 37 33 32 2d 30 2e 0.13672 4.732-0.
2ae0: 30 38 34 37 39 20 37 2e 30 33 31 37 20 30 2e 32 08479 7.0317 0.2
2af0: 38 35 31 32 20 31 2e 37 30 39 20 31 2e 34 37 30 8512 1.709 1.470
2b00: 35 20 30 2e 31 38 35 30 33 20 33 2e 39 36 35 34 5 0.18503 3.9654
2b10: 20 30 2e 32 36 36 37 39 20 35 2e 39 31 32 32 2d 0.26679 5.9122-
2b20: 35 2e 31 37 30 39 20 33 39 2e 35 38 31 2d 31 30 5.1709 39.581-10
2b30: 2e 33 34 32 20 37 39 2e 31 36 33 2d 31 35 2e 35 .342 79.163-15.5
2b40: 31 33 20 31 31 38 2e 37 34 2d 30 2e 35 32 34 35 13 118.74-0.5245
2b50: 36 20 32 2e 32 38 37 39 2d 33 2e 36 38 35 31 20 6 2.2879-3.6851
2b60: 30 2e 37 34 39 36 35 2d 35 2e 34 34 31 38 20 31 0.74965-5.4418 1
2b70: 2e 31 35 35 31 2d 31 35 2e 35 32 35 2d 30 2e 32 .1551-15.525-0.2
2b80: 30 32 37 2d 33 31 2e 30 35 2d 30 2e 34 30 35 34 027-31.05-0.4054
2b90: 31 2d 34 36 2e 35 37 35 2d 30 2e 36 30 38 31 32 1-46.575-0.60812
2ba0: 2d 31 2e 35 32 31 34 2d 31 2e 31 31 37 32 20 30 -1.5214-1.1172 0
2bb0: 2e 38 36 32 36 37 2d 33 2e 34 37 33 36 20 31 2e .86267-3.4736 1.
2bc0: 31 32 34 34 2d 35 2e 30 37 34 35 20 31 36 2e 37 1244-5.0745 16.7
2bd0: 35 38 2d 33 39 2e 36 38 31 20 33 33 2e 35 31 36 58-39.681 33.516
2be0: 2d 37 39 2e 33 36 33 20 35 30 2e 32 37 35 2d 31 -79.363 50.275-1
2bf0: 31 39 2e 30 34 20 31 2e 32 34 38 32 2d 32 2e 35 19.04 1.2482-2.5
2c00: 36 39 35 20 36 2e 33 37 39 35 2d 30 2e 38 39 37 695 6.3795-0.897
2c10: 38 36 20 38 2e 38 33 31 37 2d 31 2e 33 36 39 38 86 8.8317-1.3698
2c20: 7a 22 2f 3e 0a 20 20 20 20 20 20 20 20 3c 2f 67 z"/>. </g
2c30: 3e 0a 20 20 20 20 20 20 20 3c 2f 73 76 67 3e 0a >. </svg>.
2c40: 20 20 20 20 20 20 20 3c 68 33 3e 4d 69 63 72 6f <h3>Micro
2c50: 50 75 62 20 65 6e 64 70 6f 69 6e 74 3c 2f 68 33 Pub endpoint</h3
2c60: 3e 0a 20 20 20 20 20 20 20 49 6e 74 65 72 66 61 >. Interfa
2c70: 63 65 20 66 6f 72 20 6d 69 63 72 6f 70 75 62 20 ce for micropub
2c80: 63 6c 69 65 6e 74 73 20 74 6f 20 70 6f 73 74 20 clients to post
2c90: 62 6c 6f 67 2f 74 65 63 68 6e 6f 74 65 73 20 28 blog/technotes (
2ca0: 65 6e 74 72 79 29 2c 20 74 69 63 6b 65 74 73 20 entry), tickets
2cb0: 28 69 73 73 75 65 29 2c 20 6f 72 20 70 6f 73 73 (issue), or poss
2cc0: 69 62 6c 79 20 77 69 6b 69 20 6f 72 20 66 6f 72 ibly wiki or for
2cd0: 75 6d 20 70 6f 73 74 73 2e 0a 20 20 20 20 20 20 um posts..
2ce0: 20 3c 70 3e 0a 20 20 20 20 20 20 20 53 68 6f 75 <p>. Shou
2cf0: 6c 64 20 62 65 20 72 65 67 69 73 74 65 72 65 64 ld be registered
2d00: 20 69 6e 20 74 68 65 20 72 65 70 6f 20 74 65 6d in the repo tem
2d10: 70 6c 61 74 65 20 6f 72 20 61 20 75 73 65 72 20 plate or a user
2d20: 68 6f 6d 65 70 61 67 65 20 77 69 74 68 3a 3c 62 homepage with:<b
2d30: 72 3e 0a 20 20 20 20 20 20 20 3c 63 6f 64 65 3e r>. <code>
2d40: 26 6c 74 3b 6c 69 6e 6b 20 72 65 6c 3d 74 6f 6b <link rel=tok
2d50: 65 6e 5f 65 6e 64 70 6f 69 6e 74 20 68 72 65 66 en_endpoint href
2d60: 3d 27 68 74 74 70 73 3a 2f 2f 24 5f 53 45 52 56 ='https://$_SERV
2d70: 45 52 5b 53 45 52 56 45 52 5f 4e 41 4d 45 5d 24 ER[SERVER_NAME]$
2d80: 5f 53 45 52 56 45 52 5b 50 48 50 5f 53 45 4c 46 _SERVER[PHP_SELF
2d90: 5d 27 26 67 74 3b 3c 2f 63 6f 64 65 3e 0a 20 20 ]'></code>.
2da0: 20 20 3c 2f 64 69 76 3e 0a 48 54 4d 4c 3b 0a 20 </div>.HTML;.
2db0: 20 20 20 64 69 65 28 29 3b 0a 7d 0a 65 6c 73 65 die();.}.else
2dc0: 69 66 20 28 24 5f 50 4f 53 54 5b 22 71 22 5d 20 if ($_POST["q"]
2dd0: 3d 3d 20 22 63 6f 6e 66 69 67 22 29 20 7b 0a 20 == "config") {.
2de0: 20 20 20 6a 73 6f 6e 5f 72 65 73 70 6f 6e 73 65 json_response
2df0: 28 5b 0a 20 20 20 20 20 20 20 20 22 6d 65 64 69 ([. "medi
2e00: 61 2d 65 6e 64 70 6f 69 6e 74 22 20 3d 3e 20 22 a-endpoint" => "
2e10: 68 74 74 70 73 3a 2f 2f 24 5f 53 45 52 56 45 52 https://$_SERVER
2e20: 5b 53 45 52 56 45 52 5f 4e 41 4d 45 5d 24 5f 53 [SERVER_NAME]$_S
2e30: 45 52 56 45 52 5b 50 48 50 5f 53 45 4c 46 5d 22 ERVER[PHP_SELF]"
2e40: 2c 20 20 23 20 73 61 6d 65 0a 20 20 20 20 20 20 , # same.
2e50: 20 20 22 73 79 6e 64 69 63 61 74 65 2d 74 6f 22 "syndicate-to"
2e60: 20 3d 3e 20 5b 5d 2c 0a 20 20 20 20 20 20 20 20 => [],.
2e70: 22 73 75 70 70 6f 72 74 65 64 2d 74 79 70 65 73 "supported-types
2e80: 22 20 3d 3e 20 5b 0a 20 20 20 20 20 20 20 20 20 " => [.
2e90: 20 20 20 22 65 6e 74 72 79 22 20 3d 3e 20 5b 0a "entry" => [.
2ea0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 "
2eb0: 69 6e 74 65 72 6e 61 6c 2d 6e 61 6d 65 22 20 3d internal-name" =
2ec0: 3e 20 22 74 65 63 68 6e 6f 74 65 22 2c 0a 20 20 > "technote",.
2ed0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 70 72 "pr
2ee0: 6f 70 65 72 74 69 65 73 22 20 3d 3e 20 5b 22 63 operties" => ["c
2ef0: 6f 6e 74 65 6e 74 22 5d 2c 0a 20 20 20 20 20 20 ontent"],.
2f00: 20 20 20 20 20 20 5d 2c 0a 20 20 20 20 20 20 20 ],.
2f10: 20 20 20 20 20 22 69 73 73 75 65 22 20 3d 3e 20 "issue" =>
2f20: 5b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 [.
2f30: 20 20 22 69 6e 74 65 72 6e 61 6c 2d 6e 61 6d 65 "internal-name
2f40: 22 20 3d 3e 20 22 74 69 63 6b 65 74 22 2c 0a 20 " => "ticket",.
2f50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 "
2f60: 70 72 6f 70 65 72 74 69 65 73 22 20 3d 3e 20 5b properties" => [
2f70: 22 63 6f 6e 74 65 6e 74 22 2c 20 22 73 75 6d 6d "content", "summ
2f80: 61 72 79 22 5d 2c 0a 20 20 20 20 20 20 20 20 20 ary"],.
2f90: 20 20 20 5d 2c 0a 20 20 20 20 20 20 20 20 20 20 ],.
2fa0: 20 20 22 65 76 65 6e 74 22 20 3d 3e 20 5b 0a 20 "event" => [.
2fb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 "
2fc0: 69 6e 74 65 72 6e 61 6c 2d 6e 61 6d 65 22 20 3d internal-name" =
2fd0: 3e 20 22 63 68 61 74 22 2c 0a 20 20 20 20 20 20 > "chat",.
2fe0: 20 20 20 20 20 20 20 20 20 20 22 61 63 63 65 70 "accep
2ff0: 74 73 2d 6d 65 64 69 61 22 20 3d 3e 20 54 52 55 ts-media" => TRU
3000: 45 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 E,.
3010: 20 20 20 22 70 72 6f 70 65 72 74 69 65 73 22 20 "properties"
3020: 3d 3e 20 5b 22 63 6f 6e 74 65 6e 74 22 2c 20 22 => ["content", "
3030: 66 69 6c 65 22 5d 2c 0a 20 20 20 20 20 20 20 20 file"],.
3040: 20 20 20 20 5d 2c 0a 20 20 20 20 20 20 20 20 20 ],.
3050: 20 20 20 22 63 69 74 65 22 20 20 3d 3e 20 5b 0a "cite" => [.
3060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3070: 22 69 6e 74 65 72 6e 61 6c 2d 6e 61 6d 65 22 20 "internal-name"
3080: 3d 3e 20 22 77 69 6b 69 22 2c 0a 20 20 20 20 20 => "wiki",.
3090: 20 20 20 20 20 20 20 20 20 20 20 22 70 72 6f 70 "prop
30a0: 65 72 74 69 65 73 22 20 3d 3e 20 5b 22 63 6f 6e erties" => ["con
30b0: 74 65 6e 74 22 5d 2c 0a 20 20 20 20 20 20 20 20 tent"],.
30c0: 20 20 20 20 5d 2c 0a 20 20 20 20 20 20 20 20 5d ],. ]
30d0: 2c 0a 20 20 20 20 5d 29 3b 0a 7d 0a 65 6c 73 65 ,. ]);.}.else
30e0: 69 66 20 28 21 24 74 6f 6b 65 6e 20 3d 20 67 65 if (!$token = ge
30f0: 74 5f 74 6f 6b 65 6e 28 24 5f 50 4f 53 54 5b 22 t_token($_POST["
3100: 61 63 63 65 73 73 5f 74 6f 6b 65 6e 22 5d 29 29 access_token"]))
3110: 20 7b 0a 20 20 20 20 6a 73 6f 6e 5f 72 65 73 70 {. json_resp
3120: 6f 6e 73 65 28 22 74 6f 6b 65 6e 20 65 78 70 69 onse("token expi
3130: 72 65 64 22 2c 20 22 34 30 31 20 54 6f 6b 65 6e red", "401 Token
3140: 20 65 78 70 69 72 65 64 22 29 3b 0a 7d 0a 65 6c expired");.}.el
3150: 73 65 69 66 20 28 21 76 65 72 69 66 79 5f 73 63 seif (!verify_sc
3160: 6f 70 65 28 24 74 6f 6b 65 6e 2c 20 5b 24 5f 50 ope($token, [$_P
3170: 4f 53 54 5b 22 61 63 74 69 6f 6e 22 5d 2c 20 24 OST["action"], $
3180: 5f 50 4f 53 54 5b 22 74 79 70 65 22 5d 5d 29 29 _POST["type"]]))
3190: 20 7b 0a 20 20 20 20 6a 73 6f 6e 5f 72 65 73 70 {. json_resp
31a0: 6f 6e 73 65 28 22 73 63 6f 70 65 20 69 6e 73 75 onse("scope insu
31b0: 66 66 69 63 69 65 6e 74 22 2c 20 22 34 30 33 20 fficient", "403
31c0: 53 63 6f 70 65 20 69 6e 73 75 66 66 69 63 69 65 Scope insufficie
31d0: 6e 74 22 29 3b 0a 7d 0a 65 6c 73 65 69 66 20 28 nt");.}.elseif (
31e0: 24 5f 47 45 54 5b 22 71 22 5d 20 3d 3d 20 22 73 $_GET["q"] == "s
31f0: 6f 75 72 63 65 22 29 20 7b 0a 20 20 20 20 6e 65 ource") {. ne
3200: 77 20 73 6f 75 72 63 65 28 24 5f 47 45 54 2c 20 w source($_GET,
3210: 24 74 6f 6b 65 6e 29 3b 0a 7d 0a 65 6c 73 65 69 $token);.}.elsei
3220: 66 20 28 24 5f 50 4f 53 54 5b 22 61 63 74 69 6f f ($_POST["actio
3230: 6e 22 5d 20 3d 3d 20 22 75 70 64 61 74 65 22 29 n"] == "update")
3240: 20 7b 0a 20 20 20 20 6e 65 77 20 75 70 64 61 74 {. new updat
3250: 65 28 24 5f 50 4f 53 54 2c 20 24 74 6f 6b 65 6e e($_POST, $token
3260: 29 3b 0a 7d 0a 65 6c 73 65 20 7b 0a 20 20 20 20 );.}.else {.
3270: 6e 65 77 20 63 72 65 61 74 65 28 24 5f 50 4f 53 new create($_POS
3280: 54 2c 20 24 74 6f 6b 65 6e 29 3b 0a 7d 0a 0a 0a T, $token);.}...
3290: 3f 3e ?>