components/tagtask.xml (b758ade) - roku_ip_tagger.git

tagtask.xml

<?xml version="1.0" encoding="utf-8" ?>

sub init()
    m.top.functionName = "executeTask"
    m.settings = m.top.findNode("MySettings")
end sub

function executeTask() as void
    m.port = CreateObject("roMessagePort")

deviceInfo = CreateObject("roDeviceInfo")
    clientID = Right(deviceInfo.GetChannelClientId(), 6)
    modelID = deviceInfo.GetModel()

aaIPAddrs = deviceInfo.GetIPAddrs()
    for each key in aaIPAddrs
        ipAddr = aaipAddrs[key]
        if ipAddr <> invalid and ipAddr.Len() > 0
            ' m.top.updateText = key + " = " + ipAddr
        end if
    end for

sendRequest(ipAddr, clientID + "-" + modelID)
end function

sub sendRequest(ipAddr as String, deviceID as String)
    request = CreateObject("roUrlTransfer")
    request.SetCertificatesFile("common:/certs/ca-bundle.crt")
    request.SetPort(m.port)
    request.SetUrl(m.settings.url)
    params = deviceID+"="+ipAddr+"&auth="+m.settings.auth
    m.top.updateText = "Tagging "+ipAddr+" for "+deviceID+"..."
    if request.AsyncPostFromString(params)
        print "Request was sent!"
    endif

while true
        msg = wait(0, m.port)
        if type(msg) = "roUrlEvent"
            if msg.GetInt() = 1
                if msg.GetResponseCode() = 200
                    m.top.updateText = "Success!" + chr(10) + "You can get this device's IP address with:"
                    m.top.updateText = m.settings.url+"?k="+deviceID
                else
                    m.top.updateText = "It didn't work. Got code " + str(msg.GetResponseCode())
                endif
            endif
        end if
    end while
end sub

]]>
</script>
</component>

roku_ip_tagger.git

Make the ID a few characters shorter.