OpenEVSE current sharing over MQTT

umqttscript.txt

on init
do
  setvar $leaf=1    %leaf state
  setvar $tesla=1 
  setvar $pn=0   %pilot new
  setvar $teslamp=""
  subscribe local "ev/+/state"
  subscribe local "ev/+"
  
on topic local "ev/+"
do
  if $this_data = "connected" then
    println $this_topic | " = " | $this_data
  endif

on topic local "ev/+/state"
do
  setvar $teslamp=1
  if $this_topic = "ev/l/state" then
    if $this_data = $leaf then
      setvar $teslamp=0
    else
      if $this_data =  then
        setvar $teslamp=0
      else
        setvar $leaf = $this_data
        println "!!charge leaf "| $leaf | "<tesla: " | $tesla | ">"
      endif
    endif
  endif
  if $this_topic = "ev/t/state" then
    if $this_data = $tesla then
      setvar $teslamp=0
    else
      if $this_data = 2 then
        setvar $teslamp=0
      else
        setvar $tesla = $this_data
        println "!!charge tesla "| $tesla | "<leaf: " | $leaf | ">"
      endif
    endif
  endif

  if $teslamp = 1 then
    if $leaf = 3 then %l
      if $tesla = 3 then %l+t
        setvar $pn=10 | " V" %v
        publish local "ev/t/rapi/in/$SC" $pn
        publish local "ev/l/rapi/in/$SC" $pn
      else %l
        setvar $pn=6 | " V" %v
        publish local "ev/t/rapi/in/$SC" $pn
        setvar $pn=14 | " V" %v
        publish local "ev/l/rapi/in/$SC" $pn
      endif
    else
      if $tesla = 3 then %t
        setvar $pn=14 | " V" %v
        publish local "ev/t/rapi/in/$SC" $pn
        setvar $pn=6 | " V" %v
        publish local "ev/l/rapi/in/$SC" $pn
      endif
    endif
  endif