Use the default system Tcl.

diff --git a/asynch.tcl b/asynch.tcl
index a32dda4..61c61b3 100755 (executable)
--- 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 (executable)
--- 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 (file)
--- 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 (executable)
--- 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