[BlueOnyx:11897] Server Aliases & DNS

[Mitchell Rothschild]

Happy New Year To All

Is there a way to get all of the Web Server Aliases and Email Server
Aliases?
Maybe a script that would spit it out?

Also - DNS settings? - I think it used to be in a file called 'records' -
but I don't see it anymore

Just to note as an example - 
A small BQ Script that reads all users and all virtual sites. Just "chmod
+x" the file, and run it. 
#!/usr/bin/perl -I/usr/sausalito/perl
# Author: Brian N. Smith
# Copyright 2008, NuOnce Networks, Inc. All rights reserved.
# $Id: get_user_email.pl v1.0 2008/01/28 23:18:00 Exp $

use CCE;
my $cce = new CCE;
$cce->connectuds();

@all_virtual_sites = $cce->find("Vsite"); 
foreach $vsite_oid(@all_virtual_sites) {
my ($ok, $vsite) = $cce->get($vsite_oid);
$fqdn = $vsite->{'fqdn'};
@all_users = $cce->find("User", {'site' => $vsite->{'name'}});
foreach $user_oid(@all_users) {
my ($ok, $user) = $cce->get($user_oid);
$username = $user->{'name'};
print $username . "@" . $fqdn . "\n";
} 
}


Thanks..

Regards,
Mitch