#!/usr/bin/env perl

# wbmc_ssh_disk, v 1.0 2002/04/17 20:02 hata

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

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

# 
#   Ķѿꡢssh ޥоݥۥȤ
#

$cmd = "/opt/nec/mail/wbmc/adm/disk/disk2.cgi";
@result = &wbmc_dc_rsh($sshhost, $cmd);

for ($i = 0; $i < @result; $i++) {
  # chomp($result[$i]->[2]);
    print "$result[$i]->[2]";
}
