#!/usr/bin/env perl

# wbmc_ssh_config2, v 1.0 2002/03/18 09:47 hata

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

chomp($localhost =`hostname`);
$sshhost = $ENV{'WBMC_HOST'};

# 
#   Ķѿꡢssh ޥоݥۥȤ
#   ۥȤξ硢ľ wbmc_ssh_config ޥɼ¹
#     ¾ۥȤξ硢ssh ޥɤ wbmc_ssh_config ޥɼ¹
#

$cmd = "/opt/nec/mail/wbmc/bin/wbmc_ssh_config";
if ($localhost eq $sshhost) {
    system($cmd);
} else {
    &wbmc_dc_rsh($sshhost, $cmd);
}
