continued burst() method & Numerics.class.php
[PHP-P10.git] / Uplink / Numerics.class.php
index 4727dcf2756ab75fbbd77e130f7efe68bee1de8f..cb555fb2efad07008a5cb36d333282e5a03d2c23 100644 (file)
@@ -35,6 +35,9 @@
  *
  * static String parseIP(String $numeric)
  *     parses an IP Address in numeric format
+ *
+ * static String numericFromIP(String $ip)
+ *     builds a numeric representing the IP
  */
 
 class Numerics {
@@ -81,7 +84,7 @@ class Numerics {
                return $int;
        }
        
-       public static function parseIP($numeric) {
+       public static function parseIP($numeric, $shortForm = true) {
                if(strlen($numeric) == 6) { //IPv4
                        $value = self::numToInt($numeric);
                        $ip = array();
@@ -94,11 +97,16 @@ class Numerics {
                        $ip = array();
                        for($i = 0; $i < strlen($numeric);) {
                                if($numeric[$i] == "_") {
-                                       $rightBlocks = (strlen($numeric) - ($i + 1)) / 3;
-                                       $skipCount = 8 - count($ip) - $rightBlocks;
-                                       for($j = 0; $j < $skipBlocks; $j++) {
-                                               $ip[] = "0";
+                                       if($shortForm) {
+                                               $ip[] = ""; //::
+                                       } else {
+                                               $rightBlocks = (strlen($numeric) - ($i + 1)) / 3;
+                                               $skipCount = 8 - count($ip) - $rightBlocks;
+                                               for($j = 0; $j < $skipBlocks; $j++) {
+                                                       $ip[] = "0";
+                                               }
                                        }
+                                       $i++;
                                } else {
                                        $value = self::numToInt($numeric[$i].$numeric[$i+1].$numeric[$i+2]);
                                        $ip[] = dechex($value);
@@ -109,6 +117,72 @@ class Numerics {
                }
        }
        
+       public static function numericFromIP($ip) {
+               $pattern = array();
+               $pattern['ipv6'] = '/^((([0-9A-Fa-f]{1,4}:){7}[0-9A-Fa-f]{1,4})|(([0-9A-Fa-f]{1,4}:){6}:[0-9A-Fa-f]{1,4})|(([0-9A-Fa-f]{1,4}:){5}:([0-9A-Fa-f]{1,4}:)?[0-9A-Fa-f]{1,4})|(([0-9A-Fa-f]{1,4}:){4}:([0-9A-Fa-f]{1,4}:){0,2}[0-9A-Fa-f]{1,4})|(([0-9A-Fa-f]{1,4}:){3}:([0-9A-Fa-f]{1,4}:){0,3}[0-9A-Fa-f]{1,4})|(([0-9A-Fa-f]{1,4}:){2}:([0-9A-Fa-f]{1,4}:){0,4}[0-9A-Fa-f]{1,4})|(([0-9A-Fa-f]{1,4}:){6}((\b((25[0-5])|(1\d{2})|(2[0-4]\d)|(\d{1,2}))\b)\.){3}(\b((25[0-5])|(1\d{2})|(2[0-4]\d)|(\d{1,2}))\b))|(([0-9A-Fa-f]{1,4}:){0,5}:((\b((25[0-5])|(1\d{2})|(2[0-4]\d)|(\d{1,2}))\b)\.){3}(\b((25[0-5])|(1\d{2})|(2[0-4]\d)|(\d{1,2}))\b))|(::([0-9A-Fa-f]{1,4}:){0,5}((\b((25[0-5])|(1\d{2})|(2[0-4]\d)|(\d{1,2}))\b)\.){3}(\b((25[0-5])|(1\d{2})|(2[0-4]\d)|(\d{1,2}))\b))|([0-9A-Fa-f]{1,4}::([0-9A-Fa-f]{1,4}:){0,5}[0-9A-Fa-f]{1,4})|(::([0-9A-Fa-f]{1,4}:){0,6}[0-9A-Fa-f]{1,4})|(([0-9A-Fa-f]{1,4}:){1,7}:))(|\/[0-9]{1,3})$/';
+               $pattern['ipv4'] = '/^[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}(|\/[0-9]{1,2})$/';
+               if(preg_match($pattern['ipv4'], $ip)) {
+                       //thats quite simple here
+                       $ip = explode(".", $ip);
+                       $ipValue = intval($ip[3]);
+                       $ipValue <<= 8;
+                       $ipValue |= intval($ip[2]);
+                       $ipValue <<= 8;
+                       $ipValue |= intval($ip[1]);
+                       $ipValue <<= 8;
+                       $ipValue |= intval($ip[0]);
+                       $ip = self::intToNum($ipValue,6);
+               } else if(preg_match($pattern['ipv6'], $ip)) {
+                       //thats a little bit complicated :D (we may only have one _)
+                       $ipv6 = array();
+                       $ip = explode(":",$ip);
+                       $last_zero = false; $zero_sequence = 0; $biggest_zero_sequence = 0, $max_start = -1;
+                       foreach($ip as $i => $v) {
+                               if($v == "") {
+                                       $skipBlocks = (8 - count($ip));
+                                       for($j = 0; $j < $skipBlocks; $j++) {
+                                               $ipv6[$i+$j] = "_";
+                                       }
+                                       $max_start = $i;
+                                       $biggest_zero_sequence = $skipBlocks;
+                               } else {
+                                       $value = hexdec($v);
+                                       if($value == 0) {
+                                               $ipv6[$i] = "_";
+                                               if($last_zero) {
+                                                       $zero_sequence++;
+                                               } else {
+                                                       $last_zero = true;
+                                                       $zero_sequence = 1;
+                                               }
+                                               if($zero_sequence > $biggest_zero_sequence) {
+                                                       $biggest_zero_sequence = $zero_sequence;
+                                                       $max_start = $i-($zero_sequence-1);
+                                               }
+                                       } else {
+                                               $ipv6[$i] = self::intToNum($value,3);
+                                               $last_zero = false;
+                                       }
+                               }
+                       }
+                       $ip = "";
+                       for($i = 0; $i < 8; $i++) {
+                               if($i == $max_start) { //merge the biggest sequence of _'s
+                                       $ip .= "_";
+                                       $i += ($biggest_zero_sequence-1)
+                               } elseif($ipv6[$i] == "_") {
+                                       $ip .= "AAA";
+                               } else {
+                                       $ip .= $ipv6[$i];
+                               }
+                       }
+                       return $ip;
+               } else {
+                       $ip = "AAAAAA";
+               }
+               return $ip;
+       }
+       
 }
 
 ?>
\ No newline at end of file