[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [cobalt-users] Admin Html pages for domains (script)

Does anyone have a similar script as below for the Raq2?

Thomas Taenzer
trt@xxxxxxxxxx

At 01:18 PM 9/20/00 -0700, you wrote:

Here is the script that I cooked up for when the files under
/usr/admserv/html/.cobalt/siteManage get whacked or corrupted.  Use on a
RaQ 3 or RaQ 4.  If the domain is not showing the UI run meta-verify(1)
first, this could helpful if you need to rebuild sites by hand. *shiver*

Jeff-

(1)
RaQ3: ftp://ftp.cobaltnet.com/pub/users/duncan/raq3/meta-verify.pl
RaQ4: /usr/local/sbin/meta-verify


#!/usr/bin/perl
# genAdmservPages
# 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";
        }
}


_______________________________________________
cobalt-users mailing list
cobalt-users@xxxxxxxxxxxxxxx
To Subscribe or Unsubscribe, please go to:
http://list.cobalt.com/mailman/listinfo/cobalt-users