[SM-CVS] CVS: squirrelmail/functions mime.php,1.146,1.147

[Pontus U. <ul...@us...>]

Update of /cvsroot/squirrelmail/squirrelmail/functions
In directory usw-pr-cvs1:/tmp/cvs-serv27755/functions

Modified Files:
	mime.php 
Log Message:
Fixed [ #500024 ] HREF is wrong on ssl server
base href didn't contain protocol.


Index: mime.php
===================================================================
RCS file: /cvsroot/squirrelmail/squirrelmail/functions/mime.php,v
retrieving revision 1.146
retrieving revision 1.147
diff -u -w -r1.146 -r1.147
--- mime.php	2002/01/15 11:22:35	1.146
+++ mime.php	2002/01/15 16:53:12	1.147
@@ -411,6 +411,7 @@
                 $k++;
             }
             if ( $base <> '' )
+                
                 $ret = "<base href=\"$base\">" . $ret;
         }
     } else if (ereg('"([^"]*)"', $topline, $regs)) {
@@ -1023,7 +1024,7 @@
 return( "\n\n<!-- HTML Output ahead -->\n" .
         $ret .
         "\n<!-- END of HTML Output --><base href=\"".
-        $HTTP_SERVER_VARS["SERVER_NAME"] . substr( $PHP_SELF, 0, strlen( $PHP_SELF ) - 13 ) .
+        get_location() . '/'.
         "\">\n\n" );
 }