<?php
/* Copyright (C) 2001-2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
 * Copyright (C) 2004-2017 Laurent Destailleur  <eldy@users.sourceforge.net>
 * Copyright (C) 2005-2010 Regis Houssin        <regis.houssin@capnetworks.com>
 *
 * 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 3 of the License, or
 * (at your option) any later version.
 *
 * 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.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <http://www.gnu.org/licenses/>.
 */

/**
 *       \file       htdocs/modulebuilder/index.php
 *       \brief      Home page for module builder module
 */

require '../main.inc.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';

$langs->load("admin");
$langs->load("modulebuilder");
$langs->load("other");

$action=GETPOST('action','aZ09');
$confirm=GETPOST('confirm','alpha');
$module=GETPOST('module','alpha');
$tab=GETPOST('tab','aZ09');
$tabobj=GETPOST('tabobj','alpha');
if (empty($module)) $module='initmodule';
if (empty($tab)) $tab='description';
if (empty($tabobj)) $tabobj='newobject';

$modulename=dol_sanitizeFileName(GETPOST('modulename','alpha'));
$objectname=dol_sanitizeFileName(GETPOST('objectname','alpha'));

// Security check
if (! $user->admin && empty($conf->global->MODULEBUILDER_FOREVERYONE)) accessforbidden('ModuleBuilderNotAllowed');


// Dir for custom dirs
$tmp=explode(',', $dolibarr_main_document_root_alt);
$dirins = $tmp[0];

$FILEFLAG='modulebuilder.txt';


/*
 * Actions
 */

if ($dirins && $action == 'initmodule' && $modulename)
{
    $srcdir = DOL_DOCUMENT_ROOT.'/modulebuilder/template';
    $destdir = $dirins.'/'.strtolower($modulename);

    $arrayreplacement=array(
        'mymodule'=>strtolower($modulename),
     	'MyModule'=>$modulename
    );

    $result = dolCopyDir($srcdir, $destdir, 0, 0, $arrayreplacement);
    //dol_mkdir($destfile);
    if ($result <= 0)
    {
    	if ($result < 0)
    	{
        	$error++;
        	$langs->load("errors");
        	setEventMessages($langs->trans("ErrorFailToCopyDir", $srcdir, $destdir), null, 'errors');
    	}
    	else	// $result == 0
    	{
        	setEventMessages($langs->trans("AllFilesDidAlreadyExist", $srcdir, $destdir), null, 'warnings');
    	}
    }

    // Delete some files
    dol_delete_file($destdir.'/myobject_card.php');
    dol_delete_file($destdir.'/myobject_list.php');
    dol_delete_file($destdir.'/test/phpunit/MyObjectTest.php');
    dol_delete_file($destdir.'/sql/llx_myobject.key.sql');
    dol_delete_file($destdir.'/sql/llx_myobject.sql');
    dol_delete_file($destdir.'/scripts/myobject.php');
    dol_delete_file($destdir.'/img/object_myobject.png');
    dol_delete_file($destdir.'/class/myobject.class.php');
    dol_delete_file($destdir.'/class/api_myobject.class.php');
    dol_delete_file($destdir.'/class/MyObject.txt');

    // Edit PHP files
    if (! $error)
    {
	    $listofphpfilestoedit = dol_dir_list($destdir, 'files', 1, '\.(php|MD|js)$', '', 'fullname', SORT_ASC, 0, 1);
	    foreach($listofphpfilestoedit as $phpfileval)
	    {
	        //var_dump($phpfileval['fullname']);
	    	$arrayreplacement=array(
	            'mymodule'=>strtolower($modulename),
	        	'MyModule'=>$modulename,
	        	'MYMODULE'=>strtoupper($modulename),
	        	'My module'=>$modulename,
	        	'htdocs/modulebuilder/template/'=>'',
	        );


	        $result=dolReplaceInFile($phpfileval['fullname'], $arrayreplacement);
	        //var_dump($result);
	        if ($result < 0)
	        {
	        	setEventMessages($langs->trans("ErrorFailToMakeReplacementInto", $phpfileval['fullname']), null, 'errors');
	        }
	    }
    }

    if (! $error)
    {
        setEventMessages('ModuleInitialized', null);
        $module=$modulename;
        $modulename = '';
    }
}

