DedeBIZ
/
DedeV6
Watch 2
Star 0
Fork 0
Code Pull Requests 0 Releases 31 Activity
国内流行的内容管理系统（CMS）多端全媒体解决方案 https://www.dedebiz.com
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
173 Commits
3 Branches
93MB
Tree: ccf613be97
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'ccf613be97'
${ noResults }
DedeV6/src/dede/module_main.php

672 lines
23KB
Raw Blame History 

  1. <?php

  2. /**

  3.  * 模块管理

  4.  *

  5.  * @version        $Id: module_main.php 1 14:17 2010年7月20日Z tianya $

  6.  * @package        DedeCMS.Administrator

  7.  * @copyright      Copyright (c) 2007 - 2018, DesDev, Inc.

  8.  * @copyright      Copyright (c) 2020, DedeBIZ.COM

  9.  * @license        https://www.dedebiz.com/license/v6

  10.  * @link           https://www.dedebiz.com

  11.  */

  12. require_once(dirname(__FILE__)."/config.php");

  13. CheckPurview('sys_module');

  14. require_once(dirname(__FILE__)."/../include/dedemodule.class.php");

  15. require_once(dirname(__FILE__)."/../include/oxwindow.class.php");

  16. if(empty($action)) $action = '';

  17. require_once(DEDEDATA."/admin/config_update.php");

  18. $mdir = DEDEDATA.'/module';

  19. $mdurl = UPDATEHOST.'dedecms/module_'.$cfg_soft_lang.'/modulelist.txt';

  20. 

  21. function TestWriteAble($d)

  22. {

  23.     $tfile = '_dedet.txt';

  24.     $d = preg_replace("#\/$#", '', $d);

  25.     $fp = @fopen($d.'/'.$tfile,'w');

  26.     if(!$fp) return FALSE;

  27.     else

  28.     {

  29.         fclose($fp);

  30.         $rs = @unlink($d.'/'.$tfile);

  31.         if($rs) return TRUE;

  32.         else return FALSE;

  33.     }

  34. }

  35. 

  36. function ReWriteConfigAuto()

  37. {

  38.     global $dsql;

  39.     $configfile = DEDEDATA.'/config.cache.inc.php';

  40.     if(!is_writeable($configfile))

  41.     {

  42.         echo "配置文件'{$configfile}'不支持写入，无法修改系统配置参数！";

  43.         //ClearAllLink();

  44.         exit();

  45.     }

  46.     $fp = fopen($configfile,'w');

  47.     flock($fp,3);

  48.     fwrite($fp,"<"."?php\r\n");

  49.     $dsql->SetQuery("SELECT `varname`,`type`,`value`,`groupid` FROM `#@__sysconfig` ORDER BY aid ASC ");

  50.     $dsql->Execute();

  51.     while($row = $dsql->GetArray())

  52.     {

  53.         if($row['type']=='number') fwrite($fp,"\${$row['varname']} = ".$row['value'].";\r\n");

  54.         else fwrite($fp,"\${$row['varname']} = '".str_replace("'",'',$row['value'])."';\r\n");

  55.     }

  56.     fwrite($fp,"?".">");

  57.     fclose($fp);

  58. }

  59. 

  60. 

  61. function SendData($hash = '',$type = 1)

  62. {

  63.     if(!empty($hash)){

  64.         global $cfg_basehost;

  65.         $str = "basehost=".$cfg_basehost."&hash=".$hash."&type=".$type;

  66.         $fp = fsockopen('www.dedecms.com',80,$errno,$errstr,30); 

  67.         if(!$fp)

  68.         {

  69.             return FALSE;

  70.         }else{ 

  71.             fputs($fp, "POST http://www.dedecms.com/plugin.php HTTP/1.1\r\n"); 

  72.             fputs($fp, "Host: www.dedecms.com\r\n"); 

  73.             fputs($fp, "Content-type: application/x-www-form-urlencoded\r\n"); 

  74.             fputs($fp, "Content-length: ".strlen($str)."\r\n"); 

  75.             fputs($fp, "Connection: close\r\n\r\n"); 

  76.             fputs($fp, $str."\r\n\r\n"); 

  77.             fclose($fp); 

  78.         }

  79.     }else{

  80.         return FALSE; 

  81.     }  

  82. }

  83. /*--------------

  84. function ShowAll();

  85. --------------*/

  86. if($action=='')

  87. {

  88.     $types = array('soft'=>'模块','templets'=>'模板','plus'=>'小插件','patch'=>'补丁');

  89.     $dm = new DedeModule($mdir);

  90.     if(empty($moduletype)) $moduletype = '';

  91. 	

  92.     $modules_remote = $dm->GetModuleUrlList($moduletype,$mdurl);

  93.     $modules = array();

  94.     $modules = $dm->GetModuleList($moduletype);

  95.     is_array($modules) || $modules = array();

  96.     if (is_array($modules_remote) && count($modules_remote) > 0) {

  97.       $modules = array_merge($modules, $modules_remote);

  98.     }

  99.     require_once(dirname(__FILE__)."/templets/module_main.htm");

  100.     $dm->Clear();

  101.     exit();

  102. }

  103. /*--------------

  104. function Setup();

  105. --------------*/

  106. else if($action=='setup')

  107. {

  108.     $dm = new DedeModule($mdir);

  109.     $infos = $dm->GetModuleInfo($hash);

  110. 

  111.     if($infos['url']=='') $infos['url'] = '&nbsp;';

  112.     $alertMsg = ($infos['lang'] == $cfg_soft_lang ? '' : '<br /><font color="red">(这个模块的语言编码与你系统的编码不一致，请向开发者确认它的兼容性)</font>');

  113. 

  114.     $filelists = $dm->GetFileLists($hash);

  115.     $filelist = '';

  116.     $prvdirs = array();

  117.     $incdir = array();

  118.     foreach($filelists as $v)

  119.     {

  120.         if(empty($v['name'])) continue;

  121.         if($v['type']=='dir')

  122.         {

  123.             $v['type'] = '目录';

  124.             $incdir[] = $v['name'];

  125.         }

  126.         else

  127.         {

  128.             $v['type'] = '文件';

  129.         }

  130.         $filelist .= "{$v['type']}|{$v['name']}\r\n";

  131.     }

  132.     //检测需要的目录权限

  133.     foreach($filelists as $v)

  134.     {

  135.         $prvdir = preg_replace("#\/([^\/]*)$#", '/', $v['name']);

  136.         if(!preg_match("#^\.#", $prvdir)) $prvdir = './';

  137.         $n = TRUE;

  138.         foreach($incdir as $k=>$v)

  139.         {

  140.             if(preg_match("#^".$v."#i", $prvdir))

  141.             {

  142.                 $n = FALSE;

  143.                 BREAK;

  144.             }

  145.         }

  146.         if(!isset($prvdirs[$prvdir]) && $n && is_dir($prvdir))

  147.         {

  148.             $prvdirs[$prvdir][0] = 1;

  149.             $prvdirs[$prvdir][1] = TestWriteAble($prvdir);

  150.         }

  151.     }

  152.     $prvdir = "<table cellpadding='1' cellspacing='1' width='350' bgcolor='#cfcfcf' style='margin-top:5px;'>\r\n";

  153.     $prvdir .= "<tr style='background:#FBFCE2'><th width='270'>目录</td><th align='center'>可写</td></tr>\r\n";

  154.     foreach($prvdirs as $k=>$v)

  155.     {

  156.         if($v) $cw = '√';

  157.         else $cw = '<font color="red">×</font>';

  158.         $prvdir .= "<tr bgcolor='#ffffff'><td >$k</td>";

  159.         $prvdir .= "<td align='center' >$cw</td></tr>\r\n";

  160.     }

  161.     $prvdir .= "</table>";

  162. 

  163.     $win = new OxWindow();

  164.     $win->Init("module_main.php","js/blank.js","post");

  165.     $wecome_info = "模块管理";

  166.     $win->AddTitle("&nbsp;<a href='module_main.php'>模块管理</a> &gt;&gt; 安装模块： {$infos['name']}");

  167.     $win->AddHidden("hash",$hash);

  168.     $win->AddHidden("action",'setupstart');

  169.     if(trim($infos['url'])=='') $infos['url'] = '无';

  170.     $msg = "<style>.dtb{border-bottom:1px dotted #cccccc}</style>

  171.     <table width='98%' border='0' cellspacing='0' cellpadding='0'>

  172.   <tr>

  173.     <td width='20%' height='28' class='dtb'>模块名称：</td>

  174.     <td width='80%' class='dtb'>{$infos['name']}</td>

  175.   </tr>

  176.   <tr>

  177.     <td height='28' class='dtb'>语言：</td>

  178.     <td class='dtb'>{$infos['lang']} {$alertMsg}</td>

  179.   </tr>

  180.   <tr>

  181.     <td height='28' class='dtb'>文件大小：</td>

  182.     <td class='dtb'>{$infos['filesize']}</td>

  183.   </tr>

  184.   <tr>

  185.     <td height='28' class='dtb'>团队名称：</td>

  186.     <td class='dtb'>{$infos['team']}</td>

  187.   </tr>

  188.   <tr>

  189.     <td height='28' class='dtb'>发布时间：</td>

  190.     <td class='dtb'>{$infos['time']}</td>

  191.   </tr>

  192.   <tr>

  193.     <td height='28' class='dtb'>电子邮箱：</td>

  194.     <td class='dtb'>{$infos['email']}</td>

  195.   </tr>

  196.   <tr>

  197.     <td height='28' class='dtb'>官方网址：</td>

  198.     <td class='dtb'>{$infos['url']}</td>

  199.   </tr>

  200.   <tr>

  201.     <td height='28' class='dtb'>使用协议：</td>

  202.     <td class='dtb'><a href='module_main.php?action=showreadme&hash={$hash}' target='_blank'>点击浏览...</a></td>

  203.   </tr>

  204.   <tr>

  205.     <td height='30' class='dtb' bgcolor='#F9FCEF' colspan='2'>

  206.     <b>注意事项：</b>

  207.     安装时请确保文件列表中涉及的目录前可写入权限，此外“后台管理目录”、“后台管理目录/templets”目录也必须暂时设置可写入权限。

  208.     </td>

  209.   </tr>

  210.   <tr>

  211.     <td height='30'><b>目录权限检测：</b><br /> ../ 为根目录 <br /> ./ 表示当前目录</td>

  212.     <td>

  213.     $prvdir

  214.     </td>

  215.   </tr>

  216.   <tr>

  217.     <td height='30'>模块包含的所有文件列表：</td>

  218.     <td></td>

  219.   </tr>

  220.   <tr>

  221.     <td height='164' colspan='2'>

  222.      <textarea name='filelists' id='filelists' style='width:90%;height:200px'>{$filelist}</textarea>

  223.     </td>

  224.   </tr>

  225.   <tr>

  226.     <td height='28'>对于已存在文件处理方法：</td>

  227.     <td>

  228.    <input name='isreplace' type='radio' value='1' checked='checked' />

  229.     覆盖

  230.    <input name='isreplace' type='radio' value='3' />

  231.    覆盖，保留副本

  232.    <input type='radio' name='isreplace' value='0' />

  233.    保留旧文件

  234.    </td>

  235.   </tr>

  236. </table>

  237.     ";

  238.     $win->AddMsgItem("<div style='padding-left:10px;line-height:150%'>$msg</div>");

  239.     $winform = $win->GetWindow("ok","");

  240.     $win->Display();

  241.     $dm->Clear();

  242.     exit();

  243. }

  244. /*---------------

  245. function SetupRun()

  246. --------------*/

  247. else if($action=='setupstart')

  248. {

  249.     if(!is_writeable($mdir))

  250.     {

  251.         ShowMsg("目录 {$mdir} 不支持写入，这将导致安装程序没法正常创建！","-1");

  252.         exit();

  253.     }

  254.     $dm = new DedeModule($mdir);

  255. 

  256.     $minfos = $dm->GetModuleInfo($hash);

  257.     extract($minfos, EXTR_SKIP);

  258. 

  259.     $menustring = addslashes($dm->GetSystemFile($hash,'menustring'));

  260.     $indexurl = str_replace('**', '=', $indexurl);

  261. 

  262.     $query = "INSERT INTO `#@__sys_module`(`hashcode` , `modname` , `indexname` , `indexurl` , `ismember` , `menustring` )

  263.                                     VALUES ('$hash' , '$name' , '$indexname' , '$indexurl' , '$ismember' , '$menustring' ) ";

  264. 

  265.     $rs = $dsql->ExecuteNoneQuery("DELETE FROM `#@__sys_module` WHERE hashcode LIKE '$hash' ");

  266.     $rs = $dsql->ExecuteNoneQuery($query);

  267.     if(!$rs)

  268.     {

  269.         ShowMsg('保存数据库信息失败，无法完成安装！'.$dsql->GetError(),'javascript:;');

  270.         exit();

  271.     }

  272. 

  273.     $dm->WriteFiles($hash,$isreplace);

  274.     $filename = '';

  275.     if(!isset($autosetup) || $autosetup==0) $filename = $dm->WriteSystemFile($hash, 'setup');

  276.     if(!isset($autodel) || $autodel==0) $dm->WriteSystemFile($hash, 'uninstall');

  277.     $dm->WriteSystemFile($hash,'readme');

  278.     $dm->Clear();

  279. 

  280.     //用模块的安装程序安装

  281.     if(!isset($autosetup) || $autosetup==0)

  282.     {

  283.         include(DEDEDATA.'/module/'.$filename);

  284.         exit();

  285.     }

  286.     //系统自动安装

  287.     else

  288.     {

  289.         $mysql_version = $dsql->GetVersion(TRUE);

  290.         //默认使用MySQL 4.1 以下版本的SQL语句，对大于4.1版本采用替换处理 TYPE=MyISAM ==> ENGINE=MyISAM DEFAULT CHARSET=#~lang~#

  291.         $setupsql = $dm->GetSystemFile($hash, 'setupsql40');

  292. 

  293.         $setupsql = preg_replace("#ENGINE=MyISAM#i", 'TYPE=MyISAM', $setupsql);

  294.         $sql41tmp = 'ENGINE=MyISAM DEFAULT CHARSET='.$cfg_db_language;

  295.         

  296.         if($mysql_version >= 4.1)

  297.         {

  298.             $setupsql = preg_replace("#TYPE=MyISAM#i", $sql41tmp, $setupsql);

  299.         }

  300. 

  301.         //_ROOTURL_

  302.         if($cfg_cmspath=='/') $cfg_cmspath = '';

  303. 

  304.         $rooturl = $cfg_basehost.$cfg_cmspath;

  305.         

  306.         $setupsql = preg_replace("#_ROOTURL_#i", $rooturl, $setupsql);

  307.         $setupsql = preg_replace("#[\r\n]{1,}#", "\n", $setupsql);

  308. 

  309.         $sqls = @split(";[ \t]{0,}\n", $setupsql);

  310.         foreach($sqls as $sql)

  311.         {

  312.             if(trim($sql)!='') $dsql->ExecuteNoneQuery($sql);

  313.         }

  314. 

  315.         ReWriteConfigAuto();

  316. 

  317.         $rflwft = "<script language='javascript' type='text/javascript'>\r\n";

  318.         $rflwft .= "if(window.navigator.userAgent.indexOf('MSIE')>=1) top.document.frames.menu.location = 'index_menu_module.php';\r\n";

  319.         $rflwft .= "else top.document.getElementById('menufra').src = 'index_menu_module.php';\r\n";

  320.         $rflwft .= "</script>";

  321.         echo $rflwft;

  322. 

  323.         UpDateCatCache();

  324.         SendData($hash);

  325.         ShowMsg('模块安装完成...', 'module_main.php');

  326.         exit();

  327.     }

  328. }

  329. /*--------------

  330. function DelModule();

  331. --------------*/

  332. else if($action=='del')

  333. {

  334.     $dm = new DedeModule($mdir);

  335.     $infos = $dm->GetModuleInfo($hash);

  336. 

  337.     if($infos['url']=='') $infos['url'] = '&nbsp;';

  338.     $alertMsg = ($infos['lang']==$cfg_soft_lang ? '' : '<br /><font color="red">(这个模块的语言编码与你系统的编码不一致，请向开发者确认它的兼容性)</font>');

  339. 

  340.     $win = new OxWindow();

  341.     $win->Init("module_main.php", "js/blank.js", "post");

  342.     $wecome_info = "模块管理";

  343.     $win->AddTitle("<a href='module_main.php'>模块管理</a> &gt;&gt; 删除模块： {$infos['name']}");

  344.     $win->AddHidden('hash', $hash);

  345.     $win->AddHidden('action', 'delok');

  346.     $msg = "<style>.dtb{border-bottom:1px dotted #cccccc}</style>

  347.     <table width='750' border='0' cellspacing='0' cellpadding='0'>

  348.   <tr>

  349.     <td width='200' height='28' class='dtb'>模块名称：</td>

  350.     <td width='550' class='dtb'>{$infos['name']}</td>

  351.   </tr>

  352.   <tr>

  353.     <td height='28' class='dtb'>语言：</td>

  354.     <td class='dtb'>{$infos['lang']} {$alertMsg}</td>

  355.   </tr>

  356.   <tr>

  357.     <td width='200' height='28' class='dtb'>文件大小：</td>

  358.     <td width='550' class='dtb'>{$infos['filesize']}</td>

  359.   </tr>

  360.   <tr>

  361.     <td height='28' class='dtb'>团队名称：</td>

  362.     <td class='dtb'>{$infos['team']}</td>

  363.   </tr>

  364.   <tr>

  365.     <td height='28' class='dtb'>发布时间：</td>

  366.     <td class='dtb'>{$infos['time']}</td>

  367.   </tr>

  368.   <tr>

  369.     <td height='28' class='dtb'>电子邮箱：</td>

  370.     <td class='dtb'>{$infos['email']}</td>

  371.   </tr>

  372.   <tr>

  373.     <td height='28' class='dtb'>官方网址：</td>

  374.     <td class='dtb'>{$infos['url']}</td>

  375.   </tr>

  376.   <tr>

  377.     <td height='28' class='dtb'>使用协议：</td>

  378.     <td class='dtb'><a href='module_main.php?action=showreadme&hash={$hash}' target='_blank'>点击浏览...</a></td>

  379.   </tr>

  380.   <tr>

  381.     <td height='28' colspan='2'>

  382.     删除模块仅删除这个模块的安装包文件，如果你已经安装，请执行<a href='module_main.php?hash={$hash}&action=uninstall'><u>卸载程序</u></a>来删除！

  383.    </td>

  384.   </tr>

  385. </table>

  386.     ";

  387.     $win->AddMsgItem("<div style='padding-left:10px;line-height:150%'>$msg</div>");

  388.     $winform = $win->GetWindow("ok","");

  389.     $win->Display();

  390.     $dm->Clear();

  391.     exit();

  392. }

  393. else if($action=='delok')

  394. {

  395.     $dm = new DedeModule($mdir);

  396.     $modfile = $mdir."/".$dm->GetHashFile($hash);

  397.     unlink($modfile) or die("删除文件 {$modfile} 失败！");

  398.     ShowMsg("成功删除一个模块文件！","module_main.php");

  399.     exit();

  400. }

  401. /*--------------

  402. function UnInstall();

  403. --------------*/

  404. else if($action=='uninstall')

  405. {

  406.     $dm = new DedeModule($mdir);

  407.     $infos = $dm->GetModuleInfo($hash);

  408. 

  409.     if($infos['url']=='') $infos['url'] = '&nbsp;';

  410.     $alertMsg = ($infos['lang']==$cfg_soft_lang ? '' : '<br /><font color="red">(这个模块的语言编码与你系统的编码不一致，请向开发者确认它的兼容性)</font>');

  411. 

  412.     $filelists = $dm->GetFileLists($hash);

  413.     $filelist = '';

  414.     foreach($filelists as $v)

  415.     {

  416.         if(empty($v['name'])) continue;

  417.         if($v['type']=='dir') $v['type'] = '目录';

  418.         else $v['type'] = '文件';

  419.         $filelist .= "{$v['type']}|{$v['name']}\r\n";

  420.     }

  421.     $win = new OxWindow();

  422.     $win->Init("module_main.php", "js/blank.js", "post");

  423.     $wecome_info = "模块管理";

  424.     $win->AddTitle("<a href='module_main.php'>模块管理</a> &gt;&gt; 卸载模块： {$infos['name']}");

  425.     $win->AddHidden("hash",$hash);

  426.     $win->AddHidden("action",'uninstallok');

  427.     $msg = "<style>.dtb{border-bottom:1px dotted #cccccc}</style>

  428.     <table width='750' border='0' cellspacing='0' cellpadding='0'>

  429.   <tr>

  430.     <td width='200' height='28' class='dtb'>模块名称：</td>

  431.     <td width='550' class='dtb'>{$infos['name']}</td>

  432.   </tr>

  433.   <tr>

  434.     <td height='28' class='dtb'>语言：</td>

  435.     <td class='dtb'>{$infos['lang']} {$alertMsg}</td>

  436.   </tr>

  437.   <tr>

  438.     <td width='200' height='28' class='dtb'>文件大小：</td>

  439.     <td width='550' class='dtb'>{$infos['filesize']}</td>

  440.   </tr>

  441.   <tr>

  442.     <td height='28' class='dtb'>团队名称：</td>

  443.     <td class='dtb'>{$infos['team']}</td>

  444.   </tr>

  445.   <tr>

  446.     <td height='28' class='dtb'>发布时间：</td>

  447.     <td class='dtb'>{$infos['time']}</td>

  448.   </tr>

  449.   <tr>

  450.     <td height='28' class='dtb'>电子邮箱：</td>

  451.     <td class='dtb'>{$infos['email']}</td>

  452.   </tr>

  453.   <tr>

  454.     <td height='28' class='dtb'>官方网址：</td>

  455.     <td class='dtb'>{$infos['url']}</td>

  456.   </tr>

  457.   <tr>

  458.     <td height='28' class='dtb'>使用协议：</td>

  459.     <td class='dtb'><a href='module_main.php?action=showreadme&hash={$hash}' target='_blank'>点击浏览...</a></td>

  460.   </tr>

  461.   <tr>

  462.     <td height='28'>模块包含的文件：<br />(文件路径相对于当前目录)</td><td>&nbsp;</td>

  463.   </tr>

  464.   <tr>

  465.     <td height='164' colspan='2'>

  466.      <textarea name='filelists' id='filelists' style='width:90%;height:200px'>{$filelist}</textarea>

  467.     </td>

  468.   </tr>

  469.   <tr>

  470.     <td height='28'>对于模块的文件处理方法：</td>

  471.     <td>

  472.     <input type='radio' name='isreplace' value='0' checked='checked' />

  473.     手工删除文件，仅运行卸载程序

  474.    <input name='isreplace' type='radio' value='2' />

  475.     删除模块的所有文件

  476.    </td>

  477.   </tr>

  478. </table>

  479.     ";

  480.     $win->AddMsgItem("<div style='padding-left:10px;line-height:150%'>$msg</div>");

  481.     $winform = $win->GetWindow("ok","");

  482.     $win->Display();

  483.     $dm->Clear();

  484.     exit();

  485. }

  486. /*--------------

  487. function UnInstallRun();

  488. --------------*/

  489. else if($action=='uninstallok')

  490. {

  491.     $dsql->ExecuteNoneQuery("DELETE FROM `#@__sys_module` WHERE hashcode LIKE '$hash' ");

  492.     $dm = new DedeModule($mdir);

  493. 

  494.     $minfos = $dm->GetModuleInfo($hash);

  495.     extract($minfos, EXTR_SKIP);

  496. 

  497.     if(!isset($moduletype) || $moduletype != 'patch' )

  498.     {

  499.         $dm->DeleteFiles($hash, $isreplace);

  500.     }

  501.     @$dm->DelSystemFile($hash, 'readme');

  502.     @$dm->DelSystemFile($hash, 'setup');

  503.     $dm->Clear();

  504.     if(!isset($autodel) || $autodel==0)

  505.     {

  506.         include(DEDEDATA."/module/{$hash}-uninstall.php");

  507.         @unlink(DEDEDATA."/module/{$hash}-uninstall.php");

  508.         exit();

  509.     }

  510.     else

  511.     {

  512.         @$dm->DelSystemFile($hash, 'uninstall');

  513.         $delsql = $dm->GetSystemFile($hash, 'delsql');

  514.         if(trim($delsql)!='')

  515.         {

  516.             $sqls = explode(';', $delsql);

  517.             foreach($sqls as $sql)

  518.             {

  519.                 if(trim($sql)!='') $dsql->ExecuteNoneQuery($sql);

  520.             }

  521.         }

  522.         

  523.         ReWriteConfigAuto();

  524.         

  525.         $rflwft = "<script language='javascript' type='text/javascript'>\r\n";

  526.         $rflwft .= "if(window.navigator.userAgent.indexOf('MSIE')>=1) top.document.frames.menu.location = 'index_menu_module.php';\r\n";

  527.         $rflwft .= "else top.document.getElementById('menufra').src = 'index_menu_module.php';\r\n";

  528.         $rflwft .= "</script>";

  529.         echo $rflwft;

  530.         SendData($hash,2);

  531.         ShowMsg('模块卸载完成...','module_main.php');

  532.         exit();

  533.     }

  534. }

  535. /*--------------

  536. function ShowReadme();

  537. --------------*/

  538. else if($action=='showreadme')

  539. {

  540.     $dm = new DedeModule($mdir);

  541.     $msg = $dm->GetSystemFile($hash,'readme');

  542.     $msg = preg_replace("/(.*)<body/isU","",$msg);

  543.     $msg = preg_replace("/<\/body>(.*)/isU","",$msg);

  544.     $dm->Clear();

  545.     $win = new OxWindow();

  546.     $win->Init("module_main.php","js/blank.js","post");

  547.     $wecome_info = "模块管理";

  548.     $win->AddTitle("<a href='module_main.php'>模块管理</a> &gt;&gt; 使用说明：");

  549.     $win->AddMsgItem("<div style='padding-left:10px;line-height:150%'>$msg</div>");

  550.     $winform = $win->GetWindow("hand");

  551.     $win->Display();

  552.     exit();

  553. }

  554. /*--------------

  555. function ViewOne();

  556. --------------*/

  557. else if($action=='view')

  558. {

  559.     $dm = new DedeModule($mdir);

  560.     $infos = $dm->GetModuleInfo($hash);

  561. 

  562.     if($infos['url']=='') $infos['url'] = '&nbsp;';

  563.     $alertMsg = ($infos['lang'] == $cfg_soft_lang ? '' : '<br /><font color="red">(这个模块的语言编码与你系统的编码不一致，请向开发者确认它的兼容性)</font>');

  564. 

  565.     $filelists = $dm->GetFileLists($hash);

  566.     $filelist = '';

  567.     $setupinfo = '';

  568.     foreach($filelists as $v)

  569.     {

  570.         if(empty($v['name'])) continue;

  571.         if($v['type']=='dir') $v['type'] = '目录';

  572.         else $v['type'] = '文件';

  573.         $filelist .= "{$v['type']}|{$v['name']}\r\n";

  574.     }

  575.     if(file_exists(DEDEDATA."/module/{$hash}-readme.php")) 

  576.     {

  577.         $setupinfo = "已安装 <a href='module_main.php?action=uninstall&hash={$hash}'>卸载</a>";

  578.     } else {

  579.         $setupinfo = "未安装 <a href='module_main.php?action=setup&hash={$hash}'>安装</a>";

  580.     }

  581.     $win = new OxWindow();

  582.     $win->Init("", "js/blank.js","");

  583.     $wecome_info = "模块管理";

  584.     $win->AddTitle("<a href='module_main.php'>模块管理</a> &gt;&gt; 模块详情： {$infos['name']}");

  585.     $msg = "<style>.dtb{border-bottom:1px dotted #cccccc}</style>

  586.     <table width='98%' border='0' cellspacing='0' cellpadding='0'>

  587.   <tr>

  588.     <td width='20%' height='28' class='dtb'>模块名称：</td>

  589.     <td width='80%' class='dtb'>{$infos['name']}</td>

  590.   </tr>

  591.   <tr>

  592.     <td height='28' class='dtb'>语言：</td>

  593.     <td class='dtb'>{$infos['lang']} {$alertMsg}</td>

  594.   </tr>

  595.   <tr>

  596.     <td height='28' class='dtb'>文件大小：</td>

  597.     <td class='dtb'>{$infos['filesize']}</td>

  598.   </tr>

  599.   <tr>

  600.     <td height='28' class='dtb'>是否已安装：</td>

  601.     <td class='dtb'>{$setupinfo}</td>

  602.   </tr>

  603.   <tr>

  604.     <td height='28' class='dtb'>团队名称：</td>

  605.     <td class='dtb'>{$infos['team']}</td>

  606.   </tr>

  607.   <tr>

  608.     <td height='28' class='dtb'>发布时间：</td>

  609.     <td class='dtb'>{$infos['time']}</td>

  610.   </tr>

  611.   <tr>

  612.     <td height='28' class='dtb'>电子邮箱：</td>

  613.     <td class='dtb'>{$infos['email']}</td>

  614.   </tr>

  615.   <tr>

  616.     <td height='28' class='dtb'>官方网址：</td>

  617.     <td class='dtb'>{$infos['url']}</td>

  618.   </tr>

  619.   <tr>

  620.     <td height='28' class='dtb'>使用协议：</td>

  621.     <td class='dtb'><a href='module_main.php?action=showreadme&hash={$hash}' target='_blank'>点击浏览...</a></td>

  622.   </tr>

  623.   <tr>

  624.     <td height='28'>模块包含的文件：<br />(文件路径相对于当前目录)</td><td>&nbsp;</td>

  625.   </tr>

  626.   <tr>

  627.     <td height='164' colspan='2'>

  628.      <textarea name='filelists' id='filelists' style='width:90%;height:200px'>{$filelist}</textarea>

  629.     </td>

  630.   </tr>

  631. </table>

  632.     ";

  633.     $win->AddMsgItem("<div style='padding-left:10px;line-height:150%'>$msg</div>");

  634.     $winform = $win->GetWindow('hand', '');

  635.     $win->Display();

  636.     $dm->Clear();

  637.     exit();

  638. }

  639. /*--------------

  640. function Edit();

  641. --------------*/

  642. else if($action=='edit')

  643. {

  644.     $dm = new DedeModule($mdir);

  645. 

  646.     $minfos = $dm->GetModuleInfo($hash);

  647.     extract($minfos, EXTR_SKIP);

  648. 

  649.     if(!isset($lang)) $lang = 'gb2312';

  650.     if(!isset($moduletype)) $moduletype = 'soft';

  651. 

  652.     $menustring = $dm->GetSystemFile($hash, 'menustring');

  653.     $setupsql40 = dede_htmlspecialchars($dm->GetSystemFile($hash, 'setupsql40'));

  654.     $readmetxt = $dm->GetSystemFile($hash, 'readme');

  655.     $delsql = $dm->GetSystemFile($hash, 'delsql');

  656.     $filelist = $dm->GetSystemFile($hash,'oldfilelist',false);

  657.     $indexurl = str_replace('**', '=', $indexurl);

  658.     $dm->Clear();

  659.     

  660.     require_once(dirname(__FILE__).'/templets/module_edit.htm');

  661.     exit();

  662. }

  663. /*--------------

  664. function Download();

  665. --------------*/

  666. else if($action=='download')

  667. {

  668. 	$model_remote_url = UPDATEHOST.'dedecms/module_'.$cfg_soft_lang.'/'.$hash.'.xml';

  669. 	$model_remote = file_get_contents($model_remote_url);

  670. 	file_put_contents($mdir.'/'.$hash.'.xml',$model_remote);

  671. 	echo "未安装 <a href='module_main.php?action=setup&hash={$hash}'><u>安装</u></a>";

  672. }