mirror of
https://github.com/EGroupware/egroupware.git
synced 2024-11-14 12:04:54 +01:00
not longer used
This commit is contained in:
Ralf Becker
parent
4a7737adef
commit
ccd3d696de
@ -1 +0,0 @@
|
|||||||
See the SECURITY in phpgwapi/doc
|
|
||||||
@ -1,219 +0,0 @@
|
|||||||
#!/usr/bin/php -qC
|
|
||||||
<?php
|
|
||||||
/**************************************************************************\
|
|
||||||
* eGroupWare - Tool to modernize the eGW code automaticaly *
|
|
||||||
* http://www.eGroupWare.org *
|
|
||||||
* Written and (c) by Ralf Becker <RalfBecker@outdoor-training.de> *
|
|
||||||
* ------------------------------------------------------- *
|
|
||||||
* This program is free software; you can redistribute it and/or modify it *
|
|
||||||
* under the terms of the GNU General Public License as published by the *
|
|
||||||
* Free Software Foundation; either version 2 of the License, or (at your *
|
|
||||||
* option) any later version. *
|
|
||||||
\**************************************************************************/
|
|
||||||
|
|
||||||
/* $Id$ */
|
|
||||||
|
|
||||||
error_reporting(E_ALL & ~ E_NOTICE);
|
|
||||||
|
|
||||||
// defaults
|
|
||||||
$no_phpgw = $do_replace = false;
|
|
||||||
$remove_space_indention = 2; // replace 2 space with a tab
|
|
||||||
|
|
||||||
while ($argc > 2)
|
|
||||||
{
|
|
||||||
switch($argv[1])
|
|
||||||
{
|
|
||||||
case '--no-phpgw':
|
|
||||||
$no_phpgw = true;
|
|
||||||
break;
|
|
||||||
|
|
||||||
case '--remove-space-indention':
|
|
||||||
$remove_space_indention = (int) $argv[2];
|
|
||||||
array_shift($argv);
|
|
||||||
--$argc;
|
|
||||||
break;
|
|
||||||
|
|
||||||
case '--replace':
|
|
||||||
$do_replace = true;
|
|
||||||
break;
|
|
||||||
|
|
||||||
default:
|
|
||||||
$argc = 0; // invalid parameter ==> break the loop and give usage message
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
array_shift($argv);
|
|
||||||
--$argc;
|
|
||||||
}
|
|
||||||
|
|
||||||
if ($argc != 2 || !file_exists($file = $argv[1]))
|
|
||||||
{
|
|
||||||
if ($argc == 2) echo "File '$file' not found !!!\n\n";
|
|
||||||
echo "Usage: modernize.php [--no-phpgw] [--remove-space-indention N] [--replace] <filename>\n";
|
|
||||||
echo "--no-phpgw dont change phpgw to egw, necessary for some API files\n";
|
|
||||||
echo "--remove-space-indention N substitute every N space at the beginning of a line with a tab (default 2)\n";
|
|
||||||
echo "--replace replaces the given file (plus creating a backup) instead of acting as filter\n\n";
|
|
||||||
exit;
|
|
||||||
}
|
|
||||||
|
|
||||||
if ($do_replace)
|
|
||||||
{
|
|
||||||
if (!is_writable($file) && !is_writable(dirname($file)))
|
|
||||||
{
|
|
||||||
echo "'$file' is NOT writeable !!!\n";
|
|
||||||
exit;
|
|
||||||
}
|
|
||||||
$do_replace = $file;
|
|
||||||
$file .= '.bak';
|
|
||||||
if (is_writable(dirname($file)))
|
|
||||||
{
|
|
||||||
rename($do_replace,$file);
|
|
||||||
}
|
|
||||||
else // only file is writable not the directory, so we cant create a backup
|
|
||||||
{
|
|
||||||
$file = $do_replace;
|
|
||||||
}
|
|
||||||
ob_start();
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
// some code modernizations
|
|
||||||
$modernize = array(
|
|
||||||
// saves an unnecessary copy
|
|
||||||
'= CreateObject' => '=& CreateObject',
|
|
||||||
'= new' => '=& new',
|
|
||||||
// php5 cloning of the DB object
|
|
||||||
'= $GLOBALS[\'phpgw\']->db;' => '= clone($GLOBALS[\'egw\']->db);',
|
|
||||||
'= $this->db;' => '= clone($this->db);',
|
|
||||||
// remove windows lineends (CR)
|
|
||||||
"\r" => '',
|
|
||||||
);
|
|
||||||
|
|
||||||
foreach(array('GET','POST','SERVER','SESSION') as $name)
|
|
||||||
{
|
|
||||||
$modernize['$HTTP_'.$name.'_VARS'] = '$_'.$name;
|
|
||||||
$modernize['$GLOBALS[\'HTTP_'.$name.'_VARS\']'] = '$_'.$name;
|
|
||||||
$modernize['$GLOBALS["HTTP_'.$name.'_VARS"]'] = '$_'.$name;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (!$no_phpgw)
|
|
||||||
{
|
|
||||||
$modernize += array(
|
|
||||||
// phpGW --> eGW
|
|
||||||
// done now separate as it is case sensitve 'PHPGW_' => 'EGW_',
|
|
||||||
'global $phpgw_info;' => '',
|
|
||||||
'global $phpgw;' => '',
|
|
||||||
'$GLOBALS[\'phpgw_info\']' => '$GLOBALS[\'egw_info\']',
|
|
||||||
'$GLOBALS["phpgw_info"]' => '$GLOBALS[\'egw_info\']',
|
|
||||||
'$phpgw_info[' => '$GLOBALS[\'egw_info\'][',
|
|
||||||
'$GLOBALS[\'phpgw\']' => '$GLOBALS[\'egw\']',
|
|
||||||
'$GLOBALS["phpgw"]' => '$GLOBALS[\'egw\']',
|
|
||||||
'$phpgw->' => '$GLOBALS[\'egw\']->',
|
|
||||||
'common->phpgw_header' => 'common->egw_header',
|
|
||||||
'common->phpgw_footer' => 'common->egw_footer',
|
|
||||||
'common->phpgw_exit' => 'common->egw_exit',
|
|
||||||
'common->phpgw_final' => 'common->egw_final',
|
|
||||||
);
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
$modernize_from = array_keys($modernize);
|
|
||||||
$modernize_to = array_values($modernize);
|
|
||||||
|
|
||||||
$in_doc_block = false;
|
|
||||||
foreach(file($file) as $n => $line)
|
|
||||||
{
|
|
||||||
$func = function_exists('str_ireplace') ? 'str_ireplace' : 'str_replace';
|
|
||||||
$line = str_replace('PHPGW_','EGW_',$func($modernize_from,$modernize_to,$line));
|
|
||||||
|
|
||||||
if ($remove_space_indention)
|
|
||||||
{
|
|
||||||
while (preg_match("/^(\t*)".str_repeat(' ',$remove_space_indention).'/',$line))
|
|
||||||
{
|
|
||||||
$line = preg_replace("/^(\t*)".str_repeat(' ',$remove_space_indention).'/',"\\1\t",$line);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if (!$in_doc_block)
|
|
||||||
{
|
|
||||||
$parts = explode('/*!',$line);
|
|
||||||
if (count($parts) <= 1)
|
|
||||||
{
|
|
||||||
echo $line;
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
$in_doc_block = true;
|
|
||||||
|
|
||||||
list($indent,$rest) = $parts;
|
|
||||||
echo $indent."/**\n";
|
|
||||||
if (strlen($rest) <= 2)
|
|
||||||
{
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
$line = $indent.$rest;
|
|
||||||
|
|
||||||
if (($one_line_block = strstr($line,'*/') !== false)) $line = str_replace('*/','',$line);
|
|
||||||
}
|
|
||||||
// now we are inside a comment-block
|
|
||||||
|
|
||||||
if (preg_match('/[ \t]*\*\//',$line)) // exiting the comment-block
|
|
||||||
{
|
|
||||||
$in_doc_block = false;
|
|
||||||
echo str_replace('*/',' */',$line);
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
if (preg_match('/^(.*)@([a-zA-Z]+) (.*)$/',$line,$parts))
|
|
||||||
{
|
|
||||||
list(,$indent,$cmd,$value) = $parts;
|
|
||||||
switch ($cmd)
|
|
||||||
{
|
|
||||||
// to ignore
|
|
||||||
case 'syntax':
|
|
||||||
case 'function':
|
|
||||||
case 'class':
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 'abstract':
|
|
||||||
echo $indent.' * '.$value."\n".$indent." *\n";
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 'discussion':
|
|
||||||
case 'example':
|
|
||||||
default:
|
|
||||||
echo $indent.' * '.$value."\n";
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 'result':
|
|
||||||
$cmd = 'return';
|
|
||||||
// fall through
|
|
||||||
case 'param':
|
|
||||||
case 'return':
|
|
||||||
case 'var':
|
|
||||||
case 'author':
|
|
||||||
case 'copyright':
|
|
||||||
case 'licence':
|
|
||||||
case 'package':
|
|
||||||
case 'access':
|
|
||||||
echo $indent.' * @'.$cmd.' '.$value."\n";
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
echo str_replace($indent,$indent.' * ',$line);
|
|
||||||
}
|
|
||||||
if ($one_line_block)
|
|
||||||
{
|
|
||||||
echo $indent." */\n";
|
|
||||||
$one_line_block = $in_doc_block = false;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if ($do_replace && ($f = fopen($do_replace,'wb')))
|
|
||||||
{
|
|
||||||
fwrite($f,ob_get_contents());
|
|
||||||
fclose($f);
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
ob_flush();
|
|
||||||
}
|
|
||||||
Loading…
Reference in New Issue
Block a user