changelog shortlog tags branches changeset files revisions annotate raw help

Mercurial > hg > plan9front / rc/bin/wurl2txt

changeset 7243: 34f64dcbbc25
parent: efddda59690a
author: cinap_lenrek@felloff.net
date: Fri, 17 May 2019 18:14:10 +0200
permissions: -rwxr-xr-x
description: 7l: don't hardcode 4k pagesize, use INITRND 
     1 #!/bin/rc

     2 

     3 switch($#*){

     4 case 0

     5 	exit

     6 case 1

     7 	name = /`{echo $1 | sed 's;.*//;;

     8 		s;/.*;;'}^/webpage

     9 	# send hget errors to 2 so they appear in window

    10 	hget $1 >[2=1]| {echo $1; echo; htmlfmt} >[2=1] | plumb -i -d edit -a 'action=showdata filename='$name

    11 	exit

    12 case *

    13 	for(i in *)

    14 		wurl2txt $i

    15 }