Blob

Date:
Message:
Use env to find perl, for NetBSD (grr)
Actions:
History | Blame | Raw File
1 #!/usr/bin/env perl

3 @_ = <>;

4 my $root = $ENV{'PLAN9'};

5 my $html = join("", @_);

6 $html =~ s;$root/;XXX$root/;g;

7 while($html =~ /((.|\n)*)XXX($root\/([a-zA-Z0-9_.\/]|&#8722;)*[a-zA-Z0-9_\/])((.|\n)*)/){

8 	($a, $b, $c) = ($1, $3, $5);

9 	$b =~ s/&#8722;/-/g;

10 	$l = $b;

11 	while(! -e $l){

12 		if($l =~ /(.*\/)(.+)/){

13 			$l = $1;

14 		}else{

15 			last;

16 		}

17 	}

18 	$bb = substr($b, length($l));

19 	$b = $l;

20 	$b =~ s/-/\&#8722;/g;

21 	$bb =~ s/-/\&#8722;/g;

22 	$html = "$a<a href=\"$l\">$b</a>$bb$c";

23 }

24 print $html;