Nginx GUI Administrator

[Back2Code]

Guten Abend lieber DP'ler,

heute wollte ich euch mal meine erstes "Public Tool" vorstellen. Habs auch gleich OpenSource veröffentlicht auf GitHub.

Link dazu findet ihr hier:

https://github.com/explosiv2k/Nginx-GUI-Administrator

Auf die Idee bin ich gekommen als ich letztens die Windows Version von Nginx ausprobiert habe. Da der Server quasi nur im Hintergrund läuft ohne irgendwelche GUI Verwaltungstools hab ich mich dazu entschlossen ein eigenes kleines Admintool dafür zu schreiben.

Nginx Windows Webserver:
http://nginx.org/en/docs/windows.html

Bisherige Funktionen:

1. Autostart
2. Portanzeige von HTTP/HTTPS
3. Server starten / beenden
4. Serverstatus
5. Serverconfig bearbeiten
6. Access Log Anzeige
7. Error Log Anzeige

Anleitung:

Schiebt die nginxGUI.exe einfach in den Ordner von nginx. Bitte an der Ordnersturktur vom nginx Ordner nichts verändern. Sonst kann es zu Fehlfunktionen kommen.

Freue mich auf Vorschläge, Kritik & eventuell auch ein kleines Lob

So dann wünsch ich euch auch noch ein schönes Wochenende.

[Back2Code]

Keiner ?

[sx2008]

Ich hab dein Projekt (schon letzte Woche) geforkt kann es allerdings mangels Compiler nicht testen.
Die globalen Variablen in Unit main würde ich in die Formularklasse verschieben:

Delphi-Quellcode:

  IsRunning : Boolean = False;
  IsAutoStart : Boolean = False;
  sConfPath: String;

Die function TGUI.OnlyNumbersInString() gehört nicht in die Klasse TGUI sondern sollte eine ganze normale Funktion sein.

procedure TGUI.btEdtConfClick ist etwas unschön, weil dem Benutzer nur die Meldung 'Invalid config path.' gegeben wird und die Angabe des Pfads inkl. Dateiname fehlt.

[WM_CLOSE]

Wenn du das noch hinkriegst, dass es über ssh / scp läuft, probier ich es aus. Vielleicht noch eine IP Filterfunktion für die Logs und eine Anzeige in einer vernüftigen Tabelle. Aber im Moment kann ich ehrlich gesagt keinen richtigen Vorteil gegenüber der der manuellen Administration mittels Notepad++ oder vim erkennen.

EDIT:
So könnte man die Logs mittels scp auslesen:

Delphi-Quellcode:

procedure TGUI.loadErrors;
var
  sLogPath: String;
  p1 : String;
  stream: TStream;
begin
   sLogPath := GetCurrentDir;
   p1 := sLogPath + '\logs\' + 'error.log';
   self.downloadFile(p1, '/var/log/nginx/error.log'); //sollte aus einer config kommen, da unterschiedlich je nach OS
      stream := TFileStream.Create(p1, fmOpenRead or fmShareDenyNone);
      try
         Memo2.Lines.LoadFromStream(stream);
      finally
         stream.Free;
      end;
end;

//http://www.delphipraxis.net/98541-warten-bis-aufgerufener-prozess-beendet-ist.html
procedure TGUI.ShellExecAndWait(dateiname: string; Parameter: string);
var executeInfo: TShellExecuteInfo;
    dw: DWORD;
begin
 FillChar(executeInfo, SizeOf(executeInfo), 0);
 with executeInfo do begin
   cbSize := SizeOf(executeInfo);
   fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;
   Wnd := GetActiveWindow();
   executeInfo.lpVerb := 'open';
   executeInfo.lpParameters := PChar(Parameter);
   lpFile := PChar(dateiname);
   nShow := SW_SHOWNORMAL;
 end;
 if ShellExecuteEx(@executeInfo) then dw := executeInfo.HProcess
 else begin
   ShowMessage('Fehler: ' + SysErrorMessage(GetLastError));
   Exit;
 end;
 while WaitForSingleObject(executeInfo.hProcess, 50) <> WAIT_OBJECT_0 do
   Application.ProcessMessages;
 CloseHandle(dw);
end; 

procedure TGUI.downloadFile(pathLocal: String; pathRemote: String)
var
  pscpCmdLineBase: String;
begin
  pscpCmdLineBase := '-P 1234 -i .\schlüsseldatei.ppk [e-mail]:%s .\%s '; 
  //das hier sollte natürlich aus einer Config-Datei oder Benutzereingabe stammen
  
  self.ShellExecAndWait('pscp.exe', Format(pscpCmdLineBase, [pathRemote, pathLocal]));
  //pscp.exe ins verzeichnis legen
end;

Ich kann es mangels Delphi nicht testen, aber so ungefähr müsste es funktionieren.

[Back2Code]

@WM_CLOSE

Ich glaube du hast noch nicht richtig mitbekommen, dass dieses Projekt nur für Windows konzipiert wurde von mir. Es ist auch nur mit der Windows nginx Version kompatibel

@sx2008 Danke für's Feedback ich kümmer mich drum.

[sx2008]

Hmmm...
Jetzt sind die globalen Variablen immer noch global:

Delphi-Quellcode:

unit functions;

interface

var {global sichtbar}
  IsRunning : Boolean = False;
  IsAutoStart : Boolean = False;
  sConfPath: String;

Verschieben nach TGUI ist doch viel besser:

Delphi-Quellcode:

type
  TGUI = class(TForm)
    MainBox: TGroupBox;
....
  private
    IsRunning : Boolean;
    IsAutoStart : Boolean;
    sConfPath: String;
    function AutoStartExist: Boolean;

Private Variablen in Klassen werden in Delphi autom. mit 0 initialisiert; IsRunning und IsAutoStart sind also zu Beginn =False.
Es ist üblich private Variablen den Prefix "F" (für Field) vorneanzustellen.

Delphi-Quellcode:

  private
    FIsRunning : Boolean;
    FIsAutoStart : Boolean;
    FConfPath: String;