#
# 模块名称： FTPAutoUpload
#
# 模块任务： 按照指定的文件夹目录，自动将该文件夹下的所有文件上传到指定ftp站点的指定目录下
#
# 程序名称: Upload.pl
#
##-------------------------------
##---------------------------#
## 引用的库声明 2
#use strict;
use File::Copy;
use File::stat;
use File::Find;
use Net::FTP;
use Date::Pcalc qw(Delta_DHMS);
use Date::Parse;
use Win32::OLE;
use Win32::OLE::Variant;
##---------------------------#
##---------------------------#
## 引用的库声明 1
#- 读取ini配置文件的库
use Config::IniFiles;
my $cfg = Config::IniFiles->new( -file => "Upload.config" );
##---------------------------#
##---------------------------#
## 从配置文件读取外部参数 ##
##
## FTP服务器的IP地址 ##
$ftp_server = $cfg->val('FTPServer', 'ftp_server') || '';
## 指定的FTP上传目录路径 ##
#! 切记：文件夹最后不要加"/"符号 !#
$ftp_dir = $cfg->val('FTPServer', 'ftp_dir') || '';
## FTP的登陆用户名 ##
$ftp_uid = $cfg->val('FTPServer', 'ftp_uid') || '';
## FTP的登陆密码 ##
$ftp_pw = $cfg->val('FTPServer', 'ftp_pw') || '';
## 指定文件夹“语音文件”，放置所有要上传的语音文件 ##
#! 切记：文件夹最后不要加""符号 !#
@src_dir_WAVFiles = $cfg->val('SrcDirectory', 'src_dir_WAVFiles');
## 指定文件夹“命名对照列表文件TXT”，放置命名对照列表文件 ##
#! 切记：文件夹最后不要加""符号 !#
@src_dir_NamesListFile = $cfg->val('SrcDirectory', 'src_dir_NamesListFile');
## 一个字符串集合，表明哪些类型的文件/文件夹将不被上传到服务器 ##
@wc_exclude = ("_vti",".mdb","bak","data","server.inc");
##---------------------------#
##---------------------------#
## 记录全部过程的日志文件准备
$logfilename = 'upload.log';
$log_cnt = 0;
LOG("");
LOG("自动上传FTP文件 Version 0.1");
LOG("");
LOG("用法： Perl Upload.pl");
LOG("");
##---------------------------#
##---------------------------#
##=== 程序执行的第一步：尝试登陆ftp站点 ==========================##
## $total_files是上传文件的数目
$total_files = 0;
## $processed_files是已上传文件的数目
$processed_files = 0;
## $skipped_files是跳过文件的数目
$skipped_files = 0;
## $start_date计算出当前开始的时间
$start_date = timeString(time);
## $g_nUploadSuccess代表是否已经完全上传,-1为不是，1为是：
my $g_nUploadSuccess = 1;
## $g_nIsAllWAVsFile_UploadSuccess代表是否已经完全将A类文件上传,-1为不是，1为是：
my $g_nIsAllWAVsFile_UploadSuccess = 1;
## $g_strLastError代表上次错误原因：
my $g_strLastError = "";
LOG("正在链接至指定FTP服务器($ftp_server)...");
