<?php
/**
* Zend Framework (http://framework.zend.com/)
*
* @link http://github.com/zendframework/zf2 for the canonical source repository
* @copyright Copyright (c) 2005-2014 Zend Technologies USA Inc. (http://www.zend.com)
* @license http://framework.zend.com/license/new-bsd New BSD License
*/
namespace Zend\Ldap\Ldif;
use Zend\Ldap;
/**
* Zend\Ldap\Ldif\Encoder provides methods to encode and decode LDAP data into/from Ldif.
*/
class Encoder
{
/**
* Additional options used during encoding
*
* @var array
*/
protected $options = array(
'sort' => true,
'version' => 1,
'wrap' => 78
);
/**
* @var bool
*/
protected $versionWritten = false;
/**
* Constructor.
*
* @param array $options Additional options used during encoding
*/
protected function __construct(array $options = array())
{
$this->options = array_merge($this->options, $options);
}
/**
* Decodes the string $string into an array of Ldif items
*
* @param string $string
* @return array
*/
public static function decode($string)
{
$encoder = new static(array());
return $encoder->_decode($string);
}
/**
* Decodes the string $string into an array of Ldif items
*
* @param string $string
* @return array
*/
protected function _decode($string)
{
$items = array();
$item = array();
$last = null;
$inComment = false;
foreach (explode("\n", $string) as $line) {
$line = rtrim($line, "\x09\x0A\x0D\x00\x0B");
$matches = array();
if (substr($line, 0, 1) === ' ' && $last !== null && !$inComment) {
$last[2] .= substr($line, 1);
} elseif (substr($line, 0, 1) === '#') {
$inComment = true;
continue;
} elseif (preg_match('/^([a-z0-9;-]+)(:[:<]?\s*)([^<]*)$/i', $line, $matches)) {
$inComment = false;
$name = strtolower($matches[1]);
$type = trim($matches[2]);
$value = $matches[3];
if ($last !== null) {
$this->pushAttribute($last, $item);
}
if ($name === 'version') {
continue;
} elseif (count($item) > 0 && $name === 'dn') {
$items[] = $item;
$item = array();
$last = null;
}
$last = array($name, $type, $value);
} elseif (trim($line) === '') {
continue;
}
}
if ($last !== null) {
$this->pushAttribute($last, $item);
}
$items[] = $item;
return (count($items) > 1) ? $items : $items[0];
}
/**
* Pushes a decoded attribute to the stack
*
* @param array $attribute
* @param array $entry
*/
protected function pushAttribute(array $attribute, array &$entry)
{
$name = $attribute[0];
$type = $attribute[1];
$value = $attribute[2];
if ($type === '::') {
$value = base64_decode($value);
}
if ($name === 'dn') {
$entry[$name] = $value;
} elseif (isset($entry[$name]) && $value !== '') {
$entry[$name][] = $value;
} else {
$entry[$name] = ($value !== '') ? array($value) : array();
}
}
/**
* Encode $value into a Ldif representation
*
* @param mixed $value The value to be encoded
* @param array $options Additional options used during encoding
* @return string The encoded value
*/
public static function encode($value, array $options = array())
{
$encoder = new static($options);
return $encoder->_encode($value);
}
/**
* Recursive driver which determines the type of value to be encoded
* and then dispatches to the appropriate method.
*
* @param mixed $value The value to be encoded
* @return string Encoded value
*/
protected function _encode($value)
{
if (is_scalar($value)) {
return $this->encodeString($value);
} elseif (is_array($value)) {
return $this->encodeAttributes($value);
} elseif ($value instanceof Ldap\Node) {
return $value->toLdif($this->options);
}
return null;
}
/**
* Encodes $string according to RFC2849
*
* @link http://www.faqs.org/rfcs/rfc2849.html
*
* @param string $string
* @param bool $base64
* @return string
*/
protected function encodeString($string, &$base64 = null)
{
$string = (string) $string;
if (!is_numeric($string) && empty($string)) {
return '';
}
/*
* SAFE-INIT-CHAR = %x01-09 / %x0B-0C / %x0E-1F /
* %x21-39 / %x3B / %x3D-7F
* ; any value <= 127 except NUL, LF, CR,
* ; SPACE, colon (":", ASCII 58 decimal)
* ; and less-than ("<" , ASCII 60 decimal)
*
*/
$unsafeInitChar = array(0, 10, 13, 32, 58, 60);
/*
* SAFE-CHAR = %x01-09 / %x0B-0C / %x0E-7F
* ; any value <= 127 decimal except NUL, LF,
* ; and CR
*/
$unsafeChar = array(0, 10, 13);
$base64 = false;
for ($i = 0, $len = strlen($string); $i < $len; $i++) {
$char = ord(substr($string, $i, 1));
if ($char >= 127) {
$base64 = true;
break;
} elseif ($i === 0 && in_array($char, $unsafeInitChar)) {
$base64 = true;
break;
} elseif (in_array($char, $unsafeChar)) {
$base64 = true;
break;
}
}
// Test for ending space
if (substr($string, -1) == ' ') {
$base64 = true;
}
if ($base64 === true) {
$string = base64_encode($string);
}
return $string;
}
/**
* Encodes an attribute with $name and $value according to RFC2849
*
* @link http://www.faqs.org/rfcs/rfc2849.html
*
* @param string $name
* @param array|string $value
* @return string
*/
protected function encodeAttribute($name, $value)
{
if (!is_array($value)) {
$value = array($value);
}
$output = '';
if (count($value) < 1) {
return $name . ': ';
}
foreach ($value as $v) {
$base64 = null;
$v = $this->encodeString($v, $base64);
$attribute = $name . ':';
if ($base64 === true) {
$attribute .= ': ' . $v;
} else {
$attribute .= ' ' . $v;
}
if (isset($this->options['wrap']) && strlen($attribute) > $this->options['wrap']) {
$attribute = trim(chunk_split($attribute, $this->options['wrap'], PHP_EOL . ' '));
}
$output .= $attribute . PHP_EOL;
}
return trim($output, PHP_EOL);
}
/**
* Encodes a collection of attributes according to RFC2849
*
* @link http://www.faqs.org/rfcs/rfc2849.html
*
* @param array $attributes
* @return string
*/
protected function encodeAttributes(array $attributes)
{
$string = '';
$attributes = array_change_key_case($attributes, CASE_LOWER);
if (!$this->versionWritten && array_key_exists('dn', $attributes) && isset($this->options['version'])
&& array_key_exists('objectclass', $attributes)
) {
$string .= sprintf('version: %d', $this->options['version']) . PHP_EOL;
$this->versionWritten = true;
}
if (isset($this->options['sort']) && $this->options['sort'] === true) {
ksort($attributes, SORT_STRING);
if (array_key_exists('objectclass', $attributes)) {
$oc = $attributes['objectclass'];
unset($attributes['objectclass']);
$attributes = array_merge(array('objectclass' => $oc), $attributes);
}
if (array_key_exists('dn', $attributes)) {
$dn = $attributes['dn'];
unset($attributes['dn']);
$attributes = array_merge(array('dn' => $dn), $attributes);
}
}
foreach ($attributes as $key => $value) {
$string .= $this->encodeAttribute($key, $value) . PHP_EOL;
}
return trim($string, PHP_EOL);
}
}