#!/usr/bin/env perl

# wbmc_ssh_mladm, v 1.0 2002/05/27 13:08 hata

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

$hostname = $ENV{'HOSTNAME'};
$mladm_domain = $ENV{'WBMC_MLADM_DOMAIN'};
$mladm_mlname = $ENV{'WBMC_MLADM_MLNAME'};
$mladm_option = $ENV{'WBMC_MLADM_OPTION'};
$mladm_host = $ENV{'WBMC_MLADM_HOST'};

# 
#   Ķѿꡢоݥɥᥤоݣ̡ͣޥɥץ
#   ޥɥץˤʬ
#       -a ꡧɲѥץ
#       -c ꡧѹѥץ
#       -d ꡧѥץ
#       -l ꡧɽץ
#

print "WBMC_MLADM_DOMAIN = $ENV{'WBMC_MLADM_DOMAIN'};\n";
print "WBMC_MLADM_MLNAME = $ENV{'WBMC_MLADM_MLNAME'};\n";
print "WBMC_MLADM_OPTION = $ENV{'WBMC_MLADM_OPTION'};\n";

# mladm ޥɤΥץǽʬ
#
if ($mladm_option =~ /~-a/) {        # ɲ
    &mladm_add;
} elsif ($mladm_option =~ /^-c/) {   # ѹ
    &mladm_chg;
} elsif ($mladm_option =~ /^-d/) {   # 
    &mladm_del;
} elsif ($mladm_option =~ /^-l/) {   # 
    &mladm_list;
} else {                          # ѥ᡼
    # 顼
}
exit;

# ɲ
#
#   /opt/nec/mail/mlsit/mladm -a DOMAIN MLNAME
#   ɸϡ᡼륢ɥ쥹\n᡼륢ɥ쥹\n...᡼륢ɥ쥹\n
#
sub mladm_add
{
    $cmd = "/opt/nec/mail/mcmd/mladm -a $mladm_domain $mladm_mlname";
  # $cmd = "/opt/nec/mail/mlist/mladm -a $mladm_domain $mladm_mlname";
    &wbmc_dc_rsh($mladm_host, $cmd);
}

# ѹ
#
#   /opt/nec/mail/mlsit/mladm -c DOMAIN MLNAME
#   ɸϡ᡼륢ɥ쥹 ON\n᡼륢ɥ쥹 OFF\n...᡼륢ɥ쥹 ON\n
#   ˶ǥơͿɬפ
#
sub mladm_chg
{
    $cmd = "/opt/nec/mail/mcmd/mladm -c $mladm_domain $mladm_mlname";
  # $cmd = "/opt/nec/mail/mlist/mladm -c $mladm_domain $mladm_mlname";
    &wbmc_dc_rsh($mladm_host, $cmd);
}

# 
#
#   /opt/nec/mail/mlsit/mladm -d DOMAIN MLNAME
#   ɸϡ᡼륢ɥ쥹\n᡼륢ɥ쥹\n...᡼륢ɥ쥹\n
#
sub mladm_del
{
    $cmd = "/opt/nec/mail/mcmd/mladm -d $mladm_domain $mladm_mlname";
  # $cmd = "/opt/nec/mail/mlist/mladm -d $mladm_domain $mladm_mlname";
    &wbmc_dc_rsh($mladm_host, $cmd);
}

# 
#
#   /opt/nec/mail/mlsit/mladm -l DOMAIN MLNAME [pattern]
#   ᡼륢ɥ쥹 ơON/OFF
#
sub mladm_list
{
    $mladm_host = "turbo3.d3.bs1.fc.nec.co.jp";

    $cmd = "/opt/nec/mail/mcmd/mladm -l $mladm_domain $mladm_mlname";
  # $cmd = "/opt/nec/mail/mlist/mladm -l $mladm_domain $mladm_mlname";
    @result = &wbmc_dc_rsh($mladm_host, $cmd);
    
    for ($i = 0; $i < @result; $i++) {
      # chomp($result[$i]->[2]);
        print "$result[$i]->[2]";
    }
}
