dolibarr/htdocs/printing/admin/printing.php

<?php
/* Copyright (C) 2013-2016  Laurent Destailleur     <eldy@users.sourceforge.net>
 * Copyright (C) 2014-2024	Frédéric France         <frederic.france@free.fr>
 * Copyright (C) 2024		MDW						<mdeweerd@users.noreply.github.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 <https://www.gnu.org/licenses/>.
 */

/**
 *      \file       htdocs/printing/admin/printing.php
 *      \ingroup    printing
 *      \brief      Page to setup printing module
 */

// Load Dolibarr environment
require '../../main.inc.php';

require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/doleditor.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/modules/printing/modules_printing.php';
require_once DOL_DOCUMENT_ROOT.'/printing/lib/printing.lib.php';
use OAuth\Common\Storage\DoliStorage;

/**
 * @var Conf $conf
 * @var DoliDB $db
 * @var HookManager $hookmanager
 * @var Translate $langs
 * @var User $user
 */

// Load translation files required by the page
$langs->loadLangs(array('admin', 'printing', 'oauth'));

$action = GETPOST('action', 'aZ09');
$mode = GETPOST('mode', 'alpha');
$value = GETPOST('value', 'alpha', 0, null, null, 1); // The value may be __google__docs so we force disable of replace
$varname = GETPOST('varname', 'alpha');
$driver = GETPOST('driver', 'alpha');

if (!empty($driver)) {
	$langs->load($driver);
}

if (!$mode) {
	$mode = 'config';
}

$OAUTH_SERVICENAME_GOOGLE = 'Google';

if (!$user->admin) {
	accessforbidden();
}


/*
 * Action
 */
$error = 0;

if (($mode == 'test' || $mode == 'setup') && empty($driver)) {
	setEventMessages($langs->trans('PleaseSelectaDriverfromList'), null);
	header("Location: ".$_SERVER['PHP_SELF'].'?mode=config');
	exit;
}

if ($action == 'setconst' && $user->admin) {
	$db->begin();
	foreach ($_POST['setupdriver'] as $setupconst) {
		'@phan-var-force array<string,string> $setupconst';
		//print '<pre>'.print_r($setupconst, true).'</pre>';
		$result = dolibarr_set_const($db, $setupconst['varname'], $setupconst['value'], 'chaine', 0, '', $conf->entity);
		if (!($result > 0)) {
			$error++;
		}
	}

	if (!$error) {
		$db->commit();
		setEventMessages($langs->trans("SetupSaved"), null);
	} else {
		$db->rollback();
		dol_print_error($db);
	}
	$action = '';
}

if ($action == 'setvalue' && $user->admin) {
	$db->begin();

	$result = dolibarr_set_const($db, $varname, $value, 'chaine', 0, '', $conf->entity);
	if (!($result > 0)) {
		$error++;
	}

	if (!$error) {
		$db->commit();
		setEventMessages($langs->trans("SetupSaved"), null);
	} else {
		$db->rollback();
		dol_print_error($db);
	}
	$action = '';
}


/*
 * View
 */

$form = new Form($db);

llxHeader('', $langs->trans("PrintingSetup"));

$linkback = '<a href="'.DOL_URL_ROOT.'/admin/modules.php?restore_lastsearch_values=1">'.$langs->trans("BackToModuleList").'</a>';
print load_fiche_titre($langs->trans("PrintingSetup"), $linkback, 'title_setup');

$head = printingAdminPrepareHead($mode);

