Auto-build: codeassistant (python) from fddaca3

2026-08-11 22:13:20 +03:00 · 2026-08-09 18:53:03 +00:00
commit e1df8f820c
322 changed files with 169383 additions and 0 deletions
@@ -0,0 +1,197 @@
+# web-info v1.4 — Apache & 1C publication status
+# Source: https://github.com/Nikolay-Shirokov/cc-1c-skills
+<#
+.SYNOPSIS
+    Статус Apache и публикаций 1С
+
+.DESCRIPTION
+    Показывает состояние Apache HTTP Server, список опубликованных баз
+    и последние ошибки из error.log.
+
+.PARAMETER ApachePath
+    Корень Apache (по умолчанию tools\apache24)
+
+.EXAMPLE
+    .\web-info.ps1
+
+.EXAMPLE
+    .\web-info.ps1 -ApachePath "C:\tools\apache24"
+#>
+
+[CmdletBinding()]
+param(
+    [Parameter(Mandatory=$false)]
+    [string]$ApachePath
+)
+
+$OutputEncoding = [System.Text.Encoding]::UTF8
+[Console]::OutputEncoding = [System.Text.Encoding]::UTF8
+
+# --- Resolve ApachePath ---
+if (-not $ApachePath) {
+    $projectRoot = (Get-Item $PSScriptRoot).Parent.Parent.Parent.Parent.FullName
+    $ApachePath = Join-Path $projectRoot "tools\apache24"
+}
+
+# --- Check Apache installation ---
+$httpdExe = Join-Path (Join-Path $ApachePath "bin") "httpd.exe"
+
+Write-Host "=== Apache Web Server ===" -ForegroundColor Cyan
+
+if (-not (Test-Path $httpdExe)) {
+    Write-Host "Status: Не установлен" -ForegroundColor Red
+    Write-Host "Path:   $ApachePath (не найден)"
+    Write-Host ""
+    Write-Host "Используйте /web-publish для установки Apache." -ForegroundColor Yellow
+    exit 0
+}
+
+# --- Check process (only our Apache) ---
+$httpdExeNorm = (Resolve-Path $httpdExe -ErrorAction SilentlyContinue).Path
+$ourProc = Get-Process httpd -ErrorAction SilentlyContinue | Where-Object {
+    try { $_.Path -eq $httpdExeNorm } catch { $false }
+}
+$foreignProc = Get-Process httpd -ErrorAction SilentlyContinue | Where-Object {
+    try { $_.Path -ne $httpdExeNorm } catch { $true }
+}
+if ($ourProc) {
+    $pids = ($ourProc | ForEach-Object { $_.Id }) -join ", "
+    Write-Host "Status: Запущен (PID: $pids)" -ForegroundColor Green
+} else {
+    Write-Host "Status: Остановлен" -ForegroundColor Yellow
+}
+if ($foreignProc) {
+    $fpid = ($foreignProc | Select-Object -First 1).Id
+    $fpath = try { ($foreignProc | Select-Object -First 1).Path } catch { "?" }
+    Write-Host "[WARN] Обнаружен сторонний Apache (PID: $fpid, $fpath)" -ForegroundColor Yellow
+}
+
+Write-Host "Path:   $ApachePath"
+
+# --- Parse httpd.conf ---
+$confFile = Join-Path (Join-Path $ApachePath "conf") "httpd.conf"
+if (-not (Test-Path $confFile)) {
+    Write-Host "Config: httpd.conf не найден" -ForegroundColor Red
+    exit 0
+}
+
+$confContent = [System.IO.File]::ReadAllText($confFile)
+
+# Extract port from global block
+$port = "—"
+if ($confContent -match '(?m)^Listen\s+(\d+)') {
+    $port = $Matches[1]
+}
+# Проверяем именно TCP-порт: запрос к публикации поднял бы сеанс 1С и занял лицензию
+$portState = ""
+if ($port -ne "—") {
+    $client = New-Object System.Net.Sockets.TcpClient
+    try {
+        $async = $client.BeginConnect("127.0.0.1", [int]$port, $null, $null)
+        if ($async.AsyncWaitHandle.WaitOne(1000) -and $client.Connected) {
+            $portState = " (слушается)"
+        } else {
+            $portState = " (не отвечает)"
+        }
+    } catch {
+        $portState = " (не отвечает)"
+    } finally {
+        $client.Close()
+    }
+}
+Write-Host "Port:   $port$portState"
+
+# Extract wsap24 path
+if ($confContent -match 'LoadModule\s+_1cws_module\s+"([^"]+)"') {
+    Write-Host "Module: $($Matches[1])"
+}
+
+# --- Publications ---
+Write-Host ""
+Write-Host "=== Опубликованные базы ===" -ForegroundColor Cyan
+
+$pubPattern = '# --- 1C Publication: (.+?) ---'
+$pubMatches = [regex]::Matches($confContent, $pubPattern)
+
+if ($pubMatches.Count -eq 0) {
+    Write-Host "(нет публикаций)" -ForegroundColor Yellow
+} else {
+    foreach ($match in $pubMatches) {
+        $appName = $match.Groups[1].Value
+
+        # Read default.vrd for this publication
+        $vrdPath = Join-Path (Join-Path (Join-Path $ApachePath "publish") $appName) "default.vrd"
+        $ibInfo = "—"
+        if (Test-Path $vrdPath) {
+            $vrdContent = [System.IO.File]::ReadAllText($vrdPath)
+            if ($vrdContent -match 'ib="([^"]*)"') {
+                $ibInfo = $Matches[1] -replace '&quot;','"'
+            }
+        }
+
+        # Detect published services
+        $svcTags = @()
+        if (Test-Path $vrdPath) {
+            # "+ext" — publishExtensionsByDefault: сервисы расширений тоже опубликованы
+            if ($vrdContent -match '<ws\s[^>]*>') {
+                $wsTag = "WS"
+                if ($Matches[0] -match 'publishExtensionsByDefault\s*=\s*"true"') { $wsTag += "+ext" }
+                $svcTags += $wsTag
+            }
+            if ($vrdContent -match '<httpServices\s[^>]*>') {
+                $hsTag = "HTTP"
+                if ($Matches[0] -match 'publishExtensionsByDefault\s*=\s*"true"') { $hsTag += "+ext" }
+                $svcTags += $hsTag
+            }
+            # Актуальная форма — <standardOdata enable="true"/>; enableStandardOdata — до 8.3.9
+            if ($vrdContent -match '<standardOdata\s[^>]*enable\s*=\s*"true"' -or
+                $vrdContent -match 'enableStandardOdata\s*=\s*"true"') { $svcTags += "OData" }
+        }
+        $svcLabel = if ($svcTags.Count -gt 0) { "   [" + ($svcTags -join " ") + "]" } else { "" }
+
+        $url = "http://localhost:$port/$appName"
+        Write-Host "  $appName" -ForegroundColor White -NoNewline
+        Write-Host "   $url" -ForegroundColor Gray -NoNewline
+        Write-Host "   $ibInfo" -ForegroundColor DarkGray -NoNewline
+        Write-Host $svcLabel -ForegroundColor DarkCyan
+    }
+}
+
+# --- Error log ---
+Write-Host ""
+Write-Host "=== Последние ошибки ===" -ForegroundColor Cyan
+
+# Имя файла берём из httpd.conf: сборки Apache расходятся (error.log / error_log)
+$errorLog = $null
+if ($confContent -match '(?m)^\s*ErrorLog\s+"?([^"\r\n]+)"?') {
+    $logPath = $Matches[1].Trim()
+    if ([System.IO.Path]::IsPathRooted($logPath)) {
+        $errorLog = $logPath
+    } else {
+        $errorLog = Join-Path $ApachePath ($logPath -replace '/','\')
+    }
+}
+if (-not $errorLog -or -not (Test-Path $errorLog)) {
+    $errorLog = @("error_log", "error.log") |
+        ForEach-Object { Join-Path (Join-Path $ApachePath "logs") $_ } |
+        Where-Object { Test-Path $_ } |
+        Select-Object -First 1
+}
+
+if ($errorLog -and (Test-Path $errorLog)) {
+    Write-Host "Журнал: $errorLog" -ForegroundColor DarkGray
+    # Только error и выше: warn забит штатным шумом winnt_accept, notice — строки старта.
+    # AH02538 — след нашего же рестарта (родитель убит), пишется как crit при каждой публикации
+    $lines = Get-Content $errorLog -ErrorAction SilentlyContinue |
+        Where-Object { $_ -match '\[[a-z_]+:(error|crit|alert|emerg)\]' -and $_ -notmatch 'AH02538' } |
+        Select-Object -Last 5
+    if ($lines) {
+        foreach ($line in $lines) {
+            Write-Host "  $line" -ForegroundColor DarkGray
+        }
+    } else {
+        Write-Host "(ошибок нет)" -ForegroundColor Green
+    }
+} else {
+    Write-Host "(нет файла)" -ForegroundColor Green
+}