Fwd: Re: [cobalt-users] In Trouble

[rdkurth@xxxxxxxxxxxx]

Hello wcstaff,
You need to run this script that I have add below after running it you
will need to go into each sites site settings and reset the e-mail
Aliases. If this does not make sense you can contact me off list at
rdkurth@xxxxxxxxxxxx


Save the following script at root and name it sitefix.pl
chown it to 700
chmod root
run it like this
./sitfix.pl


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





-- 
Best regards,
 rdkurth                            mailto:rdkurth@xxxxxxxxxxxx