linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Report serverport number after loading configs.

Browse Source 
r2220 | ffr | 2007-11-05 13:09:06 +1100 (Mon, 05 Nov 2007) | 2 lines
This commit is contained in:
Ferdi Franceschini
2007-11-05 13:09:06 +11:00
committed by Douglas Clowes
parent 9c1a9a37ae
commit 27db513c0e
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
site_ansto/instrument/server_config.tcl
View File

@@ -1,7 +1,7 @@
# SICS common configuration
# $Revision: 1.31 $
# $Date: 2007-10-31 04:54:49 $
# $Revision: 1.32 $
# $Date: 2007-11-05 02:09:06 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by $Author: ffr $
@@ -57,7 +57,7 @@ sics_release [lindex $tmpstr [expr [llength $tmpstr] - 1]]
sics_release lock
::utility::mkVar sics_revision_num Text internal
set tmpstr [string map {"$" ""} {$Revision: 1.31 $}]
set tmpstr [string map {"$" ""} {$Revision: 1.32 $}]
sics_revision_num [lindex $tmpstr [expr [llength $tmpstr] - 1]]
sics_revision_num lock
@@ -118,4 +118,5 @@ proc server_set_sobj_attributes {} {
::histogram_memory::set_sobj_attributes
## TODO move the following to the new ansto gumxml.tcl
sicslist setatt getgumtreexml privilege internal
clientput "serverport [get_portnum $::serverport]"
}