install.blocklist.php

joomla的系统插件,用于用户的管理,可以开发或阻塞用户

<?php
/**
* @package Blocklist
* @copyright (C) 2006 Websmurf
* @author Websmurf
* 
* --------------------------------------------------------------------------------
* All rights reserved.  Blocklist is a component for Joomla and Mambo. 
* You can use it to block certain ipadresses or ipblocks
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the Creative Commons - Attribution-NoDerivs 2.5 
* license as published by the Creative Commons Organisation
* http://creativecommons.org/licenses/by-nd/2.5/.
*
* 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.  
* --------------------------------------------------------------------------------
**/

// ensure this file is being included by a parent file
defined( '_VALID_MOS' ) or die( 'Direct Access to this location is not allowed.' );

function com_install(){
  global $mainframe, $database;
  
   //Updates menu option
  $query = "UPDATE #__components 
    SET admin_menu_img='../administrator/components/com_blocklist/icons/16x16_no.png' 
    WHERE admin_menu_link='option=com_blocklist'";
  $database->setQuery($query);
  if(!$database->query()){  
    echo $database->getErrorMsg() . '<br />';
  }
  
  //create mambot
  if(!copy($mainframe->getCfg('absolute_path') . '/administrator/components/com_blocklist/mambot/blocklist.xm', $mainframe->getCfg('absolute_path') . '/mambots/system/blocklist.xml')){
    echo '<b>Failed</b> to copy mambot xml file<br />';
  }
  if(!copy($mainframe->getCfg('absolute_path') . '/administrator/components/com_blocklist/mambot/blocklist.php', $mainframe->getCfg('absolute_path') . '/mambots/system/blocklist.php')){
    echo '<b>Failed</b> to copy mambot php file<br />';
  }
  
  $mambot = new mosMambot($database);
  $mambot->name = 'Blocklist mambot';
  $mambot->element = 'blocklist';
  $mambot->folder = 'system';
  $mambot->ordering = 1;
  $mambot->published = 1;
  
  if (!$mambot->store()) {
    echo 'Mambot install failed: ' .$mambot->getError().'<br />';
  }
}

?>