untar.cgi

来自「--黑客防线-精华奉献本(攻册)」· CGI 代码 · 共 33 行

#------------------------------------------------------#
#　　　　　　　　　本程序为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~
<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>
~;
{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 #########################