if ($dirins && $action == 'initobject' && $module && $objectname)
{
    $srcdir = DOL_DOCUMENT_ROOT.'/modulebuilder/template';
    $destdir = $dirins.'/'.strtolower($module);

    $arrayreplacement=array(
        'mymodule'=>strtolower($module),
        'MyModule'=>$module,
        'myobject'=>strtolower($objectname),
        'MyObject'=>$objectname
    );


    // Delete some files
    $filetogenerate = array(
        'myobject_card.php'=>strtolower($objectname).'_card.php',
        'myobject_list.php'=>strtolower($objectname).'_list.php',
        'test/phpunit/MyObjectTest.php'=>'test/phpunit/'.$objectname.'Test.php',
        'sql/llx_myobject.key.sql'=>'sql/llx_'.strtolower($objectname).'.key.sql',
        'sql/llx_myobject.sql'=>'sql/llx_'.strtolower($objectname).'.sql',
        'scripts/myobject.php'=>'scripts/'.strtolower($objectname).'.php',
        'img/object_myobject.png'=>'img/object_'.strtolower($objectname).'.png',
        'class/myobject.class.php'=>'class/'.strtolower($objectname).'.class.php',
        'class/api_myobject.class.php'=>'class/api_'.strtolower($objectname).'.class.php',
        'class/MyObject.txt'=>'class/'.$objectname.'.txt'
    );

    foreach($filetogenerate as $srcfile => $destfile)
    {
        $result = dol_copy($srcdir.'/'.$srcfile, $destdir.'/'.$destfile);
        if ($result <= 0)
        {
            if ($result < 0)
            {
                $error++;
                $langs->load("errors");
                setEventMessages($langs->trans("ErrorFailToCopyFile", $srcdir.'/'.$srcfile, $destdir.'/'.$destfile), null, 'errors');
            }
            else	// $result == 0
            {
                setEventMessages($langs->trans("FileAlreadyExists", $srcdir.'/'.$srcfile, $destdir.'/'.$destfile), null, 'warnings');
            }
        }
        else
        {
            // Copy is ok
        }
    }

    // Edit PHP files
    foreach($filetogenerate as $destfile)
    {
        $phpfileval['fullname'] = $destdir.'/'.$destfile;

        //var_dump($phpfileval['fullname']);
        $arrayreplacement=array(
            'mymodule'=>strtolower($modulename),
            'MyModule'=>$modulename,
            'MYMODULE'=>strtoupper($modulename),
            'My module'=>$modulename,
            'htdocs/modulebuilder/template/'=>'',
            'myobject'=>strtolower($objectname),
            'MyObject'=>$objectname
        );

        $result=dolReplaceInFile($phpfileval['fullname'], $arrayreplacement);
        //var_dump($result);
        if ($result < 0)
        {
            setEventMessages($langs->trans("ErrorFailToMakeReplacementInto", $phpfileval['fullname']), null, 'errors');
        }
    }

    if (! $error)
    {
        setEventMessages('FilesForObjectInitialized', null);
    }
}


if ($dirins && $action == 'confirm_delete')
{
    $modulelowercase=strtolower($module);

    // Dir for module
    $dir = $dirins.'/'.$modulelowercase;

    dol_delete_dir_recursive($dir);

    header("Location: ".DOL_URL_ROOT.'/modulebuilder/index.php?module=initmodule');
    exit;
}

