#!/bin/tclsh
source session.tcl

puts "Content-Type: text/xml; charset=iso-8859-1"
puts ""
puts -nonewline "<?xml version='1.0' encoding='ISO-8859-1' ?><stateList>"

if {[info exists sid] && [check_session $sid]} {

  set ise_id 0
  set show_internal 0
  set show_remote 0
  catch {
    set input $env(QUERY_STRING)
    set pairs [split $input &]
    foreach pair $pairs {
      if {0 != [regexp "^ise_id=(.*)$" $pair dummy val]} {
        set ise_id $val
        continue
      }
      if {0 != [regexp "^show_internal=(.*)$" $pair dummy val]} {
        set show_internal $val
        continue
      }
      if {0 != [regexp "^show_remote=(.*)$" $pair dummy val]} {
        set show_remote $val
        continue
      }
    }
  }

  set comm "var ise_id=$ise_id;\n"
  append comm "var show_internal=$show_internal;\n"
  append comm "var show_remote=$show_remote;\n"

  if { $ise_id != 0 } then {

    append comm {
          object obj = dom.GetObject(ise_id);
          if(obj.TypeName() == "HSSDP")
          {
              object oDP = obj;
              string dp = oDP.Name().StrValueByIndex(".", 2);

              Write("<datapoint");
              Write(" name='");WriteXML(oDP.Name());Write("'");
              Write(" type='");WriteXML(oDP.Name().StrValueByIndex(".", 2));Write("'");
              Write(" ise_id='");WriteXML(ise_id);Write("'");
              ! state fragt den aktuellen status des sensors/aktors ab, dauert lange
              if (show_internal == 1) {
                  Write(" state='");WriteXML(oDP.State());Write("'");
              }
              ! value nimmt den von der ccu gecachten wert, moeglicherweise nicht korrekt. Ggf. bei einigen geraeten immer abfragen
              Write(" value='");WriteXML(oDP.Value());Write("'");
              Write(" valuetype='");WriteXML(oDP.ValueType());Write("'");
              Write(" timestamp='");WriteXML(oDP.Timestamp().ToInteger());Write("'");
              Write(" />");
          }
      }

  } else {

    append comm {

      string sDevId;
      string sChnId;
      string sDPId;

      foreach (sDevId, root.Devices().EnumUsedIDs())
      {
        object oDevice = dom.GetObject(sDevId);
        integer iDevInterfaceId = oDevice.Interface();
        object oDeviceInterface = dom.GetObject(iDevInterfaceId)

        boolean isRemote = ( ("HMW-RCV-50" == oDevice.HssType()) || ("HM-RCV-50" == oDevice.HssType()) || ("HmIP-RCV-50" == oDevice.HssType()) );

        if( ( oDeviceInterface ) && ( oDevice.ReadyConfig() ) && ( ( isRemote == false ) || ( show_remote == 1 ) ) )
        {
          Write("<device");
          Write(" name='" # oDevice.Name() # "'");
          Write(" ise_id='" # sDevId # "'");

          string servicechan = "" # oDeviceInterface.Name() #"."#oDevice.Address()#":0";
          object schan = dom.GetObject(servicechan#".UNREACH");
          if(schan) { Write(" unreach='" # schan.Value() #"'"); }
          object schan = dom.GetObject(servicechan#".STICKY_UNREACH");
          if(schan) { Write(" sticky_unreach='" # schan.Value() #"'"); }
          object schan = dom.GetObject(servicechan#".CONFIG_PENDING");
          if(schan) { Write(" config_pending='" # schan.Value() #"'"); }

          Write(" >");  ! device tag schliessen

          foreach(sChnId, oDevice.Channels())
          {
            object oChannel = dom.GetObject(sChnId);
            if ( (! oChannel.Internal()) ||  oChannel.Internal()  )
            {
              Write("<channel name='");
              WriteXML( oChannel.Name() );
              Write("' ise_id='" # sChnId);
              Write("' index='" # oChannel.ChnNumber());

              if (oChannel.Internal()) {
                Write("' visible='" );
                Write("' operate='");
              } else {
                Write("' visible='");
                WriteXML(oChannel.Visible());

                Write("' operate='");
                object o_sysVar = dom.GetObject(sChnId);
                if( o_sysVar.UserAccessRights(iulOtherThanAdmin) == iarFullAccess ) {
                  Write("true");
                } else {
                  Write("false");
                }
              }

              Write("'>");

              foreach(sDPId, oChannel.DPs().EnumUsedIDs())
              {
                object oDP = dom.GetObject(sDPId);
                if(oDP)
                {
                  string dp = oDP.Name().StrValueByIndex(".", 2);

                  if( (dp != "ON_TIME") && (dp != "INHIBIT") && (dp != "CMD_RETS") && (dp != "CMD_RETL") && (dp != "CMD_SETS") && (dp != "CMD_SETL") )
                  {
                    Write("<datapoint");
                    Write(" name='"); WriteXML(oDP.Name());
                    Write("' type='"); WriteXML(oDP.Name().StrValueByIndex(".", 2));
                    Write("' ise_id='" # sDPId );

                    ! state fragt den aktuellen status des sensors/aktors ab, dauert lange
                    if (show_internal == 1) {
                      Write("' state='"); WriteXML(oDP.State());
                    }

                    ! value nimmt den von der ccu gecachten wert, moeglicherweise nicht korrekt. Ggf. bei einigen geraeten immer abfragen
                    Write("' value='"); WriteXML(oDP.Value());
                    Write("' valuetype='" # oDP.ValueType());
                    Write("' valueunit='" # oDP.ValueUnit());
                    Write("' timestamp='" # oDP.Timestamp().ToInteger());
                    Write("' operations='" # oDP.Operations());
                    Write("' />");
                  }
                }
              }
              Write("</channel>");
            }
          }
          Write("</device>");
        }
      }
    }

    array set res [rega_script $comm]

    if { $res(STDOUT) != "" } {
      puts -nonewline $res(STDOUT)
    }
  }
} else {
  puts -nonewline {<not_authenticated/>}
}
puts "</stateList>"