Changeset 187 for trunk/system/generators/nat_routerboard.php

Timestamp:

Apr 5, 2009, 3:54:46 PM (16 years ago)

Author:

george

Message:

• Přidáno: Možnost registrace podsítí pro klienty.
• Upraveno: Skripty pro generování nastavení routerů byly upraveny pro podporu tabulky NetworkSubnet.

File:

• trunk/system/generators/nat_routerboard.php (modified) (3 diffs)

trunk/system/generators/nat_routerboard.php

@@ -3 +3 @@
 include_once('../../global.php');
 
-$InetInterface = 'ether3';
-$Router = '192.168.0.11';
+$InetInterface = $Config['MainRouter']['InetInterface'];
 
 $Commands = array();
@@ -12 +11 @@
 while($Member = $DbResult->fetch_assoc())
 {
-  echo($Member['Name']."\n");
+  echo($Member['Name'].': ');
+  // Hosts
   $DbResult2 = $Database->select('hosts', '*', '(external_ip <> "") AND (user='.$Member['Id'].') AND (IP != external_ip) ORDER BY id DESC');
   while($Host = $DbResult2->fetch_assoc())
   {
-    echo($Host['name']."\n");
+    $Host['name'] = RouterOSIdent($Host['name']);
+    echo($Host['name'].'('.$Host['IP'].'), ');
     $Commands[] = ' /ip firewall nat add chain=srcnat src-address='.$Host['IP'].' out-interface='.$InetInterface.' action=src-nat to-addresses='.$Host['external_ip'].' comment="'.$Host['name'].'"';
     $Commands[] = ' /ip firewall nat add chain=dstnat dst-address='.$Host['external_ip'].' in-interface='.$InetInterface.' action=dst-nat to-addresses='.$Host['IP'].' comment="'.$Host['name'].'"';
   }
+
+  // Subnets
+  $DbResult2 = $Database->select('NetworkSubnet', '*', 'Member='.$Member['Id']);
+  while($Subnet = $DbResult2->fetch_assoc())
+  {
+    $Subnet['Name'] = RouterOSIdent('subnet-'.$Subnet['Name']);
+    echo($Subnet['Name'].'('.$Subnet['AddressRange'].'/'.$Subnet['Mask'].'), ');
+    $Range = CIDRToAddressRange($Subnet['ExtAddressRange'], $Subnet['ExtMask']);
+    $Range = $Range['From'].'-'.$Range['To'];
+    $Commands[] = ' /ip firewall nat add chain=srcnat src-address-list='.$Subnet['AddressRange'].'/'.$Subnet['Mask'].' out-interface='.$InetInterface.' action=src-nat to-addresses='.$Range.' comment="'.$Subnet['Name'].'"';
+    $Range = CIDRToAddressRange($Subnet['AddressRange'], $Subnet['Mask']);
+    $Range = $Range['From'].'-'.$Range['To'];
+    $Commands[] = ' /ip firewall nat add chain=dstnat dst-address-list='.$Subnet['ExtAddressRange'].'/'.$Subnet['ExtMask'].' in-interface='.$InetInterface.' action=dst-nat to-addresses='.$Range.' comment="'.$Subnet['Name'].'"';
+  }
+  echo("\n");
 }
 
@@ -29 +45 @@
 
 $Commands = addslashes(implode(';', $Commands));
-$Command = '/usr/bin/ssh -l admin-ssh -i id_dsa '.$Router.' "'.$Commands.'"';
+$Command = '/usr/bin/ssh -l '.$Config['MainRouter']['UserName'].' -i id_dsa '.$Config['MainRouter']['HostName'].' "'.$Commands.'"';
+$Output = array();
 echo($Command."\n");
-//exec($Command, $Output);
+exec($Command, $Output);
 //array_pop($Output);
 //print_r($Output);