📄 delete_printer.cgi
字号:
#!/usr/local/bin/perl# delete_printer.cgi# Delete an existing printerrequire './lpadmin-lib.pl';&ReadParse();&can_edit_printer($in{'name'}) || &error($text{'save_eedit'});&delete_printer($in{'name'});&delete_driver($in{'name'});&delete_webmin_driver($in{'name'});# remove from acl files&read_acl(undef, \%wusers);foreach $u (keys %wusers) { %uaccess = &get_module_acl($u); if ($uaccess{'printers'} ne '*') { $uaccess{'printers'} = join(' ', grep { $_ ne $in{'name'} } split(/\s+/, $uaccess{'printers'})); &save_module_acl(\%uaccess, $u); } }&redirect("");
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -