Artifact
e30e734602de1e0304fa5b8fb27126aab5d179ba
Executable file
parts/mkskin
— part of check-in
[118bad7553]
at
2020-11-22 14:24:21
on branch trunk
— Integrate jQuery + code-prettifier into github template.
(Patched out '$a' TH1 hiccup and script-inclusion from prettifier_loader)
(user:
mario
size: 3098)
0000: 23 21 2f 75 73 72 2f 62 69 6e 2f 70 68 70 20 2d #!/usr/bin/php -
0010: 71 43 0a 3c 3f 70 68 70 0a 23 0a 23 20 43 6f 6d qC.<?php.#.# Com
0020: 62 69 6e 65 20 68 74 6d 6c 2f 63 73 73 20 66 69 bine html/css fi
0030: 6c 65 73 20 69 6e 74 6f 20 73 6b 69 6e 20 63 6f les into skin co
0040: 6e 66 69 67 75 72 61 74 69 6f 6e 20 63 61 72 64 nfiguration card
0050: 20 2e 74 78 74 20 66 69 6c 65 2e 0a 23 0a 23 20 .txt file..#.#
0060: 55 6e 64 65 72 73 74 61 6e 64 73 20 2a 2e 68 65 Understands *.he
0070: 61 64 65 72 2e 2a 2c 20 2a 2e 66 6f 6f 74 65 72 ader.*, *.footer
0080: 2e 2a 20 61 6e 64 20 2a 2e 63 73 73 2e 2a 20 66 .* and *.css.* f
0090: 69 6c 65 6e 61 6d 65 73 2c 20 61 6e 64 0a 23 20 ilenames, and.#
00a0: 61 73 73 75 6d 65 73 20 74 68 65 20 74 65 6d 70 assumes the temp
00b0: 6c 61 74 65 20 6e 61 6d 65 20 66 72 6f 6d 20 66 late name from f
00c0: 69 6c 65 20 62 61 73 65 6e 61 6d 65 73 20 6f 72 ile basenames or
00d0: 20 70 61 72 65 6e 74 20 64 69 72 6e 61 6d 65 73 parent dirnames
00e0: 2e 0a 23 0a 23 0a 23 20 54 6f 20 61 73 73 65 6d ..#.#.# To assem
00f0: 62 6c 65 20 74 65 6d 70 6c 61 74 65 20 70 61 72 ble template par
0100: 74 73 3a 0a 23 0a 23 20 20 20 20 20 20 6d 6b 73 ts:.#.# mks
0110: 6b 69 6e 20 73 6b 69 6e 2f 74 6d 70 6c 6e 61 6d kin skin/tmplnam
0120: 65 2f 2a 2e 2a 20 3e 20 73 6b 69 6e 2e 74 78 74 e/*.* > skin.txt
0130: 0a 23 0a 23 0a 23 20 41 6c 74 65 72 6e 61 74 69 .#.#.# Alternati
0140: 76 65 6c 79 20 63 72 61 66 74 20 52 45 50 4c 41 vely craft REPLA
0150: 43 45 20 49 4e 54 4f 20 63 6f 6e 66 69 67 20 53 CE INTO config S
0160: 51 4c 20 73 74 61 74 6d 65 6e 74 73 2c 0a 23 20 QL statments,.#
0170: 6f 72 20 63 6f 6d 62 69 6e 65 64 20 69 6e 74 6f or combined into
0180: 20 61 20 22 73 6b 69 6e 3a 6e 61 6d 65 22 20 63 a "skin:name" c
0190: 6f 6e 66 69 67 20 63 61 72 64 20 69 6d 70 6f 72 onfig card impor
01a0: 74 20 66 69 6c 65 20 65 76 65 6e 3a 0a 23 0a 23 t file even:.#.#
01b0: 20 20 20 20 20 20 6d 6b 73 6b 69 6e 20 2d 2d 73 mkskin --s
01c0: 71 6c 20 73 6b 69 6e 2f 74 6d 70 6c 2f 2a 20 20 ql skin/tmpl/*
01d0: 20 20 20 20 20 20 3e 20 73 6b 69 6e 2e 73 71 6c > skin.sql
01e0: 0a 23 20 20 20 20 20 20 6d 6b 73 6b 69 6e 20 2d .# mkskin -
01f0: 2d 73 71 6c 20 2d 2d 72 65 67 20 73 6b 69 6e 2f -sql --reg skin/
0200: 74 6d 70 6c 2f 2a 20 20 3e 20 73 6b 69 6e 2d 72 tmpl/* > skin-r
0210: 65 67 2e 74 78 74 0a 23 0a 0a 0a 23 20 63 6d 64 eg.txt.#...# cmd
0220: 20 61 72 67 73 20 61 73 20 69 6e 70 75 74 20 66 args as input f
0230: 69 6c 65 73 20 74 6f 20 6d 65 72 67 65 0a 24 66 iles to merge.$f
0240: 69 6c 65 73 20 3d 20 61 72 72 61 79 5f 73 6c 69 iles = array_sli
0250: 63 65 28 24 5f 53 45 52 56 45 52 5b 22 61 72 67 ce($_SERVER["arg
0260: 76 22 5d 2c 20 31 29 3b 0a 24 6f 70 74 73 20 3d v"], 1);.$opts =
0270: 20 70 72 65 67 5f 67 72 65 70 28 22 2f 5e 2d 2f preg_grep("/^-/
0280: 22 2c 20 24 66 69 6c 65 73 29 3b 0a 24 66 69 6c ", $files);.$fil
0290: 65 73 20 3d 20 61 72 72 61 79 5f 76 61 6c 75 65 es = array_value
02a0: 73 28 61 72 72 61 79 5f 64 69 66 66 28 24 66 69 s(array_diff($fi
02b0: 6c 65 73 2c 20 24 6f 70 74 73 29 29 3b 0a 69 66 les, $opts));.if
02c0: 20 28 65 6d 70 74 79 28 24 66 69 6c 65 73 29 29 (empty($files))
02d0: 20 7b 0a 20 20 20 65 78 69 74 28 22 55 73 61 67 {. exit("Usag
02e0: 65 3a 5c 6e 20 20 6d 6b 73 6b 69 6e 20 5b 2d 2d e:\n mkskin [--
02f0: 73 71 6c 5d 20 5b 2d 2d 72 65 67 5d 20 70 61 72 sql] [--reg] par
0300: 74 73 2f 6e 61 6d 65 2f 2a 20 3e 20 6f 75 74 70 ts/name/* > outp
0310: 75 74 2e 74 78 74 5c 6e 22 29 3b 0a 7d 0a 24 6f ut.txt\n");.}.$o
0320: 5f 73 71 6c 20 3d 20 21 21 70 72 65 67 5f 67 72 _sql = !!preg_gr
0330: 65 70 28 22 2f 73 71 6c 7c 72 61 77 7c 69 6e 73 ep("/sql|raw|ins
0340: 65 72 74 7c 72 65 70 6c 61 63 65 2f 69 22 2c 20 ert|replace/i",
0350: 24 6f 70 74 73 29 3b 0a 24 6f 5f 72 65 67 20 3d $opts);.$o_reg =
0360: 20 21 21 70 72 65 67 5f 67 72 65 70 28 22 2f 72 !!preg_grep("/r
0370: 65 67 7c 73 6b 69 6e 7c 6e 61 6d 65 7c 62 6c 6f eg|skin|name|blo
0380: 62 7c 63 6f 6d 62 69 6e 65 2f 69 22 2c 20 24 6f b|combine/i", $o
0390: 70 74 73 29 3b 0a 0a 0a 23 20 73 6f 6d 65 20 64 pts);...# some d
03a0: 65 66 61 75 6c 74 73 0a 24 73 6b 69 6e 5f 6e 61 efaults.$skin_na
03b0: 6d 65 20 3d 20 73 6b 69 6e 5f 6e 61 6d 65 28 24 me = skin_name($
03c0: 66 69 6c 65 73 5b 30 5d 29 3b 0a 24 74 69 6d 65 files[0]);.$time
03d0: 20 3d 20 74 69 6d 65 28 29 3b 0a 24 64 61 74 65 = time();.$date
03e0: 20 3d 20 67 6d 73 74 72 66 74 69 6d 65 28 22 25 = gmstrftime("%
03f0: 59 2d 25 6d 2d 25 64 54 25 48 2d 25 4d 2d 25 53 Y-%m-%dT%H-%M-%S
0400: 5a 22 2c 20 24 74 69 6d 65 29 3b 0a 24 71 20 3d Z", $time);.$q =
0410: 20 6e 65 77 20 50 44 4f 28 22 73 71 6c 69 74 65 new PDO("sqlite
0420: 3a 3a 6d 65 6d 6f 72 79 3a 22 29 3b 0a 24 6f 75 ::memory:");.$ou
0430: 74 70 75 74 20 3d 20 22 22 3b 0a 0a 0a 0a 23 2d tput = "";....#-
0440: 2d 20 6c 6f 6f 70 20 6f 76 65 72 20 66 69 6c 65 - loop over file
0450: 73 0a 66 6f 72 65 61 63 68 20 28 24 66 69 6c 65 s.foreach ($file
0460: 73 20 61 73 20 24 66 6e 29 20 7b 0a 0a 20 20 20 s as $fn) {..
0470: 20 23 20 66 69 67 75 72 65 20 6f 75 74 20 63 6c # figure out cl
0480: 61 73 73 0a 20 20 20 20 24 63 6f 6e 66 69 67 20 ass. $config
0490: 3d 20 63 6f 6e 66 69 67 5f 6e 61 6d 65 28 24 66 = config_name($f
04a0: 6e 29 3b 0a 20 20 20 20 69 66 20 28 21 24 63 6f n);. if (!$co
04b0: 6e 66 69 67 29 20 7b 0a 20 20 20 20 20 20 20 63 nfig) {. c
04c0: 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 7d 0a 20 ontinue;. }.
04d0: 20 20 20 0a 20 20 20 20 23 20 72 65 61 64 0a 20 . # read.
04e0: 20 20 20 24 76 61 6c 75 65 20 3d 20 66 69 6c 65 $value = file
04f0: 5f 67 65 74 5f 63 6f 6e 74 65 6e 74 73 28 24 66 _get_contents($f
0500: 6e 29 3b 0a 20 20 20 20 24 76 61 6c 75 65 20 3d n);. $value =
0510: 20 70 72 65 67 5f 72 65 70 6c 61 63 65 28 22 2f preg_replace("/
0520: 5c 52 2f 22 2c 20 22 5c 6e 22 2c 20 24 76 61 6c \R/", "\n", $val
0530: 75 65 29 3b 0a 0a 20 20 20 20 23 20 61 70 70 65 ue);.. # appe
0540: 6e 64 0a 20 20 20 20 69 66 20 28 21 24 6f 5f 73 nd. if (!$o_s
0550: 71 6c 29 20 7b 0a 20 20 20 20 20 20 20 24 6f 75 ql) {. $ou
0560: 74 70 75 74 20 2e 3d 20 63 6f 6e 66 69 67 5f 6e tput .= config_n
0570: 61 6d 65 5f 76 61 6c 75 65 5f 6c 69 6e 65 28 24 ame_value_line($
0580: 63 6f 6e 66 69 67 2c 20 24 76 61 6c 75 65 29 3b config, $value);
0590: 0a 20 20 20 20 7d 0a 20 20 20 20 65 6c 73 65 20 . }. else
05a0: 7b 0a 20 20 20 20 20 20 20 24 6f 75 74 70 75 74 {. $output
05b0: 20 2e 3d 20 63 6f 6e 66 69 67 5f 73 71 6c 5f 72 .= config_sql_r
05c0: 65 70 6c 61 63 65 5f 6c 69 6e 65 28 24 63 6f 6e eplace_line($con
05d0: 66 69 67 2c 20 24 76 61 6c 75 65 29 3b 0a 20 20 fig, $value);.
05e0: 20 20 7d 0a 7d 0a 0a 23 2d 2d 20 68 65 61 64 65 }.}..#-- heade
05f0: 72 2c 20 61 6e 64 20 77 72 61 70 70 69 6e 67 0a r, and wrapping.
0600: 69 66 20 28 21 24 6f 5f 73 71 6c 29 20 7b 0a 20 if (!$o_sql) {.
0610: 20 24 6f 75 74 70 75 74 20 3d 20 22 23 20 46 6f $output = "# Fo
0620: 73 73 69 6c 20 73 6b 69 6e 20 63 6f 6e 66 69 67 ssil skin config
0630: 75 72 61 74 69 6f 6e 20 5c 22 24 73 6b 69 6e 5f uration \"$skin_
0640: 6e 61 6d 65 5c 22 20 66 6f 72 20 73 69 6d 70 6c name\" for simpl
0650: 65 20 60 66 6f 73 73 69 6c 20 63 6f 6e 66 69 67 e `fossil config
0660: 20 69 6d 70 6f 72 74 20 73 6b 69 6e 2e 74 78 74 import skin.txt
0670: 60 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 2e `\n". .
0680: 20 22 23 20 24 64 61 74 65 5c 6e 23 5c 6e 22 0a "# $date\n#\n".
0690: 20 20 20 20 20 20 20 20 20 20 2e 20 24 6f 75 74 . $out
06a0: 70 75 74 3b 0a 7d 0a 65 6c 73 65 69 66 20 28 21 put;.}.elseif (!
06b0: 24 6f 5f 72 65 67 29 20 7b 0a 20 20 24 6f 75 74 $o_reg) {. $out
06c0: 70 75 74 20 3d 20 22 2d 2d 20 46 6f 73 73 69 6c put = "-- Fossil
06d0: 20 73 6b 69 6e 20 5c 22 24 73 6b 69 6e 5f 6e 61 skin \"$skin_na
06e0: 6d 65 5c 22 20 61 73 20 72 61 77 20 53 51 4c 20 me\" as raw SQL
06f0: 73 74 61 74 65 6d 65 6e 74 73 20 28 24 64 61 74 statements ($dat
0700: 65 29 5c 6e 5c 6e 22 0a 20 20 20 20 20 20 20 20 e)\n\n".
0710: 20 20 2e 20 24 6f 75 74 70 75 74 3b 0a 7d 0a 65 . $output;.}.e
0720: 6c 73 65 20 7b 0a 20 20 24 6f 75 74 70 75 74 20 lse {. $output
0730: 3d 20 22 23 20 43 6f 6e 66 69 67 20 5c 22 73 6b = "# Config \"sk
0740: 69 6e 3a 24 73 6b 69 6e 5f 6e 61 6d 65 5c 22 20 in:$skin_name\"
0750: 69 6d 70 6f 72 74 20 63 61 72 64 5c 6e 5c 6e 22 import card\n\n"
0760: 0a 20 20 20 20 20 20 20 20 20 20 2e 20 63 6f 6e . . con
0770: 66 69 67 5f 6e 61 6d 65 5f 76 61 6c 75 65 5f 6c fig_name_value_l
0780: 69 6e 65 28 22 73 6b 69 6e 3a 24 73 6b 69 6e 5f ine("skin:$skin_
0790: 6e 61 6d 65 22 2c 20 24 6f 75 74 70 75 74 29 3b name", $output);
07a0: 0a 7d 0a 0a 23 2d 2d 20 6f 75 74 70 75 74 20 63 .}..#-- output c
07b0: 6f 6d 62 69 6e 65 64 20 53 51 4c 20 63 6f 6e 66 ombined SQL conf
07c0: 69 67 20 66 69 6c 65 0a 70 72 69 6e 74 20 24 6f ig file.print $o
07d0: 75 74 70 75 74 3b 0a 0a 0a 0a 2f 2a 2a 0a 20 2a utput;..../**. *
07e0: 20 57 72 61 70 73 20 76 61 6c 75 65 20 69 6e 74 Wraps value int
07f0: 6f 20 22 63 6f 6e 66 69 67 20 2f 63 6f 6e 66 69 o "config /confi
0800: 67 20 6e 6e 6e 22 20 6c 69 6e 65 2e 0a 20 2a 0a g nnn" line.. *.
0810: 20 2a 2f 0a 66 75 6e 63 74 69 6f 6e 20 63 6f 6e */.function con
0820: 66 69 67 5f 6e 61 6d 65 5f 76 61 6c 75 65 5f 6c fig_name_value_l
0830: 69 6e 65 20 28 24 6e 61 6d 65 2c 20 24 76 61 6c ine ($name, $val
0840: 75 65 29 20 7b 0a 20 20 20 20 67 6c 6f 62 61 6c ue) {. global
0850: 20 24 74 69 6d 65 2c 20 24 71 3b 0a 0a 20 20 20 $time, $q;..
0860: 20 23 20 71 75 6f 74 65 20 66 6f 72 20 53 51 4c # quote for SQL
0870: 20 63 6f 6e 74 65 78 74 0a 20 20 20 20 24 76 61 context. $va
0880: 6c 75 65 20 3d 20 24 71 2d 3e 71 75 6f 74 65 28 lue = $q->quote(
0890: 24 76 61 6c 75 65 29 3b 0a 20 20 20 20 24 6c 65 $value);. $le
08a0: 6e 67 74 68 20 3d 20 73 74 72 6c 65 6e 28 24 76 ngth = strlen($v
08b0: 61 6c 75 65 29 20 2b 20 73 74 72 6c 65 6e 28 22 alue) + strlen("
08c0: 24 74 69 6d 65 20 27 24 6e 61 6d 65 27 20 76 61 $time '$name' va
08d0: 6c 75 65 20 22 29 3b 0a 0a 20 20 20 20 23 20 61 lue ");.. # a
08e0: 6e 64 20 61 70 70 65 6e 64 20 74 6f 20 73 71 6c nd append to sql
08f0: 2f 63 6f 6e 66 69 67 20 6f 75 74 70 75 74 0a 20 /config output.
0900: 20 20 20 72 65 74 75 72 6e 20 22 63 6f 6e 66 69 return "confi
0910: 67 20 2f 63 6f 6e 66 69 67 20 24 6c 65 6e 67 74 g /config $lengt
0920: 68 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 2e 20 h\n". .
0930: 22 24 74 69 6d 65 20 27 24 6e 61 6d 65 27 20 76 "$time '$name' v
0940: 61 6c 75 65 20 24 76 61 6c 75 65 5c 6e 22 3b 0a alue $value\n";.
0950: 7d 0a 0a 2f 2a 2a 0a 20 2a 20 57 72 61 70 73 20 }../**. * Wraps
0960: 76 61 6c 75 65 20 69 6e 74 6f 20 22 63 6f 6e 66 value into "conf
0970: 69 67 20 2f 63 6f 6e 66 69 67 20 6e 6e 6e 22 20 ig /config nnn"
0980: 6c 69 6e 65 2e 0a 20 2a 0a 20 2a 2f 0a 66 75 6e line.. *. */.fun
0990: 63 74 69 6f 6e 20 63 6f 6e 66 69 67 5f 73 71 6c ction config_sql
09a0: 5f 72 65 70 6c 61 63 65 5f 6c 69 6e 65 20 28 24 _replace_line ($
09b0: 6e 61 6d 65 2c 20 24 76 61 6c 75 65 29 20 7b 0a name, $value) {.
09c0: 20 20 20 20 67 6c 6f 62 61 6c 20 24 74 69 6d 65 global $time
09d0: 2c 20 24 71 3b 0a 20 20 20 20 24 76 61 6c 75 65 , $q;. $value
09e0: 20 3d 20 24 71 2d 3e 71 75 6f 74 65 28 24 76 61 = $q->quote($va
09f0: 6c 75 65 29 3b 0a 20 20 20 20 72 65 74 75 72 6e lue);. return
0a00: 20 22 52 45 50 4c 41 43 45 20 49 4e 54 4f 20 63 "REPLACE INTO c
0a10: 6f 6e 66 69 67 20 28 6e 61 6d 65 2c 6d 74 69 6d onfig (name,mtim
0a20: 65 2c 76 61 6c 75 65 29 20 56 41 4c 55 45 53 20 e,value) VALUES
0a30: 28 27 24 6e 61 6d 65 27 2c 20 24 74 69 6d 65 2c ('$name', $time,
0a40: 20 24 76 61 6c 75 65 29 3b 5c 6e 5c 6e 22 3b 0a $value);\n\n";.
0a50: 7d 0a 0a 0a 0a 23 2d 2d 20 75 73 65 20 64 69 72 }....#-- use dir
0a60: 65 63 74 6f 72 79 20 6f 72 20 62 61 73 65 6e 61 ectory or basena
0a70: 6d 65 20 61 73 20 73 6b 69 6e 20 6e 61 6d 65 0a me as skin name.
0a80: 66 75 6e 63 74 69 6f 6e 20 73 6b 69 6e 5f 6e 61 function skin_na
0a90: 6d 65 28 24 66 6e 29 20 7b 0a 20 20 20 20 69 66 me($fn) {. if
0aa0: 20 28 70 72 65 67 5f 6d 61 74 63 68 28 22 7e 28 (preg_match("~(
0ab0: 3f 3a 5e 7c 2f 29 28 28 3f 21 68 65 61 64 65 72 ?:^|/)((?!header
0ac0: 7c 66 6f 6f 74 65 72 7c 63 73 73 7c 6a 73 29 5b |footer|css|js)[
0ad0: 5c 77 2d 5d 2b 29 28 3f 3a 5c 2e 28 3f 3a 5c 77 \w-]+)(?:\.(?:\w
0ae0: 7b 32 2c 34 7d 7c 68 65 61 64 65 72 7c 66 6f 6f {2,4}|header|foo
0af0: 74 65 72 7c 6a 73 7c 74 68 31 2d 73 65 74 75 70 ter|js|th1-setup
0b00: 29 29 2a 24 7e 22 2c 20 24 66 6e 2c 20 24 75 75 ))*$~", $fn, $uu
0b10: 29 29 20 7b 0a 20 20 20 20 20 20 20 20 72 65 74 )) {. ret
0b20: 75 72 6e 20 24 75 75 5b 31 5d 3b 0a 20 20 20 20 urn $uu[1];.
0b30: 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 62 61 73 }. return bas
0b40: 65 6e 61 6d 65 28 64 69 72 6e 61 6d 65 28 24 66 ename(dirname($f
0b50: 6e 29 29 3b 0a 7d 0a 0a 23 2d 2d 20 65 78 74 72 n));.}..#-- extr
0b60: 61 63 74 20 68 65 61 64 65 72 2f 66 6f 6f 74 65 act header/foote
0b70: 72 2f 63 73 73 20 66 72 6f 6d 20 66 69 6c 65 6e r/css from filen
0b80: 61 6d 65 0a 66 75 6e 63 74 69 6f 6e 20 63 6f 6e ame.function con
0b90: 66 69 67 5f 6e 61 6d 65 28 24 66 6e 29 20 7b 0a fig_name($fn) {.
0ba0: 20 20 20 20 69 66 20 28 70 72 65 67 5f 6d 61 74 if (preg_mat
0bb0: 63 68 28 22 7e 28 68 65 61 64 65 72 7c 66 6f 6f ch("~(header|foo
0bc0: 74 65 72 7c 63 73 73 7c 6a 73 7c 74 68 31 2d 73 ter|css|js|th1-s
0bd0: 65 74 75 70 29 2e 2a 3f 24 7e 22 2c 20 24 66 6e etup).*?$~", $fn
0be0: 2c 20 24 75 75 29 29 20 7b 0a 20 20 20 20 20 20 , $uu)) {.
0bf0: 20 20 72 65 74 75 72 6e 20 24 75 75 5b 31 5d 3b return $uu[1];
0c00: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
0c10: 6e 20 4e 55 4c 4c 3b 0a 7d 0a n NULL;.}.