ldapsaisie/src/includes/addons/LSaddons.showTechInfo.php
2020-09-21 15:47:07 +02:00

139 lines
4.7 KiB
PHP

<?php
/*******************************************************************************
* Copyright (C) 2007 Easter-eggs
* http://ldapsaisie.labs.libre-entreprise.org
*
* Author: See AUTHORS file in top-level directory.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License version 2
* as published by the Free Software Foundation.
*
* 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.
******************************************************************************/
/**
* Check support of showTechInfo addon by LdapSaisie
*
* @author Benjamin Renard <brenard@easter-eggs.com>
*
* @retval boolean true if LSaccessRightsMatrixView addon is totally supported, false in other case
*/
function LSaddon_showTechInfo_support() {
return True;
}
function showTechInfo($object) {
$dn = $object -> getDn();
// Retreive internal attributes
$internal_attrs = LSldap :: getAttrs(
$dn,
null,
array('objectClass'),
true
);
// Extract object classes
$object_classes = array();
$structural_object_class = null;
if (array_key_exists('objectClass', $internal_attrs)) {
$object_classes = (
is_array($internal_attrs['objectClass'])?
$internal_attrs['objectClass']:
array($internal_attrs['objectClass'])
);
sort($object_classes);
unset($internal_attrs['objectClass']);
if (array_key_exists('structuralObjectClass', $internal_attrs)) {
$structural_object_class = $internal_attrs['structuralObjectClass'];
}
}
// Handle special internal attributes
$special_internal_attributes_label = array(
'structuralObjectClass' => _('Structural object class'),
'createTimestamp' => _('Creation date'),
'creatorsName' => _('Creator DN'),
'modifyTimestamp' => _('Last modification date'),
'modifiersName' => _('Last modifier DN'),
'modifiersName' => _('Last modifier DN'),
'entryCSN' => _('LDAP entry change sequence number'),
'entryUUID' => _('LDAP entry UUID'),
'hasSubordinates' => _('LDAP entry has children'),
);
$datetime_special_internal_attributes = array('createTimestamp', 'modifyTimestamp');
$boolean_special_internal_attributes = array('hasSubordinates');
$special_internal_attributes = array();
foreach($special_internal_attributes_label as $attr => $label) {
if (!array_key_exists($attr, $internal_attrs))
continue;
if (in_array($attr, $datetime_special_internal_attributes)) {
$datetime = date_create_from_format('YmdHisO', $internal_attrs[$attr]);
if ($datetime instanceof DateTime) {
$special_internal_attributes[$attr] = array(
'label' => $label,
'values' => strftime("%Y/%m/%d %T", $datetime -> format('U')),
);
}
else
continue;
}
elseif (in_array($attr, $boolean_special_internal_attributes)) {
if ($internal_attrs[$attr] == 'TRUE')
$value = _('Yes');
elseif ($internal_attrs[$attr] == 'FALSE')
$value = _('No');
else
continue;
$special_internal_attributes[$attr] = array(
'label' => $label,
'values' => $value,
);
}
else {
$special_internal_attributes[$attr] = array(
'label' => $label,
'values' => $internal_attrs[$attr],
);
}
unset($internal_attrs[$attr]);
}
// Sort other internal attributes by name
ksort($internal_attrs);
LStemplate :: assign('pagetitle', getFData(_('%{name}: Technical information'), $object -> getDisplayName()));
$LSview_actions=array();
$LSview_actions['return'] = array (
'label' => _('Go back'),
'url' => 'object/'.$object->getType().'/'.urlencode($dn),
'action' => 'view'
);
LStemplate :: assign('LSview_actions', $LSview_actions);
if (LSsession :: loadLSclass('LSform')) {
LSform :: loadDependenciesDisplayView();
}
LStemplate :: assign('object', $object);
LStemplate :: assign('object_classes', $object_classes);
LStemplate :: assign('structural_object_class', $structural_object_class);
LStemplate :: assign('special_internal_attributes', $special_internal_attributes);
LStemplate :: assign('other_internal_attrs', $internal_attrs);
LStemplate :: addCssFile('showTechInfo.css');
LSsession :: setTemplate('showTechInfo.tpl');
// Display template
LSsession :: displayTemplate();
exit();
}