+++ /dev/null
-<?php\r
-// $Id: pnadmin.php\r
-// ----------------------------------------------------------------------\r
-// POST-NUKE Content Management System\r
-// Copyright (C) 2002 by the PostNuke Development Team.\r
-// http://www.postnuke.com/\r
-// ----------------------------------------------------------------------\r
-// Based on:\r
-// PHP-NUKE Web Portal System - http://phpnuke.org/\r
-// Thatware - http://thatware.org/\r
-// ----------------------------------------------------------------------\r
-// LICENSE\r
-//\r
-// This program is free software; you can redistribute it and/or\r
-// modify it under the terms of the GNU General Public License (GPL)\r
-// as published by the Free Software Foundation; either version 2\r
-// of the License, or (at your option) any later version.\r
-//\r
-// This program is distributed in the hope that it will be useful,\r
-// but WIthOUT ANY WARRANTY; without even the implied warranty of\r
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
-// GNU General Public License for more details.\r
-//\r
-// To read the license please visit http://www.gnu.org/copyleft/gpl.html\r
-// ----------------------------------------------------------------------\r
-// Filename: 1.0\r
-// Based on : pnATutor\r
-// Postnuked by Cas Nuy\r
-// Purpose of file: Admin functions for pnATutor\r
-// ----------------------------------------------------------------------\r
-\r
-/**\r
- * the main administration function\r
- */\r
-function pnATutor_admin_main()\r
-{\r
-\r
- // Create output object\r
- $output = new pnHTML();\r
-\r
- // Security check\r
- if (!pnSecAuthAction(0, 'pnATutor::', '::', ACCESS_ADMIN)) {\r
- $output->Text(pnVarPrepHTMLDisplay(_PNATUTORNOAUTH));\r
- return $output->GetOutput();\r
- }\r
-\r
- // Add menu to output\r
- $output->SetInputMode(_PNH_VERBATIMINPUT);\r
- $output->Text(pnATutor_adminmenu());\r
- $output->SetInputMode(_PNH_PARSEINPUT);\r
-\r
- // Return the output that has been generated by this function\r
- return $output->GetOutput();\r
-}\r
-\r
-/*\r
- * Main administration menu\r
- */\r
-function pnATutor_adminmenu() {\r
-\r
- $theme = pnUserGetTheme();\r
- pnThemeLoad($theme);\r
-\r
- // Create output object\r
- $output = new pnHTML();\r
-\r
- // Security check\r
- if (!pnSecAuthAction(0, 'pnATutor::', '::', ACCESS_ADMIN)) {\r
- $output->Text(pnVarPrepHTMLDisplay(_PNATUTORNOAUTH));\r
- return $output->GetOutput();\r
- }\r
-\r
- //Title\r
- ob_start();\r
- OpenTable();\r
- $oTable = ob_get_contents();\r
- ob_end_clean();\r
- $output->SetInputMode(_PNH_VERBATIMINPUT);\r
- $output->Text($oTable);\r
- $output->Title(pnVarPrepHTMLDisplay('<b>'._PNATUTOR.'</b>'));\r
- $output->Text(pnVarPrepHTMLDisplay(_PNATUTORMODIFYCONFIG));\r
- ob_start();\r
- CloseTable();\r
- $cTable = ob_get_contents();\r
- ob_end_clean();\r
- $output->SetInputMode(_PNH_VERBATIMINPUT);\r
- $output->Text($cTable);\r
-\r
- // Start form\r
- $output->FormStart(pnModURL('pnATutor', 'admin', 'updateconfig'));\r
-\r
- // Add an authorisation ID\r
- $output->FormHidden('authid', pnSecGenAuthKey());\r
-\r
-\r
- // Start the table that holds the information to be modified.\r
- ob_start();\r
- OpenTable();\r
- $oTable = ob_get_contents();\r
- ob_end_clean();\r
- $output->SetInputMode(_PNH_VERBATIMINPUT);\r
- $output->Text($oTable);\r
- $output->TableStart();\r
-\r
- // pnATutor location\r
- $row = array();\r
- $output->SetOutputMode(_PNH_RETURNOUTPUT);\r
- $row[] = $output->Text(pnVarPrepHTMLDisplay(_MODSUBJECT));\r
- $row[] = $output->FormText('_loc', pnModGetVar('pnATutor', '_loc'), 50, 50);\r
- $output->SetOutputMode(_PNH_KEEPOUTPUT);\r
- $output->SetInputMode(_PNH_VERBATIMINPUT);\r
- $output->TableAddrow($row, 'left');\r
-\r
- // Warning\r
- $row = array();\r
- $output->SetOutputMode(_PNH_RETURNOUTPUT);\r
- $row[] = $output->Text(pnVarPrepHTMLDisplay(_MODWARNING));\r
- $output->SetOutputMode(_PNH_KEEPOUTPUT);\r
- $output->SetInputMode(_PNH_VERBATIMINPUT);\r
- $output->TableAddrow($row, 'left');\r
-\r
-\r
- // ATutor DB\r
- $row = array();\r
- $output->SetOutputMode(_PNH_RETURNOUTPUT);\r
- $row[] = $output->Text(pnVarPrepHTMLDisplay(_MODDB));\r
- $row[] = $output->FormText('_db', pnModGetVar('pnATutor', '_db'), 25, 25);\r
- $output->SetOutputMode(_PNH_KEEPOUTPUT);\r
- $output->SetInputMode(_PNH_VERBATIMINPUT);\r
- $output->TableAddrow($row, 'left');\r
-\r
- // ATutor DB prefix\r
- $row = array();\r
- $output->SetOutputMode(_PNH_RETURNOUTPUT);\r
- $row[] = $output->Text(pnVarPrepHTMLDisplay(_PNATUTOR_PREFIX));\r
- $row[] = $output->FormText('_prf', pnModGetVar('pnATutor', '_prf'), 15, 15);\r
- $output->SetOutputMode(_PNH_KEEPOUTPUT);\r
- $output->SetInputMode(_PNH_VERBATIMINPUT);\r
- $output->TableAddrow($row, 'left');\r
-\r
- // ATutor version\r
- $row = array();\r
- $output->SetOutputMode(_PNH_RETURNOUTPUT);\r
- $row[] = $output->Text(pnVarPrepHTMLDisplay(_PNATUTORVERSION));\r
- $row[] = $output->FormText('_version', pnModGetVar('pnATutor', '_version'), 5, 5);\r
- $output->SetOutputMode(_PNH_KEEPOUTPUT);\r
- $output->SetInputMode(_PNH_VERBATIMINPUT);\r
- $output->TableAddrow($row, 'left');\r
-\r
- // Open in New >Window\r
- $row = array();\r
- $output->SetOutputMode(_PNH_RETURNOUTPUT);\r
- $row[] = $output->Text(pnVarPrepHTMLDisplay(_MODWINDOW));\r
- $row[] = $output->FormCheckbox('_window', pnModGetVar('pnATutor', '_window'));\r
- $output->SetOutputMode(_PNH_KEEPOUTPUT);\r
- $output->SetInputMode(_PNH_VERBATIMINPUT);\r
- $output->TableAddrow($row, 'left');\r
-\r
-\r
- // Create users\r
- $row = array();\r
- $output->SetOutputMode(_PNH_RETURNOUTPUT);\r
- $row[] = $output->Text(pnVarPrepHTMLDisplay(_MODUSERS));\r
- $row[] = $output->FormCheckbox('_users', pnModGetVar('pnATutor', '_users'));\r
- $output->SetOutputMode(_PNH_KEEPOUTPUT);\r
- $output->SetInputMode(_PNH_VERBATIMINPUT);\r
- $output->TableAddrow($row, 'left');\r
-\r
-\r
- // Allow guest access\r
- $row = array();\r
- $output->SetOutputMode(_PNH_RETURNOUTPUT);\r
- $row[] = $output->Text(pnVarPrepHTMLDisplay(_MODGUEST));\r
- $row[] = $output->FormCheckbox('_guest', pnModGetVar('pnATutor', '_guest'));\r
- $output->SetOutputMode(_PNH_KEEPOUTPUT);\r
- $output->SetInputMode(_PNH_VERBATIMINPUT);\r
- $output->TableAddrow($row, 'left');\r
-\r
- $output->TableEnd();\r
- ob_start();\r
- CloseTable();\r
- $cTable = ob_get_contents();\r
- ob_end_clean();\r
- $output->SetInputMode(_PNH_VERBATIMINPUT);\r
- $output->Text($cTable);\r
-\r
- // End form\r
- //$output->Linebreak(1);\r
- ob_start();\r
- OpenTable();\r
- $oTable = ob_get_contents();\r
- ob_end_clean();\r
- $output->SetInputMode(_PNH_VERBATIMINPUT);\r
- $output->Text($oTable);\r
- $output->Text('<div align="center"><br>');\r
- $output->FormSubmit(pnVarPrepHTMLDisplay(_PNATUTORUPDATE));\r
- $output->Text('<br><br></div>');\r
- ob_start();\r
- CloseTable();\r
- $cTable = ob_get_contents();\r
- ob_end_clean();\r
- $output->SetInputMode(_PNH_VERBATIMINPUT);\r
- $output->Text($cTable);\r
- $output->FormEnd();\r
-\r
- // Return the output that has been generated by this function\r
- $output->SetOutputMode(_PNH_KEEPOUTPUT);\r
- return $output->GetOutput();\r
-}\r
-\r
-function pnATutor_admin_updateconfig()\r
-{\r
- // Get parameters from whatever input we need.\r
- $_loc = pnVarCleanFromInput('_loc');\r
- $_window = pnVarCleanFromInput('_window');\r
- $_db = pnVarCleanFromInput('_db');\r
- $_guest = pnVarCleanFromInput('_guest');\r
- $_users = pnVarCleanFromInput('_users');\r
- $_version = pnVarCleanFromInput('_version');\r
- $_prf = pnVarCleanFromInput('_prf');\r
-\r
-\r
- // Confirm authorisation code.\r
- if (!pnSecConfirmAuthKey()) {\r
- pnSessionSetVar('errormsg', _BADAUTHKEY);\r
- pnRedirect(pnModURL('pnATutor', 'admin', ''));\r
- return true;\r
- }\r
-\r
- // Update module variables.\r
- pnModSetVar('pnATutor', '_loc', $_loc);\r
- pnModSetVar('pnATutor', '_window', $_window);\r
- pnModSetVar('pnATutor', '_db', $_db);\r
- pnModSetVar('pnATutor', '_guest', $_guest);\r
- pnModSetVar('pnATutor', '_users', $_users);\r
- pnModSetVar('pnATutor', '_version', $_version);\r
- pnModSetVar('pnATutor', '_prf', $_prf);\r
-\r
- // This function generated no output, and so now it is complete we redirect\r
- // the user to an appropriate page for them to carry on their work\r
- pnRedirect('admin.php');\r
-\r
- // Return\r
- return true;\r
-}\r
-?>\r