if ($dirins && $action == 'generatepackage')
{
    $modulelowercase=strtolower($module);

    // Dir for module
    $dir = $dirins.'/'.$modulelowercase;
    // Zip file to build
    $FILENAMEZIP='';

    // Load module
    dol_include_once($modulelowercase.'/core/modules/mod'.$module.'.class.php');
    $class='mod'.$module;

    if (class_exists($class))
    {
        try {
            $moduleobj = new $class($db);
        }
        catch(Exception $e)
        {
            $error++;
            dol_print_error($e->getMessage());
        }
    }
    else
    {
        $error++;
        $langs->load("errors");
        dol_print_error($langs->trans("ErrorFailedToLoadModuleDescriptorForXXX", $module));
        exit;
    }

    $arrayversion=explode('.',$moduleobj->version,3);
    if (count($arrayversion))
    {
        $FILENAMEZIP="module_".$modulelowercase.'-'.$arrayversion[0].'.'.$arrayversion[1].($arrayversion[2]?".".$arrayversion[2]:"").".zip";
        $outputfile = $conf->admin->dir_temp.'/'.$FILENAMEZIP;

        $result = dol_compress_dir($dir, $outputfile, 'zip');
        if ($result > 0)
        {
            setEventMessages($langs->trans("ZipFileGeneratedInto", $outputfile), null);
        }
        else
        {
            $error++;
            $langs->load("errors");
            setEventMessages($langs->trans("ErrorFailToGenerateFile", $outputfile), null, 'errors');
        }
    }
    else
    {
        $error++;
        $langs->load("errors");
        setEventMessages($langs->trans("ErrorCheckVersionIsDefined"), null, 'errors');
    }
}


/*
 * View
 */

// Set dir where external modules are installed
if (! dol_is_dir($dirins))
{
    dol_mkdir($dirins);
}
$dirins_ok=(dol_is_dir($dirins));


llxHeader("",$langs->trans("ModuleBuilder"),"");


$text=$langs->trans("ModuleBuilder");

print load_fiche_titre($text, '', 'title_setup');

$listofmodules=array();

/*
if (!empty($conf->modulebuilder->enabled) && $mainmenu == 'modulebuilder')	// Entry for Module builder
{
    global $dolibarr_main_document_root_alt;
    if (! empty($dolibarr_main_document_root_alt) && is_array($dolibarr_main_document_root_alt))
    {
        foreach ($dolibarr_main_document_root_alt as $diralt)
        {*/
            $dirsincustom=dol_dir_list($dirins, 'directories');

            if (is_array($dirsincustom) && count($dirsincustom) > 0)
            {
                foreach ($dirsincustom as $dircustomcursor)
                {
                    $fullname = $dircustomcursor['fullname'];
                    if (dol_is_file($fullname.'/'.$FILEFLAG))
                    {
                    	// Get real name of module (MyModule instead of mymodule)
                    	$descriptorfiles = dol_dir_list($fullname.'/core/modules/', 'files', 0, 'mod.*\.class\.php');
                    	$modulenamewithcase='';
                    	foreach($descriptorfiles as $descriptorcursor)
                    	{
                    		$modulenamewithcase=preg_replace('/^mod/', '', $descriptorcursor['name']);
                    		$modulenamewithcase=preg_replace('/\.class\.php$/', '', $modulenamewithcase);
                    	}
                    	if ($modulenamewithcase) $listofmodules[$dircustomcursor['name']]=$modulenamewithcase;
                    	//var_dump($listofmodules);
                    }
                }
            }
/*        }
    }
    else
    {
        $newmenu->add('', 'NoGeneratedModuleFound', 0, 0);
    }*/


// Show description of content
$newdircustom=$dirins;
if (empty($newdircustom)) $newdircustom=img_warning();
print $langs->trans("ModuleBuilderDesc").'<br>';
print $langs->trans("ModuleBuilderDesc2", 'conf/conf.php', $newdircustom).'<br>';

$message='';
if (! $dirins)
{
    $message=info_admin($langs->trans("ConfFileMustContainCustom", DOL_DOCUMENT_ROOT.'/custom', DOL_DOCUMENT_ROOT));
    $allowfromweb=-1;
}
else
{
    if ($dirins_ok)
    {
        if (! is_writable(dol_osencode($dirins)))
        {
            $langs->load("errors");
            $message=info_admin($langs->trans("ErrorFailedToWriteInDir",$dirins));
            $allowfromweb=0;
        }
    }
    else
    {

        $message=info_admin($langs->trans("NotExistsDirect",$dirins).$langs->trans("InfDirAlt").$langs->trans("InfDirExample"));
        $allowfromweb=0;
    }
}
if ($message)
{
    print $message;
}

