Changeset 7123 in genesis for tools/iris/wleiden.pl

Timestamp:

Aug 15, 2009, 10:02:26 AM (15 years ago)

Author:

rick

Message:

Initial setup off dnsmasq configuration

File:

• tools/iris/wleiden.pl (modified) (1 diff)

tools/iris/wleiden.pl

@@ -60 +60 @@
     $output .= $config{$interface};
   };
+  return($output);
+};
+
+
+sub dnsmasq_conf {
+  my $output = genHeader("#");
+  $output .=
+    "# Query all upstream dns servers by default\n" .
+    "--all-servers \n" .
+    "# DHCP server options \n" .
+    "--dhcp-authoritative \n" .
+    "--dhcp-fqdn \n" .
+    "--domain=dhcp.$nodename.$domain. \n" .
+    "\n";
+
+  foreach my $interface (sort keys %config) {
+    if( $interface =~ /^[a-z]+[0-9]+$/i ) {
+      (my $ip, my $netmask) = split('/', $IP{$interface});
+      my $subnet = IP::toSubnet($netmask);
+      
+      $output .=
+      "## $interface $DESC{$interface}\n";
+      
+      if ( $DHCP{$interface} =~ /[0-9]+\-[0-9]+/i ) {
+        my $dhcp_part = $ip;
+        $dhcp_part =~ s/[0-9]+$//;
+        (my $dhcp_start, my $dhcp_stop) = $DHCP{$interface} =~ /([0-9]+)\-([0-9]+)/i;
+        $dhcp_start = $dhcp_part . $dhcp_start;
+        $dhcp_stop = $dhcp_part . $dhcp_stop;
+        $output .= "--dhcp-range=$interface,$dhcp_start,$dhcp_stop,$subnet,24h\n\n";
+      }
+      else {
+       $output .= "# not autoritive \n\n";
+      };
+    };
+  };
+  
   return($output);
 };