Projet

Général

Profil

Paste
Télécharger (50,4 ko) Statistiques
| Branche: | Révision:

root / drupal7 / sites / all / libraries / simplepie / library / SimplePie / Misc.php @ 41cc1b08

1
<?php
2
/**
3
 * SimplePie
4
 *
5
 * A PHP-Based RSS and Atom Feed Framework.
6
 * Takes the hard work out of managing a complete RSS/Atom solution.
7
 *
8
 * Copyright (c) 2004-2012, Ryan Parman, Geoffrey Sneddon, Ryan McCue, and contributors
9
 * All rights reserved.
10
 *
11
 * Redistribution and use in source and binary forms, with or without modification, are
12
 * permitted provided that the following conditions are met:
13
 *
14
 *         * Redistributions of source code must retain the above copyright notice, this list of
15
 *           conditions and the following disclaimer.
16
 *
17
 *         * Redistributions in binary form must reproduce the above copyright notice, this list
18
 *           of conditions and the following disclaimer in the documentation and/or other materials
19
 *           provided with the distribution.
20
 *
21
 *         * Neither the name of the SimplePie Team nor the names of its contributors may be used
22
 *           to endorse or promote products derived from this software without specific prior
23
 *           written permission.
24
 *
25
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS
26
 * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
27
 * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS
28
 * AND CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
29
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
30
 * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
31
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
32
 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
33
 * POSSIBILITY OF SUCH DAMAGE.
34
 *
35
 * @package SimplePie
36
 * @version 1.3.1
37
 * @copyright 2004-2012 Ryan Parman, Geoffrey Sneddon, Ryan McCue
38
 * @author Ryan Parman
39
 * @author Geoffrey Sneddon
40
 * @author Ryan McCue
41
 * @link http://simplepie.org/ SimplePie
42
 * @license http://www.opensource.org/licenses/bsd-license.php BSD License
43
 */
44

    
45
/**
46
 * Miscellanous utilities
47
 *
48
 * @package SimplePie
49
 */
