#!/bin/sh

# Call the soap service to fetch listing from mythtv UPNP in form of xml :

if test -z "$1"
then
    echo "Usage :" "$0" "mythtv_hostname" "object_id"
    echo Examples
    echo "For today recordings : " $0 10.0.0.12 RecTv/3/key=`date +%Y-%m-%d`
    echo "For my favourite recgroup : " $0 localhost RecTv/5/key=Comeback
    exit 0 
fi

HOST=$1
ID=$2

# for RecTv ID="RecTv/$NUM/key=$KEY"
# $NUM $KEY
# 1   recorded.title
# 2   recorded.category
# 3   recorded.starttime --> formatted like 2014-06-17
# 4   recorded.chanid
# 5   recorded.recgroup

TMPFILE=/tmp/request.xml

cat >$TMPFILE <<EOF
<?xml version="1.0"?>
<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/" s:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
  <s:Body>
    <u:Browse xmlns:u="urn:schemas-upnp-org:service:ContentDirectory:1">
      <ObjectID>$ID</ObjectID>
      <BrowseFlag>BrowseDirectChildren</BrowseFlag>
      <Filter>*</Filter>
      <StartingIndex>0</StartingIndex>
      <RequestedCount>9000</RequestedCount>
      <SortCriteria/>
    </u:Browse>
  </s:Body>
</s:Envelope>
EOF

wget http://$HOST:6544/CDS_Control --header="SOAPACTION: \""urn:schemas-upnp-org:service:ContentDirectory:1#Browse"\"" --post-file=$TMPFILE -O - 2>/dev/null | xmlstarlet sel -t -v //Result | xmlstarlet unesc