setlinkinfo.tcl

##
# Interface.setLinkInfo
# Setzt den Namen und die Beschreibung einer direkten Geräteverknüpfung
#
# Parameter:
#   interface:   [string] Bezeichnung der Schnittstelle
#   sender:      [string] Adresse des Senders
#   receiver:    [string] Adresse des Empfängers
#   name:        [string] Bezeichnung der Verknüpfung
#   description: [string] Beschreibung der Verknüpfung
#
# Rückgabewert: [boolean]
#   true
##

set sender      $args(sender)
set receiver    $args(receiver)
set name        $args(name)
set description $args(description)

checkXmlRpcStatus [catch {xmlrpc $interface(URL) setLinkInfo [list string $sender] [list string $receiver] [list string $name] [list string $description] }]

jsonrpc_response true