16 lines
665 B
Plaintext
16 lines
665 B
Plaintext
|
--- 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
|