www.pudn.com > bbs3000afree.zip > tar.cgi

#------------------------------------------------------# 
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　# 
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　# 
######################---------------------------------# 
## 以下部分不需修改 ## 
###################### 
unless($FORM{'tar'}){&errorview("请输入压缩包的文件名!");} 
use Archive::Tar; 
use Cwd; 
&csshtml;     
print qq~ 
 
数据压缩完成

 
~;        	 
$tar = Archive::Tar->new(); 
@dirtoopen = split(/\,/,$FORM{'dirtoopen'}); 
foreach $dirtoopen (@dirtoopen){ 
my $cwd = cwd(); 
chdir "$filepath/";		 
opendir (DIR, "$dirtoopen");  
my @emoticondata = readdir(DIR); 
closedir (DIR); 
my $size=@emoticondata-2; 
my $todo=$size; 
foreach (@emoticondata){ 
next if ($_ eq "\.");	 
next if ($_ eq "\.\."); 
$todo--; 
$file="$dirtoopen/$_"; 
$tar->add_files($file); 
$tar->write("${ImgDir}/$FORM{'tar'}.tar"); 
} 
chdir $cwd; 
print "
压缩$dirtoopen目录，共$size个文件！
"; 
} 
print qq~ 

所有文件已经压缩成功！
 

请到 $imagurl/$FORM{'tar'}.tar 下载压缩包

 
下载完，请记得将 $FORM{'tar'}.tar 这个文件删除，以免数据被泄漏
 
 
~; 
######################### END OF SCRIPT #########################