#!/usr/bin/perl -w -I/usr/sausalito/perl -I/usr/sausalito/handlers/base/vsite

use CCE;
use strict;

my $cce = new CCE;
$cce->connectuds();
my @vsites;
my @vsitelist;
my @userlist;
my $hostname=`hostname`;

chomp($hostname);

@vsitelist = $cce->findx('Vsite');
foreach my $vsite (@vsitelist) {
  my @DomainQuotalist;
  my $siteNum;
  my $fqdn;
  my $domain;
  my $maxusers;
  my ($ok, $object, $old, $new) = $cce->get($vsite);

  $siteNum="${%{$object}}{'name'}";
  $domain="${%{$object}}{'domain'}";
  $fqdn="${%{$object}}{'fqdn'}";
  $maxusers="${%{$object}}{'maxusers'}";


  @DomainQuotalist = $cce->findx('ServiceQuota', {"site" => "$siteNum"} );

  foreach my $domainQuota (@DomainQuotalist) {
    my ($userOK, $userOBJ, $userOLD, $userNEW) = $cce->get($domainQuota);
    #print "${%{$userOBJ}}{quota}"."@"."$fqdn\n";


    { print "$fqdn - \tno. of account:\t $maxusers,\t quota: ${%{$userOBJ}}{quota}M\n";}
  }

}

$cce->bye('SUCCESS');
exit(0);