📄 mkfs.cgi
字号:
#!/usr/local/bin/perl# mkfs.cgi# Where the new filesystem actually gets created.require './fdisk-lib.pl';&foreign_require("proc", "proc-lib.pl");&ReadParse();&can_edit_disk($in{'dev'}) || &error($text{'mkfs_ecannot'});&error_setup($text{'mkfs_err'});$cmd = &mkfs_parse($in{type}, $in{dev});&header($text{'mkfs_title'}, "");print "<hr>\n";print &text('mkfs_exec', "<tt>$cmd</tt>"),"<p>\n";print "<pre>\n";&foreign_call("proc", "safe_process_exec", $cmd, 0, 0, STDOUT, undef, 1);print "</pre>\n";if ($?) { print "<b>$text{'mkfs_failed'}</b> <p>\n"; }else { print "$text{'mkfs_ok'} <p>\n"; }print "<hr>\n";&footer("", $text{'index_return'});
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -