File Source for pnuser.php

<?php
/**
* Zikula Application Framework
*
* @copyright (c) 2002, Zikula Development Team
* @link http://www.zikula.org
* @version $Id: pnuser.php 24342 2008-06-06 12:03:14Z markwest $
* @license GNU/GPL - http://www.gnu.org/copyleft/gpl.html
* @package Zikula_Value_Addons
* @subpackage Credits
*/
/**
* Credits_user_list
*
* Lists Information and Credits for all User Modules.
* @author Rob Brandt
* @return HTML output string
*/
function credits_user_main()
{
// Security Check
if (!SecurityUtil::checkPermission('Credits::', '::', ACCESS_READ)) {
return LogUtil::registerPermissionError();
}
// Define the cache id
if (SecurityUtil::checkPermission('::', '::', ACCESS_ADMIN)) {
$cacheid = 0;
} else {
$cacheid = 1;
}
// Create output object
$pnRender = pnRender::getInstance('Credits');
// define the cache id
$pnRender->cache_id = $cacheid;
// check out if the contents are cached.
// If this is the case, we do not need to make DB queries.
if ($pnRender->is_cached('credits_user_main.htm')) {
return $pnRender->fetch('credits_user_main.htm');
}
// define array of filetypes for future use
$filetypes = DataUtil::formatForOS(array('credits', 'help', 'changelog', 'license'));
// If the user is site admin then get all modules including admin only modules
if (SecurityUtil::checkPermission('::', '::', ACCESS_ADMIN)) {
$modules = pnModGetAllMods();
$cacheid = 0;
} else {
$modules = pnModGetUserMods();
$cacheid = 1;
}
foreach ($modules as $key => $module) {
if ($module['type'] == 3) {
$rootdir = 'system/';
} else {
$rootdir = 'modules/';
}
$osmoddir = DataUtil::formatForOS($module['directory']);
foreach ($filetypes as $filetype) {
if (!file_exists($rootdir.$osmoddir.'/'.$module[$filetype])) {
$modules[$key][$filetype] = '';
}
}
// explode the contact and author arrays to allow for
// multiple authors and contacts
$modules[$key]['author'] = explode(',', $module['author']);
$modules[$key]['contact'] = explode(',', $module['contact']);
// check if an e-mail address is given as the contact
foreach($modules[$key]['contact'] as $contactid => $contact) {
$contact = trim($contact);
if (eregi ("^([a-z0-9_]|\\-|\\.)+@(([a-z0-9_]|\\-)+\\.)+[a-z]{2,4}$", $contact)) {
$modules[$key]['contact'][$contactid] = 'mailto:' . $contact;
}
}
}
$themes = pnThemeGetAllThemes();
foreach ($themes as $key => $theme) {
// check that the actual files exist
$osthemedir = DataUtil::formatForOS($theme['directory']);
foreach ($filetypes as $filetype) {
if (!file_exists('themes/'.$osthemedir.'/'.$theme[$filetype])) {
$themes[$key][$filetype] = '';
}
}
// explode the contact and author arrays to allow for
// multiple authors and contacts
$themes[$key]['author'] = explode(',', $theme['author']);
$themes[$key]['contact'] = explode(',', $theme['contact']);
// check if an e-mail address is given as the contact
foreach($themes[$key]['contact'] as $contactid => $contact) {
$contact = trim($contact);
if (eregi ("^([a-z0-9_]|\\-|\\.)+@(([a-z0-9_]|\\-)+\\.)+[a-z]{2,4}$", $contact)) {
$themes[$key]['contact'][$contactid] = 'mailto:' . $contact;
}
}
}
// highly unlikely but check if we have no modules returned
if ($modules == false) {
return DataUtil::formatForDisplayHTML(_CREDITSNOMODS);
}
// assign content to user
$pnRender->assign('modules', $modules);
$pnRender->assign('themes', $themes);
return $pnRender->fetch('credits_user_main.htm');
}
/**
* Credits user display
*
* Displays modules documentation
* @author Rob Brandt
* @return HTML output string
*/
function credits_user_display($args) {
if (!SecurityUtil::checkPermission('Credits::', '::', ACCESS_READ)) {
return LogUtil::registerPermissionError();
}
$mod = (string)FormUtil::getPassedValue('mod', isset($args['mod']) ? $args['mod'] : null, 'GET');
$filetype = (string)FormUtil::getPassedValue('filetype', isset($args['filetype']) ? $args['filetype'] : null, 'GET');
// work out the version number, the display name for the module (or core)
// and the directory(ies) to locate the files
if ($mod == 'core') {
$modinfo = array();
$modinfo['name'] = 'core';
$modinfo['version'] = PN_VERSION_NUM;
$modinfo['displayname'] = PN_VERSION_ID;
$modinfo['directory'] = 'core';
} elseif (isset($mod) && pnModAvailable($mod)) {
$modinfo = pnModGetInfo(pnModGetIDFromName($mod));
if (!is_array($modinfo)) {
return DataUtil::formatForDisplayHTML(_CREDITSNOEXIST);
}
} elseif (isset($mod)) {
$modinfo = pnThemeGetInfo(pnThemeGetIDFromName($mod));
if (!is_array($modinfo)) {
return DataUtil::formatForDisplayHTML(_CREDITSNOEXIST);
}
} else {
return DataUtil::formatForDisplayHTML(_CREDITSNOEXIST);
}
// Create output object
$pnRender = pnRender::getInstance('Credits');
// define the cache id
$pnRender->cache_id = md5($modinfo['directory'].$filetype);
// check out if the contents are cached.
// If this is the case, we do not need to make DB queries.
if ($pnRender->is_cached('credits_user_display.htm')) {
return $pnRender->fetch('credits_user_display.htm');
}
// now lets locate the module version info
if ($mod == 'core') {
switch ($filetype) {
case 'credits':
$filename = 'docs/CREDITS.txt';
break;
case 'license':
$filename = 'docs/COPYING.txt';
break;
}
} else {
if (pnModAvailable($modinfo['name'])) {
if ($modinfo['type'] == 3) {
$filename = 'system/'.DataUtil::formatForOS($modinfo['directory']).'/'.DataUtil::formatForOS($modinfo[$filetype]);
} else {
$filename = 'modules/'.DataUtil::formatForOS($modinfo['directory']).'/'.DataUtil::formatForOS($modinfo[$filetype]);
}
} else {
$filename = 'themes/'.DataUtil::formatForOS($modinfo['directory']).'/'.DataUtil::formatForOS($modinfo[$filetype]);
}
}
if (file_exists($filename)) {
$thefile = implode('',file($filename));
$thefile = DataUtil::formatForDisplay($thefile);
} else {
$thefile = DataUtil::formatForDisplay(_CREDITSNOEXIST);
}
// assign the values to the template
$pnRender->assign('heading', constant('_CREDITS' . strtoupper($filetype)));
$pnRender->assign($modinfo);
$pnRender->assign('thefile', $thefile);
$pnRender->assign('filetype', $filetype);
// create a fake numeric item id to allow display hooks work properly
$pnRender->assign('itemid', $pnRender->cache_id);
return $pnRender->fetch('credits_user_display.htm');
}

Source for file pnuser.php