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

Fix typo in adjust-apache script.

Browse Source
This commit is contained in:
Ben Greear
2020-03-05 13:19:45 -08:00
parent ed5255de3e
commit 30980460a6
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
adjust_apache.pl
View File

@@ -69,7 +69,8 @@ if (-f "$fname") {
$blank = ($ln =~ /^\s*$/) ? 1 : 0; $blank = ($ln =~ /^\s*$/) ? 1 : 0;
next if ($blank && $was_blank); next if ($blank && $was_blank);
next if ($ln =~/^$ip $MgrHostname$/); next if ($ln =~/^$ip $MgrHostname$/);
next if ($ln =~ /^###-LF-HOSTAME-NEXT-###/); next if ($ln =~ /^###-LF-HOSTAME-NEXT-###/); # old typo
next if ($ln =~ /^###-LF-HOSTNAME-NEXT-###/);
if ($ln =~ /\b($MgrHostname|lanforge-srv|$ip)\b/) { if ($ln =~ /\b($MgrHostname|lanforge-srv|$ip)\b/) {
print "Matching LINE $ln\n"; print "Matching LINE $ln\n";
my @hunks = split(/\s+/, $ln); my @hunks = split(/\s+/, $ln);
@@ -83,7 +84,7 @@ if (-f "$fname") {
print "ok ln[$ln]\n"; print "ok ln[$ln]\n";
push(@newlines, $ln); push(@newlines, $ln);
} }
push(@newlines, "###-LF-HOSTAME-NEXT-###"); push(@newlines, "###-LF-HOSTNAME-NEXT-###");
for my $ln (@newlines) { for my $ln (@newlines) {
print FILE "$ln\n"; print FILE "$ln\n";