Artifact
e817604ba47fdf544130b321416c9aadb164c2e4
Executable file
extroot/fx_meta
— part of check-in
[e228e3b3dc]
at
2021-10-09 20:30:50
on branch trunk
— Prepare meta tags for wiki pages
(user:
mario
size: 3214)
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 73 74 6f 72 65 0a 23 20 63 61 74 ype: store.# cat
0060: 65 67 6f 72 79 3a 20 74 65 6d 70 6c 61 74 65 0a egory: template.
0070: 23 20 74 69 74 6c 65 3a 20 6d 65 74 61 20 74 61 # title: meta ta
0080: 67 73 20 28 74 77 69 74 74 65 72 29 0a 23 20 64 gs (twitter).# d
0090: 65 73 63 72 69 70 74 69 6f 6e 3a 20 70 6f 70 75 escription: popu
00a0: 6c 61 74 65 20 66 78 5f 6d 65 74 61 20 77 69 74 late fx_meta wit
00b0: 68 20 77 69 6b 69 20 70 61 67 65 20 73 75 6d 6d h wiki page summ
00c0: 61 72 69 65 73 0a 23 20 76 65 72 73 69 6f 6e 3a aries.# version:
00d0: 20 30 2e 31 0a 23 20 73 74 61 74 65 3a 20 61 6c 0.1.# state: al
00e0: 70 68 61 0a 23 20 63 6f 6e 66 69 67 3a 20 2d 0a pha.# config: -.
00f0: 23 0a 23 20 43 72 61 66 74 73 20 61 20 60 66 78 #.# Crafts a `fx
0100: 5f 6d 65 74 61 60 20 64 61 74 61 62 61 73 65 20 _meta` database
0110: 74 61 62 6c 65 20 74 6f 20 70 72 65 70 61 72 65 table to prepare
0120: 20 74 77 69 74 74 65 72 20 70 72 65 76 69 65 77 twitter preview
0130: 73 0a 23 20 61 6e 64 20 69 6d 61 67 65 20 6c 69 s.# and image li
0140: 6e 6b 73 2c 20 6f 72 20 6f 74 68 65 72 20 3c 6d nks, or other <m
0150: 65 74 61 3e 20 61 6e 64 20 3c 6c 69 6e 6b 3e 20 eta> and <link>
0160: 66 69 65 6c 64 73 2e 0a 23 20 57 68 69 63 68 20 fields..# Which
0170: 63 61 6e 20 74 68 65 6e 20 62 65 20 65 6d 62 65 can then be embe
0180: 64 64 65 64 20 69 6e 74 6f 20 74 68 65 20 68 65 dded into the he
0190: 61 64 65 72 20 76 69 61 3a 0a 23 0a 23 20 20 20 ader via:.#.#
01a0: 3c 74 68 31 3e 20 20 74 72 79 20 7b 20 71 75 65 <th1> try { que
01b0: 72 79 20 7b 53 45 4c 45 43 54 20 6d 65 74 61 20 ry {SELECT meta
01c0: 46 52 4f 4d 20 66 78 5f 6d 65 74 61 20 57 48 45 FROM fx_meta WHE
01d0: 52 45 20 6e 61 6d 65 3d 24 63 75 72 72 65 6e 74 RE name=$current
01e0: 5f 70 61 67 65 7d 20 7b 20 70 72 69 6e 74 20 24 _page} { print $
01f0: 6d 65 74 61 20 7d 20 7d 20 20 3c 2f 74 68 31 3e meta } } </th1>
0200: 0a 23 0a 23 20 53 68 6f 75 6c 64 20 62 65 20 75 .#.# Should be u
0210: 73 65 61 62 6c 65 20 61 73 20 65 78 74 72 6f 6f seable as extroo
0220: 74 2f 20 68 6f 6f 6b 20 6f 72 20 6f 72 64 69 6e t/ hook or ordin
0230: 61 72 79 20 63 72 6f 6e 20 73 63 72 69 70 74 20 ary cron script
0240: 28 77 69 74 68 0a 23 20 72 65 70 6f 20 66 69 6c (with.# repo fil
0250: 65 20 61 73 20 70 61 72 61 6d 65 74 65 72 29 2e e as parameter).
0260: 0a 23 0a 0a 0a 23 2d 2d 20 63 6c 69 20 6f 72 20 .#...#-- cli or
0270: 61 64 6d 69 6e 20 75 73 61 67 65 0a 69 66 20 28 admin usage.if (
0280: 21 65 6d 70 74 79 28 24 5f 53 45 52 56 45 52 5b !empty($_SERVER[
0290: 22 61 72 67 76 22 5d 5b 31 5d 29 29 20 7b 0a 20 "argv"][1])) {.
02a0: 20 20 20 24 5f 53 45 52 56 45 52 5b 22 46 4f 53 $_SERVER["FOS
02b0: 53 49 4c 5f 52 45 50 4f 53 49 54 4f 52 59 22 5d SIL_REPOSITORY"]
02c0: 20 3d 20 24 5f 53 45 52 56 45 52 5b 22 61 72 67 = $_SERVER["arg
02d0: 76 22 5d 5b 31 5d 3b 0a 7d 0a 65 6c 73 65 69 66 v"][1];.}.elseif
02e0: 20 28 21 73 74 72 73 74 72 28 24 5f 53 45 52 56 (!strstr($_SERV
02f0: 45 52 5b 22 46 4f 53 53 49 4c 5f 43 41 50 41 42 ER["FOSSIL_CAPAB
0300: 49 4c 49 54 49 45 53 22 5d 2c 20 22 73 22 29 29 ILITIES"], "s"))
0310: 20 7b 0a 20 20 20 20 64 69 65 28 22 52 75 6e 20 {. die("Run
0320: 61 73 20 63 72 6f 6e 2c 20 6f 72 20 61 73 20 61 as cron, or as a
0330: 64 6d 69 6e 22 29 3b 0a 7d 0a 0a 0a 0a 23 2d 2d dmin");.}....#--
0340: 20 64 61 74 61 62 61 73 65 20 28 3d 3d 20 66 6f database (== fo
0350: 73 73 69 6c 20 72 65 70 6f 29 0a 66 75 6e 63 74 ssil repo).funct
0360: 69 6f 6e 20 64 62 28 24 73 71 6c 3d 22 22 2c 20 ion db($sql="",
0370: 24 70 61 72 61 6d 73 3d 5b 5d 29 20 7b 0a 20 20 $params=[]) {.
0380: 20 20 73 74 61 74 69 63 20 24 64 62 3b 0a 20 20 static $db;.
0390: 20 20 69 66 20 28 65 6d 70 74 79 28 24 64 62 29 if (empty($db)
03a0: 29 20 7b 0a 20 20 20 20 20 20 20 20 24 64 62 20 ) {. $db
03b0: 3d 20 6e 65 77 20 50 44 4f 28 22 73 71 6c 69 74 = new PDO("sqlit
03c0: 65 3a 24 5f 53 45 52 56 45 52 5b 46 4f 53 53 49 e:$_SERVER[FOSSI
03d0: 4c 5f 52 45 50 4f 53 49 54 4f 52 59 5d 22 29 3b L_REPOSITORY]");
03e0: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 24 . }. if ($
03f0: 70 61 72 61 6d 73 29 20 7b 0a 20 20 20 20 20 20 params) {.
0400: 20 20 24 73 74 6d 74 20 3d 20 24 64 62 2d 3e 70 $stmt = $db->p
0410: 72 65 70 61 72 65 28 24 73 71 6c 29 3b 0a 20 20 repare($sql);.
0420: 20 20 20 20 20 20 24 73 74 6d 74 2d 3e 65 78 65 $stmt->exe
0430: 63 75 74 65 28 24 70 61 72 61 6d 73 29 3b 0a 20 cute($params);.
0440: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 73 return $s
0450: 74 6d 74 2d 3e 66 65 74 63 68 41 6c 6c 28 50 44 tmt->fetchAll(PD
0460: 4f 3a 3a 46 45 54 43 48 5f 41 53 53 4f 43 29 3b O::FETCH_ASSOC);
0470: 0a 20 20 20 20 7d 0a 20 20 20 20 65 6c 73 65 20 . }. else
0480: 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e {. return
0490: 20 24 64 62 2d 3e 71 75 65 72 79 28 24 73 71 6c $db->query($sql
04a0: 29 2d 3e 66 65 74 63 68 41 6c 6c 28 29 3b 0a 20 )->fetchAll();.
04b0: 20 20 20 7d 0a 7d 0a 66 75 6e 63 74 69 6f 6e 20 }.}.function
04c0: 68 28 24 73 29 20 7b 0a 20 20 20 20 72 65 74 75 h($s) {. retu
04d0: 72 6e 20 68 74 6d 6c 73 70 65 63 69 61 6c 63 68 rn htmlspecialch
04e0: 61 72 73 28 24 68 2c 20 22 75 74 66 2d 38 22 2c ars($h, "utf-8",
04f0: 20 45 4e 54 5f 51 55 4f 54 45 53 29 3b 0a 7d 0a ENT_QUOTES);.}.
0500: 0a 23 2d 2d 20 69 6e 69 74 0a 64 62 28 22 43 52 .#-- init.db("CR
0510: 45 41 54 45 20 54 41 42 4c 45 20 49 46 20 4e 4f EATE TABLE IF NO
0520: 54 20 45 58 49 53 54 53 20 66 78 5f 6d 65 74 61 T EXISTS fx_meta
0530: 20 28 6e 61 6d 65 20 54 45 58 54 2c 20 6d 65 74 (name TEXT, met
0540: 61 20 54 45 58 54 29 22 29 3b 0a 64 62 28 22 44 a TEXT)");.db("D
0550: 45 4c 45 54 45 20 46 52 4f 4d 20 66 78 5f 6d 65 ELETE FROM fx_me
0560: 74 61 22 29 3b 0a 77 69 6b 69 5f 70 61 67 65 73 ta");.wiki_pages
0570: 28 29 3b 0a 0a 23 2d 2d 20 6c 6f 6f 70 20 74 68 ();..#-- loop th
0580: 72 6f 75 67 68 20 70 61 67 65 73 0a 66 75 6e 63 rough pages.func
0590: 74 69 6f 6e 20 77 69 6b 69 5f 70 61 67 65 73 28 tion wiki_pages(
05a0: 29 20 7b 0a 20 20 20 20 66 6f 72 65 61 63 68 20 ) {. foreach
05b0: 28 64 62 28 22 53 45 4c 45 43 54 20 73 75 62 73 (db("SELECT subs
05c0: 74 72 28 74 61 67 6e 61 6d 65 2c 36 29 20 41 53 tr(tagname,6) AS
05d0: 20 6e 61 6d 65 20 46 52 4f 4d 20 74 61 67 20 57 name FROM tag W
05e0: 48 45 52 45 20 74 61 67 6e 61 6d 65 20 4c 49 4b HERE tagname LIK
05f0: 45 20 27 77 69 6b 69 2d 25 27 3b 22 29 20 61 73 E 'wiki-%';") as
0600: 20 24 70 61 67 65 29 20 7b 0a 20 20 20 20 20 20 $page) {.
0610: 20 20 24 70 61 67 65 20 3d 20 24 70 61 67 65 5b $page = $page[
0620: 22 6e 61 6d 65 22 5d 3b 0a 20 20 20 20 20 20 20 "name"];.
0630: 20 24 71 20 3d 20 22 65 73 63 61 70 65 73 68 65 $q = "escapeshe
0640: 6c 6c 61 72 67 22 3b 0a 20 20 20 20 20 20 20 20 llarg";.
0650: 24 68 74 6d 6c 20 3d 20 60 66 6f 73 73 69 6c 20 $html = `fossil
0660: 77 69 6b 69 20 65 78 70 6f 72 74 20 2d 2d 68 74 wiki export --ht
0670: 6d 6c 20 7b 24 71 28 24 70 61 67 65 29 7d 20 2d ml {$q($page)} -
0680: 52 20 7b 24 71 28 24 5f 53 45 52 56 45 52 5b 27 R {$q($_SERVER['
0690: 46 4f 53 53 49 4c 5f 52 45 50 4f 53 49 54 4f 52 FOSSIL_REPOSITOR
06a0: 59 27 5d 29 7d 60 3b 0a 20 20 20 20 20 20 20 20 Y'])}`;.
06b0: 64 62 28 0a 20 20 20 20 20 20 20 20 20 20 20 20 db(.
06c0: 22 49 4e 53 45 52 54 20 49 4e 54 4f 20 66 78 5f "INSERT INTO fx_
06d0: 6d 65 74 61 20 28 6e 61 6d 65 2c 20 6d 65 74 61 meta (name, meta
06e0: 29 20 56 41 4c 55 45 53 20 28 3f 2c 3f 29 22 2c ) VALUES (?,?)",
06f0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 5b 22 77 . ["w
0700: 69 6b 69 3f 6e 61 6d 65 3d 24 70 61 67 65 22 2c iki?name=$page",
0710: 20 6d 65 74 61 5f 77 69 6b 69 28 24 6e 61 6d 65 meta_wiki($name
0720: 2c 20 24 68 74 6d 6c 29 5d 0a 20 20 20 20 20 20 , $html)].
0730: 20 20 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 0a 23 );. }.}...#
0740: 20 3c 6d 65 74 61 3e 20 61 6e 64 20 3c 6c 69 6e <meta> and <lin
0750: 6b 3e 73 20 66 6f 72 20 61 20 77 69 6b 69 20 70 k>s for a wiki p
0760: 61 67 65 0a 23 20 20 c2 b7 20 77 69 6b 69 3f 6e age.# · wiki?n
0770: 61 6d 65 3d 50 61 67 65 4e 61 6d 65 0a 66 75 6e ame=PageName.fun
0780: 63 74 69 6f 6e 20 6d 65 74 61 5f 77 69 6b 69 28 ction meta_wiki(
0790: 24 6e 61 6d 65 2c 20 24 68 74 6d 6c 29 20 7b 0a $name, $html) {.
07a0: 20 20 20 20 24 68 74 6d 6c 20 3d 20 70 72 65 67 $html = preg
07b0: 5f 72 65 70 6c 61 63 65 28 22 7e 3c 74 61 62 6c _replace("~<tabl
07c0: 65 2e 2b 3c 2f 74 61 62 6c 65 3e 7e 73 22 2c 20 e.+</table>~s",
07d0: 22 22 2c 20 24 68 74 6d 6c 29 3b 0a 20 20 20 20 "", $html);.
07e0: 24 74 65 78 74 20 3d 20 70 72 65 67 5f 72 65 70 $text = preg_rep
07f0: 6c 61 63 65 28 22 7e 5c 73 2b 7e 22 2c 20 22 20 lace("~\s+~", "
0800: 22 2c 20 73 74 72 69 70 5f 74 61 67 73 28 24 68 ", strip_tags($h
0810: 74 6d 6c 29 29 3b 0a 20 20 20 20 24 64 65 73 63 tml));. $desc
0820: 20 3d 20 73 75 62 73 74 72 28 24 74 65 78 74 2c = substr($text,
0830: 20 30 2c 20 32 35 30 29 3b 0a 20 20 20 20 24 68 0, 250);. $h
0840: 20 3d 20 22 68 22 3b 0a 20 20 20 20 69 66 20 28 = "h";. if (
0850: 70 72 65 67 5f 6d 61 74 63 68 28 22 7e 28 72 61 preg_match("~(ra
0860: 77 2f 5c 77 2b 29 5c 3f 6d 3d 69 6d 61 67 65 2f w/\w+)\?m=image/
0870: 7e 22 2c 20 24 68 74 6d 6c 2c 20 24 75 75 29 20 ~", $html, $uu)
0880: 7c 7c 20 70 72 65 67 5f 6d 61 74 63 68 28 22 7e || preg_match("~
0890: 28 3f 3a 21 5c 5b 2e 2b 5d 5c 28 7c 3c 69 6d 67 (?:!\[.+]\(|<img
08a0: 2e 2b 3f 73 72 63 3d 5c 53 2a 29 28 72 61 77 2f .+?src=\S*)(raw/
08b0: 5c 77 2b 29 7e 22 2c 20 24 68 74 6d 6c 2c 20 24 \w+)~", $html, $
08c0: 75 75 29 29 20 7b 0a 20 20 20 20 20 20 20 20 24 uu)) {. $
08d0: 69 6d 67 20 3d 20 24 75 75 5b 31 5d 3b 0a 20 20 img = $uu[1];.
08e0: 20 20 20 20 20 20 24 6d 65 74 61 20 3d 20 3c 3c $meta = <<
08f0: 3c 45 4f 46 0a 20 20 20 20 3c 6d 65 74 61 20 6e <EOF. <meta n
0900: 61 6d 65 3d 22 74 77 69 74 74 65 72 3a 63 61 72 ame="twitter:car
0910: 64 22 20 63 6f 6e 74 65 6e 74 3d 22 73 75 6d 6d d" content="summ
0920: 61 72 79 22 3e 0a 20 20 20 20 3c 6d 65 74 61 20 ary">. <meta
0930: 6e 61 6d 65 3d 22 74 77 69 74 74 65 72 3a 73 69 name="twitter:si
0940: 74 65 22 20 63 6f 6e 74 65 6e 74 3d 22 40 73 71 te" content="@sq
0950: 6c 69 74 65 22 3e 0a 20 20 20 20 3c 6d 65 74 61 lite">. <meta
0960: 20 6e 61 6d 65 3d 22 74 77 69 74 74 65 72 3a 63 name="twitter:c
0970: 72 65 61 74 6f 72 22 20 63 6f 6e 74 65 6e 74 3d reator" content=
0980: 22 40 66 6f 73 73 69 6c 73 63 6d 22 3e 0a 20 20 "@fossilscm">.
0990: 20 20 3c 6d 65 74 61 20 6e 61 6d 65 3d 22 74 77 <meta name="tw
09a0: 69 74 74 65 72 3a 74 69 74 6c 65 22 20 63 6f 6e itter:title" con
09b0: 74 65 6e 74 3d 22 7b 24 68 28 24 70 61 67 65 29 tent="{$h($page)
09c0: 7d 22 3e 0a 20 20 20 20 3c 6d 65 74 61 20 6e 61 }">. <meta na
09d0: 6d 65 3d 22 74 77 69 74 74 65 72 3a 64 65 73 63 me="twitter:desc
09e0: 72 69 70 74 69 6f 6e 22 20 63 6f 6e 74 65 6e 74 ription" content
09f0: 3d 22 7b 24 68 28 24 70 61 67 65 29 7d 22 3e 0a ="{$h($page)}">.
0a00: 20 20 20 20 3c 6d 65 74 61 20 6e 61 6d 65 3d 22 <meta name="
0a10: 74 77 69 74 74 65 72 3a 69 6d 61 67 65 22 20 63 twitter:image" c
0a20: 6f 6e 74 65 6e 74 3d 22 7b 24 68 28 24 69 6d 67 ontent="{$h($img
0a30: 29 7d 22 3e 0a 20 20 20 20 3c 6d 65 74 61 20 6e )}">. <meta n
0a40: 61 6d 65 3d 22 74 77 69 74 74 65 72 3a 69 6d 61 ame="twitter:ima
0a50: 67 65 3a 73 72 63 22 20 63 6f 6e 74 65 6e 74 3d ge:src" content=
0a60: 22 7b 24 68 28 24 69 6d 67 29 7d 22 3e 0a 45 4f "{$h($img)}">.EO
0a70: 46 3b 0a 20 20 20 20 7d 0a 20 20 20 20 65 6c 73 F;. }. els
0a80: 65 20 7b 0a 20 20 20 20 20 20 20 20 24 6d 65 74 e {. $met
0a90: 61 20 3d 20 22 20 20 20 20 3c 6d 65 74 61 20 6e a = " <meta n
0aa0: 61 6d 65 3d 64 65 73 63 72 69 70 74 69 6f 6e 20 ame=description
0ab0: 63 6f 6e 74 65 6e 74 3d 5c 22 7b 24 68 28 24 64 content=\"{$h($d
0ac0: 65 73 63 29 5c 22 3e 5c 6e 22 3b 0a 20 20 20 20 esc)\">\n";.
0ad0: 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 24 6d 65 }. return $me
0ae0: 74 61 3b 0a 7d 0a 0a 23 20 3c 6c 69 6e 6b 3e 20 ta;.}..# <link>
0af0: 66 6f 72 20 66 69 6c 65 73 0a 23 20 20 c2 b7 20 for files.# ·
0b00: 66 69 6e 66 6f 3f 6e 61 6d 65 3d 66 65 65 64 73 finfo?name=feeds
0b10: 2f 61 67 67 72 65 67 61 74 6f 72 2e 63 73 73 0a /aggregator.css.
0b20: 23 20 20 c2 b7 20 66 69 6c 65 3f 6e 61 6d 65 3d # · file?name=
0b30: 66 65 65 64 73 2f 61 67 67 72 65 67 61 74 6f 72 feeds/aggregator
0b40: 2e 63 73 73 26 63 69 3d 34 63 65 62 64 36 33 65 .css&ci=4cebd63e
0b50: 34 38 61 66 62 35 37 33 0a 23 20 20 c2 b7 20 69 48afb573.# · i
0b60: 6e 66 6f 2f 32 32 34 65 33 66 33 34 61 39 66 31 nfo/224e3f34a9f1
0b70: 66 65 31 31 61 32 32 65 37 65 64 64 37 37 31 32 fe11a22e7edd7712
0b80: 30 61 38 37 66 66 37 34 36 62 37 66 32 61 66 64 0a87ff746b7f2afd
0b90: 37 66 37 33 39 38 63 65 32 31 32 61 34 37 31 38 7f7398ce212a4718
0ba0: 37 37 65 65 0a 66 75 6e 63 74 69 6f 6e 20 6d 65 77ee.function me
0bb0: 74 61 5f 66 69 6c 65 28 24 6e 61 6d 65 2c 20 24 ta_file($name, $
0bc0: 63 6f 6e 74 65 6e 74 29 20 7b 0a 20 20 20 20 24 content) {. $
0bd0: 6d 65 74 61 20 3d 20 22 3c 6c 69 6e 6b 20 72 65 meta = "<link re
0be0: 6c 3d 27 76 63 73 20 61 6c 74 65 72 6e 61 74 65 l='vcs alternate
0bf0: 20 72 61 77 27 20 68 72 65 66 3d 27 72 61 77 2f raw' href='raw/
0c00: 2e 2e 2e 27 20 74 79 70 65 3d 27 74 65 78 74 2f ...' type='text/
0c10: 70 6c 61 69 6e 27 20 63 6f 6e 74 65 6e 74 2d 64 plain' content-d
0c20: 69 73 70 6f 73 69 74 69 6f 6e 3d 27 69 6e 6c 69 isposition='inli
0c30: 6e 65 3b 20 66 69 6c 65 6e 61 6d 65 3d 24 6e 61 ne; filename=$na
0c40: 6d 65 27 3e 22 3b 0a 20 20 20 20 24 6d 65 74 61 me'>";. $meta
0c50: 20 3d 20 22 3c 6d 65 74 61 20 6e 61 6d 65 3d 27 = "<meta name='
0c60: 76 63 73 20 61 6c 74 65 72 6e 61 74 65 20 66 69 vcs alternate fi
0c70: 6c 65 6e 61 6d 65 27 20 68 72 65 66 3d 27 66 69 lename' href='fi
0c80: 6c 65 2e 63 70 70 27 3e 22 3b 0a 7d 0a 0a le.cpp'>";.}..