#------------------------------------------------------#
#　　　　　　　　　本程序為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>
數(shù)據(jù)壓縮完成</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>所有文件已經(jīng)壓縮成功！<br>
<Br>請到 <a href=$imagurl/$FORM{'tar'}.tar>$imagurl/$FORM{'tar'}.tar</a> 下載壓縮包<br><br>
下載完，請記得將 $FORM{'tar'}.tar 這個文件刪除，以免數(shù)據(jù)被泄漏<Br>
</td></tr>
~;
######################### END OF SCRIPT #########################