fix: 修掉十路审查发现的 9 个 P0 与一批 P1（数据正确性 / 越权 / 现场可用性）

P0（9 条全修）：
- 多通道项目奖牌重复计数：domain 层按 (EventID,CategoryID,EntryID/Subject) 去重，
  通道优先级 athlete→team→id
- 「只排名不计分」项目（scored:false）不再进奖牌榜，REST/WS/导出口径统一
- aggregate 流水 entry_id 恒 NULL 导致重算后分数翻倍：作废范围改按 event+category 定位
- 已发布成绩仍可被「存草稿」覆盖并清空 rank：服务端 409 STATE_INVALID + 前端禁编辑
- voidResult / 规则导入重算后名次不回写：接住 Ranked 调 applyComputedRanks
- 赛事包覆盖导入可能「旧项目已删、新项目没成」：先改名成功再清理，失败回滚
- 导入赛事包可覆盖正在运行的赛事目录：name==当前项目直接 400
- Console spawn 失败后守护器永久卡死：清 child/pid + 调度重启 + stop 超时兜底
- /ws 快照向非 admin 下发 admin-only 配置：按角色裁剪 settings

P1（计分口径 / 契约 / 现场）：
- standings.tieBreak 三处接线；profiles[].recordBonusMode 生效；破纪录校验
  RecordEligible 与 entry 归属；破纪录登记校验已发布成绩
- export.loadRanked 与主路径对齐；ListBackups reason 解析；CLI backup 前缀修正
  （原来只增不减会撑爆磁盘）；单位积分明细/导出统一权重折算；停用单位展示
- 规则导入原子化（重算并入同一事务）+ 返回 compatible/affectedEventCount/
  recalculatedLedgerRows；登录审计 user_id 修正
- WS 策略性断开用 Close(code,reason)；HelloMessage 补 page/instanceId；
  实例注册表清理；settings/单位/项目写操作补 change_log 触发大屏刷新
- 大屏：全量快照不再被版本守卫丢弃；个人积分榜刷新；公告返回页/轮播；行数截断；
  REST 竞态；1008 停止重连；握手超时；时区补 Z；401 仅 AUTH_REQUIRED 才登出
- 管理端：published 行禁编辑；saveDraft 补 unit（1:06.33 显示）；前端预览改用服务端
  points；空成绩行不再恒「已修改」；修订详情按 id 拉取；切项目请求序号与 dirty 保护；
  发布后刷新项目状态；NAV/路由按角色过滤；recorder 不再打 admin-only 接口
- Console：大屏窗口销毁后重建；大屏 URL 复用 host 归一化；backup.bat 改纯 ASCII
  （已在 Meowhome 实跑验证）

自检：服务端 gofmt/build/vet 通过、12 包测试全绿；前端 vue-tsc + build 通过、
node --test 24/24；console check-syntax 12 文件通过。

server/internal/export/backup_test.go

@@ -6,6 +6,7 @@ import (
 	"log/slog"
 	"os"
 	"path/filepath"
+	"strings"
 	"testing"
 	"time"
 )
@@ -236,6 +237,88 @@ func TestServiceRunMutualExclusion(t *testing.T) {
 	}
 }
 
+// prefix 为空（列出全部备份）时要剥掉已识别的前缀，不能把 event-/system- 拼进原因。
+func TestReasonFromNameWithoutPrefix(t *testing.T) {
+	cases := []struct{ name, want string }{
+		{"event-auto-20260909-213614.db", "auto"},
+		{"event-publish-20260909-213614-2.db", "publish"},
+		{"system-manual-20260909-213614.db", "manual"},
+		{"db-manual-20260909-213614.db", "manual"},
+	}
+	for _, c := range cases {
+		if got := reasonFromName(c.name, ""); got != c.want {
+			t.Errorf("reasonFromName(%q, \"\") = %q，期望 %q", c.name, got, c.want)
+		}
+	}
+}
+
+// ListBackups 不传 prefix 时也要解析出可读原因（管理端「备份」面板按原因分列）。
+func TestListBackupsParsesReasonWithoutPrefix(t *testing.T) {
+	db := openEventDB(t)
+	seedEvent(t, db)
+	dir := t.TempDir()
+	base := time.Date(2026, 9, 9, 12, 0, 0, 0, time.Local)
+
+	if _, err := Backup(db, BackupOptions{Dir: dir, Prefix: "event", Reason: "auto", Now: base, SkipPrune: true}); err != nil {
+		t.Fatalf("赛事库备份: %v", err)
+	}
+	if _, err := Backup(db, BackupOptions{Dir: dir, Prefix: "system", Reason: "manual", Now: base.Add(time.Minute), SkipPrune: true}); err != nil {
+		t.Fatalf("系统库备份: %v", err)
+	}
+
+	list, err := ListBackups(dir, "")
+	if err != nil {
+		t.Fatalf("列出全部备份: %v", err)
+	}
+	if len(list) != 2 {
+		t.Fatalf("备份数 = %d，期望 2", len(list))
+	}
+	want := map[string]string{"event": "auto", "system": "manual"}
+	for _, b := range list {
+		var prefix string
+		for p := range want {
+			if strings.HasPrefix(b.Name, p+"-") {
+				prefix = p
+			}
+		}
+		if prefix == "" {
+			t.Fatalf("无法识别备份前缀: %s", b.Name)
+		}
+		if b.Reason != want[prefix] {
+			t.Errorf("%s 的原因 = %q，期望 %q", b.Name, b.Reason, want[prefix])
+		}
+	}
+}
+
+// 非 NotExist 错误不能让选名函数死循环（它持锁会阻塞全部备份）。
+func TestUniqueBackupPathStopsOnError(t *testing.T) {
+	if os.Geteuid() == 0 {
+		t.Skip("root 不受目录权限限制")
+	}
+	dir := filepath.Join(t.TempDir(), "locked")
+	if err := os.Mkdir(dir, 0o755); err != nil {
+		t.Fatalf("创建目录: %v", err)
+	}
+	if err := os.Chmod(dir, 0o000); err != nil {
+		t.Fatalf("改权限: %v", err)
+	}
+	t.Cleanup(func() { _ = os.Chmod(dir, 0o755) })
+
+	done := make(chan error, 1)
+	go func() {
+		_, err := uniqueBackupPath(dir, "event", "auto", time.Now())
+		done <- err
+	}()
+	select {
+	case err := <-done:
+		if err == nil {
+			t.Fatal("目录不可读应返回错误")
+		}
+	case <-time.After(5 * time.Second):
+		t.Fatal("uniqueBackupPath 在非 NotExist 错误上死循环")
+	}
+}
+
 // 同一秒重复备份会带 -2 之类的序号，原因解析不能把它当成时间的一部分。
 func TestReasonFromNameWithSequence(t *testing.T) {
 	cases := []struct{ name, prefix, want string }{