shithub: riscv

ref: 1290c534bef72b282b4c562b95a4b2be8237e3b0
dir: /rc/bin/wurl2txt/

View raw version
#!/bin/rc

switch($#*){
case 0
	exit
case 1
	name = /`{echo $1 | sed 's;.*//;;
		s;/.*;;'}^/webpage
	# send hget errors to 2 so they appear in window
	hget $1 >[2=1]| {echo $1; echo; htmlfmt} >[2=1] | plumb -i -d edit -a 'action=showdata filename='$name
	exit
case *
	for(i in *)
		wurl2txt $i
}