wm: infra

ref: 5367683d6a4e811a21f2459f35778a63665ba511
dir: /getaudio/

View raw version 
#!/bin/rc
# to download songs and store their metadata

if(! ~ $#* 1){
	echo 'usage: wm/getaudio url' >[1=2]
	exit usage
}

url = $1
file = `{basename $1}
plist = ./plist
if(! test -f $file){
	hget -o $file $url && {echo $url >> $plist && audio/mkplist $file >> $plist}
}