?? move-filelist.pl
字號:
#!/pkg/gnu/bin//perl5
#
#move-filelist.pl,v 1.2 2000/06/04 22:00:03 brunsch Exp
#
push(@INC, "$wd/bin");
require('WebStone-common.pl');
$oldfilelist = "$wd/conf/filelist";
html_begin();
if ($filelist ne $oldfilelist) {
$backup = $oldfilelist . ".bak";
print CLIENT "<BODY>Backing up $oldfilelist to $backup";
rename($oldfilelist, $backup);
print CLIENT "<P>Copying $filelist to $oldfilelist";
link($filelist, $oldfilelist);
print CLIENT "<P>Done.";
}
else
{
print CLIENT "<STRONG>Can't move $filelist <P>to $filelist</STRONG>";
}
html_end();
# end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -