落地并存测服全端：智能体 Graph/路由、后台切 8180、主账与部署脚本齐备，便于线上重发与验收。

Co-authored-by: Cursor <cursoragent@cursor.com>
2026-09-13 21:15:58 +08:00
parent 0eb1adecc8
commit 8103b3b651
143 changed files with 8968 additions and 277 deletions
@@ -0,0 +1,104 @@
+# Force true UTF-8 body (not GBK) with BOM; ASCII-only script
+$ErrorActionPreference = 'Stop'
+$path = 'E:\wwwroot\.env'
+$bak = 'E:\wwwroot\.env.bak-encoding2-' + (Get-Date -Format 'yyyyMMdd-HHmmss')
+Copy-Item $path $bak -Force
+
+function U([string]$escaped) {
+  return [System.Text.RegularExpressions.Regex]::Unescape($escaped)
+}
+
+# Read previous values using BOTH encodings; prefer lines that parse as KEY=VALUE ascii
+function Load-Map([byte[]]$bytes) {
+  $map = [ordered]@{}
+  foreach ($encName in @('utf-8', 'gbk')) {
+    $enc = if ($encName -eq 'utf-8') { New-Object System.Text.UTF8Encoding $false } else { [System.Text.Encoding]::GetEncoding(936) }
+    $start = 0
+    if ($bytes.Length -ge 3 -and $bytes[0] -eq 239 -and $bytes[1] -eq 187 -and $bytes[2] -eq 191) { $start = 3 }
+    $text = $enc.GetString($bytes, $start, $bytes.Length - $start)
+    foreach ($line in ($text -split "`r?`n")) {
+      $t = $line.Trim()
+      if (-not $t -or $t.StartsWith('#')) { continue }
+      $i = $t.IndexOf('=')
+      if ($i -lt 1) { continue }
+      $k = $t.Substring(0, $i).Trim()
+      $v = $t.Substring($i + 1)
+      if ($k -notmatch '^[A-Z0-9_]+$') { continue }
+      if (-not $map.Contains($k)) { $map[$k] = $v }
+    }
+  }
+  return $map
+}
+
+$bytes = [System.IO.File]::ReadAllBytes($path)
+$map = Load-Map $bytes
+Write-Output ('keys=' + $map.Count)
+
+$goodReply = U '\u8be2\u4ef7\u667a\u80fd\u4f53\u63a5\u901a\u6210\u529f\u3002\u5df2\u6536\u5230\uff1a{content}'
+$map['WECOM_CALLBACK_REPLY_TEXT'] = $goodReply
+
+function V([string]$k, [string]$d = '') {
+  if ($map.Contains($k)) { return [string]$map[$k] }
+  return $d
+}
+
+$lines = New-Object System.Collections.Generic.List[string]
+$lines.Add((U '# \u53cb\u901a\u8fbe\u8be2\u4ef7\u667a\u80fd\u4f53 \u00b7 \u73af\u5883\u53d8\u91cf\uff08E:\\wwwroot\\.env\uff09'))
+$lines.Add((U '# \u7f16\u7801 UTF-8 BOM\uff1b\u8bb0\u4e8b\u672c\u8bf7\u9009 UTF-8\u3002\u7981\u6b62\u63d0\u4ea4 Git\u3002'))
+$lines.Add((U '# \u5bf9\u7167 prompt/13'))
+$lines.Add('')
+$lines.Add('YTD_ENV=' + (V 'YTD_ENV' 'test'))
+$lines.Add('')
+$lines.Add((U '# \u516c\u7f51\u4e0e\u4f01\u5fae'))
+$lines.Add('PUBLIC_BASE_URL=' + (V 'PUBLIC_BASE_URL'))
+$lines.Add('WECOM_CALLBACK_URL=' + (V 'WECOM_CALLBACK_URL'))
+$lines.Add('INQUIRY_FORM_PUBLIC_BASE_URL=' + (V 'INQUIRY_FORM_PUBLIC_BASE_URL'))
+$lines.Add('WECOM_CORP_ID=' + (V 'WECOM_CORP_ID'))
+$lines.Add('WECOM_AGENT_ID=' + (V 'WECOM_AGENT_ID'))
+$lines.Add('WECOM_SECRET=' + (V 'WECOM_SECRET'))
+$lines.Add('WECOM_CALLBACK_TOKEN=' + (V 'WECOM_CALLBACK_TOKEN'))
+$lines.Add('WECOM_ENCODING_AES_KEY=' + (V 'WECOM_ENCODING_AES_KEY'))
+$lines.Add('WECOM_CALLBACK_REPLY_TEXT=' + $goodReply)
+$lines.Add('WECOM_OPS_AGENT_ID=' + (V 'WECOM_OPS_AGENT_ID'))
+$lines.Add('DEV_INJECT_ENABLED=' + (V 'DEV_INJECT_ENABLED' 'false'))
+$lines.Add('')
+$lines.Add((U '# \u5176\u4f59\u914d\u7f6e'))
+$skip = @('YTD_ENV','PUBLIC_BASE_URL','WECOM_CALLBACK_URL','INQUIRY_FORM_PUBLIC_BASE_URL','WECOM_CORP_ID','WECOM_AGENT_ID','WECOM_SECRET','WECOM_CALLBACK_TOKEN','WECOM_ENCODING_AES_KEY','WECOM_CALLBACK_REPLY_TEXT','WECOM_OPS_AGENT_ID','DEV_INJECT_ENABLED')
+foreach ($k in $map.Keys) {
+  if ($skip -contains $k) { continue }
+  $lines.Add($k + '=' + $map[$k])
+}
+
+$text = [string]::Join("`r`n", $lines.ToArray()) + "`r`n"
+
+# Write UTF-8 BOM explicitly via bytes
+$utf8 = New-Object System.Text.UTF8Encoding $false
+$body = $utf8.GetBytes($text)
+$bom = [byte[]](0xEF, 0xBB, 0xBF)
+$all = New-Object byte[] ($bom.Length + $body.Length)
+[Array]::Copy($bom, 0, $all, 0, 3)
+[Array]::Copy($body, 0, $all, 3, $body.Length)
+[System.IO.File]::WriteAllBytes($path, $all)
+
+# Prove first Chinese char "友" is UTF-8 E5 8F 8B not GBK D3 D1
+$nb = [System.IO.File]::ReadAllBytes($path)
+# find first non-ascii after BOM
+$i = 3
+while ($i -lt $nb.Length -and $nb[$i] -lt 128) { $i++ }
+$hex = ($nb[$i..([Math]::Min($i+2, $nb.Length-1))] | ForEach-Object { $_.ToString('X2') }) -join ' '
+Write-Output ('first_non_ascii_hex=' + $hex)
+Write-Output ('expect_utf8_you=E5 8F 8B')
+Write-Output ('is_utf8_you=' + ($hex -eq 'E5 8F 8B'))
+
+# decode check without console encoding issues: look for UTF-8 sequence of 询
+$needle = $utf8.GetBytes((U '\u8be2\u4ef7'))
+$found = $false
+for ($p = 0; $p -le $nb.Length - $needle.Length; $p++) {
+  $ok = $true
+  for ($j = 0; $j -lt $needle.Length; $j++) {
+    if ($nb[$p + $j] -ne $needle[$j]) { $ok = $false; break }
+  }
+  if ($ok) { $found = $true; break }
+}
+Write-Output ('has_utf8_xunjia=' + $found)
+Write-Output 'ENV_UTF8_OK'