#define MyAppName "Inventera"
#define MyAppVersion "0.1.0-beta"
#define MyAppPublisher "Inventera"
#define MyAppExeName "Inventera.Server.exe"
#define PostgreSqlMajor "18"
#define PostgreSqlInstaller "installer\prerequisites\postgesql.exe"

[Setup]
AppId={{78BAF0DB-D841-49A7-954C-16DCA688B136}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
DefaultDirName={autopf}\{#MyAppName}
DefaultGroupName={#MyAppName}
PrivilegesRequired=admin
OutputDir=dist
OutputBaseFilename=Inventera
SetupIconFile=picture\logo\main_logo.ico
UninstallDisplayIcon={app}\{#MyAppExeName}
Compression=lzma2/ultra64
SolidCompression=yes
WizardStyle=modern
ArchitecturesAllowed=x64compatible
ArchitecturesInstallIn64BitMode=x64compatible
CloseApplications=yes
RestartApplications=no
DisableProgramGroupPage=yes
UsePreviousAppDir=yes

[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[Files]
Source: "{#PostgreSqlInstaller}"; Flags: dontcopy noencryption nocompression
Source: "installer\initialize_inventera_database.ps1"; Flags: dontcopy noencryption
Source: "dist\{#MyAppExeName}"; DestDir: "{app}"; Flags: ignoreversion

[Icons]
Name: "{group}\Inventera"; Filename: "http://127.0.0.1:{code:GetApplicationPort}"; IconFilename: "{app}\{#MyAppExeName}"
Name: "{commondesktop}\Inventera"; Filename: "http://127.0.0.1:{code:GetApplicationPort}"; IconFilename: "{app}\{#MyAppExeName}"
Name: "{commonstartup}\Inventera Server"; Filename: "{app}\{#MyAppExeName}"; WorkingDir: "{app}"; IconFilename: "{app}\{#MyAppExeName}"

[Run]
Filename: "{sys}\netsh.exe"; Parameters: "advfirewall firewall delete rule name=""Inventera Web"""; Flags: runhidden waituntilterminated
Filename: "{sys}\netsh.exe"; Parameters: "advfirewall firewall add rule name=""Inventera Web"" dir=in action=allow protocol=TCP localport={code:GetApplicationPort}"; Flags: runhidden waituntilterminated
Filename: "{app}\{#MyAppExeName}"; WorkingDir: "{app}"; Flags: nowait runhidden; StatusMsg: "Запуск сервера Inventera..."
Filename: "http://127.0.0.1:{code:GetApplicationPort}"; Description: "Открыть Inventera"; Flags: shellexec nowait postinstall skipifsilent

[UninstallRun]
Filename: "{sys}\taskkill.exe"; Parameters: "/F /IM ""{#MyAppExeName}"""; Flags: runhidden waituntilterminated; RunOnceId: "StopInventera"
Filename: "{sys}\netsh.exe"; Parameters: "advfirewall firewall delete rule name=""Inventera Web"""; Flags: runhidden waituntilterminated; RunOnceId: "RemoveInventeraFirewallRule"

[Code]
var
  ModePage: TInputOptionWizardPage;
  PostgreSqlInstallPage: TInputOptionWizardPage;
  AdminPage: TInputQueryWizardPage;
  PortsPage: TInputQueryWizardPage;
  DatabasePage: TInputQueryWizardPage;
  ExistingPsqlPage: TInputFileWizardPage;
  AutomaticAdminPassword: String;

function IsAutomaticMode: Boolean;
begin
  Result := ModePage.SelectedValueIndex = 0;
end;

function ShouldInstallPostgreSql: Boolean;
begin
  Result := IsAutomaticMode or (PostgreSqlInstallPage.SelectedValueIndex = 0);
end;

function GetPostgreSqlPort(Param: String): String;
begin
  Result := Trim(PortsPage.Values[0]);
end;

function GetApplicationPort(Param: String): String;
begin
  Result := Trim(PortsPage.Values[1]);
end;

function GetDatabaseName: String;
begin
  if IsAutomaticMode then
    Result := 'Inv_Web'
  else
    Result := Trim(DatabasePage.Values[0]);
end;

function GetDatabaseUser: String;
begin
  if IsAutomaticMode then
    Result := 'invwebuser'
  else
    Result := Trim(DatabasePage.Values[1]);
end;

function GetDatabasePassword: String;
begin
  if IsAutomaticMode then
    Result := 'invwebpassword'
  else
    Result := DatabasePage.Values[2];
end;

function GetAdminUser: String;
begin
  if IsAutomaticMode then
    Result := 'postgres'
  else
    Result := Trim(AdminPage.Values[0]);
end;

function GetAdminPassword: String;
begin
  if IsAutomaticMode then
    Result := AutomaticAdminPassword
  else
    Result := AdminPage.Values[1];
end;

function QuoteArgument(const Value: String): String;
begin
  Result := '"' + Value + '"';
end;

function GenerateAutomaticPassword: String;
const
  Characters = 'ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz23456789!@#_-';
var
  I: Integer;
begin
  Result := 'Iv!';
  for I := 1 to 29 do
    Result := Result + Characters[Random(Length(Characters)) + 1];
end;

function FindExistingPsql: String;
var
  Candidate: String;
begin
  Result := '';
  Candidate := ExpandConstant('{autopf}\PostgreSQL\18\bin\psql.exe');
  if FileExists(Candidate) then begin Result := Candidate; Exit; end;
  Candidate := ExpandConstant('{autopf}\PostgreSQL\17\bin\psql.exe');
  if FileExists(Candidate) then begin Result := Candidate; Exit; end;
  Candidate := ExpandConstant('{autopf}\PostgreSQL\16\bin\psql.exe');
  if FileExists(Candidate) then begin Result := Candidate; Exit; end;
  Candidate := ExpandConstant('{autopf}\PostgreSQL\15\bin\psql.exe');
  if FileExists(Candidate) then begin Result := Candidate; Exit; end;
  Candidate := ExpandConstant('{autopf}\PostgreSQL\14\bin\psql.exe');
  if FileExists(Candidate) then begin Result := Candidate; Exit; end;
  Candidate := ExpandConstant('{autopf}\PostgreSQL\13\bin\psql.exe');
  if FileExists(Candidate) then begin Result := Candidate; Exit; end;
end;

function GetPsqlPath: String;
begin
  if ShouldInstallPostgreSql then
    Result := ExpandConstant('{autopf}\PostgreSQL\{#PostgreSqlMajor}\bin\psql.exe')
  else
    Result := Trim(ExistingPsqlPage.Values[0]);
end;

function IsValidPort(const Value: String; var PortNumber: Integer): Boolean;
begin
  Result := TryStrToInt(Trim(Value), PortNumber) and
    (PortNumber >= 1) and (PortNumber <= 65535);
end;

function IsValidIdentifier(const Value: String): Boolean;
var
  I: Integer;
  AllowedFirst: String;
  AllowedRest: String;
begin
  Result := False;
  if Value = '' then
    Exit;

  AllowedFirst := 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_';
  AllowedRest := AllowedFirst + '0123456789';
  if Pos(Value[1], AllowedFirst) = 0 then
    Exit;

  for I := 2 to Length(Value) do
    if Pos(Value[I], AllowedRest) = 0 then
      Exit;

  Result := True;
end;

function IsSafePassword(const Value: String): Boolean;
begin
  Result := (Value <> '') and
    (Pos('"', Value) = 0) and
    (Pos(#13, Value) = 0) and
    (Pos(#10, Value) = 0);
end;

function IsTcpPortAvailable(PortNumber: Integer): Boolean;
var
  PowerShellPath: String;
  Parameters: String;
  ExitCode: Integer;
begin
  PowerShellPath := ExpandConstant('{sys}\WindowsPowerShell\v1.0\powershell.exe');
  Parameters :=
    '-NoProfile -NonInteractive -ExecutionPolicy Bypass -Command ' +
    '"$listener = [System.Net.Sockets.TcpListener]::new([System.Net.IPAddress]::Loopback, ' +
    IntToStr(PortNumber) +
    '); try { $listener.Start(); $listener.Stop(); exit 0 } catch { exit 1 }"';

  Result := Exec(
    PowerShellPath,
    Parameters,
    '',
    SW_HIDE,
    ewWaitUntilTerminated,
    ExitCode
  ) and (ExitCode = 0);
end;

procedure InitializeWizard;
begin
  AutomaticAdminPassword := GenerateAutomaticPassword;

  ModePage := CreateInputOptionPage(
    wpWelcome,
    'Режим установки',
    'Выберите способ настройки Inventera',
    'Автоматический режим использует готовые параметры базы. Ручной режим позволяет изменить их.',
    True,
    False
  );
  ModePage.Add('Автоматический');
  ModePage.Add('Ручной');
  ModePage.SelectedValueIndex := 0;

  PostgreSqlInstallPage := CreateInputOptionPage(
    ModePage.ID,
    'Установка PostgreSQL',
    'Нужно ли установить PostgreSQL?',
    'Выберите «Нет», только если PostgreSQL уже установлен и доступен на этом компьютере.',
    True,
    False
  );
  PostgreSqlInstallPage.Add('Да, установить PostgreSQL из комплекта Inventera');
  PostgreSqlInstallPage.Add('Нет, использовать существующий PostgreSQL');
  PostgreSqlInstallPage.SelectedValueIndex := 0;

  AdminPage := CreateInputQueryPage(
    PostgreSqlInstallPage.ID,
    'Администратор PostgreSQL',
    'Укажите учётную запись администратора',
    'Эта учётная запись нужна только для создания базы и пользователя Inventera.'
  );
  AdminPage.Add('Логин администратора PostgreSQL:', False);
  AdminPage.Add('Пароль администратора PostgreSQL:', True);
  AdminPage.Values[0] := 'postgres';

  PortsPage := CreateInputQueryPage(
    AdminPage.ID,
    'Сетевые порты',
    'Укажите порты PostgreSQL и Inventera',
    'PostgreSQL и веб-приложение используют разные порты. Установщик проверит, что нужные порты свободны.'
  );
  PortsPage.Add('Порт PostgreSQL:', False);
  PortsPage.Add('Порт веб-приложения Inventera:', False);
  PortsPage.Values[0] := '5432';
  PortsPage.Values[1] := '5050';

  DatabasePage := CreateInputQueryPage(
    PortsPage.ID,
    'База данных Inventera',
    'Укажите имя базы и учётную запись приложения',
    'Предлагаемые значения уже заполнены и могут быть изменены.'
  );
  DatabasePage.Add('Имя базы данных:', False);
  DatabasePage.Add('Логин пользователя базы:', False);
  DatabasePage.Add('Пароль пользователя базы:', True);
  DatabasePage.Values[0] := 'Inv_Web';
  DatabasePage.Values[1] := 'invwebuser';
  DatabasePage.Values[2] := 'invwebpassword';

  ExistingPsqlPage := CreateInputFilePage(
    DatabasePage.ID,
    'Расположение PostgreSQL',
    'Укажите psql.exe существующей установки',
    'Файл psql.exe обычно находится в папке C:\Program Files\PostgreSQL\<версия>\bin.'
  );
  ExistingPsqlPage.Add('Путь к psql.exe:', 'Исполняемые файлы|*.exe|Все файлы|*.*', '.exe');
  ExistingPsqlPage.Values[0] := FindExistingPsql;
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  Result := False;

  if IsAutomaticMode and
     ((PageID = PostgreSqlInstallPage.ID) or
      (PageID = AdminPage.ID) or
      (PageID = DatabasePage.ID) or
      (PageID = ExistingPsqlPage.ID)) then
  begin
    Result := True;
    Exit;
  end;

  if (not IsAutomaticMode) and
     (PageID = ExistingPsqlPage.ID) and
     ShouldInstallPostgreSql then
  begin
    Result := True;
  end;
end;

function NextButtonClick(CurPageID: Integer): Boolean;
var
  PostgreSqlPort: Integer;
  ApplicationPort: Integer;
begin
  Result := False;

  if CurPageID = AdminPage.ID then
  begin
    if not IsValidIdentifier(Trim(AdminPage.Values[0])) then
    begin
      MsgBox('Введите корректный логин администратора PostgreSQL.', mbError, MB_OK);
      Exit;
    end;
    if not IsSafePassword(AdminPage.Values[1]) then
    begin
      MsgBox('Введите пароль администратора. Двойные кавычки и переносы строк недопустимы.', mbError, MB_OK);
      Exit;
    end;
  end;

  if CurPageID = PortsPage.ID then
  begin
    if not IsValidPort(PortsPage.Values[0], PostgreSqlPort) then
    begin
      MsgBox('Порт PostgreSQL должен быть числом от 1 до 65535.', mbError, MB_OK);
      Exit;
    end;
    if not IsValidPort(PortsPage.Values[1], ApplicationPort) then
    begin
      MsgBox('Порт Inventera должен быть числом от 1 до 65535.', mbError, MB_OK);
      Exit;
    end;
    if PostgreSqlPort = ApplicationPort then
    begin
      MsgBox('PostgreSQL и Inventera не могут использовать один и тот же порт.', mbError, MB_OK);
      Exit;
    end;
    if ShouldInstallPostgreSql and (not IsTcpPortAvailable(PostgreSqlPort)) then
    begin
      MsgBox(
        'Порт PostgreSQL ' + IntToStr(PostgreSqlPort) + ' уже занят. Укажите другой порт.',
        mbError,
        MB_OK
      );
      Exit;
    end;
    if not IsTcpPortAvailable(ApplicationPort) then
    begin
      MsgBox(
        'Порт Inventera ' + IntToStr(ApplicationPort) + ' уже занят. Укажите другой порт.',
        mbError,
        MB_OK
      );
      Exit;
    end;
  end;

  if CurPageID = DatabasePage.ID then
  begin
    if not IsValidIdentifier(Trim(DatabasePage.Values[0])) then
    begin
      MsgBox('Имя базы может содержать только латинские буквы, цифры и знак подчёркивания.', mbError, MB_OK);
      Exit;
    end;
    if not IsValidIdentifier(Trim(DatabasePage.Values[1])) then
    begin
      MsgBox('Логин базы может содержать только латинские буквы, цифры и знак подчёркивания.', mbError, MB_OK);
      Exit;
    end;
    if not IsSafePassword(DatabasePage.Values[2]) then
    begin
      MsgBox('Введите пароль базы. Двойные кавычки и переносы строк недопустимы.', mbError, MB_OK);
      Exit;
    end;
  end;

  if CurPageID = ExistingPsqlPage.ID then
  begin
    if not FileExists(Trim(ExistingPsqlPage.Values[0])) then
    begin
      MsgBox('Укажите существующий файл psql.exe.', mbError, MB_OK);
      Exit;
    end;
  end;

  Result := True;
end;

function PostgreSqlInstallParameters: String;
var
  Prefix: String;
begin
  Prefix := ExpandConstant('{autopf}\PostgreSQL\{#PostgreSqlMajor}');
  Result :=
    '--mode unattended --unattendedmodeui minimal ' +
    '--enable-components server,commandlinetools ' +
    '--prefix ' + QuoteArgument(Prefix) + ' ' +
    '--datadir ' + QuoteArgument(Prefix + '\data') + ' ' +
    '--serverport ' + GetPostgreSqlPort('') + ' ' +
    '--servicename InventeraPostgreSQL{#PostgreSqlMajor} ' +
    '--superaccount ' + QuoteArgument(GetAdminUser) + ' ' +
    '--superpassword ' + QuoteArgument(GetAdminPassword) + ' ' +
    '--servicepassword ' + QuoteArgument(GetAdminPassword) + ' ' +
    '--create_shortcuts 0';
end;

function DatabaseInitializationParameters: String;
begin
  Result :=
    '-NoProfile -NonInteractive -ExecutionPolicy Bypass -File ' +
    QuoteArgument(ExpandConstant('{tmp}\initialize_inventera_database.ps1')) + ' ' +
    '-PsqlPath ' + QuoteArgument(GetPsqlPath) + ' ' +
    '-AdminUser ' + QuoteArgument(GetAdminUser) + ' ' +
    '-AdminPassword ' + QuoteArgument(GetAdminPassword) + ' ' +
    '-PostgreSqlPort ' + GetPostgreSqlPort('') + ' ' +
    '-DatabaseName ' + QuoteArgument(GetDatabaseName) + ' ' +
    '-DatabaseUser ' + QuoteArgument(GetDatabaseUser) + ' ' +
    '-DatabasePassword ' + QuoteArgument(GetDatabasePassword) + ' ' +
    '-ApplicationPort ' + GetApplicationPort('') + ' ' +
    '-ConfigPath ' + QuoteArgument(ExpandConstant('{commonappdata}\Inventera\config.json'));
end;

function PrepareToInstall(var NeedsRestart: Boolean): String;
var
  ExitCode: Integer;
  IgnoreExitCode: Integer;
  Success: Boolean;
  PowerShellPath: String;
  PostgreSqlPort: Integer;
  ApplicationPort: Integer;
begin
  Result := '';
  NeedsRestart := False;

  Exec(
    ExpandConstant('{sys}\taskkill.exe'),
    '/F /IM "{#MyAppExeName}"',
    '',
    SW_HIDE,
    ewWaitUntilTerminated,
    IgnoreExitCode
  );

  if not IsValidPort(GetPostgreSqlPort(''), PostgreSqlPort) or
     not IsValidPort(GetApplicationPort(''), ApplicationPort) then
  begin
    Result := 'Указаны некорректные сетевые порты.';
    Exit;
  end;

  if ShouldInstallPostgreSql and (not IsTcpPortAvailable(PostgreSqlPort)) then
  begin
    Result := 'Порт PostgreSQL ' + IntToStr(PostgreSqlPort) + ' уже занят.';
    Exit;
  end;

  if not IsTcpPortAvailable(ApplicationPort) then
  begin
    Result := 'Порт Inventera ' + IntToStr(ApplicationPort) + ' уже занят.';
    Exit;
  end;

  if ShouldInstallPostgreSql then
  begin
    WizardForm.PreparingLabel.Caption :=
      'Установка PostgreSQL. Это может занять несколько минут, пожалуйста, подождите...';
    ExtractTemporaryFile(ExtractFileName(ExpandConstant('{#PostgreSqlInstaller}')));
    Success := Exec(
      ExpandConstant('{tmp}\postgesql.exe'),
      PostgreSqlInstallParameters,
      '',
      SW_SHOW,
      ewWaitUntilTerminated,
      ExitCode
    );
    if (not Success) or (ExitCode <> 0) then
    begin
      Result := 'Не удалось установить PostgreSQL. Код ошибки: ' + IntToStr(ExitCode);
      Exit;
    end;
  end;

  WizardForm.PreparingLabel.Caption :=
    'Создание базы данных и сохранение настроек Inventera...';
  ExtractTemporaryFile('initialize_inventera_database.ps1');
  PowerShellPath := ExpandConstant('{sys}\WindowsPowerShell\v1.0\powershell.exe');
  Success := Exec(
    PowerShellPath,
    DatabaseInitializationParameters,
    '',
    SW_HIDE,
    ewWaitUntilTerminated,
    ExitCode
  );
  if (not Success) or (ExitCode <> 0) then
  begin
    Result :=
      'Не удалось создать базу данных или сохранить настройки Inventera. Код ошибки: ' +
      IntToStr(ExitCode);
    Exit;
  end;
end;