egroupware/doc/config2xet.php

169 lines
4.6 KiB
PHP
Raw Normal View History

2016-04-20 20:52:55 +02:00
<?php
/**
* EGroupware - convert old config.tpl to et2 config.xet
*
* @link http://www.egroupware.org
* @license http://opensource.org/licenses/gpl-license.php GPL - GNU General Public License
* @author Ralf Becker <rb@stylite.de>
* @copyright 2016 by Ralf Becker <rb@stylite.de>
* @version $Id$
*/
if (php_sapi_name() !== 'cli' && !empty($_GET['app']) && preg_match('/^[a-z0-9_-]+$/i', $_GET['app']))
{
$app = $_GET['app'];
}
elseif ($_SERVER['argc'] > 1)
{
$app = $_SERVER['argv'][1];
}
else
{
$app = 'admin';
}
include __DIR__.'/../phpgwapi/inc/common_functions.inc.php';
$path = EGW_SERVER_ROOT.'/'.$app.'/templates/default/config.tpl';
if (!file_exists($path) || !($content = file_get_contents($path)))
{
die("File not found: $path");
}
if (!preg_match('|<!-- BEGIN body -->(.*)<!-- END body -->|sui', $content, $table) &&
!preg_match('|\<table[^>]*\>(.*)</table\>|sui', $content, $table))
{
die('No BEGIN/END body or table tag found!');
}
$table[1] = preg_replace('/^<!-- (BEGIN|END)\s*[^ -]+-->/U', '', $table[1]);
if (!preg_match_all('|(<!--[^<-]*)?\s*<tr[^>]*>(.*)</tr>|Usui', $table[1], $trs, PREG_PATTERN_ORDER))
{
die('No tr tags found!');
}
if (php_sapi_name() !== 'cli')
{
EGroupware\Api\Header\Content::type('config.xet', 'text/plain', 0, true, false);
}
echo '<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE overlay PUBLIC "-//Stylite AG//eTemplate 2//EN" "http://www.egroupware.org/etemplate2.dtd">
<!-- $Id$ -->
<overlay>
<template id="'.$app.'.config" template="" lang="" group="0" version="16.1">
<grid width="100%" class="admin-config egwGridView_grid">
<columns>
<column width="60%"/>
<column/>
</columns>
<rows>
';
foreach($trs[2] as $n => $tr)
{
if (strpos($tr, '{title}') || strpos($tr, '<input type="submit"')) continue;
if (!preg_match_all('|<td\s*([^>]*)>(.*)</td>|Usui', $tr, $tds, PREG_PATTERN_ORDER))
{
die("No td tags found in $n. tr: $tr");
}
if (($commented = !empty($trs[1][$n])? $trs[1][$n] : ''))
{
echo "\t\t\t\t$commented\n";
}
echo "\t\t\t\t<row>\n";
foreach($tds[2] as $t => $td)
{
if (preg_match('|^\s*<([^ >]+)\s*([^/>]+)/?>(.*)\s*$|sui', $td, $matches))
{
$attrs = preg_match_all('|\s*([^=]+)="([^"]+)"|', $matches[2], $attrs) ?
array_combine($attrs[1], $attrs[2]) : array();
switch($matches[1])
{
case 'input':
2016-04-24 16:04:14 +02:00
case 'textarea':
2016-04-20 20:52:55 +02:00
echo "\t\t\t\t\t<textbox id=\"".$attrs['name'].'"';
unset($attrs['value'], $attrs['name']);
foreach($attrs as $name => $value)
{
2016-04-25 10:41:32 +02:00
if ($name == 'type' && $value == 'password') $value = 'passwd';
2016-04-20 20:52:55 +02:00
echo " $name=\"$value\"";
}
echo "/>\n";
2016-04-24 16:04:14 +02:00
if (trim($matches[3]) && $matches['1'] == 'input')
2016-04-20 20:52:55 +02:00
{
if ($commented)
{
echo $tr;
continue;
}
echo "\t\t\t\t\t<!-- ".trim($matches[3])." -->\n";
}
break;
case 'select':
echo "\t\t\t\t\t<select id=\"".$attrs['name'].'"';
unset($attrs['name']);
foreach($attrs as $name => $value)
{
echo " $name=\"$value\"";
}
echo ">\n";
if (preg_match_all('|<option\s+value="([^"]*)"\s*({selected_[^}]+})?>(.*)</option>|Usui', $matches[3], $options))
{
foreach($options[3] as $i => $label)
{
$label = preg_replace_callback('/{lang_([^}]+)}/', function($matches)
{
return '{'.str_replace('_', ' ', $matches[1]).'}';
}, $label);
// no need for spezial sub-string translation syntax
if ($label[0] == '{' && strpos($label, '{', 1) === false && substr($label, -1) == '}')
{
$label = substr($label, 1, -1);
}
echo "\t\t\t\t\t\t<option value=\"".$options[1][$i].'">'.$label."</option>\n";
}
}
else
{
echo "\t\t\t\t\t<!-- ".trim($matches[3])." -->\n";
}
echo "\t\t\t\t\t</select>\n";
break;
default:
echo "\t\t\t\t\t<!-- $tr -->\n";
break;
}
}
elseif (preg_match('/^\s*([^{]*){lang_([^}]+)}\s*(.*)$/sui',
str_replace(array('&nbsp;', '<b>', '</b>'), '', $td), $matches))
{
if (!$commented && trim($matches[1])) echo "\t\t\t\t\t<!-- $matches[1] -->\n";
echo "\t\t\t\t\t<description value=\"".htmlspecialchars(str_replace('_', ' ', $matches[2])).'"';
if (trim($matches[3]) == ':')
{
echo ' label="%s:"';
unset($matches[3]);
}
if (strpos($tds[1][$t], 'colspan='))
{
echo ' span="all" class="subHeader"';
}
echo "/>\n";
if (!$commented && !empty($matches[3]) && trim($matches[3])) echo "\t\t\t\t\t<!-- ".trim($matches[3])." -->\n";
}
elseif(!$commented)
{
echo "\t\t\t\t\t<!-- ".trim($td)." -->\n";
}
}
echo "\t\t\t\t</row>".($commented ? ' -->' : '')."\n";
}
echo
' </rows>
</grid>
</template>
</overlay>
';