From 13e13ed993556eb47ea56c9959667ea1d65af5ac Mon Sep 17 00:00:00 2001
From: Renat Suleymanov <mail@renat.su>
Date: Sat, 29 Oct 2022 14:42:09 +0400
Subject: [PATCH] Fix: Trailing delimiter for script run

https://github.com/Al-Muhandis/ShellRemoteBot/issues/1
---
 configuration.pas          | 2 +-
 deb.staging/DEBIAN/control | 2 +-
 tgshd.lpi                  | 1 +
 3 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/configuration.pas b/configuration.pas
index 97bf9c2..2ffad8e 100644
--- a/configuration.pas
+++ b/configuration.pas
@@ -100,7 +100,7 @@ function TConfig.GetHTTPProxyUser: String;
 
 function TConfig.GetScriptsDirectory: String;
 begin
-  Result:=FIni.ReadString('Scripts', 'Directory', CnfDir);
+  Result:=IncludeTrailingPathDelimiter(FIni.ReadString('Scripts', 'Directory', CnfDir));
 end;
 
 function TConfig.GetServiceUser: Int64;
diff --git a/deb.staging/DEBIAN/control b/deb.staging/DEBIAN/control
index 1be2dff..aef2d98 100644
--- a/deb.staging/DEBIAN/control
+++ b/deb.staging/DEBIAN/control
@@ -1,6 +1,6 @@
 Package: tgshd
 Priority: optional
-Version: 1.2.1.1-1
+Version: 1.2.1.4-1
 Maintainer: Renat Suleymanov <mail@Renat.Su>
 Architecture: amd64
 Section: utils
diff --git a/tgshd.lpi b/tgshd.lpi
index cb51a12..a549e1f 100644
--- a/tgshd.lpi
+++ b/tgshd.lpi
@@ -21,6 +21,7 @@
       <MajorVersionNr Value="1"/>
       <MinorVersionNr Value="2"/>
       <RevisionNr Value="1"/>
+      <BuildNr Value="4"/>
     </VersionInfo>
     <BuildModes Count="4">
       <Item1 Name="Default" Default="True"/>