<?php
/*
  This code is part of GOsa (https://gosa.gonicus.de)
  Copyright (C) 2004  Cajus Pollmeier

  This program is free software; you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation; either version 2 of the License, or
  (at your option) any later version.

  This program 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 General Public License for more details.

  You should have received a copy of the GNU General Public License
  along with this program; if not, write to the Free Software
  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
*/


/**
* Manages terminal server settings for Samba 3.
*
* @package modules
* @author Cajus Pollmeier
*/

/**
 * File header
 */
define ("SAMBA_MUNGEDDIAL_FILEHEADER",
        "20002000200020002000200020002000".
        "20002000200020002000200020002000".
        "20002000200020002000200020002000".
        "20002000200020002000200020002000".
        "20002000200020002000200020002000".
        "20002000200020002000200020002000".
      	"5000");
/**
 * File header for old format.
 */
define ("SAMBA_MUNGEDDIAL_FILEHEADER_OLD",   
        "6d000800200020002000200020002000".
        "20002000200020002000200020002000".
        "20002000200020002000200064000100".
        "20002000200020002000200020002000".
        "20002000200020002000200020002000".
        "20002000200020002000200020002000".
        "50001000");
/**
* Manages terminal server settings for Samba 3.
*
* @author Cajus Pollmeier
* @package modules
*/
class sambaMungedDial
{
  /* Terminal server variables (samba3) */
  public $ctx= array(
  	'CtxCfgPresent' =>	        	'551e0bb0',
	  'CtxCfgFlags1' =>	          	'00e00010',
  	'CtxCallback' =>	          	'',
  	'CtxShadow' =>	          		'01000000',
  	'CtxMaxConnectionTime' =>   	'',
  	'CtxMaxDisconnectionTime' =>	'',
  	'CtxMaxIdleTime' => 	      	'',
  	'CtxKeyboardLayout' =>	     	'',
  	'CtxMinEncryptionLevel' =>  	'00',
  	'CtxWorkDirectory' =>	      	'',
  	'CtxNWLogonServer' =>	      	'',  
  	'CtxWFHomeDir' =>	           	'',
  	'CtxWFHomeDirDrive' =>	    	'',
  	'CtxWFProfilePath' =>	      	'',
  	'CtxInitialProgram' =>	     	'',
  	'CtxCallbackNumber' =>	    	'');

  /* attribute list for save action */
  public $ctxattributes= array("CtxCfgPresent", "CtxCfgFlags1", "CtxCallback",
        "CtxShadow", "CtxMaxConnectionTime", "CtxMaxDisconnectionTime",
        "CtxMaxIdleTime", "CtxKeyboardLayout", "CtxMinEncryptionLevel",
        "CtxWorkDirectory", "CtxNWLogonServer", "CtxWFHomeDir",
        "CtxWFHomeDirDrive", "CtxWFProfilePath", "CtxInitialProgram",
        "CtxCallbackNumber");	

  /* These parameters are treated as strings and get a trailing zero */
  private $stringParams= array( "CtxWorkDirectory", "CtxNWLogonServer", 
			"CtxWFHomeDir", "CtxWFHomeDirDrive", 
			"CtxWFProfilePath", "CtxInitialProgram", "CtxCallbackNumber");

  /* These parameters are treated as time values and get converted */
  private $timeParams= array("CtxMaxConnectionTime", "CtxMaxDisconnectionTime", "CtxMaxIdleTime");

  private $old_behavior= false;

  /** strhex */
  function strhex($string)
  {
  	$hex="";

  	for ($i=0; $i<strlen($string); $i++) {
  		$hex.= dechex(ord($string[$i]));
    }
	
  	return ($hex);
  }

  /** hexstr */
  function hexstr($hex)
  {
  	$string="";

  	for ($i=0; $i<strlen($hex)-1; $i+=2) {
  		$string.= chr(hexdec($hex[$i].$hex[$i+1]));
  	}
  
  	return ($string);
  }

