1 17e9283b 2005-08-10 devnull #!/usr/bin/env perl
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_.\/]|−)*[a-zA-Z0-9_\/])/){
9 020c5cbb 2008-07-03 rsc ($a, $b, $c) = ($`, $1, $');
10 7383736c 2005-02-15 devnull $b =~ s/−/-/g;
12 7383736c 2005-02-15 devnull while(! -e $l){
13 7383736c 2005-02-15 devnull if($l =~ /(.*\/)(.+)/){
19 7383736c 2005-02-15 devnull $bb = substr($b, length($l));
21 7383736c 2005-02-15 devnull $b =~ s/-/\−/g;
22 7383736c 2005-02-15 devnull $bb =~ s/-/\−/g;
23 020c5cbb 2008-07-03 rsc $newhtml .= "$a<a href=\"$l\">$b</a>$bb";
26 020c5cbb 2008-07-03 rsc $newhtml .= $html;
27 020c5cbb 2008-07-03 rsc print $newhtml;