#!/usr/bin/env perl

# wbmc_ssh_mlgrant, v 1.0 2002/06/26 14:24 hata

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

$hostname = $ENV{'HOSTNAME'};
$mlgrant_domain = $ENV{'WBMC_MLGRANT_DOMAIN'};
$mlgrant_mlname = $ENV{'WBMC_MLGRANT_MLNAME'};
$mlgrant_host = $ENV{'WBMC_MLGRANT_HOST'};

# 
#   Ķѿꡢоݥɥᥤоݣ̡ͣоݥۥȤ
#

# ͣ grantե
#
#   /opt/nec/mail/mlsit/mlgrant -e DOMAIN MLNAME
#

$cmd = "/opt/nec/mail/mcmd/mlgrant -e $mlgrant_domain $mlgrant_mlname";
#$cmd = "/opt/nec/mail/mlist/mlgrant -e $mlgrant_domain $mlgrant_mlname";
&wbmc_dc_rsh($mlgrant_host, $cmd);
