@pawlogic/dl 0.15.24 → 0.16.1

package/dl-npm-update.sh

@@ -5,9 +5,18 @@
 # 绝不阻塞业务 dl 调用。当次仍用旧 bundle,新 bundle 装完后**下次** dl 调用才生效
 # (agent 失败重试天然吃到新版)。
 #
-# 触发条件:DL_NPM_DIST_TAG 已 bake 到 sandbox env(prod=latest,staging=staging;PR
-# preview 留空 → 本脚本直接 exit,沙箱内 dl 锁在 template 烤进去那版,便于 PR 间
-# 复现 / 互不污染)。
+# dist-tag 来源,优先级从高到低:
+#   1. PI_DL_DIST_TAG  —— hono-pi-e2b 每条命令注入 (e2b-operations.ts),反映
+#      **当前**这条 lane。
+#   2. DL_NPM_DIST_TAG —— template build 时按 alias 烤进 wrapper 第二行
+#      (prod=latest,staging=staging;PR preview 留空 → 本脚本直接 exit,沙箱内
+#      dl 锁在 template 烤进去那版,便于 PR 间复现 / 互不污染)。
+#
+# 1 必须压过 2:project → sandbox_id 这条记录是 prod / staging 共享的 (staging
+# 切片连的是同一个 pi-agent-prod-pg),切换环境时会 resume 到对方那台沙箱,而 2
+# 跟着**建沙箱时**那个模板走 —— prod 建的沙箱被 staging resume 之后仍然会去装
+# @latest。wrapper 是烤死在镜像里的改不动,但本脚本每次 npm install 后会从新包里
+# 拷一份覆盖自己 (见下方"自我热更"),所以存量沙箱两代之内就能吃到这条优先级。
 #
 # 鉴权: 不需要。包发到 npmjs.com 的 @pawlogic scope (public),npm 默认 registry
 # 就是 npmjs.com,匿名 download 直接通,沙箱没有 ~/.npmrc。
@@ -29,6 +38,25 @@ LOCK=/tmp/dl-npm-update.lock
 TTL=300
 PACKAGE="@pawlogic/dl"
 
+# 注入值优先,回落到 wrapper 烤死的值(理由见文件头)。
+#
+# 逐个来源单独校验、非法就继续往下回落,而不是先选后校验 —— 后者会让一个
+# 写坏的 PI_DL_DIST_TAG 把整台沙箱的自更新彻底关掉,而不是退回模板烤死的值。
+# 规则跟 self-update.ts 的 resolveDistTag 保持一致(首字符必须是字母数字)。
+# 这个值会流到 npm install 的参数和 stamp 文件里,不合法一律当没给。
+_valid_tag() {
+  case "${1:-}" in
+    '' | [!A-Za-z0-9]* | *[!A-Za-z0-9._-]*) return 1 ;;
+    *) return 0 ;;
+  esac
+}
+TAG=""
+if _valid_tag "${PI_DL_DIST_TAG:-}"; then
+  TAG="$PI_DL_DIST_TAG"
+elif _valid_tag "${DL_NPM_DIST_TAG:-}"; then
+  TAG="$DL_NPM_DIST_TAG"
+fi
+
 # ── 观测上报: fire-and-forget JSON POST,失败 swallow ────────────────────────
 # args: outcome duration_ms [error_tail_file]
 # error_tail_file 仅 npm_fail 分支传入,读末尾 ~200 字节带上去 —— 之前 npm stderr
@@ -40,7 +68,7 @@ report_event() {
   [ -z "${CALLBACK_SERVER_URL:-}" ] && return 0
   [ -z "${DL_PROXY_TOKEN:-}" ] && return 0
   command -v curl >/dev/null 2>&1 || return 0
-  _tag="${DL_NPM_DIST_TAG:-unknown}"
+  _tag="${TAG:-unknown}"
   case "$_tag" in
     latest|staging) ;;
     *) _tag="unknown" ;;
@@ -100,8 +128,8 @@ should_sample_ttl() {
   awk 'BEGIN{srand(); exit !(int(rand()*10)==0)}' 2>/dev/null
 }
 
-# 环境不全 → no-op。staging / prod 才烤 DL_NPM_DIST_TAG,PR preview / 本地裸跑空。
-if [ -z "${DL_NPM_DIST_TAG:-}" ]; then
+# 环境不全 → no-op。staging / prod 两个来源至少有一个有值,PR preview / 本地裸跑空。
+if [ -z "$TAG" ]; then
   report_event no_tag null
   exit 0
 fi
@@ -110,13 +138,27 @@ if ! command -v npm >/dev/null 2>&1; then
   exit 0
 fi
 
-# TTL 拦截。stamp 损坏当 0 处理。
+# TTL 拦截。stamp 格式 `<epoch> <tag>`,stamp 损坏当 0 处理。
+#
+# tag 也要存:只比时间戳的话,切完 lane 的头 300s 会被 TTL short-circuit 掉,
+# 整个 turn 都还在用另一条 lane 的 dl —— 自愈就不"立刻"了。tag 跟本次解析出
+# 来的不一致直接跳过 TTL 重装。老格式(只有 epoch)解出来的 tag 是空串,同样
+# 判成不一致,升级后第一次调用自然会重装一遍。
 now=$(date +%s 2>/dev/null) || exit 0
+last=0
+last_tag=""
 if [ -f "$STAMP" ]; then
-  last=$(cat "$STAMP" 2>/dev/null || echo 0)
+  _stamp_line=$(head -n1 "$STAMP" 2>/dev/null || echo "")
+  last="${_stamp_line%% *}"
+  case "$_stamp_line" in
+    *' '*) last_tag="${_stamp_line#* }" ;;
+    *) last_tag="" ;;
+  esac
   case "$last" in
     ''|*[!0-9]*) last=0 ;;
   esac
+fi
+if [ "$last_tag" = "$TAG" ]; then
   delta=$((now - last))
   if [ "$delta" -ge 0 ] && [ "$delta" -lt "$TTL" ]; then
     if should_sample_ttl; then
@@ -147,7 +189,7 @@ run_install() {
   # 加 --force 就清零。
   if HOME=/home/user npm install -g --prefix=/home/user/.local \
       --no-audit --no-fund --no-update-notifier --force \
-      "$PACKAGE@$DL_NPM_DIST_TAG" >/dev/null 2>"$_errlog"; then
+      "$PACKAGE@$TAG" >/dev/null 2>"$_errlog"; then
     _outcome=ok
   else
     _outcome=npm_fail
@@ -171,7 +213,7 @@ run_install() {
        /home/user/.local/lib/dl-npm-update.sh 2>/dev/null || true
     chmod +x /home/user/.local/lib/dl-npm-update.sh 2>/dev/null || true
   fi
-  echo "$now" > "$STAMP"
+  echo "$now $TAG" > "$STAMP"
   if [ "$_outcome" = "npm_fail" ]; then
     report_event "$_outcome" "$_dur_ms" "$_errlog"
   else