roku_ip_tagger.git

@@ -24,19 +24,22 @@ sub showScreen(contentID As String, options As String)

     deviceID = deviceInfo.GetDeviceUniqueId()

     aaIPAddrs = deviceInfo.GetIPAddrs()

-    screen.addParagraph("IP Tagger")

-    screen.addParagraph("deviceID = " + deviceID)

+    screen.SetTitle("IP Tagger")

     for each key in aaIPAddrs

-	ipAddr = ipAddrs[key]

+	    ipAddr = aaipAddrs[key]

 	    if ipAddr <> invalid and ipAddr.Len() > 0

 	        screen.addParagraph("IP " + key + "=" + ipAddr)

-    ' screen.addParagraph("IPs = " + aaIPAddrs)

+        end if

+    end for

     request = CreateObject("roUrlTransfer")

-    request.SetUrl("https://kvs.dlma.com")

-    code = request.PostFromString(deviceID+"="+ipAddr+"&auth=ahov")

-    screen.addParagraph("POST code = " + code)

-

+    request.SetPort(port)

+    request.SetUrl("http://kvs.dlma.com/")

+    params = deviceID+"="+ipAddr+"&auth=ahov"

+    screen.addParagraph("Tagging "+ipAddr+" for "+deviceID+"...")

+    if request.AsyncPostFromString(params)

+        print "Post was sent!"

+    endif

     screen.Show()

     while true

@@ -45,6 +48,15 @@ sub showScreen(contentID As String, options As String)

             if msg.isScreenClosed()

               exit while

             end if

+        else if type(msg) = "roUrlEvent"

+            if msg.GetInt() = 1

+                if msg.GetResponseCode() = 200

+                    screen.addParagraph("Success! You can get this device's IP address from the following URL:")

+                    screen.addParagraph("http://kvs.dlma.com?k="+deviceID)

+                else

+                    screen.addParagraph("It didn't work. Got code " + msg.GetResponseCode())

+                endif

+            endif

         end if

     end while

     screen.Close() ' Wonder if this is needed