mirror of
https://github.com/Telecominfraproject/wlan-lanforge-scripts.git
synced 2025-10-30 02:12:38 +00:00
50 lines
1.2 KiB
Perl
Executable File
50 lines
1.2 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use diagnostics;
|
|
use Carp;
|
|
use Data::Dumper;
|
|
|
|
my $config_v = "/home/lanforge/config.values";
|
|
# grab the config.values file
|
|
die ("Unable to find $config_v" )
|
|
unless ( -f $config_v);
|
|
|
|
my @configv_lines = `cat $config_v`;
|
|
die ("Probably too little data in config.values")
|
|
unless (@configv_lines > 5);
|
|
my %configv = ();
|
|
foreach my $line (@configv_lines) {
|
|
my ($key, $val) = $line =~ /^(\S+)\s+(.*)$/;
|
|
$configv{$key} = $val;
|
|
}
|
|
die ("Unable to parse config.values")
|
|
unless ((keys %configv) > 5);
|
|
die ("no mgt_dev in config.values")
|
|
unless defined $configv{'mgt_dev'};
|
|
print "Found mgt_dev $configv{'mgt_dev'}\n";
|
|
|
|
my $ipline = `ip -o a show $configv{"mgt_dev"}`;
|
|
#print "IPLINE[$ipline]\n";
|
|
my ($ip) = $ipline =~ / inet ([0-9.]+)(\/\d+)? /g;
|
|
die ("No ip found for mgt_dev")
|
|
unless ((defined $ip) && ($ip ne ""));
|
|
|
|
print "ip: $ip\n";
|
|
my @host_lines = `cat /etc/hosts`;
|
|
chomp (@host_lines0;
|
|
@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/) {
|
|
|
|
}
|
|
}
|
|
@host_lines = (@host_lines,
|
|
|
|
|
|
# grab the 0000-default.conf file
|