fileeval $cfPath(source)/sct_reactor_status.tcl

if {[SplitReply [opal_simulation]]=="false"} {
  MakeAsyncProtocol std
  std sendterminator \r\n\r\n
  std replyterminator 0x03
  MakeAsyncQueue aqreactor std portal.nbi.ansto.gov.au 80
  aqreactor timeout 2000
}
add_reactor_status source aqadapter aqreactor

namespace eval ::source {
  proc isc_initialize {} {
  }
}