scottk/wlan-lanforge-scripts
1
0
Fork 0
mirror of https://github.com/Telecominfraproject/wlan-lanforge-scripts.git synced 2025-10-31 10:48:02 +00:00
Code Issues Packages Projects Releases Wiki Activity

quieter

Browse Source
This commit is contained in:
Jed Reynolds
2019-05-23 12:49:13 -07:00
parent dc459bf2b8
commit f307a27fac
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
adjust_apache.pl
View File

@@ -60,17 +60,17 @@ for (my $i =$#host_lines-1; $i>=0; $i--) {
@host_lines = (@host_lines, ("$ip $MgrHostname", "\n")); @host_lines = (@host_lines, ("$ip $MgrHostname", "\n"));
my $dt = `date +%Y%m%d-%H%M%s`; my $dt = `date +%Y%m%d-%H%M%s`;
chomp $dt; chomp $dt;
print "dt[$dt]\n"; #print "dt[$dt]\n";
print "cp /etc/hosts /etc/.hosts.$dt\n"; #print "cp /etc/hosts /etc/.hosts.$dt\n";
print "=======================================\n"; #print "=======================================\n";
print join("\n", @host_lines); #print join("\n", @host_lines);
print "=======================================\n"; #print "=======================================\n";
die ("Unable to write to /etc/hosts: $!") die ("Unable to write to /etc/hosts: $!")
unless open(my $fh, ">", "/etc/hosts"); unless open(my $fh, ">", "/etc/hosts");
print $fh join("\n", @host_lines); print $fh join("\n", @host_lines);
close $fh; close $fh;
print "Updated /etc/hosts\n"; #print "Updated /etc/hosts\n";
# grab the 0000-default.conf file # grab the 0000-default.conf file