v0.1 + Initial Release

Author: AKotov-dev

naivegui/backup/naivegui.lps

@@ -43,7 +43,7 @@
         <WindowIndex Value="-1"/>
         <TopLine Value="-1"/>
         <CursorPos X="-1" Y="-1"/>
-        <UsageCount Value="34"/>
+        <UsageCount Value="35"/>
       </Unit>
       <Unit>
         <Filename Value="unit1.pas"/>
@@ -53,9 +53,8 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
         <IsVisibleTab Value="True"/>
-        <TopLine Value="330"/>
-        <CursorPos X="38" Y="332"/>
-        <UsageCount Value="34"/>
+        <CursorPos X="75" Y="9"/>
+        <UsageCount Value="35"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit>
@@ -64,40 +63,24 @@
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
         <CursorPos X="17"/>
-        <UsageCount Value="34"/>
+        <UsageCount Value="35"/>
       </Unit>
       <Unit>
         <Filename Value="service_state_trd.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
         <CursorPos X="25"/>
-        <UsageCount Value="32"/>
+        <UsageCount Value="33"/>
       </Unit>
       <Unit>
         <Filename Value="JsonArrayHelper.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
         <CursorPos X="23"/>
-        <UsageCount Value="32"/>
+        <UsageCount Value="33"/>
       </Unit>
     </Units>
     <JumpHistory HistoryIndex="29">
-      <Position>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="333" Column="17" TopLine="322"/>
-      </Position>
-      <Position>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="277" Column="7" TopLine="262"/>
-      </Position>
-      <Position>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="278" Column="7" TopLine="263"/>
-      </Position>
-      <Position>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="279" Column="7" TopLine="264"/>
-      </Position>
       <Position>
         <Filename Value="unit1.pas"/>
         <Caret Line="278" Column="7" TopLine="263"/>
@@ -202,6 +185,22 @@
         <Filename Value="unit1.pas"/>
         <Caret Line="342" Column="10" TopLine="335"/>
       </Position>
+      <Position>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="58" Column="15" TopLine="191"/>
+      </Position>
+      <Position>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="59" Column="15" TopLine="59"/>
+      </Position>
+      <Position>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="411" Column="67" TopLine="388"/>
+      </Position>
+      <Position>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="9" Column="67"/>
+      </Position>
     </JumpHistory>
     <RunParams>
       <FormatVersion Value="2"/>

naivegui/backup/unit1.lfm

@@ -687,8 +687,8 @@ object MainForm: TMainForm
     Height = 17
     Hint = 'https://www.speedtest.net'
     Top = 179
-    Width = 83
-    Caption = 'Speed ​​check...'
+    Width = 174
+    Caption = 'Checking connection speed...'
     Font.Color = clBlue
     Font.Style = [fsUnderline]
     ParentFont = False
@@ -703,4 +703,10 @@ object MainForm: TMainForm
     Left = 73
     Top = 240
   end
+  object SaveDialog1: TSaveDialog
+    Filter = 'Archive (*.tar.gz)|*.tar.gz'
+    Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
+    Left = 192
+    Top = 240
+  end
 end

naivegui/backup/unit1.pas

@@ -6,7 +6,7 @@ interface
 
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Buttons,
-  ExtCtrls, DefaultTranslator, IniPropStorage, LCLIntf, Process;
+  ExtCtrls, DefaultTranslator, IniPropStorage, LCLIntf, StrUtils, FileUtil, Process;
 
 type
 
@@ -21,6 +21,7 @@   TMainForm = class(TForm)
     BypassBox: TComboBox;
     DomainEdit: TEdit;
     PassBtn: TSpeedButton;
+    SaveDialog1: TSaveDialog;
     SPortEdit: TEdit;
     HPortEdit: TEdit;
     Label11: TLabel;
@@ -55,6 +56,7 @@   TMainForm = class(TForm)
     procedure CreateClientConfig;
     procedure CreateServerConfig;
     procedure CreateSWProxy;
+    procedure StartProcess(command: string);
 
   private
 
@@ -73,6 +75,22 @@ implementation
 
   { TMainForm }
 
+//Общая процедура запуска команд (асинхронная)
+procedure TMainForm.StartProcess(command: string);
+var
+  ExProcess: TProcess;
+begin
+  ExProcess := TProcess.Create(nil);
+  try
+    ExProcess.Executable := '/bin/bash';
+    ExProcess.Parameters.Add('-c');
+    ExProcess.Parameters.Add(command);
+    ExProcess.Options := ExProcess.Options + [poWaitOnExit];
+    ExProcess.Execute;
+  finally
+    ExProcess.Free;
+  end;
+end;
 
 //Create ~/config/naivegui/swproxy.sh
 procedure TMainForm.CreateSWProxy;
@@ -362,8 +380,9 @@ procedure TMainForm.Label2MouseLeave(Sender: TObject);
 procedure TMainForm.PassBtnClick(Sender: TObject);
 begin
   if PasswordEdit.PasswordChar = Chr(0) then
-  PasswordEdit.PasswordChar:=#1 else
-   PasswordEdit.PasswordChar:= Chr(0);
+    PasswordEdit.PasswordChar := #1
+  else
+    PasswordEdit.PasswordChar := Chr(0);
 end;
 
 //Создаём конфиги Клиента и Сервера
@@ -373,6 +392,25 @@ procedure TMainForm.SpeedButton3Click(Sender: TObject);
   CreateClientConfig;
   //Сервер
   CreateServerConfig;
+
+  //Выгружаем архив конфигураций Клиента и Сервера
+  if SaveDialog1.Execute then
+  begin
+    if not AnsiEndsText('.tar.gz', SaveDialog1.FileName) then
+    begin
+      if SameText(ExtractFileExt(SaveDialog1.FileName), '.gz') then
+        SaveDialog1.FileName := ChangeFileExt(SaveDialog1.FileName, '.tar.gz')
+      else
+        SaveDialog1.FileName := SaveDialog1.FileName + '.tar.gz';
+    end;
+
+    //Создаём архив и выгружаем
+    StartProcess(
+      'cd ~/.config/naivegui; chmod 644 Caddyfile; tar -zcf naivegui_config.tar.gz Caddyfile client.json');
+
+    CopyFile(GetUserDir + '.config/naivegui/naivegui_config.tar.gz',
+      SaveDialog1.FileName, [cffOverwriteFile]);
+  end;
 end;
 
 //Start + Enable

naivegui/lib/x86_64-linux/naivegui.or

@@ -703,4 +703,11 @@ object MainForm: TMainForm
     Left = 73
     Top = 240
   end
+  object SaveDialog1: TSaveDialog
+    FileName = 'naivegui_config.tar.gz'
+    Filter = 'Archive (*.tar.gz)|*.tar.gz'
+    Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
+    Left = 192
+    Top = 240
+  end
 end