From bda409da049d5add1695584b02fa330f244ecdaf Mon Sep 17 00:00:00 2001
From: Ferdi Franceschini <ffr@ansto.gov.au>
Date: Tue, 23 Apr 2013 10:25:09 +1000
Subject: [PATCH] Fix host names and port numbers.

---
 site_ansto/instrument/pelican/hostport_config.tcl     | 11 ++++++-----
 .../instrument/pelican/hostport_config_test.tcl       |  9 +++++----
 2 files changed, 11 insertions(+), 9 deletions(-)

diff --git a/site_ansto/instrument/pelican/hostport_config.tcl b/site_ansto/instrument/pelican/hostport_config.tcl
index 52d700e0..76afb453 100644
--- a/site_ansto/instrument/pelican/hostport_config.tcl
+++ b/site_ansto/instrument/pelican/hostport_config.tcl
@@ -1,9 +1,10 @@
 # MOTOR HOST AND PORT
 foreach {mc host port} {
-  MC1 mc1-platypus pmc1-platypus
-  MC2 mc2-platypus pmc2-platypus
-  MC3 mc3-platypus pmc3-platypus
-  MC4 mc4-platypus pmc4-platypus
+  MC1 mc1-pelican pmc1-pelican
+  MC2 mc2-pelican pmc2-pelican
+  MC3 mc3-pelican pmc3-pelican
+  MC4 mc4-pelican pmc4-pelican
+  MC6 mc6-pelican pmc6-pelican
 } {
   dict set MOTOR_HOSTPORT $mc HOST $host
   dict set MOTOR_HOSTPORT $mc PORT $port
@@ -21,7 +22,7 @@ foreach {bm host port} {
 
 # HISTOGRAM SERVER HOST AND PORT
 foreach {key host port} {
-  HMM das1-platypus.nbi.ansto.gov.au 8080
+  HMM das1-pelican.nbi.ansto.gov.au 8080
 } {
   dict set HISTMEM_HOSTPORT $key HOST $host
   dict set HISTMEM_HOSTPORT $key PORT $port
diff --git a/site_ansto/instrument/pelican/hostport_config_test.tcl b/site_ansto/instrument/pelican/hostport_config_test.tcl
index 18afbe6d..ca109363 100644
--- a/site_ansto/instrument/pelican/hostport_config_test.tcl
+++ b/site_ansto/instrument/pelican/hostport_config_test.tcl
@@ -2,10 +2,11 @@
 
 # TEST MOTOR HOST AND PORT
 foreach {key host port} {
-  MC1 localhost 62530
-  MC2 localhost 62531
-  MC3 localhost 62532
-  MC4 localhost 62533
+  MC1 localhost 62630
+  MC2 localhost 62631
+  MC3 localhost 62632
+  MC4 localhost 62633
+  MC6 localhost 62634
 } {
   dict set MOTOR_HOSTPORT $key HOST $host
   dict set MOTOR_HOSTPORT $key PORT $port