1
0

wurl2txt 296 B

123456789101112131415
  1. #!/bin/rc
  2. switch($#*){
  3. case 0
  4. exit
  5. case 1
  6. name = /`{echo $1 | sed 's;.*//;;
  7. s;/.*;;'}^/webpage
  8. # send hget errors to 2 so they appear in window
  9. hget $1 >[2=1]| {echo $1; echo; htmlfmt} >[2=1] | plumb -i -d edit -a 'action=showdata filename='$name
  10. exit
  11. case *
  12. for(i in *)
  13. wurl2txt $i
  14. }