From 914f635fe18a337496ff9d1081fac16b36a92263 Mon Sep 17 00:00:00 2001
From: Jephte Clain <Jephte.Clain@univ-reunion.fr>
Date: Wed, 11 Sep 2019 22:16:07 +0400
Subject: [PATCH] =?UTF-8?q?impl=C3=A9mentation=20initiale=20de=20create,?=
 =?UTF-8?q?=20list,=20delete?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lib/default/{pcrone => repoctl} |  12 +-
 lib/repoctl/json_build.php      |  27 +++++
 lib/repoctl/json_each.php       |  28 +++++
 lib/repoctl/json_get.php        |  27 +++++
 repoctl                         | 195 ++++++++++++++++++++++++++++----
 5 files changed, 262 insertions(+), 27 deletions(-)
 rename lib/default/{pcrone => repoctl} (77%)
 create mode 100755 lib/repoctl/json_build.php
 create mode 100755 lib/repoctl/json_each.php
 create mode 100755 lib/repoctl/json_get.php

diff --git a/lib/default/pcrone b/lib/default/repoctl
similarity index 77%
rename from lib/default/pcrone
rename to lib/default/repoctl
index f64e5ae..73ae148 100644
--- a/lib/default/pcrone
+++ b/lib/default/repoctl
@@ -1,13 +1,15 @@
 # -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8
 
 # Liste de préfixes permettant de taper le nom d'un dépôt plus rapidement e.g
-#     pcrone g/ssi-php/myproj
-#     pcrone v:modules/myproj
+#     repoctl g/ssi-php/myproj
+#     repoctl v:modules/myproj
 # sont équivalents à
-#     pcrone https://git.univ-reunion.fr/ssi-php/myproj
-#     pcrone git@vcs.univ.run:modules/myproj
-# Ces définitions fonctionnent aussi pour pclone
+#     repoctl https://git.univ-reunion.fr/ssi-php/myproj
+#     repoctl git@vcs.univ.run:modules/myproj
 # Le format est ALIAS=ACTUAL
