[wp-cvs] wordpress wp-login.php,1.29,1.30

[Matthew Mullenweg]

Update of /cvsroot/cafelog/wordpress
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26175

Modified Files:
	wp-login.php 
Log Message:
Fix for people who move.

Index: wp-login.php
===================================================================
RCS file: /cvsroot/cafelog/wordpress/wp-login.php,v
retrieving revision 1.29
retrieving revision 1.30
diff -C2 -d -r1.29 -r1.30
*** wp-login.php	5 Aug 2004 15:54:15 -0000	1.29
--- wp-login.php	9 Aug 2004 09:29:25 -0000	1.30
***************
*** 38,41 ****
--- 38,45 ----
  }
  
+ // 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) {