  /** endian */
  function endian($src)
  {
  	return (substr($src, 2, 2).substr($src, 0, 2));
  }

  /** genTime */
  function genTime ($minutes)
  {
  	$usec= (int) ($minutes * 60 * 1000);
  	$src=  sprintf('%04x%04x', $usec & 0x0FFFF, ($usec & 0x0FFFF0000) >> 16);
  	return (sambaMungedDial::endian(substr($src, 0, 4)).sambaMungedDial::endian(substr($src, 4, 4)));
  }

  /** readTime */
  function readTime ($time)
  {
  	$lo= substr($time, 0, 4);
  	$hi= substr($time, 4, 4);
  
  	$usecs= (hexdec(substr($lo, 2, 2)) * 256 + hexdec(substr($lo, 0, 2))) +
  		(hexdec(substr($hi, 2 ,2)) * 256 + hexdec(substr($hi, 0, 2))) * 256 * 256;
  
  	return ((int)($usecs / (60 * 1000)));
  }

  /** to8bit */
  function to8bit($string)
  {
  	$result= "";
  
  	/* Strip zeros */
  	for ($i= 0; $i<strlen($string); $i++){
  		if ($string[$i] != chr(0)){
  			$result.= $string[$i];
  		}
  	}
  
  	return ($result);
  }

  /** Checks if this is a valid Samba path. */
  function is_samba_path($path)
  {
  	if ($path == ""){
  		return (TRUE);
  	}

  	if (!preg_match('/^[a-z0-9%\\\\_.:+-\\\\$]+$/i', $path)){
  		return (FALSE);
  	}
  
  	return preg_match ("/\\\\.+$/", $path);
  }

  /** Encode full MungedDial-String */
  function encode_munged ($params)
  {
  	/* Walk through the parameters and convert them */
  	$result= sambaMungedDial::hexstr(SAMBA_MUNGEDDIAL_FILEHEADER);
  
  	// CHANGED: We need to insert the number of attributes right after SAMBA_MUNGEDDIAL_FILEHEADER.
  	$counter= 0;
  	$result_tmp= "";
  	foreach ($params as $paramName => $paramValue) {
  		/* String parameter? */
  		if (in_array($paramName, $this->stringParams)){
  			$isString= TRUE;
  			$paramValue= sambaMungedDial::strhex($paramValue.chr(0).chr(0));
  		} else {
  			$isString= FALSE;
  		}
  
  		/* Time parameter? */
  		if (in_array($paramName, $this->timeParams)){
  			$paramValue= sambaMungedDial::genTime($paramValue);
  		}
  
  		$result_tmp.= sambaMungedDial::munge($paramName, $paramValue, $isString);
  		$counter++;
  	}
  	
  	// First add the number of attributes
  	$result.= sambaMungedDial::hexstr(sprintf("%02x00", $counter));
  
  	// Then the usual stuff
  	$result.= $result_tmp;
  
  	return ($result);
  }

  /** Setup parameter given by paramName to MungedDial-Format */
  function munge($paramName, $paramValue, $isString) 
  {
  	$result= "";
  	
  	/* Encode paramName to UTF-16 */
          if (function_exists("recode")){
                  $utfName= recode("ISO8859-15..UTF-16", $paramName);
          } else {
                  $utfName= iconv("ISO8859-15", "UTF-16BE", $paramName);
          }
  
  	/* Set parameter length, high and low byte */
  	$paramLen= strlen($utfName);
  	$result.= chr($paramLen & 0x0FF);
  	$result.= chr(($paramLen & 0x0FF00) >> 8);
  
  	/* String parameters have additional trailing bytes */
  	$valueLen= strlen($paramValue);
  	$result.= chr($valueLen & 0x0FF);
  	$result.= chr(($valueLen & 0x0FF00) >> 8);
  	
  	/* Length fields have a trailing '01' appended by the UTF-16 converted name */
  	$result.= chr(1);
  	$result.= $utfName;
  
  	/* Parameter is padded with '00' */
  	$result.= chr(0);
  	$result.= $paramValue;
  
  	/* Append a trailing '00' to string parameters */
  	if ($isString && (strlen($paramValue) & 1)){
  		$result.= chr(0);
  	}
  	
  	return ($result);
  }

