178a6aeb1SAndreas Gohr<?php 2*d4f83172SAndreas Gohr 378a6aeb1SAndreas Gohr/** 478a6aeb1SAndreas Gohr * DokuWiki JavaScript creator 578a6aeb1SAndreas Gohr * 678a6aeb1SAndreas Gohr * @license GPL 2 (http://www.gnu.org/licenses/gpl.html) 778a6aeb1SAndreas Gohr * @author Andreas Gohr <andi@splitbrain.org> 878a6aeb1SAndreas Gohr */ 95a5ec053SGerrit Uitslag 10e3c3abf1SAndreas Gohruse dokuwiki\Utf8\PhpString; 110db5771eSMichael Großeuse dokuwiki\Cache\Cache; 12cbb44eabSAndreas Gohruse dokuwiki\Extension\Event; 13af28745aSAndreas Gohruse splitbrain\JSStrip\Exception as JSStripException; 14af28745aSAndreas Gohruse splitbrain\JSStrip\JSStrip; 150db5771eSMichael Große 16cbb44eabSAndreas Gohrif (!defined('DOKU_INC')) define('DOKU_INC', __DIR__ . '/../../'); 171c2d1019SAndreas Gohrif (!defined('NOSESSION')) define('NOSESSION', true); // we do not use a session or authentication here (better caching) 18b1a4fe22SAndreas Gohrif (!defined('NL')) define('NL', "\n"); 1998bda4fdSAndreas Gohrif (!defined('DOKU_DISABLE_GZIP_OUTPUT')) define('DOKU_DISABLE_GZIP_OUTPUT', 1); // we gzip ourself here 2078a6aeb1SAndreas Gohrrequire_once(DOKU_INC . 'inc/init.php'); 2178a6aeb1SAndreas Gohr 2278a6aeb1SAndreas Gohr// Main (don't run when UNIT test) 2378a6aeb1SAndreas Gohrif (!defined('SIMPLE_TEST')) { 24138a9500SAndreas Gohr header('Content-Type: application/javascript; charset=utf-8'); 2578a6aeb1SAndreas Gohr js_out(); 2678a6aeb1SAndreas Gohr} 2778a6aeb1SAndreas Gohr 2878a6aeb1SAndreas Gohr 2978a6aeb1SAndreas Gohr// ---------------------- functions ------------------------------ 3078a6aeb1SAndreas Gohr 3178a6aeb1SAndreas Gohr/** 3278a6aeb1SAndreas Gohr * Output all needed JavaScript 3378a6aeb1SAndreas Gohr * 3478a6aeb1SAndreas Gohr * @author Andreas Gohr <andi@splitbrain.org> 3578a6aeb1SAndreas Gohr */ 36d868eb89SAndreas Gohrfunction js_out() 37d868eb89SAndreas Gohr{ 3878a6aeb1SAndreas Gohr global $conf; 3978a6aeb1SAndreas Gohr global $lang; 4009edb711SAndreas Gohr global $config_cascade; 415fc6f52eSAnika Henke global $INPUT; 425fc6f52eSAnika Henke 435fc6f52eSAnika Henke // decide from where to get the template 445fc6f52eSAnika Henke $tpl = trim(preg_replace('/[^\w-]+/', '', $INPUT->str('t'))); 455fc6f52eSAnika Henke if (!$tpl) $tpl = $conf['template']; 4678a6aeb1SAndreas Gohr 476392c3b6SAndreas Gohr // array of core files 48e3c3abf1SAndreas Gohr $files = [ 49fdfb9c6aSMichal Rezler DOKU_INC . 'lib/scripts/jquery/jquery.cookie.js', 50138bfd16SAndreas Gohr DOKU_INC . 'inc/lang/' . $conf['lang'] . '/jquery.ui.datepicker.js', 5109063cc6SKate Arzamastseva DOKU_INC . "lib/scripts/fileuploader.js", 528d744859SKate Arzamastseva DOKU_INC . "lib/scripts/fileuploaderextended.js", 5386045fe9Swingedfox DOKU_INC . 'lib/scripts/helpers.js', 5421ed6025SAdrian Lang DOKU_INC . 'lib/scripts/delay.js', 553df72098SAndreas Gohr DOKU_INC . 'lib/scripts/cookie.js', 5678a6aeb1SAndreas Gohr DOKU_INC . 'lib/scripts/script.js', 57c949174aSAdrian Lang DOKU_INC . 'lib/scripts/qsearch.js', 58bb8ef867SMichael Große DOKU_INC . 'lib/scripts/search.js', 59d10c9a74SAdrian Lang DOKU_INC . 'lib/scripts/tree.js', 60a06884abSAndreas Gohr DOKU_INC . 'lib/scripts/index.js', 616392c3b6SAndreas Gohr DOKU_INC . 'lib/scripts/textselection.js', 626392c3b6SAndreas Gohr DOKU_INC . 'lib/scripts/toolbar.js', 636392c3b6SAndreas Gohr DOKU_INC . 'lib/scripts/edit.js', 64ddf8a04fSAndreas Gohr DOKU_INC . 'lib/scripts/editor.js', 6555f92d7eSAndreas Gohr DOKU_INC . 'lib/scripts/locktimer.js', 666392c3b6SAndreas Gohr DOKU_INC . 'lib/scripts/linkwiz.js', 676392c3b6SAndreas Gohr DOKU_INC . 'lib/scripts/media.js', 68767d1669SAndreas Gohr DOKU_INC . 'lib/scripts/compatibility.js', 6987e7175eSAndreas Gohr # disabled for FS#1958 DOKU_INC.'lib/scripts/hotkeys.js', 7017e2e254SAndreas Gohr DOKU_INC . 'lib/scripts/behaviour.js', 71fbedf126SAndreas Gohr DOKU_INC . 'lib/scripts/page.js', 725fc6f52eSAnika Henke tpl_incdir($tpl) . 'script.js', 73e3c3abf1SAndreas Gohr ]; 7478a6aeb1SAndreas Gohr 756392c3b6SAndreas Gohr // add possible plugin scripts and userscript 766392c3b6SAndreas Gohr $files = array_merge($files, js_pluginscripts()); 7760764596SAndreas Gohr if (is_array($config_cascade['userscript']['default'])) { 787b909d5eSGerrit Uitslag foreach ($config_cascade['userscript']['default'] as $userscript) { 797b909d5eSGerrit Uitslag $files[] = $userscript; 807b909d5eSGerrit Uitslag } 8109edb711SAndreas Gohr } 8278a6aeb1SAndreas Gohr 836d3bebffSGerry Weißbach // Let plugins decide to either put more scripts here or to remove some 84cbb44eabSAndreas Gohr Event::createAndTrigger('JS_SCRIPT_LIST', $files); 856d3bebffSGerry Weißbach 866d3bebffSGerry Weißbach // The generated script depends on some dynamic options 870db5771eSMichael Große $cache = new Cache('scripts' . $_SERVER['HTTP_HOST'] . $_SERVER['SERVER_PORT'] . md5(serialize($files)), '.js'); 88dc7da772SMichael Große $cache->setEvent('JS_CACHE_USE'); 896d3bebffSGerry Weißbach 906619f42eSAdrian Lang $cache_files = array_merge($files, getConfigFiles('main')); 916619f42eSAdrian Lang $cache_files[] = __FILE__; 92ca2b464bSChris Smith 936619f42eSAdrian Lang // check cache age & handle conditional request 946619f42eSAdrian Lang // This may exit if a cache can be used 95e3c3abf1SAndreas Gohr $cache_ok = $cache->useCache(['files' => $cache_files]); 96e67004f5SAndreas Gohr http_cached($cache->cache, $cache_ok); 9778a6aeb1SAndreas Gohr 9878a6aeb1SAndreas Gohr // start output buffering and build the script 9978a6aeb1SAndreas Gohr ob_start(); 10078a6aeb1SAndreas Gohr 1013df72098SAndreas Gohr // add some global variables 10226dfc232SAndreas Gohr echo "var DOKU_BASE = '" . DOKU_BASE . "';"; 10326dfc232SAndreas Gohr echo "var DOKU_TPL = '" . tpl_basedir($tpl) . "';"; 10426dfc232SAndreas Gohr echo "var DOKU_COOKIE_PARAM = " . json_encode([ 105df5d307eSGerrit Uitslag 'path' => empty($conf['cookiedir']) ? DOKU_REL : $conf['cookiedir'], 106df5d307eSGerrit Uitslag 'secure' => $conf['securecookie'] && is_ssl() 107e3c3abf1SAndreas Gohr ], JSON_THROW_ON_ERROR) . ";"; 1085e7a2926SAdrian Lang // FIXME: Move those to JSINFO 10926dfc232SAndreas Gohr echo "Object.defineProperty(window, 'DOKU_UHN', { get: function() {" . 11064159a61SAndreas Gohr "console.warn('Using DOKU_UHN is deprecated. Please use JSINFO.useHeadingNavigation instead');" . 11164159a61SAndreas Gohr "return JSINFO.useHeadingNavigation; } });"; 11226dfc232SAndreas Gohr echo "Object.defineProperty(window, 'DOKU_UHC', { get: function() {" . 11364159a61SAndreas Gohr "console.warn('Using DOKU_UHC is deprecated. Please use JSINFO.useHeadingContent instead');" . 11464159a61SAndreas Gohr "return JSINFO.useHeadingContent; } });"; 1153df72098SAndreas Gohr 1163df72098SAndreas Gohr // load JS specific translations 1176392c3b6SAndreas Gohr $lang['js']['plugins'] = js_pluginstrings(); 1185fc6f52eSAnika Henke $templatestrings = js_templatestrings($tpl); 119acd3eb67SKlap-in if (!empty($templatestrings)) { 120acd3eb67SKlap-in $lang['js']['template'] = $templatestrings; 121acd3eb67SKlap-in } 122e3c3abf1SAndreas Gohr echo 'LANG = ' . json_encode($lang['js'], JSON_THROW_ON_ERROR) . ";\n"; 12378a6aeb1SAndreas Gohr 1246392c3b6SAndreas Gohr // load toolbar 1256392c3b6SAndreas Gohr toolbar_JSdefines('toolbar'); 1266392c3b6SAndreas Gohr 12778a6aeb1SAndreas Gohr // load files 12878a6aeb1SAndreas Gohr foreach ($files as $file) { 129138bfd16SAndreas Gohr if (!file_exists($file)) continue; 13080a47290SAndreas Gohr $ismin = (substr($file, -7) == '.min.js'); 1316b0ec830SMichael Hamann $debugjs = ($conf['allowdebug'] && strpos($file, DOKU_INC . 'lib/scripts/') !== 0); 13280a47290SAndreas Gohr 13357d846dbSAndreas Gohr echo "\n\n/* XXXXXXXXXX begin of " . str_replace(DOKU_INC, '', $file) . " XXXXXXXXXX */\n\n"; 13480a47290SAndreas Gohr if ($ismin) echo "\n/* BEGIN NOCOMPRESS */\n"; 1356b0ec830SMichael Hamann if ($debugjs) echo "\ntry {\n"; 136176da19bSAndreas Gohr js_load($file); 1376b0ec830SMichael Hamann if ($debugjs) echo "\n} catch (e) {\n logError(e, '" . str_replace(DOKU_INC, '', $file) . "');\n}\n"; 13880a47290SAndreas Gohr if ($ismin) echo "\n/* END NOCOMPRESS */\n"; 13957d846dbSAndreas Gohr echo "\n\n/* XXXXXXXXXX end of " . str_replace(DOKU_INC, '', $file) . " XXXXXXXXXX */\n\n"; 14078a6aeb1SAndreas Gohr } 14178a6aeb1SAndreas Gohr 14278a6aeb1SAndreas Gohr // init stuff 143544ed901SDaniel Calviño Sánchez if ($conf['locktime'] != 0) { 14499e7bfd4SAndreas Gohr js_runonstart("dw_locktimer.init(" . ($conf['locktime'] - 60) . "," . $conf['usedraft'] . ")"); 145544ed901SDaniel Calviño Sánchez } 1464062d3d5SMarek Sacha // init hotkeys - must have been done after init of toolbar 147de32b03eSMichael Hamann # disabled for FS#1958 js_runonstart('initializeHotkeys()'); 14800540a38SAndreas Gohr 14978a6aeb1SAndreas Gohr // end output buffering and get contents 15078a6aeb1SAndreas Gohr $js = ob_get_contents(); 15178a6aeb1SAndreas Gohr ob_end_clean(); 15278a6aeb1SAndreas Gohr 153f8fb2d18SAndreas Gohr // strip any source maps 154f8fb2d18SAndreas Gohr stripsourcemaps($js); 155f8fb2d18SAndreas Gohr 15678a6aeb1SAndreas Gohr // compress whitespace and comments 15778a6aeb1SAndreas Gohr if ($conf['compress']) { 158af28745aSAndreas Gohr try { 159af28745aSAndreas Gohr $js = (new JSStrip())->compress($js); 160af28745aSAndreas Gohr } catch (JSStripException $e) { 161e3c3abf1SAndreas Gohr $js .= "\nconsole.error(" . json_encode($e->getMessage(), JSON_THROW_ON_ERROR) . ");\n"; 162af28745aSAndreas Gohr } 16378a6aeb1SAndreas Gohr } 16478a6aeb1SAndreas Gohr 1654d2d451eSAndreas Gohr $js .= "\n"; // https://bugzilla.mozilla.org/show_bug.cgi?id=316033 1664d2d451eSAndreas Gohr 1676619f42eSAdrian Lang http_cached_finish($cache->cache, $js); 168ca2b464bSChris Smith} 16978a6aeb1SAndreas Gohr 17078a6aeb1SAndreas Gohr/** 171176da19bSAndreas Gohr * Load the given file, handle include calls and print it 1723825ddd3SAndreas Gohr * 173253d4b48SGerrit Uitslag * @param string $file filename path to file 1745a5ec053SGerrit Uitslag * 1755a5ec053SGerrit Uitslag * @author Andreas Gohr <andi@splitbrain.org> 176176da19bSAndreas Gohr */ 177d868eb89SAndreas Gohrfunction js_load($file) 178d868eb89SAndreas Gohr{ 17979e79377SAndreas Gohr if (!file_exists($file)) return; 180e3c3abf1SAndreas Gohr static $loaded = []; 181176da19bSAndreas Gohr 182176da19bSAndreas Gohr $data = io_readFile($file); 18398dba5adSAdrian Lang while (preg_match('#/\*\s*DOKUWIKI:include(_once)?\s+([\w\.\-_/]+)\s*\*/#', $data, $match)) { 1843825ddd3SAndreas Gohr $ifile = $match[2]; 1853825ddd3SAndreas Gohr 1863825ddd3SAndreas Gohr // is it a include_once? 1873825ddd3SAndreas Gohr if ($match[1]) { 188e3c3abf1SAndreas Gohr $base = PhpString::basename($ifile); 1895c97ad3aSMarius van Witzenburg if (array_key_exists($base, $loaded) && $loaded[$base] === true) { 190969df2f1SAndreas Gohr $data = str_replace($match[0], '', $data); 191969df2f1SAndreas Gohr continue; 192969df2f1SAndreas Gohr } 1933825ddd3SAndreas Gohr $loaded[$base] = true; 1943825ddd3SAndreas Gohr } 1953825ddd3SAndreas Gohr 1965312cb0bSSyntaxseed if ($ifile[0] != '/') $ifile = dirname($file) . '/' . $ifile; 197176da19bSAndreas Gohr 198176da19bSAndreas Gohr $idata = ''; 199b4af56dcSMoritz Raguschat if (file_exists($ifile)) { 200b4af56dcSMoritz Raguschat $ismin = (substr($ifile, -7) == '.min.js');; 201b4af56dcSMoritz Raguschat if ($ismin) $idata .= "\n/* BEGIN NOCOMPRESS */\n"; 202b4af56dcSMoritz Raguschat $idata .= io_readFile($ifile); 203b4af56dcSMoritz Raguschat if ($ismin) $idata .= "\n/* END NOCOMPRESS */\n"; 204176da19bSAndreas Gohr } 205176da19bSAndreas Gohr $data = str_replace($match[0], $idata, $data); 206176da19bSAndreas Gohr } 20717582ec6SAndreas Gohr echo "$data\n"; 208176da19bSAndreas Gohr} 209176da19bSAndreas Gohr 210176da19bSAndreas Gohr/** 21178a6aeb1SAndreas Gohr * Returns a list of possible Plugin Scripts (no existance check here) 21278a6aeb1SAndreas Gohr * 213253d4b48SGerrit Uitslag * @return array 2145a5ec053SGerrit Uitslag * 2155a5ec053SGerrit Uitslag * @author Andreas Gohr <andi@splitbrain.org> 21678a6aeb1SAndreas Gohr */ 217d868eb89SAndreas Gohrfunction js_pluginscripts() 218d868eb89SAndreas Gohr{ 219e3c3abf1SAndreas Gohr $list = []; 22078a6aeb1SAndreas Gohr $plugins = plugin_list(); 22178a6aeb1SAndreas Gohr foreach ($plugins as $p) { 22278a6aeb1SAndreas Gohr $list[] = DOKU_PLUGIN . "$p/script.js"; 22378a6aeb1SAndreas Gohr } 22478a6aeb1SAndreas Gohr return $list; 22578a6aeb1SAndreas Gohr} 22678a6aeb1SAndreas Gohr 22778a6aeb1SAndreas Gohr/** 2289f01cf6aSGabriel Birke * Return an two-dimensional array with strings from the language file of each plugin. 2299f01cf6aSGabriel Birke * 2309f01cf6aSGabriel Birke * - $lang['js'] must be an array. 2319f01cf6aSGabriel Birke * - Nothing is returned for plugins without an entry for $lang['js'] 2329f01cf6aSGabriel Birke * 2335a5ec053SGerrit Uitslag * @return array 2349f01cf6aSGabriel Birke * @author Gabriel Birke <birke@d-scribe.de> 235253d4b48SGerrit Uitslag * 2369f01cf6aSGabriel Birke */ 237d868eb89SAndreas Gohrfunction js_pluginstrings() 238d868eb89SAndreas Gohr{ 23919e06537SGerrit Uitslag global $conf, $config_cascade; 240e3c3abf1SAndreas Gohr $pluginstrings = []; 2419f01cf6aSGabriel Birke $plugins = plugin_list(); 2429f01cf6aSGabriel Birke foreach ($plugins as $p) { 24319e06537SGerrit Uitslag $path = DOKU_PLUGIN . $p . '/lang/'; 24419e06537SGerrit Uitslag 2459f01cf6aSGabriel Birke if (isset($lang)) unset($lang); 24619e06537SGerrit Uitslag if (file_exists($path . "en/lang.php")) { 24719e06537SGerrit Uitslag include $path . "en/lang.php"; 2489f01cf6aSGabriel Birke } 24919e06537SGerrit Uitslag foreach ($config_cascade['lang']['plugin'] as $config_file) { 25019e06537SGerrit Uitslag if (file_exists($config_file . $p . '/en/lang.php')) { 25119e06537SGerrit Uitslag include($config_file . $p . '/en/lang.php'); 2529f01cf6aSGabriel Birke } 25319e06537SGerrit Uitslag } 25419e06537SGerrit Uitslag if (isset($conf['lang']) && $conf['lang'] != 'en') { 25519e06537SGerrit Uitslag if (file_exists($path . $conf['lang'] . "/lang.php")) { 25619e06537SGerrit Uitslag include($path . $conf['lang'] . '/lang.php'); 25719e06537SGerrit Uitslag } 25819e06537SGerrit Uitslag foreach ($config_cascade['lang']['plugin'] as $config_file) { 25919e06537SGerrit Uitslag if (file_exists($config_file . $p . '/' . $conf['lang'] . '/lang.php')) { 26019e06537SGerrit Uitslag include($config_file . $p . '/' . $conf['lang'] . '/lang.php'); 26119e06537SGerrit Uitslag } 26219e06537SGerrit Uitslag } 26319e06537SGerrit Uitslag } 26419e06537SGerrit Uitslag 2659f01cf6aSGabriel Birke if (isset($lang['js'])) { 2669f01cf6aSGabriel Birke $pluginstrings[$p] = $lang['js']; 2679f01cf6aSGabriel Birke } 2689f01cf6aSGabriel Birke } 2699f01cf6aSGabriel Birke return $pluginstrings; 2709f01cf6aSGabriel Birke} 2719f01cf6aSGabriel Birke 27256b0b744SGerrit Uitslag/** 27356b0b744SGerrit Uitslag * Return an two-dimensional array with strings from the language file of current active template. 27456b0b744SGerrit Uitslag * 27556b0b744SGerrit Uitslag * - $lang['js'] must be an array. 27656b0b744SGerrit Uitslag * - Nothing is returned for template without an entry for $lang['js'] 277253d4b48SGerrit Uitslag * 2785fc6f52eSAnika Henke * @param string $tpl 279253d4b48SGerrit Uitslag * @return array 28056b0b744SGerrit Uitslag */ 281d868eb89SAndreas Gohrfunction js_templatestrings($tpl) 282d868eb89SAndreas Gohr{ 28319e06537SGerrit Uitslag global $conf, $config_cascade; 28419e06537SGerrit Uitslag 28519e06537SGerrit Uitslag $path = tpl_incdir() . 'lang/'; 28619e06537SGerrit Uitslag 287e3c3abf1SAndreas Gohr $templatestrings = []; 28819e06537SGerrit Uitslag if (file_exists($path . "en/lang.php")) { 28919e06537SGerrit Uitslag include $path . "en/lang.php"; 290acd3eb67SKlap-in } 29119e06537SGerrit Uitslag foreach ($config_cascade['lang']['template'] as $config_file) { 29219e06537SGerrit Uitslag if (file_exists($config_file . $conf['template'] . '/en/lang.php')) { 29319e06537SGerrit Uitslag include($config_file . $conf['template'] . '/en/lang.php'); 294acd3eb67SKlap-in } 29519e06537SGerrit Uitslag } 29619e06537SGerrit Uitslag if (isset($conf['lang']) && $conf['lang'] != 'en' && file_exists($path . $conf['lang'] . "/lang.php")) { 29719e06537SGerrit Uitslag include $path . $conf['lang'] . "/lang.php"; 29819e06537SGerrit Uitslag } 29919e06537SGerrit Uitslag if (isset($conf['lang']) && $conf['lang'] != 'en') { 30019e06537SGerrit Uitslag if (file_exists($path . $conf['lang'] . "/lang.php")) { 30119e06537SGerrit Uitslag include $path . $conf['lang'] . "/lang.php"; 30219e06537SGerrit Uitslag } 30319e06537SGerrit Uitslag foreach ($config_cascade['lang']['template'] as $config_file) { 30419e06537SGerrit Uitslag if (file_exists($config_file . $conf['template'] . '/' . $conf['lang'] . '/lang.php')) { 30519e06537SGerrit Uitslag include($config_file . $conf['template'] . '/' . $conf['lang'] . '/lang.php'); 30619e06537SGerrit Uitslag } 30719e06537SGerrit Uitslag } 30819e06537SGerrit Uitslag } 30919e06537SGerrit Uitslag 310acd3eb67SKlap-in if (isset($lang['js'])) { 3115fc6f52eSAnika Henke $templatestrings[$tpl] = $lang['js']; 312acd3eb67SKlap-in } 313acd3eb67SKlap-in return $templatestrings; 314acd3eb67SKlap-in} 315acd3eb67SKlap-in 3169f01cf6aSGabriel Birke/** 31778a6aeb1SAndreas Gohr * Escapes a String to be embedded in a JavaScript call, keeps \n 31878a6aeb1SAndreas Gohr * as newline 31978a6aeb1SAndreas Gohr * 320253d4b48SGerrit Uitslag * @param string $string 321253d4b48SGerrit Uitslag * @return string 3225a5ec053SGerrit Uitslag * 3235a5ec053SGerrit Uitslag * @author Andreas Gohr <andi@splitbrain.org> 32478a6aeb1SAndreas Gohr */ 325d868eb89SAndreas Gohrfunction js_escape($string) 326d868eb89SAndreas Gohr{ 32778a6aeb1SAndreas Gohr return str_replace('\\\\n', '\\n', addslashes($string)); 32878a6aeb1SAndreas Gohr} 32978a6aeb1SAndreas Gohr 33078a6aeb1SAndreas Gohr/** 33178a6aeb1SAndreas Gohr * Adds the given JavaScript code to the window.onload() event 33278a6aeb1SAndreas Gohr * 333253d4b48SGerrit Uitslag * @param string $func 3345a5ec053SGerrit Uitslag * 3355a5ec053SGerrit Uitslag * @author Andreas Gohr <andi@splitbrain.org> 33678a6aeb1SAndreas Gohr */ 337d868eb89SAndreas Gohrfunction js_runonstart($func) 338d868eb89SAndreas Gohr{ 3395e7a2926SAdrian Lang echo "jQuery(function(){ $func; });" . NL; 34078a6aeb1SAndreas Gohr} 341