a623e2d6cf
your interpreter with connectivity to a Sybase server. Althghough it was written to work with Sybase's own client libraries (not available for FreeBSD), this port patches it enough to make it work with FreeTDS. WWW: http://sybtcl.sourceforge.net/
15 lines
665 B
Text
15 lines
665 B
Text
--- 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
|