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 020c5cbb 2008-07-03 rsc $newhtml = "";
 8 020c5cbb 2008-07-03 rsc while($html =~ /XXX($root\/([a-zA-Z0-9_.\/]|&#8722;)*[a-zA-Z0-9_\/])/){
 9 020c5cbb 2008-07-03 rsc 	($a, $b, $c) = ($`, $1, $');
10 7383736c 2005-02-15 devnull 	$b =~ s/&#8722;/-/g;
11 7383736c 2005-02-15 devnull 	$l = $b;
12 7383736c 2005-02-15 devnull 	while(! -e $l){
13 7383736c 2005-02-15 devnull 		if($l =~ /(.*\/)(.+)/){
14 7383736c 2005-02-15 devnull 			$l = $1;
15 7383736c 2005-02-15 devnull 		}else{
16 7383736c 2005-02-15 devnull 			last;
17 7383736c 2005-02-15 devnull 		}
18 7383736c 2005-02-15 devnull 	}
19 7383736c 2005-02-15 devnull 	$bb = substr($b, length($l));
20 7383736c 2005-02-15 devnull 	$b = $l;
21 7383736c 2005-02-15 devnull 	$b =~ s/-/\&#8722;/g;
22 7383736c 2005-02-15 devnull 	$bb =~ s/-/\&#8722;/g;
23 020c5cbb 2008-07-03 rsc 	$newhtml .= "$a<a href=\"$l\">$b</a>$bb";
24 020c5cbb 2008-07-03 rsc 	$html = $c;
25 7383736c 2005-02-15 devnull }
26 020c5cbb 2008-07-03 rsc $newhtml .= $html;
27 020c5cbb 2008-07-03 rsc print $newhtml;