Re: [cobalt-users] Site Management Pages Gone (Monkey Wrench Goes Nowhere)

[Ken Marcus -Precision Web Hosting <ken@xxxxxxxxxxxxxxxx>]

> > >go here
> > >http://cobalt-aid2.lindist.dk/modules.php?op=modload&name=Dow


Jeff,

The fixsite.pl from Sun is actually easier to use than the Cobalt Aid
script.

You can get it from the link within the Sun knowledgebase or here it is:
#!/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";
	}

Just put that in a file named fixsite.pl and
su
cd ~admin
chmod 700 fixsite.pl
./fixsite.pl

That's it.



Ken Marcus
ken@xxxxxxxxxxxxxxxx