=head2 raExtractNamePageRecent([$html])

Return array ref with names of recently changed nodes/pages. 
Order: unique, most recent first.

If $html isn't passed, get the input from the Wiki.

Return undef on errors.

=cut
sub raExtractNamePageRecent { my $self = shift;
    my ($html) = @_;
    defined($html) or $html = get( $self->urlFromName("RecentChanges") ) or return(undef);

    my @aName = ($html =~ m|&nbsp;</td><td><a href="[^"]+">([^<]+)</a></td>|gs);

    #Already unique, because they are unique on the web page
        
    return(\@aName);
}