Fossil Skins Extra: Hex Artifact Content

Artifact 45178b87668a2e2ba9f9cd7d2c15084daeb03557:

Executable file extroot/changelog — part of check-in [69feea6f3b] at 2021-10-11 21:44:47 on branch trunk — NEWS-file generation (user: mario size: 1505)
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 6f 75 74 70 75 74 0a 23 20 63 61  ype: output.# ca
0060: 74 65 67 6f 72 79 3a 20 76 63 73 0a 23 20 74 69  tegory: vcs.# ti
0070: 74 6c 65 3a 20 63 68 61 6e 67 65 6c 6f 67 0a 23  tle: changelog.#
0080: 20 64 65 73 63 72 69 70 74 69 6f 6e 3a 20 4f 75   description: Ou
0090: 74 70 75 74 73 20 61 20 4e 45 57 53 2d 73 74 79  tputs a NEWS-sty
00a0: 6c 65 20 74 69 6d 65 6c 69 6e 65 0a 23 20 76 65  le timeline.# ve
00b0: 72 73 69 6f 6e 3a 20 30 2e 32 0a 23 20 73 74 61  rsion: 0.2.# sta
00c0: 74 65 3a 20 62 65 74 61 0a 23 20 64 65 70 65 6e  te: beta.# depen
00d0: 64 73 3a 20 70 68 70 3a 73 71 6c 69 74 65 0a 23  ds: php:sqlite.#
00e0: 20 63 6f 6e 66 69 67 3a 20 2d 0a 23 0a 23 20 41   config: -.#.# A
00f0: 20 76 61 72 69 61 6e 74 20 6f 66 20 74 68 65 20   variant of the 
0100: 68 6f 6f 6b 73 2e 74 68 31 20 76 65 72 73 69 6f  hooks.th1 versio
0110: 6e 2c 20 69 6e 20 50 48 50 2e 0a 23 0a 0a 0a 0a  n, in PHP..#....
0120: 23 2d 2d 20 64 61 74 61 62 61 73 65 20 28 3d 3d  #-- database (==
0130: 20 66 6f 73 73 69 6c 20 72 65 70 6f 29 0a 66 75   fossil repo).fu
0140: 6e 63 74 69 6f 6e 20 64 62 28 24 73 71 6c 3d 22  nction db($sql="
0150: 22 2c 20 24 70 61 72 61 6d 73 3d 5b 5d 29 20 7b  ", $params=[]) {
0160: 0a 20 20 20 20 73 74 61 74 69 63 20 24 64 62 3b  .    static $db;
0170: 0a 20 20 20 20 69 66 20 28 65 6d 70 74 79 28 24  .    if (empty($
0180: 64 62 29 29 20 7b 0a 20 20 20 20 20 20 20 20 24  db)) {.        $
0190: 64 62 20 3d 20 6e 65 77 20 50 44 4f 28 22 73 71  db = new PDO("sq
01a0: 6c 69 74 65 3a 3a 6d 65 6d 6f 72 79 3a 22 29 3b  lite::memory:");
01b0: 0a 20 20 20 20 20 20 20 20 24 64 62 2d 3e 73 65  .        $db->se
01c0: 74 41 74 74 72 69 62 75 74 65 28 50 44 4f 3a 3a  tAttribute(PDO::
01d0: 41 54 54 52 5f 45 52 52 4d 4f 44 45 2c 20 50 44  ATTR_ERRMODE, PD
01e0: 4f 3a 3a 45 52 52 4d 4f 44 45 5f 57 41 52 4e 49  O::ERRMODE_WARNI
01f0: 4e 47 29 3b 0a 20 20 20 20 20 20 20 20 24 64 62  NG);.        $db
0200: 2d 3e 71 75 65 72 79 28 22 41 54 54 41 43 48 20  ->query("ATTACH 
0210: 44 41 54 41 42 41 53 45 20 27 24 5f 53 45 52 56  DATABASE '$_SERV
0220: 45 52 5b 46 4f 53 53 49 4c 5f 52 45 50 4f 53 49  ER[FOSSIL_REPOSI
0230: 54 4f 52 59 5d 27 20 41 53 20 27 72 65 70 6f 27  TORY]' AS 'repo'
0240: 22 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66  ");.    }.    if
0250: 20 28 24 70 61 72 61 6d 73 29 20 7b 0a 20 20 20   ($params) {.   
0260: 20 20 20 20 20 24 73 74 6d 74 20 3d 20 24 64 62       $stmt = $db
0270: 2d 3e 70 72 65 70 61 72 65 28 24 73 71 6c 29 3b  ->prepare($sql);
0280: 0a 20 20 20 20 20 20 20 20 24 73 74 6d 74 2d 3e  .        $stmt->
0290: 65 78 65 63 75 74 65 28 24 70 61 72 61 6d 73 29  execute($params)
02a0: 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e  ;.        return
02b0: 20 24 73 74 6d 74 2d 3e 66 65 74 63 68 41 6c 6c   $stmt->fetchAll
02c0: 28 50 44 4f 3a 3a 46 45 54 43 48 5f 41 53 53 4f  (PDO::FETCH_ASSO
02d0: 43 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 65 6c  C);.    }.    el
02e0: 73 65 20 7b 0a 20 20 20 20 20 20 20 20 72 65 74  se {.        ret
02f0: 75 72 6e 20 24 64 62 2d 3e 71 75 65 72 79 28 24  urn $db->query($
0300: 73 71 6c 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 0a  sql);.    }.}...
0310: 23 2d 2d 20 6f 75 74 70 75 74 0a 68 65 61 64 65  #-- output.heade
0320: 72 28 22 43 6f 6e 74 65 6e 74 2d 54 79 70 65 3a  r("Content-Type:
0330: 20 74 65 78 74 2f 70 6c 61 69 6e 22 29 3b 0a 24   text/plain");.$
0340: 76 65 72 73 69 6f 6e 3d 22 74 72 75 6e 6b 22 3b  version="trunk";
0350: 0a 70 72 69 6e 74 20 22 24 76 65 72 73 69 6f 6e  .print "$version
0360: 20 28 75 6e 72 65 6c 65 61 73 65 64 29 5c 6e 22   (unreleased)\n"
0370: 3b 0a 24 72 20 3d 20 64 62 28 22 0a 20 20 20 20  ;.$r = db(".    
0380: 20 53 45 4c 45 43 54 20 65 76 65 6e 74 2e 6d 74   SELECT event.mt
0390: 69 6d 65 2c 20 74 61 67 2e 74 61 67 6e 61 6d 65  ime, tag.tagname
03a0: 2c 20 4d 41 58 28 74 61 67 2e 74 61 67 69 64 29  , MAX(tag.tagid)
03b0: 2c 20 44 41 54 45 28 65 76 65 6e 74 2e 6d 74 69  , DATE(event.mti
03c0: 6d 65 29 20 41 53 20 64 2c 0a 20 20 20 20 20 20  me) AS d,.      
03d0: 20 20 20 20 20 20 65 76 65 6e 74 2e 63 6f 6d 6d        event.comm
03e0: 65 6e 74 20 41 53 20 63 6f 6d 6d 65 6e 74 0a 20  ent AS comment. 
03f0: 20 20 20 20 46 52 4f 4d 20 65 76 65 6e 74 0a 20      FROM event. 
0400: 20 20 20 20 20 4c 45 46 54 20 4a 4f 49 4e 20 74       LEFT JOIN t
0410: 61 67 78 72 65 66 20 4f 4e 20 65 76 65 6e 74 2e  agxref ON event.
0420: 6f 62 6a 69 64 3d 74 61 67 78 72 65 66 2e 72 69  objid=tagxref.ri
0430: 64 0a 20 20 20 20 20 20 4c 45 46 54 20 4a 4f 49  d.      LEFT JOI
0440: 4e 20 74 61 67 20 4f 4e 20 74 61 67 78 72 65 66  N tag ON tagxref
0450: 2e 74 61 67 69 64 3d 74 61 67 2e 74 61 67 69 64  .tagid=tag.tagid
0460: 0a 20 20 20 20 20 57 48 45 52 45 20 74 79 70 65  .     WHERE type
0470: 3d 27 63 69 27 0a 20 20 20 20 20 47 52 4f 55 50  ='ci'.     GROUP
0480: 20 42 59 20 6f 62 6a 69 64 0a 20 20 20 20 20 4f   BY objid.     O
0490: 52 44 45 52 20 42 59 20 65 76 65 6e 74 2e 6d 74  RDER BY event.mt
04a0: 69 6d 65 20 44 45 53 43 0a 20 20 20 20 20 4c 49  ime DESC.     LI
04b0: 4d 49 54 20 37 35 30 0a 22 29 3b 0a 66 6f 72 65  MIT 750.");.fore
04c0: 61 63 68 20 28 24 72 20 61 73 20 24 72 6f 77 29  ach ($r as $row)
04d0: 20 7b 0a 20 20 20 20 69 66 20 28 70 72 65 67 5f   {.    if (preg_
04e0: 6d 61 74 63 68 28 27 2f 5e 73 79 6d 2d 2e 2a 3f  match('/^sym-.*?
04f0: 28 5c 64 2b 5c 2e 5c 64 2b 2e 2a 29 24 2f 27 2c  (\d+\.\d+.*)$/',
0500: 20 24 72 6f 77 5b 22 74 61 67 6e 61 6d 65 22 5d   $row["tagname"]
0510: 2e 20 24 75 75 29 29 20 7b 0a 20 20 20 20 20 20  . $uu)) {.      
0520: 20 20 24 76 65 72 73 69 6f 6e 20 3d 20 73 75 62    $version = sub
0530: 73 74 72 28 24 75 75 5b 31 5d 2c 20 33 2c 20 31  str($uu[1], 3, 1
0540: 30 30 29 3b 0a 20 20 20 20 20 20 20 20 70 72 69  00);.        pri
0550: 6e 74 20 22 5c 6e 24 76 65 72 73 69 6f 6e 20 28  nt "\n$version (
0560: 24 72 5b 64 5d 29 5c 6e 22 3b 0a 20 20 20 20 20  $r[d])\n";.     
0570: 7d 0a 20 20 20 20 20 24 63 6f 6d 6d 65 6e 74 20  }.     $comment 
0580: 3d 20 74 72 69 6d 28 70 72 65 67 5f 72 65 70 6c  = trim(preg_repl
0590: 61 63 65 28 22 2f 5c 73 2b 2f 22 2c 20 22 20 22  ace("/\s+/", " "
05a0: 2c 20 24 72 6f 77 5b 22 63 6f 6d 6d 65 6e 74 22  , $row["comment"
05b0: 5d 29 29 3b 0a 20 20 20 20 20 70 72 69 6e 74 20  ]));.     print 
05c0: 22 20 2a 20 24 63 6f 6d 6d 65 6e 74 5c 6e 22 3b  " * $comment\n";
05d0: 0a 7d 0a 70 72 69 6e 74 20 22 5c 6e 5c 6e 22 3b  .}.print "\n\n";
05e0: 0a                                               .