#------------------------------------------------------#
#　　　　　　　　　本程序為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 #########################