print $langs->trans("ModuleBuilderDesc3", count($listofmodules), $FILEFLAG).'<br>';
//print '<br>';


// Load module descriptor
$error=0;
$moduleobj = null;

if (! empty($module) && $module != 'initmodule')
{
	$modulelowercase=strtolower($module);

    // Load module
    dol_include_once($modulelowercase.'/core/modules/mod'.$module.'.class.php');
    $class='mod'.$module;

    if (class_exists($class))
    {
        try {
            $moduleobj = new $class($db);
        }
        catch(Exception $e)
        {
            $error++;
            print $e->getMessage();
        }
    }
    else
    {
        $error++;
        $langs->load("errors");
        print img_warning('').' '.$langs->trans("ErrorFailedToLoadModuleDescriptorForXXX", $module);
    }
}

print '<br>';


// Tabs for all modules
$head = array();
$h=0;

$head[$h][0] = $_SERVER["PHP_SELF"].'?module=initmodule';
$head[$h][1] = $langs->trans("NewModule");
$head[$h][2] = 'initmodule';
$h++;

foreach($listofmodules as $tmpmodule => $tmpmodulewithcase)
{
    $head[$h][0] = $_SERVER["PHP_SELF"].'?module='.$tmpmodulewithcase;
    $head[$h][1] = $tmpmodulewithcase;
    $head[$h][2] = $tmpmodulewithcase;
    $h++;
}


dol_fiche_head($head, $module, $langs->trans("Modules"), -1, 'generic');