  /** Takes a base64-encoded MungedDial-String and returns an array of included parameters and values */
  function decode_munged($munge)
  {
  	$result= array();
  		
  	/* 
  	 * Remove base64 encoding and skip SAMBA_MUNGEDDIAL_FILEHEADER.
  	 * The '4' is added, because the SAMBA_MUNGEDDIAL_FILEHEADER has been stripped by 4 chars.
  	 * This is the number of attributes following - we don't need this at read time, only when writing.
  	 */
    if(substr(base64_decode($munge),0,2)=="6d") {
      $this->old_behavior=true;
    }

    $ctxField="";
    if($this->old_behavior) {
  	  $ctxField= substr(base64_decode($munge), (strlen(SAMBA_MUNGEDDIAL_FILEHEADER_OLD)) / 2);
    } else {
  	  $ctxField= substr(base64_decode($munge), (strlen(SAMBA_MUNGEDDIAL_FILEHEADER)+4) / 2);
    }
  
  	/* Decode parameters */
  	while ($ctxField!=""){
  
  		/* Read value lengths */
  		$ctxParmNameLength= ord($ctxField[0]) + 16 * ord($ctxField[1]);
  		$ctxParmLength= ord($ctxField[2]) + 16 * ord($ctxField[3]);
  				
  		/* Reposition ctxField on start of parameter name, read parameter name */
  		$ctxField= substr($ctxField, 6);
  		$ctxParmName= sambaMungedDial::to8bit(substr($ctxField, 0, $ctxParmNameLength));
  				
  		/* Reposition ctxField on start of parameter */
  		$ctxField= substr($ctxField, $ctxParmNameLength);
  		$ctxParm= substr($ctxField, 0, $ctxParmLength);
  				
  		/* If string parameter, convert */
  		if (in_array($ctxParmName, $this->stringParams)){
  				$ctxParm= sambaMungedDial::hexstr($ctxParm);
  		}
  		/* If time parameter, convert */
  		if (in_array($ctxParmName, $this->timeParams)){
  			$ctxParm= sambaMungedDial::readTime($ctxParm);
  		}
  
  		/* Assign in result array */
  		$result[$ctxParmName]= trim($ctxParm);
  				
  		/* Reposition ctxField on end of parameter and continue */
  		$ctxField= substr($ctxField, $ctxParmLength);
  	}
  
  	return ($result);
  }

  /** function takes a base64-encoded sambaMungedDial */
  function load ($mungedDial)
  {
  	$this->ctx= $this->decode_munged($mungedDial);
  }

  /** Returns ready-to-run mungedDialString to be filled into ldap */
  function getMunged ()
  {
  	// Do extra check for valid timeParams (they must be set to 0 if disabled)
  	foreach($this->timeParams as $value) {
	  	if(!isset($this->ctx[$value])) {
	  		$this->ctx[$value]= 0;
	  	}
  	}
  	return base64_encode($this->encode_munged($this->ctx));
  }

  /** Returns array of flags, which can be set on-demand with activated java-script */
  function getOnDemandFlags ()
  {
  	$result= array();
	foreach ($this->timeParams as $value) {
		$result[$value."Mode"]= "";
	}
	$result['CtxInitialProgramMode'] = "";
  	return $result;
  }

  /** Gets Terminal-Server-Login value: enabled/disabled */
  function getTsLogin ()
  {
   	$flags= ord(substr($this->ctx['CtxCfgFlags1'], 5, 1));
    	
  	if ($flags & 1) {
    		$result= false;
    	} else {
  	  	$result= true;
    }
  
  	return $result;
  }

