19 lines
603 B
Racket
19 lines
603 B
Racket
#lang racket/base
|
|
|
|
(require "../main.rkt"
|
|
"../media-renderer.rkt")
|
|
|
|
(define renderers
|
|
(query-media-renderers
|
|
#:interface "10.7.3.118"
|
|
#:dns? #t))
|
|
|
|
(for ([renderer (in-list renderers)])
|
|
(printf "~a\n" (upnp-device-name renderer))
|
|
(printf " kind: ~a\n" (upnp-device-kind renderer))
|
|
(printf " address: ~a\n" (upnp-device-address renderer))
|
|
(printf " dns-name: ~a\n" (or (upnp-device-dns-name renderer) ""))
|
|
(printf " model: ~a\n" (or (upnp-device-model renderer) ""))
|
|
(printf " services: ~a\n\n"
|
|
(map upnp-service-kind (upnp-device-services renderer))))
|