📄 save_text.cgi
字号:
#!/usr/local/bin/perl# save_text.cgi# Save a manually edit zone filerequire './bind8-lib.pl';&ReadParse();$conf = &get_config();$zconf = $conf->[$in{'index'}]->{'members'};$file = &absolute_path(&find("file", $zconf)->{'value'});%access = &get_module_acl();&can_edit_zone(\%access, $conf->[$in{'index'}]->{'value'}) || &error($text{'master_ecannot'});$access{'ro'} && &error($text{'master_ero'});$in{'text'} =~ s/\r//g;open(FILE, ">$file");print FILE $in{'text'};close(FILE);&redirect("edit_master.cgi?index=$in{'index'}");
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -