mirror of
https://github.com/webmin/webmin.git
synced 2026-02-03 14:13:29 +00:00
31 lines
869 B
Perl
Executable File
31 lines
869 B
Perl
Executable File
#!/usr/bin/perl
|
|
# list_spoof.cgi
|
|
# Show spoofing prevention form
|
|
|
|
require './itsecur-lib.pl';
|
|
&can_use_error("spoof");
|
|
&header($text{'spoof_title'}, "",
|
|
undef, undef, undef, undef, &apply_button());
|
|
|
|
print &ui_hr();
|
|
|
|
print &ui_form_start("save_spoof.cgi", "post");
|
|
print &ui_table_start($text{'spoof_header'}, undef, 2);
|
|
|
|
my ($iface, @nets) = &get_spoof();
|
|
|
|
print &ui_table_row($text{'spoof_desc'},
|
|
&ui_radio("spoof", ( $iface ? 1 : 0 ), [
|
|
[0,$text{'spoof_disabled'}."<br>"],[1,$text{'spoof_enabled'}]
|
|
]).&iface_input("iface", $iface) );
|
|
|
|
print &ui_table_row($text{'spoof_nets'}, &ui_textarea("nets", join("\n", @nets), 5, 40) );
|
|
print &ui_table_end();
|
|
print "<p>";
|
|
print &ui_submit($text{'save'});
|
|
print &ui_form_end(undef,undef,1);
|
|
&can_edit_disable("spoof");
|
|
|
|
print &ui_hr();
|
|
&footer("", $text{'index_return'});
|