wp_guess_url() and install styling fixes from sambauers. fixes #7129 see #4732

git-svn-id: https://develop.svn.wordpress.org/trunk@8182 602fd350-edb4-49c9-b593-d223f7449a82
This commit is contained in:
Ryan Boren
2008-06-24 17:36:21 +00:00
parent 0194deef72
commit ce2dafe0e5
4 changed files with 19 additions and 11 deletions

View File

@@ -2126,4 +2126,14 @@ function force_ssl_admin($force = '') {
return $forced;
}
function wp_guess_url() {
if ( defined('WP_SITEURL') && '' != WP_SITEURL ) {
$url = WP_SITEURL;
} else {
$schema = ( isset($_SERVER['HTTPS']) && strtolower($_SERVER['HTTPS']) == 'on' ) ? 'https://' : 'http://';
$url = preg_replace('|/wp-admin/.*|i', '', $schema . $_SERVER['HTTP_HOST'] . $_SERVER['REQUEST_URI']);
}
return $url;
}
?>