[LON-CAPA-cvs] cvs: doc /install/linux install.pl

[raeburn]

raeburn		Sat Aug  8 22:04:56 2026 EDT

  Modified files:              
    /doc/install/linux	install.pl 
  Log:
  - Support distros (e.g., Ubuntu 26) where /proc/net/ip_tables_names is
    not populated, even though firewall is active. 
  
  
Index: doc/install/linux/install.pl
diff -u doc/install/linux/install.pl:1.101 doc/install/linux/install.pl:1.102
--- doc/install/linux/install.pl:1.101	Thu Nov 13 22:15:55 2025
+++ doc/install/linux/install.pl	Sat Aug  8 22:04:56 2026
@@ -78,7 +78,7 @@
           &mt('Stopping execution.')."\n";
     exit;
 } else {
-    print LOG '$Id: install.pl,v 1.101 2025/11/13 22:15:55 raeburn Exp $'."\n";
+    print LOG '$Id: install.pl,v 1.102 2026/08/08 22:04:56 raeburn Exp $'."\n";
 }
 
 #
@@ -1839,8 +1839,8 @@
 }
 
 sub firewall_is_active {
+    my $status;
     if (-e '/proc/net/ip_tables_names') {
-        my $status;
         if (open(PIPE,'cat /proc/net/ip_tables_names |grep filter |')) {
             $status = <PIPE>;
             close(PIPE);
@@ -1849,20 +1849,20 @@
                 return 1;
             }
         }
-        unless ($status) {
-            if (open(PIPE,'nft list tables |')) {
-                while(<PIPE>) {
-                    chomp();
-                    if (/filter$/) {
-                        $status = 1;
-                        last;
-                    }
-                }
-                close(PIPE);
-                if ($status) {
-                    return 1;
+    }
+    unless ($status) {
+        if (open(PIPE,'nft list tables |')) {
+            while(<PIPE>) {
+                chomp();
+                if (/filter$/) {
+                    $status = 1;
+                    last;
                 }
             }
+            close(PIPE);
+            if ($status) {
+                return 1;
+            }
         }
     }
     return 0;