agent-control-plane 0.4.9 → 0.7.0

package/tools/bin/agent-project-catch-up-issue-pr-links

@@ -1,118 +0,0 @@
-#!/usr/bin/env bash
-set -euo pipefail
-
-usage() {
-  cat <<'EOF'
-Usage:
-  agent-project-catch-up-issue-pr-links --repo-slug <owner/repo> --state-root <path> --hook-file <path> [--limit <n>]
-
-Clear stale issue retry state when an issue already has a linked PR comment and
-that PR still exists (open, closed, or merged).
-EOF
-}
-
-repo_slug=""
-state_root=""
-hook_file=""
-limit="100"
-
-while [[ $# -gt 0 ]]; do
-  case "$1" in
-    --repo-slug) repo_slug="${2:-}"; shift 2 ;;
-    --state-root) state_root="${2:-}"; shift 2 ;;
-    --hook-file) hook_file="${2:-}"; shift 2 ;;
-    --limit) limit="${2:-}"; shift 2 ;;
-    --help|-h) usage; exit 0 ;;
-    *) echo "Unknown argument: $1" >&2; usage >&2; exit 1 ;;
-  esac
-done
-
-if [[ -z "$repo_slug" || -z "$state_root" || -z "$hook_file" ]]; then
-  usage >&2
-  exit 1
-fi
-
-if [[ ! -f "$hook_file" ]]; then
-  echo "missing hook file: $hook_file" >&2
-  exit 1
-fi
-
-# shellcheck source=/dev/null
-source "$hook_file"
-
-if ! declare -F issue_clear_retry >/dev/null 2>&1; then
-  issue_clear_retry() { :; }
-fi
-
-ledger_dir="${state_root}/linked-pr-issue-catchup"
-retry_dir="${state_root}/retries/issues"
-mkdir -p "$ledger_dir" "$retry_dir"
-
-extract_latest_linked_pr() {
-  local issue_json="${1:-}"
-  ISSUE_JSON="$issue_json" python3 - <<'PY'
-import json
-import os
-import re
-
-issue = json.loads(os.environ.get("ISSUE_JSON", "{}") or "{}")
-latest = ""
-latest_at = ""
-for comment in issue.get("comments", []) or []:
-    body = comment.get("body") or ""
-    match = None
-    for candidate in re.finditer(r"Opened PR #(\d+)", body):
-        match = candidate
-    if not match:
-        continue
-    created = comment.get("createdAt") or ""
-    pr_number = match.group(1)
-    if created >= latest_at:
-        latest_at = created
-        latest = pr_number
-
-print(latest)
-PY
-}
-
-pr_exists() {
-  local pr_number="${1:?pr number required}"
-  local pr_json=""
-  pr_json="$(flow_github_pr_view_json "$repo_slug" "$pr_number" 2>/dev/null || true)"
-  [[ -n "$pr_json" && "$pr_json" != "{}" ]]
-}
-
-for retry_file in "$retry_dir"/*.env; do
-  [[ -f "$retry_file" ]] || continue
-  issue_id="$(basename "${retry_file%.env}")"
-  [[ -n "$issue_id" ]] || continue
-
-  retry_reason="$(awk -F= '/^LAST_REASON=/{print $2; exit}' "$retry_file" 2>/dev/null | tr -d '\r' || true)"
-  if [[ "$retry_reason" != "host-publish-failed" ]]; then
-    continue
-  fi
-
-  ledger_file="${ledger_dir}/${issue_id}.env"
-  if [[ -f "$ledger_file" ]]; then
-    continue
-  fi
-
-  issue_json="$(flow_github_issue_view_json "$repo_slug" "$issue_id" 2>/dev/null || true)"
-  [[ -n "$issue_json" && "$issue_json" != "{}" ]] || continue
-
-  linked_pr="$(extract_latest_linked_pr "$issue_json")"
-  [[ -n "$linked_pr" ]] || continue
-  if ! pr_exists "$linked_pr"; then
-    continue
-  fi
-
-  ISSUE_ID="$issue_id" issue_clear_retry || true
-
-  {
-    printf 'ISSUE_ID=%s\n' "$issue_id"
-    printf 'LINKED_PR=%s\n' "$linked_pr"
-    printf 'PROCESSED_AT=%s\n' "$(date -u +"%Y-%m-%dT%H:%M:%SZ")"
-  } >"$ledger_file"
-
-  printf 'CATCHUP_LINKED_PR_ISSUE=%s\n' "$issue_id"
-done

package/tools/bin/agent-project-catch-up-merged-prs

@@ -1,195 +0,0 @@
-#!/usr/bin/env bash
-set -euo pipefail
-
-usage() {
-  cat <<'EOF'
-Usage:
-  agent-project-catch-up-merged-prs --repo-slug <owner/repo> --state-root <path> --hook-file <path> [--limit <n>]
-
-Catch up merge-cleanup for managed PRs that were merged manually after their
-worker session had already been reconciled and cleaned up.
-EOF
-}
-
-repo_slug=""
-state_root=""
-hook_file=""
-limit="100"
-
-while [[ $# -gt 0 ]]; do
-  case "$1" in
-    --repo-slug) repo_slug="${2:-}"; shift 2 ;;
-    --state-root) state_root="${2:-}"; shift 2 ;;
-    --hook-file) hook_file="${2:-}"; shift 2 ;;
-    --limit) limit="${2:-}"; shift 2 ;;
-    --help|-h) usage; exit 0 ;;
-    *) echo "Unknown argument: $1" >&2; usage >&2; exit 1 ;;
-  esac
-done
-
-if [[ -z "$repo_slug" || -z "$state_root" || -z "$hook_file" ]]; then
-  usage >&2
-  exit 1
-fi
-
-if [[ ! -f "$hook_file" ]]; then
-  echo "missing hook file: $hook_file" >&2
-  exit 1
-fi
-
-# shellcheck source=/dev/null
-source "$hook_file"
-
-optional_hooks=(
-  pr_clear_retry
-  pr_cleanup_linked_issue_session
-  pr_cleanup_merged_residue
-  pr_linked_issue_should_close
-  pr_after_merged
-  pr_after_closed
-)
-
-for hook_name in "${optional_hooks[@]}"; do
-  if ! declare -F "$hook_name" >/dev/null 2>&1; then
-    eval "${hook_name}() { :; }"
-  fi
-done
-
-forge_scope="$(printf '%s' "${ACP_FORGE_PROVIDER:-${F_LOSNING_FORGE_PROVIDER:-github}}" | tr -c '[:alnum:]._-' '-')"
-merged_ledger_dir="${state_root}/merged-pr-catchup-${forge_scope}"
-closed_ledger_dir="${state_root}/closed-pr-catchup-${forge_scope}"
-mkdir -p "$merged_ledger_dir" "$closed_ledger_dir"
-
-get_pr_risk_json() {
-  local pr_number="${1:?pr number required}"
-  if declare -F heartbeat_pr_risk_json >/dev/null 2>&1; then
-    heartbeat_pr_risk_json "$pr_number"
-    return 0
-  fi
-  if [[ -n "${ADAPTER_BIN_DIR:-}" && -x "${ADAPTER_BIN_DIR}/pr-risk.sh" ]]; then
-    "${ADAPTER_BIN_DIR}/pr-risk.sh" "$pr_number"
-    return 0
-  fi
-  echo "missing PR risk provider for catch-up" >&2
-  return 1
-}
-
-close_issue_if_needed() {
-  local pr_number="${1:?pr number required}"
-  local issue_id="${2:-}"
-  [[ -n "$issue_id" ]] || return 0
-
-  local should_close="yes"
-  should_close="$(pr_linked_issue_should_close "$issue_id" || printf 'yes\n')"
-  if [[ "$should_close" != "yes" ]]; then
-    return 0
-  fi
-
-  pr_cleanup_linked_issue_session "$issue_id" || true
-
-  local issue_state=""
-  issue_state="$(flow_github_issue_view_json "$repo_slug" "$issue_id" 2>/dev/null | jq -r '.state // empty' || true)"
-  if [[ "$issue_state" == "OPEN" ]]; then
-    flow_github_issue_close "$repo_slug" "$issue_id" "Closed automatically after PR #${pr_number} merged." >/dev/null 2>&1 || true
-    printf 'CATCHUP_CLOSED_ISSUE=%s\n' "$issue_id"
-  fi
-}
-
-process_terminal_pr() {
-  local pr_number="${1:?pr number required}"
-  local linked_issue_id="${2:-}"
-  local merged_at="${3:-}"
-  local processed_state="${4:?processed state required}"
-  local ledger_dir=""
-  local ledger_file=""
-
-  case "$processed_state" in
-    merged) ledger_dir="$merged_ledger_dir" ;;
-    closed) ledger_dir="$closed_ledger_dir" ;;
-    *)
-      echo "unsupported terminal PR state: ${processed_state}" >&2
-      return 1
-      ;;
-  esac
-
-  ledger_file="${ledger_dir}/${pr_number}.env"
-  if [[ -f "$ledger_file" ]]; then
-    return 0
-  fi
-
-  PR_NUMBER="$pr_number" pr_clear_retry || true
-  if [[ "$processed_state" == "merged" ]]; then
-    close_issue_if_needed "$pr_number" "$linked_issue_id"
-    if ! PR_NUMBER="$pr_number" pr_after_merged "$pr_number"; then
-      printf 'CATCHUP_FAILED_PR=%s\n' "$pr_number" >&2
-      return 1
-    fi
-  else
-    if ! PR_NUMBER="$pr_number" pr_after_closed "$pr_number"; then
-      printf 'CATCHUP_FAILED_CLOSED_PR=%s\n' "$pr_number" >&2
-      return 1
-    fi
-  fi
-
-  if ! PR_NUMBER="$pr_number" pr_cleanup_merged_residue "$pr_number"; then
-    printf 'CATCHUP_FAILED_RESIDUE=%s\n' "$pr_number" >&2
-    return 1
-  fi
-
-  {
-    printf 'PR_NUMBER=%s\n' "$pr_number"
-    printf 'ISSUE_ID=%s\n' "$linked_issue_id"
-    printf 'PR_STATE=%s\n' "$processed_state"
-    printf 'MERGED_AT=%s\n' "$merged_at"
-    printf 'PROCESSED_AT=%s\n' "$(date -u +"%Y-%m-%dT%H:%M:%SZ")"
-  } >"$ledger_file"
-
-  if [[ "$processed_state" == "merged" ]]; then
-    printf 'CATCHUP_MERGED_PR=%s\n' "$pr_number"
-  else
-    printf 'CATCHUP_CLOSED_PR=%s\n' "$pr_number"
-  fi
-}
-
-merged_prs_json="$(flow_github_pr_list_json "$repo_slug" merged "$limit")"
-closed_prs_json="$(flow_github_pr_list_json "$repo_slug" closed "$limit")"
-
-while IFS= read -r pr_number; do
-  [[ -n "$pr_number" ]] || continue
-
-  risk_json="$(get_pr_risk_json "$pr_number" 2>/dev/null || true)"
-  if [[ -z "$risk_json" ]]; then
-    continue
-  fi
-
-  is_managed="$(jq -r '.isManagedByAgent // .isAgentBranch // false' <<<"$risk_json" 2>/dev/null || printf 'false\n')"
-  if [[ "$is_managed" != "true" ]]; then
-    continue
-  fi
-
-  linked_issue_id="$(jq -r '.linkedIssueId // empty' <<<"$risk_json" 2>/dev/null || true)"
-  merged_at="$(jq -r --arg pr "$pr_number" 'map(select((.number | tostring) == $pr)) | .[0].mergedAt // ""' <<<"$merged_prs_json")"
-  process_terminal_pr "$pr_number" "$linked_issue_id" "$merged_at" merged || true
-done < <(jq -r 'sort_by(.mergedAt) | reverse | .[].number' <<<"$merged_prs_json")
-
-while IFS= read -r pr_number; do
-  [[ -n "$pr_number" ]] || continue
-
-  merged_at="$(jq -r --arg pr "$pr_number" 'map(select((.number | tostring) == $pr)) | .[0].mergedAt // ""' <<<"$closed_prs_json")"
-  if [[ -n "$merged_at" ]]; then
-    continue
-  fi
-
-  risk_json="$(get_pr_risk_json "$pr_number" 2>/dev/null || true)"
-  if [[ -z "$risk_json" ]]; then
-    continue
-  fi
-
-  is_managed="$(jq -r '.isManagedByAgent // .isAgentBranch // false' <<<"$risk_json" 2>/dev/null || printf 'false\n')"
-  if [[ "$is_managed" != "true" ]]; then
-    continue
-  fi
-
-  linked_issue_id="$(jq -r '.linkedIssueId // empty' <<<"$risk_json" 2>/dev/null || true)"
-  process_terminal_pr "$pr_number" "$linked_issue_id" "" closed || true
-done < <(jq -r 'sort_by(.createdAt) | reverse | .[].number' <<<"$closed_prs_json")

package/tools/bin/agent-project-catch-up-scheduled-issue-retries

@@ -1,123 +0,0 @@
-#!/usr/bin/env bash
-set -euo pipefail
-
-usage() {
-  cat <<'EOF'
-Usage:
-  agent-project-catch-up-scheduled-issue-retries --repo-slug <owner/repo> --state-root <path> --hook-file <path> [--limit <n>]
-
-Clear stale retry state for recurring scheduled reporting issues once GitHub
-already reflects the latest terminal status via labels and the issue is not
-currently running.
-EOF
-}
-
-repo_slug=""
-state_root=""
-hook_file=""
-limit="100"
-
-while [[ $# -gt 0 ]]; do
-  case "$1" in
-    --repo-slug) repo_slug="${2:-}"; shift 2 ;;
-    --state-root) state_root="${2:-}"; shift 2 ;;
-    --hook-file) hook_file="${2:-}"; shift 2 ;;
-    --limit) limit="${2:-}"; shift 2 ;;
-    --help|-h) usage; exit 0 ;;
-    *) echo "Unknown argument: $1" >&2; usage >&2; exit 1 ;;
-  esac
-done
-
-if [[ -z "$repo_slug" || -z "$state_root" || -z "$hook_file" ]]; then
-  usage >&2
-  exit 1
-fi
-
-if [[ ! -f "$hook_file" ]]; then
-  echo "missing hook file: $hook_file" >&2
-  exit 1
-fi
-
-# shellcheck source=/dev/null
-source "$hook_file"
-
-if ! declare -F issue_clear_retry >/dev/null 2>&1; then
-  issue_clear_retry() { :; }
-fi
-
-ledger_dir="${state_root}/scheduled-issue-retry-catchup"
-retry_dir="${state_root}/retries/issues"
-mkdir -p "$ledger_dir" "$retry_dir"
-
-issue_has_terminal_scheduled_status() {
-  local issue_json="${1:-}"
-  ISSUE_JSON="$issue_json" python3 - <<'PY'
-import json
-import os
-import re
-import sys
-
-issue = json.loads(os.environ.get("ISSUE_JSON", "{}") or "{}")
-state = (issue.get("state") or "").upper()
-labels = {str(item.get("name") or "") for item in (issue.get("labels") or [])}
-body = issue.get("body") or ""
-
-has_schedule = bool(re.search(r'^\s*(?:Agent schedule|Schedule|Cadence)\s*:\s*(?:every\s+)?\d+\s*[mhd]\s*$', body, re.I | re.M))
-if not has_schedule and "agent-scheduled" not in labels:
-    sys.exit(1)
-
-if state != "OPEN":
-    sys.exit(1)
-
-if "agent-running" in labels:
-    sys.exit(1)
-
-terminal_status_labels = {
-    "health-ok",
-    "health-not-ok",
-    "checks-ok",
-    "checks-not-ok",
-    "smoke-ok",
-    "smoke-not-ok",
-}
-if not (labels & terminal_status_labels):
-    sys.exit(1)
-
-sys.exit(0)
-PY
-}
-
-processed=0
-for retry_file in "$retry_dir"/*.env; do
-  [[ -f "$retry_file" ]] || continue
-  if [[ "$processed" -ge "$limit" ]]; then
-    break
-  fi
-
-  issue_id="$(basename "${retry_file%.env}")"
-  [[ -n "$issue_id" ]] || continue
-
-  ledger_file="${ledger_dir}/${issue_id}.env"
-  if [[ -f "$ledger_file" ]]; then
-    continue
-  fi
-
-  issue_json="$(flow_github_issue_view_json "$repo_slug" "$issue_id" 2>/dev/null || true)"
-  [[ -n "$issue_json" && "$issue_json" != "{}" ]] || continue
-
-  if ! issue_has_terminal_scheduled_status "$issue_json"; then
-    continue
-  fi
-
-  retry_reason="$(awk -F= '/^LAST_REASON=/{print $2; exit}' "$retry_file" 2>/dev/null | tr -d '\r' || true)"
-  ISSUE_ID="$issue_id" issue_clear_retry || true
-
-  {
-    printf 'ISSUE_ID=%s\n' "$issue_id"
-    printf 'LAST_REASON=%s\n' "$retry_reason"
-    printf 'PROCESSED_AT=%s\n' "$(date -u +"%Y-%m-%dT%H:%M:%SZ")"
-  } >"$ledger_file"
-
-  printf 'CATCHUP_SCHEDULED_ISSUE=%s\n' "$issue_id"
-  processed=$((processed + 1))
-done