version 1.512, 2014/11/24 02:36:16
|
version 1.514, 2015/01/03 02:43:05
|
Line 2808 sub newput_user_profile_entry {
|
Line 2808 sub newput_user_profile_entry {
|
foreach my $pair (@pairs) { |
foreach my $pair (@pairs) { |
my ($key,$value)=split(/=/,$pair); |
my ($key,$value)=split(/=/,$pair); |
if (exists($hashref->{$key})) { |
if (exists($hashref->{$key})) { |
&Failure($client, "key_exists: ".$key."\n",$userinput); |
if (!&untie_user_hash($hashref)) { |
return 1; |
&logthis("error: ".($!+0)." untie (GDBM) failed ". |
|
"while attempting newput - early out as key exists"); |
|
} |
|
&Failure($client, "key_exists: ".$key."\n",$userinput); |
|
return 1; |
} |
} |
} |
} |
|
|
Line 6625 sub make_new_child {
|
Line 6629 sub make_new_child {
|
&Authen::Krb5::init_context(); |
&Authen::Krb5::init_context(); |
|
|
my $no_ets; |
my $no_ets; |
if ($dist =~ /^(?:centos|rhes)(\d+)$/) { |
if ($dist =~ /^(?:centos|rhes|scientific)(\d+)$/) { |
if ($1 >= 7) { |
if ($1 >= 7) { |
$no_ets = 1; |
$no_ets = 1; |
} |
} |
Line 6633 sub make_new_child {
|
Line 6637 sub make_new_child {
|
if (($1 eq '9.3') || ($1 >= 12.2)) { |
if (($1 eq '9.3') || ($1 >= 12.2)) { |
$no_ets = 1; |
$no_ets = 1; |
} |
} |
|
} elsif ($dist =~ /^sles(\d+)$/) { |
|
if ($1 > 11) { |
|
$no_ets = 1; |
|
} |
} elsif ($dist =~ /^fedora(\d+)$/) { |
} elsif ($dist =~ /^fedora(\d+)$/) { |
if ($1 < 7) { |
if ($1 < 7) { |
$no_ets = 1; |
$no_ets = 1; |