Silent installation-版本维护安装的福音

test engineer（特别是维护安装release的）日常工作中经常会重复以下步骤，请各位对号入座：

1、收到版本发布者的正式邮件，有新版本发布。
2、去发布服务器上check版本，拷贝到本地共享，并上传到测试服务器上。
3、Installation new load。
4、sanity test if step 3 is ok.
5、给全体测试同仁发送email，新版本已成功安装在测试服务器上 if step 4 is ok.

我在经历了一轮又一轮的折磨后，终于决定用Perl来实现以上功能。
考虑的问题：
0、main.pl
依次call以下脚本checkRelease.pl、ftp.pl、silentlyInstall.pl、email.pl。
建立一个windows task，在每天固定的时间运行这个脚本。

1、checkRelease.pl
这个脚本的用途是：从文件中读取最近的一个版本号，根据版本号检查发布服务器是否有新的release发布，并与本地release比对是否更新，
如果新则拷贝到本地，并上传到solaris，完成后根据版本号规则更新文件中的版本号。

2、ftp.pl
使用Net::FTP::Recursive模块批量上传文件，类似mput命令。

3、silentlyInstall.pl
用来实时打印、写安装日志，安装功能其实是interactivelyInstall.pl这个脚本完成的

4、interactivelyInstall.pl
核心模块，先从配置文件中读取一大堆变量值。使用Net::Telnet模块中的print()、cmd()、waitfor()等函数实现silent安装。

5、email.pl
以上成功后发送email给全体测试同仁。

后面的帖子会将具体的代码贴上来，因为最近换了个部门，代码没整理过，比如没main.pl，用checkRelease.pl代替，将就看了。
还有个问题是，我在本地的代码都是缩进过的，但是copy到这里就乱了。