if ($module == 'initmodule')
{
    // New module
    print '<form action="'.$_SERVER["PHP_SELF"].'" method="POST">';
    print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
    print '<input type="hidden" name="action" value="initmodule">';
    print '<input type="hidden" name="module" value="initmodule">';

    print $langs->trans("EnterNameOfModuleDesc").'<br><br>';

    print '<input type="text" name="modulename" value="'.dol_escape_htmltag($modulename).'" placeholder="'.dol_escape_htmltag($langs->trans("ModuleKey")).'">';
    print '<input type="submit" class="button" name="create" value="'.dol_escape_htmltag($langs->trans("Create")).'"'.($dirins?'':' disabled="disabled"').'>';
    print '</form>';
}
elseif (! empty($module))
{
    // Tabs for module
    if (! $error)
    {
        $head2 = array();
        $h=0;

       	$modulestatusinfo=img_info('').' '.$langs->trans("ModuleIsNotActive");
        if (! empty($conf->$module->enabled))
        {
        	$modulestatusinfo=img_warning().' '.$langs->trans("ModuleIsLive");
        }

        $head2[$h][0] = $_SERVER["PHP_SELF"].'?tab=description&module='.$module;
        $head2[$h][1] = $langs->trans("Description");
        $head2[$h][2] = 'description';
        $h++;

        $head2[$h][0] = $_SERVER["PHP_SELF"].'?tab=objects&module='.$module;
        $head2[$h][1] = $langs->trans("Objects");
        $head2[$h][2] = 'objects';
        $h++;

        $head2[$h][0] = $_SERVER["PHP_SELF"].'?tab=menus&module='.$module;
        $head2[$h][1] = $langs->trans("Menus");
        $head2[$h][2] = 'menus';
        $h++;

        $head2[$h][0] = $_SERVER["PHP_SELF"].'?tab=permissions&module='.$module;
        $head2[$h][1] = $langs->trans("Permissions");
        $head2[$h][2] = 'permissions';
        $h++;

        $head2[$h][0] = $_SERVER["PHP_SELF"].'?tab=hooks&module='.$module;
        $head2[$h][1] = $langs->trans("Hooks");
        $head2[$h][2] = 'hooks';
        $h++;

        $head2[$h][0] = $_SERVER["PHP_SELF"].'?tab=triggers&module='.$module;
        $head2[$h][1] = $langs->trans("Triggers");
        $head2[$h][2] = 'triggers';
        $h++;

        $head2[$h][0] = $_SERVER["PHP_SELF"].'?tab=widgets&module='.$module;
        $head2[$h][1] = $langs->trans("Widgets");
        $head2[$h][2] = 'widgets';
        $h++;

        $head2[$h][0] = $_SERVER["PHP_SELF"].'?tab=buildpackage&module='.$module;
        $head2[$h][1] = $langs->trans("BuildPackage");
        $head2[$h][2] = 'buildpackage';
        $h++;

        $head2[$h][0] = $_SERVER["PHP_SELF"].'?tab=dangerzone&module='.$module;
        $head2[$h][1] = $langs->trans("DangerZone");
        $head2[$h][2] = 'dangerzone';
        $h++;

        print $modulestatusinfo.'<br><br>';

        dol_fiche_head($head2, $tab, '', -1, '');

        print $langs->trans("ModuleBuilderDesc".$tab).'<br><br>';

        if ($tab == 'description')
        {
        	print '<div class="underbanner clearboth"></div>';
        	print '<div class="fichecenter">';

        	print '<table class="border centpercent">';
        	print '<tr class="liste_titre"><td class="titlefield">';
        	print $langs->trans("Parameter");
        	print '</td><td>';
        	print $langs->trans("Value");
        	print '</td></tr>';

        	print '<tr><td>';
        	print $langs->trans("Numero");
        	print '</td><td>';
        	print $moduleobj->numero;
        	print '</td></tr>';

        	print '<tr><td>';
        	print $langs->trans("Name");
        	print '</td><td>';
        	print $moduleobj->getName();
        	print '</td></tr>';

        	print '<tr><td>';
        	print $langs->trans("Version");
        	print '</td><td>';
        	print $moduleobj->getVersion();
        	print '</td></tr>';

        	print '<tr><td>';
        	print $langs->trans("Family");
        	//print "<br>'crm','financial','hr','projects','products','ecm','technic','interface','other'";
        	print '</td><td>';
        	print $moduleobj->family;
        	print '</td></tr>';

        	print '<tr><td>';
        	print $langs->trans("EditorName");
        	print '</td><td>';
        	print $moduleobj->editor_name;
        	print '</td></tr>';

        	print '<tr><td>';
        	print $langs->trans("EditorUrl");
        	print '</td><td>';
        	print $moduleobj->editor_url;
        	print '</td></tr>';

        	print '<tr><td>';
        	print $langs->trans("Description");
        	print '</td><td>';
        	print $moduleobj->getDesc();
        	print '</td></tr>';

        	print '<tr><td>';
        	print $langs->trans("DescriptionLong");
        	print '</td><td>';
        	print $moduleobj->getDescLong();
        	print '</td></tr>';

        	print '</table>';

        	print '</div>';
        }

        if ($tab == 'objects')
        {

            $head3 = array();
            $h=0;

            $modulelowercase=strtolower($module);

            // Dir for module
            $dir = $dirins.'/'.$modulelowercase.'/class';

            $head3[$h][0] = $_SERVER["PHP_SELF"].'?tab=objects&module='.$module.'&tabobj=newobject';
            $head3[$h][1] = $langs->trans("NewObject");
            $head3[$h][2] = 'newobject';
            $h++;

            $listofobject = dol_dir_list($dir , 'files', 0, '\.txt$');
            foreach($listofobject as $fileobj)
            {
                $objectname = preg_replace('/\.txt$/', '', $fileobj['name']);

                $head3[$h][0] = $_SERVER["PHP_SELF"].'?tab=objects&module='.$module.'&tabobj='.$objectname;
                $head3[$h][1] = $objectname;
                $head3[$h][2] = $objectname;
                $h++;
            }

            dol_fiche_head($head3, $tabobj, '', -1, '');

            if ($tabobj == 'newobject')
            {
                // New module
                print '<form action="'.$_SERVER["PHP_SELF"].'" method="POST">';
                print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
                print '<input type="hidden" name="action" value="initobject">';
                print '<input type="hidden" name="tab" value="objects">';
                print '<input type="hidden" name="module" value="'.dol_escape_htmltag($module).'">';

                print $langs->trans("EnterNameOfObjectDesc").'<br><br>';

                print '<input type="text" name="objectname" value="'.dol_escape_htmltag($modulename).'" placeholder="'.dol_escape_htmltag($langs->trans("ObjectKey")).'">';
                print '<input type="submit" class="button" name="create" value="'.dol_escape_htmltag($langs->trans("Create")).'"'.($dirins?'':' disabled="disabled"').'>';
                print '</form>';
            }

            if ($tabobj == 'fields')
            {
                print $langs->trans("FeatureNotYetAvailable").'<br><br>';
            }
        }

        if ($tab == 'menus')
        {
    		print $langs->trans("FeatureNotYetAvailable");


        }

        if ($tab == 'permissions')
        {
    		print $langs->trans("FeatureNotYetAvailable");

        }

        if ($tab == 'hooks')
        {
            print $langs->trans("FeatureNotYetAvailable");

        }

        if ($tab == 'triggers')
        {
        	require_once DOL_DOCUMENT_ROOT.'/core/class/interfaces.class.php';

			$interfaces = new Interfaces($db);
			$triggers = $interfaces->getTriggersList(array('/'.strtolower($module).'/core/triggers'));

			print '<div class="div-table-responsive-no-min">';
			print '<table class="noborder">
			<tr class="liste_titre">
			<td colspan="2">'.$langs->trans("File").'</td>
			<td align="center">'.$langs->trans("Active").'</td>
			<td align="center">&nbsp;</td>
			</tr>
			';

			$var=True;
			foreach ($triggers as $trigger)
			{

				print '<tr class="oddeven">';
				print '<td valign="top" width="14" align="center">'.$trigger['picto'].'</td>';
				print '<td class="tdtop">'.$trigger['file'].'</td>';
				print '<td valign="top" align="center">'.$trigger['status'].'</td>';
				print '<td class="tdtop">';
				$text=$trigger['info'];
				$text.="<br>\n<strong>".$langs->trans("File")."</strong>:<br>\n".$trigger['relpath'];
				//$text.="\n".$langs->trans("ExternalModule",$trigger['isocreorexternal']);
				print $form->textwithpicto('', $text);
				print '</td>';
				print '</tr>';
			}

			print '</table>';
			print '</div>';
        }

        if ($tab == 'widget')
        {
    		print $langs->trans("FeatureNotYetAvailable");

        }

        if ($tab == 'buildpackage')
        {
            if (! class_exists('ZipArchive') && ! defined('ODTPHP_PATHTOPCLZIP'))
            {
                print img_warning().' '.$langs->trans("ErrNoZipEngine");
                print '<br>';
            }

        	print '<form name="generatepackage">';
        	print '<input type="hidden" name="action" value="generatepackage">';
        	print '<input type="hidden" name="tab" value="'.dol_escape_htmltag($tab).'">';
        	print '<input type="hidden" name="module" value="'.dol_escape_htmltag($module).'">';
        	print '<input type="submit" class="button" value="'.$langs->trans("Generate").'">';
        	print '</form>';
        }

        if ($tab == 'dangerzone')
        {
            print '<form name="delete">';
            print '<input type="hidden" name="action" value="confirm_delete">';
            print '<input type="hidden" name="tab" value="'.dol_escape_htmltag($tab).'">';
            print '<input type="hidden" name="module" value="'.dol_escape_htmltag($module).'">';
            print '<input type="submit" class="buttonDelete" value="'.$langs->trans("Delete").'"'.($dirins?'':' disabled="disabled"').'>';
            print '</form>';
        }

        dol_fiche_end();
    }
}

dol_fiche_end();


llxFooter();

$db->close();