Zikula_System_Modules
[ class tree: Zikula_System_Modules ] [ index: Zikula_System_Modules ] [ all elements ]
Packages:
Zikula 1.0.1
axmls
PHPLayersMenu
PHPMailer
phpSniff
pnForm
PostNuke_Core
RC4Crypt
SafeHTML
Services_JSON
SimplePie
Smarty
Xanthia_Templating_Environment
XML_HTMLSax3
ZikulaTemplate_Plugins
Zikula_Core
Zikula_Docs
Zikula_System_Modules
Zikula_Template_Plugins
Zikula_Themes
Zikula_Value_Addons

Source for file pnadmin.php

Documentation is available at pnadmin.php

  1. <?php
  2. /**
  3.  * Zikula Application Framework
  4.  *
  5.  * @copyright (c) 2002, Zikula Development Team
  6.  * @link http://www.zikula.org
  7.  * @version $Id: pnadmin.php 24342 2008-06-06 12:03:14Z markwest $
  8.  * @license GNU/GPL - http://www.gnu.org/copyleft/gpl.html
  9.  * @package Zikula_System_Modules
  10.  * @subpackage AuthLDAP
  11.  */
  12.  
  13. /**
  14.  * The main administration function
  15.  * This function is the default function, and is called whenever the
  16.  * module is initiated without defining arguments.  As such it can
  17.  * be used for a number of things, but most commonly it either just
  18.  * shows the module menu and returns or calls whatever the module
  19.  * designer feels should be the default function (often this is the
  20.  * view() function)
  21.  * @author Mike Goldfinger <MikeGoldfinger@linuxmail.org>
  22.  * @link http://authldap.ch.vu
  23.  * @return string HTML ouptput
  24.  */
  25. function AuthLDAP_admin_main()
  26. {
  27.     // Security check
  28.     if (!SecurityUtil::checkPermission('AuthLDAP::', '::', ACCESS_ADMIN)) {
  29.         return LogUtil::registerPermissionError();
  30.     }
  31.  
  32.     // Create output object
  33.     $pnRender = pnRender::getInstance('AuthLDAP', false);
  34.  
  35.     // Return the output that has been generated by this function
  36.     return $pnRender->fetch('authldap_admin_main.htm');
  37. }
  38.  
  39. /**
  40.  * This is a standard function to modify the configuration parameters of the
  41.  * module
  42.  * @author Mike Goldfinger <MikeGoldfinger@linuxmail.org>
  43.  * @link http://authldap.ch.vu
  44.  * @return string HTML ouptput
  45.  * @todo change group list to dropdown
  46.  */
  47. function AuthLDAP_admin_modifyconfig()
  48. {
  49.      // Security check
  50.     if (!SecurityUtil::checkPermission('AuthLDAP::', '::', ACCESS_ADMIN)) {
  51.         return LogUtil::registerPermissionError();
  52.     }
  53.  
  54.     // Create output object
  55.     $pnRender = pnRender::getInstance('AuthLDAP', false);
  56.  
  57.     // assign module vars
  58.     $pnRender->assign(pnModGetVar('AuthLDAP'));
  59.  
  60.     // Return the output that has been generated by this function
  61.     return $pnRender->fetch('authldap_admin_modifyconfig.htm');
  62. }
  63.  
  64. /**
  65.  * This is a standard function that is called with the results of the
  66.  * form supplied by template_admin_new() to create a new item
  67.  * @author Mike Goldfinger <MikeGoldfinger@linuxmail.org>
  68.  * @link http://authldap.ch.vu
  69.  * @param 'authldap_pnldap' the authentication type
  70.  * @param 'authldap_serveradr' the ip address of the ldap server
  71.  * @param 'basedn' base container in directory
  72.  * @param 'authldap_bindas' user to bind to directory as if required
  73.  * @param 'authldap_bindpass' password of user to bind as
  74.  * @param 'authldap_searchdn' search container
  75.  * @param 'authldap_searchattr' search the User using tis Attribute
  76.  * @return bool true if item created, false otherwise
  77.  */
  78. function AuthLDAP_admin_updateconfig()
  79. {
  80.      // Security check
  81.     if (!SecurityUtil::checkPermission('AuthLDAP::', '::', ACCESS_ADMIN)) {
  82.         return LogUtil::registerPermissionError();
  83.     }
  84.  
  85.     // Confirm authorisation code.
  86.     if (!SecurityUtil::confirmAuthKey()) {
  87.         return LogUtil::registerAuthidError (pnModURL('authldap','admin','main'));
  88.     }
  89.  
  90.     // Update module variables.
  91.     $authldap_pnldap = FormUtil::getPassedValue('authldap_pnldap', 'pn', 'POST');
  92.     pnModSetVar('AuthLDAP', 'authldap_pnldap', $authldap_pnldap);
  93.  
  94.     $authldap_serveradr = FormUtil::getPassedValue('authldap_serveradr', '127.0.0.1', 'POST');
  95.     pnModSetVar('AuthLDAP', 'authldap_serveradr', $authldap_serveradr);
  96.  
  97.     $authldap_basedn = FormUtil::getPassedValue('authldap_basedn', 'dc=foo,dc=bar', 'POST');
  98.     pnModSetVar('AuthLDAP', 'authldap_basedn', $authldap_basedn);
  99.  
  100.     $authldap_bindas = FormUtil::getPassedValue('authldap_bindas', '', 'POST');
  101.     pnModSetVar('AuthLDAP', 'authldap_bindas', $authldap_bindas);
  102.  
  103.     $authldap_bindpass = FormUtil::getPassedValue('authldap_bindpass', '', 'POST');
  104.     pnModSetVar('AuthLDAP', 'authldap_bindpass', $authldap_bindpass);
  105.  
  106.     $authldap_searchdn = FormUtil::getPassedValue('authldap_searchdn', '', 'POST');
  107.     pnModSetVar('AuthLDAP', 'authldap_searchdn', $authldap_searchdn);
  108.  
  109.     $authldap_searchattr = FormUtil::getPassedValue('authldap_searchattr', 'uid', 'POST');
  110.     pnModSetVar('AuthLDAP', 'authldap_searchattr', $authldap_searchattr);
  111.  
  112.     // Let any other modules know that the modules configuration has been updated
  113.     pnModCallHooks('module','updateconfig', 'AuthLDAP', array('module' => 'AuthLDAP'));
  114.  
  115.     // the module configuration has been updated successfuly
  116.     LogUtil::registerStatus (_CONFIGUPDATED);
  117.  
  118.     // This function generated no output, and so now it is complete we redirect
  119.     // the user to an appropriate page for them to carry on their work
  120.     return pnRedirect(pnModURL('AuthLDAP', 'admin', 'main'));
  121. }
Documentation generated on Fri, 18 Jul 2008 21:50:29 +0200 by phpDocumentor 1.4.1