+#
+# Ces définitions fonctionnent aussi pour tous les scripts qui utilisent
+# repoctl, dont notamment pclone et pcrone
 REPO_PREFIXES=(
     s:=git@git.univ-reunion.fr:
     g/=https://git.univ-reunion.fr/
diff --git a/lib/repoctl/json_build.php b/lib/repoctl/json_build.php
new file mode 100755
index 0000000..0106b58
--- /dev/null
+++ b/lib/repoctl/json_build.php
@@ -0,0 +1,27 @@
+#!/usr/bin/php
+<?php # -*- coding: utf-8 mode: php -*- vim:sw=2:sts=2:et:ai:si:sta:fenc=utf-8
+
+function fix_value($value) {
+    if ($value === "true") return true;
+    elseif ($value === "false") return false;
+    elseif ($value === "null") return null;
+    else return $value;
+}
+
+$data = array();
+$empty = true;
+for ($i = 1; $i < $argc; $i++) {
+  $namevalue = $argv[$i];
+  if (preg_match('/(.*?)=(.*)/', $namevalue, $ms)) {
+    $name = $ms[1];
+    $value = fix_value($ms[2]);
+    $data[$name] = $value;
+  } else {
+    $data[] = fix_value($namevalue);
+  }
+  $empty = false;
+}
+
+$options = JSON_NUMERIC_CHECK;
+if ($empty) $options += JSON_FORCE_OBJECT;
+echo json_encode($data, $options);
diff --git a/lib/repoctl/json_each.php b/lib/repoctl/json_each.php
new file mode 100755
index 0000000..3e6e981
--- /dev/null
+++ b/lib/repoctl/json_each.php
@@ -0,0 +1,28 @@
+#!/usr/bin/php
+<?php # -*- coding: utf-8 mode: php -*- vim:sw=2:sts=2:et:ai:si:sta:fenc=utf-8
+
+if ($argc <= 1) die("ERROR: Vous devez spécifier le nom de la clé\n");
+
+$data = json_decode(stream_get_contents(STDIN), true);
+foreach ($data as $datum) {
+  $first = true;
+  for ($i = 1; $i < $argc; $i++) {
+    $result = $datum;
+    $keys = explode(".", trim($argv[$i]));
+    foreach ($keys as $key) {
+      if ($result === null) break;
+      if (!$key) continue;
+      if (isset($result[$key])) {
+        $result = $result[$key];
+      } else {
+        $result = null;
+      }
+    }
+
+    if ($first) $first = false;
+    else echo "\t";
+    if (is_array($result)) var_export($result);
+    else echo $result;
+  }
+  echo "\n";
+}
diff --git a/lib/repoctl/json_get.php b/lib/repoctl/json_get.php
new file mode 100755
index 0000000..0e0c6ed
--- /dev/null
+++ b/lib/repoctl/json_get.php
@@ -0,0 +1,27 @@
+#!/usr/bin/php
+<?php # -*- coding: utf-8 mode: php -*- vim:sw=2:sts=2:et:ai:si:sta:fenc=utf-8
+
+if ($argc <= 1) die("ERROR: Vous devez spécifier le nom de la clé\n");
+
+$datum = json_decode(stream_get_contents(STDIN), true);
+
+$first = true;
+for ($i = 1; $i < $argc; $i++) {
+  $result = $datum;
+  $keys = explode(".", trim($argv[$i]));
+  foreach ($keys as $key) {
+    if ($result === null) break;
+    if (!$key) continue;
+    if (isset($result[$key])) {
+      $result = $result[$key];
+    } else {
+      $result = null;
+    }
+  }
+
+  if ($first) $first = false;
+  else echo "\t";
+  if (is_array($result)) var_export($result);
+  else echo $result;
+}
+echo "\n";
diff --git a/repoctl b/repoctl
index 1a603c0..5bef360 100755
--- a/repoctl
+++ b/repoctl
@@ -7,27 +7,39 @@ function display_help() {
     uecho "$scriptname: piloter un serveur git (gitolite, gogs, gitea, etc.)
 
 USAGE
-    $scriptname ACTION [options]
+    $scriptname ACTION URL [options]
 
 ACTIONS
     create URL [description]
         Créer un nouveau dépôt avec la description spécifiée
 
-    list [ORG]
-        Lister les dépôts dans l'organisation spécifiée. Par défaut, lister les
-        dépôts de l'utilisateur
-
-    move URL ORG[/NAME]
-        Déplacer le dépôt spécifié dans l'organisation spécifiée. Le cas
-        échéant, le dépôt est renommé
+    list URL [VARs...]
+        Lister les dépôts dans l'organisation spécifiée. Si aucune organisation
+        n'est spécifiée dans l'url, lister les dépôts *accessibles* par
+        l'utilisateur (cela inclut les dépôts des organisations auxquelles
+        l'utilisateur a accès)
+        VARs est une liste de variables à afficher pour chaque dépôt, séparés
+        par le caractère tabulation. La valeur par défaut est full_name
 
     delete URL
-        Supprimée le dépôt spécifié.
-
-OPTIONS"
+        Supprimer le dépôt spécifié"
+    # pas encore possible d'implémenter pour le moment:
+    #move URL ORG[/NAME]
+    #    Déplacer le dépôt spécifié dans l'organisation spécifiée. Le cas
+    #    échéant, le dépôt est renommé
 }
 
-function repo_init() {
+function json_build() {
+    "$scriptdir/lib/repoctl/json_build.php" "$@"
+}
+function json_get() {
+    "$scriptdir/lib/repoctl/json_get.php" "$@"
+}
+function json_each() {
+    "$scriptdir/lib/repoctl/json_each.php" "$@"
+}
+
+function repoctl_init() {
     repourl="${1%.git}"
     [ -n "$repourl" ] || return
     rname=
@@ -36,7 +48,7 @@ function repo_init() {
 
     REPO_PREFIXES=()
     REPO_TYPES=()
-    set_defaults pcrone
+    set_defaults repoctl
 
     # Traduire les aliases éventuels
     local asrcdest asrc adest
@@ -82,6 +94,7 @@ function curlto() {
     local r http_code
     args=(-s -w '%{http_code}' -o "$outfile")
     [ -n "$payload" ] && args+=(-d "$payload")
+    [ -n "$HTTP_METHOD" ] && args+=(-X "$HTTP_METHOD")
     args+=("$@" "$url")
     setx http_code=curl "${args[@]}"
 
@@ -100,12 +113,151 @@ function curlto() {
     return "$r"
 }
 
+function gogs_setvars() {
+    gogs_url="${rname}_GOGS_URL"; gogs_url="${!gogs_url}"
+    gogs_user="${rname}_GOGS_USER"; gogs_user="${!gogs_user}"
+    gogs_key="${rname}_GOGS_KEY"; gogs_key="${!gogs_key}"
+    userpath="${repourl#$rprefix}"
+    splitfsep "$userpath" / user path
+}
+
+################################################################################
+
+function create_action() {
+    case "$rtype" in
+    #gitolite) ;;
+    gogs|gitea)
+        gogs_setvars
+        gogs_create_action "$@"
+        ;;
+    *) die "$rtype: type de dépôt non supporté";;
+    esac
+}
+function gogs_create_action() {
+    local url desc payload result
+    local -a vars
+    if [ -n "$user" -a "$user" != "$gogs_user" ]; then
+        # lister les dépôts d'une organisation
+        url="$gogs_url/api/v1/orgs/$user/repos"
+    else
+        # lister les dépôts accessibles par l'utilisateur
+        url="$gogs_url/api/v1/user/repos"
+    fi
+    vars=(name="$path" private=true)
+    [ -n "$1" ] && vars+=(description="$1"); shift
+    setx payload=json_build "${vars[@]}"
+
+    [ $# -gt 0 ] && vars=("$@") || vars=("")
+    setx result=curlto "$url" "$payload" "" \
+         -H 'Content-Type: application/json' \
+         -H "Authorization: token $gogs_key" || \
+        die "Une erreur s'est produite lors de la tentative de création du dépôt
+url: $url
+payload: $payload
+result: $result"
+    echo "$result" | json_get "${vars[@]}"
+}
+
+################################################################################
+
+function list_action() {
+    case "$rtype" in
+    #gitolite) ;;
+    gogs|gitea)
+        gogs_setvars
+        gogs_list_action "$@"
+        ;;
+    *) die "$rtype: type de dépôt non supporté";;
+    esac
+}
+function gogs_list_action() {
+    local url result
+    local -a vars
+    if [ -n "$user" -a "$user" != "$gogs_user" ]; then
+        # lister les dépôts d'une organisation
+        url="$gogs_url/api/v1/orgs/$user/repos"
+    else
+        # lister les dépôts accessibles par l'utilisateur
+        url="$gogs_url/api/v1/user/repos"
+    fi
+    [ $# -gt 0 ] && vars=("$@") || vars=(full_name)
+    setx result=curlto "$url" "" "" \
+         -H 'Content-Type: application/json' \
+         -H "Authorization: token $gogs_key" || \
+        die "Une erreur s'est produite lors de la tentative de listage des dépôts
+url: $url
+result: $result"
+    echo "$result" | json_each "${vars[@]}"
+}
+
+################################################################################
+#XXX à implémenter. ça ne semble pas encore possible pour le moment. peut-être
+# uniquement le renommage?!
+
+function move_action() {
+    case "$rtype" in
+    #gitolite) ;;
+    gogs|gitea)
+        gogs_setvars
+        gogs_move_action "$@"
+        ;;
+    *) die "$rtype: type de dépôt non supporté";;
+    esac
+}
+function gogs_move_action() {
+    local url payload result
+    local -a vars
+    setx payload=json_build name="$new_name"
+    url="$gogs_url/api/v1/repos/$user/$path"
+    local HTTP_METHOD=PATCH
+    [ $# -gt 0 ] && vars=("$@") || vars=("")
+    setx result=curlto "$url" "$payload" "" \
+         -H 'Content-Type: application/json' \
+         -H "Authorization: token $gogs_key" || \
+        die "Une erreur s'est produite lors de la tentative de déplacement du dépôt
+url: $url
+payload: $payload
+result: $result"
+    echo "$result" | json_get "${vars[@]}"
+}
+
+################################################################################
+
+function delete_action() {
+    case "$rtype" in
+    #gitolite) ;;
+    gogs|gitea)
+        gogs_setvars
+        gogs_delete_action "$@"
+        ;;
+    *) die "$rtype: type de dépôt non supporté";;
+    esac
+}
+function gogs_delete_action() {
+    local url payload result
+    setx payload=json_build owner="$user" repo="$path"
+    url="$gogs_url/api/v1/repos/$user/$path"
+    local HTTP_METHOD=DELETE
+    setx result=curlto "$url" "$payload" "" \
+         -H 'Content-Type: application/json' \
+         -H "Authorization: token $gogs_key" || \
+        die "Une erreur s'est produite lors de la tentative de suppression du dépôt
+url: $url
+payload: $payload
+result: $result"
+    if [ -n "$result" ]; then
+        echo "$result"
+    fi
+}
+
+################################################################################
+
 action=
 args=(
     --help '$exit_with display_help'
     -c,--create action=create
     -l,--list action=list
-    -m,--move action=move
+    #-m,--move action=move
     -d,--delete action=delete
 )
 parse_args "$@"; set -- "${args[@]}"
@@ -115,13 +267,12 @@ if [ -z "$action" ]; then
 fi
 [ -n "$action" ] || action=list
 
+repoctl_init "$1"; shift
+[ -n "$repourl" ] || die "Vous devez spécifier l'url du dépôt"
+
 case "$action" in
-c|create)
-    ;;
-l|list)
-    ;;
-m|move)
-    ;;
-d|del|delete|rm|remove)
-    ;;
+c|create) create_action "$@";;
+l|list) list_action "$@";;
+#m|move) move_action "$@";;
+d|del|delete|rm|remove) delete_action "$@";;
 esac