| Server IP : 49.231.201.246 / Your IP : 216.73.216.248 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 : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority, 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;