if ($mode == 'setup' && $user->admin) {
	print '<form method="post" action="'.$_SERVER["PHP_SELF"].'?mode=setup&amp;driver='.$driver.'" autocomplete="off">';
	print '<input type="hidden" name="token" value="'.newToken().'">';
	print '<input type="hidden" name="action" value="setconst">';

	print dol_get_fiche_head($head, $mode, $langs->trans("ModuleSetup"), -1, 'technic');

	print $langs->trans("PrintingDriverDesc".$driver)."<br><br>\n";

	print '<table class="noborder centpercent">'."\n";
	print '<tr class="liste_titre">';
	print '<th>'.$langs->trans("Parameters").'</th>';
	print '<th>'.$langs->trans("Value").'</th>';
	print '<th>&nbsp;</th>';
	print "</tr>\n";
	$submit_enabled = 0;

	if (!empty($driver)) {
		if (!empty($conf->modules_parts['printing'])) {
			$dirmodels = array_merge(array('/core/modules/printing/'), (array) $conf->modules_parts['printing']);
		} else {
			$dirmodels = array('/core/modules/printing/');
		}

		foreach ($dirmodels as $dir) {
			if (file_exists(dol_buildpath($dir, 0).$driver.'.modules.php')) {
				$classfile = dol_buildpath($dir, 0).$driver.'.modules.php';
				break;
			}
		}
		require_once $classfile;
		$classname = 'printing_'.$driver;
		$printer = new $classname($db);
		$langs->load('printing');

		$i = 0;
		$submit_enabled = 0;
		foreach ($printer->conf as $key) {
			switch ($key['type']) {
				case "text":
				case "password":
					print '<tr class="oddeven">';
					print '<td'.($key['required'] ? ' class=required' : '').'>'.$langs->trans($key['varname']).'</td>';
					print '<td><input class="width100" type="'.(empty($key['type']) ? 'text' : $key['type']).'" name="setupdriver['.$i.'][value]" value="'.getDolGlobalString($key['varname']).'"';
					print isset($key['moreattributes']) ? ' '.$key['moreattributes'] : '';
					print '><input type="hidden" name="setupdriver['.$i.'][varname]" value="'.$key['varname'].'"></td>';
					print '<td>&nbsp;'.($key['example'] != '' ? $langs->trans("Example").' : '.$key['example'] : '').'</td>';
					print '</tr>'."\n";
					break;
				case "checkbox":
					print '<tr class="oddeven">';
					print '<td'.($key['required'] ? ' class=required' : '').'>'.$langs->trans($key['varname']).'</td>';
					print '<td><input class="width100" type="'.(empty($key['type']) ? 'text' : $key['type']).'" name="setupdriver['.$i.'][value]" value="1" '.((getDolGlobalInt($key['varname'])) ? 'checked' : '');
					print isset($key['moreattributes']) ? ' '.$key['moreattributes'] : '';
					print '><input type="hidden" name="setupdriver['.$i.'][varname]" value="'.$key['varname'].'"></td>';
					print '<td>&nbsp;'.($key['example'] != '' ? $langs->trans("Example").' : '.$key['example'] : '').'</td>';
					print '</tr>'."\n";
					break;
				case "info":    // Google Api setup or Google OAuth Token
					print '<tr class="oddeven">';
					print '<td'.($key['required'] ? ' class=required' : '').'>';
					if ($key['varname'] == 'PRINTGCP_TOKEN_ACCESS') {
						print $langs->trans("IsTokenGenerated");
					} else {
						print $langs->trans($key['varname']);
					}
					print '</td>';
					print '<td>'.$langs->trans($key['info']).'</td>';
					print '<td>';
					//var_dump($key);
					if ($key['varname'] == 'PRINTGCP_TOKEN_ACCESS') {
						// Delete remote tokens
						if (!empty($key['delete'])) {
							print '<a class="button" href="'.$key['delete'].'">'.$langs->trans('DeleteAccess').'</a><br><br>';
						}
						// Request remote token
						print '<a class="button" href="'.$key['renew'].'">'.$langs->trans('RequestAccess').'</a><br><br>';
						// Check remote access
						print $langs->trans("ToCheckDeleteTokenOnProvider", $OAUTH_SERVICENAME_GOOGLE).': <a href="https://security.google.com/settings/security/permissions" target="_google">https://security.google.com/settings/security/permissions</a>';
					}
					print '</td>';
					print '</tr>'."\n";
					break;
				case "submit":
					if ($key['enabled']) {
						$submit_enabled = 1;
					}
					break;
			}
			$i++;

			if ($key['varname'] == 'PRINTGCP_TOKEN_ACCESS') {
				$keyforprovider = '';	// @BUG This must be set

				// Token
				print '<tr class="oddeven">';
				print '<td>'.$langs->trans("Token").'</td>';
				print '<td colspan="2">';
				$tokenobj = null;
				// Dolibarr storage
				$storage = new DoliStorage($db, $conf, $keyforprovider);
				try {
					$tokenobj = $storage->retrieveAccessToken($OAUTH_SERVICENAME_GOOGLE);
				} catch (Exception $e) {
					// Return an error if token not found
				}
				if (is_object($tokenobj)) {
					//var_dump($tokenobj);
					print $tokenobj->getAccessToken().'<br>';
					//print 'Refresh: '.$tokenobj->getRefreshToken().'<br>';
					//print 'EndOfLife: '.$tokenobj->getEndOfLife().'<br>';
					//var_dump($tokenobj->getExtraParams());
					/*print '<br>Extra: <br><textarea class="quatrevingtpercent">';
					print ''.join(',',$tokenobj->getExtraParams());
					print '</textarea>';*/
				}
				print '</td>';
				print '</tr>'."\n";
			}
		}
	} else {
		print $langs->trans('PleaseSelectaDriverfromList');
	}

	print '</table>';

	print dol_get_fiche_end();

	if (!empty($driver)) {
		if ($submit_enabled) {
			print '<div class="center"><input type="submit" class="button" value="'.dol_escape_htmltag($langs->trans("Save")).'"></div>';
		}
	}

	print '</form>';
}
if ($mode == 'config' && $user->admin) {
	print dol_get_fiche_head($head, $mode, $langs->trans("ModuleSetup"), -1, 'technic');

	print $langs->trans("PrintingDesc")."<br><br>\n";

	print '<table class="noborder centpercent">'."\n";

	print '<tr class="liste_titre">';
	print '<th>'.$langs->trans("Description").'</th>';
	print '<th class="center">'.$langs->trans("Active").'</th>';
	print '<th class="center">'.$langs->trans("Setup").'</th>';
	print '<th class="center">'.$langs->trans("TargetedPrinter").'</th>';
	print "</tr>\n";

	$object = new PrintingDriver($db);
	$result = $object->listDrivers($db, 10);

	if (!empty($conf->modules_parts['printing'])) {
		$dirmodels = array_merge(array('/core/modules/printing/'), (array) $conf->modules_parts['printing']);
	} else {
		$dirmodels = array('/core/modules/printing/');
	}

	foreach ($result as $tmpdriver) {
		foreach ($dirmodels as $dir) {
			if (file_exists(dol_buildpath($dir, 0).$tmpdriver.'.modules.php')) {
				$classfile = dol_buildpath($dir, 0).$tmpdriver.'.modules.php';
				break;
			}
		}
		require_once $classfile;
		$classname = 'printing_'.$tmpdriver;
		$printer = new $classname($db);
		$langs->load('printing');
		//print '<pre>'.print_r($printer, true).'</pre>';

		print '<tr class="oddeven">';
		print '<td>'.img_picto('', $printer->picto).' '.$langs->trans($printer->desc).'</td>';
		print '<td class="center">';
		if (!empty($conf->use_javascript_ajax)) {
			print ajax_constantonoff($printer->active);
		} else {
			if (!getDolGlobalString($printer->conf)) {
				print '<a href="'.$_SERVER['PHP_SELF'].'?action=setvalue&token='.newToken().'&varname='.urlencode($printer->active).'&value=1">'.img_picto($langs->trans("Disabled"), 'off').'</a>';
			} else {
				print '<a href="'.$_SERVER['PHP_SELF'].'?action=setvalue&token='.newToken().'&varname='.urlencode($printer->active).'&value=0">'.img_picto($langs->trans("Enabled"), 'on').'</a>';
			}
		}
		print '<td class="center"><a href="'.$_SERVER['PHP_SELF'].'?mode=setup&token='.newToken().'&driver='.urlencode($printer->name).'">'.img_picto('', 'setup').'</a></td>';
		print '<td class="center"><a href="'.$_SERVER['PHP_SELF'].'?mode=test&token='.newToken().'&driver='.urlencode($printer->name).'">'.img_picto('', 'setup').'</a></td>';
		print '</tr>'."\n";
	}

	print '</table>';

	print dol_get_fiche_end();
}

