No shell, pure Tcl

[zdns.git] / default.zone.do

diff --git a/default.zone.do b/default.zone.do
old mode 100644 (file)
new mode 100755 (executable)
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