[locations] Add warnings/cleanup for bad machine to roomplan mappings

1 files changed, 79 insertions, 0 deletions

diff --git a/modules-available/locations/pages/subnets.inc.php b/modules-available/locations/pages/subnets.inc.php
new file mode 100644
index 00000000..6c37129a
--- /dev/null
+++ b/modules-available/locations/pages/subnets.inc.php
@@ -0,0 +1,79 @@
+<?php
+
+class SubPage
+{
+
+	public static function doPreprocess($action)
+	{
+		if ($action === 'updatesubnets') {
+			self::updateSubnets();
+			return true;
+		}
+		return false;
+	}
+
+	private static function updateSubnets()
+	{
+		User::assertPermission('subnets.edit', NULL, '?do=locations');
+		$count = 0;
+		$starts = Request::post('startaddr', false);
+		$ends = Request::post('endaddr', false);
+		$locs = Request::post('location', false);
+		if (!is_array($starts) || !is_array($ends) || !is_array($locs)) {
+			Message::addError('main.empty-field');
+			Util::redirect('?do=Locations');
+		}
+		$existingLocs = Location::getLocationsAssoc();
+		$stmt = Database::prepare("UPDATE subnet SET startaddr = :startLong, endaddr = :endLong, locationid = :loc WHERE subnetid = :subnetid");
+		foreach ($starts as $subnetid => $start) {
+			if (!isset($ends[$subnetid]) || !isset($locs[$subnetid]))
+				continue;
+			$loc = (int)$locs[$subnetid];
+			$end = $ends[$subnetid];
+			if (!isset($existingLocs[$loc])) {
+				Message::addError('main.value-invalid', 'locationid', $loc);
+				continue;
+			}
+			$range = LocationUtil::rangeToLongVerbose($start, $end);
+			if ($range === false)
+				continue;
+			list($startLong, $endLong) = $range;
+			if ($stmt->execute(compact('startLong', 'endLong', 'loc', 'subnetid'))) {
+				$count += $stmt->rowCount();
+			}
+		}
+		AutoLocation::rebuildAll();
+		Message::addSuccess('subnets-updated', $count);
+		Util::redirect('?do=Locations');
+	}
+
+	public static function doRender($getAction)
+	{
+		if ($getAction === false) {
+			User::assertPermission('subnets.edit', NULL, '?do=locations');
+			$res = Database::simpleQuery("SELECT subnetid, startaddr, endaddr, locationid FROM subnet");
+			$rows = array();
+			while ($row = $res->fetch(PDO::FETCH_ASSOC)) {
+				$row['startaddr'] = long2ip($row['startaddr']);
+				$row['endaddr'] = long2ip($row['endaddr']);
+				$row['locations'] = Location::getLocations($row['locationid']);
+				$rows[] = $row;
+			}
+			$data = array('list' => $rows);
+			Permission::addGlobalTags($data['perms'], NULL, ['location.view']);
+			Render::addTemplate('subnets', $data);
+			return true;
+		}
+		return false;
+	}
+
+	public static function doAjax($action)
+	{
+		return false;
+	}
+
+	/*
+	 * Helpers
+	 */
+
+}
\ No newline at end of file