From 24a0849136f0c5dfc72dddd4c55a4119162efc10 Mon Sep 17 00:00:00 2001
From: TehPeGaSuS <25697531+TehPeGaSuS@users.noreply.github.com>
Date: Mon, 29 Jul 2024 19:09:51 +0200
Subject: [PATCH] Make autobotchk Tcl9 compatible

Found by: DasBrain
Patch by: TehPeGaSuS

TCL 9 removes the  `~` expansion ability (https://core.tcl-lang.org/tips/doc/trunk/tip/602.md)
---
 scripts/autobotchk | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scripts/autobotchk b/scripts/autobotchk
index f9f1e8b40..2b65dac42 100755
--- a/scripts/autobotchk
+++ b/scripts/autobotchk
@@ -276,8 +276,8 @@ if {$systemd} {
   exit
  }
  puts "Creating systemd directory..."
- catch {file mkdir ~/.config/systemd/user } res
- if {[catch {open ~/.config/systemd/user/${botnet-nick}.service w} fd]} {
+ catch {file mkdir "$::env(HOME)/.config/systemd/user" } res
+ if {[catch {open "$::env(HOME)/.config/systemd/user/${botnet-nick}.service" w} fd]} {
   puts "  *** ERROR: unable to open '${botnet-nick}.service' for writing"
   puts ""
   exit