#!/usr/bin/perl
#
# Copyright 1999-2000, Cobalt Networks, Inc
# All rights reserved
#

require Cobalt::Meta;
require Cobalt::Vsite;
require Cobalt::Locale;
use Cobalt::Util;

my @o;
@o=Cobalt::Meta::query("type"    => "vsite",
                           "keys"    => [ "ipaddr", "fqdn", "name", "ftp", "fpx",
                                          "apop", "ssl", "suspend", "casp", "php" ]);

open HANDLE, ">/home/chiliasp/INSTALL/.raq4sites" || die "Unable to open output file";
print HANDLE "[sites]\n";
foreach (@o) {
  print HANDLE "$_->{fqdn}" if ($_->{fqdn} !~ /^\s*$/);
  print HANDLE "=/home/sites/$_->{fqdn}/web\n" if ($_->{fqdn} !~ /^\s*$/);
}