#!/usr/bin/env perl

# wbmc_ssh_rmdomain, v 1.0 2002/03/28 20:14 hata

require "/opt/nec/mail/wbmc/bin/wbmc_msh_cmd.pl";
#require "/opt/nec/mail/wbmc/bin/wbmc_ssh_cmd.pl";
#require "wbmc_ssh_cmd.pl";

chomp($localhost =`hostname`);
$domain = $ENV{'WBMC_DOMAIN'};
$mshhost = $ENV{'WBMC_HOST'};

# 
#   Ķѿꡢmsh ޥоݥۥȡɥᥤ̾
#   msh ޥɤ rm ޥɼ¹
#

$cmd = "/opt/nec/mail/mcmd/rm -fr /home/mail/$domain";
#$cmd = "/bin/rm -fr /home/mail/$domain";
&wbmc_dc_rsh($mshhost, $cmd);
