<?php
  /**************************************************************************\
  * phpGroupWare API - Session management                                    *
  * This file written by Dan Kuykendall <seek3r@phpgroupware.org>            *
  * and Joseph Engo <jengo@phpgroupware.org>                                 *
  * Copyright (C) 2000, 2001 Dan Kuykendall                                  *
  * -------------------------------------------------------------------------*
  * This library is part of the phpGroupWare API                             *
  * http://www.phpgroupware.org/api                                          * 
  * ------------------------------------------------------------------------ *
  * This library is free software; you can redistribute it and/or modify it  *
  * under the terms of the GNU Lesser General Public License as published by *
  * the Free Software Foundation; either version 2.1 of the License,         *
  * or any later version.                                                    *
  * This library is distributed in the hope that it will be useful, but      *
  * WITHOUT ANY WARRANTY; without even the implied warranty of               *
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                     *
  * See the GNU Lesser General Public License for more details.              *
  * You should have received a copy of the GNU Lesser General Public License *
  * along with this library; if not, write to the Free Software Foundation,  *
  * Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA            *
  \**************************************************************************/

  /* $Id$ */

  class sessions
  {
    var $login;
    var $passwd;
    var $account_id;
    var $account_lid;
    var $account_domain;
    var $sessionid;
    var $kp3;
    var $data;
    var $db;
    var $db2;

		/*************************************************************************\
		* Constructor just loads up some defaults from cookies                    *
		\*************************************************************************/
    function sessions()
    {
       global $phpgw, $phpgw_info, $sessionid, $kp3;

       $this->db        = $phpgw->db;
       $this->db2       = $phpgw->db;
       $this->sessionid = $sessionid;
       $this->kp3       = $kp3;
    }

		/*************************************************************************\
		* Functions for creating and verifying the session                        *
		\*************************************************************************/
    function getuser_ip()
    {
       global $REMOTE_ADDR, $HTTP_X_FORWARDED_FOR;
       
       if ($HTTP_X_FORWARDED_FOR) {
          return $HTTP_X_FORWARDED_FOR;
       } else {
          return $REMOTE_ADDR;
       }
    }

    function verify()
    {
       global $phpgw, $phpgw_info, $sessionid, $kp3;

       $db              = $phpgw->db;
       $db2             = $phpgw->db;
       $this->sessionid = $sessionid;
       $this->kp3       = $kp3;

       $phpgw->common->key  = md5($this->kp3 . $this->sessionid . $phpgw_info["server"]["encryptkey"]);
       $phpgw->common->iv   = $phpgw_info["server"]["mcrypt_iv"];

       $cryptovars[0] = $phpgw->common->key;      
       $cryptovars[1] = $phpgw->common->iv;      
       $phpgw->crypto = CreateObject("phpgwapi.crypto", $cryptovars);

       $db->query("select * from phpgw_sessions where session_id='" . $this->sessionid . "'",__LINE__,__FILE__);
       $db->next_record();

       // This is going to be replace with the session_flag field       
       if ($db->f("session_info") == "" || $db->f("session_info") == "NULL") {
/*        $this->account_lid = $db->f("session_lid");
          $phpgw_info["user"]["sessionid"]   = $this->sessionid;
          $phpgw_info["user"]["session_ip"]  = $db->f("session_ip");

          $t = explode("@",$db->f("session_lid"));
          $this->account_lid = $t[0];

          // Now we need to re-read eveything
          $db->query("select * from phpgw_sessions where session_id='$this->sessionid'",__LINE__,__FILE__);
          $db->next_record();   */
       }

			 $login_array = explode("@", $db->f("session_lid"));
       $this->account_lid = $login_array[0];

       if ($login_array[1]!="") {
          $this->account_domain = $login_array[1];
       } else {
          $this->account_domain = $phpgw_info["server"]["default_domain"];
       }

       $phpgw_info["user"]["kp3"] = $this->kp3;
       $phpgw_info_flags    = $phpgw_info["flags"];

       $phpgw_info["flags"] = $phpgw_info_flags;
       $userid_array = explode("@",$db->f("session_lid"));
       $this->account_lid = $userid_array[0];
       $this->update_dla();
       $this->account_id = $phpgw->accounts->name2id($this->account_lid);

       if ($phpgw_info["server"]["cache_phpgw_info"]) {
      		$t = $this->appsession('phpgw_info_cache','phpgwapi');
					$phpgw_info["server"]	= $t["server"];
					$phpgw_info["user"]		= $t["user"];
					$phpgw_info["hooks"]	 = $t["hooks"];
       } else {
      		$this->read_repositories();
      		$phpgw_info["user"]		= $this->user;
      		$phpgw_info["hooks"]	 = $this->hooks;
       }

       $phpgw_info["user"]["session_ip"]  = $db->f("session_ip");
       $phpgw_info["user"]["password"]		= $this->appsession("password","phpgwapi");

       if ($userid_array[1] != $phpgw_info["user"]["domain"]) {
          return False;
       }

       if (PHP_OS != "Windows" && (! $phpgw_info["user"]["session_ip"] || $phpgw_info["user"]["session_ip"] != $this->getuser_ip())){
          return False;
       }

       $phpgw->acl->acl($this->account_id);
       $phpgw->accounts->accounts($this->account_id);
       $phpgw->preferences->preferences($this->account_id);
       $phpgw->applications->applications($this->account_id);

       if (! $this->account_lid ) {
          return False;
       } else {
          return True;
       }
    }

    // This will remove stale sessions out of the database
    function clean_sessions()
    {
       global $phpgw_info, $phpgw;

       if (!isset($phpgw_info["server"]["cron_apps"]) || ! $phpgw_info["server"]["cron_apps"]) {
          $phpgw->db->query("delete from phpgw_sessions where session_dla <= '" . (time() -  7200)
                          . "'",__LINE__,__FILE__);
       }
    }

    function create($login,$passwd)
    {
      global $phpgw_info, $phpgw;
      $this->login = $login;
      $this->clean_sessions();
      $login_array = explode("@", $login);
      $this->account_lid = $login_array[0];

      if ($login_array[1]!="") {
         $this->account_domain = $login_array[1];
      } else {
         $this->account_domain = $phpgw_info["server"]["default_domain"];
      }

      if ($phpgw_info["server"]["global_denied_users"][$this->account_lid]) {
         return False;
      }
 
      if (! $phpgw->auth->authenticate($this->account_lid, $passwd)) {
         return False;
         exit;
      }

      if (!$phpgw->accounts->exists($this->account_lid) && $phpgw_info["server"]["auto_create_acct"] == True) {
         $this->account_id = $accts->auto_add($this->account_lid, $passwd);
      } else {
         $this->account_id = $phpgw->accounts->name2id($this->account_lid);
      }
      $phpgw->accounts->account_id = $this->account_id;

      $this->sessionid		= md5($phpgw->common->randomstring(10));
      $this->kp3          = md5($phpgw->common->randomstring(15));

			$phpgw->common->key  = md5($this->kp3 . $this->sessionid . $phpgw_info["server"]["encryptkey"]);
      $phpgw->common->iv   = $phpgw_info["server"]["mcrypt_iv"];
      $cryptovars[0] = $phpgw->common->key;
      $cryptovars[1] = $phpgw->common->iv;
      $phpgw->crypto = CreateObject("phpgwapi.crypto", $cryptovars);

       if ($phpgw_info["server"]["usecookies"]) {
         Setcookie("sessionid",$this->sessionid);
         Setcookie("kp3",$this->kp3);
         Setcookie("domain",$this->account_domain);
         Setcookie("last_domain",$this->account_domain,time()+1209600);
         if ($this->account_domain == $phpgw_info["server"]["default_domain"]) {
            Setcookie("last_loginid", $this->account_lid ,time()+1209600);  // For 2 weeks
         } else {
            Setcookie("last_loginid", $login ,time()+1209600);              // For 2 weeks
         }
         unset ($phpgw_info["server"]["default_domain"]);                   // we kill this for security reasons
      }

      $this->read_repositories();
      $phpgw_info["user"]  = $this->user;
      $phpgw_info["hooks"] = $this->hooks;
			if ($phpgw_info["server"]["cache_phpgw_info"]) {
					$this->appsession('phpgw_info_cache','phpgwapi',$phpgw_info);
			}

			// If they are not useing cache, we need to store it somewhere
			$this->passwd = $this->appsession("password","phpgwapi",$passwd);

      $phpgw->db->query("insert into phpgw_sessions values ('" . $this->sessionid
                      . "','".$login."','" . $this->getuser_ip() . "','"
                      . time() . "','" . time() . "','".$info_string."')",__LINE__,__FILE__);

      $phpgw->db->query("insert into phpgw_access_log values ('" . $this->sessionid . "','"
                      . "$login','" . $this->getuser_ip() . "','" . time()
                      . "','') ",__LINE__,__FILE__);

      $phpgw->auth->update_lastlogin($this->account_id,$this->getuser_ip());

      return $this->sessionid;
    }

    // This will update the DateLastActive column, so the login does not expire
    function update_dla()
    {
       global $phpgw_info, $phpgw;
 
       $phpgw->db->query("update phpgw_sessions set session_dla='" . time() . "' where session_id='"
                       . $this->sessionid."'",__LINE__,__FILE__);
    }
    
    function destroy()
    {
       global $phpgw, $phpgw_info, $sessionid, $kp3;
       $phpgw_info["user"]["sessionid"] = $sessionid;
       $phpgw_info["user"]["kp3"] = $kp3;
 
       $phpgw->db->query("delete from phpgw_sessions where session_id='"
                       . $phpgw_info["user"]["sessionid"] . "'",__LINE__,__FILE__);
       $phpgw->db->query("delete from phpgw_app_sessions where sessionid='"
                       . $phpgw_info["user"]["sessionid"] . "'",__LINE__,__FILE__);
       $phpgw->db->query("update phpgw_access_log set lo='" . time() . "' where sessionid='"
                       . $phpgw_info["user"]["sessionid"] . "'",__LINE__,__FILE__);
       if ($phpgw_info["server"]["usecookies"]) {
          Setcookie("sessionid");
          Setcookie("kp3");
          if ($phpgw_info["multiable_domains"]) {
             Setcookie("domain");
          }
       }
       $this->clean_sessions();
       return True;
    }

		/*************************************************************************\
		* Functions for appsession data and session cache                         *
		\*************************************************************************/
    function read_repositories()
    {
      global $phpgw;
      $phpgw->acl->acl($this->account_id);
      $phpgw->accounts->accounts($this->account_id);
      $phpgw->preferences->preferences($this->account_id);
      $phpgw->applications->applications($this->account_id);

			$this->user                = $phpgw->accounts->read_repository();
      $this->user["acl"]         = $phpgw->acl->read_repository();
      $this->user["preferences"] = $phpgw->preferences->read_repository();
      $this->user["apps"]        = $phpgw->applications->read_repository();
      //@reset($this->data["user"]["apps"]);
    
      $this->user["domain"]      = $this->account_domain;
      $this->user["sessionid"]   = $this->sessionid;
      $this->user["kp3"]         = $this->kp3;
      $this->user["session_ip"]  = $this->getuser_ip();
      $this->user["session_lid"] = $this->account_lid."@".$this->account_domain;
      $this->user["account_id"]  = $this->account_id;
      $this->user["account_lid"] = $this->account_lid;
      $this->user["userid"]      = $this->account_lid;
      $this->user["passwd"]      = $this->passwd;
      $this->hooks       				= $phpgw->hooks->read();
    }

    function save_repositories()
    {
       global $phpgw, $phpgw_info;
       $phpgw_info_temp = $phpgw_info;
       $phpgw_info_temp["user"]["kp3"] = "";
       $phpgw_info_temp["flags"] = array();

			if ($phpgw_info["server"]["cache_phpgw_info"]) {
					$this->appsession("phpgw_info_cache","phpgwapi",$phpgw_info_temp);
			}
    }

    function appsession($location = "default", $appname = "", $data = "##NOTHING##")
    {
      global $phpgw_info, $phpgw;

			if (! $appname) {
					$appname = $phpgw_info['flags']['currentapp'];
			}

			/* This allows the user to put "" as the value. */
      if ($data == "##NOTHING##") {
      		$phpgw->db->query('select content from phpgw_app_sessions where'
													 .' sessionid = "'.$this->sessionid.'" and loginid = "'.$this->account_id.'"'
								 					.' and app = "'.$appname.'" and location = "'.$location.'"',__LINE__,__FILE__);

	        $phpgw->db->next_record();
	        $data = $phpgw->db->f("content");
	        $data = $phpgw->common->decrypt($data);
	        return $data;
      } else {
	      $phpgw->db->query('select content from phpgw_app_sessions where '
												. 'sessionid = "'.$this->sessionid.'" and loginid = "'.$this->account_id.'" '
												. 'and app = "'.$appname.'" and location = "'.$location.'"',__LINE__,__FILE__);
	      if ($phpgw->db->num_rows()==0) {
    				$data = addslashes($phpgw->crypto->encrypt(serialize($data)));
		      	$phpgw->db->query('INSERT INTO phpgw_app_sessions (sessionid,loginid,app,location,content) '
														. 'VALUES ("'.$this->sessionid.'","'.$this->account_id.'","'.$appname
														. '","'.$location.'","'.$data.'")',__LINE__,__FILE__);
	      } else {
	      		$data = addslashes($phpgw->crypto->encrypt(serialize($data)));
		      	$phpgw->db->query('update phpgw_app_sessions set content = "'.$data.'" '
														. 'where sessionid = "'.$this->sessionid.'" '
														. 'and loginid = "'.$this->account_id.'" and app = "'.$appname.'" '
														. 'and location = "'.$location.'"',__LINE__,__FILE__);
	      }
        return $data;
      }
    }

		function restore()
		{
			global $phpgw;

			$serializedData = $phpgw->common->appsession();
			$sessionData = unserialize($serializedData);  
			
			if (is_array($sessionData))
			{
				reset($sessionData);
				while(list($key,$value) = each($sessionData))
				{
					global $$key;
					$$key = $value;
					$this->variableNames[$key]="registered";
					#print "restored: ".$key.", $value<br>";
				}
			}
		}
		
		// save the current values of the variables
		function save()
		{
			global $phpgw;
			
			if (is_array($this->variableNames))
			{
				reset($this->variableNames);
				while(list($key, $value) = each($this->variableNames))
				{
					if ($value == "registered")
					{
						global $$key;
						$sessionData[$key] = $$key;
					}
				}
				$serializedData = addslashes(serialize($sessionData));
				$phpgw->common->appsession($serializedData);
			}
		}
		
		// create a list a variable names, wich data need's to be restored
		function register($_variableName)
		{
			$this->variableNames[$_variableName]="registered";
			#print "registered $_variableName<br>";
		}
		
		// mark variable as unregistered
		function unregister($_variableName)
		{
			$this->variableNames[$_variableName]="unregistered";
			#print "unregistered $_variableName<br>";
		}

		// check if we have a variable registred already
		function is_registered($_variableName)
		{
			if ($this->variableNames[$_variableName] == "registered")
			{
				return True;
			}
			else
			{
				return False;
			}
		}


		/*************************************************************************\
		* Function to handle session support via url or cookies                   *
		\*************************************************************************/

		function link($url = "", $extravars = "")
		{
			global $phpgw, $phpgw_info, $usercookie, $kp3, $PHP_SELF;
			
			/* Fix problems when PHP_SELF if used as the param */
			if ($url == $PHP_SELF){ $url = ""; }
			
			if (! $kp3) { $kp3 = $phpgw_info["user"]["kp3"]; }

			// Explicit hack to work around problems with php running as CGI on windows
			// please let us know if this doesn't work for you!
			if (! $url && (PHP_OS == "Windows" || PHP_OS == "OS/2" || PHP_OS == "WIN32" || PHP_OS == "WIN16")) {
				$exe = strpos($PHP_SELF,"php.exe");
				if ($exe != false) {
					$exe += 7; // strlen("php.exe")
					$url_root = split ("/", $phpgw_info["server"]["webserver_url"]);
					$url = (strlen($url_root[0])? $url_root[0].'//':'') . $url_root[2];
					$url .= substr($PHP_SELF,$exe,strlen($PHP_SELF)-$exe);
				}
			}
			if (! $url) {
				$url_root = split ("/", $phpgw_info["server"]["webserver_url"]);
				/* Some hosting providers have their paths screwy.
					 If the value from $PHP_SELF is not what you expect, you can use this to patch it
					 It will need to be adjusted to your specific problem tho.
				*/
				//$patched_php_self = str_replace("/php4/php/phpgroupware", "/phpgroupware", $PHP_SELF);
				$patched_php_self = $PHP_SELF;
				$url = (strlen($url_root[0])? $url_root[0].'//':'') . $url_root[2] . $patched_php_self;
			}

			if (isset($phpgw_info["server"]["usecookies"]) &&
				$phpgw_info["server"]["usecookies"]) {
				if ($extravars) { $url .= "?$extravars"; }
			} else {
				$url .= "?sessionid=" . $phpgw_info["user"]["sessionid"];
				$url .= "&kp3=" . $kp3;
				$url .= "&domain=" . $phpgw_info["user"]["domain"];
				// This doesn't belong in the API.
				// Its up to the app to pass this value. (jengo)
				// Putting it into the app requires a massive number of updates in email app. 
				// Until that happens this needs to stay here (seek3r)
				if ($phpgw_info["flags"]["newsmode"]) { $url .= "&newsmode=on"; }
				if ($extravars) { $url .= "&$extravars"; }
			}

			$url = str_replace("/?", "/index.php?", $url);
			$webserver_url_count = strlen($phpgw_info["server"]["webserver_url"]);
			$slash_check = strtolower(substr($url ,0,1));
			if(substr($url ,0,$webserver_url_count) != $phpgw_info["server"]["webserver_url"]) {
				$app = $phpgw_info["flags"]["currentapp"];
				if($slash_check == "/") {
					$url = $phpgw_info["server"]["webserver_url"].$url; 
				} elseif ($app == "home" || $app == "logout" || $app == "login"){
					$url = $phpgw_info["server"]["webserver_url"]."/".$url; 
				}else{ 
					$url = $phpgw_info["server"]["webserver_url"]."/".$app."/".$url; 
				}
			} 
			return $url;
		}  
  }
?>