Changeset 8182 in genesis

Timestamp:

Jul 20, 2010, 6:45:04 PM (14 years ago)

Author:

richardvm

Message:

Added a filter to filter on netmask

File:

• nodes/get-a-ils.pl (modified) (2 diffs)

nodes/get-a-ils.pl

@@ -1 +1 @@
 #!/usr/bin/env perl
+
+# Set some vars
+
+# Filter on netmask
+$MASK = $ARGV[0];
+# Otherwise return all.
+if ( ! $MASK ) {
+  $MASK = ".*";
+}
 
 # Print the header
@@ -86 +95 @@
 
         # Match the current ip of node/if with the ip specified in the search
-        if ($il_ip eq $search) {
+        # Match the netmask specified
+        if (($il_ip eq $search) && ($il_mask =~ /$MASK/)) {
           return $il_node;
         }