  /** Sets Terminal-Server-Login value: enabled/disabled */
  function setTsLogin ($checked)
  {
  	$flag= substr($this->ctx['CtxCfgFlags1'], 5, 1);
  	
  	if ($checked) {
   		$flag|= 1;
  	} else {
   		$flag&= 0xFE;
  	}
  	
  	$this->ctx['CtxCfgFlags1'][5]= sprintf('%1x', $flag);
  }

  /** gets Broken-Connection value: disconnect/reset */
  function getBrokenConn ()
  {
  	$flags= ord(substr($this->ctx['CtxCfgFlags1'], 5, 1));
  	if ($flags & 4) {
  		$result= "1";
  	} else {
  		$result= "0";
  	}
  	
  	return $result;
  }

  /** sets Broken-Connection value: disconnect/reset */
  function setBrokenConn ($checked) 
  {
  	$flag= substr($this->ctx['CtxCfgFlags1'], 5, 1);
  	
  	if ($checked) {
  		$flag|= 4;
  	} else {
  		$flag&= 0xFB;
  	}
  	
  	$this->ctx['CtxCfgFlags1'][5]= sprintf('%1x', $flag);
  }

  /** gets Reconnection value: from any client/from previous client only */
  function getReConn ()
  {
  	$flags= ord(substr($this->ctx['CtxCfgFlags1'], 5, 1));
  	if ($flags & 2) {
  		$result= "1";
  	} else {
  		$result= "0";	
  	}
  	
  	return $result;
  }

  /** sets Reconnection value: from any client/from previous client only */
  function setReConn ($checked)
  {
  	$flag= substr($this->ctx['CtxCfgFlags1'], 5, 1);
  	
  	if ($checked) {
  		$flag|= 2;
  	} else {
  		$flag&= 0xFD;
  	}
  	
  	$this->ctx['CtxCfgFlags1'][5]= sprintf('%1x', $flag);
  }

  /** gets Inherit-config-from-client value: enabled/disabled */
  function getInheritMode ()
  {
  	if (substr($this->ctx['CtxCfgFlags1'], 6, 1) == "1") {
  		$result= true;
  	} else {
  		$result= false;
  	}
  
  	return $result;
  }

  /** sets Inherit-config-from-client value: enabled/disabled */
  function setInheritMode ($checked)
  {
  	if ($checked) {
  		$this->ctx['CtxCfgFlags1'][6]= "1";
  	} else {
  		$this->ctx['CtxCfgFlags1'][6]= "0";
  	}
  }

  /** gets shadow value (enum): 0-4
	0: disabled
	1: input on, notify on
	2: input on, notify off
	3: input off, notify on
	4: input off, notify off 
  */
  function getShadow ()
  {
    if($this->old_behavior) {
      $result= substr($this->ctx['CtxCfgFlags1'], 1, 1);
    } else {
    	$result= substr($this->ctx['CtxShadow'], 1, 1);
    }
  	return $result;
  }

  /** sets shadow value */
  function setShadow ($checked, $value)
  {
  	if ($checked) {
      if($this->old_behavior) {
        // We need to reset the old setting
       	$this->ctx['CtxCfgFlags1'][1]= sprintf('%1X', $value);
      }
  		$this->ctx['CtxShadow'][1]= sprintf('%1x', $value);
  	}
  }

  /** gets connect-client-drive-at-logon value: enabled/disabled */
  function getConnectClientDrives ()
  {
  	$connections= hexdec(substr($this->ctx['CtxCfgFlags1'], 2, 1));
  	if ($connections & 8) {
  		$result= true;
  	} else {
  		$result= false;
  	}
  
  	return $result;
  }

