Ticket #890: testsdf.au3

#include <array.au3>
Dim $attribs[3][2]
$attribs[0][0] = "method"
$attribs[0][1] = "user.getlovedtracks"
$attribs[1][0] = "api_key"
$attribs[1][1] = 'aa72a3b1161d33d0eba36f986fa1fb43'
$attribs[2][0] = "user"
$attribs[2][1] = "JRSmile"
$res = __lastfm_send($attribs)
ConsoleWrite($res & @CRLF)


Func __lastfm_send($attribs)
        Local $namespace
        If (Not IsArray($attribs)) Or (UBound($attribs, 0) <> 2) Then Return SetError(1, 0, False)
        $f = ObjCreate("pocketXMLRPC.Factory")
        $mystruct = ObjCreate("PocketXMLRPC.Struct")
        For $i = 0 To UBound($attribs) - 1
                If $attribs[$i][0] = "method" Then
                        $tmp = StringSplit($attribs[$i][1],".", 1)
                        $method = $tmp[2]
                        $namespace = $tmp[1]
                Else
                        Execute("$mystruct." & $attribs[$i][0] & ' = ' & "$attribs[$i][1]" & '')
                        ConsoleWrite("$mystruct." & $attribs[$i][0] & ' = ' & "$attribs[$i][1]" & ' ==> ' & $attribs[$i][1] & @CRLF)
                EndIf
        Next
        $mystruct.user = $attribs[2][1]
    $mystruct.api_key = $attribs[1][1]
        
        $objReq = $f.Proxy("http://ws.audioscrobbler.com/2.0/", $namespace & ".")
        $r = Execute("$objreq." & $method & "($mystruct)")
        $mystruct = 0
        $f = 0
        $r = StringReplace($r, '\"', '"')
        Return $r
EndFunc   ;==>__lastfm_send