mirror of
https://github.com/Nikolay-Shirokov/cc-1c-skills.git
synced 2026-09-27 04:25:54 +03:00
Auto-build: codex (powershell) from 69745af
This commit is contained in:
github-actions[bot]
@@ -0,0 +1,215 @@
|
||||
# web-info v1.6 — 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(PositionalBinding=$false)]
|
||||
param(
|
||||
[Parameter(Mandatory=$false, Position=0)]
|
||||
[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 Listen from global block (fallback — whole file): "Listen [host:]port [proto]"
|
||||
$port = "—"
|
||||
$listenHost = ""
|
||||
$listenScope = $confContent
|
||||
if ($confContent -match '(?s)# --- 1C: global ---(.*?)# --- End: global ---') {
|
||||
$listenScope = $Matches[1]
|
||||
}
|
||||
if ($listenScope -match '(?m)^[ \t]*Listen[ \t]+(?:(\[[^\]]+\]|[^\s:\[\]]+):)?(\d+)\b') {
|
||||
$port = $Matches[2]
|
||||
if ($Matches[1] -and @('0.0.0.0', '*', '[::]') -notcontains $Matches[1]) {
|
||||
$listenHost = $Matches[1]
|
||||
}
|
||||
}
|
||||
# Адрес привязки явный — по нему и URL, и проба; иначе все интерфейсы → localhost
|
||||
$urlHost = if ($listenHost) { $listenHost } else { "localhost" }
|
||||
$probeHost = if ($listenHost) { $listenHost.Trim('[', ']') } else { "127.0.0.1" }
|
||||
# Проверяем именно TCP-порт: запрос к публикации поднял бы сеанс 1С и занял лицензию
|
||||
$portState = ""
|
||||
if ($port -ne "—") {
|
||||
# Конструктор по умолчанию — только IPv4: для IPv6-литерала нужно семейство адреса
|
||||
$probeAddr = $null
|
||||
if ([System.Net.IPAddress]::TryParse($probeHost, [ref]$probeAddr)) {
|
||||
$client = New-Object System.Net.Sockets.TcpClient($probeAddr.AddressFamily)
|
||||
} else {
|
||||
$client = New-Object System.Net.Sockets.TcpClient
|
||||
}
|
||||
try {
|
||||
$async = $client.BeginConnect($probeHost, [int]$port, $null, $null)
|
||||
if ($async.AsyncWaitHandle.WaitOne(1000) -and $client.Connected) {
|
||||
$portState = " (слушается)"
|
||||
} else {
|
||||
$portState = " (не отвечает)"
|
||||
}
|
||||
} catch {
|
||||
$portState = " (не отвечает)"
|
||||
} finally {
|
||||
$client.Close()
|
||||
}
|
||||
}
|
||||
$portLabel = if ($listenHost) { "${listenHost}:$port" } else { $port }
|
||||
Write-Host "Port: $portLabel$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 '"','"'
|
||||
}
|
||||
}
|
||||
|
||||
# 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://${urlHost}:$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
|
||||
}
|
||||
Reference in New Issue
Block a user