From: Sergey Matveev <stargrave@stargrave.org>
Date: Tue, 23 Aug 2022 11:53:22 +0000 (+0300)
Subject: No shell, pure Tcl
X-Git-Url: http://www.git.stargrave.org/?p=zdns.git;a=commitdiff_plain;h=b8e82814adb0361416acc6d89b7c17b08cf4cabe

No shell, pure Tcl
---

diff --git a/default.zone.do b/default.zone.do
old mode 100644
new mode 100755
index 56501a9..0fb72df
--- a/default.zone.do
+++ b/default.zone.do
@@ -1,6 +1,6 @@
-redo-ifchange rc.tcl $2.tcl
-PATH="$HOME/work/zeasypki:$PATH" tclsh8.6 <<EOF
-set DOMAIN $2
+#!/usr/bin/env tclsh
+set env(PATH) "$env(HOME)/work/zeasypki:$env(PATH)"
+set DOMAIN [lindex $argv 1]
+exec redo-ifchange rc.tcl $DOMAIN.tcl
 source rc.tcl
-source $2.tcl
-EOF
+source $DOMAIN.tcl