From 81ce05a964142f77539b11926d4638b085201daf Mon Sep 17 00:00:00 2001
From: icewing <icewing@36083f99-b078-4883-b0ff-0f9b5a30f544>
Date: Tue, 20 May 2008 11:04:57 +0000
Subject: Marcus Povey <marcus@dushka.co.uk> * Introducing: current_page_url()

git-svn-id: https://code.elgg.org/elgg/trunk@654 36083f99-b078-4883-b0ff-0f9b5a30f544
---
 engine/lib/elgglib.php | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

(limited to 'engine')

diff --git a/engine/lib/elgglib.php b/engine/lib/elgglib.php
index 9005cf010..7e785ce07 100644
--- a/engine/lib/elgglib.php
+++ b/engine/lib/elgglib.php
@@ -38,6 +38,30 @@
 			return false;
 			
 		}
+
+		/**
+		 * Return the current page URL.
+		 */
+		function current_page_url()
+		{
+			global $CONFIG;
+			
+			$url = parse_url($CONFIG->wwwroot);
+		
+			$page = $url['scheme'] . "://";
+	
+			// user/pass
+			if ($url['user']) $page .= $url['user'];
+			if ($url['pass']) $page .= ":".$url['pass'];
+			if (($url['user']) || $url['pass']) $page .="@";
+			
+			$page .= $url['host'];
+			$page = trim($page, "/"); $page.="/";
+			
+			$page .= $_SERVER['REQUEST_URI'];
+			
+			return $page;
+		}
 		
 	/**
 	 * Templating
-- 
cgit v1.2.3