#!/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";
        }
}