gnufm/gnukebox/utils/get_absolute_url.php

<?php

/* GNUkebox -- a free software server for recording your listening habits

   Copyright (C) 2009 Free Software Foundation, Inc

   This program is free software: you can redistribute it and/or modify
   it under the terms of the GNU Affero General Public License as published by
   the Free Software Foundation, either version 3 of the License, or
   (at your option) any later version.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU Affero General Public License for more details.

   You should have received a copy of the GNU Affero General Public License
   along with this program.  If not, see <http://www.gnu.org/licenses/>.

*/

function getAbsoluteURL() {
	$scriptName = $_SERVER['SCRIPT_NAME'];
	$path = explode('/', $scriptName);
	array_pop($path);
	$server = $_SERVER['HTTP_HOST'];
	$string = (implode('/', $path) . '/');
	return 'http://' . $server . $string;
}