| rsc | 17e9283 | 2005-08-10 18:52:00 +0000 | [diff] [blame] | 1 | #!/usr/bin/env perl |
| rsc | 7383736 | 2005-02-15 05:07:26 +0000 | [diff] [blame] | 2 | |
| 3 | @_ = <>; |
| 4 | my $root = $ENV{'PLAN9'}; |
| 5 | my $html = join("", @_); |
| rsc | b979854 | 2005-03-18 18:53:21 +0000 | [diff] [blame] | 6 | $html =~ s;$root/;XXX$root/;g; |
| Russ Cox | 020c5cb | 2008-07-03 18:50:23 -0400 | [diff] [blame] | 7 | $newhtml = ""; |
| 8 | while($html =~ /XXX($root\/([a-zA-Z0-9_.\/]|−)*[a-zA-Z0-9_\/])/){ |
| 9 | ($a, $b, $c) = ($`, $1, $'); |
| rsc | 7383736 | 2005-02-15 05:07:26 +0000 | [diff] [blame] | 10 | $b =~ s/−/-/g; |
| 11 | $l = $b; |
| 12 | while(! -e $l){ |
| 13 | if($l =~ /(.*\/)(.+)/){ |
| 14 | $l = $1; |
| 15 | }else{ |
| 16 | last; |
| 17 | } |
| 18 | } |
| 19 | $bb = substr($b, length($l)); |
| 20 | $b = $l; |
| 21 | $b =~ s/-/\−/g; |
| 22 | $bb =~ s/-/\−/g; |
| Russ Cox | 020c5cb | 2008-07-03 18:50:23 -0400 | [diff] [blame] | 23 | $newhtml .= "$a<a href=\"$l\">$b</a>$bb"; |
| 24 | $html = $c; |
| rsc | 7383736 | 2005-02-15 05:07:26 +0000 | [diff] [blame] | 25 | } |
| Russ Cox | 020c5cb | 2008-07-03 18:50:23 -0400 | [diff] [blame] | 26 | $newhtml .= $html; |
| 27 | print $newhtml; |
