#!/usr/bin/env perl

# wbmc_ssh_qlit, v 1.0 2002/03/05 21:01 hata

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

$hostname = $ENV{'HOSTNAME'};
$qlist_domain = $ENV{'WBMC_QLIST_DOMAIN'};
@qlist_host = split(/\n/, $ENV{'WBMC_QLIST_HOST'});
$qlist_opt = $ENV{'WBMC_QLIST_OPT'};

# 
#   Ķѿꡢоݥɥᥤоݥۥȡqlist ޥɥץ
#   qlist ޥɥץˤʬ
#       ʤqid ꥹɽ
#       -r   qid 
#       -a   qid 
#     嵭ơۥȤξϡľܥޥɼ¹
#     ¾ۥȤξ硢ssh ޥɤǼ¹
#

# ɥᥤΥ᡼Ԥqidɽ
sub qlist
{
    $cmd = "/opt/nec/mail/mcmd/qlist $qlist_domain";
  # $cmd = "/opt/nec/mail/qlist $qlist_domain";
    foreach $qlist_host (@qlist_host) {
        if ($hostname eq $qlist_host) {
            system($cmd);
        } else {
            &wbmc_dc_rsh($qlist_host, $cmd);
        }
    }
}

# ɥᥤλꤷ᡼Ԥqid
sub qlist_r
{
    $cmd = "/opt/nec/mail/mcmd/qlist $qlist_opt $qlist_domain";
  # $cmd = "/opt/nec/mail/qlist $qlist_opt $qlist_domain";
    foreach $qlist_host (@qlist_host) {
        if ($hostname eq $qlist_host) {
            system($cmd);
        } else {
            &wbmc_dc_rsh($qlist_host, $cmd);
        }
    }
}

# ɥᥤ᡼Ԥqid
sub qlist_a
{
    $cmd = "/opt/nec/mail/mcmd/qlist $qlist_opt $qlist_domain";
  # $cmd = "/opt/nec/mail/qlist $qlist_opt $qlist_domain";
    foreach $qlist_host (@qlist_host) {
        if ($hostname eq $qlist_host) {
            system($cmd);
        } else {
            &wbmc_dc_rsh($qlist_host, $cmd);
        }
    }
}


# qlist ޥɤΥץǽʬ
#
if ($qlist_opt eq "") {           # ᡼Ԥqidɽ
    &qlist;
} elsif ($qlist_opt =~ /^-r/) {   # ᡼Ԥqid
    &qlist_r;
} elsif ($qlist_opt =~ /^-a/) {   # ᡼Ԥqid
    &qlist_a;
} else {
    &qlist;
}
