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

my( $id, $home, $localpart, $domain );

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

if($#ARGV!=0){
   print "usage: vmailuser_del user\@domain.tld\n";
   exit 1;
}
$id=$ARGV[0];
$id =~ /^([^@]+)\@([^@]*)$/;
if( !defined($1) || !defined($2) )
{
   print "usage: vmailuser_del user\@domain.tld\n";
   exit 1;
}
$home = $vdef_globals::mail_home_prefix . "/$2/users/$1";

$dbpass = readpw();

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

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

