Use the default system Tcl.

diff --git a/asynch.tcl b/asynch.tcl
index a32dda4478a0de18e98e32d660b1c44e274b38c9..61c61b364cc9f57981cb94d032233c2b6b7b3af3 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 59d9e2ebba8b1840c9f35bc708915bc83752c3e8..4c572bac60ff1c2db2fdfc3eed978575ccbe1038 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 c8ab0c27f39a6ffb6f04a28744c32e74c185d55c..383c90adc3f91e6c91dcbb877e99a45cc426235d 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 3bdba2800dbd2fd88b402567766e31184a9f2646..b467e2c3424bac4c3b2935fd80c251cf1678ebc8 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