Commit 0e5ebf89 authored by Robert Ricci's avatar Robert Ricci

Change to work with Jon's new naming scheme

parent 1b5f187c
......@@ -12,9 +12,9 @@ open(HOSTS,"/etc/hosts") or die "Unable to open /etc/hosts: $!\n";
while (<HOSTS>) {
my ($IP,@names) = split /\s+/;
my $firstname = shift @names;
if ($firstname =~ /^(.+)-elabc/) {
if ($firstname =~ /^(.+)-(elink|elan|ecloud|elabc)/) {
$elabips{$1} = $IP;
} elsif ($firstname =~ /^(.+)-planetc/) {
} elsif ($firstname =~ /^(.+)-(plink|plan|pcloud|plabc)/) {
$plabips{$1} = $IP;
}
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment