Intégration de la branche update-repoctl

lib/repoctl/json_build.php

@@ -7,6 +7,26 @@ function fix_value($value) {
   elseif ($value === "null") return null;
   else return $value;
 }
+function setp(&$array, $keys, $value) {
+  if (is_array($keys)) $keys = implode(".", $keys);
+  $keys = explode(".", $keys);
+  $last = count($keys) - 1;
+  $i = 0;
+  if ($array === null) $array = array();
+  $current =& $array;
+  foreach ($keys as $key) {
+    if ($i == $last) break;
+    if (!array_key_exists($key, $current)) $current[$key] = array();
+    if (!is_array($current[$key])) $current[$key] = array($current[$key]);
+    $current =& $current[$key];
+    $i++;
+  }
+  if ($key === "") {
+    $current[] = $value;
+  } else {
+    $current[$key] = $value;
+  }
+}
 
 $data = array();
 $empty = true;
@@ -15,9 +35,10 @@ for ($i = 1; $i < $argc; $i++) {
   if (preg_match('/(.*?)=(.*)/', $namevalue, $ms)) {
     $name = $ms[1];
     $value = fix_value($ms[2]);
-    $data[$name] = $value;
+    setp($data, $name, $value);
   } else {
-    $data[] = fix_value($namevalue);
+    $value = fix_value($namevalue);
+    $data[] = $value;
   }
   $empty = false;
 }

repoctl

@@ -21,12 +21,22 @@ ACTIONS
         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
 
+    get URL [VARs...]
+        Afficher les propriétés du dépôt spécifié. VARs est une liste de
+        variables à afficher pour le dépôt, séparés par le caractère tabulation.
+
+    edit URL var=value...
+        Modifier les propriétés du dépôt. Consulter l'API pour la liste exacte
+        des propriétés pouvant être modifiées. Avec gitea 1.9.3, il y a au moins
+        celles-là:
+          name
+          description
+          website
+          private
+          default_branch
+
     delete URL
         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 json_build() {
@@ -191,26 +201,60 @@ result: $result"
 }
 
 ################################################################################
-#XXX à implémenter. ça ne semble pas encore possible pour le moment. peut-être
-# uniquement le renommage?!
 
-function move_action() {
+function get_action() {
     case "$rtype" in
     #gitolite) ;;
     gogs|gitea)
         gogs_setvars
-        gogs_move_action "$@"
+        gogs_get_action "$@"
         ;;
     *) die "$rtype: type de dépôt non supporté";;
     esac
 }
-function gogs_move_action() {
+function gogs_get_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
+    setx payload=json_build owner="$user" repo="$path"
+
     [ $# -gt 0 ] && vars=("$@") || vars=("")
+    local HTTP_METHOD=GET
+    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 edit_action() {
+    case "$rtype" in
+    #gitolite) ;;
+    gogs|gitea)
+        gogs_setvars
+        gogs_edit_action "$@"
+        ;;
+    *) die "$rtype: type de dépôt non supporté";;
+    esac
+}
+function gogs_edit_action() {
+    local url payload result
+    local -a vars
+    url="$gogs_url/api/v1/repos/$user/$path"
+    vars=(owner="$user" repo="$path")
+    while [[ "$1" == *=* ]]; do
+        vars+=("$1")
+        shift
+    done
+    setx payload=json_build "${vars[@]}"
+
+    [ $# -gt 0 ] && vars=("$@") || vars=("")
+    local HTTP_METHOD=PATCH
     setx result=curlto "$url" "$payload" "" \
          -H 'Content-Type: application/json' \
          -H "Authorization: token $gogs_key" || \
@@ -257,7 +301,8 @@ args=(
     --help '$exit_with display_help'
     -c,--create action=create
     -l,--list action=list
-    #-m,--move action=move
+    -g,--get action=get
+    -e,--edit action=edit
     -d,--delete action=delete
 )
 parse_args "$@"; set -- "${args[@]}"
@@ -273,6 +318,7 @@ repoctl_init "$1"; shift
 case "$action" in
 c|create) create_action "$@";;
 l|list) list_action "$@";;
-#m|move) move_action "$@";;
+g|get|s|show) get_action "$@";;
+e|edit) edit_action "$@";;
 d|del|delete|rm|remove) delete_action "$@";;
 esac