613 lines
16 KiB
PHP
613 lines
16 KiB
PHP
<?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;
|
|
}
|
|
}
|
|
$result= base64_encode($this->encode_munged($this->ctx));
|
|
|
|
return $result;
|
|
}
|
|
|
|
/** 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']);
|
|
}
|
|
}
|
|
}
|
|
|
|
?>
|