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)
eggheads · Jul 29, 2024 · 24a0849 · 24a0849
1 parent 4b640f2
commit 24a0849
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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