git: 9front

ref: 5f1b9c822e13709fd6e73f281f116a8b7c802ab7
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
}