Artifact
2e7adf9e80c7810dbaa17e8df73dfa884c8a1d43
Executable file
extroot/index
— part of check-in
[0e67fdb36b]
at
2021-10-20 05:59:00
on branch trunk
— support for #access: flag
(user:
mario
size: 2720)
0000: 23 21 2f 75 73 72 2f 62 69 6e 2f 70 68 70 2d 63 #!/usr/bin/php-c
0010: 67 69 20 2d 64 63 67 69 2e 66 6f 72 63 65 5f 72 gi -dcgi.force_r
0020: 65 64 69 72 65 63 74 3d 30 0a 3c 3f 70 68 70 0a edirect=0.<?php.
0030: 23 20 65 6e 63 6f 64 69 6e 67 3a 20 75 74 66 2d # encoding: utf-
0040: 38 0a 23 20 61 70 69 3a 20 63 67 69 0a 23 20 74 8.# api: cgi.# t
0050: 79 70 65 3a 20 64 69 73 70 6c 61 79 0a 23 20 63 ype: display.# c
0060: 61 74 65 67 6f 72 79 3a 20 6c 69 73 74 0a 23 20 ategory: list.#
0070: 74 69 74 6c 65 3a 20 45 78 74 2f 20 69 6e 64 65 title: Ext/ inde
0080: 78 0a 23 20 64 65 73 63 72 69 70 74 69 6f 6e 3a x.# description:
0090: 20 4c 69 73 74 73 20 61 6c 6c 20 43 47 49 20 65 Lists all CGI e
00a0: 78 74 65 6e 73 69 6f 6e 73 20 69 6e 20 74 68 65 xtensions in the
00b0: 20 65 78 74 72 6f 6f 74 3a 20 66 6f 6c 64 65 72 extroot: folder
00c0: 0a 23 20 76 65 72 73 69 6f 6e 3a 20 30 2e 33 0a .# version: 0.3.
00d0: 23 20 73 74 61 74 65 3a 20 73 74 61 62 6c 65 0a # state: stable.
00e0: 23 20 63 6f 6e 66 69 67 3a 20 2d 0a 23 20 61 63 # config: -.# ac
00f0: 63 65 73 73 3a 20 70 75 62 6c 69 63 0a 23 0a 23 cess: public.#.#
0100: 20 4a 75 73 74 20 61 20 67 6c 6f 62 28 29 20 61 Just a glob() a
0110: 6e 64 20 73 6f 6d 65 20 63 72 75 64 65 20 70 6c nd some crude pl
0120: 75 67 69 6e 20 6d 65 74 61 20 65 78 74 72 61 63 ugin meta extrac
0130: 74 69 6f 6e 2e 0a 23 0a 0a 69 6e 63 6c 75 64 65 tion..#..include
0140: 28 22 2e 2f 66 6f 73 73 69 6c 5f 63 6f 6d 6d 6f ("./fossil_commo
0150: 6e 2e 70 68 70 22 29 3b 0a 65 72 72 6f 72 5f 72 n.php");.error_r
0160: 65 70 6f 72 74 69 6e 67 28 30 29 3b 0a 0a 23 2d eporting(0);..#-
0170: 2d 20 66 6f 73 73 69 6c 20 48 54 4d 4c 20 6f 75 - fossil HTML ou
0180: 74 70 75 74 0a 66 75 6e 63 74 69 6f 6e 20 70 61 tput.function pa
0190: 67 65 5f 6d 64 28 24 74 65 78 74 29 20 7b 0a 20 ge_md($text) {.
01a0: 20 20 20 68 65 61 64 65 72 28 22 43 6f 6e 74 65 header("Conte
01b0: 6e 74 2d 54 79 70 65 3a 20 74 65 78 74 2f 68 74 nt-Type: text/ht
01c0: 6d 6c 3b 20 63 68 61 72 73 65 74 3d 75 74 66 2d ml; charset=utf-
01d0: 38 22 29 3b 0a 20 20 20 20 70 72 69 6e 74 20 3c 8");. print <
01e0: 3c 3c 45 4f 46 0a 3c 64 69 76 20 63 6c 61 73 73 <<EOF.<div class
01f0: 3d 27 66 6f 73 73 69 6c 2d 64 6f 63 27 20 64 61 ='fossil-doc' da
0200: 74 61 2d 74 69 74 6c 65 3d 27 45 78 74 65 6e 73 ta-title='Extens
0210: 69 6f 6e 73 27 3e 0a 3c 73 74 79 6c 65 3e 0a 20 ions'>.<style>.
0220: 2e 65 78 74 65 6e 73 69 6f 6e 73 2d 69 6e 64 65 .extensions-inde
0230: 78 20 7b 0a 20 20 20 20 63 6f 6c 75 6d 6e 73 3a x {. columns:
0240: 20 32 3b 0a 20 7d 0a 20 2e 66 73 6c 2d 65 78 74 2;. }. .fsl-ext
0250: 20 7b 0a 20 20 20 20 77 69 64 74 68 3a 20 31 30 {. width: 10
0260: 30 25 3b 0a 20 20 20 20 64 69 73 70 6c 61 79 3a 0%;. display:
0270: 20 69 6e 6c 69 6e 65 2d 62 6c 6f 63 6b 3b 0a 20 inline-block;.
0280: 20 20 20 62 61 63 6b 67 72 6f 75 6e 64 3a 20 23 background: #
0290: 31 62 31 62 31 62 3b 0a 20 20 20 20 62 6f 72 64 1b1b1b;. bord
02a0: 65 72 2d 72 61 64 69 75 73 3a 20 35 70 74 3b 0a er-radius: 5pt;.
02b0: 20 20 20 20 62 6f 78 2d 73 68 61 64 6f 77 3a 20 box-shadow:
02c0: 32 70 74 20 32 70 74 20 33 70 74 20 23 36 36 36 2pt 2pt 3pt #666
02d0: 3b 0a 20 20 20 20 70 61 64 64 69 6e 67 3a 20 31 ;. padding: 1
02e0: 30 70 74 20 31 35 70 74 3b 0a 20 20 20 20 6d 61 0pt 15pt;. ma
02f0: 72 67 69 6e 3a 20 35 70 74 20 32 70 74 3b 0a 20 rgin: 5pt 2pt;.
0300: 20 20 20 63 6f 6c 6f 72 3a 20 23 64 64 64 3b 0a color: #ddd;.
0310: 20 7d 0a 20 2e 66 73 6c 2d 65 78 74 20 61 20 7b }. .fsl-ext a {
0320: 0a 20 20 20 20 63 6f 6c 6f 72 3a 20 23 66 65 39 . color: #fe9
0330: 3b 0a 20 20 20 20 66 6f 6e 74 2d 77 65 69 67 68 ;. font-weigh
0340: 74 3a 20 39 30 30 3b 0a 20 20 20 20 66 6f 6e 74 t: 900;. font
0350: 2d 73 69 7a 65 3a 20 31 31 35 25 3b 0a 20 7d 0a -size: 115%;. }.
0360: 20 2e 66 73 6c 2d 65 78 74 20 2e 76 65 72 73 69 .fsl-ext .versi
0370: 6f 6e 20 7b 0a 20 20 20 20 62 61 63 6b 67 72 6f on {. backgro
0380: 75 6e 64 3a 20 23 35 34 32 3b 0a 20 20 20 20 63 und: #542;. c
0390: 6f 6c 6f 72 3a 20 62 6c 61 63 6b 3b 0a 20 20 20 olor: black;.
03a0: 20 70 61 64 64 69 6e 67 3a 20 32 70 74 20 31 30 padding: 2pt 10
03b0: 70 74 3b 0a 20 20 20 20 6d 61 72 67 69 6e 2d 6c pt;. margin-l
03c0: 65 66 74 3a 20 34 70 74 3b 0a 20 20 20 20 62 6f eft: 4pt;. bo
03d0: 72 64 65 72 2d 72 61 64 69 75 73 3a 20 34 70 74 rder-radius: 4pt
03e0: 3b 0a 20 7d 0a 20 2e 66 73 6c 2d 65 78 74 20 2e ;. }. .fsl-ext .
03f0: 61 63 63 65 73 73 20 7b 0a 20 20 20 20 62 61 63 access {. bac
0400: 6b 67 72 6f 75 6e 64 3a 20 23 32 33 32 3b 0a 20 kground: #232;.
0410: 20 20 20 63 6f 6c 6f 72 3a 20 79 65 6c 6c 6f 77 color: yellow
0420: 3b 0a 20 20 20 20 70 61 64 64 69 6e 67 3a 20 31 ;. padding: 1
0430: 70 74 20 34 70 74 3b 0a 20 20 20 20 6d 61 72 67 pt 4pt;. marg
0440: 69 6e 2d 6c 65 66 74 3a 20 34 70 74 3b 0a 20 20 in-left: 4pt;.
0450: 20 20 62 6f 72 64 65 72 2d 72 61 64 69 75 73 3a border-radius:
0460: 20 32 70 74 3b 0a 20 7d 0a 20 2e 66 73 6c 2d 65 2pt;. }. .fsl-e
0470: 78 74 20 2e 72 69 67 68 74 20 7b 0a 20 20 20 20 xt .right {.
0480: 62 72 65 61 6b 3a 20 62 6f 74 68 3b 0a 20 20 20 break: both;.
0490: 20 66 6c 6f 61 74 3a 20 72 69 67 68 74 3b 0a 20 float: right;.
04a0: 20 20 20 64 69 73 70 6c 61 79 3a 20 62 6c 6f 63 display: bloc
04b0: 6b 3b 0a 20 20 20 20 70 6f 73 69 74 69 6f 6e 3a k;. position:
04c0: 20 72 65 6c 61 74 69 76 65 3b 0a 20 20 20 20 72 relative;. r
04d0: 69 67 68 74 3a 20 2d 31 35 70 74 3b 0a 20 7d 0a ight: -15pt;. }.
04e0: 20 2e 66 73 6c 2d 65 78 74 20 2e 72 69 67 68 74 .fsl-ext .right
04f0: 20 64 69 76 20 7b 0a 20 20 20 20 70 61 64 64 69 div {. paddi
0500: 6e 67 3a 20 32 70 74 20 31 30 70 74 3b 0a 20 20 ng: 2pt 10pt;.
0510: 20 20 62 6f 72 64 65 72 2d 72 61 64 69 75 73 3a border-radius:
0520: 20 35 70 74 20 30 20 30 20 35 70 74 3b 0a 20 20 5pt 0 0 5pt;.
0530: 20 20 62 61 63 6b 67 72 6f 75 6e 64 3a 20 23 31 background: #1
0540: 31 34 3b 0a 20 20 20 20 63 6f 6c 6f 72 3a 20 23 14;. color: #
0550: 37 37 37 3b 0a 20 20 20 20 6d 61 72 67 69 6e 2d 777;. margin-
0560: 62 6f 74 74 6f 6d 3a 20 34 70 74 3b 0a 20 7d 0a bottom: 4pt;. }.
0570: 20 2e 66 73 6c 2d 65 78 74 20 2e 72 69 67 68 74 .fsl-ext .right
0580: 20 64 69 76 2e 63 61 74 65 67 6f 72 79 20 7b 0a div.category {.
0590: 20 20 20 20 63 6f 6c 6f 72 3a 20 23 61 61 61 3b color: #aaa;
05a0: 0a 20 20 20 20 62 61 63 6b 67 72 6f 75 6e 64 3a . background:
05b0: 20 23 32 32 35 3b 0a 20 7d 0a 3c 2f 73 74 79 6c #225;. }.</styl
05c0: 65 3e 0a 24 74 65 78 74 0a 45 4f 46 3b 0a 7d 0a e>.$text.EOF;.}.
05d0: 0a 23 2d 2d 20 66 69 6c 74 65 72 65 64 20 66 69 .#-- filtered fi
05e0: 6c 65 20 6c 69 73 74 0a 66 75 6e 63 74 69 6f 6e le list.function
05f0: 20 6c 73 28 24 64 69 72 29 20 7b 0a 20 20 20 20 ls($dir) {.
0600: 24 6c 73 20 3d 20 5b 5d 3b 0a 20 20 20 20 66 6f $ls = [];. fo
0610: 72 65 61 63 68 20 28 67 6c 6f 62 28 22 24 64 69 reach (glob("$di
0620: 72 2f 2a 22 29 20 61 73 20 24 66 6e 29 20 7b 0a r/*") as $fn) {.
0630: 20 20 20 20 20 20 20 20 69 66 20 28 69 73 5f 66 if (is_f
0640: 69 6c 65 28 24 66 6e 29 20 61 6e 64 20 69 73 5f ile($fn) and is_
0650: 65 78 65 63 75 74 61 62 6c 65 28 24 66 6e 29 20 executable($fn)
0660: 61 6e 64 20 69 73 5f 72 65 61 64 61 62 6c 65 28 and is_readable(
0670: 24 66 6e 29 29 20 7b 0a 20 20 20 20 20 20 20 20 $fn)) {.
0680: 20 20 20 20 24 6c 73 5b 5d 20 3d 20 62 61 73 65 $ls[] = base
0690: 6e 61 6d 65 28 24 66 6e 29 3b 0a 20 20 20 20 20 name($fn);.
06a0: 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 72 }. }. r
06b0: 65 74 75 72 6e 20 24 6c 73 3b 0a 7d 0a 0a 0a 23 eturn $ls;.}...#
06c0: 2d 2d 20 72 75 6e 0a 70 61 67 65 5f 6d 64 28 22 -- run.page_md("
06d0: 3c 64 69 76 20 63 6c 61 73 73 3d 65 78 74 65 6e <div class=exten
06e0: 73 69 6f 6e 73 2d 69 6e 64 65 78 3e 5c 6e 22 29 sions-index>\n")
06f0: 3b 0a 24 6d 61 70 5f 61 63 63 65 73 73 20 3d 20 ;.$map_access =
0700: 5b 22 70 75 62 6c 69 63 22 3d 3e 22 f0 9f 94 8e ["public"=>"🔎
0710: 22 2c 20 22 70 72 69 76 61 74 65 22 3d 3e 22 f0 ", "private"=>"
0720: 9f 95 b5 22 2c 20 22 61 64 6d 69 6e 22 3d 3e 22 ", "admin"=>"
0730: f0 9f 94 91 22 2c 20 22 61 75 74 68 22 3d 3e 22 🔑", "auth"=>"
0740: f0 9f 92 81 22 5d 3b 0a 66 6f 72 65 61 63 68 20 💁"];.foreach
0750: 28 6c 73 28 5f 5f 44 49 52 5f 5f 29 20 61 73 20 (ls(__DIR__) as
0760: 24 66 6e 29 20 7b 0a 20 20 20 20 24 6d 65 74 61 $fn) {. $meta
0770: 20 3d 20 6d 65 74 61 28 24 66 6e 29 3b 0a 20 20 = meta($fn);.
0780: 20 20 24 68 20 3d 20 22 68 22 3b 0a 20 20 20 20 $h = "h";.
0790: 24 74 69 74 6c 65 20 3d 20 24 6d 65 74 61 5b 22 $title = $meta["
07a0: 74 69 74 6c 65 22 5d 20 3f 3a 20 24 66 6e 3b 0a title"] ?: $fn;.
07b0: 20 20 20 20 24 76 65 72 73 69 6f 6e 20 3d 20 24 $version = $
07c0: 6d 65 74 61 5b 22 76 65 72 73 69 6f 6e 22 5d 20 meta["version"]
07d0: 3f 3a 20 22 2d 22 3b 0a 20 20 20 20 24 64 65 73 ?: "-";. $des
07e0: 63 20 3d 20 24 6d 65 74 61 5b 22 64 65 73 63 72 c = $meta["descr
07f0: 69 70 74 69 6f 6e 22 5d 20 3f 3a 20 24 66 6e 3b iption"] ?: $fn;
0800: 0a 20 20 20 20 24 74 79 70 65 20 3d 20 24 6d 65 . $type = $me
0810: 74 61 5b 22 74 79 70 65 22 5d 20 3f 3a 20 22 65 ta["type"] ?: "e
0820: 78 74 65 6e 73 69 6f 6e 22 3b 0a 20 20 20 20 24 xtension";. $
0830: 63 61 74 20 3d 20 24 6d 65 74 61 5b 22 63 61 74 cat = $meta["cat
0840: 65 67 6f 72 79 22 5d 20 3f 3a 20 22 2d 22 3b 0a egory"] ?: "-";.
0850: 20 20 20 20 24 61 63 63 65 73 73 20 3d 20 22 22 $access = ""
0860: 3b 0a 20 20 20 20 69 66 20 28 21 65 6d 70 74 79 ;. if (!empty
0870: 28 24 6d 65 74 61 5b 22 61 63 63 65 73 73 22 5d ($meta["access"]
0880: 29 29 20 7b 0a 20 20 20 20 20 20 20 20 24 61 63 )) {. $ac
0890: 63 65 73 73 20 3d 20 22 3c 73 70 61 6e 20 63 6c cess = "<span cl
08a0: 61 73 73 3d 61 63 63 65 73 73 20 74 69 74 6c 65 ass=access title
08b0: 3d 27 24 6d 65 74 61 5b 61 63 63 65 73 73 5d 27 ='$meta[access]'
08c0: 3e 22 20 2e 20 28 24 6d 61 70 5f 61 63 63 65 73 >" . ($map_acces
08d0: 73 5b 24 6d 65 74 61 5b 22 61 63 63 65 73 73 22 s[$meta["access"
08e0: 5d 5d 20 3f 3a 20 22 f0 9f 94 92 22 29 20 2e 20 ]] ?: "🔒") .
08f0: 22 3c 2f 73 70 61 6e 3e 22 3b 0a 20 20 20 20 7d "</span>";. }
0900: 0a 20 20 20 20 70 72 69 6e 74 20 3c 3c 3c 45 4f . print <<<EO
0910: 46 0a 0a 20 20 20 20 3c 64 69 76 20 63 6c 61 73 F.. <div clas
0920: 73 3d 22 66 73 6c 2d 65 78 74 20 24 63 61 74 22 s="fsl-ext $cat"
0930: 20 74 69 74 6c 65 3d 22 7b 24 68 28 24 6d 65 74 title="{$h($met
0940: 61 5b 27 5f 5f 64 6f 63 5f 5f 27 5d 2c 20 45 4e a['__doc__'], EN
0950: 54 5f 51 55 4f 54 45 53 29 7d 22 3e 0a 20 20 20 T_QUOTES)}">.
0960: 20 20 20 20 20 3c 61 20 68 72 65 66 3d 22 24 5f <a href="$_
0970: 53 45 52 56 45 52 5b 46 4f 53 53 49 4c 5f 55 52 SERVER[FOSSIL_UR
0980: 49 5d 2f 65 78 74 2f 24 66 6e 22 3e 24 74 69 74 I]/ext/$fn">$tit
0990: 6c 65 3c 2f 61 3e 0a 20 20 20 20 20 20 20 20 3c le</a>. <
09a0: 73 70 61 6e 20 63 6c 61 73 73 3d 76 65 72 73 69 span class=versi
09b0: 6f 6e 3e 24 76 65 72 73 69 6f 6e 3c 2f 73 70 61 on>$version</spa
09c0: 6e 3e 20 24 61 63 63 65 73 73 0a 20 20 20 20 20 n> $access.
09d0: 20 20 20 3c 73 70 61 6e 20 63 6c 61 73 73 3d 72 <span class=r
09e0: 69 67 68 74 3e 0a 20 20 20 20 20 20 20 20 20 20 ight>.
09f0: 3c 64 69 76 20 63 6c 61 73 73 3d 74 79 70 65 3e <div class=type>
0a00: 24 74 79 70 65 3c 2f 64 69 76 3e 0a 20 20 20 20 $type</div>.
0a10: 20 20 20 20 20 20 3c 64 69 76 20 63 6c 61 73 73 <div class
0a20: 3d 63 61 74 65 67 6f 72 79 3e 24 63 61 74 3c 2f =category>$cat</
0a30: 64 69 76 3e 0a 20 20 20 20 20 20 20 20 3c 2f 73 div>. </s
0a40: 70 61 6e 3e 0a 20 20 20 20 20 20 20 20 3c 64 69 pan>. <di
0a50: 76 20 63 6c 61 73 73 3d 64 65 73 63 72 69 70 74 v class=descript
0a60: 69 6f 6e 3e 7b 24 68 28 24 64 65 73 63 29 7d 3c ion>{$h($desc)}<
0a70: 2f 64 69 76 3e 0a 20 20 20 20 3c 2f 64 69 76 3e /div>. </div>
0a80: 0a 0a 45 4f 46 3b 0a 7d 0a 20 20 20 20 70 72 69 ..EOF;.}. pri
0a90: 6e 74 20 22 3c 2f 64 69 76 3e 22 3b 0a 0a 3f 3e nt "</div>";..?>