function click_SEQ (Obj) {
    Obj.Widget.value = "SEQ";
    Obj.submit();
}
function click_ALLON (Obj) {
    Obj.Widget.value = "ALLON";
    Obj.submit();
}
function click_ALLOFF (Obj) {
    Obj.Widget.value = "ALLOFF";
    Obj.submit();
}

function click_RELAYON (Obj,vl) {
    Obj.Widget.value = "RELAYON" + " " + vl;
    Obj.submit();
}

function click_RELAYOFF (Obj,vl) {
    Obj.Widget.value = "RELAYOFF" + " " + vl;
    Obj.submit();
}

# variable started 0

if {![info exists started]} {variable started 0}

if {$started != 0} {

     variable JS ""
     variable LogFlag

     if {$LogFlag == 1} {InsertLog "Last Updated: [clock format [clock seconds] -format "%B %d, %Y %H:%M:%S"]"}

    do_click
}

if {$started == 0} {           ;#  first time load code and define local variables
    set started 1

    variable LogText ""
    variable LogFlag 0
    variable LogCount 0

    variable ShowLogFlag 0

    variable JS ""

    variable Port   /dev/ttyUSB0
    variable Baud 19200
    variable Data 8
    variable Parity n
    variable Stop 2

    variable Flow none

    variable channelId 0

    variable VERSION 0
    variable DC 0
    variable STATUS 0


    proc show_variables {} {
        variable LogFlag
        variable LogCount
        variable ShowLogFlag


         InsertLog "LogFlag=$LogFlag; LogCount=$LogCount; ShowLogFlag=$ShowLogFlag"
         InsertLog "DC=[DC]; Status=[Status]"
    }

proc do_connect {} {
   global env
   variable channelId
   variable Port
   variable Baud
   variable Data
   variable Parity
   variable Stop
   variable Flow

   if {$channelId != 0} {
       InsertLog "Already connected: Disconnect first"
       return
   }

       for {set p 0} {$p < 8} {incr p} {

          set Port /dev/ttyUSB$p

          if {$env(os) == "Linux" || $env(os) == "Linux64"} {
               set z [catch {exec sudo -n chmod 666 $Port} m]   ;# need rw access to serial port
               if {$z != 0} {InsertLog "failed to change access mode to I/O port\n$m"; continue}
          }

          set rc [catch {open $Port RDWR} m]
          if {$rc == 0} {set channelId $m; InsertLog "Using $Port"} else {InsertLog "$Port: $m"}

          if {$channelId != 0} {
             fconfigure $channelId -mode $Baud,$Parity,$Data,$Stop -handshake $Flow
             fconfigure $channelId -blocking no -buffering none -translation binary
             fileevent $channelId readable GetData

             set V [VERS]
             InsertLog "firmware version = $V"
             if {$V > 0} {break} else {do_disconnect}
         }
      }
}

proc do_disconnect {} {
   variable channelId
   variable Port

   if {$channelId == 0} {
#       InsertLog "Already disconnected"
   } else {
       set z [catch {close $channelId} m]
       set channelId 0
   }
}

proc SetOff {n} {
    variable channelId

   if {$channelId == 0} {do_connect}

   if {$channelId == 0} {InsertLog "Not connected"; return}

   switch $n {
      1  {puts $channelId "o"}
      2  {puts $channelId "p"}
      3  {puts $channelId "q"}
      4  {puts $channelId "r"}
      5  {puts $channelId "s"}
      6  {puts $channelId "t"}
      7  {puts $channelId "u"}
      8  {puts $channelId "v"}
      default {}
   }

   Status
}

proc SetOn {n} {
    variable channelId

   if {$channelId == 0} {do_connect}

   if {$channelId == 0} {InsertLog "Not connected"; return}

   switch $n {
      1  {puts $channelId "e"}
      2  {puts $channelId "f"}
      3  {puts $channelId "g"}
      4  {puts $channelId "h"}
      5  {puts $channelId "i"}
      6  {puts $channelId "j"}
      7  {puts $channelId "k"}
      8  {puts $channelId "l"}
      default {}
   }

   Status
}

proc SequenceOn {} {
    variable channelId

   if {$channelId == 0} {do_connect}

   if {$channelId == 0} {InsertLog "Not connected"; return}

   foreach chan { 1 2 3 4 5 6 7 8 } {
	SetOn $chan
	after 500
	}
}


proc AllOff {} {
    variable channelId

   if {$channelId == 0} {do_connect}

   if {$channelId == 0} {InsertLog "Not connected"; return}

   set z [catch {puts $channelId "n"} m]
   if {$z != 0} {return}

   Status
}

proc AllOn {} {
    variable channelId

   if {$channelId == 0} {do_connect}

   if {$channelId == 0} {InsertLog "Not connected"; return}

   set z [catch {puts $channelId "d"} m]
   if {$z != 0} {return}

   Status
}

proc DC {} {
    variable channelId
    variable DC

   if {$channelId == 0} {do_connect}

   if {$channelId == 0} {InsertLog "Not connected"; return}

   set z [catch {puts $channelId "\]"} m]
   if {$z != 0} {return}
after 200
   set DC [expr 0x[GetData]]
}

proc VERS {} {
    variable channelId
    variable VERSION

   if {$channelId == 0} {do_connect}

   if {$channelId == 0} {InsertLog "Not connected"; return}

   set z [catch {puts $channelId "Z"} m]
   if {$z != 0} {return}
after 200
   set VERSION [GetData]
}

proc Status {} {
    variable channelId
    variable STATUS

   if {$channelId == 0} {do_connect}

   if {$channelId == 0} {InsertLog "Not connected"; return}

   set z [catch {puts $channelId "["} m]
   if {$z != 0} {return}
after 500
   set z [catch {set STATUS [expr 0x[GetData]]} m]
}

proc GetData {args} {
    variable channelId

   if {$channelId == 0} {do_connect}

   if {$channelId == 0} {InsertLog "Not connected"; return 0}

    set data [read $channelId 132]
    if {[string length $data] == 0} {return 0}

    set line ""
    for {set i 0} {$i < [string length $data]} {incr i} {
        set c1 [string range $data $i $i]
        binary scan $c1 H2 c2
        append line "[set c2]"
    }

    return "$line"
}

   proc do_click {} {
       variable cgidata
       variable started
       variable LogFlag
       variable ShowLogFlag
       variable JS

       set cgidata [ncgi::nvlist]

       if {$LogFlag == 1} {InsertLog "cgidata= ([llength $cgidata]) $cgidata"}

       if {[llength $cgidata] == 0} then {return}

       if {[llength $cgidata] < 2} then {
           InsertLog "CGI data is too short: $cgidata"
       } else {
           if {[lindex $cgidata 0] != "Widget"} then {
               InsertLog "Invalid CGI data: $cgidata"
           } else {

               set w  [first  [lindex $cgidata 1]]
               set vl [second [lindex $cgidata 1]]

               switch -glob $w {

                   RESET    {catch {do_disconnect}; set started 0}
                   CLEAR    {EmptyLog}
                   ELOG     {PrintLog}
                   RELOAD   {}
                   VARIABLES {show_variables}

                   HIDE     {set ShowLogFlag 0}
                   SHOW     {set ShowLogFlag 1}
                   LOGON    {set LogFlag 1}
                   LOGOFF   {set LogFlag 0}

                   SEQ       {SequenceOn}
                   ALLON     {AllOn}
                   ALLOFF    {AllOff}
                   RELAYON   {SetOn $vl}
                   RELAYOFF  {SetOff $vl}

                   MainLog {}
                   undefined {}
                   default {InsertLog "unexpected CGI data: [lindex $w 0]: $cgidata"}
               }
           }
       }
       catch {Status}
    }

[Doc_Dynamic]

<!
[global env; set env(MIDASBASE) /MIDAS]
>

[global env; source [file join $env(MIDASBASE) TclHttpd Html settings.tml]]

<!
[global Httpd; upvar #0 Httpd[set Httpd(currentSocket)] data; set ClientIPAddress $data(ipaddr); set MyInfo $data(self)]
>

<html>
<head>

<title>Rly16 Service @ [global env; set env(ComputerName)]</title>

<script type="text/javascript" language="JavaScript" src="/js/Common.js"></script>
<script type="text/javascript" language="JavaScript" src="/js/FormChek.js"></script>
<script type="text/javascript" language="JavaScript" src="Rly16.js"></script>

</head>

<body>

<NOSCRIPT>
<hr>
<h2>
Your browser does not support JavaScript.

This service requires a JavaScript compatible browser.
</h2>
<hr>
</NOSCRIPT>

<p align=center>

<table cellpadding=0 cellspacing=0 border=0 width=100%>
<tr>
<td align=left>
<font size=4><b>Rly16 Control @ [set MyInfo]</b></font>
</td>
<td align=right>
<font size=4><b>client address is [set ClientIPAddress]</b></font>
</td>
<td align=right>
<input type=image src="/images/midas.gif" name=MIDAS title="MIDAS Home Page" onClick="click_MIDAS()">
<input type=image src="/images/tclp.gif" name=TCL title="Tcl/Tk Home Page" onClick="click_TCL()">
</td>

</tr>
</table>

</p>

<hr>

<!

[namespace eval Rly16  {global env; cd [file join $env(MIDASBASE) TclHttpd Html AIDA]}]

[namespace eval Rly16 {
       global env
       source [file join $env(MIDASBASE) TclHttpd tcl Common common.tcl]
       cd [file join $env(MIDASBASE) TclHttpd Html AIDA Rly16]
       source Rly16.tcl
}]
>


<form action=[ncgi::urlStub] name=Rly16 method=post>
<input type=hidden name=Widget value=Rly16>

<p align="center">

<table cellpadding=0 cellspacing=0 border=0 width=100%>
<tr>

<td width=33% align=left>
Port: [namespace eval Rly16 {set Port}]
</td>

<td width=33% align=left>
Version: [namespace eval Rly16 {VERS; set VERSION}]
</td>

<td width=33% align=left>
DC: [namespace eval Rly16 {DC; set vl [expr $DC/10.0]V}]
</td>

</tr>
</table>

</p>

<p align=center>

<table cellpadding=0 cellspacing=0 border=0 width=100%>
<tr>
[namespace eval Rly16 {
  set html "<td width=12% align=left>Switch ON</td>"
  set j 0
  for {set i 1} {$i <= 8} {incr i} {
      append html "<td width=11% align=left>"
      if {([expr $STATUS >> $j] & 1) == 0} {
      append html "<input type=button name=RON$i  value=\"Relay $i\" onClick=\"click_RELAYON(document.Rly16, $i)\">"
      }
      append html "</td>"
      incr j
  }
  set html
}]

</tr>
<tr>
[namespace eval Rly16 {
  set html "<td width=12% align=left>Switch OFF</td>"
  set j 0
  for {set i 1} {$i <= 8} {incr i} {
      append html "<td width=11% align=left>"
      if {([expr $STATUS >> $j] & 1) == 1} {
      append html "<input type=button name=ROFF$i  value=\"Relay $i\" onClick=\"click_RELAYOFF(document.Rly16, $i)\">"
      }
      append html "</td>"
      incr j
  }
  set html
}]

</tr>
</table>

</p>

<p align=center>

<input type=button name=SEQ  value="Sequence ALL On"  onClick="click_SEQ(document.Rly16)">
<input type=button name=ALLON  value="Switch ALL On"  onClick="click_ALLON(document.Rly16)">
<input type=button name=ALLOFF value="Switch ALL Off" onClick="click_ALLOFF(document.Rly16)">
</p>


[namespace eval Rly16 {
if {$ShowLogFlag == 1} then {
    set html ""
    append html "<p align=center>"
    append html "<textarea name=MainLog readonly=true wrap=soft rows=12 cols=80>"
    append html [set LogText]
    append html "</textarea>"
    append html "</p>"

   set html
}
}]


<p>

<input type=button name=CLEAR  value="Empty Log Window" onClick="click_clear(document.Rly16)" title="Empty the log window">
<input type=button name=ELOG   value="Send Log Window to ELog" onClick="click_elog(document.Rly16)" title="Sends the contents of the log window to your ELog">
<input type=button name=RELOAD value="Reload"           onClick="click_reload(document.Rly16)" title="Reload the page and cause the displayed hardware parameters to be refreshed">
<input type=button name=RESET  value="Reset"            onClick="click_reset(document.Rly16)" title="Cause the page code to be fully reloaded in the server">
<input type=button name=VARIABLES  value="Show Variables"  onClick="click_variables(document.Rly16)" title="Display selected internal variables in the log window">

[namespace eval Rly16 {
if {$ShowLogFlag == 1} then {
    set html "<input type=button name=HIDE  value=\"Hide Log Window\" onClick=\"click_hidelog(document.Rly16)\" title=\"Do not display the log window\">"
} else {
    set html "<input type=button name=SHOW  value=\"Show Log Window\" onClick=\"click_showlog(document.Rly16)\" title=\"Cause the log window to be displayed\">"
}
set html
}]

[namespace eval Rly16 {
if {$LogFlag == 1} then {
    set html "<input type=button name=LOGOFF  value=\"Disable Logging\" onClick=\"click_disablelog(document.Rly16)\">"
} else {
    set html "<input type=button name=LOGON  value=\"Enable Logging\" onClick=\"click_enablelog(document.Rly16)\">"
}
set html
}]

</p>

</form>

<p align=right>
Last Updated: [clock format [clock seconds] -format "%B %d, %Y %H:%M:%S"]
</p>

<hr>


[namespace eval Rly16 {
    if {$JS != ""} {
       append JS "\");"
       set html "<script>[set JS]</script>"
    }
}]