Check-in [2b84c5685a]
Overview
Comment:changed default server port from 2048 to 8048
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 2b84c5685a5c5372ae44e34150e8e47f2e5129d3
User & Date: aborr on 2000-06-06 22:01:41
Other Links: manifest | tags
Context
2000-06-06
22:18
replaced missing brace check-in: 1a8718c774 user: aborr tags: trunk
22:01
changed default server port from 2048 to 8048 check-in: 2b84c5685a user: aborr tags: trunk
22:00
moved range of port numbrs in tests from 2xxx to 8xxx check-in: 2f600f7fdd user: aborr tags: trunk
Changes

Modified tests/remote.tcl from [89ceb816c3] to [822d07082f].

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
# This file contains Tcl code to implement a remote server that can be
# used during testing of Tcl socket code. This server is used by some
# of the tests in socket.test.
#
# Source this file in the remote server you are using to test Tcl against.
#
# Copyright (c) 1995-1996 Sun Microsystems, Inc.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# RCS: @(#) $Id: remote.tcl,v 1.3 2000/06/03 05:01:32 awb Exp $

# load tls package
package require tls

# Initialize message delimitor

# Initialize command array











|







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
# This file contains Tcl code to implement a remote server that can be
# used during testing of Tcl socket code. This server is used by some
# of the tests in socket.test.
#
# Source this file in the remote server you are using to test Tcl against.
#
# Copyright (c) 1995-1996 Sun Microsystems, Inc.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# RCS: @(#) $Id: remote.tcl,v 1.4 2000/06/06 22:01:41 aborr Exp $

# load tls package
package require tls

# Initialize message delimitor

# Initialize command array
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
		set serverPort [lindex $argv [expr $i + 1]]
	    }
	    break
	}
    }
}
if {![info exists serverPort]} {
    set serverPort 2048
}

if {![info exists serverAddress]} {
    if {[info exists env(serverAddress)]} {
	set serverAddress $env(serverAddress)
    }
}







|







120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
		set serverPort [lindex $argv [expr $i + 1]]
	    }
	    break
	}
    }
}
if {![info exists serverPort]} {
    set serverPort 8048
}

if {![info exists serverAddress]} {
    if {[info exists env(serverAddress)]} {
	set serverAddress $env(serverAddress)
    }
}