One Hat Cyber Team

Your IP: 216.73.216.93
Server IP: 65.108.141.171
Server: Linux server.heloix.com 5.4.0-214-generic #234-Ubuntu SMP Fri Mar 14 23:50:27 UTC 2025 x86_64
Server Software: Apache
PHP Version: 7.4.33
Buat File | Buat Folder

Edit File: acl_security.pl

require 'custom-lib.pl';

# acl_security_form(&options)
# Output HTML for editing security options for the custom module
sub acl_security_form
{
my ($o) = @_;
my $mode = $o->{'cmds'} eq '*' ? 1 :
	   $o->{'cmds'} =~ /^\!/ ? 2 : 0;
my @cmds = &sort_commands(&list_commands());
print &ui_table_row($text{'acl_cmds'},
	&ui_radio("cmds_def", $mode,
		  [ [ 1, $text{'acl_call'} ],
		    [ 0, $text{'acl_csel'} ],
		    [ 2, $text{'acl_cexcept'} ] ])."<br>\n".
	&ui_select("cmds",
		   [ split(/\s+/, $o->{'cmds'}) ],
		   [ map { [ $_->{'id'}, $_->{'desc'} ] } @cmds ],
		   10, 1), 3);

print &ui_table_row($text{'acl_edit'},
	&ui_yesno_radio("edit", $_[0]->{'edit'}));
}

# acl_security_save(&options, &in)
# Parse the form for security options for the custom module
sub acl_security_save
{
my ($o, $in) = @_;
if ($in->{'cmds_def'} == 1) {
	$o->{'cmds'} = "*";
	}
elsif ($in->{'cmds_def'} == 0) {
	$o->{'cmds'} = join(" ", split(/\0/, $in->{'cmds'}));
	}
else {
	$o->{'cmds'} = join(" ", "!", split(/\0/, $in->{'cmds'}));
	}
$o->{'edit'} = $in->{'edit'};
}