| Server IP : 49.231.201.246 / Your IP : 216.73.216.149 Web Server : Apache/2.4.18 (Ubuntu) System : Linux 246 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64 User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : exec,passthru,shell_exec,system,proc_open,popen,pcntl_exec MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/krb5/ |
Upload File : |
# krb5-lib.pl
# Common functions for the krb5 config
BEGIN { push(@INC, ".."); };
use WebminCore;
&init_config();
# get_config()
# Returns the krb5 config
sub get_config {
local (%conf, $section, $realm);
$section = $realm = "";
open(FILE, "<".$config{'krb5_conf'});
while(<FILE>) {
chomp;
s/#.*//;
s/^\s+//;
s/\s+$//;
if (/^\[/) { # section name
$section = $_;
$section =~ s/^\[([^\]]*)\]/\1/;
}
s/^\[.*$//;
next unless length;
my ($var, $value) = split(/\s*=\s*/, $_, 2);
if ($section eq "logging") {
if ($value =~ /^FILE:/) { $value =~ s/^FILE://; }
$var = $var . "_log";
}
if (($section eq "domain_realm") and ($value eq $realm)) {
$value = $var;
$var = "domain";
}
if ($section eq "realms") {
if ($value =~ /\{/ ) {
$realm = $var;
$value = $var;
$var = "realm";
}
if ($var eq "admin_server") {
my $port;
($value, $port) = split(':', $value, 2);
$conf{'admin_port'} = $port;
}
if ($var eq "kdc") {
my $port;
($value, $port) = split(':', $value, 2);
$conf{'kdc_port'} = $port;
}
}
$conf{$var} = $value;
}
close(FILE);
return %conf;
}
1;