*/
function fossil_exec($args, $input=NULL) {
    $args = array_map(
        function ($s) {
            return escapeshellarg(preg_replace("/[^\\r\\n\\t\\x20-\\xFF]/", "", $s));
        },
        array_merge(
            ["--nocgi"], array_filter($args, "strlen"), ["-R", $_SERVER["FOSSIL_REPOSITORY"]]
        )
    );    
    $cmd = FOSSIL_BIN . " " . implode(" ", $args) . " 2>&1";
    if ($input) {
        #$tmpfn = tempnam();
        #$cmd .= " < $tmpfn";
    }

#!/usr/bin/php-cgi -dcgi.force_redirect=0
<?php
# encoding: utf-8
# api: cgi
# type: config
# category: wiki
# title: WikiTag
# description: tag wiki pages
# version: 0.2
# state: beta
# config: -
# access: ailsv
#
# Simplifies adding tags to wiki pages.
# Basically a wrapper around `fossil tag add` which looks up the first artifact id.
# (On the assumption that the very first page artifict should declare any tags.)

        }
        $uuid = first_uuid($page);
        $new = array_filter(str_getcsv($tags));
        $old = array_filter(str_getcsv($orig[$page]));
        #-- add
        foreach (array_diff($new, $old) as $add) {
            $propagate = empty($_POST["propagate"]) ? "" : "--propagate";
            fossil_exec(["tag", "add", $propagate, $add, $uuid]);
        }
        #-- rm
        foreach (array_diff($old, $new) as $rm) {
            fossil_exec(["tag", "cancel", $rm, $uuid]);
        }
    }
}
if (!empty($_POST["tags"])) {
    if (has_cap("ailsv")) {  #admin,checkin,modwiki,superuser,developer
        save($_POST["tags"]);
    }

    }
    // could alternatively try sync-with:*, but that might leak sensitive peers
    else {
        return $urls[0];
    }
}

#-- artifact user + size
function get_blob_info($uuid) {
    $r = db("
        SELECT login, size
          FROM blob
          LEFT JOIN rcvfrom ON blob.rcvid=rcvfrom.rcvid
          LEFT JOIN user ON user.uid=rcvfrom.uid
         WHERE uuid = ?",
        [$uuid]
    );
    return $r ? $r[0] : [];
}

#-- artifact owner
function get_user($uuid) {
    $r = get_blob_info($uuid);
    return $r ? $r["login"] : null;
}

#-- primary user
function get_main_user() {
    return db("
        SELECT user, COUNT(type) AS cnt
          FROM event

            ];
        },
        $rows
    );
    return $rows;
}

/**
 * Expand artifact uuids.
 *
 * Adds access urls (raw/ and json/ API) to simplify webhook consumption.
 * And fill in some basic attributes depending on type. (No need to turn
 * into a full push. Though perhaps `wiki` artifacts could be sent along.)
 *
 */
function expand_artifact($row, $url, $q="urlencode") {
    global $cfg;
    switch ($row["type"]) {
        case "attachment":
        case "file":
            $row["name"] = $row["comment"];
            $row["url_raw"] = "$url/raw/$row[uuid]?at={$q($row['name'])}";

            $row["url_raw"] = "$url/raw/{$q($row['uuid'])}?at={$q($row['uuid'])}";  # ERR: this still contains the artifact header
            $row["url_json"] = "$url/json/wiki/get/{$q($row['name'])}";
            $row["url_web"] = "$url/wiki/{$q($row['name'])}";
            break;
        case "check-in":
            $row["url_json"] = "$url/json/artifact/{$q($row['uuid'])}";
            break;

        case "tag":
            # `tag 123a31091fff0`
            # would need artifact lookup for `T +sym-1.0.0 xxxxxxxxxxxxxxx`
        case "attachment-control":
        case "referenced":
        default:
            break;
    }
    if ($blob = get_blob_info($row["uuid"])) {
        $cfg["user"] = $blob["user"];
        $row += $blob;
    }
    return $row;
}

#-- check-in or file, or other artifact types
function main_action($stdin) {
    foreach (["check-in", "file", "attachment", "wiki", "referenced", "tag"] as $t) {
        if (preg_match("/^\w+\s$t\\b/m", $stdin)) {