Re: [cobalt-users] Raq 3 admin .. lost /usr/admserv/html/.cobalt/siteManage directories

[Jeff Bilicki <jeff@xxxxxxxxxxx>]

> Is there any way of regenerating the  /usr/admserv/html/.cobalt/siteManage
> directories?  I have lost it (don't ask why:~) and so the web admin
> interface doesn't quite work.  I get the site listing, but the links to
> administer the individual sites go to a "File not found".

> TIA

> Fish

This does it for all sites:
#!/usr/bin/perl
# creates the admin server pages for all domains on a RaQ 3 or RaQ 4
# except for the home site

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 site name: $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";
    }
}