feat(web): add web publishing skills (web-publish, web-info, web-stop, web-unpublish)

Phase 1 of web publishing: publish 1C infobases via portable Apache HTTP Server. Closes the feedback loop: edit → load → update → open in browser. Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
2026-07-24 21:51:02 +03:00 · 2026-02-22 16:28:22 +03:00
parent bc9087957f
commit bc4778d6cc
10 changed files with 1178 additions and 0 deletions
@@ -0,0 +1,127 @@
+# web-info v1.0 — 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 ---
+$httpdProc = Get-Process httpd -ErrorAction SilentlyContinue
+if ($httpdProc) {
+    $pids = ($httpdProc | ForEach-Object { $_.Id }) -join ", "
+    Write-Host "Status: Запущен (PID: $pids)" -ForegroundColor Green
+} else {
+    Write-Host "Status: Остановлен" -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]
+}
+Write-Host "Port:   $port"
+
+# 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;','"'
+            }
+        }
+
+        $url = "http://localhost:$port/$appName"
+        Write-Host "  $appName" -ForegroundColor White -NoNewline
+        Write-Host "   $url" -ForegroundColor Gray -NoNewline
+        Write-Host "   $ibInfo" -ForegroundColor DarkGray
+    }
+}
+
+# --- Error log ---
+Write-Host ""
+Write-Host "=== Последние ошибки ===" -ForegroundColor Cyan
+
+$errorLog = Join-Path (Join-Path $ApachePath "logs") "error.log"
+if (Test-Path $errorLog) {
+    $lines = Get-Content $errorLog -Tail 5 -ErrorAction SilentlyContinue
+    if ($lines -and $lines.Count -gt 0) {
+        foreach ($line in $lines) {
+            Write-Host "  $line" -ForegroundColor DarkGray
+        }
+    } else {
+        Write-Host "(пусто)" -ForegroundColor Green
+    }
+} else {
+    Write-Host "(нет файла)" -ForegroundColor Green
+}