50
class SimplePie_Misc
51
{
52
        public static function time_hms($seconds)
53
        {
54
                $time = '';
55

    
56
                $hours = floor($seconds / 3600);
57
                $remainder = $seconds % 3600;
58
                if ($hours > 0)
59
                {
60
                        $time .= $hours.':';
61
                }
62

    
63
                $minutes = floor($remainder / 60);
64
                $seconds = $remainder % 60;
65
                if ($minutes < 10 && $hours > 0)
66
                {
67
                        $minutes = '0' . $minutes;
68
                }
69
                if ($seconds < 10)
70
                {
71
                        $seconds = '0' . $seconds;
72
                }
73

    
74
                $time .= $minutes.':';
75
                $time .= $seconds;
76

    
77
                return $time;
78
        }
79

    
80
        public static function absolutize_url($relative, $base)
81
        {
82
                $iri = SimplePie_IRI::absolutize(new SimplePie_IRI($base), $relative);
83
                if ($iri === false)
84
                {
85
                        return false;
86
                }
87
                return $iri->get_uri();
88
        }
89

    
90
        /**
91
         * Get a HTML/XML element from a HTML string
92
         *
93
         * @deprecated Use DOMDocument instead (parsing HTML with regex is bad!)
94
         * @param string $realname Element name (including namespace prefix if applicable)
95
         * @param string $string HTML document
96
         * @return array
97
         */
98
        public static function get_element($realname, $string)
99
        {
100
                $return = array();
101
                $name = preg_quote($realname, '/');
102
                if (preg_match_all("/<($name)" . SIMPLEPIE_PCRE_HTML_ATTRIBUTE . "(>(.*)<\/$name>|(\/)?>)/siU", $string, $matches, PREG_SET_ORDER | PREG_OFFSET_CAPTURE))
103
                {
104
                        for ($i = 0, $total_matches = count($matches); $i < $total_matches; $i++)
105
                        {
106
                                $return[$i]['tag'] = $realname;
107
                                $return[$i]['full'] = $matches[$i][0][0];
108
                                $return[$i]['offset'] = $matches[$i][0][1];
109
                                if (strlen($matches[$i][3][0]) <= 2)
110
                                {
111
                                        $return[$i]['self_closing'] = true;
112
                                }
113
                                else
114
                                {
115
                                        $return[$i]['self_closing'] = false;
116
                                        $return[$i]['content'] = $matches[$i][4][0];
117
                                }
118
                                $return[$i]['attribs'] = array();
119
                                if (isset($matches[$i][2][0]) && preg_match_all('/[\x09\x0A\x0B\x0C\x0D\x20]+([^\x09\x0A\x0B\x0C\x0D\x20\x2F\x3E][^\x09\x0A\x0B\x0C\x0D\x20\x2F\x3D\x3E]*)(?:[\x09\x0A\x0B\x0C\x0D\x20]*=[\x09\x0A\x0B\x0C\x0D\x20]*(?:"([^"]*)"|\'([^\']*)\'|([^\x09\x0A\x0B\x0C\x0D\x20\x22\x27\x3E][^\x09\x0A\x0B\x0C\x0D\x20\x3E]*)?))?/', ' ' . $matches[$i][2][0] . ' ', $attribs, PREG_SET_ORDER))
120
                                {
121
                                        for ($j = 0, $total_attribs = count($attribs); $j < $total_attribs; $j++)
122
                                        {
123
                                                if (count($attribs[$j]) === 2)
124
                                                {
125
                                                        $attribs[$j][2] = $attribs[$j][1];
126
                                                }
127
                                                $return[$i]['attribs'][strtolower($attribs[$j][1])]['data'] = SimplePie_Misc::entities_decode(end($attribs[$j]), 'UTF-8');
128
                                        }
129
                                }
130
                        }
131
                }
132
                return $return;
133
        }
134

    
135
        public static function element_implode($element)
136
        {
137
                $full = "<$element[tag]";
138
                foreach ($element['attribs'] as $key => $value)
139
                {
140
                        $key = strtolower($key);
141
                        $full .= " $key=\"" . htmlspecialchars($value['data']) . '"';
142
                }
143
                if ($element['self_closing'])
144
                {
145
                        $full .= ' />';
146
                }
147
                else
148
                {
149
                        $full .= ">$element[content]</$element[tag]>";
150
                }
151
                return $full;
152
        }
153

    
154
        public static function error($message, $level, $file, $line)
155
        {
156
                if ((ini_get('error_reporting') & $level) > 0)
157
                {
158
                        switch ($level)
159
                        {
160
                                case E_USER_ERROR:
161
                                        $note = 'PHP Error';
162
                                        break;
163
                                case E_USER_WARNING:
164
                                        $note = 'PHP Warning';
165
                                        break;
166
                                case E_USER_NOTICE:
167
                                        $note = 'PHP Notice';
168
                                        break;
169
                                default:
170
                                        $note = 'Unknown Error';
171
                                        break;
172
                        }
173

    
174
                        $log_error = true;
175
                        if (!function_exists('error_log'))
176
                        {
177
                                $log_error = false;
178
                        }
179

    
180
                        $log_file = @ini_get('error_log');
181
                        if (!empty($log_file) && ('syslog' !== $log_file) && !@is_writable($log_file))
182
                        {
183
                                $log_error = false;
184
                        }
185

    
186
                        if ($log_error)
187
                        {
188
                                @error_log("$note: $message in $file on line $line", 0);
189
                        }
190
                }
191

    
192
                return $message;
193
        }
194

    
195
        public static function fix_protocol($url, $http = 1)
196
        {
197
                $url = SimplePie_Misc::normalize_url($url);
198
                $parsed = SimplePie_Misc::parse_url($url);
199
                if ($parsed['scheme'] !== '' && $parsed['scheme'] !== 'http' && $parsed['scheme'] !== 'https')
200
                {
201
                        return SimplePie_Misc::fix_protocol(SimplePie_Misc::compress_parse_url('http', $parsed['authority'], $parsed['path'], $parsed['query'], $parsed['fragment']), $http);
202
                }
203

    
204
                if ($parsed['scheme'] === '' && $parsed['authority'] === '' && !file_exists($url))
205
                {
206
                        return SimplePie_Misc::fix_protocol(SimplePie_Misc::compress_parse_url('http', $parsed['path'], '', $parsed['query'], $parsed['fragment']), $http);
207
                }
208

    
209
                if ($http === 2 && $parsed['scheme'] !== '')
210
                {
211
                        return "feed:$url";
212
                }
213
                elseif ($http === 3 && strtolower($parsed['scheme']) === 'http')
214
                {
215
                        return substr_replace($url, 'podcast', 0, 4);
216
                }
217
                elseif ($http === 4 && strtolower($parsed['scheme']) === 'http')
218
                {
219
                        return substr_replace($url, 'itpc', 0, 4);
220
                }
221
                else
222
                {
223
                        return $url;
224
                }
225
        }
226

    
227
        public static function parse_url($url)
228
        {
229
                $iri = new SimplePie_IRI($url);
230
                return array(
231
                        'scheme' => (string) $iri->scheme,
232
                        'authority' => (string) $iri->authority,
233
                        'path' => (string) $iri->path,
234
                        'query' => (string) $iri->query,
235
                        'fragment' => (string) $iri->fragment
236
                );
237
        }
238

    
239
        public static function compress_parse_url($scheme = '', $authority = '', $path = '', $query = '', $fragment = '')
240
        {
241
                $iri = new SimplePie_IRI('');
242
                $iri->scheme = $scheme;
243
                $iri->authority = $authority;
244
                $iri->path = $path;
245
                $iri->query = $query;
246
                $iri->fragment = $fragment;
247
                return $iri->get_uri();
248
        }
249

    
250
        public static function normalize_url($url)
251
        {
252
                $iri = new SimplePie_IRI($url);
253
                return $iri->get_uri();
254
        }
255

    
256
        public static function percent_encoding_normalization($match)
257
        {
258
                $integer = hexdec($match[1]);
259
                if ($integer >= 0x41 && $integer <= 0x5A || $integer >= 0x61 && $integer <= 0x7A || $integer >= 0x30 && $integer <= 0x39 || $integer === 0x2D || $integer === 0x2E || $integer === 0x5F || $integer === 0x7E)
260
                {
261
                        return chr($integer);
262
                }
263
                else
264
                {
265
                        return strtoupper($match[0]);
266
                }
267
        }
268

    
269
        /**
270
         * Converts a Windows-1252 encoded string to a UTF-8 encoded string
271
         *
272
         * @static
273
         * @param string $string Windows-1252 encoded string
274
         * @return string UTF-8 encoded string
275
         */
276
        public static function windows_1252_to_utf8($string)
277
        {
278
                static $convert_table = array("\x80" => "\xE2\x82\xAC", "\x81" => "\xEF\xBF\xBD", "\x82" => "\xE2\x80\x9A", "\x83" => "\xC6\x92", "\x84" => "\xE2\x80\x9E", "\x85" => "\xE2\x80\xA6", "\x86" => "\xE2\x80\xA0", "\x87" => "\xE2\x80\xA1", "\x88" => "\xCB\x86", "\x89" => "\xE2\x80\xB0", "\x8A" => "\xC5\xA0", "\x8B" => "\xE2\x80\xB9", "\x8C" => "\xC5\x92", "\x8D" => "\xEF\xBF\xBD", "\x8E" => "\xC5\xBD", "\x8F" => "\xEF\xBF\xBD", "\x90" => "\xEF\xBF\xBD", "\x91" => "\xE2\x80\x98", "\x92" => "\xE2\x80\x99", "\x93" => "\xE2\x80\x9C", "\x94" => "\xE2\x80\x9D", "\x95" => "\xE2\x80\xA2", "\x96" => "\xE2\x80\x93", "\x97" => "\xE2\x80\x94", "\x98" => "\xCB\x9C", "\x99" => "\xE2\x84\xA2", "\x9A" => "\xC5\xA1", "\x9B" => "\xE2\x80\xBA", "\x9C" => "\xC5\x93", "\x9D" => "\xEF\xBF\xBD", "\x9E" => "\xC5\xBE", "\x9F" => "\xC5\xB8", "\xA0" => "\xC2\xA0", "\xA1" => "\xC2\xA1", "\xA2" => "\xC2\xA2", "\xA3" => "\xC2\xA3", "\xA4" => "\xC2\xA4", "\xA5" => "\xC2\xA5", "\xA6" => "\xC2\xA6", "\xA7" => "\xC2\xA7", "\xA8" => "\xC2\xA8", "\xA9" => "\xC2\xA9", "\xAA" => "\xC2\xAA", "\xAB" => "\xC2\xAB", "\xAC" => "\xC2\xAC", "\xAD" => "\xC2\xAD", "\xAE" => "\xC2\xAE", "\xAF" => "\xC2\xAF", "\xB0" => "\xC2\xB0", "\xB1" => "\xC2\xB1", "\xB2" => "\xC2\xB2", "\xB3" => "\xC2\xB3", "\xB4" => "\xC2\xB4", "\xB5" => "\xC2\xB5", "\xB6" => "\xC2\xB6", "\xB7" => "\xC2\xB7", "\xB8" => "\xC2\xB8", "\xB9" => "\xC2\xB9", "\xBA" => "\xC2\xBA", "\xBB" => "\xC2\xBB", "\xBC" => "\xC2\xBC", "\xBD" => "\xC2\xBD", "\xBE" => "\xC2\xBE", "\xBF" => "\xC2\xBF", "\xC0" => "\xC3\x80", "\xC1" => "\xC3\x81", "\xC2" => "\xC3\x82", "\xC3" => "\xC3\x83", "\xC4" => "\xC3\x84", "\xC5" => "\xC3\x85", "\xC6" => "\xC3\x86", "\xC7" => "\xC3\x87", "\xC8" => "\xC3\x88", "\xC9" => "\xC3\x89", "\xCA" => "\xC3\x8A", "\xCB" => "\xC3\x8B", "\xCC" => "\xC3\x8C", "\xCD" => "\xC3\x8D", "\xCE" => "\xC3\x8E", "\xCF" => "\xC3\x8F", "\xD0" => "\xC3\x90", "\xD1" => "\xC3\x91", "\xD2" => "\xC3\x92", "\xD3" => "\xC3\x93", "\xD4" => "\xC3\x94", "\xD5" => "\xC3\x95", "\xD6" => "\xC3\x96", "\xD7" => "\xC3\x97", "\xD8" => "\xC3\x98", "\xD9" => "\xC3\x99", "\xDA" => "\xC3\x9A", "\xDB" => "\xC3\x9B", "\xDC" => "\xC3\x9C", "\xDD" => "\xC3\x9D", "\xDE" => "\xC3\x9E", "\xDF" => "\xC3\x9F", "\xE0" => "\xC3\xA0", "\xE1" => "\xC3\xA1", "\xE2" => "\xC3\xA2", "\xE3" => "\xC3\xA3", "\xE4" => "\xC3\xA4", "\xE5" => "\xC3\xA5", "\xE6" => "\xC3\xA6", "\xE7" => "\xC3\xA7", "\xE8" => "\xC3\xA8", "\xE9" => "\xC3\xA9", "\xEA" => "\xC3\xAA", "\xEB" => "\xC3\xAB", "\xEC" => "\xC3\xAC", "\xED" => "\xC3\xAD", "\xEE" => "\xC3\xAE", "\xEF" => "\xC3\xAF", "\xF0" => "\xC3\xB0", "\xF1" => "\xC3\xB1", "\xF2" => "\xC3\xB2", "\xF3" => "\xC3\xB3", "\xF4" => "\xC3\xB4", "\xF5" => "\xC3\xB5", "\xF6" => "\xC3\xB6", "\xF7" => "\xC3\xB7", "\xF8" => "\xC3\xB8", "\xF9" => "\xC3\xB9", "\xFA" => "\xC3\xBA", "\xFB" => "\xC3\xBB", "\xFC" => "\xC3\xBC", "\xFD" => "\xC3\xBD", "\xFE" => "\xC3\xBE", "\xFF" => "\xC3\xBF");
279

    
280
                return strtr($string, $convert_table);
281
        }
282

    
283
        /**
284
         * Change a string from one encoding to another
285
         *
286
         * @param string $data Raw data in $input encoding
287
         * @param string $input Encoding of $data
288
         * @param string $output Encoding you want
289
         * @return string|boolean False if we can't convert it
290
         */
291
        public static function change_encoding($data, $input, $output)
292
        {
293
                $input = SimplePie_Misc::encoding($input);
294
                $output = SimplePie_Misc::encoding($output);
295

    
296
                // We fail to fail on non US-ASCII bytes
297
                if ($input === 'US-ASCII')
298
                {
299
                        static $non_ascii_octects = '';
300
                        if (!$non_ascii_octects)
301
                        {
302
                                for ($i = 0x80; $i <= 0xFF; $i++)
303
                                {
304
                                        $non_ascii_octects .= chr($i);
305
                                }
306
                        }
307
                        $data = substr($data, 0, strcspn($data, $non_ascii_octects));
308
                }
309

    
310
                // This is first, as behaviour of this is completely predictable
311
                if ($input === 'windows-1252' && $output === 'UTF-8')
312
                {
313
                        return SimplePie_Misc::windows_1252_to_utf8($data);
314
                }
315
                // This is second, as behaviour of this varies only with PHP version (the middle part of this expression checks the encoding is supported).
316
                elseif (function_exists('mb_convert_encoding') && ($return = SimplePie_Misc::change_encoding_mbstring($data, $input, $output)))
317
                {
318
                        return $return;
319
                 }
320
                // This is last, as behaviour of this varies with OS userland and PHP version
321
                elseif (function_exists('iconv') && ($return = SimplePie_Misc::change_encoding_iconv($data, $input, $output)))
322
                {
323
                        return $return;
324
                }
325
                // If we can't do anything, just fail
326
                else
327
                {
328
                        return false;
329
                }
330
        }
331

    
332
        protected static function change_encoding_mbstring($data, $input, $output)
333
        {
334
                if ($input === 'windows-949')
335
                {
336
                        $input = 'EUC-KR';
337
                }
338
                if ($output === 'windows-949')
339
                {
340
                        $output = 'EUC-KR';
341
                }
342
                if ($input === 'Windows-31J')
343
                {
344
                        $input = 'SJIS';
345
                }
346
                if ($output === 'Windows-31J')
347
                {
348
                        $output = 'SJIS';
349
                }
350

    
351
                // Check that the encoding is supported
352
                if (@mb_convert_encoding("\x80", 'UTF-16BE', $input) === "\x00\x80")
353
                {
354
                        return false;
355
                }
356
                if (!in_array($input, mb_list_encodings()))
357
                {
358
                        return false;
359
                }
360

    
361
                // Let's do some conversion
362
                if ($return = @mb_convert_encoding($data, $output, $input))
363
                {
364
                        return $return;
365
                }
366

    
367
                return false;
368
        }
369

    
370
        protected static function change_encoding_iconv($data, $input, $output)
371
        {
372
                return @iconv($input, $output, $data);
373
        }
374

    
375
        /**
376
         * Normalize an encoding name
377
         *
378
         * This is automatically generated by create.php
379
         *
380
         * To generate it, run `php create.php` on the command line, and copy the
381
         * output to replace this function.
382
         *
383
         * @param string $charset Character set to standardise
384
         * @return string Standardised name
385
         */
386
        public static function encoding($charset)
387
        {
388
                // Normalization from UTS #22
389
                switch (strtolower(preg_replace('/(?:[^a-zA-Z0-9]+|([^0-9])0+)/', '\1', $charset)))
390
                {
391
                        case 'adobestandardencoding':
392
                        case 'csadobestandardencoding':
393
                                return 'Adobe-Standard-Encoding';
394

    
395
                        case 'adobesymbolencoding':
396
                        case 'cshppsmath':
397
                                return 'Adobe-Symbol-Encoding';
398

    
399
                        case 'ami1251':
400
                        case 'amiga1251':
401
                                return 'Amiga-1251';
402

    
403
                        case 'ansix31101983':
404
                        case 'csat5001983':
405
                        case 'csiso99naplps':
406
                        case 'isoir99':
407
                        case 'naplps':
408
                                return 'ANSI_X3.110-1983';
409

    
410
                        case 'arabic7':
411
                        case 'asmo449':
412
                        case 'csiso89asmo449':
413
                        case 'iso9036':
414
                        case 'isoir89':
415
                                return 'ASMO_449';
416

    
417
                        case 'big5':
418
                        case 'csbig5':
419
                                return 'Big5';
420

    
421
                        case 'big5hkscs':
422
                                return 'Big5-HKSCS';
423

    
424
                        case 'bocu1':
425
                        case 'csbocu1':
426
                                return 'BOCU-1';
427

    
428
                        case 'brf':
429
                        case 'csbrf':
430
                                return 'BRF';
431

    
432
                        case 'bs4730':
433
                        case 'csiso4unitedkingdom':
434
                        case 'gb':
435
                        case 'iso646gb':
436
                        case 'isoir4':
437
                        case 'uk':
438
                                return 'BS_4730';
439

    
440
                        case 'bsviewdata':
441
                        case 'csiso47bsviewdata':
442
                        case 'isoir47':
443
                                return 'BS_viewdata';
444

    
445
                        case 'cesu8':
446
                        case 'cscesu8':
447
                                return 'CESU-8';
448

    
449
                        case 'ca':
450
                        case 'csa71':
451
                        case 'csaz243419851':
452
                        case 'csiso121canadian1':
453
                        case 'iso646ca':
454
                        case 'isoir121':
455
                                return 'CSA_Z243.4-1985-1';
456

    
457
                        case 'csa72':
458
                        case 'csaz243419852':
459
                        case 'csiso122canadian2':
460
                        case 'iso646ca2':
461
                        case 'isoir122':
462
                                return 'CSA_Z243.4-1985-2';
463

    
464
                        case 'csaz24341985gr':
465
                        case 'csiso123csaz24341985gr':
466
                        case 'isoir123':
467
                                return 'CSA_Z243.4-1985-gr';
468

    
469
                        case 'csiso139csn369103':
470
                        case 'csn369103':
471
                        case 'isoir139':
472
                                return 'CSN_369103';
473

    
474
                        case 'csdecmcs':
475
                        case 'dec':
476
                        case 'decmcs':
477
                                return 'DEC-MCS';
478

    
479
                        case 'csiso21german':
480
                        case 'de':
481
                        case 'din66003':
482
                        case 'iso646de':
483
                        case 'isoir21':
484
                                return 'DIN_66003';
485

    
486
                        case 'csdkus':
487
                        case 'dkus':
488
                                return 'dk-us';
489

    
490
                        case 'csiso646danish':
491
                        case 'dk':
492
                        case 'ds2089':
493
                        case 'iso646dk':
494
                                return 'DS_2089';
495

    
496
                        case 'csibmebcdicatde':
497
                        case 'ebcdicatde':
498
                                return 'EBCDIC-AT-DE';
499

    
500
                        case 'csebcdicatdea':
501
                        case 'ebcdicatdea':
502
                                return 'EBCDIC-AT-DE-A';
503

    
504
                        case 'csebcdiccafr':
505
                        case 'ebcdiccafr':
506
                                return 'EBCDIC-CA-FR';
507

    
508
                        case 'csebcdicdkno':
509
                        case 'ebcdicdkno':
510
                                return 'EBCDIC-DK-NO';
511

    
512
                        case 'csebcdicdknoa':
513
                        case 'ebcdicdknoa':
514
                                return 'EBCDIC-DK-NO-A';
515

    
516
                        case 'csebcdices':
517
                        case 'ebcdices':
518
                                return 'EBCDIC-ES';
519

    
520
                        case 'csebcdicesa':
521
                        case 'ebcdicesa':
522
                                return 'EBCDIC-ES-A';
523

    
524
                        case 'csebcdicess':
525
                        case 'ebcdicess':
526
                                return 'EBCDIC-ES-S';
527

    
528
                        case 'csebcdicfise':
529
                        case 'ebcdicfise':
530
                                return 'EBCDIC-FI-SE';
531

    
532
                        case 'csebcdicfisea':
533
                        case 'ebcdicfisea':
534
                                return 'EBCDIC-FI-SE-A';
535

    
536
                        case 'csebcdicfr':
537
                        case 'ebcdicfr':
538
                                return 'EBCDIC-FR';
539

    
540
                        case 'csebcdicit':
541
                        case 'ebcdicit':
542
                                return 'EBCDIC-IT';
543

    
544
                        case 'csebcdicpt':
545
                        case 'ebcdicpt':
546
                                return 'EBCDIC-PT';
547

    
548
                        case 'csebcdicuk':
549
                        case 'ebcdicuk':
550
                                return 'EBCDIC-UK';
551

    
552
                        case 'csebcdicus':
553
                        case 'ebcdicus':
554
                                return 'EBCDIC-US';
555

    
556
                        case 'csiso111ecmacyrillic':
557
                        case 'ecmacyrillic':
558
                        case 'isoir111':
559
                        case 'koi8e':
560
                                return 'ECMA-cyrillic';
561

    
562
                        case 'csiso17spanish':
563
                        case 'es':
564
                        case 'iso646es':
565
                        case 'isoir17':
566
                                return 'ES';
567

    
568
                        case 'csiso85spanish2':
569
                        case 'es2':
570
                        case 'iso646es2':
571
                        case 'isoir85':
572
                                return 'ES2';
573

    
574
                        case 'cseucpkdfmtjapanese':
575
                        case 'eucjp':
576
                        case 'extendedunixcodepackedformatforjapanese':
577
                                return 'EUC-JP';
578

    
579
                        case 'cseucfixwidjapanese':
580
                        case 'extendedunixcodefixedwidthforjapanese':
581
                                return 'Extended_UNIX_Code_Fixed_Width_for_Japanese';
582

    
583
                        case 'gb18030':
584
                                return 'GB18030';
585

    
586
                        case 'chinese':
587
                        case 'cp936':
588
                        case 'csgb2312':
589
                        case 'csiso58gb231280':
590
                        case 'gb2312':
591
                        case 'gb231280':
592
                        case 'gbk':
593
                        case 'isoir58':
594
                        case 'ms936':
595
                        case 'windows936':
596
                                return 'GBK';
597

    
598
                        case 'cn':
599
                        case 'csiso57gb1988':
600
                        case 'gb198880':
601
                        case 'iso646cn':
602
                        case 'isoir57':
603
                                return 'GB_1988-80';
604

    
605
                        case 'csiso153gost1976874':
606
                        case 'gost1976874':
607
                        case 'isoir153':
608
                        case 'stsev35888':
609
                                return 'GOST_19768-74';
610

    
611
                        case 'csiso150':
612
                        case 'csiso150greekccitt':
613
                        case 'greekccitt':
614
                        case 'isoir150':
615
                                return 'greek-ccitt';
616

    
617
                        case 'csiso88greek7':
618
                        case 'greek7':
619
                        case 'isoir88':
620
                                return 'greek7';
621

    
622
                        case 'csiso18greek7old':
623
                        case 'greek7old':
624
                        case 'isoir18':
625
                                return 'greek7-old';
626

    
627
                        case 'cshpdesktop':
628
                        case 'hpdesktop':
629
                                return 'HP-DeskTop';
630

    
631
                        case 'cshplegal':
632
                        case 'hplegal':
633
                                return 'HP-Legal';
634

    
635
                        case 'cshpmath8':
636
                        case 'hpmath8':
637
                                return 'HP-Math8';
638

    
639
                        case 'cshppifont':
640
                        case 'hppifont':
641
                                return 'HP-Pi-font';
642

    
643
                        case 'cshproman8':
644
                        case 'hproman8':
645
                        case 'r8':
646
                        case 'roman8':
647
                                return 'hp-roman8';
648

    
649
                        case 'hzgb2312':
650
                                return 'HZ-GB-2312';
651

    
652
                        case 'csibmsymbols':
653
                        case 'ibmsymbols':
654
                                return 'IBM-Symbols';
655

    
656
                        case 'csibmthai':
657
                        case 'ibmthai':
658
                                return 'IBM-Thai';
659

    
660
                        case 'cp37':
661
                        case 'csibm37':
662
                        case 'ebcdiccpca':
663
                        case 'ebcdiccpnl':
664
                        case 'ebcdiccpus':
665
                        case 'ebcdiccpwt':
666
                        case 'ibm37':
667
                                return 'IBM037';
668

    
669
                        case 'cp38':
670
                        case 'csibm38':
671
                        case 'ebcdicint':
672
                        case 'ibm38':
673
                                return 'IBM038';
674

    
675
                        case 'cp273':
676
                        case 'csibm273':
677
                        case 'ibm273':
678
                                return 'IBM273';
679

    
680
                        case 'cp274':
681
                        case 'csibm274':
682
                        case 'ebcdicbe':
683
                        case 'ibm274':
684
                                return 'IBM274';
685

    
686
                        case 'cp275':
687
                        case 'csibm275':
688
                        case 'ebcdicbr':
689
                        case 'ibm275':
690
                                return 'IBM275';
691

    
692
                        case 'csibm277':
693
                        case 'ebcdiccpdk':
694
                        case 'ebcdiccpno':
695
                        case 'ibm277':
696
                                return 'IBM277';
697

    
698
                        case 'cp278':
699
                        case 'csibm278':
700
                        case 'ebcdiccpfi':
701
                        case 'ebcdiccpse':
702
                        case 'ibm278':
703
                                return 'IBM278';
704

    
705
                        case 'cp280':
706
                        case 'csibm280':
707
                        case 'ebcdiccpit':
708
                        case 'ibm280':
709
                                return 'IBM280';
710

    
711
                        case 'cp281':
712
                        case 'csibm281':
713
                        case 'ebcdicjpe':
714
                        case 'ibm281':
715
                                return 'IBM281';
716

    
717
                        case 'cp284':
718
                        case 'csibm284':
719
                        case 'ebcdiccpes':
720
                        case 'ibm284':
721
                                return 'IBM284';
722

    
723
                        case 'cp285':
724
                        case 'csibm285':
725
                        case 'ebcdiccpgb':
726
                        case 'ibm285':
727
                                return 'IBM285';
728

    
729
                        case 'cp290':
730
                        case 'csibm290':
731
                        case 'ebcdicjpkana':
732
                        case 'ibm290':
733
                                return 'IBM290';
734

    
735
                        case 'cp297':
736
                        case 'csibm297':
737
                        case 'ebcdiccpfr':
738
                        case 'ibm297':
739
                                return 'IBM297';
740

    
741
                        case 'cp420':
742
                        case 'csibm420':
743
                        case 'ebcdiccpar1':
744
                        case 'ibm420':
745
                                return 'IBM420';
746

    
747
                        case 'cp423':
748
                        case 'csibm423':
749
                        case 'ebcdiccpgr':
750
                        case 'ibm423':
751
                                return 'IBM423';
752

    
753
                        case 'cp424':
754
                        case 'csibm424':
755
                        case 'ebcdiccphe':
756
                        case 'ibm424':
757
                                return 'IBM424';
758

    
759
                        case '437':
760
                        case 'cp437':
761
                        case 'cspc8codepage437':
762
                        case 'ibm437':
763
                                return 'IBM437';
764

    
765
                        case 'cp500':
766
                        case 'csibm500':
767
                        case 'ebcdiccpbe':
768
                        case 'ebcdiccpch':
769
                        case 'ibm500':
770
                                return 'IBM500';
771

    
772
                        case 'cp775':
773
                        case 'cspc775baltic':
774
                        case 'ibm775':
775
                                return 'IBM775';
776

    
777
                        case '850':
778
                        case 'cp850':
779
                        case 'cspc850multilingual':
780
                        case 'ibm850':
781
                                return 'IBM850';
782

    
783
                        case '851':
784
                        case 'cp851':
785
                        case 'csibm851':
786
                        case 'ibm851':
787
                                return 'IBM851';
788

    
789
                        case '852':
790
                        case 'cp852':
791
                        case 'cspcp852':
792
                        case 'ibm852':
793
                                return 'IBM852';
794

    
795
                        case '855':
796
                        case 'cp855':
797
                        case 'csibm855':
798
                        case 'ibm855':
799
                                return 'IBM855';
800

    
801
                        case '857':
802
                        case 'cp857':
803
                        case 'csibm857':
804
                        case 'ibm857':
805
                                return 'IBM857';
806

    
807
                        case 'ccsid858':
808
                        case 'cp858':
809
                        case 'ibm858':
810
                        case 'pcmultilingual850euro':
811
                                return 'IBM00858';
812

    
813
                        case '860':
814
                        case 'cp860':
815
                        case 'csibm860':
816
                        case 'ibm860':
817
                                return 'IBM860';
818

    
819
                        case '861':
820
                        case 'cp861':
821
                        case 'cpis':
822
                        case 'csibm861':
823
                        case 'ibm861':
824
                                return 'IBM861';
825

    
826
                        case '862':
827
                        case 'cp862':
828
                        case 'cspc862latinhebrew':
829
                        case 'ibm862':
830
                                return 'IBM862';
831

    
832
                        case '863':
833
                        case 'cp863':
834
                        case 'csibm863':
835
                        case 'ibm863':
836
                                return 'IBM863';
837

    
838
                        case 'cp864':
839
                        case 'csibm864':
840
                        case 'ibm864':
841
                                return 'IBM864';
842

    
843
                        case '865':
844
                        case 'cp865':
845
                        case 'csibm865':
846
                        case 'ibm865':
847
                                return 'IBM865';
848

    
849
                        case '866':
850
                        case 'cp866':
851
                        case 'csibm866':
852
                        case 'ibm866':
853
                                return 'IBM866';
854

    
855
                        case 'cp868':
856
                        case 'cpar':
857
                        case 'csibm868':
858
                        case 'ibm868':
859
                                return 'IBM868';
860

    
861
                        case '869':
862
                        case 'cp869':
863
                        case 'cpgr':
864
                        case 'csibm869':
865
                        case 'ibm869':
866
                                return 'IBM869';
867

    
868
                        case 'cp870':
869
                        case 'csibm870':
870
                        case 'ebcdiccproece':
871
                        case 'ebcdiccpyu':
872
                        case 'ibm870':
873
                                return 'IBM870';
874

    
875
                        case 'cp871':
876
                        case 'csibm871':
877
                        case 'ebcdiccpis':
878
                        case 'ibm871':
879
                                return 'IBM871';
880

    
881
                        case 'cp880':
882
                        case 'csibm880':
883
                        case 'ebcdiccyrillic':
884
                        case 'ibm880':
885
                                return 'IBM880';
886

    
887
                        case 'cp891':
888
                        case 'csibm891':
889
                        case 'ibm891':
890
                                return 'IBM891';
891

    
892
                        case 'cp903':
893
                        case 'csibm903':
894
                        case 'ibm903':
895
                                return 'IBM903';
896

    
897
                        case '904':
898
                        case 'cp904':
899
                        case 'csibbm904':
900
                        case 'ibm904':
901
                                return 'IBM904';
902

    
903
                        case 'cp905':
904
                        case 'csibm905':
905
                        case 'ebcdiccptr':
906
                        case 'ibm905':
907
                                return 'IBM905';
908

    
909
                        case 'cp918':
910
                        case 'csibm918':
911
                        case 'ebcdiccpar2':
912
                        case 'ibm918':
913
                                return 'IBM918';
914

    
915
                        case 'ccsid924':
916
                        case 'cp924':
917
                        case 'ebcdiclatin9euro':
918
                        case 'ibm924':
919
                                return 'IBM00924';
920

    
921
                        case 'cp1026':
922
                        case 'csibm1026':
923
                        case 'ibm1026':
924
                                return 'IBM1026';
925

    
926
                        case 'ibm1047':
927
                                return 'IBM1047';
928

    
929
                        case 'ccsid1140':
930
                        case 'cp1140':
931
                        case 'ebcdicus37euro':
932
                        case 'ibm1140':
933
                                return 'IBM01140';
934

    
935
                        case 'ccsid1141':
936
                        case 'cp1141':
937
                        case 'ebcdicde273euro':
938
                        case 'ibm1141':
939
                                return 'IBM01141';
940

    
941
                        case 'ccsid1142':
942
                        case 'cp1142':
943
                        case 'ebcdicdk277euro':
944
                        case 'ebcdicno277euro':
945
                        case 'ibm1142':
946
                                return 'IBM01142';
947

    
948
                        case 'ccsid1143':
949
                        case 'cp1143':
950
                        case 'ebcdicfi278euro':
951
                        case 'ebcdicse278euro':
952
                        case 'ibm1143':
953
                                return 'IBM01143';
954

    
955
                        case 'ccsid1144':
956
                        case 'cp1144':
957
                        case 'ebcdicit280euro':
958
                        case 'ibm1144':
959
                                return 'IBM01144';
960

    
961
                        case 'ccsid1145':
962
                        case 'cp1145':
963
                        case 'ebcdices284euro':
964
                        case 'ibm1145':
965
                                return 'IBM01145';
966

    
967
                        case 'ccsid1146':
968
                        case 'cp1146':
969
                        case 'ebcdicgb285euro':
970
                        case 'ibm1146':
971
                                return 'IBM01146';
972

    
973
                        case 'ccsid1147':
974
                        case 'cp1147':
975
                        case 'ebcdicfr297euro':
976
                        case 'ibm1147':
977
                                return 'IBM01147';
978

    
979
                        case 'ccsid1148':
980
                        case 'cp1148':
981
                        case 'ebcdicinternational500euro':
982
                        case 'ibm1148':
983
                                return 'IBM01148';
984

    
985
                        case 'ccsid1149':
986
                        case 'cp1149':
987
                        case 'ebcdicis871euro':
988
                        case 'ibm1149':
989
                                return 'IBM01149';
990

    
991
                        case 'csiso143iecp271':
992
                        case 'iecp271':
993
                        case 'isoir143':
994
                                return 'IEC_P27-1';
995

    
996
                        case 'csiso49inis':
997
                        case 'inis':
998
                        case 'isoir49':
999
                                return 'INIS';
1000

    
1001
                        case 'csiso50inis8':
1002
                        case 'inis8':
1003
                        case 'isoir50':
1004
                                return 'INIS-8';
1005

    
1006
                        case 'csiso51iniscyrillic':
1007
                        case 'iniscyrillic':
1008
                        case 'isoir51':
1009
                                return 'INIS-cyrillic';
1010

    
1011
                        case 'csinvariant':
1012
                        case 'invariant':
1013
                                return 'INVARIANT';
1014

    
1015
                        case 'iso2022cn':
1016
                                return 'ISO-2022-CN';
1017

    
1018
                        case 'iso2022cnext':
1019
                                return 'ISO-2022-CN-EXT';
1020

    
1021
                        case 'csiso2022jp':
1022
                        case 'iso2022jp':
1023
                                return 'ISO-2022-JP';
1024

    
1025
                        case 'csiso2022jp2':
1026
                        case 'iso2022jp2':
1027
                                return 'ISO-2022-JP-2';
1028

    
1029
                        case 'csiso2022kr':
1030
                        case 'iso2022kr':
1031
                                return 'ISO-2022-KR';
1032

    
1033
                        case 'cswindows30latin1':
1034
                        case 'iso88591windows30latin1':
1035
                                return 'ISO-8859-1-Windows-3.0-Latin-1';
1036

    
1037
                        case 'cswindows31latin1':
1038
                        case 'iso88591windows31latin1':
1039
                                return 'ISO-8859-1-Windows-3.1-Latin-1';
1040

    
1041
                        case 'csisolatin2':
1042
                        case 'iso88592':
1043
                        case 'iso885921987':
1044
                        case 'isoir101':
1045
                        case 'l2':
1046
                        case 'latin2':
1047
                                return 'ISO-8859-2';
1048

    
1049
                        case 'cswindows31latin2':
1050
                        case 'iso88592windowslatin2':
1051
                                return 'ISO-8859-2-Windows-Latin-2';
1052

    
1053
                        case 'csisolatin3':
1054
                        case 'iso88593':
1055
                        case 'iso885931988':
1056
                        case 'isoir109':
1057
                        case 'l3':
1058
                        case 'latin3':
1059
                                return 'ISO-8859-3';
1060

    
1061
                        case 'csisolatin4':
1062
                        case 'iso88594':
1063
                        case 'iso885941988':
1064
                        case 'isoir110':
1065
                        case 'l4':
1066
                        case 'latin4':
1067
                                return 'ISO-8859-4';
1068

    
1069
                        case 'csisolatincyrillic':
1070
                        case 'cyrillic':
1071
                        case 'iso88595':
1072
                        case 'iso885951988':
1073
                        case 'isoir144':
1074
                                return 'ISO-8859-5';
1075

    
1076
                        case 'arabic':
1077
                        case 'asmo708':
1078
                        case 'csisolatinarabic':
1079
                        case 'ecma114':
1080
                        case 'iso88596':
1081
                        case 'iso885961987':
1082
                        case 'isoir127':
1083
                                return 'ISO-8859-6';
1084

    
1085
                        case 'csiso88596e':
1086
                        case 'iso88596e':
1087
                                return 'ISO-8859-6-E';
1088

    
1089
                        case 'csiso88596i':
1090
                        case 'iso88596i':
1091
                                return 'ISO-8859-6-I';
1092

    
1093
                        case 'csisolatingreek':
1094
                        case 'ecma118':
1095
                        case 'elot928':
1096
                        case 'greek':
1097
                        case 'greek8':
1098
                        case 'iso88597':
1099
                        case 'iso885971987':
1100
                        case 'isoir126':
1101
                                return 'ISO-8859-7';
1102

    
1103
                        case 'csisolatinhebrew':
1104
                        case 'hebrew':
1105
                        case 'iso88598':
1106
                        case 'iso885981988':
1107
                        case 'isoir138':
1108
                                return 'ISO-8859-8';
1109

    
1110
                        case 'csiso88598e':
1111
                        case 'iso88598e':
1112
                                return 'ISO-8859-8-E';
1113

    
1114
                        case 'csiso88598i':
1115
                        case 'iso88598i':
1116
                                return 'ISO-8859-8-I';
1117

    
1118
                        case 'cswindows31latin5':
1119
                        case 'iso88599windowslatin5':
1120
                                return 'ISO-8859-9-Windows-Latin-5';
1121

    
1122
                        case 'csisolatin6':
1123
                        case 'iso885910':
1124
                        case 'iso8859101992':
1125
                        case 'isoir157':
1126
                        case 'l6':
1127
                        case 'latin6':
1128
                                return 'ISO-8859-10';
1129

    
1130
                        case 'iso885913':
1131
                                return 'ISO-8859-13';
1132

    
1133
                        case 'iso885914':
1134
                        case 'iso8859141998':
1135
                        case 'isoceltic':
1136
                        case 'isoir199':
1137
                        case 'l8':
1138
                        case 'latin8':
1139
                                return 'ISO-8859-14';
1140

    
1141
                        case 'iso885915':
1142
                        case 'latin9':
1143
                                return 'ISO-8859-15';
1144

    
1145
                        case 'iso885916':
1146
                        case 'iso8859162001':
1147
                        case 'isoir226':
1148
                        case 'l10':
1149
                        case 'latin10':
1150
                                return 'ISO-8859-16';
1151

    
1152
                        case 'iso10646j1':
1153
                                return 'ISO-10646-J-1';
1154

    
1155
                        case 'csunicode':
1156
                        case 'iso10646ucs2':
1157
                                return 'ISO-10646-UCS-2';
1158

    
1159
                        case 'csucs4':
1160
                        case 'iso10646ucs4':
1161
                                return 'ISO-10646-UCS-4';
1162

    
1163
                        case 'csunicodeascii':
1164
                        case 'iso10646ucsbasic':
1165
                                return 'ISO-10646-UCS-Basic';
1166

    
1167
                        case 'csunicodelatin1':
1168
                        case 'iso10646':
1169
                        case 'iso10646unicodelatin1':
1170
                                return 'ISO-10646-Unicode-Latin1';
1171

    
1172
                        case 'csiso10646utf1':
1173
                        case 'iso10646utf1':
1174
                                return 'ISO-10646-UTF-1';
1175

    
1176
                        case 'csiso115481':
1177
                        case 'iso115481':
1178
                        case 'isotr115481':
1179
                                return 'ISO-11548-1';
1180

    
1181
                        case 'csiso90':
1182
                        case 'isoir90':
1183
                                return 'iso-ir-90';
1184

    
1185
                        case 'csunicodeibm1261':
1186
                        case 'isounicodeibm1261':
1187
                                return 'ISO-Unicode-IBM-1261';
1188

    
1189
                        case 'csunicodeibm1264':
1190
                        case 'isounicodeibm1264':
1191
                                return 'ISO-Unicode-IBM-1264';
1192

    
1193
                        case 'csunicodeibm1265':
1194
                        case 'isounicodeibm1265':
1195
                                return 'ISO-Unicode-IBM-1265';
1196

    
1197
                        case 'csunicodeibm1268':
1198
                        case 'isounicodeibm1268':
1199
                                return 'ISO-Unicode-IBM-1268';
1200

    
1201
                        case 'csunicodeibm1276':
1202
                        case 'isounicodeibm1276':
1203
                                return 'ISO-Unicode-IBM-1276';
1204

    
1205
                        case 'csiso646basic1983':
1206
                        case 'iso646basic1983':
1207
                        case 'ref':
1208
                                return 'ISO_646.basic:1983';
1209

    
1210
                        case 'csiso2intlrefversion':
1211
                        case 'irv':
1212
                        case 'iso646irv1983':
1213
                        case 'isoir2':
1214
                                return 'ISO_646.irv:1983';
1215

    
1216
                        case 'csiso2033':
1217
                        case 'e13b':
1218
                        case 'iso20331983':
1219
                        case 'isoir98':
1220
                                return 'ISO_2033-1983';
1221

    
1222
                        case 'csiso5427cyrillic':
1223
                        case 'iso5427':
1224
                        case 'isoir37':
1225
                                return 'ISO_5427';
1226

    
1227
                        case 'iso5427cyrillic1981':
1228
                        case 'iso54271981':
1229
                        case 'isoir54':
1230
                                return 'ISO_5427:1981';
1231

    
1232
                        case 'csiso5428greek':
1233
                        case 'iso54281980':
1234
                        case 'isoir55':
1235
                                return 'ISO_5428:1980';
1236

    
1237
                        case 'csiso6937add':
1238
                        case 'iso6937225':
1239
                        case 'isoir152':
1240
                                return 'ISO_6937-2-25';
1241

    
1242
                        case 'csisotextcomm':
1243
                        case 'iso69372add':
1244
                        case 'isoir142':
1245
                                return 'ISO_6937-2-add';
1246

    
1247
                        case 'csiso8859supp':
1248
                        case 'iso8859supp':
1249
                        case 'isoir154':
1250
                        case 'latin125':
1251
                                return 'ISO_8859-supp';
1252

    
1253
                        case 'csiso10367box':
1254
                        case 'iso10367box':
1255
                        case 'isoir155':
1256
                                return 'ISO_10367-box';
1257

    
1258
                        case 'csiso15italian':
1259
                        case 'iso646it':
1260
                        case 'isoir15':
1261
                        case 'it':
1262
                                return 'IT';
1263

    
1264
                        case 'csiso13jisc6220jp':
1265
                        case 'isoir13':
1266
                        case 'jisc62201969':
1267
                        case 'jisc62201969jp':
1268
                        case 'katakana':
1269
                        case 'x2017':
1270
                                return 'JIS_C6220-1969-jp';
1271

    
1272
                        case 'csiso14jisc6220ro':
1273
                        case 'iso646jp':
1274
                        case 'isoir14':
1275
                        case 'jisc62201969ro':
1276
                        case 'jp':
1277
                                return 'JIS_C6220-1969-ro';
1278

    
1279
                        case 'csiso42jisc62261978':
1280
                        case 'isoir42':
1281
                        case 'jisc62261978':
1282
                                return 'JIS_C6226-1978';
1283

    
1284
                        case 'csiso87jisx208':
1285
                        case 'isoir87':
1286
                        case 'jisc62261983':
1287
                        case 'jisx2081983':
1288
                        case 'x208':
1289
                                return 'JIS_C6226-1983';
1290

    
1291
                        case 'csiso91jisc62291984a':
1292
                        case 'isoir91':
1293
                        case 'jisc62291984a':
1294
                        case 'jpocra':
1295
                                return 'JIS_C6229-1984-a';
1296

    
1297
                        case 'csiso92jisc62991984b':
1298
                        case 'iso646jpocrb':
1299
                        case 'isoir92':
1300
                        case 'jisc62291984b':
1301
                        case 'jpocrb':
1302
                                return 'JIS_C6229-1984-b';
1303

    
1304
                        case 'csiso93jis62291984badd':
1305
                        case 'isoir93':
1306
                        case 'jisc62291984badd':
1307
                        case 'jpocrbadd':
1308
                                return 'JIS_C6229-1984-b-add';
1309

    
1310
                        case 'csiso94jis62291984hand':
1311
                        case 'isoir94':
1312
                        case 'jisc62291984hand':
1313
                        case 'jpocrhand':
1314
                                return 'JIS_C6229-1984-hand';
1315

    
1316
                        case 'csiso95jis62291984handadd':
1317
                        case 'isoir95':
1318
                        case 'jisc62291984handadd':
1319
                        case 'jpocrhandadd':
1320
                                return 'JIS_C6229-1984-hand-add';
1321

    
1322
                        case 'csiso96jisc62291984kana':
1323
                        case 'isoir96':
1324
                        case 'jisc62291984kana':
1325
                                return 'JIS_C6229-1984-kana';
1326

    
1327
                        case 'csjisencoding':
1328
                        case 'jisencoding':
1329
                                return 'JIS_Encoding';
1330

    
1331
                        case 'cshalfwidthkatakana':
1332
                        case 'jisx201':
1333
                        case 'x201':
1334
                                return 'JIS_X0201';
1335

    
1336
                        case 'csiso159jisx2121990':
1337
                        case 'isoir159':
1338
                        case 'jisx2121990':
1339
                        case 'x212':
1340
                                return 'JIS_X0212-1990';
1341

    
1342
                        case 'csiso141jusib1002':
1343
                        case 'iso646yu':
1344
                        case 'isoir141':
1345
                        case 'js':
1346
                        case 'jusib1002':
1347
                        case 'yu':
1348
                                return 'JUS_I.B1.002';
1349

    
1350
                        case 'csiso147macedonian':
1351
                        case 'isoir147':
1352
                        case 'jusib1003mac':
1353
                        case 'macedonian':
1354
                                return 'JUS_I.B1.003-mac';
1355

    
1356
                        case 'csiso146serbian':
1357
                        case 'isoir146':
1358
                        case 'jusib1003serb':
1359
                        case 'serbian':
1360
                                return 'JUS_I.B1.003-serb';
1361

    
1362
                        case 'koi7switched':
1363
                                return 'KOI7-switched';
1364

    
1365
                        case 'cskoi8r':
1366
                        case 'koi8r':
1367
                                return 'KOI8-R';
1368

    
1369
                        case 'koi8u':
1370
                                return 'KOI8-U';
1371

    
1372
                        case 'csksc5636':
1373
                        case 'iso646kr':
1374
                        case 'ksc5636':
1375
                                return 'KSC5636';
1376

    
1377
                        case 'cskz1048':
1378
                        case 'kz1048':
1379
                        case 'rk1048':
1380
                        case 'strk10482002':
1381
                                return 'KZ-1048';
1382

    
1383
                        case 'csiso19latingreek':
1384
                        case 'isoir19':
1385
                        case 'latingreek':
1386
                                return 'latin-greek';
1387

    
1388
                        case 'csiso27latingreek1':
1389
                        case 'isoir27':
1390
                        case 'latingreek1':
1391
                                return 'Latin-greek-1';
1392

    
1393
                        case 'csiso158lap':
1394
                        case 'isoir158':
1395
                        case 'lap':
1396
                        case 'latinlap':
1397
                                return 'latin-lap';
1398

    
1399
                        case 'csmacintosh':
1400
                        case 'mac':
1401
                        case 'macintosh':
1402
                                return 'macintosh';
1403

    
1404
                        case 'csmicrosoftpublishing':
1405
                        case 'microsoftpublishing':
1406
                                return 'Microsoft-Publishing';
1407

    
1408
                        case 'csmnem':
1409
                        case 'mnem':
1410
                                return 'MNEM';
1411

    
1412
                        case 'csmnemonic':
1413
                        case 'mnemonic':
1414
                                return 'MNEMONIC';
1415

    
1416
                        case 'csiso86hungarian':
1417
                        case 'hu':
1418
                        case 'iso646hu':
1419
                        case 'isoir86':
1420
                        case 'msz77953':
1421
                                return 'MSZ_7795.3';
1422

    
1423
                        case 'csnatsdano':
1424
                        case 'isoir91':
1425
                        case 'natsdano':
1426
                                return 'NATS-DANO';
1427

    
1428
                        case 'csnatsdanoadd':
1429
                        case 'isoir92':
1430
                        case 'natsdanoadd':
1431
                                return 'NATS-DANO-ADD';
1432

    
1433
                        case 'csnatssefi':
1434
                        case 'isoir81':
1435
                        case 'natssefi':
1436
                                return 'NATS-SEFI';
1437

    
1438
                        case 'csnatssefiadd':
1439
                        case 'isoir82':
1440
                        case 'natssefiadd':
1441
                                return 'NATS-SEFI-ADD';
1442

    
1443
                        case 'csiso151cuba':
1444
                        case 'cuba':
1445
                        case 'iso646cu':
1446
                        case 'isoir151':
1447
                        case 'ncnc1081':
1448
                                return 'NC_NC00-10:81';
1449

    
1450
                        case 'csiso69french':
1451
                        case 'fr':
1452
                        case 'iso646fr':
1453
                        case 'isoir69':
1454
                        case 'nfz62010':
1455
                                return 'NF_Z_62-010';
1456

    
1457
                        case 'csiso25french':
1458
                        case 'iso646fr1':
1459
                        case 'isoir25':
1460
                        case 'nfz620101973':
1461
                                return 'NF_Z_62-010_(1973)';
1462

    
1463
                        case 'csiso60danishnorwegian':
1464
                        case 'csiso60norwegian1':
1465
                        case 'iso646no':
1466
                        case 'isoir60':
1467
                        case 'no':
1468
                        case 'ns45511':
1469
                                return 'NS_4551-1';
1470

    
1471
                        case 'csiso61norwegian2':
1472
                        case 'iso646no2':
1473
                        case 'isoir61':
1474
                        case 'no2':
1475
                        case 'ns45512':
1476
                                return 'NS_4551-2';
1477

    
1478
                        case 'osdebcdicdf3irv':
1479
                                return 'OSD_EBCDIC_DF03_IRV';
1480

    
1481
                        case 'osdebcdicdf41':
1482
                                return 'OSD_EBCDIC_DF04_1';
1483

    
1484
                        case 'osdebcdicdf415':
1485
                                return 'OSD_EBCDIC_DF04_15';
1486

    
1487
                        case 'cspc8danishnorwegian':
1488
                        case 'pc8danishnorwegian':
1489
                                return 'PC8-Danish-Norwegian';
1490

    
1491
                        case 'cspc8turkish':
1492
                        case 'pc8turkish':
1493
                                return 'PC8-Turkish';
1494

    
1495
                        case 'csiso16portuguese':
1496
                        case 'iso646pt':
1497
                        case 'isoir16':
1498
                        case 'pt':
1499
                                return 'PT';
1500

    
1501
                        case 'csiso84portuguese2':
1502
                        case 'iso646pt2':
1503
                        case 'isoir84':
1504
                        case 'pt2':
1505
                                return 'PT2';
1506

    
1507
                        case 'cp154':
1508
                        case 'csptcp154':
1509
                        case 'cyrillicasian':
1510
                        case 'pt154':
1511
                        case 'ptcp154':
1512
                                return 'PTCP154';
1513

    
1514
                        case 'scsu':
1515
                                return 'SCSU';
1516

    
1517
                        case 'csiso10swedish':
1518
                        case 'fi':
1519
                        case 'iso646fi':
1520
                        case 'iso646se':
1521
                        case 'isoir10':
1522
                        case 'se':
1523
                        case 'sen850200b':
1524
                                return 'SEN_850200_B';
1525

    
1526
                        case 'csiso11swedishfornames':
1527
                        case 'iso646se2':
1528
                        case 'isoir11':
1529
                        case 'se2':
1530
                        case 'sen850200c':
1531
                                return 'SEN_850200_C';
1532

    
1533
                        case 'csiso102t617bit':
1534
                        case 'isoir102':
1535
                        case 't617bit':
1536
                                return 'T.61-7bit';
1537

    
1538
                        case 'csiso103t618bit':
1539
                        case 'isoir103':
1540
                        case 't61':
1541
                        case 't618bit':
1542
                                return 'T.61-8bit';
1543

    
1544
                        case 'csiso128t101g2':
1545
                        case 'isoir128':
1546
                        case 't101g2':
1547
                                return 'T.101-G2';
1548

    
1549
                        case 'cstscii':
1550
                        case 'tscii':
1551
                                return 'TSCII';
1552

    
1553
                        case 'csunicode11':
1554
                        case 'unicode11':
1555
                                return 'UNICODE-1-1';
1556

    
1557
                        case 'csunicode11utf7':
1558
                        case 'unicode11utf7':
1559
                                return 'UNICODE-1-1-UTF-7';
1560

    
1561
                        case 'csunknown8bit':
1562
                        case 'unknown8bit':
1563
                                return 'UNKNOWN-8BIT';
1564

    
1565
                        case 'ansix341968':
1566
                        case 'ansix341986':
1567
                        case 'ascii':
1568
                        case 'cp367':
1569
                        case 'csascii':
1570
                        case 'ibm367':
1571
                        case 'iso646irv1991':
1572
                        case 'iso646us':
1573
                        case 'isoir6':
1574
                        case 'us':
1575
                        case 'usascii':
1576
                                return 'US-ASCII';
1577

    
1578
                        case 'csusdk':
1579
                        case 'usdk':
1580
                                return 'us-dk';
1581

    
1582
                        case 'utf7':
1583
                                return 'UTF-7';
1584

    
1585
                        case 'utf8':
1586
                                return 'UTF-8';
1587

    
1588
                        case 'utf16':
1589
                                return 'UTF-16';
1590

    
1591
                        case 'utf16be':
1592
                                return 'UTF-16BE';
1593

    
1594
                        case 'utf16le':
1595
                                return 'UTF-16LE';
1596

    
1597
                        case 'utf32':
1598
                                return 'UTF-32';
1599

    
1600
                        case 'utf32be':
1601
                                return 'UTF-32BE';
1602

    
1603
                        case 'utf32le':
1604
                                return 'UTF-32LE';
1605

    
1606
                        case 'csventurainternational':
1607
                        case 'venturainternational':
1608
                                return 'Ventura-International';
1609

    
1610
                        case 'csventuramath':
1611
                        case 'venturamath':
1612
                                return 'Ventura-Math';
1613

    
1614
                        case 'csventuraus':
1615
                        case 'venturaus':
1616
                                return 'Ventura-US';
1617

    
1618
                        case 'csiso70videotexsupp1':
1619
                        case 'isoir70':
1620
                        case 'videotexsuppl':
1621
                                return 'videotex-suppl';
1622

    
1623
                        case 'csviqr':
1624
                        case 'viqr':
1625
                                return 'VIQR';
1626

    
1627
                        case 'csviscii':
1628
                        case 'viscii':
1629
                                return 'VISCII';
1630

    
1631
                        case 'csshiftjis':
1632
                        case 'cswindows31j':
1633
                        case 'mskanji':
1634
                        case 'shiftjis':
1635
                        case 'windows31j':
1636
                                return 'Windows-31J';
1637

    
1638
                        case 'iso885911':
1639
                        case 'tis620':
1640
                                return 'windows-874';
1641

    
1642
                        case 'cseuckr':
1643
                        case 'csksc56011987':
1644
                        case 'euckr':
1645
                        case 'isoir149':
1646
                        case 'korean':
1647
                        case 'ksc5601':
1648
                        case 'ksc56011987':
1649
                        case 'ksc56011989':
1650
                        case 'windows949':
1651
                                return 'windows-949';
1652

    
1653
                        case 'windows1250':
1654
                                return 'windows-1250';
1655

    
1656
                        case 'windows1251':
1657
                                return 'windows-1251';
1658

    
1659
                        case 'cp819':
1660
                        case 'csisolatin1':
1661
                        case 'ibm819':
1662
                        case 'iso88591':
1663
                        case 'iso885911987':
1664
                        case 'isoir100':
1665
                        case 'l1':
1666
                        case 'latin1':
1667
                        case 'windows1252':
1668
                                return 'windows-1252';
1669

    
1670
                        case 'windows1253':
1671
                                return 'windows-1253';
1672

    
1673
                        case 'csisolatin5':
1674
                        case 'iso88599':
1675
                        case 'iso885991989':
1676
                        case 'isoir148':
1677
                        case 'l5':
1678
                        case 'latin5':
1679
                        case 'windows1254':
1680
                                return 'windows-1254';
1681

    
1682
                        case 'windows1255':
1683
                                return 'windows-1255';
1684

    
1685
                        case 'windows1256':
1686
                                return 'windows-1256';
1687

    
1688
                        case 'windows1257':
1689
                                return 'windows-1257';
1690

    
1691
                        case 'windows1258':
1692
                                return 'windows-1258';
1693

    
1694
                        default:
1695
                                return $charset;
1696
                }
1697
        }
1698

    
1699
        public static function get_curl_version()
1700
        {
1701
                if (is_array($curl = curl_version()))
1702
                {
1703
                        $curl = $curl['version'];
1704
                }
1705
                elseif (substr($curl, 0, 5) === 'curl/')
1706
                {
1707
                        $curl = substr($curl, 5, strcspn($curl, "\x09\x0A\x0B\x0C\x0D", 5));
1708
                }
1709
                elseif (substr($curl, 0, 8) === 'libcurl/')
1710
                {
1711
                        $curl = substr($curl, 8, strcspn($curl, "\x09\x0A\x0B\x0C\x0D", 8));
1712
                }
1713
                else
1714
                {
1715
                        $curl = 0;
1716
                }
1717
                return $curl;
1718
        }
1719

    
1720
        /**
1721
         * Strip HTML comments
1722
         *
1723
         * @param string $data Data to strip comments from
1724
         * @return string Comment stripped string
1725
         */
1726
        public static function strip_comments($data)
1727
        {
1728
                $output = '';
1729
                while (($start = strpos($data, '<!--')) !== false)
1730
                {
1731
                        $output .= substr($data, 0, $start);
1732
                        if (($end = strpos($data, '-->', $start)) !== false)
1733
                        {
1734
                                $data = substr_replace($data, '', 0, $end + 3);
1735
                        }
1736
                        else
1737
                        {
1738
                                $data = '';
1739
                        }
1740
                }
1741
                return $output . $data;
1742
        }
1743

    
1744
        public static function parse_date($dt)
1745
        {
1746
                $parser = SimplePie_Parse_Date::get();
1747
                return $parser->parse($dt);
1748
        }
1749

    
1750
        /**
1751
         * Decode HTML entities
1752
         *
1753
         * @deprecated Use DOMDocument instead
1754
         * @param string $data Input data
1755
         * @return string Output data
1756
         */
1757
        public static function entities_decode($data)
1758
        {
1759
                $decoder = new SimplePie_Decode_HTML_Entities($data);
1760
                return $decoder->parse();
1761
        }
1762

    
1763
        /**
1764
         * Remove RFC822 comments
1765
         *
1766
         * @param string $data Data to strip comments from
1767
         * @return string Comment stripped string
1768
         */
1769
        public static function uncomment_rfc822($string)
1770
        {
1771
                $string = (string) $string;
1772
                $position = 0;
1773
                $length = strlen($string);
1774
                $depth = 0;
1775

    
1776
                $output = '';
1777

    
1778
                while ($position < $length && ($pos = strpos($string, '(', $position)) !== false)
1779
                {
1780
                        $output .= substr($string, $position, $pos - $position);
1781
                        $position = $pos + 1;
1782
                        if ($string[$pos - 1] !== '\\')
1783
                        {
1784
                                $depth++;
1785
                                while ($depth && $position < $length)
1786
                                {
1787
                                        $position += strcspn($string, '()', $position);
1788
                                        if ($string[$position - 1] === '\\')
1789
                                        {
1790
                                                $position++;
1791
                                                continue;
1792
                                        }
1793
                                        elseif (isset($string[$position]))
1794
                                        {
1795
                                                switch ($string[$position])
1796
                                                {
1797
                                                        case '(':
1798
                                                                $depth++;
1799
                                                                break;
1800

    
1801
                                                        case ')':
1802
                                                                $depth--;
1803
                                                                break;
1804
                                                }
1805
                                                $position++;
1806
                                        }
1807
                                        else
1808
                                        {
1809
                                                break;
1810
                                        }
1811
                                }
1812
                        }
1813
                        else
1814
                        {
1815
                                $output .= '(';
1816
                        }
1817
                }
1818
                $output .= substr($string, $position);
1819

    
1820
                return $output;
1821
        }
1822

    
1823
        public static function parse_mime($mime)
1824
        {
1825
                if (($pos = strpos($mime, ';')) === false)
1826
                {
1827
                        return trim($mime);
1828
                }
1829
                else
1830
                {
1831
                        return trim(substr($mime, 0, $pos));
1832
                }
1833
        }
1834

    
1835
        public static function atom_03_construct_type($attribs)
1836
        {
1837
                if (isset($attribs['']['mode']) && strtolower(trim($attribs['']['mode']) === 'base64'))
1838
                {
1839
                        $mode = SIMPLEPIE_CONSTRUCT_BASE64;
1840
                }
1841
                else
1842
                {
1843
                        $mode = SIMPLEPIE_CONSTRUCT_NONE;
1844
                }
1845
                if (isset($attribs['']['type']))
1846
                {
1847
                        switch (strtolower(trim($attribs['']['type'])))
1848
                        {
1849
                                case 'text':
1850
                                case 'text/plain':
1851
                                        return SIMPLEPIE_CONSTRUCT_TEXT | $mode;
1852

    
1853
                                case 'html':
1854
                                case 'text/html':
1855
                                        return SIMPLEPIE_CONSTRUCT_HTML | $mode;
1856

    
1857
                                case 'xhtml':
1858
                                case 'application/xhtml+xml':
1859
                                        return SIMPLEPIE_CONSTRUCT_XHTML | $mode;
1860

    
1861
                                default:
1862
                                        return SIMPLEPIE_CONSTRUCT_NONE | $mode;
1863
                        }
1864
                }
1865
                else
1866
                {
1867
                        return SIMPLEPIE_CONSTRUCT_TEXT | $mode;
1868
                }
1869
        }
1870

    
1871
        public static function atom_10_construct_type($attribs)
1872
        {
1873
                if (isset($attribs['']['type']))
1874
                {
1875
                        switch (strtolower(trim($attribs['']['type'])))
1876
                        {
1877
                                case 'text':
1878
                                        return SIMPLEPIE_CONSTRUCT_TEXT;
1879

    
1880
                                case 'html':
1881
                                        return SIMPLEPIE_CONSTRUCT_HTML;
1882

    
1883
                                case 'xhtml':
1884
                                        return SIMPLEPIE_CONSTRUCT_XHTML;
1885

    
1886
                                default:
1887
                                        return SIMPLEPIE_CONSTRUCT_NONE;
1888
                        }
1889
                }
1890
                return SIMPLEPIE_CONSTRUCT_TEXT;
1891
        }
1892

    
1893
        public static function atom_10_content_construct_type($attribs)
1894
        {
1895
                if (isset($attribs['']['type']))
1896
                {
1897
                        $type = strtolower(trim($attribs['']['type']));
1898
                        switch ($type)
1899
                        {
1900
                                case 'text':
1901
                                        return SIMPLEPIE_CONSTRUCT_TEXT;
1902

    
1903
                                case 'html':
1904
                                        return SIMPLEPIE_CONSTRUCT_HTML;
1905

    
1906
                                case 'xhtml':
1907
                                        return SIMPLEPIE_CONSTRUCT_XHTML;
1908
                        }
1909
                        if (in_array(substr($type, -4), array('+xml', '/xml')) || substr($type, 0, 5) === 'text/')
1910
                        {
1911
                                return SIMPLEPIE_CONSTRUCT_NONE;
1912
                        }
1913
                        else
1914
                        {
1915
                                return SIMPLEPIE_CONSTRUCT_BASE64;
1916
                        }
1917
                }
1918
                else
1919
                {
1920
                        return SIMPLEPIE_CONSTRUCT_TEXT;
1921
                }
1922
        }
1923

    
1924
        public static function is_isegment_nz_nc($string)
1925
        {
1926
                return (bool) preg_match('/^([A-Za-z0-9\-._~\x{A0}-\x{D7FF}\x{F900}-\x{FDCF}\x{FDF0}-\x{FFEF}\x{10000}-\x{1FFFD}\x{20000}-\x{2FFFD}\x{30000}-\x{3FFFD}\x{40000}-\x{4FFFD}\x{50000}-\x{5FFFD}\x{60000}-\x{6FFFD}\x{70000}-\x{7FFFD}\x{80000}-\x{8FFFD}\x{90000}-\x{9FFFD}\x{A0000}-\x{AFFFD}\x{B0000}-\x{BFFFD}\x{C0000}-\x{CFFFD}\x{D0000}-\x{DFFFD}\x{E1000}-\x{EFFFD}!$&\'()*+,;=@]|(%[0-9ABCDEF]{2}))+$/u', $string);
1927
        }
1928

    
1929
        public static function space_seperated_tokens($string)
1930
        {
1931
                $space_characters = "\x20\x09\x0A\x0B\x0C\x0D";
1932
                $string_length = strlen($string);
1933

    
1934
                $position = strspn($string, $space_characters);
1935
                $tokens = array();
1936

    
1937
                while ($position < $string_length)
1938
                {
1939
                        $len = strcspn($string, $space_characters, $position);
1940
                        $tokens[] = substr($string, $position, $len);
1941
                        $position += $len;
1942
                        $position += strspn($string, $space_characters, $position);
1943
                }
1944

    
1945
                return $tokens;
1946
        }
1947

    
1948
        /**
1949
         * Converts a unicode codepoint to a UTF-8 character
1950
         *
1951
         * @static
1952
         * @param int $codepoint Unicode codepoint
1953
         * @return string UTF-8 character
1954
         */
1955
        public static function codepoint_to_utf8($codepoint)
1956
        {
1957
                $codepoint = (int) $codepoint;
1958
                if ($codepoint < 0)
1959
                {
1960
                        return false;
1961
                }
1962
                else if ($codepoint <= 0x7f)
1963
                {
1964
                        return chr($codepoint);
1965
                }
1966
                else if ($codepoint <= 0x7ff)
1967
                {
1968
                        return chr(0xc0 | ($codepoint >> 6)) . chr(0x80 | ($codepoint & 0x3f));
1969
                }
1970
                else if ($codepoint <= 0xffff)
1971
                {
1972
                        return chr(0xe0 | ($codepoint >> 12)) . chr(0x80 | (($codepoint >> 6) & 0x3f)) . chr(0x80 | ($codepoint & 0x3f));
1973
                }
1974
                else if ($codepoint <= 0x10ffff)
1975
                {
1976
                        return chr(0xf0 | ($codepoint >> 18)) . chr(0x80 | (($codepoint >> 12) & 0x3f)) . chr(0x80 | (($codepoint >> 6) & 0x3f)) . chr(0x80 | ($codepoint & 0x3f));
1977
                }
1978
                else
1979
                {
1980
                        // U+FFFD REPLACEMENT CHARACTER
1981
                        return "\xEF\xBF\xBD";
1982
                }
1983
        }
1984

    
1985
        /**
1986
         * Similar to parse_str()
1987
         *
1988
         * Returns an associative array of name/value pairs, where the value is an
1989
         * array of values that have used the same name
1990
         *
1991
         * @static
1992
         * @param string $str The input string.
1993
         * @return array
1994
         */
1995
        public static function parse_str($str)
1996
        {
1997
                $return = array();
1998
                $str = explode('&', $str);
1999

    
2000
                foreach ($str as $section)
2001
                {
2002
                        if (strpos($section, '=') !== false)
2003
                        {
2004
                                list($name, $value) = explode('=', $section, 2);
2005
                                $return[urldecode($name)][] = urldecode($value);
2006
                        }
2007
                        else
2008
                        {
2009
                                $return[urldecode($section)][] = null;
2010
                        }
2011
                }
2012

    
2013
                return $return;
2014
        }
2015

    
2016
        /**
2017
         * Detect XML encoding, as per XML 1.0 Appendix F.1
2018
         *
2019
         * @todo Add support for EBCDIC
2020
         * @param string $data XML data
2021
         * @param SimplePie_Registry $registry Class registry
2022
         * @return array Possible encodings
2023
         */
2024
        public static function xml_encoding($data, $registry)
2025
        {
2026
                // UTF-32 Big Endian BOM
2027
                if (substr($data, 0, 4) === "\x00\x00\xFE\xFF")
2028
                {
2029
                        $encoding[] = 'UTF-32BE';
2030
                }
2031
                // UTF-32 Little Endian BOM
2032
                elseif (substr($data, 0, 4) === "\xFF\xFE\x00\x00")
2033
                {
2034
                        $encoding[] = 'UTF-32LE';
2035
                }
2036
                // UTF-16 Big Endian BOM
2037
                elseif (substr($data, 0, 2) === "\xFE\xFF")
2038
                {
2039
                        $encoding[] = 'UTF-16BE';
2040
                }
2041
                // UTF-16 Little Endian BOM
2042
                elseif (substr($data, 0, 2) === "\xFF\xFE")
2043
                {
2044
                        $encoding[] = 'UTF-16LE';
2045
                }
2046
                // UTF-8 BOM
2047
                elseif (substr($data, 0, 3) === "\xEF\xBB\xBF")
2048
                {
2049
                        $encoding[] = 'UTF-8';
2050
                }
2051
                // UTF-32 Big Endian Without BOM
2052
                elseif (substr($data, 0, 20) === "\x00\x00\x00\x3C\x00\x00\x00\x3F\x00\x00\x00\x78\x00\x00\x00\x6D\x00\x00\x00\x6C")
2053
                {
2054
                        if ($pos = strpos($data, "\x00\x00\x00\x3F\x00\x00\x00\x3E"))
2055
                        {
2056
                                $parser = $registry->create('XML_Declaration_Parser', array(SimplePie_Misc::change_encoding(substr($data, 20, $pos - 20), 'UTF-32BE', 'UTF-8')));
2057
                                if ($parser->parse())
2058
                                {
2059
                                        $encoding[] = $parser->encoding;
2060
                                }
2061
                        }
2062
                        $encoding[] = 'UTF-32BE';
2063
                }
2064
                // UTF-32 Little Endian Without BOM
2065
                elseif (substr($data, 0, 20) === "\x3C\x00\x00\x00\x3F\x00\x00\x00\x78\x00\x00\x00\x6D\x00\x00\x00\x6C\x00\x00\x00")
2066
                {
2067
                        if ($pos = strpos($data, "\x3F\x00\x00\x00\x3E\x00\x00\x00"))
2068
                        {
2069
                                $parser = $registry->create('XML_Declaration_Parser', array(SimplePie_Misc::change_encoding(substr($data, 20, $pos - 20), 'UTF-32LE', 'UTF-8')));
2070
                                if ($parser->parse())
2071
                                {
2072
                                        $encoding[] = $parser->encoding;
2073
                                }
2074
                        }
2075
                        $encoding[] = 'UTF-32LE';
2076
                }
2077
                // UTF-16 Big Endian Without BOM
2078
                elseif (substr($data, 0, 10) === "\x00\x3C\x00\x3F\x00\x78\x00\x6D\x00\x6C")
2079
                {
2080
                        if ($pos = strpos($data, "\x00\x3F\x00\x3E"))
2081
                        {
2082
                                $parser = $registry->create('XML_Declaration_Parser', array(SimplePie_Misc::change_encoding(substr($data, 20, $pos - 10), 'UTF-16BE', 'UTF-8')));
2083
                                if ($parser->parse())
2084
                                {
2085
                                        $encoding[] = $parser->encoding;
2086
                                }
2087
                        }
2088
                        $encoding[] = 'UTF-16BE';
2089
                }
2090
                // UTF-16 Little Endian Without BOM
2091
                elseif (substr($data, 0, 10) === "\x3C\x00\x3F\x00\x78\x00\x6D\x00\x6C\x00")
2092
                {
2093
                        if ($pos = strpos($data, "\x3F\x00\x3E\x00"))
2094
                        {
2095
                                $parser = $registry->create('XML_Declaration_Parser', array(SimplePie_Misc::change_encoding(substr($data, 20, $pos - 10), 'UTF-16LE', 'UTF-8')));
2096
                                if ($parser->parse())
2097
                                {
2098
                                        $encoding[] = $parser->encoding;
2099
                                }
2100
                        }
2101
                        $encoding[] = 'UTF-16LE';
2102
                }
2103
                // US-ASCII (or superset)
2104
                elseif (substr($data, 0, 5) === "\x3C\x3F\x78\x6D\x6C")
2105
                {
2106
                        if ($pos = strpos($data, "\x3F\x3E"))
2107
                        {
2108
                                $parser = $registry->create('XML_Declaration_Parser', array(substr($data, 5, $pos - 5)));
2109
                                if ($parser->parse())
2110
                                {
2111
                                        $encoding[] = $parser->encoding;
2112
                                }
2113
                        }
2114
                        $encoding[] = 'UTF-8';
2115
                }
2116
                // Fallback to UTF-8
2117
                else
2118
                {
2119
                        $encoding[] = 'UTF-8';
2120
                }
2121
                return $encoding;
2122
        }
2123

    
2124
        public static function output_javascript()
2125
        {
2126
                if (function_exists('ob_gzhandler'))
2127
                {
2128
                        ob_start('ob_gzhandler');
2129
                }
2130
                header('Content-type: text/javascript; charset: UTF-8');
2131
                header('Cache-Control: must-revalidate');
2132
                header('Expires: ' . gmdate('D, d M Y H:i:s', time() + 604800) . ' GMT'); // 7 days
2133
                ?>
2134
function embed_quicktime(type, bgcolor, width, height, link, placeholder, loop) {
2135
        if (placeholder != '') {
2136
                document.writeln('<embed type="'+type+'" style="cursor:hand; cursor:pointer;" href="'+link+'" src="'+placeholder+'" width="'+width+'" height="'+height+'" autoplay="false" target="myself" controller="false" loop="'+loop+'" scale="aspect" bgcolor="'+bgcolor+'" pluginspage="http://www.apple.com/quicktime/download/"></embed>');
2137
        }
2138
        else {
2139
                document.writeln('<embed type="'+type+'" style="cursor:hand; cursor:pointer;" src="'+link+'" width="'+width+'" height="'+height+'" autoplay="false" target="myself" controller="true" loop="'+loop+'" scale="aspect" bgcolor="'+bgcolor+'" pluginspage="http://www.apple.com/quicktime/download/"></embed>');
2140
        }
2141
}
2142

    
2143
function embed_flash(bgcolor, width, height, link, loop, type) {
2144
        document.writeln('<embed src="'+link+'" pluginspage="http://www.macromedia.com/go/getflashplayer" type="'+type+'" quality="high" width="'+width+'" height="'+height+'" bgcolor="'+bgcolor+'" loop="'+loop+'"></embed>');
2145
}
2146

    
2147
function embed_flv(width, height, link, placeholder, loop, player) {
2148
        document.writeln('<embed src="'+player+'" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" quality="high" width="'+width+'" height="'+height+'" wmode="transparent" flashvars="file='+link+'&autostart=false&repeat='+loop+'&showdigits=true&showfsbutton=false"></embed>');
2149
}
2150

    
2151
function embed_wmedia(width, height, link) {
2152
        document.writeln('<embed type="application/x-mplayer2" src="'+link+'" autosize="1" width="'+width+'" height="'+height+'" showcontrols="1" showstatusbar="0" showdisplay="0" autostart="0"></embed>');
2153
}
2154
                <?php
2155
        }
2156

    
2157
        /**
2158
         * Get the SimplePie build timestamp
2159
         *
2160
         * Uses the git index if it exists, otherwise uses the modification time
2161
         * of the newest file.
2162
         */
2163
        public static function get_build()
2164
        {
2165
                $root = dirname(dirname(__FILE__));
2166
                if (file_exists($root . '/.git/index'))
2167
                {
2168
                        return filemtime($root . '/.git/index');
2169
                }
2170
                elseif (file_exists($root . '/SimplePie'))
2171
                {
2172
                        $time = 0;
2173
                        foreach (glob($root . '/SimplePie/*.php') as $file)
2174
                        {
2175
                                if (($mtime = filemtime($file)) > $time)
2176
                                {
2177
                                        $time = $mtime;
2178
                                }
2179
                        }
2180
                        return $time;
2181
                }
2182
                elseif (file_exists(dirname(__FILE__) . '/Core.php'))
2183
                {
2184
                        return filemtime(dirname(__FILE__) . '/Core.php');
2185
                }
2186
                else
2187
                {
2188
                        return filemtime(__FILE__);
2189
                }
2190
        }
2191

    
2192
        /**
2193
         * Format debugging information
2194
         */
2195
        public static function debug(&$sp)
2196
        {
2197
                $info = 'SimplePie ' . SIMPLEPIE_VERSION . ' Build ' . SIMPLEPIE_BUILD . "\n";
2198
                $info .= 'PHP ' . PHP_VERSION . "\n";
2199
                if ($sp->error() !== null)
2200
                {
2201
                        $info .= 'Error occurred: ' . $sp->error() . "\n";
2202
                }
2203
                else
2204
                {
2205
                        $info .= "No error found.\n";
2206
                }
2207
                $info .= "Extensions:\n";
2208
                $extensions = array('pcre', 'curl', 'zlib', 'mbstring', 'iconv', 'xmlreader', 'xml');
2209
                foreach ($extensions as $ext)
2210
                {
2211
                        if (extension_loaded($ext))
2212
                        {
2213
                                $info .= "    $ext loaded\n";
2214
                                switch ($ext)
2215
                                {
2216
                                        case 'pcre':
2217
                                                $info .= '      Version ' . PCRE_VERSION . "\n";
2218
                                                break;
2219
                                        case 'curl':
2220
                                                $version = curl_version();
2221
                                                $info .= '      Version ' . $version['version'] . "\n";
2222
                                                break;
2223
                                        case 'mbstring':
2224
                                                $info .= '      Overloading: ' . mb_get_info('func_overload') . "\n";
2225
                                                break;
2226
                                        case 'iconv':
2227
                                                $info .= '      Version ' . ICONV_VERSION . "\n";
2228
                                                break;
2229
                                        case 'xml':
2230
                                                $info .= '      Version ' . LIBXML_DOTTED_VERSION . "\n";
2231
                                                break;
2232
                                }
2233
                        }
2234
                        else
2235
                        {
2236
                                $info .= "    $ext not loaded\n";
2237
                        }
2238
                }
2239
                return $info;
2240
        }
2241

    
2242
        public static function silence_errors($num, $str)
2243
        {
2244
                // No-op
2245
        }
2246
}
2247