#!/usr/bin/perl
use Net::FTP;

$cwd = "/web/wclients/htdocs/chosunmail";
$putDirName = "/home/banner_clients/htdocs/chosun/newmap/three7.jpg";
$resultName = "three7.jpg";
$putDirName2 = "/home/banner_clients/htdocs/chosun/newmap/weathertext7.jpg";
$resultName2 = "weathertext7.jpg";
$putDirName3 = "/home/banner_clients/htdocs/chosun/newmap/background7.jpg";
$resultName3 = "background7_c.jpg";
$putDirName4 = "/home/banner_clients/htdocs/chosun/background7.jpg";
$resultName4 = "background7.jpg";
$putDirName5 = "/home/banner_clients/htdocs/chosun/newmap/three5.jpg";
$resultName5 = "three.jpg";

gohost241($cwd, $putDirName, $resultName);
gohost241($cwd, $putDirName2, $resultName2);
gohost241($cwd, $putDirName3, $resultName3);
gohost241($cwd, $putDirName4, $resultName4);
gohost241($cwd, $putDirName5, $resultName5);


sub gohost241 {
        my $ftp =Net::FTP->new("hosts2.weatheri.co.kr",  Timeout=>100 );
        $ftp->login('wti', '33gksi');
        $ftp->cwd($_[0]);
        $ftp->ascii();
        $ftp->put($_[1], $_[2]);
        $ftp->quit;
}