[cobalt-users] Warning: site admin lists are out of sync. Fixing... ???

["Zero Z. Batzell Dean" <zero@xxxxxxxxx>]

I have a RAQ2.  I just started receiving this message this morning (and 
every 15 minutes) from Cron Daemon:

-------------

Warning: site admin lists are out of sync. Fixing...
Warning: site admin lists are out of sync. Fixing...

---------------

As I haven't made any server changes recently, I'm not sure what's up.

I browsed the support pages at Cobalt.com and found the text 
below.  Problem is, I want to know WHY/HOW this fixes the problem.  I don't 
begin to think I can understand the code, but from looking at it, it 
doesn't appear to FIX anything.  It looks more like it just stops the 
delivery of the error messages....???

I don't want to doubt the Cobalt support pages, but any insight would be 
appreciated.  Thanks.


----------------------
Begin Quote from Cobalt pages:
----------------------

Question

I get this message at least 50 times a day, "Warning: site admin lists are 
out of sync. Fixing..." What can I do to make it stop?

Response
Please note that the following steps require that you telnet in as root to 
modify a file or issue commands and should only be done by an experienced 
Linux user. If you are not an experienced Linux user you may call our 
Technical Support Department and we will have one of our technicians 
perform the changes (or walk you through them) to your server at no cost.

[1] telnet to the machine, login as root.

[2] cd /usr/lib/perl5/site_perl/auto/Cobalt/Vsite/

[3] edit the file vsite_admin_list.al as follows:

Normally, the file looks like this:

{

    my ($group) = @_;

    return Cobalt::Group::group_show($group) if ($group);


    # list everyone

    my @admins;

    my $virtsite;

    foreach $virtsite (Cobalt::Vsite::vsite_list()) {

        push(@admins,Cobalt::Group::group_show($$virtsite[2]));

    }

    @admins = sort(@admins);


    # sanity check...am I being too paranoid?

    my @site_admins = Cobalt::Group::group_show($Sites_AdminGroup);

    if ($#site_admins ne $#admins) {

        print STDERR "Warning: site admin lists are out of sync.  Fixing...n";

        Cobalt::Group::group_set_membership($Sites_AdminGroup,@admins);

    }


    return @admins;

}


edit the file as follows

{

    my ($group) = @_;

    return Cobalt::Group::group_show($group) if ($group);


    # list everyone

    my @admins;

    my $virtsite;

    foreach $virtsite (Cobalt::Vsite::vsite_list()) {

        push(@admins,Cobalt::Group::group_show($$virtsite[2]));

    }

    @admins = sort(@admins);


    # sanity check...am I being too paranoid?

#    my @site_admins = Cobalt::Group::group_show($Sites_AdminGroup);

#    if ($#site_admins ne $#admins) {

#        print STDERR "Warning: site admin lists are out of sync.

Fixing...n";

#        Cobalt::Group::group_set_membership($Sites_AdminGroup,@admins);

#    }


    return @admins;

}


Next time monitor runs, the errors should no longer be present.



--------------------------------------------------------
Zero Z. Batzell Dean         Creator of 3D ARK
http://www.3dark.com       Over 1.1 million served!

San Francisco, CA               ICQ# 8395879