if ($mode == 'test' && $user->admin) {
	print dol_get_fiche_head($head, $mode, $langs->trans("ModuleSetup"), -1, 'technic');

	print $langs->trans('PrintTestDesc'.$driver)."<br><br>\n";

	print '<table class="noborder centpercent">';
	if (!empty($driver)) {
		if (!empty($conf->modules_parts['printing'])) {
			$dirmodels = array_merge(array('/core/modules/printing/'), (array) $conf->modules_parts['printing']);
		} else {
			$dirmodels = array('/core/modules/printing/');
		}

		foreach ($dirmodels as $dir) {
			if (file_exists(dol_buildpath($dir, 0).$driver.'.modules.php')) {
				$classfile = dol_buildpath($dir, 0).$driver.'.modules.php';
				break;
			}
		}
		require_once $classfile;
		$classname = 'printing_'.$driver;
		$printer = new $classname($db);
		'@phan-var-force PrintingDriver $printer';
		$langs->load($driver);
		$langs->load('printing');

		//print '<pre>'.print_r($printer, true).'</pre>';
		if (count($printer->getlistAvailablePrinters())) {
			if ($printer->listAvailablePrinters() == 0) {
				print $printer->resprint;
			} else {
				setEventMessages($printer->error, $printer->errors, 'errors');
			}
		} else {
			print $langs->trans('PleaseConfigureDriverfromList');
		}
	} else {
		print $langs->trans('PleaseSelectaDriverfromList');
	}
	print '</table>';

	print dol_get_fiche_end();
}

