Společnost 4D pokračuje v poskytování funkcí, které vám pomohou vytvářet vlastní aplikace pro monitorování serverů. Od programového získávání informací o relacích, procesech a aplikačním serveru až po získávání informací o webovém serveru.
Poté, co vám již 4D v17 R4 poskytlo příkazy pro čtení stavů, vám nyní dává možnost stavy měnit. Nyní můžete vytvářet vlastní rozhraní pro správu jako dialogová okna na serveru, v klientovi nebo dokonce jako stránky HTML pro přístup přes web. Záleží jen na vás. Tyto příkazy umožňují provádět stejné akce jako standardní administrační rozhraní 4D. Můžete například odeslat zprávu uživatelům a upozornit je na plánovanou údržbu nebo zablokovat nová připojení k aplikačnímu serveru, zatímco na něm provádíte nějakou operaci.
Uživatelské příkazy
Zprávu ze serveru vzdálenému uživateli můžete odeslat pomocí příkazu SEND MESSAGE TO REMOTE USER příkazem. Chcete-li získat seznam uživatelských relací, můžete použít příkaz Get process activity příkaz.
Správce serveru chce například odeslat zprávu všem připojeným uživatelům.
C_TEXT($message)
$message :="Je naplánována operace údržby a server bude restartován. Odhlaste se prosím před 22:00."
SEND MESSAGE TO REMOTE USER ($message)
Nebo pošlete zprávu pouze Johnovi.
C_TEXT($message)
C_COLLECTION ($userCol)
C_OBJECT ($element)
// Retrieve the list of sessions with the userName: "John"
$userCol :=Get process activity(Sessions only).sessions.query("userName = :1"; "John")
$message :="Ahoj Johne."
For each ($element;$userCol)
SEND MESSAGE TO REMOTE USER ($message;$element.ID)
End for each
Uživatelskou relaci můžete také ukončit příkazem DROP REMOTE USER příkazem.
C_COLLECTION($userCol)
C_OBJECT ($element)
// Retrieve the list of sessions
$userCol :=Get process activity(Sessions only).sessions.query("userName = :1"; "John")
For each ($element;$userCol)
DROP REMOTE USER ($element.ID)
End for each
Zpracování příkazů
Pomocí nového ABORT PROCESS BY ID můžete zastavit konkrétní proces pomocí jeho jedinečného ID procesu. Chcete-li získat jedinečné ID procesu, můžete použít příkaz Get process activity nebo Process properties příkazů.
Například byla zahájena operace v databázi, která se však zdá být nekonečná a narušuje výkon serveru. Správce může zjistit číslo procesu a tím proces přerušit.
// Retrieve the list of processes on the server and display it in a list box.
$activity:=Get process activity(Processes only).processes
..
// The process selected by the administrator is aborted
ABORT PROCESS BY ID($activity.processes[selectedItem].ID)
Připojení klientů
Správce serveru může blokovat nová vzdálená připojení pomocí příkazu REJECT NEW REMOTE CONNECTION příkazem. Chcete-li zjistit, zda byla připojení přijata nebo odmítnuta, použijte příkaz Get application info příkaz.
// Reject the new connections
REJECT NEW REMOTE CONNECTIONS(True)
// Execute the maintenance operation
...
// Accept the new connections (
REJECT NEW REMOTE CONNECTIONS False)
POŽADAVKY SOAP
Chcete-li blokovat požadavky SOAP, můžete použít příkaz SOAP REJECT NEW REQUESTS příkaz. Chcete-li zjistit, zda byly požadavky přijaty nebo odmítnuty, použijte příkaz WEB Get server info příkaz.
If (WEB Get server info.SOAPServerStarted)
SOAP REJECT NEW REQUESTS (True)
End if
Obnovení licence
Váš tým se rozrostl, a proto jste pro svůj server zakoupili nová klientská připojení. Správci serveru již nemusí fyzicky přistupovat k serverovému počítači, aby mohli aktualizovat licenci. Příkaz Refresh license Příkaz je nyní k dispozici. Vyvolá stejnou akci, jako kdyby správce kliknul na tlačítko v dialogovém okně licence 4D Serveru. Pokud vám tato funkce chyběla, automaticky instaluje zakoupené licence pro klienty, 4D Write Pro nebo 4D View Pro. Přečtěte si více o této funkci.
C_OBJECT($res)
$res :=Refresh license
If ($res.success)
ALERT ("Success")
Else
ALERT ($res.message)
End if