#!/usr/bin/env perl

# wbmc_ssh_mltrandel, v 1.0 2002/03/05 13:31 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";

$mshhost = $ENV{'WBMC_HOST'};
$domain = $ENV{'WBMC_DOMAIN'};
$mlname = $ENV{'WBMC_MLNAME'};

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

$cmd = "/opt/nec/mail/mcmd/mltran_del $domain $mlname";
#$cmd = "/opt/nec/mail/mlist/mltran_del $domain $mlname";
&wbmc_dc_rsh($mshhost, $cmd);
