Changeset 163 for www/system/generators/traffic_shaping_routerboard.php

Timestamp:

Feb 20, 2009, 9:53:27 AM (16 years ago)

Author:

george

Message:

• Opraveno: Další vlna odstraňování odkazů na starou tabulku users.
• Upraveno: Posílání konfigurace traffic shapingu do rotueru mikrotik po menších blocích.
• Přidáno: Nová tabulka MemberPayment fungující jako bilance skutečných měsíčních plateb a jako cache některých výpočtů k placení.
• Přidáno: Zobrazení běhových ladících informací na spodku stránky.
• Opraveno: V XHTML hlavičce opravena volba kódování.

File:

• www/system/generators/traffic_shaping_routerboard.php (modified) (3 diffs)

www/system/generators/traffic_shaping_routerboard.php

@@ -57 +57 @@
 
 // Process users
+$Index = 0;
 $DbResult = $Database->select('users', '*, CONCAT(second_name, " ", first_name) as fullname', '(inet=1)');
 while($User = $DbResult->fetch_array())
@@ -93 +94 @@
     $Commands[] = ' /queue tree add name='.$Host['name'].'-in limit-at='.$HostSpeedOut.' max-limit='.$UserMaxSpeedOut.' parent='.$User['fullname'].'-in packet-mark='.$PacketMark.' queue=wireless-default';
     $PacketMark++;
-    /*
-        // In going traffic
-        //exec('/sbin/iptables -t mangle -A '.$TableIn.' -i eth1 -d '.$Host['IP'].$Protocol." -j MARK --set-mark ".$HostClassId); 
-              fputs($File, "/sbin/tc class add dev ".$InInterface." parent 1:".$UserClassId." classid 1:".$HostClassId." htb rate ".$HostSpeedIn."bit ceil ".$UserMaxSpeedIn."bit prio ".$Prio." quantum ".$Quantum."\n");
-              fputs($File, "/sbin/tc qdisc add dev ".$InInterface." parent 1:".$HostClassId." handle ".$HostClassId.":0 sfq perturb 10\n");
-            //fputs($File, "/sbin/tc filter add dev ".$InInterface." parent 1:0 protocol ip handle ".$HostClassId." fw flowid 1:".$UserClassId."\n");
-            fputs($File, "/sbin/tc filter add dev ".$InInterface." parent 1:0 protocol ip prio 1 u32 match ip dst ".$Host['external_ip']."/32 flowid 1:".$HostClassId."\n");
-        
-        // Out going traffic
-        //exec('/sbin/iptables -t mangle -A '.$TableOut.' -o eth1 -s '.$Host['IP'].$Protocol." -j MARK --set-mark ".$HostClassId);
-        fputs($File, "/sbin/tc class add dev ".$OutInterface." parent 1:".$UserClassId." classid 1:".$HostClassId." htb rate ".$HostSpeedOut."bit ceil ".$UserMaxSpeedOut."bit prio ".$Prio." quantum ".$Quantum."\n");
-              fputs($File, "/sbin/tc qdisc add dev ".$OutInterface." parent 1:".$HostClassId." handle ".$HostClassId.":0 sfq perturb 10\n");
-              //fputs($File, "/sbin/tc filter add dev ".$OutInterface." parent 1:0 protocol ip handle ".$HostClassId." fw flowid 1:".$UserClassId."\n");
-              fputs($File, "/sbin/tc filter add dev ".$OutInterface." parent 1:0 protocol ip prio 1 u32 match ip src ".$Host['external_ip']."/32 flowid 1:".$HostClassId."\n");
-               //echo($Row['id'].',');
-*/
+
+    // Posílej po menších částech
+    if($Index > 50)
+        {
+      $Commands = addslashes(implode(';', $Commands));
+      $Command = '/usr/bin/ssh -l admin-ssh -i /root/.ssh/id_dsa '.$Router.' "'.$Commands.'"';
+      exec($Command, $Output);
+      print_r($Output);
+          $Commands = array();
+          $Index = 0;
+        }
+    $Index++;
   }
   echo("\n");
@@ -115 +112 @@
 $Commands = addslashes(implode(';', $Commands));
 $Command = '/usr/bin/ssh -l admin-ssh -i /root/.ssh/id_dsa '.$Router.' "'.$Commands.'"';
-echo($Command."\n");
+//echo($Command."\n");
 exec($Command, $Output);
 //array_pop($Output);