ZPanel 10.1.1 -> Sentora 1.0.3 Windows Version

[andykimpe]

you remember this is the nut form that opens in the php window



well you can say ugly goodbye

and hello to the new form that you would have







good there is still work on the configuration and for all to update but the presentation, tation and very well like its

Code:

//presentation pascal code
Procedure URLLabelOnClick(Sender: TObject);
var
 ErrorCode: Integer;
begin
 ShellExec('open', 'http://www.sentora.org', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;


var
 PageParam: TInputQueryWizardPage;

// Créer les Pages Personnalisées
procedure CreateTheWizardPages;

begin
// Create the page
PageParam := CreateInputQueryPage(wpInfoBefore,
 ExpandConstant('Configure your Sentora Installation'), ExpandConstant('Information of your installation'),
 ExpandConstant('please fill in the information requested to configure your Setora installation'));

// Add items (False means it's not a password edit)
   PageParam.Add(ExpandConstant('Your Full name:'), False);
   PageParam.Add(ExpandConstant('Your Email:'), False);
   PageParam.Values[0]:= '';
   PageParam.Values[1]:= '';
end;

// Fonctions de retour
function GetParam1(Param: String): String;
begin
   Result := PageParam.Values[0];
end;
function GetParam2(Param: String): String;
begin
   Result := PageParam.Values[1];
end;


var
 PageParamm: TInputQueryWizardPage;

procedure CreateTheWizardPages1;
begin
// Create the page
PageParamm := CreateInputQueryPage(wpUserInfo,
 ExpandConstant('Configure your Sentora Installation'), ExpandConstant('Information of your installation'),
 ExpandConstant('please fill in the information requested to configure your Setora installation'));

// Add items (False means it's not a password edit)
   PageParamm.Add(ExpandConstant('Your FQDN:'), False);
   PageParamm.Add(ExpandConstant('Password For Zadmin:'), False);
   PageParamm.Values[0]:= '';
   PageParamm.Values[1]:= '';
end;

// Fonctions de retour
function GetParam3(Paramm: String): String;
begin
   Result := PageParam.Values[0];
end;
function GetParam4(Paramm: String): String;
begin
   Result := PageParamm.Values[1];
end;
//code for configure PATH Variable
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
 Path, AppDir: string;
 Index: Integer;
begin
 if CurUninstallStep = usUninstall then
 begin
   if RegQueryStringValue(HKEY_LOCAL_MACHINE,
     'SYSTEM\CurrentControlSet\Control\Session Manager\Environment\',
     'Path', Path) then
   begin
     AppDir := ExpandConstant('{app}\bin\apache\bin;{app}\bin\mysql\bin;{app}\bin\php;{app}\bin\wget;{app}\bin\bind\bin');
     Index := Pos(AppDir, Path);
     Delete(Path, Index-1, Length(AppDir)+1);
     RegWriteStringValue(HKEY_LOCAL_MACHINE,
       'SYSTEM\CurrentControlSet\Control\Session Manager\Environment\',
       'Path', Path);
   end;
 end;
end;
//end path config
procedure InitializeWizard();
var
 URLLabel: TNewStaticText;
begin
 URLLabel := TNewStaticText.Create(WizardForm);
 URLLabel.Caption := 'www.sentora.org';
 URLLabel.Cursor := crHand;
 URLLabel.OnClick := @URLLabelOnClick;
 URLLabel.Parent := WizardForm;
 { Alter Font *after* setting Parent so the correct defaults are inherited first }
 URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderline];
 URLLabel.Font.Color := clBlue;
 URLLabel.Top := WizardForm.ClientHeight - URLLabel.Height - 15;
 URLLabel.Left := ScaleX(20);
//end;
//begin
 CreateTheWizardPages;
 CreateTheWizardPages1;
end;

and can retrieve the parameters to send them to the script even hide this one seen which more interaction on it
the script will be executed like this

install_services.bat {app} {tmp} {code:GetParam1} {code:GetParam2} {code:GetParam3} {code:GetParam4}

install_services.bat install_folder temp_dir your_full_name your_email your_fqdn password_for_zadmin

Code:

@echo off
SET install_folder=%1
SET temp_dir=%2
SET your_full_name=%3
SET your_email=%4
SET your_fqdn=%5
SET password_for_zadmin=%6

Code:

<?php
$install_folder = $argv[0]
$temp_dir = $argv[1]
$your_full_name = $argv[2]
$your_email = $argv[3]
$your_fqdn = $argv[4]
$password_for_zadmin = $argv[5]

and if everything goes as planned

you will be able to choose the installation directory

including in another hard drive

I remember that some have asked

and at the time it was petter who said that it was not possible

yes indeed at the time but more today

since we can customize the installer with code

so can rewrite all config files

and for the paths in the db 2 3 update command and it is set

I want to reassure everyone too
even I suggest improvements

on the installer

I do not intend to modify the theme of the panel nor to add unnecessary modules like imagik or even to make you come back to a version 2.2 of apache

I'm not MarkDark all of it makes him

what I propose will work on

apache 2.4.38

php 5.6.40

suhosin 0.9.38

mysql 5.7.29

I will also add the wget version of cygwin

and what tools such as unzip zip tar gzip xz sed and coreutils

but it stops no change in the panel code itself by changing the theme either