#!/usr/bin/env perl

# wbmc_scp_domain, v 1.0 2002/04/13 17:56 hata

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

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

# 
#   Ķѿꡢscp ޥоݥۥȡɥᥤ̾
#

$dir = "/home/mail/$domain";
&wbmc_dc_cp($sshhost, $dir);
