#!/bin/rc
# twat a video
rfork e
if(! ~ $#* 1){
	echo >[1=2] usage: $0 url
	exit usage
}
url = `{hpost -u https://www.savetweetvid.com/ -p /downloader url:$1 |
	sed -n '/vid\/320x320\//{s/.*href="([^"]+).*/\1/p;q;}'}
if(! ~ $#url 1){
	echo >[1=2] 'hpost -u https://www.savetweetvid.com/ -p /downloader url:'''$1'''
found no links'
	exit 'no link found'
}
f = /tmp/twitvid.$pid
fn clean sighup sigint sigterm{rm -f $f}
echo hget ''''$url''' > '''$f''''
hget $url > $f
r = r
while(~ $r r s){
	switch($r){
	case r
		treason $f
	case s
		echo -n 'Save where? '
		cp $f `{read}
	}
	echo -n 'And then? [r]eplay/[s]ave/e[x]it: '
	r = `{read}
}
clean