⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.133
Server IP:
185.119.109.197
Server:
Linux managedhosting.chostar.me 5.15.0-160-generic #170-Ubuntu SMP Wed Oct 1 10:06:56 UTC 2025 x86_64
Server Software:
Apache
PHP Version:
8.1.33
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
proc
/
self
/
root
/
usr
/
share
/
webmin
/
ldap-server
/
View File Name :
down_acl.cgi
#!/usr/bin/perl # Move an access control rule down (later) require './ldap-server-lib.pl'; &local_ldap_server() == 1 || &error($text{'slapd_elocal'}); $access{'acl'} || &error($text{'acl_ecannot'}); &ReadParse(); &lock_slapd_files(); if (&get_config_type() == 1) { # Move down in old-style config $conf = &get_config(); @access = &find("access", $conf); ($access[$in{'idx'}+1], $access[$in{'idx'}]) = ($access[$in{'idx'}], $access[$in{'idx'}+1]); &save_directive($conf, "access", @access); &flush_file_lines($config{'config_file'}); } else { # Move down in LDIF config $defdb = &get_default_db(); $conf = &get_ldif_config(); @access = &find_ldif("olcAccess", $conf, $defdb); ($access[$in{'idx'}+1], $access[$in{'idx'}]) = ($access[$in{'idx'}], $access[$in{'idx'}+1]); if ($access[$in{'idx'}]->{'values'}->[0] =~ /^\{\d+\}to/ && $access[$in{'idx'}+1]->{'values'}->[0] =~ /^\{\d+\}to/) { # Swap indexes too ($access[$in{'idx'}]->{'values'}->[0], $access[$in{'idx'}+1]->{'values'}->[0]) = ($access[$in{'idx'}+1]->{'values'}->[0], $access[$in{'idx'}]->{'values'}->[0]); } &save_ldif_directive($conf, "olcAccess", $defdb, @access); &flush_file_lines(); } &unlock_slapd_files(); &webmin_log("down", "access", $p->{'what'}); &redirect("edit_acl.cgi");