Re: [cobalt-users] Admin site missing in GUI

["Zeffie" <cobaltlist@xxxxxxxx>]

> Noticed today that on one of my servers the admin site was missing in the
> GUI...course this is a few hours after the server locked up and had to be
> rebooted (coincidence?)....anyway, looked thru the archives, thought I'd
> seen this problem before but couldn't find it. Even went so far as to
ensure
> the site is stil in httpd.conf, and still has a symlink (ns.domain.com -->
> /home/sites/home)....tried meta-verify and the siteList.cgi, but to no
> avail....btw, Raq4i, all pathces installed....check all logs but nothing
> stood out, chkrootkit reported all okay....only one portscan message, came
> about 30 minutes before the box locked up, but that didn't seem to have
> anything to do with this, either.....
> Any help is much appreciated....
> Mike

Run this script and it should fix it.
I will put this on my ftp area too
ftp://ftp.zeffie.com/fixsite.pl

Zeffie
http://www.zeffie.com/


#!/usr/bin/perl
# creates the admin server pages for all domains on a RaQ 3 or RaQ 4
# except for the home site
# in the /usr/admserv/html/.cobalt/siteManage directory

require Cobalt::Layout;
require Cobalt::Admserv;
require Cobalt::Vsite;
require Cobalt::Meta;
use Cobalt::Product;

foreach my $vhost (Cobalt::Vsite::vsite_list()) {
    next unless ($$vhost[1]);
        my $fqdn = $$vhost[1];
        my ($group) = Cobalt::Meta::query("type"  => "vsite",
       "keys"  => ["name"],
       "where" => ["name", "<>", "default",
       "and", "fqdn", "=", "$fqdn"]);
        next if($group eq "home");
        if($group) {
                warn "creating admserver pages for group: $group sitename:
$fqdn\n";
                Cobalt::Layout::layout_siteManage($group, $fqdn);

Cobalt::Admserv::admserv_set_access(qq[$AdminPages_dir/siteManage/$group],
'require', 'group', $group);
                unlink("$AdminPages_dir/siteManage/$fqdn") if (-l
"$AdminPages_dir/siteManage/$fqdn");
        symlink("$AdminPages_dir/siteManage/$group",
"$AdminPages_dir/siteManage/$fqdn");
        } else {
                warn "unkown fqdn: $fqdn or group: $group\n";
        }
}