#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))))