#!/usr/bin/env perl

# wbmc_ssh_mlinit, v 1.0 2002/05/28 08:28 hata

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

$hostname = $ENV{'HOSTNAME'};
$mlinit_domain = $ENV{'WBMC_MLINIT_DOMAIN'};
$mlinit_mlname = $ENV{'WBMC_MLINIT_MLNAME'};
$mlinit_host = $ENV{'WBMC_MLINIT_HOST'};
$mlinit_option = $ENV{'WBMC_MLINIT_OPTION'};

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

# ͣ̽
#
#   /opt/nec/mail/mlsit/mlinit DOMAIN MLNAME
#

if ($mlinit_option eq "c") {        # եκ
    $cmd = "/opt/nec/mail/mcmd/mlinit -c $mlinit_domain $mlinit_mlname";
  # $cmd = "/opt/nec/mail/mlist/mlinit -c $mlinit_domain $mlinit_mlname";
} elsif ($mlinit_option eq "d") {   # եκ
    $cmd = "/opt/nec/mail/mcmd/mlinit -d $mlinit_domain $mlinit_mlname";
  # $cmd = "/opt/nec/mail/mlist/mlinit -d $mlinit_domain $mlinit_mlname";
}
&wbmc_dc_rsh($mlinit_host, $cmd);
