From f307a27fac2728b6f027cd0058ea5b07c86dcbfe Mon Sep 17 00:00:00 2001 From: Jed Reynolds Date: Thu, 23 May 2019 12:49:13 -0700 Subject: [PATCH] quieter --- adjust_apache.pl | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/adjust_apache.pl b/adjust_apache.pl index a46d7cf7..8c777c7c 100755 --- a/adjust_apache.pl +++ b/adjust_apache.pl @@ -60,17 +60,17 @@ for (my $i =$#host_lines-1; $i>=0; $i--) { @host_lines = (@host_lines, ("$ip $MgrHostname", "\n")); my $dt = `date +%Y%m%d-%H%M%s`; chomp $dt; -print "dt[$dt]\n"; -print "cp /etc/hosts /etc/.hosts.$dt\n"; -print "=======================================\n"; -print join("\n", @host_lines); -print "=======================================\n"; +#print "dt[$dt]\n"; +#print "cp /etc/hosts /etc/.hosts.$dt\n"; +#print "=======================================\n"; +#print join("\n", @host_lines); +#print "=======================================\n"; die ("Unable to write to /etc/hosts: $!") unless open(my $fh, ">", "/etc/hosts"); print $fh join("\n", @host_lines); close $fh; -print "Updated /etc/hosts\n"; +#print "Updated /etc/hosts\n"; # grab the 0000-default.conf file