[Sommaire] [Imprimer]

   1  <?php
   2  /*
   3   * $Id: login.php,v 1.2 2004/08/03 01:14:22 cknudsen Exp $
   4   *
   5   * Description:
   6   *     Provides login mechanism for web service clients.
   7   */
   8  
   9  $basedir = "..";
  10  $includedir = "../includes";
  11  
  12  include "$includedir/config.php";
  13  include "$includedir/php-dbi.php";
  14  include "$includedir/functions.php";
  15  include "$includedir/$user_inc";
  16  include "$includedir/connect.php";
  17  
  18  load_global_settings ();
  19  
  20  if ( ! empty ( $last_login ) )
  21    $login = "";
  22  
  23  include "$includedir/translate.php";
  24  
  25  // calculate path for cookie
  26  if ( empty ( $PHP_SELF ) )
  27    $PHP_SELF = $_SERVER["PHP_SELF"];
  28  $cookie_path = str_replace ( "login.php", "", $PHP_SELF );
  29  //echo "Cookie path: $cookie_path\n";
  30  
  31  $out = "<login>\n";
  32  
  33  if ( $single_user == "Y" ) {
  34    // No login for single-user mode
  35    $out .= "<error>No login required for single-user mode</error>\n";
  36  } else if ( $use_http_auth ) {
  37    // There is no login page when using HTTP authorization
  38    $out .= "<error>No login required for HTTP authentication</error>\n";
  39  } else {
  40    if ( ! empty ( $login ) && ! empty ( $password ) ) {
  41      $login = trim ( $login );
  42      if ( user_valid_login ( $login, $password ) ) {
  43        user_load_variables ( $login, "" );
  44        // set login to expire in 365 days
  45        srand((double) microtime() * 1000000);
  46        $salt = chr( rand(ord('A'), ord('z'))) . chr( rand(ord('A'), ord('z')));
  47        $encoded_login = encode_string ( $login . "|" . crypt($password, $salt) );
  48        //SetCookie ( "webcalendar_session", $encoded_login, 0, $cookie_path );
  49        $out .= "  <cookieName>webcalendar_session</cookieName>\n";
  50        $out .= "  <cookieValue>$encoded_login</cookieValue>\n";
  51        if ( $is_admin )
  52          $out .= "  <admin>1</admin>\n";
  53      } else {
  54        $out .= "  <error>Invalid login</error>\n";
  55      }
  56    }
  57  }
  58  
  59  echo $out;
  60  echo "</login>\n";
  61  ?>