From a774497248febb00b55ed3ed3bad6d0c2c1d7ce3 Mon Sep 17 00:00:00 2001
From: Jephte Clain <Jephte.Clain@univ-reunion.fr>
Date: Sun, 25 Aug 2019 23:31:25 +0400
Subject: [PATCH 1/3] squelette

---
 repoctl | 127 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 127 insertions(+)
 create mode 100755 repoctl

diff --git a/repoctl b/repoctl
new file mode 100755
index 0000000..1a603c0
--- /dev/null
+++ b/repoctl
@@ -0,0 +1,127 @@
+#!/bin/bash
+# -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8
+source "$(dirname "$0")/lib/ulib/ulib" || exit 1
+urequire DEFAULTS
+
+function display_help() {
+    uecho "$scriptname: piloter un serveur git (gitolite, gogs, gitea, etc.)
+
+USAGE
+    $scriptname ACTION [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é
+
+    delete URL
+        Supprimée le dépôt spécifié.
+
+OPTIONS"
+}
+
+function repo_init() {
+    repourl="${1%.git}"
+    [ -n "$repourl" ] || return
+    rname=
+    rtype=gitolite
+    rprefix=
+
+    REPO_PREFIXES=()
+    REPO_TYPES=()
+    set_defaults pcrone
+
+    # Traduire les aliases éventuels
+    local asrcdest asrc adest
+    for asrcdest in "${REPO_PREFIXES[@]}"; do
+        splitfsep "$asrcdest" = asrc adest
+        if [ "${repourl#$asrc}" != "$repourl" ]; then
+            newurl="$adest${repourl#$asrc}"
+            if [ "$newurl" != "$repourl" ]; then
+                enote "$repourl --> $newurl"
+                repourl="$newurl"
+                break
+            fi
+        fi
+    done
+
+    local rnametypeprefix tmp found
+    for rnametypeprefix in "${REPO_TYPES[@]}"; do
+        splitfsep "$rnametypeprefix" : rname tmp
+        splitfsep "$tmp" : rtype rprefix
+        if [ "${repourl#$rprefix}" != "$repourl" ]; then
+            found=1
+            break
+        fi
+    done
+    if [ -z "$found" ]; then
+        rname=
+        rtype=gitolite
+        rprefix=
+    fi
+}
+
+function curlto() {
+    local url="$1"; shift
+    local payload="$1"; shift
+    local outfile="$1"; shift
+    local tmpfile
+    if [ -z "$outfile" ]; then
+        ac_set_tmpfile tmpfile
+        outfile="$tmpfile"
+    fi
+
+    local -a args
+    local r http_code
+    args=(-s -w '%{http_code}' -o "$outfile")
+    [ -n "$payload" ] && args+=(-d "$payload")
+    args+=("$@" "$url")
+    setx http_code=curl "${args[@]}"
+
+    case "$http_code" in
+    2*) r=0;;
+    4*) r=1;;
+    5*) r=3;;
+    *) r=11;;
+    esac
+    if [ -n "$tmpfile" ]; then
+        cat "$tmpfile"
+        ac_clean "$tmpfile"
+    fi
+
+    upvar http_code "$http_code"
+    return "$r"
+}
+
+action=
+args=(
+    --help '$exit_with display_help'
+    -c,--create action=create
+    -l,--list action=list
+    -m,--move action=move
+    -d,--delete action=delete
+)
+parse_args "$@"; set -- "${args[@]}"
+
+if [ -z "$action" ]; then
+    action="$1"; shift
+fi
+[ -n "$action" ] || action=list
+
+case "$action" in
+c|create)
+    ;;
+l|list)
+    ;;
+m|move)
+    ;;
+d|del|delete|rm|remove)
+    ;;
+esac

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 2/3] =?UTF-8?q?impl=C3=A9mentation=20initiale=20de=20creat?=
 =?UTF-8?q?e,=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

From 600b8246fa6b1736dfd7ec3ba5edf892d193e597 Mon Sep 17 00:00:00 2001
From: Jephte Clain <Jephte.Clain@univ-reunion.fr>
Date: Sat, 28 Sep 2019 12:33:03 +0400
Subject: [PATCH 3/3] =?UTF-8?q?support=20limit=C3=A9=20de=20pcrone=20et=20?=
 =?UTF-8?q?pclone?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lib/default/repoctl | 10 ++++++----
 uproject            |  2 +-
 2 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/lib/default/repoctl b/lib/default/repoctl
index 73ae148..cea1682 100644
--- a/lib/default/repoctl
+++ b/lib/default/repoctl
@@ -1,11 +1,11 @@
 # -*- 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
-#     repoctl g/ssi-php/myproj
-#     repoctl v:modules/myproj
+#     repoctl create g/ssi-php/myproj
+#     repoctl create v:modules/myproj
 # sont équivalents à
-#     repoctl https://git.univ-reunion.fr/ssi-php/myproj
-#     repoctl git@vcs.univ.run:modules/myproj
+#     repoctl create https://git.univ-reunion.fr/ssi-php/myproj
+#     repoctl create git@vcs.univ.run:modules/myproj
 # Le format est ALIAS=ACTUAL
 #
 # Ces définitions fonctionnent aussi pour tous les scripts qui utilisent
@@ -15,6 +15,7 @@ REPO_PREFIXES=(
     g/=https://git.univ-reunion.fr/
     v:=git@vcs.univ.run:  av/=https://vcs.univ-reunion.fr/anongit/
     p:=pgit@vcs.univ.run: ap/=https://pvcs.univ-reunion.fr/anongit/
+    j/=https://git.jclain.fr/
 )
 
 # Définitions des types de dépôt. Le format est NAME:TYPE:PREFIX
@@ -23,6 +24,7 @@ REPO_PREFIXES=(
 #   type par défaut est 'gitolite'
 REPO_TYPES=(
     ur:gitea:https://git.univ-reunion.fr/
+    jclain:gitea:https://git.jclain.fr/
 )
 
 # Configuration de l'accès à l'API gogs
diff --git a/uproject b/uproject
index 8e81620..40f8764 100755
--- a/uproject
+++ b/uproject
@@ -250,7 +250,7 @@ function cxone_init() {
 
     REPO_PREFIXES=()
     REPO_TYPES=()
-    set_defaults pcrone
+    set_defaults repoctl
 
     # Traduire les aliases éventuels
     local asrcdest asrc adest