From 4826eb8341cb59be74273aff28655a5be2d3a5c4 Mon Sep 17 00:00:00 2001
From: denis <denis@itlg.ru>
Date: Fri, 12 Feb 2016 12:06:12 +0300
Subject: [PATCH] improvement: add support for IP based macro i.e.
 {{page>faq:@IP_10.10.8.0/24@}} will include page faq:10.10.8.0_24 if client
 ip addres is in network 10.10.8.0/24

{{page>faq:@IP_10.0.0.0/8@}}
will include page faq:10.0.0.0_8 if client ip addres is in network 10.0.0.0/8
---
 helper.php | 60 +++++++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 59 insertions(+), 1 deletion(-)

diff --git a/helper.php b/helper.php
index a854b22..c1ccdd5 100644
--- a/helper.php
+++ b/helper.php
@@ -826,7 +826,49 @@ function _get_language_of_wiki($id, $parent_id) {
        }                                                                                       
        return cleanID($result);                                                                
     }
-    
+    /**
+     * calc ip-adress to in_addr-representation
+     * @link http://www.php.net/manual/de/function.inet-pton.php#93501 source and idea
+     */
+    function ip2pton($ipaddr) {
+
+        // Strip out the netmask, if there is one.
+        $cx = strpos($ipaddr, '/');
+        if ($cx)
+        {
+            $subnet = (int)(substr($ipaddr, $cx+1));
+            $ipaddr = substr($ipaddr, 0, $cx);
+        }
+        else $subnet = null; // No netmask present
+                
+        // Convert address to packed format
+        $addr = inet_pton($ipaddr);
+     
+        // Convert the netmask
+        if (is_integer($subnet))
+        {
+            // Maximum netmask length = same as packed address
+            $len = 8*strlen($addr);
+            if ($subnet > $len) $subnet = $len;
+                        
+            // Create a hex expression of the subnet mask
+            $mask  = str_repeat('f', $subnet>>2);
+            switch($subnet & 3)
+            {
+                case 3: $mask .= 'e'; break;
+                case 2: $mask .= 'c'; break;
+                case 1: $mask .= '8'; break;
+            }
+            $mask = str_pad($mask, $len>>2, '0');
+
+            // Packed representation of netmask
+            $mask = pack('H*', $mask);
+        }
+        
+        // Return logical and of addr and mask
+            return ($addr & $mask);
+    }
+
     /**
      * Makes user or date dependent includes possible
      */
@@ -876,6 +918,22 @@ function _apply_macro($id, $parent_id) {
             $id = preg_replace('/@DATE(\w+)@/','', $id);
         }
 
+        if(preg_match('/@IP_(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})(\/(\d{1,2}))?@/',$id,$matches)) {
+
+            $ipadd=$matches[1];
+            $mask='24';//default mask
+            if(count($matches)>2){
+              $mask=$matches[3];
+            }
+            //dbglog('$ipadd='.$ipadd.' $mask='.$mask);
+
+            if($this->ip2pton($ipadd.'/'.$mask) === $this->ip2pton(clientIP(true).'/'.$mask)){
+        	$id = preg_replace('/@IP_(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})(\/(\d{1,2}))?@/',$ipadd.'_'.$mask, $id);
+        	//dbglog('found!!! '.$id);
+            }
+
+        }
+
         $replace = array(
                 '@USER@'  => cleanID($user),
                 '@NAME@'  => cleanID($INFO['userinfo']['name']),