?? 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~
<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 #########################
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -