use English;
$INPLACE_EDIT = '';
require "labels.pl";
%nodes = ();
my $key;
foreach $label (sort keys %external_labels) {
$key = $external_labels{$label};
$key =~ s|^/||;
$nodes{$key} = $label;
}
require "internals.pl";
foreach $label (keys %internal_labels) {
$key = $internal_labels{$label};
$key =~ s|^/||;
if (defined($nodes{$key})) {
$nodes{$label} = $nodes{$key};
}
}
%newnames = ();
while (<>) {
if (/(HREF|href)=[\"\']([^\ @parts = split(/(HREF|href)\=[\"\']/);
shift @parts;
for $node (@parts) {
$node =~ s/[\ chop($node);
if (defined($nodes{$node})) {
$label = $nodes{$node};
if (s/(HREF|href)=([\"\'])$node([\ s/(HREF|href)=([\"\'])$label.html/href=$2$label.html/g;
$newnames{$node} = "$label.html";
}
}
}
}
print;
}
foreach $oldname (keys %newnames) {
rename($oldname, $newnames{$oldname});
}