blob: d8605e75eba67c8448dc9e40841fd2fea29ac9d4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
--- samples/sp_who Fri Jun 2 02:35:54 2000
+++ samples/sp_who Mon Mar 29 18:10:59 2004
@@ -22,12 +22,4 @@
package require Sybtcl
-if {[file isfile sign_on.tcl]} {
- source sign_on.tcl
-} elseif {[file isfile [file join [file dirname [info script]] sign_on.tcl]]} {
- source [file join [file dirname [info script]] sign_on.tcl]
-} elseif {[file isfile [file join [file dirname [info nameofexecutable]] sign_on.tcl]]} {
- source [file join [file dirname [info nameofexecutable]] sign_on.tcl]
-}
-
global server interval now intervalid env secorsecs user password sybhandle
global opened WhoIsThere order_by_orders order_by order_by_stmnt order_by_text
|