DedeBIZ
/
DedeV6
Наблюдаван 2
Харесван 0
Разклонения 0
Код Заявки за сливане 0 Версии 25 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.
87 Ревизии
3 Клонове
3.8GB
ИН на ревизия: 1ebbb93768
Клонове Маркери
${ item.name }
Create branch ${ searchTerm }
от '1ebbb93768'
${ noResults }
DedeV6/src/dede/module_main.php

669 lines
23KB
Директен файл Blame История 

  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 - 2020, DesDev, Inc.

  8.  * @license        http://help.dedecms.com/usersguide/license.html

  9.  * @link           http://www.dedecms.com

  10.  */

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

  12. CheckPurview('sys_module');

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

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

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

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

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

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

  19. 

  20. function TestWriteAble($d)

  21. {

  22.     $tfile = '_dedet.txt';

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

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

  25.     if(!$fp) return FALSE;

  26.     else

  27.     {

  28.         fclose($fp);

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

  30.         if($rs) return TRUE;

  31.         else return FALSE;

  32.     }

  33. }

  34. 

  35. function ReWriteConfigAuto()

  36. {

  37.     global $dsql;

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

  39.     if(!is_writeable($configfile))

  40.     {

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

  42.         //ClearAllLink();

  43.         exit();

  44.     }

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

  46.     flock($fp,3);

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

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

  49.     $dsql->Execute();

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

  51.     {

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

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

  54.     }

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

  56.     fclose($fp);

  57. }

  58. 

  59. 

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

  61. {

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

  63.         global $cfg_basehost;

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

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

  66.         if(!$fp)

  67.         {

  68.             return FALSE;

  69.         }else{ 

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

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

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

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

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

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

  76.             fclose($fp); 

  77.         }

  78.     }else{

  79.         return FALSE; 

  80.     }  

  81. }

  82. /*--------------

  83. function ShowAll();

  84. --------------*/

  85. if($action=='')

  86. {

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

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

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

  90. 	

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

  92. 	$modules = array();

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

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

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

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

  97.     $dm->Clear();

  98.     exit();

  99. }

  100. /*--------------

  101. function Setup();

  102. --------------*/

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

  104. {

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

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

  107. 

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

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

  110. 

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

  112.     $filelist = '';

  113.     $prvdirs = array();

  114.     $incdir = array();

  115.     foreach($filelists as $v)

  116.     {

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

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

  119.         {

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

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

  122.         }

  123.         else

  124.         {

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

  126.         }

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

  128.     }

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

  130.     foreach($filelists as $v)

  131.     {

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

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

  134.         $n = TRUE;

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

  136.         {

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

  138.             {

  139.                 $n = FALSE;

  140.                 BREAK;

  141.             }

  142.         }

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

  144.         {

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

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

  147.         }

  148.     }

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

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

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

  152.     {

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

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

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

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

  157.     }

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

  159. 

  160.     $win = new OxWindow();

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

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

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

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

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

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

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

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

  169.   <tr>

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

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

  172.   </tr>

  173.   <tr>

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

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

  176.   </tr>

  177.   <tr>

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

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

  180.   </tr>

  181.   <tr>

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

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

  184.   </tr>

  185.   <tr>

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

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

  188.   </tr>

  189.   <tr>

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

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

  192.   </tr>

  193.   <tr>

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

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

  196.   </tr>

  197.   <tr>

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

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

  200.   </tr>

  201.   <tr>

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

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

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

  205.     </td>

  206.   </tr>

  207.   <tr>

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

  209.     <td>

  210.     $prvdir

  211.     </td>

  212.   </tr>

  213.   <tr>

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

  215.     <td></td>

  216.   </tr>

  217.   <tr>

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

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

  220.     </td>

  221.   </tr>

  222.   <tr>

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

  224.     <td>

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

  226.     覆盖

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

  228.    覆盖，保留副本

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

  230.    保留旧文件

  231.    </td>

  232.   </tr>

  233. </table>

  234.     ";

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

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

  237.     $win->Display();

  238.     $dm->Clear();

  239.     exit();

  240. }

  241. /*---------------

  242. function SetupRun()

  243. --------------*/

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

  245. {

  246.     if(!is_writeable($mdir))

  247.     {

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

  249.         exit();

  250.     }

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

  252. 

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

  254.     extract($minfos, EXTR_SKIP);

  255. 

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

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

  258. 

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

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

  261. 

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

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

  264.     if(!$rs)

  265.     {

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

  267.         exit();

  268.     }

  269. 

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

  271.     $filename = '';

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

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

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

  275.     $dm->Clear();

  276. 

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

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

  279.     {

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

  281.         exit();

  282.     }

  283.     //系统自动安装

  284.     else

  285.     {

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

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

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

  289. 

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

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

  292.         

  293.         if($mysql_version >= 4.1)

  294.         {

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

  296.         }

  297. 

  298.         //_ROOTURL_

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

  300. 

  301.         $rooturl = $cfg_basehost.$cfg_cmspath;

  302.         

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

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

  305. 

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

  307.         foreach($sqls as $sql)

  308.         {

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

  310.         }

  311. 

  312.         ReWriteConfigAuto();

  313. 

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

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

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

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

  318.         echo $rflwft;

  319. 

  320.         UpDateCatCache();

  321.         SendData($hash);

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

  323.         exit();

  324.     }

  325. }

  326. /*--------------

  327. function DelModule();

  328. --------------*/

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

  330. {

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

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

  333. 

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

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

  336. 

  337.     $win = new OxWindow();

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

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

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

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

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

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

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

  345.   <tr>

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

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

  348.   </tr>

  349.   <tr>

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

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

  352.   </tr>

  353.   <tr>

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

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

  356.   </tr>

  357.   <tr>

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

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

  360.   </tr>

  361.   <tr>

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

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

  364.   </tr>

  365.   <tr>

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

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

  368.   </tr>

  369.   <tr>

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

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

  372.   </tr>

  373.   <tr>

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

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

  376.   </tr>

  377.   <tr>

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

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

  380.    </td>

  381.   </tr>

  382. </table>

  383.     ";

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

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

  386.     $win->Display();

  387.     $dm->Clear();

  388.     exit();

  389. }

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

  391. {

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

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

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

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

  396.     exit();

  397. }

  398. /*--------------

  399. function UnInstall();

  400. --------------*/

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

  402. {

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

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

  405. 

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

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

  408. 

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

  410.     $filelist = '';

  411.     foreach($filelists as $v)

  412.     {

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

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

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

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

  417.     }

  418.     $win = new OxWindow();

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

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

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

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

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

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

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

  426.   <tr>

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

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

  429.   </tr>

  430.   <tr>

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

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

  433.   </tr>

  434.   <tr>

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

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

  437.   </tr>

  438.   <tr>

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

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

  441.   </tr>

  442.   <tr>

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

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

  445.   </tr>

  446.   <tr>

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

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

  449.   </tr>

  450.   <tr>

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

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

  453.   </tr>

  454.   <tr>

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

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

  457.   </tr>

  458.   <tr>

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

  460.   </tr>

  461.   <tr>

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

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

  464.     </td>

  465.   </tr>

  466.   <tr>

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

  468.     <td>

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

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

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

  472.     删除模块的所有文件

  473.    </td>

  474.   </tr>

  475. </table>

  476.     ";

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

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

  479.     $win->Display();

  480.     $dm->Clear();

  481.     exit();

  482. }

  483. /*--------------

  484. function UnInstallRun();

  485. --------------*/

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

  487. {

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

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

  490. 

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

  492.     extract($minfos, EXTR_SKIP);

  493. 

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

  495.     {

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

  497.     }

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

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

  500.     $dm->Clear();

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

  502.     {

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

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

  505.         exit();

  506.     }

  507.     else

  508.     {

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

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

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

  512.         {

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

  514.             foreach($sqls as $sql)

  515.             {

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

  517.             }

  518.         }

  519.         

  520.         ReWriteConfigAuto();

  521.         

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

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

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

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

  526.         echo $rflwft;

  527.         SendData($hash,2);

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

  529.         exit();

  530.     }

  531. }

  532. /*--------------

  533. function ShowReadme();

  534. --------------*/

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

  536. {

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

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

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

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

  541.     $dm->Clear();

  542.     $win = new OxWindow();

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

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

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

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

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

  548.     $win->Display();

  549.     exit();

  550. }

  551. /*--------------

  552. function ViewOne();

  553. --------------*/

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

  555. {

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

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

  558. 

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

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

  561. 

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

  563.     $filelist = '';

  564.     $setupinfo = '';

  565.     foreach($filelists as $v)

  566.     {

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

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

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

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

  571.     }

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

  573.     {

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

  575.     } else {

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

  577.     }

  578.     $win = new OxWindow();

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

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

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

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

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

  584.   <tr>

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

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

  587.   </tr>

  588.   <tr>

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

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

  591.   </tr>

  592.   <tr>

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

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

  595.   </tr>

  596.   <tr>

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

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

  599.   </tr>

  600.   <tr>

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

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

  603.   </tr>

  604.   <tr>

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

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

  607.   </tr>

  608.   <tr>

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

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

  611.   </tr>

  612.   <tr>

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

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

  615.   </tr>

  616.   <tr>

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

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

  619.   </tr>

  620.   <tr>

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

  622.   </tr>

  623.   <tr>

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

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

  626.     </td>

  627.   </tr>

  628. </table>

  629.     ";

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

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

  632.     $win->Display();

  633.     $dm->Clear();

  634.     exit();

  635. }

  636. /*--------------

  637. function Edit();

  638. --------------*/

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

  640. {

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

  642. 

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

  644.     extract($minfos, EXTR_SKIP);

  645. 

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

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

  648. 

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

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

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

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

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

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

  655.     $dm->Clear();

  656.     

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

  658.     exit();

  659. }

  660. /*--------------

  661. function Download();

  662. --------------*/

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

  664. {

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

  666. 	$model_remote = file_get_contents($model_remote_url);

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

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

  669. }