用perl作的ftp

日期：2007年5月9日作者：查看:[大字体中字体小字体]

　　#!/usr/local/bin/perl
#################################################################
# I found this script at http://www.terminalp.com
# it was written by a guy named Jeff who sold the domain and
# disappeared. I deleted the original header to save space
# so I am distributing this as is. If Jeff sees this, please
# email me at dreun@eskimo.com!! Thanks, Ron Hagerman
#################################################################

BEGIN {

$SAVE_DIRECTORY = "/your/literal/path/incoming/";
#定义上载的文件的存放位置
$MAXIMUM_UPLOAD = 0;
#最大上载数量
$ALLOW_INDEX = 0;
是否允许上载文件名为index.*的文件

$SUCCESS_LOCATION = "http://www.yourserver.com/~you/page.html";
#定义当上载成功以后，显示该URL指向的内容
}

$ = 1;
#设定$OUTPUT_AUTOFLUSH为1,也就是使STDOUT不对输出进行缓冲，而是直接输出。
chop $SAVE_DIRECTORY if ($SAVE_DIRECTORY =~ //$/);
#若保存目的地址以"/"结尾则将其删除
use CGI qw(:standard);
#使用CGI模块
$query = new CGI;
#生成一个新的CGI对象

#当指定的保存目的目录名不存在或不可写或不是目录时输出错误信息
if ( (!(-e $SAVE_DIRECTORY))
(!(-W $SAVE_DIRECTORY))
(!(-d $SAVE_DIRECTORY)) ) {
print header;
#输出http信息头
print <<__END_OF_HTML_CODE__;
#这里的<<__END_OF_HTML_CODE__指示print语句输出文件后面的内容直到遇到__END_OF_HTML_CODE__ 你可以使用别的符号来替代__END_OF_HTML_CODE__
<HTML>
<HEAD>
<TITLE>Error: Bad Directory</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<H1>Bad Directory</H1>
<P>
The directory you specified:
<BR>
<BLOCKQUOTE>
<TT>$SAVE_DIRECTORY = "<B>$SAVE_DIRECTORY</B>";</TT>
[1] [2] [3] [4] [5] [6] 下一页
用perl作的ftp 相关文章：
·用perl作的ftp
用perl作的ftp 相关软件

上一篇:apache+php 的匿名FTP功能目录权限设置问题

下一篇:设置虚拟匿名FTP主机

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

用perl作的ftp

精品推荐

热点TOP10

特别推荐