#!/usr/bin/perl -w
use strict;
use vdef_globals;
use DBI();

my( $domain, $homedir );

my( $dbh, $sth );
my( $rows );
my $dbpass;

if($#ARGV!=0){
   print "usage: vdomain_del domain.tld\n";
   exit 1;
}
$domain=$ARGV[0];
$homedir = $vdef_globals::mail_home_prefix . "/" . $domain;

$dbpass = readpw();

$dbh = DBI->connect($vdef_globals::db_datasource,
                    $vdef_globals::db_user, $dbpass,{'RaiseError' => 1});
$sth = $dbh->prepare("SELECT userid FROM domains WHERE userid=".$dbh->quote($domain));
$sth->execute();
$rows=$sth->rows;
$sth->finish;
if($rows!=1){
   print "domain $domain does not exist\n";
}
else {
   $dbh->do("DELETE FROM users WHERE id like \"\%\@" . $domain . "\"");
   $dbh->do("DELETE FROM domains WHERE userid = " . $dbh->quote($domain));
}
$dbh->disconnect();

if( -d $homedir )
{
   system "rm -r $homedir";
}

