From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 25 Jun 2017 19:22:06 +0000 (+0100)
Subject: Use the default system Tcl.
X-Git-Url: https://git.distorted.org.uk/~mdw/ircbot/commitdiff_plain/df78d81f28510c951776e27561042103ac8bfdb6

Use the default system Tcl.
---

diff --git a/asynch.tcl b/asynch.tcl
index a32dda4..61c61b3 100755
--- a/asynch.tcl
+++ b/asynch.tcl
@@ -1,4 +1,4 @@
-#!/usr/bin/tclsh8.2
+#!/usr/bin/tclsh
 
 # This [sub]program is Copyright (C) 1997-1999 Ian Jackson
 #
diff --git a/blight-startup.tcl b/blight-startup.tcl
index 59d9e2e..4c572ba 100755
--- a/blight-startup.tcl
+++ b/blight-startup.tcl
@@ -1,4 +1,4 @@
-#!/usr/bin/tclsh8.4
+#!/usr/bin/tclsh
 package require Tclx
 if {[llength $argv] > 0} {
   set script [lindex $argv 0]
diff --git a/irc-identpass b/irc-identpass
index c8ab0c2..383c90a 100644
--- a/irc-identpass
+++ b/irc-identpass
@@ -1,5 +1,6 @@
+##   & range service-user 1000 9999
 if ( grep calling-user /var/lib/ircbot/bot-users
-   & range service-user 1000 9999
+   & grep service-user-shell /etc/shells
    )
 	execute sh -c "\
 		if ! test -f .userv/irc-pass-md5; then		\n\
diff --git a/spoutchan.tcl b/spoutchan.tcl
index 3bdba28..b467e2c 100755
--- a/spoutchan.tcl
+++ b/spoutchan.tcl
@@ -1,4 +1,4 @@
-#!/usr/bin/tclsh8.2
+#!/usr/bin/tclsh
 # usage:
 #   cd ../ircbot
 #   soemthing | ./spoutchan.tcl SERVER PORT NICK IDENT FULLNAME CHANNEL