#!/usr/bin/env perl

# wbmc_ssh_rmuser, v 1.0 2002/03/28 20:16 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'};
$user = $ENV{'WBMC_USER'};
$mshhost = $ENV{'WBMC_HOST'};

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

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