  /** sets connect-client-drive-at-logon value: enabled/disabled */
  function setConnectClientDrives ($checked)
  {
  	$flag= hexdec(substr($this->ctx['CtxCfgFlags1'], 2, 1));
  	if ($checked) {
  		$flag|= 8;
  	} else {
  		$flag&= 0xF7;
  	}
  
  	$this->ctx['CtxCfgFlags1'][2]= sprintf('%1x', $flag);
  }

  /** gets connect-client-printers-at-logon value: enabled/disabled */
  function getConnectClientPrinters ()
  {
  	$connections= hexdec(substr($this->ctx['CtxCfgFlags1'], 2, 1));
  	if ($connections & 4) {
  		$result= true;
  	} else {
  		$result= false;
  	}
  	
  	return $result;
  }

  /** sets connect-client-printers-at-logon value: enabled/disabled */
  function setConnectClientPrinters ($checked)
  {
  	$flag= hexdec(substr($this->ctx['CtxCfgFlags1'], 2, 1));
  	
  	if ($checked) {
  		$flag|= 4;
  	} else {
  		$flag&= 0xFB;
  	}
  	
  	$this->ctx['CtxCfgFlags1'][2]= sprintf('%1x', $flag);
  }

  /** gets set-client-printer-to-default value: enabled/disabled */
  function getDefaultPrinter ()
  {
  	$connections= hexdec(substr($this->ctx['CtxCfgFlags1'], 2, 1));
  	if ($connections & 2) {
  		$result= true;
  	} else {
  		$result= false;
  	}
  
  	return $result;
  }

  /** sets set-client-printer-to-default value: enabled/disabled */
  function setDefaultPrinter ($checked)
  {
  	$flag= hexdec(substr($this->ctx['CtxCfgFlags1'], 2, 1));
  	
  	if ($checked) {
  		$flag|= 2;
  	} else {
  		$flag&= 0xFD;
  	}
  	
  	$this->ctx['CtxCfgFlags1'][2]= sprintf('%1x', $flag);
  }

  /** SMARTY: gets the checkbox state of "Connection" */
  function getCtxMaxConnectionTimeF ()
  {
  	// Connection Time is 0 if disabled
  	if (isset($this->ctx['CtxMaxConnectionTime']) && ($this->ctx['CtxMaxConnectionTime'] != 0)) {
  		$result= true;
  	} else {
  		$result= false;
  	}
  
  	return $result;
  }

  /** SMARTY: sets the checkbox "Connection" to unchecked */
  function setCtxMaxConnectionTimeF ($checked)
  {
  	if ($checked) {
  		unset ($this->ctx['CtxMaxConnectionTime']);
  	}
  }

  /** SMARTY: gets the checkbox state of "Disconnection" */
  function getCtxMaxDisconnectionTimeF ()
  {
  	// Connection Time is 0 if disabled
  	if (isset($this->ctx['CtxMaxDisconnectionTime']) && ($this->ctx['CtxMaxDisconnectionTime'] != 0)) {
  		$result= true;
  	} else {
  		$result= false;
  	}

  	return $result;
  }

  /** SMARTY: sets the checkbox "Disconnection" to unchecked */
  function setCtxMaxDisconnectionTimeF ($checked)
  {
  	if ($checked) {
  		unset ($this->ctx['CtxMaxDisconnectionTime']);
  	} 
  }

  /** SMARTY: gets the checkbox state of "Idle" */
  function getCtxMaxIdleTimeF ()
  {
  	// Connection Time is 0 if disabled
  	if (isset($this->ctx['CtxMaxIdleTime']) && ($this->ctx['CtxMaxIdleTime'] != 0)) {
  		$result= true;
  	} else {
  		$result= false;
  	}
  
  	return $result;
  }

  /** SMARTY: sets the checkbox "Idle" to unchecked */
  function setCtxMaxIdleTimeF ($checked)
  {
  	if ($checked) {
  		unset ($this->ctx['CtxMaxIdleTime']);
  	}
  }
}

?>
