This forum uses cookies
This forum makes use of cookies to store your login information if you are registered, and your last visit if you are not. Cookies are small text documents stored on your computer; the cookies set by this forum can only be used on this website and pose no security risk. Cookies on this forum also track the specific topics you have read and when you last read them. Please confirm whether you accept or reject these cookies being set.

A cookie will be stored in your browser regardless of choice to prevent you being asked this question again. You will be able to change your cookie settings at any time using the link in the footer.

ZPanel 10.1.1 -> Sentora 1.0.3 Windows Version
#9
RE: ZPanel 10.1.1 -> Sentora 1.0.3 Windows Version
you remember this is the nut form that opens in the php window

[Image: kaia.png]

well you can say ugly goodbye

and hello to the new form that you would have

[Image: o36x.png]

[Image: jm69.png]

[Image: hf8j.png]

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
Reply
Thanks given by:


Messages In This Thread
RE: ZPanel 10.1.1 -> Sentora 1.0.3 Windows Version - by andykimpe - 07-01-2020, 08:20 AM

Possibly Related Threads…
Thread Author Replies Views Last Post
Sentora for Windows 1.0.0 released! MarkDark 72 224 ,853 04-01-2022, 09:41 PM
Last Post: cathelest
Sentora on Windows ANY NEW INSTALLER elmoutakaf 3 10 ,440 10-04-2020, 02:37 AM
Last Post: Gigamax
sentora awserver apache 2.2 to 2.4 migration elmoutakaf 1 5 ,928 07-08-2020, 09:49 PM
Last Post: andykimpe

Forum Jump:


Users browsing this thread: 2 Guest(s)