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

#------------------------------------------------------# 
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　# 
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　# 
######################---------------------------------# 
## 以下部分不需修改 ## 
###################### 
use Archive::Tar; 
use Cwd; 
@dirtoopen = split(/\,/,$FORM{'dirtoopen'}); 
$toopen=@dirtoopen[0]; 
if (-e "${filepath}/$toopen"){ 
&csshtml;     
print qq~ 
 
还原备份文件

 
~; 
{my $cwd = cwd(); 
my $tar =  Archive::Tar->new(); 
unless ($tar->read("${filepath}/$toopen", 0)) { 
print "${lbdir}$toopen不能读取，请检查是否使用二进制模式上传(一定要这个模式上传压缩包)"; exit; 
} 
chdir $filepath; 
my @files = $tar->list_files(); 
$tar->extract(@files, $filepath); 
chdir $cwd; 
} 
print "已经成功解压缩到服务器！"; 
}else { 
&errorview("压缩文件没找到找到，请确认您已经上传到$filepath/"); 
exit; 
} 
######################### END OF SCRIPT #########################