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

script can now update etc/hosts with lanforge-mgr address

Browse Source
This commit is contained in:
Jed Reynolds
2019-05-21 17:27:55 -07:00
parent 4324ba5a29
commit 1f13f03063
1 changed files with 23 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
adjust_apache.pl
View File

@@ -6,6 +6,13 @@ use diagnostics;
use Carp;
use Data::Dumper;
my @idhunks = split(' ', `id`);
my @hunks = grep { /uid=/ } @idhunks;
die ("Must be root to use this")
unless( $hunks[0] eq "uid=0(root)" );
my $MgrHostname = "lanforge-srv";
my $config_v = "/home/lanforge/config.values";
# grab the config.values file
die ("Unable to find $config_v" )
@@ -33,17 +40,27 @@ die ("No ip found for mgt_dev")
print "ip: $ip\n";
my @host_lines = `cat /etc/hosts`;
chomp (@host_lines0;
chomp (@host_lines);
@host_lines = ("127.0.0.1 localhost", @host_lines)
if (@host_lines < 1);
for (my $i =$#host_lines-1; $i>=0; $i--) {
print "$i\n";
my $line = $host_lines[$i];
if ($line =~ /lanforge-mgr/) {
if ($line =~ /$MgrHostname/) {
splice(@host_lines, $i, 1);
}
}
@host_lines = (@host_lines,
@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";
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";
# grab the 0000-default.conf file