1
2
3
4
5
6
7
8
9
10
11
|
#
# Copyright (C) 1997-1999 Matt Newman <[email protected]>
#
# $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tests/Attic/tlsBlocking.tcl,v 1.1.1.1 2000/01/19 22:10:59 aborr Exp $
#
set dir [file dirname [info script]]
cd $dir
source tls.tcl
proc bgerror {msg} {tclLog "BG: $msg"}
|
|
|
|
1
2
3
4
5
6
7
8
9
10
11
|
#
# Copyright (C) 1997-2000 Matt Newman <[email protected]>
#
# $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tests/Attic/tlsBlocking.tcl,v 1.2 2000/01/20 01:56:26 aborr Exp $
#
set dir [file dirname [info script]]
cd $dir
source tls.tcl
proc bgerror {msg} {tclLog "BG: $msg"}
|