2005-02-15 05:07:26 +00:00
|
|
|
#!/usr/bin/perl
|
|
|
|
|
|
|
|
|
|
@_ = <>;
|
|
|
|
|
my $root = $ENV{'PLAN9'};
|
|
|
|
|
my $html = join("", @_);
|
2005-03-18 18:53:21 +00:00
|
|
|
$html =~ s;$root/;XXX$root/;g;
|
2005-02-15 05:07:26 +00:00
|
|
|
while($html =~ /((.|\n)*)XXX($root\/([a-zA-Z0-9_.\/]|−)*[a-zA-Z0-9_\/])((.|\n)*)/){
|
|
|
|
|
($a, $b, $c) = ($1, $3, $5);
|
|
|
|
|
$b =~ s/−/-/g;
|
|
|
|
|
$l = $b;
|
|
|
|
|
while(! -e $l){
|
|
|
|
|
if($l =~ /(.*\/)(.+)/){
|
|
|
|
|
$l = $1;
|
|
|
|
|
}else{
|
|
|
|
|
last;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
$bb = substr($b, length($l));
|
|
|
|
|
$b = $l;
|
|
|
|
|
$b =~ s/-/\−/g;
|
|
|
|
|
$bb =~ s/-/\−/g;
|
|
|
|
|
$html = "$a<a href=\"$l\">$b</a>$bb$c";
|
|
|
|
|
}
|
|
|
|
|
print $html;
|