if ($mode == 'userconf' && $user->admin) {
	print dol_get_fiche_head($head, $mode, $langs->trans("ModuleSetup"), -1, 'technic');

	print $langs->trans('PrintUserConfDesc'.$driver)."<br><br>\n";

	print '<table class="noborder centpercent">';
	print '<tr class="liste_titre">';
	print '<th>'.$langs->trans("User").'</th>';
	print '<th>'.$langs->trans("PrintModule").'</th>';
	print '<th>'.$langs->trans("PrintDriver").'</th>';
	print '<th>'.$langs->trans("Printer").'</th>';
	print '<th>'.$langs->trans("PrinterLocation").'</th>';
	print '<th>'.$langs->trans("PrinterId").'</th>';
	print '<th>'.$langs->trans("NumberOfCopy").'</th>';
	print '<th class="center">'.$langs->trans("Delete").'</th>';
	print "</tr>\n";
	$sql = 'SELECT p.rowid, p.printer_name, p.printer_location, p.printer_id, p.copy, p.module, p.driver, p.userid, u.login FROM '.MAIN_DB_PREFIX.'printing as p, '.MAIN_DB_PREFIX.'user as u WHERE p.userid=u.rowid';
	$resql = $db->query($sql);
	while ($row = $db->fetch_array($resql)) {
		print '<tr class="oddeven">';
		print '<td>'.$row['login'].'</td>';
		print '<td>'.$row['module'].'</td>';
		print '<td>'.$row['driver'].'</td>';
		print '<td>'.$row['printer_name'].'</td>';
		print '<td>'.$row['printer_location'].'</td>';
		print '<td>'.$row['printer_id'].'</td>';
		print '<td>'.$row['copy'].'</td>';
		print '<td class="center">'.img_picto($langs->trans("Delete"), 'delete').'</td>';
		print "</tr>\n";
	}
	print '</table>';

	print dol_get_fiche_end();
}

// End of page
llxFooter();
$db->close();