#!/usr/bin/env perl

# wbmc_ssh_mltranadd, 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'};
@dgttime = split(/\,/, $ENV{'WBMC_DGTTIME'});
$domain = $ENV{'WBMC_DOMAIN'};
$mlname = $ENV{'WBMC_MLNAME'};

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

foreach $dgttime (@dgttime) {
    ($hh, $mm) = split(/:/, $dgttime);
    $cmd = "/opt/nec/mail/mcmd/mltran_add $hh $mm $domain $mlname";
  # $cmd = "/opt/nec/mail/mlist/mltran_add $hh $mm $domain $mlname";
    &wbmc_dc_rsh($mshhost, $cmd);
}
