📄 move-filelist.pl
字号:
#!/pkg/gnu/bin//perl5##$Id: move-filelist.pl 32986 2000-06-04 22:02:08Z brunsch $#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 + -