move-filelist.pl

来自「ACE源码」· PL 代码 · 共 29 行

PL
29
字号
#!/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 + =
减小字号Ctrl + -
显示快捷键?