<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<html>
  <head>
    <meta name="Author" content="dal - Capita Technologies">
    <TITLE>WebSpeed Broker Administration</TITLE>

    <script language="javascript">
      function populateWsBrokerName(jscWsBrokerName) {
        document.forms[0].wsbrokername.value = jscWsBrokerName;
        return true;
      }
    </script>
  </head>
<body>
<center>
<H2>WebSpeed Broker Administration</H2>
<SCRIPT LANGUAGE="Speedscript">
  define variable cWsBrokerName as character no-undo.
  define variable cWsNameServer as character no-undo.
  define variable cAgentsNumber as character no-undo.
  define variable cLine         as character no-undo.
  define variable cCommand      as character no-undo.
  define variable cAction       as character no-undo.
  define variable cButtonValue  as character no-undo.
  define variable lOutput       as logical   no-undo.

  ASSIGN
     cWsBrokerName = GET-VALUE ("wsbrokername")
     cWsNameServer = GET-VALUE ("wsnameserver")
     cAgentsNumber = GET-VALUE ("agentsnumber")
     cButtonValue  = GET-VALUE ("btnvalue").

  IF cWsBrokerName <> "" or cWsNameServer <> "" then
  CASE cButtonValue:
      WHEN "Broker Status" THEN ASSIGN cCommand = "wtbman -i " + cWsBrokerName + " -query".
      WHEN "Add Agents"    THEN ASSIGN cCommand = "wtbman -i " + cWsBrokerName + " -addagents " + cAgentsNumber.
      WHEN "Trim Agents"   THEN ASSIGN cCommand = "wtbman -i " + cWsBrokerName + " -trimagents " + cAgentsNumber.
      WHEN "Start Broker"  THEN ASSIGN cCommand = "wtbman -i " + cWsBrokerName + " -start".
      WHEN "Stop Broker"   THEN ASSIGN cCommand = "wtbman -i " + cWsBrokerName + " -stop".
      WHEN "Name Server Status" THEN ASSIGN cCommand = "nsman -i "  + cWsNameServer + " -query".
  END. /* CASE cButtonValue */

  if cCommand <> "" and cWsBrokerName <> "" and
    not ( cButtonValue matches "*Name Server*" ) then
  do:
    input through value(cCommand).
    REPEAT:
      import unformatted cLine.
      if cLine matches "*(8288)*" then lOutput = yes.
      if lOutput then {&OUT} cLine "<br>".
    END.

  end.
</SCRIPT>
<form method="POST" name="BrokerAdm" action="`SelfURL`">

  WebSpeed Broker Name: <input type="text" name="wsbrokername" value="`cWsBrokerName`">
  <br>
  Number of Agents to add/trim: <input type="text" name="agentsnumber" value="1" size=1 maxlength=1>
  <br>
  <br>
  <input type="submit" name="btnvalue" value="Broker Status">
  <input type="submit" name="btnvalue" value="Add Agents">
  <input type="submit" name="btnvalue" value="Trim Agents">
  <input type="submit" name="btnvalue" value="Start Broker">
  <input type="submit" name="btnvalue" value="Stop Broker">
  <br>
  <hr>
  <br>
  <H2>Name Server Administration</H2>
<SCRIPT LANGUAGE="Speedscript">
    if cCommand <> "" and cWsNameServer <> "" and cButtonValue matches "*Name Server*" then do:
      {&OUT} "Available WebSpeed Brokers:<br>" skip.
      input through value(cCommand).
      REPEAT:
        import unformatted cLine.
        IF cLine begins "WS." THEN
        {&OUT} "<a href=""" cAction "?wsbrokername=" substring(cLine,4) "&btnvalue=Broker%20Status" """ onClick=""populateWsBrokerName('" substring(cLine,4) "');"">" substring(cLine,4) "</a><br>" skip.
      END.
    end.
</SCRIPT>
  Name Server : <input type="text" name="wsnameserver" value=`if cWsNameServer = "" then "NS1" else cWsNameServer`>
  <br>
  <br>
  <input type="submit" name="btnvalue" value="Name Server Status">
  <input type="submit" name="btnvalue" value="Start Name Server">
  <input type="submit" name="btnvalue" value="Stop Name Server">
</form>

</center>
</body>
</html>