1 17e9283b 2005-08-10 devnull #!/usr/bin/env perl
 2 7383736c 2005-02-15 devnull 
 3 7383736c 2005-02-15 devnull @_ = <>;
 4 7383736c 2005-02-15 devnull my $root = $ENV{'PLAN9'};
 5 7383736c 2005-02-15 devnull my $html = join("", @_);
 6 b979854f 2005-03-18 devnull $html =~ s;$root/;XXX$root/;g;
 7 7383736c 2005-02-15 devnull while($html =~ /((.|\n)*)XXX($root\/([a-zA-Z0-9_.\/]|&#8722;)*[a-zA-Z0-9_\/])((.|\n)*)/){
 8 7383736c 2005-02-15 devnull 	($a, $b, $c) = ($1, $3, $5);
 9 7383736c 2005-02-15 devnull 	$b =~ s/&#8722;/-/g;
10 7383736c 2005-02-15 devnull 	$l = $b;
11 7383736c 2005-02-15 devnull 	while(! -e $l){
12 7383736c 2005-02-15 devnull 		if($l =~ /(.*\/)(.+)/){
13 7383736c 2005-02-15 devnull 			$l = $1;
14 7383736c 2005-02-15 devnull 		}else{
15 7383736c 2005-02-15 devnull 			last;
16 7383736c 2005-02-15 devnull 		}
17 7383736c 2005-02-15 devnull 	}
18 7383736c 2005-02-15 devnull 	$bb = substr($b, length($l));
19 7383736c 2005-02-15 devnull 	$b = $l;
20 7383736c 2005-02-15 devnull 	$b =~ s/-/\&#8722;/g;
21 7383736c 2005-02-15 devnull 	$bb =~ s/-/\&#8722;/g;
22 7383736c 2005-02-15 devnull 	$html = "$a<a href=\"$l\">$b</a>$bb$c";
23 7383736c 2005-02-15 devnull }
24 7383736c 2005-02-15 devnull print $html;