{
    for my $name ( qw(addons base centosplus contrib extras updates) )
    {
	my $repo = $DB->get($name) or next;
	my $mirror = $DB->get_prop_and_delete($name, 'MirrorList');
	next unless defined $mirror;

	my $reponame = $name;
	$reponame =~ s/base/os/;
	$repo->set_prop('BaseURL', "http://vault.centos.org/4.9/$reponame/\$basearch");
    }
}
