Artifact
16f45544e12d6ad38aa3655970cbd64e76230485
Executable file
extroot/index
— part of check-in
[f6b70114ca]
at
2021-04-05 18:44:43
on branch trunk
— fix PMD extraction regex
(user:
mario
size: 1196)
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 74 ype: display.# t
0060: 69 74 6c 65 3a 20 45 78 74 2f 20 69 6e 64 65 78 itle: Ext/ index
0070: 0a 23 20 64 65 73 63 72 69 70 74 69 6f 6e 3a 20 .# description:
0080: 4c 69 73 74 73 20 61 6c 6c 20 43 47 49 20 65 78 Lists all CGI ex
0090: 74 65 6e 73 69 6f 6e 73 20 69 6e 20 74 68 65 20 tensions in the
00a0: 65 78 74 72 6f 6f 74 3a 20 66 6f 6c 64 65 72 0a extroot: folder.
00b0: 23 20 76 65 72 73 69 6f 6e 3a 20 30 2e 31 0a 23 # version: 0.1.#
00c0: 20 73 74 61 74 65 3a 20 61 6c 70 68 61 0a 23 20 state: alpha.#
00d0: 63 6f 6e 66 69 67 3a 20 2d 0a 23 0a 23 20 4a 75 config: -.#.# Ju
00e0: 73 74 20 61 20 67 6c 6f 62 28 29 20 61 6e 64 20 st a glob() and
00f0: 73 6f 6d 65 20 63 72 75 64 65 20 70 6c 75 67 69 some crude plugi
0100: 6e 20 6d 65 74 61 20 65 78 74 72 61 63 74 69 6f n meta extractio
0110: 6e 2e 0a 23 0a 0a 0a 23 2d 2d 20 66 6f 73 73 69 n..#...#-- fossi
0120: 6c 20 48 54 4d 4c 20 6f 75 74 70 75 74 0a 66 75 l HTML output.fu
0130: 6e 63 74 69 6f 6e 20 70 61 67 65 5f 6d 64 28 24 nction page_md($
0140: 74 65 78 74 29 20 7b 0a 20 20 20 20 68 65 61 64 text) {. head
0150: 65 72 28 22 43 6f 6e 74 65 6e 74 2d 54 79 70 65 er("Content-Type
0160: 3a 20 74 65 78 74 2f 78 2d 6d 61 72 6b 64 6f 77 : text/x-markdow
0170: 6e 3b 20 65 6e 63 6f 64 69 6e 67 3d 75 74 66 2d n; encoding=utf-
0180: 38 22 29 3b 0a 20 20 20 20 70 72 69 6e 74 28 24 8");. print($
0190: 74 65 78 74 29 3b 0a 7d 0a 0a 23 2d 2d 20 66 69 text);.}..#-- fi
01a0: 6c 74 65 72 65 64 20 66 69 6c 65 20 6c 69 73 74 ltered file list
01b0: 0a 66 75 6e 63 74 69 6f 6e 20 6c 73 28 24 64 69 .function ls($di
01c0: 72 29 20 7b 0a 20 20 20 20 24 6c 73 20 3d 20 5b r) {. $ls = [
01d0: 5d 3b 0a 20 20 20 20 66 6f 72 65 61 63 68 20 28 ];. foreach (
01e0: 67 6c 6f 62 28 22 24 64 69 72 2f 2a 22 29 20 61 glob("$dir/*") a
01f0: 73 20 24 66 6e 29 20 7b 0a 20 20 20 20 20 20 20 s $fn) {.
0200: 20 69 66 20 28 69 73 5f 66 69 6c 65 28 24 66 6e if (is_file($fn
0210: 29 20 61 6e 64 20 69 73 5f 65 78 65 63 75 74 61 ) and is_executa
0220: 62 6c 65 28 24 66 6e 29 20 61 6e 64 20 69 73 5f ble($fn) and is_
0230: 72 65 61 64 61 62 6c 65 28 24 66 6e 29 29 20 7b readable($fn)) {
0240: 0a 20 20 20 20 20 20 20 20 20 20 20 20 24 6c 73 . $ls
0250: 5b 5d 20 3d 20 62 61 73 65 6e 61 6d 65 28 24 66 [] = basename($f
0260: 6e 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 n);. }.
0270: 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 24 }. return $
0280: 6c 73 3b 0a 7d 0a 0a 23 2d 2d 20 72 6f 75 67 68 ls;.}..#-- rough
0290: 20 70 6c 75 67 69 6e 20 6d 65 74 61 20 64 61 74 plugin meta dat
02a0: 61 20 72 65 61 64 69 6e 67 0a 66 75 6e 63 74 69 a reading.functi
02b0: 6f 6e 20 6d 65 74 61 28 24 66 6e 29 20 7b 0a 20 on meta($fn) {.
02c0: 20 20 20 24 73 72 63 20 3d 20 66 69 6c 65 5f 67 $src = file_g
02d0: 65 74 5f 63 6f 6e 74 65 6e 74 73 28 24 66 6e 2c et_contents($fn,
02e0: 20 66 61 6c 73 65 2c 20 4e 55 4c 4c 2c 20 30 2c false, NULL, 0,
02f0: 20 31 30 32 34 29 3b 0a 20 20 20 20 70 72 65 67 1024);. preg
0300: 5f 6d 61 74 63 68 5f 61 6c 6c 28 22 7e 5e 5c 73 _match_all("~^\s
0310: 7b 30 2c 32 7d 5b 23 2a 5c 2f 5d 2b 5c 73 7b 30 {0,2}[#*\/]+\s{0
0320: 2c 32 7d 28 5b 5c 77 5c 2d 5d 2b 29 3a 5c 73 2a ,2}([\w\-]+):\s*
0330: 28 2e 2b 29 5c 6e 7e 6d 22 2c 20 24 73 72 63 2c (.+)\n~m", $src,
0340: 20 24 75 75 29 3b 0a 20 20 20 20 72 65 74 75 72 $uu);. retur
0350: 6e 20 61 72 72 61 79 5f 63 6f 6d 62 69 6e 65 28 n array_combine(
0360: 24 75 75 5b 31 5d 2c 20 24 75 75 5b 32 5d 29 3b $uu[1], $uu[2]);
0370: 0a 7d 0a 0a 23 2d 2d 20 72 75 6e 0a 70 61 67 65 .}..#-- run.page
0380: 5f 6d 64 28 22 23 23 20 45 78 74 65 6e 73 69 6f _md("## Extensio
0390: 6e 73 5c 6e 5c 6e 22 29 3b 0a 66 6f 72 65 61 63 ns\n\n");.foreac
03a0: 68 20 28 6c 73 28 5f 5f 44 49 52 5f 5f 29 20 61 h (ls(__DIR__) a
03b0: 73 20 24 66 6e 29 20 7b 0a 20 20 20 20 24 6d 65 s $fn) {. $me
03c0: 74 61 20 3d 20 6d 65 74 61 28 24 66 6e 29 3b 0a ta = meta($fn);.
03d0: 20 20 20 20 24 74 69 74 6c 65 20 3d 20 24 6d 65 $title = $me
03e0: 74 61 5b 22 74 69 74 6c 65 22 5d 20 6f 72 20 24 ta["title"] or $
03f0: 66 6e 3b 0a 20 20 20 20 24 76 65 72 73 69 6f 6e fn;. $version
0400: 20 3d 20 24 6d 65 74 61 5b 22 76 65 72 73 69 6f = $meta["versio
0410: 6e 22 5d 20 3f 20 22 20 28 24 6d 65 74 61 5b 76 n"] ? " ($meta[v
0420: 65 72 73 69 6f 6e 5d 29 22 20 3a 20 22 22 3b 0a ersion])" : "";.
0430: 20 20 20 20 24 64 65 73 63 20 3d 20 24 6d 65 74 $desc = $met
0440: 61 5b 22 64 65 73 63 72 69 70 74 69 6f 6e 22 5d a["description"]
0450: 20 61 6e 64 20 24 64 65 73 63 20 3d 20 22 20 20 and $desc = "
0460: 5c 6e 20 20 20 20 24 64 65 73 63 22 3b 0a 20 20 \n $desc";.
0470: 20 20 70 72 69 6e 74 20 22 20 2a 20 5b 24 74 69 print " * [$ti
0480: 74 6c 65 5d 28 24 66 6e 29 20 22 20 2e 20 24 76 tle]($fn) " . $v
0490: 65 72 73 69 6f 6e 20 2e 20 24 64 65 73 63 20 2e ersion . $desc .
04a0: 20 22 5c 6e 22 3b 0a 7d 0a 0a 3f 3e "\n";.}..?>