Changeset 462 for trunk/gui/scripts/nanovisviewer.tcl

Timestamp:

Jun 5, 2006 9:21:06 PM (15 years ago)

Author:

mmc

Message:

Fixed nanovis to take a series of server names as a comma-separated
list, and to try them one after another to make a connection. That
way, if one server is down, you can still reach the rest of the farm.

Added a customized bug handler that looks a little less frightening
than the standard Tcl dialog. Someday, this should log all errors
to a web service, but for now, it just encourages the user to do so.

File:

• trunk/gui/scripts/nanovisviewer.tcl (modified) (8 diffs)

trunk/gui/scripts/nanovisviewer.tcl

@@ -34 +34 @@
     itk_option define -plotoutline plotOutline PlotOutline ""
 
-    constructor {host port args} { # defined below }
+    constructor {hostlist args} { # defined below }
     destructor { # defined below }
 
@@ -43 +43 @@
     public method download {option}
 
-    public method connect {{host ""} {port ""}}
+    public method connect {{hostlist ""}}
     public method disconnect {}
     public method isconnected {}
@@ -71 +71 @@
     private variable _dispatcher "" ;# dispatcher for !events
 
-    private variable _nvhost ""    ;# host name for nanovis server
-    private variable _nvport ""    ;# port number for nanovis server
+    private variable _nvhosts ""   ;# list of hosts for nanovis server
     private variable _sid ""       ;# socket connection to nanovis server
     private variable _parser ""    ;# interpreter for incoming commands
@@ -98 +97 @@
 # CONSTRUCTOR
 # ----------------------------------------------------------------------
-itcl::body Rappture::NanovisViewer::constructor {nvhost nvport args} {
+itcl::body Rappture::NanovisViewer::constructor {hostlist args} {
     Rappture::dispatcher _dispatcher
     $_dispatcher register !legend
@@ -412 +411 @@
     eval itk_initialize $args
 
-    connect $nvhost $nvport
+    connect $hostlist
 }
 
@@ -590 +589 @@
 
 # ----------------------------------------------------------------------
-# USAGE: connect ?<host>? ?<port>?
+# USAGE: connect ?<host:port>,<host:port>...?
 #
 # Clients use this method to establish a connection to a new
@@ -596 +595 @@
 # Any existing connection is automatically closed.
 # ----------------------------------------------------------------------
-itcl::body Rappture::NanovisViewer::connect {{host ""} {port ""}} {
+itcl::body Rappture::NanovisViewer::connect {{hostlist ""}} {
     disconnect
 
-    if {"" != $host} { set _nvhost $host }
-    if {"" != $port} { set _nvport $port }
-
-    if {"" == $_nvhost || "" == $_nvport} {
+    if {"" != $hostlist} { set _nvhosts $hostlist }
+
+    if {"" == $_nvhosts} {
         return 0
     }
@@ -616 +614 @@
     # forward us to another.
     #
+    set try [split $_nvhosts ,]
+    foreach {hostname port} [split [lindex $try 0] :] break
+    set try [lrange $try 1 end]
+
     while {1} {
-        if {[catch {socket $_nvhost $_nvport} sid]} {
-            return 0
+        if {[catch {socket $hostname $port} sid]} {
+            if {[llength $try] == 0} {
+                return 0
+            }
+            foreach {hostname port} [split [lindex $try 0] :] break
+            set try [lrange $try 1 end]
+            continue
         }
         fconfigure $sid -translation binary -encoding binary