From f36855fe73010235ffbcf409219cbb2dadded8a2 Mon Sep 17 00:00:00 2001 From: Stefan Schantl Date: Wed, 8 Jan 2020 11:12:42 +0100 Subject: [PATCH] dns.cgi: Introduce red_is_active() Signed-off-by: Stefan Schantl --- html/cgi-bin/dns.cgi | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) 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) = @_; -- 2.39.5