sync SVN r18160

2026-09-17 16:56:47 +03:00
parent 221ae4711e
commit 496e15c0cf
4 changed files with 123 additions and 0 deletions
--- a/utile/roa-sql.ps1
+++ b/utile/roa-sql.ps1
@@ -0,0 +1,76 @@
+# roa-sql.ps1 - ruleaza SQL prin sqlplus, determinist.
+# Elimina refacerea manuala de fiecare data: scris fisier .sql ASCII + setat TNS_ADMIN/NLS_LANG
+# + rulat sqlplus. Capcanele rezolvate: BOM-ul care sparge sqlplus (SP2-0734) si `termout off`
+# care ascunde erorile (nu-l foloseste).
+#
+# Utilizare:
+#   powershell -File COMUN\utile\roa-sql.ps1 -Schema MARIUSM_AUTO -Sql "select user from dual"
+#   powershell -File COMUN\utile\roa-sql.ps1 -Schema MARIUSM_AUTO -Fisier "D:\cale\q.sql"
+#   powershell -File COMUN\utile\roa-sql.ps1 -Con "ROMFAST/<parola>@ROA_ROMFAST" -Sql "select user from dual"
+#
+# Parametri:
+#   -Schema  numele schemei; completeaza /<parola standard din fisierul de secrete>@<alias>
+#   -Con     sirul de conectare complet (schema/parola@alias) - foloseste-l pentru productie
+#   -Alias   alias TNS cand folosesti -Schema (default ROA_CENTRAL)
+#   -Sql     instructiune SQL directa  -- SAU --  -Fisier  fisier .sql existent
+#
+# Parola NU e hardcodata: -Schema o citeste din COMUN\docs\local\oracle.md (fisier de secrete,
+# NEVERSIONAT in git). Pentru productie, da -Con cu parola din acelasi fisier.
+#
+# Atentie: interogarile pe productie se fac doar SELECT, cu `fetch first N rows only`.
+param(
+    [string]$Schema,
+    [string]$Con,
+    [string]$Alias = 'ROA_CENTRAL',
+    [string]$Sql,
+    [string]$Fisier
+)
+
+$ErrorActionPreference = 'Stop'
+$sqlplus = 'D:\ROA\instantclient_19_18\sqlplus.exe'
+$env:TNS_ADMIN = 'D:\ROA\instantclient_19_18'
+$env:NLS_LANG = 'AMERICAN_AMERICA.AL32UTF8'
+
+function Ia-ParolaStandard {
+    $fisier = Join-Path $PSScriptRoot '..\docs\local\oracle.md'
+    if (-not (Test-Path -LiteralPath $fisier)) { return $null }
+    $text = [IO.File]::ReadAllText($fisier)
+    if ($text -match 'MARIUSM_AUTO/([A-Za-z0-9_]+)@ROA_CENTRAL') {
+        return $Matches[1]
+    }
+    return $null
+}
+
+if ($Con) {
+    $conn = $Con
+} elseif ($Schema) {
+    $parola = Ia-ParolaStandard
+    if (-not $parola) {
+        Write-Output 'roa-sql: nu gasesc parola standard in COMUN\docs\local\oracle.md - foloseste -Con.'
+        exit 1
+    }
+    $conn = "$Schema/$parola@$Alias"
+} else {
+    Write-Output 'roa-sql: da -Schema (dev) sau -Con (productie).'
+    exit 1
+}
+
+if ($Fisier) {
+    $sqlText = [IO.File]::ReadAllText((Resolve-Path $Fisier))
+} elseif ($Sql) {
+    $sqlText = $Sql
+} else {
+    Write-Output 'roa-sql: da -Sql sau -Fisier.'
+    exit 1
+}
+
+$tmp = Join-Path $env:TEMP ('roa-sql-' + [guid]::NewGuid().ToString('N') + '.sql')
+try {
+    $sqlText = $sqlText.Trim()
+    if (-not $sqlText.EndsWith(';')) { $sqlText += ';' }
+    $sqlText += "`r`nexit`r`n"
+    [IO.File]::WriteAllText($tmp, $sqlText, (New-Object System.Text.UTF8Encoding($false)))
+    & $sqlplus -S -L $conn ('@' + $tmp)
+} finally {
+    Remove-Item -LiteralPath $tmp -Force -ErrorAction SilentlyContinue
+}