sdm7g

(:  WTJU music stream downloader  $d = date or $t = show title :)
declare option output:indent "yes" ;

declare variable $d as xs:string external := '';
declare variable $t as xs:string external := '';

declare variable $HTML := html:doc( "https://www.wtju.net/recent-shows/" || "?d=" || $d )/html/body//div[@id="content"]//section[@class="playlist-days"] ;

declare variable $GET := <http:request method='get' /> ;
declare variable $DOCSTR := "Download from WTJU available Recent Shows.

sdm7g

# add users to group
#
# Usage: script $REPO_ID  $GROUP_CODE  [ list of user-names ]
#
ASHOST=${ASHOST:-localhost}
BASE="http://$ASHOST:8089"
USER=admin 
PWD=admin 
#
REPO=$1 ; shift;