You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@vcl.apache.org by fa...@apache.org on 2012/05/15 17:03:01 UTC
svn commit: r1338742 -
/incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Linux.pm
Author: fapeeler
Date: Tue May 15 15:03:00 2012
New Revision: 1338742
URL: http://svn.apache.org/viewvc?rev=1338742&view=rev
Log:
VCL-576
Note to self: Pay attention to where I commit from.
Removed local custom edits for krb5.conf
Modified:
incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Linux.pm
Modified: incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Linux.pm
URL: http://svn.apache.org/viewvc/incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Linux.pm?rev=1338742&r1=1338741&r2=1338742&view=diff
==============================================================================
--- incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Linux.pm (original)
+++ incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Linux.pm Tue May 15 15:03:00 2012
@@ -251,37 +251,6 @@ sub post_load {
}
- my $krb5_conf_file_path = '/etc/krb5.conf';
- my @krb5_conf_contents = $self->get_file_contents($krb5_conf_file_path);
- if (@krb5_conf_contents) {
- notify($ERRORS{'DEBUG'}, 0, "retrieved $krb5_conf_file_path contents:\n" . join("\n", @krb5_conf_contents));
-
- my $new_krb5_contents_string;
- for my $line (@krb5_conf_contents) {
- if ($line =~ /(krb4_convert|krb4_use_as_req)/i) {
- next;
- }
-
- $new_krb5_contents_string .= "$line\n";
-
- if ($line =~ /pam\s*=\s*\{/i) {
- $new_krb5_contents_string .= " krb4_convert = false\n";
- $new_krb5_contents_string .= " krb4_use_as_req = false\n";
- $new_krb5_contents_string .= " krb4_convert_524 = false\n";
- }
- }
-
- if ($self->create_text_file("$krb5_conf_file_path", $new_krb5_contents_string)) {
- notify($ERRORS{'DEBUG'}, 0, "updated $krb5_conf_file_path file:\n$new_krb5_contents_string");
- }
- else {
- notify($ERRORS{'WARNING'}, 0, "failed to update $krb5_conf_file_path file");
- }
- }
- else {
- notify($ERRORS{'WARNING'}, 0, "failed to retrieve $krb5_conf_file_path contents");
- }
-
# Change password
if ($self->changepasswd($computer_node_name, "root")) {
notify($ERRORS{'OK'}, 0, "successfully changed root password on $computer_node_name");