Re: [cobalt-users] mildy trashed GUI on raq4

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

> The GUI on my Raq4 is mildly trashed.
>
> >From the "Site Management" page
> (http://www.blahblahblah:81/.cobalt/sysManage/index.html)
> Clicking on the little green spanner to access a specific site gives
the
> following error:
>
>   The requested URL was not found on this server.
>
> (http://www.blahblahblah:81/.cobalt/siteManage/www.blahblah.net/)
>
>Pete,

Just run the script below, then go to each siteadmin and re-add the
email server aliases.
#!/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/$gro
up], '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";
        }
}



----
Ken Marcus
Precision Web Hosting
mailto:ken@xxxxxxxxxxxxxxxx
http://www.precisionweb.net