tar.cgi

--黑客防线-精华奉献本(攻册)

#------------------------------------------------------#
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　#
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　#
######################---------------------------------#
## 以下部分不需修改 ##
######################
unless($FORM{'tar'}){&errorview("请输入压缩包的文件名!");}
use Archive::Tar;
use Cwd;
&csshtml;    
print qq~
<center><table border=0 width=100% cellpadding=6><tr><td width=100% bgcolor=$bgcolor1 align=center><b><font color=#FF6633>
数据压缩完成</font></b></td></tr></table><br></center>
~;        	
$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 "<br>压缩$dirtoopen目录，共$size个文件！<br>";
}
print qq~
<br><b>所有文件已经压缩成功！<br>
<Br>请到 <a href=$imagurl/$FORM{'tar'}.tar>$imagurl/$FORM{'tar'}.tar</a> 下载压缩包<br><br>
下载完，请记得将 $FORM{'tar'}.tar 这个文件删除，以免数据被泄漏<Br>
</td></tr>
~;
######################### END OF SCRIPT #########################