From 244ed3485f7f5c2e8b64d4f6193c3680f07d8efe Mon Sep 17 00:00:00 2001
From: Matt Mullenweg <matt@git.wordpress.org>
Date: Mon, 9 Aug 2004 09:29:25 +0000
Subject: [PATCH] Fix for people who move.

git-svn-id: https://develop.svn.wordpress.org/trunk@1526 602fd350-edb4-49c9-b593-d223f7449a82
---
 wp-login.php | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/wp-login.php b/wp-login.php
index 311f3b6942..f4a1b5c901 100644
--- a/wp-login.php
+++ b/wp-login.php
@@ -37,6 +37,10 @@ for ($i = 0; $i < count($wpvarstoreset); $i = $i + 1) {
 	}
 }
 
+// If someone has moved WordPress let's try to detect it
+if ( dirname('http://' . $_SERVER['HTTP_HOST'] . $_SERVER['REQUEST_URI']) != get_settings('siteurl') )
+	update_option('siteurl', dirname('http://' . $_SERVER['HTTP_HOST'] . $_SERVER['REQUEST_URI']) );
+
 switch($action) {
 
 case 'logout':