1 files changed, 49 insertions, 0 deletions
diff --git a/dmt/html/services.html b/dmt/html/services.html
new file mode 100644
index 0000000..ae4dee6
--- /dev/null
+++ b/dmt/html/services.html
@@ -0,0 +1,49 @@
+<h1>Services</h1>
+
+% show() {
+%   $gitcmd show --quiet --format="$1" HEAD | escape_html
+% }
+
+% describe() {
+%   $gitcmd describe --all --exact-match "$1" 2>/dev/null | escape_html
+% }
+
+% for serv in $CYCHE_SERVICE_DIR/*; do
+%   gitcmd="git --git-dir=$serv/.git"
+%   url=$($gitcmd remote get-url origin | escape_html)
+%   previous_hash=$(cat $serv/.git/previous_hash)
+%   current_hash=$(show '%H')
+%   [ "$current_hash" == "$previous_hash" ] && class="" || class="standout"
+
+    <div class="box %($class%)">
+        <div class="box-title">
+            %{ basename $serv %}
+            <span class="right"><a href="%($url%)">%($url%)</a></span>
+        </div>
+
+        <div class="box-text">
+            <table>
+                <tr>
+                    <td>Deployed:</td>
+                    <td>%($previous_hash%)</td>
+                    <td>%{describe $previous_hash%}</td>
+                </tr>
+                <tr>
+                    <td>Commit:</td>
+                    <td>%($current_hash%)</td>
+                    <td>%{describe $current_hash%}</td>
+                </tr>
+                <tr>
+                    <td>Committer:</td>
+                    <td>%{show '%cn <%ce>'%}</td>
+                    <td>%{show '%cD'%}</td>
+                </tr>
+                <tr>
+                    <td>Tree:</td>
+                    <td>%{show '%T'%}</td>
+                </tr>
+            </table>
+        </div>
+    </div>
+
+% done