From: Stefan Schantl <stefan.schantl@ipfire.org>
Date: Wed, 8 Jan 2020 10:12:42 +0000 (+0100)
Subject: dns.cgi: Introduce red_is_active()
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=f36855fe73010235ffbcf409219cbb2dadded8a2;p=people%2Fstevee%2Fipfire-2.x.git

dns.cgi: Introduce red_is_active()

Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
---

diff --git a/html/cgi-bin/dns.cgi b/html/cgi-bin/dns.cgi
index 1e609eb49e..54f3aa3c42 100755
--- a/html/cgi-bin/dns.cgi
+++ b/html/cgi-bin/dns.cgi
@@ -522,7 +522,7 @@ END
 				my $rdns;
 
 				# Only do the reverse lookup if the system is online.
-				if ( -f "/var/ipfire/red/active") {
+				if (&red_is_active()) {
 					my $iaddr = inet_aton($nameserver);
 					$rdns = gethostbyaddr($iaddr, AF_INET);
 				}
@@ -734,6 +734,18 @@ END
 	&Header::closebox();
 }
 
+# Check if the system is online (RED is connected).
+sub red_is_active () {
+	# Check if the "active" file is present.
+	if ( -f "${General::swroot}/red/active") {
+		# Return "1" - True.
+		return 1;
+	} else {
+		# Return nothing - False.
+		return;
+	}
+}
+
 # Tiny function to grab an IP-address of a given file.
 sub grab_address_from_file($) {
 	my ($file) = @_;