1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
|
<?php
/*
** Copyright (C) 1995-2007 by the ITools Authors.
** This file is part of ITools - the Internet Tools Library
**
** ITools 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.
**
** ITools 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/>.
**
** itjs.class - functions to handle javascript inclusion
*/
class itjs
{
static $charset;
/**
* Send HTTP headers (content-type) to transmit javascript code
*/
function send_headers($charset = null)
{
if (!$charset)
$charset = ini_get('default_charset') ?: 'iso-8859-1';
self::$charset = $charset;
header("Content-Type: application/x-javascript; charset=$charset");
header('Expires: ' . gmdate('D, d M Y H:i:s', time()+10) . ' GMT'); # prevent broken data on IE reloads
}
/**
* json_encode the result with options suitable for using as javascript source code
* @param $values Array with values to be serialized
* @return String with javascript code to be sent to client
*/
static function serialize($values)
{
return json_encode($values, JSON_UNESCAPED_UNICODE | (it::is_devel() ? JSON_PRETTY_PRINT : 0));
}
/*
* Encode the result into a javascript array to transfer and eval() in client
*/
static function encode($values)
{
if (!is_array($values))
return json_encode($values, JSON_UNESCAPED_UNICODE);
static $jskeyword = array("abstract" => 1, "boolean" => 1, "break" => 1, "byte" => 1, "case" => 1, "catch" => 1, "char" => 1, "class" => 1, "const" => 1, "continue" => 1, "debugger" => 1, "default" => 1, "delete" => 1, "do" => 1, "double" => 1, "each" => 1, "else" => 1, "enum" => 1, "export" => 1, "extends" => 1, "false" => 1, "final" => 1, "finally" => 1, "float" => 1, "for" => 1, "function" => 1, "goto" => 1, "if" => 1, "implements" => 1, "import" => 1, "in" => 1, "instanceof" => 1, "int" => 1, "interface" => 1, "long" => 1, "namespace" => 1, "native" => 1, "new" => 1, "null" => 1, "package" => 1, "private" => 1, "protected" => 1, "public" => 1, "return" => 1, "short" => 1, "static" => 1, "super" => 1, "switch" => 1, "synchronized" => 1, "this" => 1, "throw" => 1, "throws" => 1, "transient" => 1, "true" => 1, "try" => 1, "typeof" => 1, "var" => 1, "void" => 1, "volatile" => 1, "while" => 1, "with" => 1, "xml" => 1);
$charset = self::$charset ?: ini_get('default_charset');
$texts = ($values === array_values($values)) ? "[]0 " : "{}1\n"; # Numerical or associative array
$result = $texts[0];
foreach ($values as $key => $value)
{
$result .= $separator;
if ($texts[2])
{
if ($jskeyword[$key] || !preg_match('/^[a-z_]\w*$/i', $key))
$key = "'" . addslashes($key) . "'";
$result .= "$key:";
}
if ($value === true)
$result .= 'true';
else if ($value === false)
$result .= 'false';
else if (!is_array($value))
{
$quote = (strval(intval($value)) === strval($value)) ? "" : '"';
if (strtolower($charset) != "utf-8")
$value = strtr($value, array("\x84" => '"', "\x93" => '"', "\x94" => '"'));
$string = strtr($value, array("\0" => '\\0', '"' => '\\"', "</"=>"<\\/", "\n" => '\\n', "\r" => '\\r', "\t" => '\\t', "\\" => '\\\\'));
$string = $GLOBALS['itjs_defaultconfig']['latin2unicode'] ? preg_replace_callback('/([\xa0-\xff])/', function($m) { return sprintf("\\u%04x", ord($m[1])); }, $string) : $string;
$result .= $quote . $string . $quote;
}
else
$result .= itjs::encode($value);
$separator = "," . $texts[3];
}
$result .= $texts[1];
return $result;
}
/**
* Convert UNTRUSTED comma separated filelist string to trusted local filenames. Missing files are ignored.
*/
static function filenames($filelist)
{
$result = array();
$local = $GLOBALS['ULTRAHOME'] . "/itjs";
$itjs = "/www/server/phpinclude/itools/itjs";
$libsearch = strlen($GLOBALS['debug_lib']) > 1 ? "/www/lib-" . $GLOBALS['debug_lib'] . ".search.ch" : "/www/lib.search.ch";
$special = array(
"itools" => "$itjs/it.js,$itjs/http.js,$itjs/loader.js,$itjs/state.js,$itjs/timer.js",
"boot.js" => "$itjs/boot.js",
"error.gif" => "$itjs/error.gif",
"search.css" => "$libsearch/doc/search.css",
"prettyprint.css" => "$libsearch/doc/prettyprint.css",
);
foreach (it::match("[-\w.=?&]+", basename($filelist), array('all' => true)) as $file) # split by comma but ignore illegal chars
{
$filenames = $special[$file] ?: (file_exists("$local/" . it::match('^[^?]*', $file)) ? "$local/$file" : "$libsearch/itjs/$file");
foreach (explode(",", $filenames) as $filename)
if (!$seen[$filename]++ && file_exists(it::match('^[^?]*', $filename)))
$result[] = $filename;
}
return $result;
}
/**
* Return content of (php-interpreted by default) TRUSTED filenames that will be sent to client. Files must exist.
*/
static function filecontents($filenames)
{
foreach ($filenames as $filename)
{
ob_start(); # Needs to capture inside loop to guarantee file order
if (!($_GET['w3c'] && it::match('jquery-ui.css|owl.carousel.css|mobiscroll.custom|hopscotch.css|leaflet.css|-svg.css', $filename))) # BLACKLIST
{
$origget = $_GET;
list($filename, $paramstr) = explode("?", $filename);
if ($paramstr)
parse_str($paramstr, $_GET);
$result .= it::replace(array('^1$' => ""), it::match('\.(js|css|htc|html)$', $filename) ? include_once($filename) : (file_exists($filename) ? it::file_get_contents($filename) : it_url::get($filename)), array('utf8' => false));
$_GET = $origget;
}
$result .= ob_get_clean();
}
return $result;
}
/**
* Strip comments and trim lines
* @param $code String containing javascript code to be stripped
* @return Naked code
*/
static function strip($code)
{
if (!it::is_devel())
$code = preg_replace(array(
'|\s//.*$|m',
'|\s+/\*.*?\*/|s', # MUST require at least one space before /* (jquery.js) but MUST NOT require space before */ (searchmap.js)
'|^\s+|m'
), array(), $code);
if (EDC('print'))
$code = it::replace(array('@media\s+print' => '@media screen, print'), $code);
return $code;
}
/**
* Compute checksum for list of files
* @param $fnlist Either comma separated UNTRUSTED url (will check itjs/ and lib.search.ch/itjs/) or array of TRUSTED filenames
* @param $p['short_expire'] Check filemtime and generate short expires for new files
* @param $p['additional_data'] Additional data to be included in checksum
* @return Checksum for given files
*/
static function checksum($fnlist, $p = array())
{
$p += array('short_expire' => true);
$filenames = array();
foreach (is_array($fnlist) ? $fnlist : itjs::filenames($fnlist) as $filename)
$filenames[] = !file_exists($filename) && file_exists($t = it::replace(array('^/www/[^/]*' => "/www/lib.search.ch"), $filename)) ? $t : $filename;
$additional = json_encode($p['additional_data']);
$key = "itjs_" . md5(join("", it::map('"$v" . @filemtime("$v")', $filenames)) . $additional);
if ($filenames && $p['short_expire'] && (time() - max(@array_map('filemtime', $filenames)) < 60))
return "-"; # trigger short expire, our file may not yet be up to date on other slaves
else if ($filenames)
return it_cache::get($key) ?: it_cache::put($key, substr(md5("X" . self::filecontents($filenames) . $additional), 0, 10), array('ttl' => 60));
}
/**
* Convert url or TRUSTED local path to url that triggers far future expire by appending c=checksum
*/
function crcurl($url, $p = array())
{
if (it::match('^(http|//)', $url)) # remote url, must fetch to crc
list($fn, $short_expire) = array(it_url::get_cache(array('url' => $url, 'maxage' => 3600, 'id' => "itjs_crcurl") + $p), false);
else
list($fn, $short_expire) = array(($m = it::match("^//(\w+)(/.*)", $url)) ? "/www/$m[0].search.ch" . $m[1] : $GLOBALS['ULTRAHOME'] . $url, true);;
return it::match('#', $url) ? U(trim($url, "#")) : U($url, array('c' => self::checksum(array($fn), array('short_expire' => $short_expire))));
}
# $p['nocrc'] means no $_REQUEST['c'] is needed for far future expire
static function far_future_headers($p = array())
{
$crc = $_REQUEST['c'] ?: $_REQUEST['s'];
if ($crc != "-" && !$_SERVER['HTTP_CACHE_CONTROL'] && $_SERVER['HTTP_IF_NONE_MATCH'] && !it::is_devel() && !$_REQUEST['retry'])
{
header("HTTP/1.0 304 Not Modified"); # client should always keep the component that fits the page it has
exit;
}
if ($crc != "-")
@header("Etag: alwaysvalid"); # we have checksums in the url. client should always keep the version he downloaded along with the html
if (it::is_live() && !$_REQUEST['retry'])
{
$keeptime = $crc == "-" ? 0 : ($crc || $p['nocrc'] ? 30*86400 : 900); # long expire if checksum present
header("Cache-Control: max-age=$keeptime, private"); # proxies should not cache since contents of same url can differ between browsers
header("Expires: " . gmdate("D, d M Y H:i:s", time() + $keeptime). " GMT");
}
}
}
?>
|