final try

[squirrelmail.git] / src / login.php
diff --git a/src/login.php b/src/login.php

index fdcfc86f4333befa4f31e1ff752bf54a90f68940..e84abbcd4e6d5cf9f1a2d611ecd7c804c47a6671 100644 (file)
--- a/src/login.php
+++ b/src/login.php
@@ -66,9 +66,13 @@ require_once('../functions/page_header.php');
   */
  set_up_language($squirrelmail_language, TRUE);
  
-/* Need the base URI to set the cookies. (Same code as in webmail.php). */
-ereg ("(^.*/)[^/]+/[^/]+$", $PHP_SELF, $regs);
-$base_uri = $regs[1];
+/**
+ * Find out the base URI to set cookies.
+ */
+if (!function_exists('sqm_baseuri')){
+    require_once('../functions/display_messages.php');
+}
+$base_uri = sqm_baseuri();
  @session_destroy();
  
  /*
@@ -76,7 +80,8 @@ $base_uri = $regs[1];
   * we get a new one.
   */
  $cookie_params = session_get_cookie_params();
-setcookie(session_name(),'',0,$cookie_params['path'].$cookie_params['domain']);
+setcookie(session_name(), '', 0, $cookie_params['path'], 
+          $cookie_params['domain']);
  setcookie('username', '', 0, $base_uri);
  setcookie('key', '', 0, $base_uri);
  header('Pragma: no-cache');
@@ -85,7 +90,7 @@ do_hook('login_cookie');
  
  /* Output the javascript onload function. */
  
-$header = "<SCRIPT LANGUAGE=\"JavaScript\">\n" .
+$header = "<SCRIPT LANGUAGE=\"JavaScript\" TYPE=\"text/javascript\">\n" .
            "<!--\n".
            "  function squirrelmail_loginpage_onload() {\n".
            "    document.forms[0].js_autodetect_results.value = '" . SMPREF_JS_ON . "';\n".
@@ -98,7 +103,7 @@ displayHtmlHeader( "$org_name - " . _("Login"), $header, FALSE );
  
  /* Set the title of this page. */
  echo '<BODY TEXT="#000000" BGCOLOR="#FFFFFF" LINK="#0000CC" VLINK="#0000CC" ALINK="#0000CC" onLoad="squirrelmail_loginpage_onload();">'.
-     "\n<FORM ACTION=\"redirect.php\" METHOD=\"POST\" NAME=f>\n";
+     "\n<FORM ACTION=\"redirect.php\" METHOD=\"POST\">\n";
  
  $username_form_name = 'login_username';
  $password_form_name = 'secretkey';
@@ -124,7 +129,7 @@ echo '<CENTER>'.
       "</CENTER>\n".
  
       "<CENTER>\n".
-     "<TABLE COLS=1 WIDTH=350>\n".
+     "<TABLE COLS=\"1\" WIDTH=\"350\">\n".
       "   <TR><TD ALIGN=CENTER BGCOLOR=\"#DCDCDC\">\n".
       '      <B>' . sprintf (_("%s Login"), $org_name) . "</B>\n".
       "   </TD></TR>".