From 4c01616d7e2ec05f8b1e9d8432b801f4e061e2bf Mon Sep 17 00:00:00 2001
From: tjhunt <tjhunt>
Date: Mon, 1 Sep 2008 04:17:01 +0000
Subject: [PATCH] MDL-15655 - address_in_subnet does not work on 64 bit
 architectures. Also, we found some other issues with this funtion while
 diagnosing the problem.

---
 lib/moodlelib.php                | 8 +++++++-
 lib/simpletest/testmoodlelib.php | 8 +++++++-
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/lib/moodlelib.php b/lib/moodlelib.php
index ef1bc9d6706..c82c0b4cc4f 100644
--- a/lib/moodlelib.php
+++ b/lib/moodlelib.php
@@ -6018,6 +6018,9 @@ function address_in_subnet($addr, $subnetstr) {
         $subnet = trim($subnet);
         if (strpos($subnet, '/') !== false) { /// type 1
             list($ip, $mask) = explode('/', $subnet);
+            if ($mask === '') {
+                $mask = 32;
+            }
             $mask = 0xffffffff << (32 - $mask);
             $found = ((ip2long($addr) & $mask) == (ip2long($ip) & $mask));
         } else if (strpos($subnet, '-') !== false)  {/// type 3
@@ -6030,7 +6033,10 @@ function address_in_subnet($addr, $subnetstr) {
                         $subnetrange[0] <= $lastaddrpart && $lastaddrpart <= $subnetrange[1]);
             }
         } else { /// type 2
-            $found = (strpos($addr, $subnet) === 0);
+            if ($subnet[strlen($subnet) - 1] != '.') {
+                $subnet .= '.';
+            }
+            $found = (strpos($addr . '.', $subnet) === 0);
         }
 
         if ($found) {
diff --git a/lib/simpletest/testmoodlelib.php b/lib/simpletest/testmoodlelib.php
index 31104e33a88..f91e5b48640 100644
--- a/lib/simpletest/testmoodlelib.php
+++ b/lib/simpletest/testmoodlelib.php
@@ -32,9 +32,15 @@ class moodlelib_test extends UnitTestCase {
         $this->assertTrue(address_in_subnet('123.121.234.15', '123.121.234.2/28'));
         $this->assertFalse(address_in_subnet('123.121.234.16', '123.121.234.2/28'));
         $this->assertFalse(address_in_subnet('123.121.234.255', '123.121.234.2/28'));
-        $this->assertTrue(address_in_subnet('123.121.234.1', '123.121.'));
+        $this->assertTrue(address_in_subnet('123.121.234.0', '123.121.234.0/')); // / is like /32.
+        $this->assertFalse(address_in_subnet('123.121.234.1', '123.121.234.0/'));
+        $this->assertFalse(address_in_subnet('232.232.232.232', '123.121.234.0/0'));
         $this->assertFalse(address_in_subnet('123.122.234.1', '123.121.'));
         $this->assertFalse(address_in_subnet('223.121.234.1', '123.121.'));
+        $this->assertTrue(address_in_subnet('123.121.234.1', '123.121'));
+        $this->assertFalse(address_in_subnet('123.122.234.1', '123.121'));
+        $this->assertFalse(address_in_subnet('223.121.234.1', '123.121'));
+        $this->assertFalse(address_in_subnet('123.121.234.100', '123.121.234.10'));
         $this->assertFalse(address_in_subnet('123.121.234.9', '123.121.234.10-20'));
         $this->assertTrue(address_in_subnet('123.121.234.10', '123.121.234.10-20'));
         $this->assertTrue(address_in_subnet('123.121.234.15', '123.121.234.10-20'));