wp/wp-includes/ID3/module.tag.id3v2.php
author ymh <ymh.work@gmail.com>
Tue, 09 Jun 2015 03:35:32 +0200
changeset 5 5e2f62d02dcd
parent 0 d970ebf37754
child 7 cf61fcea0001
permissions -rw-r--r--
upgrade wordpress + plugins
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     1
<?php
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     2
/////////////////////////////////////////////////////////////////
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     3
/// getID3() by James Heinrich <info@getid3.org>               //
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     4
//  available at http://getid3.sourceforge.net                 //
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     5
//            or http://www.getid3.org                         //
5
5e2f62d02dcd upgrade wordpress + plugins
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
     6
//          also https://github.com/JamesHeinrich/getID3       //
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     7
/////////////////////////////////////////////////////////////////
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     8
// See readme.txt for more details                             //
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     9
/////////////////////////////////////////////////////////////////
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    10
///                                                            //
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    11
// module.tag.id3v2.php                                        //
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    12
// module for analyzing ID3v2 tags                             //
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    13
// dependencies: module.tag.id3v1.php                          //
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    14
//                                                            ///
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    15
/////////////////////////////////////////////////////////////////
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    16
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    17
getid3_lib::IncludeDependency(GETID3_INCLUDEPATH.'module.tag.id3v1.php', __FILE__, true);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    18
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    19
class getid3_id3v2 extends getid3_handler
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    20
{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    21
	public $StartingOffset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    22
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    23
	public function Analyze() {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    24
		$info = &$this->getid3->info;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    25
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    26
		//    Overall tag structure:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    27
		//        +-----------------------------+
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    28
		//        |      Header (10 bytes)      |
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    29
		//        +-----------------------------+
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    30
		//        |       Extended Header       |
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    31
		//        | (variable length, OPTIONAL) |
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    32
		//        +-----------------------------+
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    33
		//        |   Frames (variable length)  |
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    34
		//        +-----------------------------+
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    35
		//        |           Padding           |
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    36
		//        | (variable length, OPTIONAL) |
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    37
		//        +-----------------------------+
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    38
		//        | Footer (10 bytes, OPTIONAL) |
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    39
		//        +-----------------------------+
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    40
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    41
		//    Header
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    42
		//        ID3v2/file identifier      "ID3"
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    43
		//        ID3v2 version              $04 00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    44
		//        ID3v2 flags                (%ab000000 in v2.2, %abc00000 in v2.3, %abcd0000 in v2.4.x)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    45
		//        ID3v2 size             4 * %0xxxxxxx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    46
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    47
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    48
		// shortcuts
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    49
		$info['id3v2']['header'] = true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    50
		$thisfile_id3v2                  = &$info['id3v2'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    51
		$thisfile_id3v2['flags']         =  array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    52
		$thisfile_id3v2_flags            = &$thisfile_id3v2['flags'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    53
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    54
5
5e2f62d02dcd upgrade wordpress + plugins
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
    55
		$this->fseek($this->StartingOffset);
5e2f62d02dcd upgrade wordpress + plugins
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
    56
		$header = $this->fread(10);
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    57
		if (substr($header, 0, 3) == 'ID3'  &&  strlen($header) == 10) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    58
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    59
			$thisfile_id3v2['majorversion'] = ord($header{3});
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    60
			$thisfile_id3v2['minorversion'] = ord($header{4});
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    61
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    62
			// shortcut
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    63
			$id3v2_majorversion = &$thisfile_id3v2['majorversion'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    64
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    65
		} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    66
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    67
			unset($info['id3v2']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    68
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    69
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    70
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    71
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    72
		if ($id3v2_majorversion > 4) { // this script probably won't correctly parse ID3v2.5.x and above (if it ever exists)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    73
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    74
			$info['error'][] = 'this script only parses up to ID3v2.4.x - this tag is ID3v2.'.$id3v2_majorversion.'.'.$thisfile_id3v2['minorversion'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    75
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    76
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    77
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    78
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    79
		$id3_flags = ord($header{5});
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    80
		switch ($id3v2_majorversion) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    81
			case 2:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    82
				// %ab000000 in v2.2
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    83
				$thisfile_id3v2_flags['unsynch']     = (bool) ($id3_flags & 0x80); // a - Unsynchronisation
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    84
				$thisfile_id3v2_flags['compression'] = (bool) ($id3_flags & 0x40); // b - Compression
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    85
				break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    86
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    87
			case 3:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    88
				// %abc00000 in v2.3
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    89
				$thisfile_id3v2_flags['unsynch']     = (bool) ($id3_flags & 0x80); // a - Unsynchronisation
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    90
				$thisfile_id3v2_flags['exthead']     = (bool) ($id3_flags & 0x40); // b - Extended header
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    91
				$thisfile_id3v2_flags['experim']     = (bool) ($id3_flags & 0x20); // c - Experimental indicator
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    92
				break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    93
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    94
			case 4:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    95
				// %abcd0000 in v2.4
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    96
				$thisfile_id3v2_flags['unsynch']     = (bool) ($id3_flags & 0x80); // a - Unsynchronisation
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    97
				$thisfile_id3v2_flags['exthead']     = (bool) ($id3_flags & 0x40); // b - Extended header
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    98
				$thisfile_id3v2_flags['experim']     = (bool) ($id3_flags & 0x20); // c - Experimental indicator
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    99
				$thisfile_id3v2_flags['isfooter']    = (bool) ($id3_flags & 0x10); // d - Footer present
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   100
				break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   101
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   102
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   103
		$thisfile_id3v2['headerlength'] = getid3_lib::BigEndian2Int(substr($header, 6, 4), 1) + 10; // length of ID3v2 tag in 10-byte header doesn't include 10-byte header length
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   104
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   105
		$thisfile_id3v2['tag_offset_start'] = $this->StartingOffset;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   106
		$thisfile_id3v2['tag_offset_end']   = $thisfile_id3v2['tag_offset_start'] + $thisfile_id3v2['headerlength'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   107
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   108
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   109
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   110
		// create 'encoding' key - used by getid3::HandleAllTags()
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   111
		// in ID3v2 every field can have it's own encoding type
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   112
		// so force everything to UTF-8 so it can be handled consistantly
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   113
		$thisfile_id3v2['encoding'] = 'UTF-8';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   114
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   115
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   116
	//    Frames
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   117
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   118
	//        All ID3v2 frames consists of one frame header followed by one or more
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   119
	//        fields containing the actual information. The header is always 10
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   120
	//        bytes and laid out as follows:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   121
	//
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   122
	//        Frame ID      $xx xx xx xx  (four characters)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   123
	//        Size      4 * %0xxxxxxx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   124
	//        Flags         $xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   125
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   126
		$sizeofframes = $thisfile_id3v2['headerlength'] - 10; // not including 10-byte initial header
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   127
		if (!empty($thisfile_id3v2['exthead']['length'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   128
			$sizeofframes -= ($thisfile_id3v2['exthead']['length'] + 4);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   129
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   130
		if (!empty($thisfile_id3v2_flags['isfooter'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   131
			$sizeofframes -= 10; // footer takes last 10 bytes of ID3v2 header, after frame data, before audio
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   132
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   133
		if ($sizeofframes > 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   134
5
5e2f62d02dcd upgrade wordpress + plugins
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   135
			$framedata = $this->fread($sizeofframes); // read all frames from file into $framedata variable
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   136
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   137
			//    if entire frame data is unsynched, de-unsynch it now (ID3v2.3.x)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   138
			if (!empty($thisfile_id3v2_flags['unsynch']) && ($id3v2_majorversion <= 3)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   139
				$framedata = $this->DeUnsynchronise($framedata);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   140
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   141
			//        [in ID3v2.4.0] Unsynchronisation [S:6.1] is done on frame level, instead
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   142
			//        of on tag level, making it easier to skip frames, increasing the streamability
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   143
			//        of the tag. The unsynchronisation flag in the header [S:3.1] indicates that
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   144
			//        there exists an unsynchronised frame, while the new unsynchronisation flag in
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   145
			//        the frame header [S:4.1.2] indicates unsynchronisation.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   146
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   147
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   148
			//$framedataoffset = 10 + ($thisfile_id3v2['exthead']['length'] ? $thisfile_id3v2['exthead']['length'] + 4 : 0); // how many bytes into the stream - start from after the 10-byte header (and extended header length+4, if present)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   149
			$framedataoffset = 10; // how many bytes into the stream - start from after the 10-byte header
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   150
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   151
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   152
			//    Extended Header
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   153
			if (!empty($thisfile_id3v2_flags['exthead'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   154
				$extended_header_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   155
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   156
				if ($id3v2_majorversion == 3) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   157
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   158
					// v2.3 definition:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   159
					//Extended header size  $xx xx xx xx   // 32-bit integer
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   160
					//Extended Flags        $xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   161
					//     %x0000000 %00000000 // v2.3
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   162
					//     x - CRC data present
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   163
					//Size of padding       $xx xx xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   164
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   165
					$thisfile_id3v2['exthead']['length'] = getid3_lib::BigEndian2Int(substr($framedata, $extended_header_offset, 4), 0);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   166
					$extended_header_offset += 4;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   167
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   168
					$thisfile_id3v2['exthead']['flag_bytes'] = 2;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   169
					$thisfile_id3v2['exthead']['flag_raw'] = getid3_lib::BigEndian2Int(substr($framedata, $extended_header_offset, $thisfile_id3v2['exthead']['flag_bytes']));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   170
					$extended_header_offset += $thisfile_id3v2['exthead']['flag_bytes'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   171
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   172
					$thisfile_id3v2['exthead']['flags']['crc'] = (bool) ($thisfile_id3v2['exthead']['flag_raw'] & 0x8000);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   173
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   174
					$thisfile_id3v2['exthead']['padding_size'] = getid3_lib::BigEndian2Int(substr($framedata, $extended_header_offset, 4));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   175
					$extended_header_offset += 4;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   176
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   177
					if ($thisfile_id3v2['exthead']['flags']['crc']) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   178
						$thisfile_id3v2['exthead']['flag_data']['crc'] = getid3_lib::BigEndian2Int(substr($framedata, $extended_header_offset, 4));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   179
						$extended_header_offset += 4;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   180
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   181
					$extended_header_offset += $thisfile_id3v2['exthead']['padding_size'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   182
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   183
				} elseif ($id3v2_majorversion == 4) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   184
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   185
					// v2.4 definition:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   186
					//Extended header size   4 * %0xxxxxxx // 28-bit synchsafe integer
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   187
					//Number of flag bytes       $01
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   188
					//Extended Flags             $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   189
					//     %0bcd0000 // v2.4
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   190
					//     b - Tag is an update
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   191
					//         Flag data length       $00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   192
					//     c - CRC data present
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   193
					//         Flag data length       $05
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   194
					//         Total frame CRC    5 * %0xxxxxxx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   195
					//     d - Tag restrictions
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   196
					//         Flag data length       $01
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   197
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   198
					$thisfile_id3v2['exthead']['length'] = getid3_lib::BigEndian2Int(substr($framedata, $extended_header_offset, 4), true);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   199
					$extended_header_offset += 4;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   200
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   201
					$thisfile_id3v2['exthead']['flag_bytes'] = getid3_lib::BigEndian2Int(substr($framedata, $extended_header_offset, 1)); // should always be 1
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   202
					$extended_header_offset += 1;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   203
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   204
					$thisfile_id3v2['exthead']['flag_raw'] = getid3_lib::BigEndian2Int(substr($framedata, $extended_header_offset, $thisfile_id3v2['exthead']['flag_bytes']));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   205
					$extended_header_offset += $thisfile_id3v2['exthead']['flag_bytes'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   206
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   207
					$thisfile_id3v2['exthead']['flags']['update']       = (bool) ($thisfile_id3v2['exthead']['flag_raw'] & 0x40);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   208
					$thisfile_id3v2['exthead']['flags']['crc']          = (bool) ($thisfile_id3v2['exthead']['flag_raw'] & 0x20);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   209
					$thisfile_id3v2['exthead']['flags']['restrictions'] = (bool) ($thisfile_id3v2['exthead']['flag_raw'] & 0x10);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   210
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   211
					if ($thisfile_id3v2['exthead']['flags']['update']) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   212
						$ext_header_chunk_length = getid3_lib::BigEndian2Int(substr($framedata, $extended_header_offset, 1)); // should be 0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   213
						$extended_header_offset += 1;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   214
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   215
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   216
					if ($thisfile_id3v2['exthead']['flags']['crc']) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   217
						$ext_header_chunk_length = getid3_lib::BigEndian2Int(substr($framedata, $extended_header_offset, 1)); // should be 5
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   218
						$extended_header_offset += 1;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   219
						$thisfile_id3v2['exthead']['flag_data']['crc'] = getid3_lib::BigEndian2Int(substr($framedata, $extended_header_offset, $ext_header_chunk_length), true, false);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   220
						$extended_header_offset += $ext_header_chunk_length;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   221
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   222
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   223
					if ($thisfile_id3v2['exthead']['flags']['restrictions']) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   224
						$ext_header_chunk_length = getid3_lib::BigEndian2Int(substr($framedata, $extended_header_offset, 1)); // should be 1
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   225
						$extended_header_offset += 1;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   226
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   227
						// %ppqrrstt
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   228
						$restrictions_raw = getid3_lib::BigEndian2Int(substr($framedata, $extended_header_offset, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   229
						$extended_header_offset += 1;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   230
						$thisfile_id3v2['exthead']['flags']['restrictions']['tagsize']  = ($restrictions_raw & 0xC0) >> 6; // p - Tag size restrictions
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   231
						$thisfile_id3v2['exthead']['flags']['restrictions']['textenc']  = ($restrictions_raw & 0x20) >> 5; // q - Text encoding restrictions
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   232
						$thisfile_id3v2['exthead']['flags']['restrictions']['textsize'] = ($restrictions_raw & 0x18) >> 3; // r - Text fields size restrictions
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   233
						$thisfile_id3v2['exthead']['flags']['restrictions']['imgenc']   = ($restrictions_raw & 0x04) >> 2; // s - Image encoding restrictions
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   234
						$thisfile_id3v2['exthead']['flags']['restrictions']['imgsize']  = ($restrictions_raw & 0x03) >> 0; // t - Image size restrictions
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   235
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   236
						$thisfile_id3v2['exthead']['flags']['restrictions_text']['tagsize']  = $this->LookupExtendedHeaderRestrictionsTagSizeLimits($thisfile_id3v2['exthead']['flags']['restrictions']['tagsize']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   237
						$thisfile_id3v2['exthead']['flags']['restrictions_text']['textenc']  = $this->LookupExtendedHeaderRestrictionsTextEncodings($thisfile_id3v2['exthead']['flags']['restrictions']['textenc']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   238
						$thisfile_id3v2['exthead']['flags']['restrictions_text']['textsize'] = $this->LookupExtendedHeaderRestrictionsTextFieldSize($thisfile_id3v2['exthead']['flags']['restrictions']['textsize']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   239
						$thisfile_id3v2['exthead']['flags']['restrictions_text']['imgenc']   = $this->LookupExtendedHeaderRestrictionsImageEncoding($thisfile_id3v2['exthead']['flags']['restrictions']['imgenc']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   240
						$thisfile_id3v2['exthead']['flags']['restrictions_text']['imgsize']  = $this->LookupExtendedHeaderRestrictionsImageSizeSize($thisfile_id3v2['exthead']['flags']['restrictions']['imgsize']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   241
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   242
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   243
					if ($thisfile_id3v2['exthead']['length'] != $extended_header_offset) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   244
						$info['warning'][] = 'ID3v2.4 extended header length mismatch (expecting '.intval($thisfile_id3v2['exthead']['length']).', found '.intval($extended_header_offset).')';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   245
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   246
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   247
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   248
				$framedataoffset += $extended_header_offset;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   249
				$framedata = substr($framedata, $extended_header_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   250
			} // end extended header
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   251
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   252
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   253
			while (isset($framedata) && (strlen($framedata) > 0)) { // cycle through until no more frame data is left to parse
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   254
				if (strlen($framedata) <= $this->ID3v2HeaderLength($id3v2_majorversion)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   255
					// insufficient room left in ID3v2 header for actual data - must be padding
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   256
					$thisfile_id3v2['padding']['start']  = $framedataoffset;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   257
					$thisfile_id3v2['padding']['length'] = strlen($framedata);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   258
					$thisfile_id3v2['padding']['valid']  = true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   259
					for ($i = 0; $i < $thisfile_id3v2['padding']['length']; $i++) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   260
						if ($framedata{$i} != "\x00") {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   261
							$thisfile_id3v2['padding']['valid'] = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   262
							$thisfile_id3v2['padding']['errorpos'] = $thisfile_id3v2['padding']['start'] + $i;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   263
							$info['warning'][] = 'Invalid ID3v2 padding found at offset '.$thisfile_id3v2['padding']['errorpos'].' (the remaining '.($thisfile_id3v2['padding']['length'] - $i).' bytes are considered invalid)';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   264
							break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   265
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   266
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   267
					break; // skip rest of ID3v2 header
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   268
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   269
				if ($id3v2_majorversion == 2) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   270
					// Frame ID  $xx xx xx (three characters)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   271
					// Size      $xx xx xx (24-bit integer)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   272
					// Flags     $xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   273
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   274
					$frame_header = substr($framedata, 0, 6); // take next 6 bytes for header
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   275
					$framedata    = substr($framedata, 6);    // and leave the rest in $framedata
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   276
					$frame_name   = substr($frame_header, 0, 3);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   277
					$frame_size   = getid3_lib::BigEndian2Int(substr($frame_header, 3, 3), 0);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   278
					$frame_flags  = 0; // not used for anything in ID3v2.2, just set to avoid E_NOTICEs
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   279
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   280
				} elseif ($id3v2_majorversion > 2) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   281
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   282
					// Frame ID  $xx xx xx xx (four characters)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   283
					// Size      $xx xx xx xx (32-bit integer in v2.3, 28-bit synchsafe in v2.4+)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   284
					// Flags     $xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   285
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   286
					$frame_header = substr($framedata, 0, 10); // take next 10 bytes for header
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   287
					$framedata    = substr($framedata, 10);    // and leave the rest in $framedata
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   288
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   289
					$frame_name = substr($frame_header, 0, 4);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   290
					if ($id3v2_majorversion == 3) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   291
						$frame_size = getid3_lib::BigEndian2Int(substr($frame_header, 4, 4), 0); // 32-bit integer
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   292
					} else { // ID3v2.4+
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   293
						$frame_size = getid3_lib::BigEndian2Int(substr($frame_header, 4, 4), 1); // 32-bit synchsafe integer (28-bit value)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   294
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   295
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   296
					if ($frame_size < (strlen($framedata) + 4)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   297
						$nextFrameID = substr($framedata, $frame_size, 4);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   298
						if ($this->IsValidID3v2FrameName($nextFrameID, $id3v2_majorversion)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   299
							// next frame is OK
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   300
						} elseif (($frame_name == "\x00".'MP3') || ($frame_name == "\x00\x00".'MP') || ($frame_name == ' MP3') || ($frame_name == 'MP3e')) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   301
							// MP3ext known broken frames - "ok" for the purposes of this test
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   302
						} elseif (($id3v2_majorversion == 4) && ($this->IsValidID3v2FrameName(substr($framedata, getid3_lib::BigEndian2Int(substr($frame_header, 4, 4), 0), 4), 3))) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   303
							$info['warning'][] = 'ID3v2 tag written as ID3v2.4, but with non-synchsafe integers (ID3v2.3 style). Older versions of (Helium2; iTunes) are known culprits of this. Tag has been parsed as ID3v2.3';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   304
							$id3v2_majorversion = 3;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   305
							$frame_size = getid3_lib::BigEndian2Int(substr($frame_header, 4, 4), 0); // 32-bit integer
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   306
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   307
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   308
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   309
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   310
					$frame_flags = getid3_lib::BigEndian2Int(substr($frame_header, 8, 2));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   311
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   312
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   313
				if ((($id3v2_majorversion == 2) && ($frame_name == "\x00\x00\x00")) || ($frame_name == "\x00\x00\x00\x00")) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   314
					// padding encountered
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   315
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   316
					$thisfile_id3v2['padding']['start']  = $framedataoffset;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   317
					$thisfile_id3v2['padding']['length'] = strlen($frame_header) + strlen($framedata);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   318
					$thisfile_id3v2['padding']['valid']  = true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   319
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   320
					$len = strlen($framedata);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   321
					for ($i = 0; $i < $len; $i++) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   322
						if ($framedata{$i} != "\x00") {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   323
							$thisfile_id3v2['padding']['valid'] = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   324
							$thisfile_id3v2['padding']['errorpos'] = $thisfile_id3v2['padding']['start'] + $i;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   325
							$info['warning'][] = 'Invalid ID3v2 padding found at offset '.$thisfile_id3v2['padding']['errorpos'].' (the remaining '.($thisfile_id3v2['padding']['length'] - $i).' bytes are considered invalid)';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   326
							break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   327
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   328
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   329
					break; // skip rest of ID3v2 header
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   330
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   331
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   332
				if ($frame_name == 'COM ') {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   333
					$info['warning'][] = 'error parsing "'.$frame_name.'" ('.$framedataoffset.' bytes into the ID3v2.'.$id3v2_majorversion.' tag). (ERROR: IsValidID3v2FrameName("'.str_replace("\x00", ' ', $frame_name).'", '.$id3v2_majorversion.'))). [Note: this particular error has been known to happen with tags edited by iTunes (versions "X v2.0.3", "v3.0.1" are known-guilty, probably others too)]';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   334
					$frame_name = 'COMM';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   335
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   336
				if (($frame_size <= strlen($framedata)) && ($this->IsValidID3v2FrameName($frame_name, $id3v2_majorversion))) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   337
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   338
					unset($parsedFrame);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   339
					$parsedFrame['frame_name']      = $frame_name;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   340
					$parsedFrame['frame_flags_raw'] = $frame_flags;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   341
					$parsedFrame['data']            = substr($framedata, 0, $frame_size);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   342
					$parsedFrame['datalength']      = getid3_lib::CastAsInt($frame_size);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   343
					$parsedFrame['dataoffset']      = $framedataoffset;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   344
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   345
					$this->ParseID3v2Frame($parsedFrame);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   346
					$thisfile_id3v2[$frame_name][] = $parsedFrame;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   347
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   348
					$framedata = substr($framedata, $frame_size);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   349
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   350
				} else { // invalid frame length or FrameID
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   351
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   352
					if ($frame_size <= strlen($framedata)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   353
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   354
						if ($this->IsValidID3v2FrameName(substr($framedata, $frame_size, 4), $id3v2_majorversion)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   355
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   356
							// next frame is valid, just skip the current frame
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   357
							$framedata = substr($framedata, $frame_size);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   358
							$info['warning'][] = 'Next ID3v2 frame is valid, skipping current frame.';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   359
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   360
						} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   361
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   362
							// next frame is invalid too, abort processing
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   363
							//unset($framedata);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   364
							$framedata = null;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   365
							$info['error'][] = 'Next ID3v2 frame is also invalid, aborting processing.';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   366
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   367
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   368
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   369
					} elseif ($frame_size == strlen($framedata)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   370
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   371
						// this is the last frame, just skip
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   372
						$info['warning'][] = 'This was the last ID3v2 frame.';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   373
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   374
					} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   375
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   376
						// next frame is invalid too, abort processing
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   377
						//unset($framedata);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   378
						$framedata = null;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   379
						$info['warning'][] = 'Invalid ID3v2 frame size, aborting.';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   380
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   381
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   382
					if (!$this->IsValidID3v2FrameName($frame_name, $id3v2_majorversion)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   383
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   384
						switch ($frame_name) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   385
							case "\x00\x00".'MP':
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   386
							case "\x00".'MP3':
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   387
							case ' MP3':
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   388
							case 'MP3e':
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   389
							case "\x00".'MP':
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   390
							case ' MP':
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   391
							case 'MP3':
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   392
								$info['warning'][] = 'error parsing "'.$frame_name.'" ('.$framedataoffset.' bytes into the ID3v2.'.$id3v2_majorversion.' tag). (ERROR: !IsValidID3v2FrameName("'.str_replace("\x00", ' ', $frame_name).'", '.$id3v2_majorversion.'))). [Note: this particular error has been known to happen with tags edited by "MP3ext (www.mutschler.de/mp3ext/)"]';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   393
								break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   394
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   395
							default:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   396
								$info['warning'][] = 'error parsing "'.$frame_name.'" ('.$framedataoffset.' bytes into the ID3v2.'.$id3v2_majorversion.' tag). (ERROR: !IsValidID3v2FrameName("'.str_replace("\x00", ' ', $frame_name).'", '.$id3v2_majorversion.'))).';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   397
								break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   398
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   399
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   400
					} elseif (!isset($framedata) || ($frame_size > strlen($framedata))) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   401
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   402
						$info['error'][] = 'error parsing "'.$frame_name.'" ('.$framedataoffset.' bytes into the ID3v2.'.$id3v2_majorversion.' tag). (ERROR: $frame_size ('.$frame_size.') > strlen($framedata) ('.(isset($framedata) ? strlen($framedata) : 'null').')).';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   403
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   404
					} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   405
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   406
						$info['error'][] = 'error parsing "'.$frame_name.'" ('.$framedataoffset.' bytes into the ID3v2.'.$id3v2_majorversion.' tag).';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   407
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   408
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   409
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   410
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   411
				$framedataoffset += ($frame_size + $this->ID3v2HeaderLength($id3v2_majorversion));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   412
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   413
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   414
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   415
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   416
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   417
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   418
	//    Footer
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   419
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   420
	//    The footer is a copy of the header, but with a different identifier.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   421
	//        ID3v2 identifier           "3DI"
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   422
	//        ID3v2 version              $04 00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   423
	//        ID3v2 flags                %abcd0000
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   424
	//        ID3v2 size             4 * %0xxxxxxx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   425
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   426
		if (isset($thisfile_id3v2_flags['isfooter']) && $thisfile_id3v2_flags['isfooter']) {
5
5e2f62d02dcd upgrade wordpress + plugins
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   427
			$footer = $this->fread(10);
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   428
			if (substr($footer, 0, 3) == '3DI') {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   429
				$thisfile_id3v2['footer'] = true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   430
				$thisfile_id3v2['majorversion_footer'] = ord($footer{3});
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   431
				$thisfile_id3v2['minorversion_footer'] = ord($footer{4});
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   432
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   433
			if ($thisfile_id3v2['majorversion_footer'] <= 4) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   434
				$id3_flags = ord(substr($footer{5}));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   435
				$thisfile_id3v2_flags['unsynch_footer']  = (bool) ($id3_flags & 0x80);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   436
				$thisfile_id3v2_flags['extfoot_footer']  = (bool) ($id3_flags & 0x40);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   437
				$thisfile_id3v2_flags['experim_footer']  = (bool) ($id3_flags & 0x20);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   438
				$thisfile_id3v2_flags['isfooter_footer'] = (bool) ($id3_flags & 0x10);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   439
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   440
				$thisfile_id3v2['footerlength'] = getid3_lib::BigEndian2Int(substr($footer, 6, 4), 1);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   441
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   442
		} // end footer
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   443
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   444
		if (isset($thisfile_id3v2['comments']['genre'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   445
			foreach ($thisfile_id3v2['comments']['genre'] as $key => $value) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   446
				unset($thisfile_id3v2['comments']['genre'][$key]);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   447
				$thisfile_id3v2['comments'] = getid3_lib::array_merge_noclobber($thisfile_id3v2['comments'], array('genre'=>$this->ParseID3v2GenreString($value)));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   448
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   449
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   450
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   451
		if (isset($thisfile_id3v2['comments']['track'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   452
			foreach ($thisfile_id3v2['comments']['track'] as $key => $value) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   453
				if (strstr($value, '/')) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   454
					list($thisfile_id3v2['comments']['tracknum'][$key], $thisfile_id3v2['comments']['totaltracks'][$key]) = explode('/', $thisfile_id3v2['comments']['track'][$key]);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   455
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   456
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   457
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   458
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   459
		if (!isset($thisfile_id3v2['comments']['year']) && !empty($thisfile_id3v2['comments']['recording_time'][0]) && preg_match('#^([0-9]{4})#', trim($thisfile_id3v2['comments']['recording_time'][0]), $matches)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   460
			$thisfile_id3v2['comments']['year'] = array($matches[1]);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   461
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   462
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   463
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   464
		if (!empty($thisfile_id3v2['TXXX'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   465
			// MediaMonkey does this, maybe others: write a blank RGAD frame, but put replay-gain adjustment values in TXXX frames
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   466
			foreach ($thisfile_id3v2['TXXX'] as $txxx_array) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   467
				switch ($txxx_array['description']) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   468
					case 'replaygain_track_gain':
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   469
						if (empty($info['replay_gain']['track']['adjustment']) && !empty($txxx_array['data'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   470
							$info['replay_gain']['track']['adjustment'] = floatval(trim(str_replace('dB', '', $txxx_array['data'])));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   471
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   472
						break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   473
					case 'replaygain_track_peak':
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   474
						if (empty($info['replay_gain']['track']['peak']) && !empty($txxx_array['data'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   475
							$info['replay_gain']['track']['peak'] = floatval($txxx_array['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   476
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   477
						break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   478
					case 'replaygain_album_gain':
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   479
						if (empty($info['replay_gain']['album']['adjustment']) && !empty($txxx_array['data'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   480
							$info['replay_gain']['album']['adjustment'] = floatval(trim(str_replace('dB', '', $txxx_array['data'])));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   481
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   482
						break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   483
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   484
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   485
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   486
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   487
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   488
		// Set avdataoffset
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   489
		$info['avdataoffset'] = $thisfile_id3v2['headerlength'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   490
		if (isset($thisfile_id3v2['footer'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   491
			$info['avdataoffset'] += 10;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   492
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   493
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   494
		return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   495
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   496
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   497
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   498
	public function ParseID3v2GenreString($genrestring) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   499
		// Parse genres into arrays of genreName and genreID
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   500
		// ID3v2.2.x, ID3v2.3.x: '(21)' or '(4)Eurodisco' or '(51)(39)' or '(55)((I think...)'
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   501
		// ID3v2.4.x: '21' $00 'Eurodisco' $00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   502
		$clean_genres = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   503
		if (strpos($genrestring, "\x00") === false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   504
			$genrestring = preg_replace('#\(([0-9]{1,3})\)#', '$1'."\x00", $genrestring);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   505
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   506
		$genre_elements = explode("\x00", $genrestring);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   507
		foreach ($genre_elements as $element) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   508
			$element = trim($element);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   509
			if ($element) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   510
				if (preg_match('#^[0-9]{1,3}#', $element)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   511
					$clean_genres[] = getid3_id3v1::LookupGenreName($element);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   512
				} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   513
					$clean_genres[] = str_replace('((', '(', $element);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   514
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   515
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   516
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   517
		return $clean_genres;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   518
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   519
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   520
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   521
	public function ParseID3v2Frame(&$parsedFrame) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   522
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   523
		// shortcuts
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   524
		$info = &$this->getid3->info;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   525
		$id3v2_majorversion = $info['id3v2']['majorversion'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   526
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   527
		$parsedFrame['framenamelong']  = $this->FrameNameLongLookup($parsedFrame['frame_name']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   528
		if (empty($parsedFrame['framenamelong'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   529
			unset($parsedFrame['framenamelong']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   530
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   531
		$parsedFrame['framenameshort'] = $this->FrameNameShortLookup($parsedFrame['frame_name']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   532
		if (empty($parsedFrame['framenameshort'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   533
			unset($parsedFrame['framenameshort']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   534
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   535
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   536
		if ($id3v2_majorversion >= 3) { // frame flags are not part of the ID3v2.2 standard
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   537
			if ($id3v2_majorversion == 3) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   538
				//    Frame Header Flags
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   539
				//    %abc00000 %ijk00000
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   540
				$parsedFrame['flags']['TagAlterPreservation']  = (bool) ($parsedFrame['frame_flags_raw'] & 0x8000); // a - Tag alter preservation
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   541
				$parsedFrame['flags']['FileAlterPreservation'] = (bool) ($parsedFrame['frame_flags_raw'] & 0x4000); // b - File alter preservation
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   542
				$parsedFrame['flags']['ReadOnly']              = (bool) ($parsedFrame['frame_flags_raw'] & 0x2000); // c - Read only
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   543
				$parsedFrame['flags']['compression']           = (bool) ($parsedFrame['frame_flags_raw'] & 0x0080); // i - Compression
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   544
				$parsedFrame['flags']['Encryption']            = (bool) ($parsedFrame['frame_flags_raw'] & 0x0040); // j - Encryption
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   545
				$parsedFrame['flags']['GroupingIdentity']      = (bool) ($parsedFrame['frame_flags_raw'] & 0x0020); // k - Grouping identity
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   546
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   547
			} elseif ($id3v2_majorversion == 4) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   548
				//    Frame Header Flags
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   549
				//    %0abc0000 %0h00kmnp
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   550
				$parsedFrame['flags']['TagAlterPreservation']  = (bool) ($parsedFrame['frame_flags_raw'] & 0x4000); // a - Tag alter preservation
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   551
				$parsedFrame['flags']['FileAlterPreservation'] = (bool) ($parsedFrame['frame_flags_raw'] & 0x2000); // b - File alter preservation
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   552
				$parsedFrame['flags']['ReadOnly']              = (bool) ($parsedFrame['frame_flags_raw'] & 0x1000); // c - Read only
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   553
				$parsedFrame['flags']['GroupingIdentity']      = (bool) ($parsedFrame['frame_flags_raw'] & 0x0040); // h - Grouping identity
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   554
				$parsedFrame['flags']['compression']           = (bool) ($parsedFrame['frame_flags_raw'] & 0x0008); // k - Compression
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   555
				$parsedFrame['flags']['Encryption']            = (bool) ($parsedFrame['frame_flags_raw'] & 0x0004); // m - Encryption
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   556
				$parsedFrame['flags']['Unsynchronisation']     = (bool) ($parsedFrame['frame_flags_raw'] & 0x0002); // n - Unsynchronisation
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   557
				$parsedFrame['flags']['DataLengthIndicator']   = (bool) ($parsedFrame['frame_flags_raw'] & 0x0001); // p - Data length indicator
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   558
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   559
				// Frame-level de-unsynchronisation - ID3v2.4
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   560
				if ($parsedFrame['flags']['Unsynchronisation']) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   561
					$parsedFrame['data'] = $this->DeUnsynchronise($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   562
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   563
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   564
				if ($parsedFrame['flags']['DataLengthIndicator']) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   565
					$parsedFrame['data_length_indicator'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], 0, 4), 1);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   566
					$parsedFrame['data']                  =                           substr($parsedFrame['data'], 4);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   567
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   568
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   569
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   570
			//    Frame-level de-compression
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   571
			if ($parsedFrame['flags']['compression']) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   572
				$parsedFrame['decompressed_size'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], 0, 4));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   573
				if (!function_exists('gzuncompress')) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   574
					$info['warning'][] = 'gzuncompress() support required to decompress ID3v2 frame "'.$parsedFrame['frame_name'].'"';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   575
				} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   576
					if ($decompresseddata = @gzuncompress(substr($parsedFrame['data'], 4))) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   577
					//if ($decompresseddata = @gzuncompress($parsedFrame['data'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   578
						$parsedFrame['data'] = $decompresseddata;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   579
						unset($decompresseddata);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   580
					} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   581
						$info['warning'][] = 'gzuncompress() failed on compressed contents of ID3v2 frame "'.$parsedFrame['frame_name'].'"';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   582
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   583
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   584
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   585
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   586
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   587
		if (!empty($parsedFrame['flags']['DataLengthIndicator'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   588
			if ($parsedFrame['data_length_indicator'] != strlen($parsedFrame['data'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   589
				$info['warning'][] = 'ID3v2 frame "'.$parsedFrame['frame_name'].'" should be '.$parsedFrame['data_length_indicator'].' bytes long according to DataLengthIndicator, but found '.strlen($parsedFrame['data']).' bytes of data';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   590
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   591
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   592
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   593
		if (isset($parsedFrame['datalength']) && ($parsedFrame['datalength'] == 0)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   594
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   595
			$warning = 'Frame "'.$parsedFrame['frame_name'].'" at offset '.$parsedFrame['dataoffset'].' has no data portion';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   596
			switch ($parsedFrame['frame_name']) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   597
				case 'WCOM':
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   598
					$warning .= ' (this is known to happen with files tagged by RioPort)';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   599
					break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   600
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   601
				default:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   602
					break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   603
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   604
			$info['warning'][] = $warning;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   605
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   606
		} elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'UFID')) || // 4.1   UFID Unique file identifier
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   607
			(($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'UFI'))) {  // 4.1   UFI  Unique file identifier
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   608
			//   There may be more than one 'UFID' frame in a tag,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   609
			//   but only one with the same 'Owner identifier'.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   610
			// <Header for 'Unique file identifier', ID: 'UFID'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   611
			// Owner identifier        <text string> $00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   612
			// Identifier              <up to 64 bytes binary data>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   613
			$exploded = explode("\x00", $parsedFrame['data'], 2);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   614
			$parsedFrame['ownerid'] = (isset($exploded[0]) ? $exploded[0] : '');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   615
			$parsedFrame['data']    = (isset($exploded[1]) ? $exploded[1] : '');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   616
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   617
		} elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'TXXX')) || // 4.2.2 TXXX User defined text information frame
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   618
				(($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'TXX'))) {    // 4.2.2 TXX  User defined text information frame
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   619
			//   There may be more than one 'TXXX' frame in each tag,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   620
			//   but only one with the same description.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   621
			// <Header for 'User defined text information frame', ID: 'TXXX'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   622
			// Text encoding     $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   623
			// Description       <text string according to encoding> $00 (00)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   624
			// Value             <text string according to encoding>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   625
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   626
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   627
			$frame_textencoding = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   628
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   629
			if ((($id3v2_majorversion <= 3) && ($frame_textencoding > 1)) || (($id3v2_majorversion == 4) && ($frame_textencoding > 3))) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   630
				$info['warning'][] = 'Invalid text encoding byte ('.$frame_textencoding.') in frame "'.$parsedFrame['frame_name'].'" - defaulting to ISO-8859-1 encoding';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   631
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   632
			$frame_terminatorpos = strpos($parsedFrame['data'], $this->TextEncodingTerminatorLookup($frame_textencoding), $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   633
			if (ord(substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)), 1)) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   634
				$frame_terminatorpos++; // strpos() fooled because 2nd byte of Unicode chars are often 0x00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   635
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   636
			$frame_description = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   637
			if (ord($frame_description) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   638
				$frame_description = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   639
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   640
			$parsedFrame['encodingid']  = $frame_textencoding;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   641
			$parsedFrame['encoding']    = $this->TextEncodingNameLookup($frame_textencoding);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   642
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   643
			$parsedFrame['description'] = $frame_description;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   644
			$parsedFrame['data'] = substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   645
			if (!empty($parsedFrame['framenameshort']) && !empty($parsedFrame['data'])) {
5
5e2f62d02dcd upgrade wordpress + plugins
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   646
				$commentkey = ($parsedFrame['description'] ? $parsedFrame['description'] : (isset($info['id3v2']['comments'][$parsedFrame['framenameshort']]) ? count($info['id3v2']['comments'][$parsedFrame['framenameshort']]) : 0));
5e2f62d02dcd upgrade wordpress + plugins
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   647
				if (!isset($info['id3v2']['comments'][$parsedFrame['framenameshort']]) || !array_key_exists($commentkey, $info['id3v2']['comments'][$parsedFrame['framenameshort']])) {
5e2f62d02dcd upgrade wordpress + plugins
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   648
					$info['id3v2']['comments'][$parsedFrame['framenameshort']][$commentkey] = trim(getid3_lib::iconv_fallback($parsedFrame['encoding'], $info['id3v2']['encoding'], $parsedFrame['data']));
5e2f62d02dcd upgrade wordpress + plugins
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   649
				} else {
5e2f62d02dcd upgrade wordpress + plugins
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   650
					$info['id3v2']['comments'][$parsedFrame['framenameshort']][]            = trim(getid3_lib::iconv_fallback($parsedFrame['encoding'], $info['id3v2']['encoding'], $parsedFrame['data']));
5e2f62d02dcd upgrade wordpress + plugins
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   651
				}
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   652
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   653
			//unset($parsedFrame['data']); do not unset, may be needed elsewhere, e.g. for replaygain
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   654
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   655
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   656
		} elseif ($parsedFrame['frame_name']{0} == 'T') { // 4.2. T??[?] Text information frame
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   657
			//   There may only be one text information frame of its kind in an tag.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   658
			// <Header for 'Text information frame', ID: 'T000' - 'TZZZ',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   659
			// excluding 'TXXX' described in 4.2.6.>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   660
			// Text encoding                $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   661
			// Information                  <text string(s) according to encoding>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   662
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   663
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   664
			$frame_textencoding = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   665
			if ((($id3v2_majorversion <= 3) && ($frame_textencoding > 1)) || (($id3v2_majorversion == 4) && ($frame_textencoding > 3))) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   666
				$info['warning'][] = 'Invalid text encoding byte ('.$frame_textencoding.') in frame "'.$parsedFrame['frame_name'].'" - defaulting to ISO-8859-1 encoding';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   667
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   668
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   669
			$parsedFrame['data'] = (string) substr($parsedFrame['data'], $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   670
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   671
			$parsedFrame['encodingid'] = $frame_textencoding;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   672
			$parsedFrame['encoding']   = $this->TextEncodingNameLookup($frame_textencoding);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   673
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   674
			if (!empty($parsedFrame['framenameshort']) && !empty($parsedFrame['data'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   675
				// ID3v2.3 specs say that TPE1 (and others) can contain multiple artist values separated with /
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   676
				// This of course breaks when an artist name contains slash character, e.g. "AC/DC"
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   677
				// MP3tag (maybe others) implement alternative system where multiple artists are null-separated, which makes more sense
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   678
				// getID3 will split null-separated artists into multiple artists and leave slash-separated ones to the user
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   679
				switch ($parsedFrame['encoding']) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   680
					case 'UTF-16':
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   681
					case 'UTF-16BE':
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   682
					case 'UTF-16LE':
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   683
						$wordsize = 2;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   684
						break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   685
					case 'ISO-8859-1':
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   686
					case 'UTF-8':
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   687
					default:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   688
						$wordsize = 1;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   689
						break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   690
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   691
				$Txxx_elements = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   692
				$Txxx_elements_start_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   693
				for ($i = 0; $i < strlen($parsedFrame['data']); $i += $wordsize) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   694
					if (substr($parsedFrame['data'], $i, $wordsize) == str_repeat("\x00", $wordsize)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   695
						$Txxx_elements[] = substr($parsedFrame['data'], $Txxx_elements_start_offset, $i - $Txxx_elements_start_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   696
						$Txxx_elements_start_offset = $i + $wordsize;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   697
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   698
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   699
				$Txxx_elements[] = substr($parsedFrame['data'], $Txxx_elements_start_offset, $i - $Txxx_elements_start_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   700
				foreach ($Txxx_elements as $Txxx_element) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   701
					$string = getid3_lib::iconv_fallback($parsedFrame['encoding'], $info['id3v2']['encoding'], $Txxx_element);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   702
					if (!empty($string)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   703
						$info['id3v2']['comments'][$parsedFrame['framenameshort']][] = $string;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   704
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   705
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   706
				unset($string, $wordsize, $i, $Txxx_elements, $Txxx_element, $Txxx_elements_start_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   707
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   708
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   709
		} elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'WXXX')) || // 4.3.2 WXXX User defined URL link frame
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   710
				(($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'WXX'))) {    // 4.3.2 WXX  User defined URL link frame
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   711
			//   There may be more than one 'WXXX' frame in each tag,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   712
			//   but only one with the same description
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   713
			// <Header for 'User defined URL link frame', ID: 'WXXX'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   714
			// Text encoding     $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   715
			// Description       <text string according to encoding> $00 (00)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   716
			// URL               <text string>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   717
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   718
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   719
			$frame_textencoding = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   720
			if ((($id3v2_majorversion <= 3) && ($frame_textencoding > 1)) || (($id3v2_majorversion == 4) && ($frame_textencoding > 3))) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   721
				$info['warning'][] = 'Invalid text encoding byte ('.$frame_textencoding.') in frame "'.$parsedFrame['frame_name'].'" - defaulting to ISO-8859-1 encoding';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   722
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   723
			$frame_terminatorpos = strpos($parsedFrame['data'], $this->TextEncodingTerminatorLookup($frame_textencoding), $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   724
			if (ord(substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)), 1)) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   725
				$frame_terminatorpos++; // strpos() fooled because 2nd byte of Unicode chars are often 0x00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   726
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   727
			$frame_description = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   728
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   729
			if (ord($frame_description) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   730
				$frame_description = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   731
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   732
			$parsedFrame['data'] = substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   733
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   734
			$frame_terminatorpos = strpos($parsedFrame['data'], $this->TextEncodingTerminatorLookup($frame_textencoding));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   735
			if (ord(substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)), 1)) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   736
				$frame_terminatorpos++; // strpos() fooled because 2nd byte of Unicode chars are often 0x00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   737
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   738
			if ($frame_terminatorpos) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   739
				// there are null bytes after the data - this is not according to spec
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   740
				// only use data up to first null byte
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   741
				$frame_urldata = (string) substr($parsedFrame['data'], 0, $frame_terminatorpos);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   742
			} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   743
				// no null bytes following data, just use all data
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   744
				$frame_urldata = (string) $parsedFrame['data'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   745
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   746
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   747
			$parsedFrame['encodingid']  = $frame_textencoding;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   748
			$parsedFrame['encoding']    = $this->TextEncodingNameLookup($frame_textencoding);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   749
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   750
			$parsedFrame['url']         = $frame_urldata;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   751
			$parsedFrame['description'] = $frame_description;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   752
			if (!empty($parsedFrame['framenameshort']) && $parsedFrame['url']) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   753
				$info['id3v2']['comments'][$parsedFrame['framenameshort']][] = getid3_lib::iconv_fallback($parsedFrame['encoding'], $info['id3v2']['encoding'], $parsedFrame['url']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   754
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   755
			unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   756
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   757
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   758
		} elseif ($parsedFrame['frame_name']{0} == 'W') { // 4.3. W??? URL link frames
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   759
			//   There may only be one URL link frame of its kind in a tag,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   760
			//   except when stated otherwise in the frame description
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   761
			// <Header for 'URL link frame', ID: 'W000' - 'WZZZ', excluding 'WXXX'
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   762
			// described in 4.3.2.>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   763
			// URL              <text string>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   764
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   765
			$parsedFrame['url'] = trim($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   766
			if (!empty($parsedFrame['framenameshort']) && $parsedFrame['url']) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   767
				$info['id3v2']['comments'][$parsedFrame['framenameshort']][] = $parsedFrame['url'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   768
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   769
			unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   770
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   771
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   772
		} elseif ((($id3v2_majorversion == 3) && ($parsedFrame['frame_name'] == 'IPLS')) || // 4.4  IPLS Involved people list (ID3v2.3 only)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   773
				(($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'IPL'))) {     // 4.4  IPL  Involved people list (ID3v2.2 only)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   774
			// http://id3.org/id3v2.3.0#sec4.4
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   775
			//   There may only be one 'IPL' frame in each tag
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   776
			// <Header for 'User defined URL link frame', ID: 'IPL'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   777
			// Text encoding     $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   778
			// People list strings    <textstrings>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   779
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   780
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   781
			$frame_textencoding = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   782
			if ((($id3v2_majorversion <= 3) && ($frame_textencoding > 1)) || (($id3v2_majorversion == 4) && ($frame_textencoding > 3))) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   783
				$info['warning'][] = 'Invalid text encoding byte ('.$frame_textencoding.') in frame "'.$parsedFrame['frame_name'].'" - defaulting to ISO-8859-1 encoding';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   784
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   785
			$parsedFrame['encodingid'] = $frame_textencoding;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   786
			$parsedFrame['encoding']   = $this->TextEncodingNameLookup($parsedFrame['encodingid']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   787
			$parsedFrame['data_raw']   = (string) substr($parsedFrame['data'], $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   788
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   789
			// http://www.getid3.org/phpBB3/viewtopic.php?t=1369
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   790
			// "this tag typically contains null terminated strings, which are associated in pairs"
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   791
			// "there are users that use the tag incorrectly"
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   792
			$IPLS_parts = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   793
			if (strpos($parsedFrame['data_raw'], "\x00") !== false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   794
				$IPLS_parts_unsorted = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   795
				if (((strlen($parsedFrame['data_raw']) % 2) == 0) && ((substr($parsedFrame['data_raw'], 0, 2) == "\xFF\xFE") || (substr($parsedFrame['data_raw'], 0, 2) == "\xFE\xFF"))) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   796
					// UTF-16, be careful looking for null bytes since most 2-byte characters may contain one; you need to find twin null bytes, and on even padding
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   797
					$thisILPS  = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   798
					for ($i = 0; $i < strlen($parsedFrame['data_raw']); $i += 2) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   799
						$twobytes = substr($parsedFrame['data_raw'], $i, 2);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   800
						if ($twobytes === "\x00\x00") {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   801
							$IPLS_parts_unsorted[] = getid3_lib::iconv_fallback($parsedFrame['encoding'], $info['id3v2']['encoding'], $thisILPS);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   802
							$thisILPS  = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   803
						} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   804
							$thisILPS .= $twobytes;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   805
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   806
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   807
					if (strlen($thisILPS) > 2) { // 2-byte BOM
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   808
						$IPLS_parts_unsorted[] = getid3_lib::iconv_fallback($parsedFrame['encoding'], $info['id3v2']['encoding'], $thisILPS);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   809
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   810
				} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   811
					// ISO-8859-1 or UTF-8 or other single-byte-null character set
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   812
					$IPLS_parts_unsorted = explode("\x00", $parsedFrame['data_raw']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   813
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   814
				if (count($IPLS_parts_unsorted) == 1) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   815
					// just a list of names, e.g. "Dino Baptiste, Jimmy Copley, John Gordon, Bernie Marsden, Sharon Watson"
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   816
					foreach ($IPLS_parts_unsorted as $key => $value) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   817
						$IPLS_parts_sorted = preg_split('#[;,\\r\\n\\t]#', $value);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   818
						$position = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   819
						foreach ($IPLS_parts_sorted as $person) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   820
							$IPLS_parts[] = array('position'=>$position, 'person'=>$person);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   821
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   822
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   823
				} elseif ((count($IPLS_parts_unsorted) % 2) == 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   824
					$position = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   825
					$person   = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   826
					foreach ($IPLS_parts_unsorted as $key => $value) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   827
						if (($key % 2) == 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   828
							$position = $value;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   829
						} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   830
							$person   = $value;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   831
							$IPLS_parts[] = array('position'=>$position, 'person'=>$person);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   832
							$position = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   833
							$person   = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   834
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   835
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   836
				} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   837
					foreach ($IPLS_parts_unsorted as $key => $value) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   838
						$IPLS_parts[] = array($value);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   839
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   840
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   841
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   842
			} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   843
				$IPLS_parts = preg_split('#[;,\\r\\n\\t]#', $parsedFrame['data_raw']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   844
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   845
			$parsedFrame['data'] = $IPLS_parts;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   846
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   847
			if (!empty($parsedFrame['framenameshort']) && !empty($parsedFrame['data'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   848
				$info['id3v2']['comments'][$parsedFrame['framenameshort']][] = $parsedFrame['data'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   849
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   850
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   851
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   852
		} elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'MCDI')) || // 4.4   MCDI Music CD identifier
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   853
				(($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'MCI'))) {     // 4.5   MCI  Music CD identifier
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   854
			//   There may only be one 'MCDI' frame in each tag
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   855
			// <Header for 'Music CD identifier', ID: 'MCDI'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   856
			// CD TOC                <binary data>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   857
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   858
			if (!empty($parsedFrame['framenameshort']) && !empty($parsedFrame['data'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   859
				$info['id3v2']['comments'][$parsedFrame['framenameshort']][] = $parsedFrame['data'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   860
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   861
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   862
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   863
		} elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'ETCO')) || // 4.5   ETCO Event timing codes
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   864
				(($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'ETC'))) {     // 4.6   ETC  Event timing codes
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   865
			//   There may only be one 'ETCO' frame in each tag
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   866
			// <Header for 'Event timing codes', ID: 'ETCO'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   867
			// Time stamp format    $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   868
			//   Where time stamp format is:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   869
			// $01  (32-bit value) MPEG frames from beginning of file
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   870
			// $02  (32-bit value) milliseconds from beginning of file
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   871
			//   Followed by a list of key events in the following format:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   872
			// Type of event   $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   873
			// Time stamp      $xx (xx ...)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   874
			//   The 'Time stamp' is set to zero if directly at the beginning of the sound
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   875
			//   or after the previous event. All events MUST be sorted in chronological order.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   876
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   877
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   878
			$parsedFrame['timestampformat'] = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   879
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   880
			while ($frame_offset < strlen($parsedFrame['data'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   881
				$parsedFrame['typeid']    = substr($parsedFrame['data'], $frame_offset++, 1);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   882
				$parsedFrame['type']      = $this->ETCOEventLookup($parsedFrame['typeid']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   883
				$parsedFrame['timestamp'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, 4));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   884
				$frame_offset += 4;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   885
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   886
			unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   887
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   888
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   889
		} elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'MLLT')) || // 4.6   MLLT MPEG location lookup table
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   890
				(($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'MLL'))) {     // 4.7   MLL MPEG location lookup table
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   891
			//   There may only be one 'MLLT' frame in each tag
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   892
			// <Header for 'Location lookup table', ID: 'MLLT'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   893
			// MPEG frames between reference  $xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   894
			// Bytes between reference        $xx xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   895
			// Milliseconds between reference $xx xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   896
			// Bits for bytes deviation       $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   897
			// Bits for milliseconds dev.     $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   898
			//   Then for every reference the following data is included;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   899
			// Deviation in bytes         %xxx....
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   900
			// Deviation in milliseconds  %xxx....
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   901
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   902
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   903
			$parsedFrame['framesbetweenreferences'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], 0, 2));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   904
			$parsedFrame['bytesbetweenreferences']  = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], 2, 3));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   905
			$parsedFrame['msbetweenreferences']     = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], 5, 3));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   906
			$parsedFrame['bitsforbytesdeviation']   = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], 8, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   907
			$parsedFrame['bitsformsdeviation']      = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], 9, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   908
			$parsedFrame['data'] = substr($parsedFrame['data'], 10);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   909
			while ($frame_offset < strlen($parsedFrame['data'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   910
				$deviationbitstream .= getid3_lib::BigEndian2Bin(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   911
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   912
			$reference_counter = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   913
			while (strlen($deviationbitstream) > 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   914
				$parsedFrame[$reference_counter]['bytedeviation'] = bindec(substr($deviationbitstream, 0, $parsedFrame['bitsforbytesdeviation']));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   915
				$parsedFrame[$reference_counter]['msdeviation']   = bindec(substr($deviationbitstream, $parsedFrame['bitsforbytesdeviation'], $parsedFrame['bitsformsdeviation']));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   916
				$deviationbitstream = substr($deviationbitstream, $parsedFrame['bitsforbytesdeviation'] + $parsedFrame['bitsformsdeviation']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   917
				$reference_counter++;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   918
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   919
			unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   920
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   921
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   922
		} elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'SYTC')) || // 4.7   SYTC Synchronised tempo codes
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   923
				  (($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'STC'))) {  // 4.8   STC  Synchronised tempo codes
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   924
			//   There may only be one 'SYTC' frame in each tag
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   925
			// <Header for 'Synchronised tempo codes', ID: 'SYTC'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   926
			// Time stamp format   $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   927
			// Tempo data          <binary data>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   928
			//   Where time stamp format is:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   929
			// $01  (32-bit value) MPEG frames from beginning of file
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   930
			// $02  (32-bit value) milliseconds from beginning of file
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   931
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   932
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   933
			$parsedFrame['timestampformat'] = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   934
			$timestamp_counter = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   935
			while ($frame_offset < strlen($parsedFrame['data'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   936
				$parsedFrame[$timestamp_counter]['tempo'] = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   937
				if ($parsedFrame[$timestamp_counter]['tempo'] == 255) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   938
					$parsedFrame[$timestamp_counter]['tempo'] += ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   939
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   940
				$parsedFrame[$timestamp_counter]['timestamp'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, 4));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   941
				$frame_offset += 4;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   942
				$timestamp_counter++;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   943
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   944
			unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   945
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   946
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   947
		} elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'USLT')) || // 4.8   USLT Unsynchronised lyric/text transcription
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   948
				(($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'ULT'))) {     // 4.9   ULT  Unsynchronised lyric/text transcription
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   949
			//   There may be more than one 'Unsynchronised lyrics/text transcription' frame
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   950
			//   in each tag, but only one with the same language and content descriptor.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   951
			// <Header for 'Unsynchronised lyrics/text transcription', ID: 'USLT'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   952
			// Text encoding        $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   953
			// Language             $xx xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   954
			// Content descriptor   <text string according to encoding> $00 (00)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   955
			// Lyrics/text          <full text string according to encoding>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   956
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   957
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   958
			$frame_textencoding = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   959
			if ((($id3v2_majorversion <= 3) && ($frame_textencoding > 1)) || (($id3v2_majorversion == 4) && ($frame_textencoding > 3))) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   960
				$info['warning'][] = 'Invalid text encoding byte ('.$frame_textencoding.') in frame "'.$parsedFrame['frame_name'].'" - defaulting to ISO-8859-1 encoding';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   961
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   962
			$frame_language = substr($parsedFrame['data'], $frame_offset, 3);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   963
			$frame_offset += 3;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   964
			$frame_terminatorpos = strpos($parsedFrame['data'], $this->TextEncodingTerminatorLookup($frame_textencoding), $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   965
			if (ord(substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)), 1)) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   966
				$frame_terminatorpos++; // strpos() fooled because 2nd byte of Unicode chars are often 0x00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   967
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   968
			$frame_description = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   969
			if (ord($frame_description) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   970
				$frame_description = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   971
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   972
			$parsedFrame['data'] = substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   973
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   974
			$parsedFrame['encodingid']   = $frame_textencoding;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   975
			$parsedFrame['encoding']     = $this->TextEncodingNameLookup($frame_textencoding);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   976
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   977
			$parsedFrame['data']         = $parsedFrame['data'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   978
			$parsedFrame['language']     = $frame_language;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   979
			$parsedFrame['languagename'] = $this->LanguageLookup($frame_language, false);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   980
			$parsedFrame['description']  = $frame_description;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   981
			if (!empty($parsedFrame['framenameshort']) && !empty($parsedFrame['data'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   982
				$info['id3v2']['comments'][$parsedFrame['framenameshort']][] = getid3_lib::iconv_fallback($parsedFrame['encoding'], $info['id3v2']['encoding'], $parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   983
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   984
			unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   985
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   986
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   987
		} elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'SYLT')) || // 4.9   SYLT Synchronised lyric/text
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   988
				(($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'SLT'))) {     // 4.10  SLT  Synchronised lyric/text
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   989
			//   There may be more than one 'SYLT' frame in each tag,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   990
			//   but only one with the same language and content descriptor.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   991
			// <Header for 'Synchronised lyrics/text', ID: 'SYLT'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   992
			// Text encoding        $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   993
			// Language             $xx xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   994
			// Time stamp format    $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   995
			//   $01  (32-bit value) MPEG frames from beginning of file
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   996
			//   $02  (32-bit value) milliseconds from beginning of file
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   997
			// Content type         $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   998
			// Content descriptor   <text string according to encoding> $00 (00)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   999
			//   Terminated text to be synced (typically a syllable)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1000
			//   Sync identifier (terminator to above string)   $00 (00)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1001
			//   Time stamp                                     $xx (xx ...)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1002
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1003
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1004
			$frame_textencoding = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1005
			if ((($id3v2_majorversion <= 3) && ($frame_textencoding > 1)) || (($id3v2_majorversion == 4) && ($frame_textencoding > 3))) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1006
				$info['warning'][] = 'Invalid text encoding byte ('.$frame_textencoding.') in frame "'.$parsedFrame['frame_name'].'" - defaulting to ISO-8859-1 encoding';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1007
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1008
			$frame_language = substr($parsedFrame['data'], $frame_offset, 3);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1009
			$frame_offset += 3;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1010
			$parsedFrame['timestampformat'] = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1011
			$parsedFrame['contenttypeid']   = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1012
			$parsedFrame['contenttype']     = $this->SYTLContentTypeLookup($parsedFrame['contenttypeid']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1013
			$parsedFrame['encodingid']      = $frame_textencoding;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1014
			$parsedFrame['encoding']        = $this->TextEncodingNameLookup($frame_textencoding);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1015
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1016
			$parsedFrame['language']        = $frame_language;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1017
			$parsedFrame['languagename']    = $this->LanguageLookup($frame_language, false);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1018
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1019
			$timestampindex = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1020
			$frame_remainingdata = substr($parsedFrame['data'], $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1021
			while (strlen($frame_remainingdata)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1022
				$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1023
				$frame_terminatorpos = strpos($frame_remainingdata, $this->TextEncodingTerminatorLookup($frame_textencoding));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1024
				if ($frame_terminatorpos === false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1025
					$frame_remainingdata = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1026
				} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1027
					if (ord(substr($frame_remainingdata, $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)), 1)) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1028
						$frame_terminatorpos++; // strpos() fooled because 2nd byte of Unicode chars are often 0x00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1029
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1030
					$parsedFrame['lyrics'][$timestampindex]['data'] = substr($frame_remainingdata, $frame_offset, $frame_terminatorpos - $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1031
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1032
					$frame_remainingdata = substr($frame_remainingdata, $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1033
					if (($timestampindex == 0) && (ord($frame_remainingdata{0}) != 0)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1034
						// timestamp probably omitted for first data item
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1035
					} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1036
						$parsedFrame['lyrics'][$timestampindex]['timestamp'] = getid3_lib::BigEndian2Int(substr($frame_remainingdata, 0, 4));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1037
						$frame_remainingdata = substr($frame_remainingdata, 4);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1038
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1039
					$timestampindex++;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1040
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1041
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1042
			unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1043
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1044
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1045
		} elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'COMM')) || // 4.10  COMM Comments
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1046
				(($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'COM'))) {     // 4.11  COM  Comments
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1047
			//   There may be more than one comment frame in each tag,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1048
			//   but only one with the same language and content descriptor.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1049
			// <Header for 'Comment', ID: 'COMM'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1050
			// Text encoding          $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1051
			// Language               $xx xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1052
			// Short content descrip. <text string according to encoding> $00 (00)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1053
			// The actual text        <full text string according to encoding>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1054
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1055
			if (strlen($parsedFrame['data']) < 5) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1056
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1057
				$info['warning'][] = 'Invalid data (too short) for "'.$parsedFrame['frame_name'].'" frame at offset '.$parsedFrame['dataoffset'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1058
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1059
			} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1060
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1061
				$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1062
				$frame_textencoding = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1063
				if ((($id3v2_majorversion <= 3) && ($frame_textencoding > 1)) || (($id3v2_majorversion == 4) && ($frame_textencoding > 3))) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1064
					$info['warning'][] = 'Invalid text encoding byte ('.$frame_textencoding.') in frame "'.$parsedFrame['frame_name'].'" - defaulting to ISO-8859-1 encoding';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1065
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1066
				$frame_language = substr($parsedFrame['data'], $frame_offset, 3);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1067
				$frame_offset += 3;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1068
				$frame_terminatorpos = strpos($parsedFrame['data'], $this->TextEncodingTerminatorLookup($frame_textencoding), $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1069
				if (ord(substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)), 1)) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1070
					$frame_terminatorpos++; // strpos() fooled because 2nd byte of Unicode chars are often 0x00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1071
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1072
				$frame_description = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1073
				if (ord($frame_description) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1074
					$frame_description = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1075
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1076
				$frame_text = (string) substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1077
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1078
				$parsedFrame['encodingid']   = $frame_textencoding;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1079
				$parsedFrame['encoding']     = $this->TextEncodingNameLookup($frame_textencoding);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1080
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1081
				$parsedFrame['language']     = $frame_language;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1082
				$parsedFrame['languagename'] = $this->LanguageLookup($frame_language, false);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1083
				$parsedFrame['description']  = $frame_description;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1084
				$parsedFrame['data']         = $frame_text;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1085
				if (!empty($parsedFrame['framenameshort']) && !empty($parsedFrame['data'])) {
5
5e2f62d02dcd upgrade wordpress + plugins
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
  1086
					$commentkey = ($parsedFrame['description'] ? $parsedFrame['description'] : (!empty($info['id3v2']['comments'][$parsedFrame['framenameshort']]) ? count($info['id3v2']['comments'][$parsedFrame['framenameshort']]) : 0));
5e2f62d02dcd upgrade wordpress + plugins
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
  1087
					if (!isset($info['id3v2']['comments'][$parsedFrame['framenameshort']]) || !array_key_exists($commentkey, $info['id3v2']['comments'][$parsedFrame['framenameshort']])) {
5e2f62d02dcd upgrade wordpress + plugins
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
  1088
						$info['id3v2']['comments'][$parsedFrame['framenameshort']][$commentkey] = getid3_lib::iconv_fallback($parsedFrame['encoding'], $info['id3v2']['encoding'], $parsedFrame['data']);
5e2f62d02dcd upgrade wordpress + plugins
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
  1089
					} else {
5e2f62d02dcd upgrade wordpress + plugins
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
  1090
						$info['id3v2']['comments'][$parsedFrame['framenameshort']][]            = getid3_lib::iconv_fallback($parsedFrame['encoding'], $info['id3v2']['encoding'], $parsedFrame['data']);
5e2f62d02dcd upgrade wordpress + plugins
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
  1091
					}
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1092
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1093
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1094
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1095
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1096
		} elseif (($id3v2_majorversion >= 4) && ($parsedFrame['frame_name'] == 'RVA2')) { // 4.11  RVA2 Relative volume adjustment (2) (ID3v2.4+ only)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1097
			//   There may be more than one 'RVA2' frame in each tag,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1098
			//   but only one with the same identification string
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1099
			// <Header for 'Relative volume adjustment (2)', ID: 'RVA2'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1100
			// Identification          <text string> $00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1101
			//   The 'identification' string is used to identify the situation and/or
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1102
			//   device where this adjustment should apply. The following is then
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1103
			//   repeated for every channel:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1104
			// Type of channel         $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1105
			// Volume adjustment       $xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1106
			// Bits representing peak  $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1107
			// Peak volume             $xx (xx ...)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1108
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1109
			$frame_terminatorpos = strpos($parsedFrame['data'], "\x00");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1110
			$frame_idstring = substr($parsedFrame['data'], 0, $frame_terminatorpos);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1111
			if (ord($frame_idstring) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1112
				$frame_idstring = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1113
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1114
			$frame_remainingdata = substr($parsedFrame['data'], $frame_terminatorpos + strlen("\x00"));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1115
			$parsedFrame['description'] = $frame_idstring;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1116
			$RVA2channelcounter = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1117
			while (strlen($frame_remainingdata) >= 5) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1118
				$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1119
				$frame_channeltypeid = ord(substr($frame_remainingdata, $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1120
				$parsedFrame[$RVA2channelcounter]['channeltypeid']  = $frame_channeltypeid;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1121
				$parsedFrame[$RVA2channelcounter]['channeltype']    = $this->RVA2ChannelTypeLookup($frame_channeltypeid);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1122
				$parsedFrame[$RVA2channelcounter]['volumeadjust']   = getid3_lib::BigEndian2Int(substr($frame_remainingdata, $frame_offset, 2), false, true); // 16-bit signed
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1123
				$frame_offset += 2;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1124
				$parsedFrame[$RVA2channelcounter]['bitspeakvolume'] = ord(substr($frame_remainingdata, $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1125
				if (($parsedFrame[$RVA2channelcounter]['bitspeakvolume'] < 1) || ($parsedFrame[$RVA2channelcounter]['bitspeakvolume'] > 4)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1126
					$info['warning'][] = 'ID3v2::RVA2 frame['.$RVA2channelcounter.'] contains invalid '.$parsedFrame[$RVA2channelcounter]['bitspeakvolume'].'-byte bits-representing-peak value';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1127
					break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1128
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1129
				$frame_bytespeakvolume = ceil($parsedFrame[$RVA2channelcounter]['bitspeakvolume'] / 8);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1130
				$parsedFrame[$RVA2channelcounter]['peakvolume']     = getid3_lib::BigEndian2Int(substr($frame_remainingdata, $frame_offset, $frame_bytespeakvolume));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1131
				$frame_remainingdata = substr($frame_remainingdata, $frame_offset + $frame_bytespeakvolume);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1132
				$RVA2channelcounter++;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1133
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1134
			unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1135
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1136
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1137
		} elseif ((($id3v2_majorversion == 3) && ($parsedFrame['frame_name'] == 'RVAD')) || // 4.12  RVAD Relative volume adjustment (ID3v2.3 only)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1138
				  (($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'RVA'))) {  // 4.12  RVA  Relative volume adjustment (ID3v2.2 only)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1139
			//   There may only be one 'RVA' frame in each tag
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1140
			// <Header for 'Relative volume adjustment', ID: 'RVA'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1141
			// ID3v2.2 => Increment/decrement     %000000ba
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1142
			// ID3v2.3 => Increment/decrement     %00fedcba
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1143
			// Bits used for volume descr.        $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1144
			// Relative volume change, right      $xx xx (xx ...) // a
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1145
			// Relative volume change, left       $xx xx (xx ...) // b
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1146
			// Peak volume right                  $xx xx (xx ...)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1147
			// Peak volume left                   $xx xx (xx ...)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1148
			//   ID3v2.3 only, optional (not present in ID3v2.2):
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1149
			// Relative volume change, right back $xx xx (xx ...) // c
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1150
			// Relative volume change, left back  $xx xx (xx ...) // d
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1151
			// Peak volume right back             $xx xx (xx ...)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1152
			// Peak volume left back              $xx xx (xx ...)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1153
			//   ID3v2.3 only, optional (not present in ID3v2.2):
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1154
			// Relative volume change, center     $xx xx (xx ...) // e
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1155
			// Peak volume center                 $xx xx (xx ...)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1156
			//   ID3v2.3 only, optional (not present in ID3v2.2):
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1157
			// Relative volume change, bass       $xx xx (xx ...) // f
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1158
			// Peak volume bass                   $xx xx (xx ...)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1159
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1160
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1161
			$frame_incrdecrflags = getid3_lib::BigEndian2Bin(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1162
			$parsedFrame['incdec']['right'] = (bool) substr($frame_incrdecrflags, 6, 1);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1163
			$parsedFrame['incdec']['left']  = (bool) substr($frame_incrdecrflags, 7, 1);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1164
			$parsedFrame['bitsvolume'] = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1165
			$frame_bytesvolume = ceil($parsedFrame['bitsvolume'] / 8);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1166
			$parsedFrame['volumechange']['right'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, $frame_bytesvolume));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1167
			if ($parsedFrame['incdec']['right'] === false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1168
				$parsedFrame['volumechange']['right'] *= -1;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1169
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1170
			$frame_offset += $frame_bytesvolume;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1171
			$parsedFrame['volumechange']['left'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, $frame_bytesvolume));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1172
			if ($parsedFrame['incdec']['left'] === false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1173
				$parsedFrame['volumechange']['left'] *= -1;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1174
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1175
			$frame_offset += $frame_bytesvolume;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1176
			$parsedFrame['peakvolume']['right'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, $frame_bytesvolume));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1177
			$frame_offset += $frame_bytesvolume;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1178
			$parsedFrame['peakvolume']['left']  = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, $frame_bytesvolume));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1179
			$frame_offset += $frame_bytesvolume;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1180
			if ($id3v2_majorversion == 3) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1181
				$parsedFrame['data'] = substr($parsedFrame['data'], $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1182
				if (strlen($parsedFrame['data']) > 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1183
					$parsedFrame['incdec']['rightrear'] = (bool) substr($frame_incrdecrflags, 4, 1);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1184
					$parsedFrame['incdec']['leftrear']  = (bool) substr($frame_incrdecrflags, 5, 1);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1185
					$parsedFrame['volumechange']['rightrear'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, $frame_bytesvolume));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1186
					if ($parsedFrame['incdec']['rightrear'] === false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1187
						$parsedFrame['volumechange']['rightrear'] *= -1;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1188
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1189
					$frame_offset += $frame_bytesvolume;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1190
					$parsedFrame['volumechange']['leftrear'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, $frame_bytesvolume));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1191
					if ($parsedFrame['incdec']['leftrear'] === false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1192
						$parsedFrame['volumechange']['leftrear'] *= -1;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1193
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1194
					$frame_offset += $frame_bytesvolume;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1195
					$parsedFrame['peakvolume']['rightrear'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, $frame_bytesvolume));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1196
					$frame_offset += $frame_bytesvolume;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1197
					$parsedFrame['peakvolume']['leftrear']  = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, $frame_bytesvolume));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1198
					$frame_offset += $frame_bytesvolume;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1199
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1200
				$parsedFrame['data'] = substr($parsedFrame['data'], $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1201
				if (strlen($parsedFrame['data']) > 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1202
					$parsedFrame['incdec']['center'] = (bool) substr($frame_incrdecrflags, 3, 1);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1203
					$parsedFrame['volumechange']['center'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, $frame_bytesvolume));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1204
					if ($parsedFrame['incdec']['center'] === false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1205
						$parsedFrame['volumechange']['center'] *= -1;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1206
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1207
					$frame_offset += $frame_bytesvolume;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1208
					$parsedFrame['peakvolume']['center'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, $frame_bytesvolume));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1209
					$frame_offset += $frame_bytesvolume;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1210
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1211
				$parsedFrame['data'] = substr($parsedFrame['data'], $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1212
				if (strlen($parsedFrame['data']) > 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1213
					$parsedFrame['incdec']['bass'] = (bool) substr($frame_incrdecrflags, 2, 1);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1214
					$parsedFrame['volumechange']['bass'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, $frame_bytesvolume));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1215
					if ($parsedFrame['incdec']['bass'] === false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1216
						$parsedFrame['volumechange']['bass'] *= -1;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1217
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1218
					$frame_offset += $frame_bytesvolume;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1219
					$parsedFrame['peakvolume']['bass'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, $frame_bytesvolume));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1220
					$frame_offset += $frame_bytesvolume;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1221
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1222
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1223
			unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1224
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1225
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1226
		} elseif (($id3v2_majorversion >= 4) && ($parsedFrame['frame_name'] == 'EQU2')) { // 4.12  EQU2 Equalisation (2) (ID3v2.4+ only)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1227
			//   There may be more than one 'EQU2' frame in each tag,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1228
			//   but only one with the same identification string
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1229
			// <Header of 'Equalisation (2)', ID: 'EQU2'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1230
			// Interpolation method  $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1231
			//   $00  Band
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1232
			//   $01  Linear
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1233
			// Identification        <text string> $00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1234
			//   The following is then repeated for every adjustment point
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1235
			// Frequency          $xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1236
			// Volume adjustment  $xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1237
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1238
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1239
			$frame_interpolationmethod = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1240
			$frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1241
			$frame_idstring = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1242
			if (ord($frame_idstring) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1243
				$frame_idstring = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1244
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1245
			$parsedFrame['description'] = $frame_idstring;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1246
			$frame_remainingdata = substr($parsedFrame['data'], $frame_terminatorpos + strlen("\x00"));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1247
			while (strlen($frame_remainingdata)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1248
				$frame_frequency = getid3_lib::BigEndian2Int(substr($frame_remainingdata, 0, 2)) / 2;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1249
				$parsedFrame['data'][$frame_frequency] = getid3_lib::BigEndian2Int(substr($frame_remainingdata, 2, 2), false, true);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1250
				$frame_remainingdata = substr($frame_remainingdata, 4);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1251
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1252
			$parsedFrame['interpolationmethod'] = $frame_interpolationmethod;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1253
			unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1254
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1255
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1256
		} elseif ((($id3v2_majorversion == 3) && ($parsedFrame['frame_name'] == 'EQUA')) || // 4.12  EQUA Equalisation (ID3v2.3 only)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1257
				(($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'EQU'))) {     // 4.13  EQU  Equalisation (ID3v2.2 only)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1258
			//   There may only be one 'EQUA' frame in each tag
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1259
			// <Header for 'Relative volume adjustment', ID: 'EQU'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1260
			// Adjustment bits    $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1261
			//   This is followed by 2 bytes + ('adjustment bits' rounded up to the
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1262
			//   nearest byte) for every equalisation band in the following format,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1263
			//   giving a frequency range of 0 - 32767Hz:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1264
			// Increment/decrement   %x (MSB of the Frequency)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1265
			// Frequency             (lower 15 bits)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1266
			// Adjustment            $xx (xx ...)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1267
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1268
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1269
			$parsedFrame['adjustmentbits'] = substr($parsedFrame['data'], $frame_offset++, 1);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1270
			$frame_adjustmentbytes = ceil($parsedFrame['adjustmentbits'] / 8);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1271
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1272
			$frame_remainingdata = (string) substr($parsedFrame['data'], $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1273
			while (strlen($frame_remainingdata) > 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1274
				$frame_frequencystr = getid3_lib::BigEndian2Bin(substr($frame_remainingdata, 0, 2));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1275
				$frame_incdec    = (bool) substr($frame_frequencystr, 0, 1);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1276
				$frame_frequency = bindec(substr($frame_frequencystr, 1, 15));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1277
				$parsedFrame[$frame_frequency]['incdec'] = $frame_incdec;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1278
				$parsedFrame[$frame_frequency]['adjustment'] = getid3_lib::BigEndian2Int(substr($frame_remainingdata, 2, $frame_adjustmentbytes));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1279
				if ($parsedFrame[$frame_frequency]['incdec'] === false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1280
					$parsedFrame[$frame_frequency]['adjustment'] *= -1;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1281
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1282
				$frame_remainingdata = substr($frame_remainingdata, 2 + $frame_adjustmentbytes);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1283
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1284
			unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1285
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1286
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1287
		} elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'RVRB')) || // 4.13  RVRB Reverb
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1288
				(($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'REV'))) {     // 4.14  REV  Reverb
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1289
			//   There may only be one 'RVRB' frame in each tag.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1290
			// <Header for 'Reverb', ID: 'RVRB'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1291
			// Reverb left (ms)                 $xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1292
			// Reverb right (ms)                $xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1293
			// Reverb bounces, left             $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1294
			// Reverb bounces, right            $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1295
			// Reverb feedback, left to left    $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1296
			// Reverb feedback, left to right   $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1297
			// Reverb feedback, right to right  $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1298
			// Reverb feedback, right to left   $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1299
			// Premix left to right             $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1300
			// Premix right to left             $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1301
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1302
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1303
			$parsedFrame['left']  = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, 2));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1304
			$frame_offset += 2;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1305
			$parsedFrame['right'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, 2));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1306
			$frame_offset += 2;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1307
			$parsedFrame['bouncesL']      = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1308
			$parsedFrame['bouncesR']      = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1309
			$parsedFrame['feedbackLL']    = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1310
			$parsedFrame['feedbackLR']    = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1311
			$parsedFrame['feedbackRR']    = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1312
			$parsedFrame['feedbackRL']    = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1313
			$parsedFrame['premixLR']      = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1314
			$parsedFrame['premixRL']      = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1315
			unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1316
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1317
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1318
		} elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'APIC')) || // 4.14  APIC Attached picture
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1319
				(($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'PIC'))) {     // 4.15  PIC  Attached picture
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1320
			//   There may be several pictures attached to one file,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1321
			//   each in their individual 'APIC' frame, but only one
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1322
			//   with the same content descriptor
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1323
			// <Header for 'Attached picture', ID: 'APIC'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1324
			// Text encoding      $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1325
			// ID3v2.3+ => MIME type          <text string> $00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1326
			// ID3v2.2  => Image format       $xx xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1327
			// Picture type       $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1328
			// Description        <text string according to encoding> $00 (00)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1329
			// Picture data       <binary data>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1330
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1331
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1332
			$frame_textencoding = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1333
			if ((($id3v2_majorversion <= 3) && ($frame_textencoding > 1)) || (($id3v2_majorversion == 4) && ($frame_textencoding > 3))) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1334
				$info['warning'][] = 'Invalid text encoding byte ('.$frame_textencoding.') in frame "'.$parsedFrame['frame_name'].'" - defaulting to ISO-8859-1 encoding';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1335
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1336
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1337
			if ($id3v2_majorversion == 2 && strlen($parsedFrame['data']) > $frame_offset) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1338
				$frame_imagetype = substr($parsedFrame['data'], $frame_offset, 3);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1339
				if (strtolower($frame_imagetype) == 'ima') {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1340
					// complete hack for mp3Rage (www.chaoticsoftware.com) that puts ID3v2.3-formatted
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1341
					// MIME type instead of 3-char ID3v2.2-format image type  (thanks xbhoffØpacbell*net)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1342
					$frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1343
					$frame_mimetype = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1344
					if (ord($frame_mimetype) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1345
						$frame_mimetype = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1346
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1347
					$frame_imagetype = strtoupper(str_replace('image/', '', strtolower($frame_mimetype)));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1348
					if ($frame_imagetype == 'JPEG') {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1349
						$frame_imagetype = 'JPG';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1350
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1351
					$frame_offset = $frame_terminatorpos + strlen("\x00");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1352
				} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1353
					$frame_offset += 3;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1354
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1355
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1356
			if ($id3v2_majorversion > 2 && strlen($parsedFrame['data']) > $frame_offset) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1357
				$frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1358
				$frame_mimetype = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1359
				if (ord($frame_mimetype) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1360
					$frame_mimetype = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1361
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1362
				$frame_offset = $frame_terminatorpos + strlen("\x00");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1363
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1364
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1365
			$frame_picturetype = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1366
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1367
			if ($frame_offset >= $parsedFrame['datalength']) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1368
				$info['warning'][] = 'data portion of APIC frame is missing at offset '.($parsedFrame['dataoffset'] + 8 + $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1369
			} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1370
				$frame_terminatorpos = strpos($parsedFrame['data'], $this->TextEncodingTerminatorLookup($frame_textencoding), $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1371
				if (ord(substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)), 1)) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1372
					$frame_terminatorpos++; // strpos() fooled because 2nd byte of Unicode chars are often 0x00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1373
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1374
				$frame_description = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1375
				if (ord($frame_description) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1376
					$frame_description = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1377
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1378
				$parsedFrame['encodingid']       = $frame_textencoding;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1379
				$parsedFrame['encoding']         = $this->TextEncodingNameLookup($frame_textencoding);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1380
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1381
				if ($id3v2_majorversion == 2) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1382
					$parsedFrame['imagetype']    = $frame_imagetype;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1383
				} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1384
					$parsedFrame['mime']         = $frame_mimetype;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1385
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1386
				$parsedFrame['picturetypeid']    = $frame_picturetype;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1387
				$parsedFrame['picturetype']      = $this->APICPictureTypeLookup($frame_picturetype);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1388
				$parsedFrame['description']      = $frame_description;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1389
				$parsedFrame['data']             = substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1390
				$parsedFrame['datalength']       = strlen($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1391
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1392
				$parsedFrame['image_mime'] = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1393
				$imageinfo = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1394
				$imagechunkcheck = getid3_lib::GetDataImageSize($parsedFrame['data'], $imageinfo);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1395
				if (($imagechunkcheck[2] >= 1) && ($imagechunkcheck[2] <= 3)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1396
					$parsedFrame['image_mime']       = 'image/'.getid3_lib::ImageTypesLookup($imagechunkcheck[2]);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1397
					if ($imagechunkcheck[0]) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1398
						$parsedFrame['image_width']  = $imagechunkcheck[0];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1399
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1400
					if ($imagechunkcheck[1]) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1401
						$parsedFrame['image_height'] = $imagechunkcheck[1];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1402
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1403
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1404
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1405
				do {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1406
					if ($this->getid3->option_save_attachments === false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1407
						// skip entirely
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1408
						unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1409
						break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1410
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1411
					if ($this->getid3->option_save_attachments === true) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1412
						// great
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1413
/*
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1414
					} elseif (is_int($this->getid3->option_save_attachments)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1415
						if ($this->getid3->option_save_attachments < $parsedFrame['data_length']) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1416
							// too big, skip
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1417
							$info['warning'][] = 'attachment at '.$frame_offset.' is too large to process inline ('.number_format($parsedFrame['data_length']).' bytes)';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1418
							unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1419
							break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1420
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1421
*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1422
					} elseif (is_string($this->getid3->option_save_attachments)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1423
						$dir = rtrim(str_replace(array('/', '\\'), DIRECTORY_SEPARATOR, $this->getid3->option_save_attachments), DIRECTORY_SEPARATOR);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1424
						if (!is_dir($dir) || !is_writable($dir)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1425
							// cannot write, skip
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1426
							$info['warning'][] = 'attachment at '.$frame_offset.' cannot be saved to "'.$dir.'" (not writable)';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1427
							unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1428
							break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1429
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1430
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1431
					// if we get this far, must be OK
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1432
					if (is_string($this->getid3->option_save_attachments)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1433
						$destination_filename = $dir.DIRECTORY_SEPARATOR.md5($info['filenamepath']).'_'.$frame_offset;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1434
						if (!file_exists($destination_filename) || is_writable($destination_filename)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1435
							file_put_contents($destination_filename, $parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1436
						} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1437
							$info['warning'][] = 'attachment at '.$frame_offset.' cannot be saved to "'.$destination_filename.'" (not writable)';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1438
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1439
						$parsedFrame['data_filename'] = $destination_filename;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1440
						unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1441
					} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1442
						if (!empty($parsedFrame['framenameshort']) && !empty($parsedFrame['data'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1443
							if (!isset($info['id3v2']['comments']['picture'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1444
								$info['id3v2']['comments']['picture'] = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1445
							}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1446
							$info['id3v2']['comments']['picture'][] = array('data'=>$parsedFrame['data'], 'image_mime'=>$parsedFrame['image_mime']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1447
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1448
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1449
				} while (false);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1450
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1451
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1452
		} elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'GEOB')) || // 4.15  GEOB General encapsulated object
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1453
				(($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'GEO'))) {     // 4.16  GEO  General encapsulated object
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1454
			//   There may be more than one 'GEOB' frame in each tag,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1455
			//   but only one with the same content descriptor
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1456
			// <Header for 'General encapsulated object', ID: 'GEOB'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1457
			// Text encoding          $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1458
			// MIME type              <text string> $00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1459
			// Filename               <text string according to encoding> $00 (00)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1460
			// Content description    <text string according to encoding> $00 (00)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1461
			// Encapsulated object    <binary data>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1462
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1463
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1464
			$frame_textencoding = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1465
			if ((($id3v2_majorversion <= 3) && ($frame_textencoding > 1)) || (($id3v2_majorversion == 4) && ($frame_textencoding > 3))) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1466
				$info['warning'][] = 'Invalid text encoding byte ('.$frame_textencoding.') in frame "'.$parsedFrame['frame_name'].'" - defaulting to ISO-8859-1 encoding';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1467
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1468
			$frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1469
			$frame_mimetype = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1470
			if (ord($frame_mimetype) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1471
				$frame_mimetype = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1472
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1473
			$frame_offset = $frame_terminatorpos + strlen("\x00");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1474
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1475
			$frame_terminatorpos = strpos($parsedFrame['data'], $this->TextEncodingTerminatorLookup($frame_textencoding), $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1476
			if (ord(substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)), 1)) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1477
				$frame_terminatorpos++; // strpos() fooled because 2nd byte of Unicode chars are often 0x00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1478
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1479
			$frame_filename = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1480
			if (ord($frame_filename) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1481
				$frame_filename = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1482
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1483
			$frame_offset = $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1484
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1485
			$frame_terminatorpos = strpos($parsedFrame['data'], $this->TextEncodingTerminatorLookup($frame_textencoding), $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1486
			if (ord(substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)), 1)) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1487
				$frame_terminatorpos++; // strpos() fooled because 2nd byte of Unicode chars are often 0x00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1488
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1489
			$frame_description = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1490
			if (ord($frame_description) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1491
				$frame_description = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1492
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1493
			$frame_offset = $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1494
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1495
			$parsedFrame['objectdata']  = (string) substr($parsedFrame['data'], $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1496
			$parsedFrame['encodingid']  = $frame_textencoding;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1497
			$parsedFrame['encoding']    = $this->TextEncodingNameLookup($frame_textencoding);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1498
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1499
			$parsedFrame['mime']        = $frame_mimetype;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1500
			$parsedFrame['filename']    = $frame_filename;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1501
			$parsedFrame['description'] = $frame_description;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1502
			unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1503
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1504
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1505
		} elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'PCNT')) || // 4.16  PCNT Play counter
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1506
				(($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'CNT'))) {     // 4.17  CNT  Play counter
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1507
			//   There may only be one 'PCNT' frame in each tag.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1508
			//   When the counter reaches all one's, one byte is inserted in
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1509
			//   front of the counter thus making the counter eight bits bigger
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1510
			// <Header for 'Play counter', ID: 'PCNT'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1511
			// Counter        $xx xx xx xx (xx ...)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1512
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1513
			$parsedFrame['data']          = getid3_lib::BigEndian2Int($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1514
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1515
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1516
		} elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'POPM')) || // 4.17  POPM Popularimeter
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1517
				(($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'POP'))) {    // 4.18  POP  Popularimeter
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1518
			//   There may be more than one 'POPM' frame in each tag,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1519
			//   but only one with the same email address
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1520
			// <Header for 'Popularimeter', ID: 'POPM'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1521
			// Email to user   <text string> $00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1522
			// Rating          $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1523
			// Counter         $xx xx xx xx (xx ...)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1524
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1525
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1526
			$frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1527
			$frame_emailaddress = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1528
			if (ord($frame_emailaddress) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1529
				$frame_emailaddress = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1530
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1531
			$frame_offset = $frame_terminatorpos + strlen("\x00");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1532
			$frame_rating = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1533
			$parsedFrame['counter'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1534
			$parsedFrame['email']   = $frame_emailaddress;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1535
			$parsedFrame['rating']  = $frame_rating;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1536
			unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1537
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1538
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1539
		} elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'RBUF')) || // 4.18  RBUF Recommended buffer size
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1540
				(($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'BUF'))) {     // 4.19  BUF  Recommended buffer size
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1541
			//   There may only be one 'RBUF' frame in each tag
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1542
			// <Header for 'Recommended buffer size', ID: 'RBUF'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1543
			// Buffer size               $xx xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1544
			// Embedded info flag        %0000000x
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1545
			// Offset to next tag        $xx xx xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1546
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1547
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1548
			$parsedFrame['buffersize'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, 3));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1549
			$frame_offset += 3;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1550
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1551
			$frame_embeddedinfoflags = getid3_lib::BigEndian2Bin(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1552
			$parsedFrame['flags']['embededinfo'] = (bool) substr($frame_embeddedinfoflags, 7, 1);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1553
			$parsedFrame['nexttagoffset'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, 4));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1554
			unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1555
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1556
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1557
		} elseif (($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'CRM')) { // 4.20  Encrypted meta frame (ID3v2.2 only)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1558
			//   There may be more than one 'CRM' frame in a tag,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1559
			//   but only one with the same 'owner identifier'
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1560
			// <Header for 'Encrypted meta frame', ID: 'CRM'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1561
			// Owner identifier      <textstring> $00 (00)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1562
			// Content/explanation   <textstring> $00 (00)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1563
			// Encrypted datablock   <binary data>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1564
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1565
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1566
			$frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1567
			$frame_ownerid = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1568
			$frame_offset = $frame_terminatorpos + strlen("\x00");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1569
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1570
			$frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1571
			$frame_description = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1572
			if (ord($frame_description) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1573
				$frame_description = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1574
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1575
			$frame_offset = $frame_terminatorpos + strlen("\x00");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1576
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1577
			$parsedFrame['ownerid']     = $frame_ownerid;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1578
			$parsedFrame['data']        = (string) substr($parsedFrame['data'], $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1579
			$parsedFrame['description'] = $frame_description;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1580
			unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1581
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1582
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1583
		} elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'AENC')) || // 4.19  AENC Audio encryption
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1584
				(($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'CRA'))) {     // 4.21  CRA  Audio encryption
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1585
			//   There may be more than one 'AENC' frames in a tag,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1586
			//   but only one with the same 'Owner identifier'
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1587
			// <Header for 'Audio encryption', ID: 'AENC'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1588
			// Owner identifier   <text string> $00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1589
			// Preview start      $xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1590
			// Preview length     $xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1591
			// Encryption info    <binary data>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1592
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1593
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1594
			$frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1595
			$frame_ownerid = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1596
			if (ord($frame_ownerid) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1597
				$frame_ownerid == '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1598
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1599
			$frame_offset = $frame_terminatorpos + strlen("\x00");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1600
			$parsedFrame['ownerid'] = $frame_ownerid;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1601
			$parsedFrame['previewstart'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, 2));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1602
			$frame_offset += 2;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1603
			$parsedFrame['previewlength'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, 2));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1604
			$frame_offset += 2;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1605
			$parsedFrame['encryptioninfo'] = (string) substr($parsedFrame['data'], $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1606
			unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1607
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1608
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1609
		} elseif ((($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'LINK')) || // 4.20  LINK Linked information
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1610
				(($id3v2_majorversion == 2) && ($parsedFrame['frame_name'] == 'LNK'))) {     // 4.22  LNK  Linked information
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1611
			//   There may be more than one 'LINK' frame in a tag,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1612
			//   but only one with the same contents
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1613
			// <Header for 'Linked information', ID: 'LINK'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1614
			// ID3v2.3+ => Frame identifier   $xx xx xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1615
			// ID3v2.2  => Frame identifier   $xx xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1616
			// URL                            <text string> $00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1617
			// ID and additional data         <text string(s)>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1618
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1619
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1620
			if ($id3v2_majorversion == 2) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1621
				$parsedFrame['frameid'] = substr($parsedFrame['data'], $frame_offset, 3);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1622
				$frame_offset += 3;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1623
			} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1624
				$parsedFrame['frameid'] = substr($parsedFrame['data'], $frame_offset, 4);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1625
				$frame_offset += 4;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1626
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1627
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1628
			$frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1629
			$frame_url = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1630
			if (ord($frame_url) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1631
				$frame_url = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1632
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1633
			$frame_offset = $frame_terminatorpos + strlen("\x00");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1634
			$parsedFrame['url'] = $frame_url;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1635
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1636
			$parsedFrame['additionaldata'] = (string) substr($parsedFrame['data'], $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1637
			if (!empty($parsedFrame['framenameshort']) && $parsedFrame['url']) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1638
				$info['id3v2']['comments'][$parsedFrame['framenameshort']][] = utf8_encode($parsedFrame['url']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1639
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1640
			unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1641
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1642
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1643
		} elseif (($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'POSS')) { // 4.21  POSS Position synchronisation frame (ID3v2.3+ only)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1644
			//   There may only be one 'POSS' frame in each tag
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1645
			// <Head for 'Position synchronisation', ID: 'POSS'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1646
			// Time stamp format         $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1647
			// Position                  $xx (xx ...)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1648
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1649
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1650
			$parsedFrame['timestampformat'] = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1651
			$parsedFrame['position']        = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1652
			unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1653
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1654
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1655
		} elseif (($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'USER')) { // 4.22  USER Terms of use (ID3v2.3+ only)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1656
			//   There may be more than one 'Terms of use' frame in a tag,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1657
			//   but only one with the same 'Language'
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1658
			// <Header for 'Terms of use frame', ID: 'USER'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1659
			// Text encoding        $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1660
			// Language             $xx xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1661
			// The actual text      <text string according to encoding>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1662
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1663
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1664
			$frame_textencoding = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1665
			if ((($id3v2_majorversion <= 3) && ($frame_textencoding > 1)) || (($id3v2_majorversion == 4) && ($frame_textencoding > 3))) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1666
				$info['warning'][] = 'Invalid text encoding byte ('.$frame_textencoding.') in frame "'.$parsedFrame['frame_name'].'" - defaulting to ISO-8859-1 encoding';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1667
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1668
			$frame_language = substr($parsedFrame['data'], $frame_offset, 3);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1669
			$frame_offset += 3;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1670
			$parsedFrame['language']     = $frame_language;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1671
			$parsedFrame['languagename'] = $this->LanguageLookup($frame_language, false);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1672
			$parsedFrame['encodingid']   = $frame_textencoding;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1673
			$parsedFrame['encoding']     = $this->TextEncodingNameLookup($frame_textencoding);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1674
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1675
			$parsedFrame['data']         = (string) substr($parsedFrame['data'], $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1676
			if (!empty($parsedFrame['framenameshort']) && !empty($parsedFrame['data'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1677
				$info['id3v2']['comments'][$parsedFrame['framenameshort']][] = getid3_lib::iconv_fallback($parsedFrame['encoding'], $info['id3v2']['encoding'], $parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1678
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1679
			unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1680
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1681
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1682
		} elseif (($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'OWNE')) { // 4.23  OWNE Ownership frame (ID3v2.3+ only)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1683
			//   There may only be one 'OWNE' frame in a tag
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1684
			// <Header for 'Ownership frame', ID: 'OWNE'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1685
			// Text encoding     $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1686
			// Price paid        <text string> $00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1687
			// Date of purch.    <text string>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1688
			// Seller            <text string according to encoding>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1689
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1690
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1691
			$frame_textencoding = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1692
			if ((($id3v2_majorversion <= 3) && ($frame_textencoding > 1)) || (($id3v2_majorversion == 4) && ($frame_textencoding > 3))) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1693
				$info['warning'][] = 'Invalid text encoding byte ('.$frame_textencoding.') in frame "'.$parsedFrame['frame_name'].'" - defaulting to ISO-8859-1 encoding';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1694
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1695
			$parsedFrame['encodingid'] = $frame_textencoding;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1696
			$parsedFrame['encoding']   = $this->TextEncodingNameLookup($frame_textencoding);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1697
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1698
			$frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1699
			$frame_pricepaid = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1700
			$frame_offset = $frame_terminatorpos + strlen("\x00");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1701
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1702
			$parsedFrame['pricepaid']['currencyid'] = substr($frame_pricepaid, 0, 3);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1703
			$parsedFrame['pricepaid']['currency']   = $this->LookupCurrencyUnits($parsedFrame['pricepaid']['currencyid']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1704
			$parsedFrame['pricepaid']['value']      = substr($frame_pricepaid, 3);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1705
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1706
			$parsedFrame['purchasedate'] = substr($parsedFrame['data'], $frame_offset, 8);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1707
			if (!$this->IsValidDateStampString($parsedFrame['purchasedate'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1708
				$parsedFrame['purchasedateunix'] = mktime (0, 0, 0, substr($parsedFrame['purchasedate'], 4, 2), substr($parsedFrame['purchasedate'], 6, 2), substr($parsedFrame['purchasedate'], 0, 4));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1709
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1710
			$frame_offset += 8;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1711
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1712
			$parsedFrame['seller'] = (string) substr($parsedFrame['data'], $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1713
			unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1714
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1715
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1716
		} elseif (($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'COMR')) { // 4.24  COMR Commercial frame (ID3v2.3+ only)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1717
			//   There may be more than one 'commercial frame' in a tag,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1718
			//   but no two may be identical
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1719
			// <Header for 'Commercial frame', ID: 'COMR'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1720
			// Text encoding      $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1721
			// Price string       <text string> $00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1722
			// Valid until        <text string>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1723
			// Contact URL        <text string> $00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1724
			// Received as        $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1725
			// Name of seller     <text string according to encoding> $00 (00)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1726
			// Description        <text string according to encoding> $00 (00)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1727
			// Picture MIME type  <string> $00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1728
			// Seller logo        <binary data>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1729
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1730
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1731
			$frame_textencoding = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1732
			if ((($id3v2_majorversion <= 3) && ($frame_textencoding > 1)) || (($id3v2_majorversion == 4) && ($frame_textencoding > 3))) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1733
				$info['warning'][] = 'Invalid text encoding byte ('.$frame_textencoding.') in frame "'.$parsedFrame['frame_name'].'" - defaulting to ISO-8859-1 encoding';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1734
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1735
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1736
			$frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1737
			$frame_pricestring = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1738
			$frame_offset = $frame_terminatorpos + strlen("\x00");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1739
			$frame_rawpricearray = explode('/', $frame_pricestring);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1740
			foreach ($frame_rawpricearray as $key => $val) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1741
				$frame_currencyid = substr($val, 0, 3);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1742
				$parsedFrame['price'][$frame_currencyid]['currency'] = $this->LookupCurrencyUnits($frame_currencyid);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1743
				$parsedFrame['price'][$frame_currencyid]['value']    = substr($val, 3);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1744
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1745
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1746
			$frame_datestring = substr($parsedFrame['data'], $frame_offset, 8);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1747
			$frame_offset += 8;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1748
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1749
			$frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1750
			$frame_contacturl = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1751
			$frame_offset = $frame_terminatorpos + strlen("\x00");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1752
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1753
			$frame_receivedasid = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1754
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1755
			$frame_terminatorpos = strpos($parsedFrame['data'], $this->TextEncodingTerminatorLookup($frame_textencoding), $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1756
			if (ord(substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)), 1)) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1757
				$frame_terminatorpos++; // strpos() fooled because 2nd byte of Unicode chars are often 0x00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1758
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1759
			$frame_sellername = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1760
			if (ord($frame_sellername) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1761
				$frame_sellername = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1762
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1763
			$frame_offset = $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1764
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1765
			$frame_terminatorpos = strpos($parsedFrame['data'], $this->TextEncodingTerminatorLookup($frame_textencoding), $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1766
			if (ord(substr($parsedFrame['data'], $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding)), 1)) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1767
				$frame_terminatorpos++; // strpos() fooled because 2nd byte of Unicode chars are often 0x00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1768
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1769
			$frame_description = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1770
			if (ord($frame_description) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1771
				$frame_description = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1772
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1773
			$frame_offset = $frame_terminatorpos + strlen($this->TextEncodingTerminatorLookup($frame_textencoding));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1774
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1775
			$frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1776
			$frame_mimetype = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1777
			$frame_offset = $frame_terminatorpos + strlen("\x00");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1778
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1779
			$frame_sellerlogo = substr($parsedFrame['data'], $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1780
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1781
			$parsedFrame['encodingid']        = $frame_textencoding;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1782
			$parsedFrame['encoding']          = $this->TextEncodingNameLookup($frame_textencoding);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1783
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1784
			$parsedFrame['pricevaliduntil']   = $frame_datestring;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1785
			$parsedFrame['contacturl']        = $frame_contacturl;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1786
			$parsedFrame['receivedasid']      = $frame_receivedasid;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1787
			$parsedFrame['receivedas']        = $this->COMRReceivedAsLookup($frame_receivedasid);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1788
			$parsedFrame['sellername']        = $frame_sellername;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1789
			$parsedFrame['description']       = $frame_description;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1790
			$parsedFrame['mime']              = $frame_mimetype;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1791
			$parsedFrame['logo']              = $frame_sellerlogo;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1792
			unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1793
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1794
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1795
		} elseif (($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'ENCR')) { // 4.25  ENCR Encryption method registration (ID3v2.3+ only)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1796
			//   There may be several 'ENCR' frames in a tag,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1797
			//   but only one containing the same symbol
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1798
			//   and only one containing the same owner identifier
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1799
			// <Header for 'Encryption method registration', ID: 'ENCR'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1800
			// Owner identifier    <text string> $00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1801
			// Method symbol       $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1802
			// Encryption data     <binary data>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1803
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1804
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1805
			$frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1806
			$frame_ownerid = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1807
			if (ord($frame_ownerid) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1808
				$frame_ownerid = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1809
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1810
			$frame_offset = $frame_terminatorpos + strlen("\x00");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1811
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1812
			$parsedFrame['ownerid']      = $frame_ownerid;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1813
			$parsedFrame['methodsymbol'] = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1814
			$parsedFrame['data']         = (string) substr($parsedFrame['data'], $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1815
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1816
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1817
		} elseif (($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'GRID')) { // 4.26  GRID Group identification registration (ID3v2.3+ only)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1818
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1819
			//   There may be several 'GRID' frames in a tag,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1820
			//   but only one containing the same symbol
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1821
			//   and only one containing the same owner identifier
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1822
			// <Header for 'Group ID registration', ID: 'GRID'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1823
			// Owner identifier      <text string> $00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1824
			// Group symbol          $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1825
			// Group dependent data  <binary data>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1826
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1827
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1828
			$frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1829
			$frame_ownerid = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1830
			if (ord($frame_ownerid) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1831
				$frame_ownerid = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1832
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1833
			$frame_offset = $frame_terminatorpos + strlen("\x00");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1834
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1835
			$parsedFrame['ownerid']       = $frame_ownerid;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1836
			$parsedFrame['groupsymbol']   = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1837
			$parsedFrame['data']          = (string) substr($parsedFrame['data'], $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1838
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1839
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1840
		} elseif (($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'PRIV')) { // 4.27  PRIV Private frame (ID3v2.3+ only)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1841
			//   The tag may contain more than one 'PRIV' frame
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1842
			//   but only with different contents
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1843
			// <Header for 'Private frame', ID: 'PRIV'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1844
			// Owner identifier      <text string> $00
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1845
			// The private data      <binary data>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1846
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1847
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1848
			$frame_terminatorpos = strpos($parsedFrame['data'], "\x00", $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1849
			$frame_ownerid = substr($parsedFrame['data'], $frame_offset, $frame_terminatorpos - $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1850
			if (ord($frame_ownerid) === 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1851
				$frame_ownerid = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1852
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1853
			$frame_offset = $frame_terminatorpos + strlen("\x00");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1854
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1855
			$parsedFrame['ownerid'] = $frame_ownerid;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1856
			$parsedFrame['data']    = (string) substr($parsedFrame['data'], $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1857
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1858
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1859
		} elseif (($id3v2_majorversion >= 4) && ($parsedFrame['frame_name'] == 'SIGN')) { // 4.28  SIGN Signature frame (ID3v2.4+ only)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1860
			//   There may be more than one 'signature frame' in a tag,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1861
			//   but no two may be identical
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1862
			// <Header for 'Signature frame', ID: 'SIGN'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1863
			// Group symbol      $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1864
			// Signature         <binary data>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1865
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1866
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1867
			$parsedFrame['groupsymbol'] = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1868
			$parsedFrame['data']        = (string) substr($parsedFrame['data'], $frame_offset);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1869
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1870
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1871
		} elseif (($id3v2_majorversion >= 4) && ($parsedFrame['frame_name'] == 'SEEK')) { // 4.29  SEEK Seek frame (ID3v2.4+ only)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1872
			//   There may only be one 'seek frame' in a tag
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1873
			// <Header for 'Seek frame', ID: 'SEEK'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1874
			// Minimum offset to next tag       $xx xx xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1875
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1876
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1877
			$parsedFrame['data']          = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, 4));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1878
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1879
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1880
		} elseif (($id3v2_majorversion >= 4) && ($parsedFrame['frame_name'] == 'ASPI')) { // 4.30  ASPI Audio seek point index (ID3v2.4+ only)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1881
			//   There may only be one 'audio seek point index' frame in a tag
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1882
			// <Header for 'Seek Point Index', ID: 'ASPI'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1883
			// Indexed data start (S)         $xx xx xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1884
			// Indexed data length (L)        $xx xx xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1885
			// Number of index points (N)     $xx xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1886
			// Bits per index point (b)       $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1887
			//   Then for every index point the following data is included:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1888
			// Fraction at index (Fi)          $xx (xx)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1889
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1890
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1891
			$parsedFrame['datastart'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, 4));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1892
			$frame_offset += 4;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1893
			$parsedFrame['indexeddatalength'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, 4));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1894
			$frame_offset += 4;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1895
			$parsedFrame['indexpoints'] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, 2));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1896
			$frame_offset += 2;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1897
			$parsedFrame['bitsperpoint'] = ord(substr($parsedFrame['data'], $frame_offset++, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1898
			$frame_bytesperpoint = ceil($parsedFrame['bitsperpoint'] / 8);
5
5e2f62d02dcd upgrade wordpress + plugins
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
  1899
			for ($i = 0; $i < $parsedFrame['indexpoints']; $i++) {
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1900
				$parsedFrame['indexes'][$i] = getid3_lib::BigEndian2Int(substr($parsedFrame['data'], $frame_offset, $frame_bytesperpoint));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1901
				$frame_offset += $frame_bytesperpoint;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1902
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1903
			unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1904
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1905
		} elseif (($id3v2_majorversion >= 3) && ($parsedFrame['frame_name'] == 'RGAD')) { // Replay Gain Adjustment
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1906
			// http://privatewww.essex.ac.uk/~djmrob/replaygain/file_format_id3v2.html
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1907
			//   There may only be one 'RGAD' frame in a tag
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1908
			// <Header for 'Replay Gain Adjustment', ID: 'RGAD'>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1909
			// Peak Amplitude                      $xx $xx $xx $xx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1910
			// Radio Replay Gain Adjustment        %aaabbbcd %dddddddd
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1911
			// Audiophile Replay Gain Adjustment   %aaabbbcd %dddddddd
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1912
			//   a - name code
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1913
			//   b - originator code
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1914
			//   c - sign bit
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1915
			//   d - replay gain adjustment
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1916
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1917
			$frame_offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1918
			$parsedFrame['peakamplitude'] = getid3_lib::BigEndian2Float(substr($parsedFrame['data'], $frame_offset, 4));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1919
			$frame_offset += 4;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1920
			$rg_track_adjustment = getid3_lib::Dec2Bin(substr($parsedFrame['data'], $frame_offset, 2));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1921
			$frame_offset += 2;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1922
			$rg_album_adjustment = getid3_lib::Dec2Bin(substr($parsedFrame['data'], $frame_offset, 2));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1923
			$frame_offset += 2;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1924
			$parsedFrame['raw']['track']['name']       = getid3_lib::Bin2Dec(substr($rg_track_adjustment, 0, 3));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1925
			$parsedFrame['raw']['track']['originator'] = getid3_lib::Bin2Dec(substr($rg_track_adjustment, 3, 3));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1926
			$parsedFrame['raw']['track']['signbit']    = getid3_lib::Bin2Dec(substr($rg_track_adjustment, 6, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1927
			$parsedFrame['raw']['track']['adjustment'] = getid3_lib::Bin2Dec(substr($rg_track_adjustment, 7, 9));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1928
			$parsedFrame['raw']['album']['name']       = getid3_lib::Bin2Dec(substr($rg_album_adjustment, 0, 3));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1929
			$parsedFrame['raw']['album']['originator'] = getid3_lib::Bin2Dec(substr($rg_album_adjustment, 3, 3));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1930
			$parsedFrame['raw']['album']['signbit']    = getid3_lib::Bin2Dec(substr($rg_album_adjustment, 6, 1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1931
			$parsedFrame['raw']['album']['adjustment'] = getid3_lib::Bin2Dec(substr($rg_album_adjustment, 7, 9));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1932
			$parsedFrame['track']['name']       = getid3_lib::RGADnameLookup($parsedFrame['raw']['track']['name']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1933
			$parsedFrame['track']['originator'] = getid3_lib::RGADoriginatorLookup($parsedFrame['raw']['track']['originator']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1934
			$parsedFrame['track']['adjustment'] = getid3_lib::RGADadjustmentLookup($parsedFrame['raw']['track']['adjustment'], $parsedFrame['raw']['track']['signbit']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1935
			$parsedFrame['album']['name']       = getid3_lib::RGADnameLookup($parsedFrame['raw']['album']['name']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1936
			$parsedFrame['album']['originator'] = getid3_lib::RGADoriginatorLookup($parsedFrame['raw']['album']['originator']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1937
			$parsedFrame['album']['adjustment'] = getid3_lib::RGADadjustmentLookup($parsedFrame['raw']['album']['adjustment'], $parsedFrame['raw']['album']['signbit']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1938
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1939
			$info['replay_gain']['track']['peak']       = $parsedFrame['peakamplitude'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1940
			$info['replay_gain']['track']['originator'] = $parsedFrame['track']['originator'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1941
			$info['replay_gain']['track']['adjustment'] = $parsedFrame['track']['adjustment'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1942
			$info['replay_gain']['album']['originator'] = $parsedFrame['album']['originator'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1943
			$info['replay_gain']['album']['adjustment'] = $parsedFrame['album']['adjustment'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1944
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1945
			unset($parsedFrame['data']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1946
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1947
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1948
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1949
		return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1950
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1951
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1952
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1953
	public function DeUnsynchronise($data) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1954
		return str_replace("\xFF\x00", "\xFF", $data);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1955
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1956
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1957
	public function LookupExtendedHeaderRestrictionsTagSizeLimits($index) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1958
		static $LookupExtendedHeaderRestrictionsTagSizeLimits = array(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1959
			0x00 => 'No more than 128 frames and 1 MB total tag size',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1960
			0x01 => 'No more than 64 frames and 128 KB total tag size',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1961
			0x02 => 'No more than 32 frames and 40 KB total tag size',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1962
			0x03 => 'No more than 32 frames and 4 KB total tag size',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1963
		);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1964
		return (isset($LookupExtendedHeaderRestrictionsTagSizeLimits[$index]) ? $LookupExtendedHeaderRestrictionsTagSizeLimits[$index] : '');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1965
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1966
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1967
	public function LookupExtendedHeaderRestrictionsTextEncodings($index) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1968
		static $LookupExtendedHeaderRestrictionsTextEncodings = array(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1969
			0x00 => 'No restrictions',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1970
			0x01 => 'Strings are only encoded with ISO-8859-1 or UTF-8',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1971
		);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1972
		return (isset($LookupExtendedHeaderRestrictionsTextEncodings[$index]) ? $LookupExtendedHeaderRestrictionsTextEncodings[$index] : '');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1973
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1974
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1975
	public function LookupExtendedHeaderRestrictionsTextFieldSize($index) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1976
		static $LookupExtendedHeaderRestrictionsTextFieldSize = array(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1977
			0x00 => 'No restrictions',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1978
			0x01 => 'No string is longer than 1024 characters',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1979
			0x02 => 'No string is longer than 128 characters',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1980
			0x03 => 'No string is longer than 30 characters',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1981
		);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1982
		return (isset($LookupExtendedHeaderRestrictionsTextFieldSize[$index]) ? $LookupExtendedHeaderRestrictionsTextFieldSize[$index] : '');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1983
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1984
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1985
	public function LookupExtendedHeaderRestrictionsImageEncoding($index) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1986
		static $LookupExtendedHeaderRestrictionsImageEncoding = array(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1987
			0x00 => 'No restrictions',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1988
			0x01 => 'Images are encoded only with PNG or JPEG',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1989
		);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1990
		return (isset($LookupExtendedHeaderRestrictionsImageEncoding[$index]) ? $LookupExtendedHeaderRestrictionsImageEncoding[$index] : '');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1991
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1992
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1993
	public function LookupExtendedHeaderRestrictionsImageSizeSize($index) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1994
		static $LookupExtendedHeaderRestrictionsImageSizeSize = array(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1995
			0x00 => 'No restrictions',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1996
			0x01 => 'All images are 256x256 pixels or smaller',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1997
			0x02 => 'All images are 64x64 pixels or smaller',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1998
			0x03 => 'All images are exactly 64x64 pixels, unless required otherwise',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1999
		);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2000
		return (isset($LookupExtendedHeaderRestrictionsImageSizeSize[$index]) ? $LookupExtendedHeaderRestrictionsImageSizeSize[$index] : '');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2001
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2002
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2003
	public function LookupCurrencyUnits($currencyid) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2004
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2005
		$begin = __LINE__;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2006
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2007
		/** This is not a comment!
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2008
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2009
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2010
			AED	Dirhams
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2011
			AFA	Afghanis
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2012
			ALL	Leke
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2013
			AMD	Drams
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2014
			ANG	Guilders
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2015
			AOA	Kwanza
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2016
			ARS	Pesos
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2017
			ATS	Schillings
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2018
			AUD	Dollars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2019
			AWG	Guilders
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2020
			AZM	Manats
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2021
			BAM	Convertible Marka
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2022
			BBD	Dollars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2023
			BDT	Taka
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2024
			BEF	Francs
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2025
			BGL	Leva
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2026
			BHD	Dinars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2027
			BIF	Francs
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2028
			BMD	Dollars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2029
			BND	Dollars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2030
			BOB	Bolivianos
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2031
			BRL	Brazil Real
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2032
			BSD	Dollars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2033
			BTN	Ngultrum
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2034
			BWP	Pulas
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2035
			BYR	Rubles
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2036
			BZD	Dollars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2037
			CAD	Dollars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2038
			CDF	Congolese Francs
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2039
			CHF	Francs
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2040
			CLP	Pesos
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2041
			CNY	Yuan Renminbi
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2042
			COP	Pesos
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2043
			CRC	Colones
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2044
			CUP	Pesos
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2045
			CVE	Escudos
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2046
			CYP	Pounds
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2047
			CZK	Koruny
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2048
			DEM	Deutsche Marks
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2049
			DJF	Francs
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2050
			DKK	Kroner
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2051
			DOP	Pesos
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2052
			DZD	Algeria Dinars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2053
			EEK	Krooni
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2054
			EGP	Pounds
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2055
			ERN	Nakfa
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2056
			ESP	Pesetas
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2057
			ETB	Birr
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2058
			EUR	Euro
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2059
			FIM	Markkaa
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2060
			FJD	Dollars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2061
			FKP	Pounds
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2062
			FRF	Francs
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2063
			GBP	Pounds
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2064
			GEL	Lari
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2065
			GGP	Pounds
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2066
			GHC	Cedis
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2067
			GIP	Pounds
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2068
			GMD	Dalasi
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2069
			GNF	Francs
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2070
			GRD	Drachmae
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2071
			GTQ	Quetzales
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2072
			GYD	Dollars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2073
			HKD	Dollars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2074
			HNL	Lempiras
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2075
			HRK	Kuna
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2076
			HTG	Gourdes
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2077
			HUF	Forints
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2078
			IDR	Rupiahs
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2079
			IEP	Pounds
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2080
			ILS	New Shekels
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2081
			IMP	Pounds
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2082
			INR	Rupees
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2083
			IQD	Dinars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2084
			IRR	Rials
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2085
			ISK	Kronur
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2086
			ITL	Lire
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2087
			JEP	Pounds
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2088
			JMD	Dollars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2089
			JOD	Dinars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2090
			JPY	Yen
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2091
			KES	Shillings
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2092
			KGS	Soms
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2093
			KHR	Riels
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2094
			KMF	Francs
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2095
			KPW	Won
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2096
			KWD	Dinars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2097
			KYD	Dollars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2098
			KZT	Tenge
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2099
			LAK	Kips
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2100
			LBP	Pounds
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2101
			LKR	Rupees
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2102
			LRD	Dollars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2103
			LSL	Maloti
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2104
			LTL	Litai
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2105
			LUF	Francs
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2106
			LVL	Lati
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2107
			LYD	Dinars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2108
			MAD	Dirhams
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2109
			MDL	Lei
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2110
			MGF	Malagasy Francs
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2111
			MKD	Denars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2112
			MMK	Kyats
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2113
			MNT	Tugriks
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2114
			MOP	Patacas
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2115
			MRO	Ouguiyas
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2116
			MTL	Liri
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2117
			MUR	Rupees
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2118
			MVR	Rufiyaa
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2119
			MWK	Kwachas
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2120
			MXN	Pesos
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2121
			MYR	Ringgits
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2122
			MZM	Meticais
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2123
			NAD	Dollars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2124
			NGN	Nairas
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2125
			NIO	Gold Cordobas
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2126
			NLG	Guilders
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2127
			NOK	Krone
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2128
			NPR	Nepal Rupees
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2129
			NZD	Dollars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2130
			OMR	Rials
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2131
			PAB	Balboa
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2132
			PEN	Nuevos Soles
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2133
			PGK	Kina
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2134
			PHP	Pesos
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2135
			PKR	Rupees
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2136
			PLN	Zlotych
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2137
			PTE	Escudos
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2138
			PYG	Guarani
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2139
			QAR	Rials
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2140
			ROL	Lei
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2141
			RUR	Rubles
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2142
			RWF	Rwanda Francs
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2143
			SAR	Riyals
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2144
			SBD	Dollars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2145
			SCR	Rupees
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2146
			SDD	Dinars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2147
			SEK	Kronor
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2148
			SGD	Dollars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2149
			SHP	Pounds
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2150
			SIT	Tolars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2151
			SKK	Koruny
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2152
			SLL	Leones
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2153
			SOS	Shillings
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2154
			SPL	Luigini
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2155
			SRG	Guilders
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2156
			STD	Dobras
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2157
			SVC	Colones
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2158
			SYP	Pounds
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2159
			SZL	Emalangeni
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2160
			THB	Baht
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2161
			TJR	Rubles
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2162
			TMM	Manats
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2163
			TND	Dinars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2164
			TOP	Pa'anga
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2165
			TRL	Liras
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2166
			TTD	Dollars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2167
			TVD	Tuvalu Dollars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2168
			TWD	New Dollars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2169
			TZS	Shillings
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2170
			UAH	Hryvnia
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2171
			UGX	Shillings
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2172
			USD	Dollars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2173
			UYU	Pesos
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2174
			UZS	Sums
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2175
			VAL	Lire
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2176
			VEB	Bolivares
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2177
			VND	Dong
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2178
			VUV	Vatu
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2179
			WST	Tala
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2180
			XAF	Francs
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2181
			XAG	Ounces
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2182
			XAU	Ounces
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2183
			XCD	Dollars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2184
			XDR	Special Drawing Rights
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2185
			XPD	Ounces
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2186
			XPF	Francs
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2187
			XPT	Ounces
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2188
			YER	Rials
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2189
			YUM	New Dinars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2190
			ZAR	Rand
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2191
			ZMK	Kwacha
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2192
			ZWD	Zimbabwe Dollars
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2193
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2194
		*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2195
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2196
		return getid3_lib::EmbeddedLookup($currencyid, $begin, __LINE__, __FILE__, 'id3v2-currency-units');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2197
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2198
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2199
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2200
	public function LookupCurrencyCountry($currencyid) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2201
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2202
		$begin = __LINE__;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2203
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2204
		/** This is not a comment!
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2205
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2206
			AED	United Arab Emirates
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2207
			AFA	Afghanistan
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2208
			ALL	Albania
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2209
			AMD	Armenia
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2210
			ANG	Netherlands Antilles
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2211
			AOA	Angola
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2212
			ARS	Argentina
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2213
			ATS	Austria
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2214
			AUD	Australia
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2215
			AWG	Aruba
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2216
			AZM	Azerbaijan
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2217
			BAM	Bosnia and Herzegovina
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2218
			BBD	Barbados
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2219
			BDT	Bangladesh
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2220
			BEF	Belgium
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2221
			BGL	Bulgaria
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2222
			BHD	Bahrain
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2223
			BIF	Burundi
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2224
			BMD	Bermuda
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2225
			BND	Brunei Darussalam
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2226
			BOB	Bolivia
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2227
			BRL	Brazil
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2228
			BSD	Bahamas
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2229
			BTN	Bhutan
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2230
			BWP	Botswana
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2231
			BYR	Belarus
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2232
			BZD	Belize
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2233
			CAD	Canada
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2234
			CDF	Congo/Kinshasa
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2235
			CHF	Switzerland
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2236
			CLP	Chile
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2237
			CNY	China
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2238
			COP	Colombia
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2239
			CRC	Costa Rica
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2240
			CUP	Cuba
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2241
			CVE	Cape Verde
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2242
			CYP	Cyprus
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2243
			CZK	Czech Republic
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2244
			DEM	Germany
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2245
			DJF	Djibouti
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2246
			DKK	Denmark
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2247
			DOP	Dominican Republic
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2248
			DZD	Algeria
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2249
			EEK	Estonia
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2250
			EGP	Egypt
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2251
			ERN	Eritrea
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2252
			ESP	Spain
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2253
			ETB	Ethiopia
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2254
			EUR	Euro Member Countries
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2255
			FIM	Finland
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2256
			FJD	Fiji
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2257
			FKP	Falkland Islands (Malvinas)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2258
			FRF	France
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2259
			GBP	United Kingdom
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2260
			GEL	Georgia
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2261
			GGP	Guernsey
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2262
			GHC	Ghana
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2263
			GIP	Gibraltar
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2264
			GMD	Gambia
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2265
			GNF	Guinea
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2266
			GRD	Greece
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2267
			GTQ	Guatemala
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2268
			GYD	Guyana
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2269
			HKD	Hong Kong
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2270
			HNL	Honduras
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2271
			HRK	Croatia
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2272
			HTG	Haiti
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2273
			HUF	Hungary
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2274
			IDR	Indonesia
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2275
			IEP	Ireland (Eire)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2276
			ILS	Israel
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2277
			IMP	Isle of Man
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2278
			INR	India
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2279
			IQD	Iraq
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2280
			IRR	Iran
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2281
			ISK	Iceland
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2282
			ITL	Italy
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2283
			JEP	Jersey
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2284
			JMD	Jamaica
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2285
			JOD	Jordan
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2286
			JPY	Japan
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2287
			KES	Kenya
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2288
			KGS	Kyrgyzstan
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2289
			KHR	Cambodia
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2290
			KMF	Comoros
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2291
			KPW	Korea
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2292
			KWD	Kuwait
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2293
			KYD	Cayman Islands
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2294
			KZT	Kazakstan
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2295
			LAK	Laos
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2296
			LBP	Lebanon
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2297
			LKR	Sri Lanka
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2298
			LRD	Liberia
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2299
			LSL	Lesotho
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2300
			LTL	Lithuania
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2301
			LUF	Luxembourg
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2302
			LVL	Latvia
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2303
			LYD	Libya
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2304
			MAD	Morocco
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2305
			MDL	Moldova
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2306
			MGF	Madagascar
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2307
			MKD	Macedonia
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2308
			MMK	Myanmar (Burma)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2309
			MNT	Mongolia
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2310
			MOP	Macau
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2311
			MRO	Mauritania
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2312
			MTL	Malta
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2313
			MUR	Mauritius
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2314
			MVR	Maldives (Maldive Islands)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2315
			MWK	Malawi
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2316
			MXN	Mexico
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2317
			MYR	Malaysia
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2318
			MZM	Mozambique
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2319
			NAD	Namibia
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2320
			NGN	Nigeria
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2321
			NIO	Nicaragua
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2322
			NLG	Netherlands (Holland)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2323
			NOK	Norway
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2324
			NPR	Nepal
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2325
			NZD	New Zealand
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2326
			OMR	Oman
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2327
			PAB	Panama
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2328
			PEN	Peru
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2329
			PGK	Papua New Guinea
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2330
			PHP	Philippines
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2331
			PKR	Pakistan
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2332
			PLN	Poland
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2333
			PTE	Portugal
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2334
			PYG	Paraguay
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2335
			QAR	Qatar
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2336
			ROL	Romania
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2337
			RUR	Russia
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2338
			RWF	Rwanda
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2339
			SAR	Saudi Arabia
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2340
			SBD	Solomon Islands
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2341
			SCR	Seychelles
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2342
			SDD	Sudan
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2343
			SEK	Sweden
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2344
			SGD	Singapore
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2345
			SHP	Saint Helena
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2346
			SIT	Slovenia
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2347
			SKK	Slovakia
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2348
			SLL	Sierra Leone
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2349
			SOS	Somalia
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2350
			SPL	Seborga
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2351
			SRG	Suriname
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2352
			STD	São Tome and Principe
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2353
			SVC	El Salvador
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2354
			SYP	Syria
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2355
			SZL	Swaziland
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2356
			THB	Thailand
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2357
			TJR	Tajikistan
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2358
			TMM	Turkmenistan
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2359
			TND	Tunisia
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2360
			TOP	Tonga
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2361
			TRL	Turkey
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2362
			TTD	Trinidad and Tobago
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2363
			TVD	Tuvalu
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2364
			TWD	Taiwan
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2365
			TZS	Tanzania
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2366
			UAH	Ukraine
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2367
			UGX	Uganda
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2368
			USD	United States of America
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2369
			UYU	Uruguay
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2370
			UZS	Uzbekistan
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2371
			VAL	Vatican City
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2372
			VEB	Venezuela
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2373
			VND	Viet Nam
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2374
			VUV	Vanuatu
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2375
			WST	Samoa
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2376
			XAF	Communauté Financière Africaine
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2377
			XAG	Silver
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2378
			XAU	Gold
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2379
			XCD	East Caribbean
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2380
			XDR	International Monetary Fund
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2381
			XPD	Palladium
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2382
			XPF	Comptoirs Français du Pacifique
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2383
			XPT	Platinum
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2384
			YER	Yemen
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2385
			YUM	Yugoslavia
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2386
			ZAR	South Africa
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2387
			ZMK	Zambia
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2388
			ZWD	Zimbabwe
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2389
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2390
		*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2391
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2392
		return getid3_lib::EmbeddedLookup($currencyid, $begin, __LINE__, __FILE__, 'id3v2-currency-country');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2393
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2394
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2395
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2396
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2397
	public static function LanguageLookup($languagecode, $casesensitive=false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2398
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2399
		if (!$casesensitive) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2400
			$languagecode = strtolower($languagecode);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2401
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2402
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2403
		// http://www.id3.org/id3v2.4.0-structure.txt
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2404
		// [4.   ID3v2 frame overview]
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2405
		// The three byte language field, present in several frames, is used to
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2406
		// describe the language of the frame's content, according to ISO-639-2
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2407
		// [ISO-639-2]. The language should be represented in lower case. If the
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2408
		// language is not known the string "XXX" should be used.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2409
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2410
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2411
		// ISO 639-2 - http://www.id3.org/iso639-2.html
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2412
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2413
		$begin = __LINE__;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2414
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2415
		/** This is not a comment!
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2416
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2417
			XXX	unknown
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2418
			xxx	unknown
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2419
			aar	Afar
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2420
			abk	Abkhazian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2421
			ace	Achinese
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2422
			ach	Acoli
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2423
			ada	Adangme
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2424
			afa	Afro-Asiatic (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2425
			afh	Afrihili
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2426
			afr	Afrikaans
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2427
			aka	Akan
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2428
			akk	Akkadian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2429
			alb	Albanian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2430
			ale	Aleut
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2431
			alg	Algonquian Languages
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2432
			amh	Amharic
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2433
			ang	English, Old (ca. 450-1100)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2434
			apa	Apache Languages
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2435
			ara	Arabic
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2436
			arc	Aramaic
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2437
			arm	Armenian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2438
			arn	Araucanian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2439
			arp	Arapaho
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2440
			art	Artificial (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2441
			arw	Arawak
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2442
			asm	Assamese
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2443
			ath	Athapascan Languages
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2444
			ava	Avaric
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2445
			ave	Avestan
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2446
			awa	Awadhi
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2447
			aym	Aymara
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2448
			aze	Azerbaijani
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2449
			bad	Banda
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2450
			bai	Bamileke Languages
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2451
			bak	Bashkir
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2452
			bal	Baluchi
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2453
			bam	Bambara
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2454
			ban	Balinese
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2455
			baq	Basque
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2456
			bas	Basa
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2457
			bat	Baltic (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2458
			bej	Beja
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2459
			bel	Byelorussian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2460
			bem	Bemba
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2461
			ben	Bengali
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2462
			ber	Berber (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2463
			bho	Bhojpuri
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2464
			bih	Bihari
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2465
			bik	Bikol
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2466
			bin	Bini
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2467
			bis	Bislama
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2468
			bla	Siksika
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2469
			bnt	Bantu (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2470
			bod	Tibetan
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2471
			bra	Braj
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2472
			bre	Breton
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2473
			bua	Buriat
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2474
			bug	Buginese
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2475
			bul	Bulgarian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2476
			bur	Burmese
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2477
			cad	Caddo
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2478
			cai	Central American Indian (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2479
			car	Carib
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2480
			cat	Catalan
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2481
			cau	Caucasian (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2482
			ceb	Cebuano
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2483
			cel	Celtic (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2484
			ces	Czech
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2485
			cha	Chamorro
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2486
			chb	Chibcha
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2487
			che	Chechen
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2488
			chg	Chagatai
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2489
			chi	Chinese
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2490
			chm	Mari
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2491
			chn	Chinook jargon
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2492
			cho	Choctaw
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2493
			chr	Cherokee
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2494
			chu	Church Slavic
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2495
			chv	Chuvash
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2496
			chy	Cheyenne
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2497
			cop	Coptic
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2498
			cor	Cornish
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2499
			cos	Corsican
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2500
			cpe	Creoles and Pidgins, English-based (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2501
			cpf	Creoles and Pidgins, French-based (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2502
			cpp	Creoles and Pidgins, Portuguese-based (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2503
			cre	Cree
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2504
			crp	Creoles and Pidgins (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2505
			cus	Cushitic (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2506
			cym	Welsh
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2507
			cze	Czech
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2508
			dak	Dakota
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2509
			dan	Danish
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2510
			del	Delaware
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2511
			deu	German
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2512
			din	Dinka
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2513
			div	Divehi
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2514
			doi	Dogri
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2515
			dra	Dravidian (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2516
			dua	Duala
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2517
			dum	Dutch, Middle (ca. 1050-1350)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2518
			dut	Dutch
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2519
			dyu	Dyula
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2520
			dzo	Dzongkha
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2521
			efi	Efik
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2522
			egy	Egyptian (Ancient)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2523
			eka	Ekajuk
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2524
			ell	Greek, Modern (1453-)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2525
			elx	Elamite
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2526
			eng	English
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2527
			enm	English, Middle (ca. 1100-1500)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2528
			epo	Esperanto
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2529
			esk	Eskimo (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2530
			esl	Spanish
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2531
			est	Estonian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2532
			eus	Basque
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2533
			ewe	Ewe
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2534
			ewo	Ewondo
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2535
			fan	Fang
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2536
			fao	Faroese
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2537
			fas	Persian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2538
			fat	Fanti
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2539
			fij	Fijian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2540
			fin	Finnish
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2541
			fiu	Finno-Ugrian (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2542
			fon	Fon
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2543
			fra	French
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2544
			fre	French
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2545
			frm	French, Middle (ca. 1400-1600)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2546
			fro	French, Old (842- ca. 1400)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2547
			fry	Frisian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2548
			ful	Fulah
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2549
			gaa	Ga
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2550
			gae	Gaelic (Scots)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2551
			gai	Irish
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2552
			gay	Gayo
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2553
			gdh	Gaelic (Scots)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2554
			gem	Germanic (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2555
			geo	Georgian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2556
			ger	German
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2557
			gez	Geez
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2558
			gil	Gilbertese
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2559
			glg	Gallegan
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2560
			gmh	German, Middle High (ca. 1050-1500)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2561
			goh	German, Old High (ca. 750-1050)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2562
			gon	Gondi
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2563
			got	Gothic
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2564
			grb	Grebo
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2565
			grc	Greek, Ancient (to 1453)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2566
			gre	Greek, Modern (1453-)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2567
			grn	Guarani
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2568
			guj	Gujarati
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2569
			hai	Haida
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2570
			hau	Hausa
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2571
			haw	Hawaiian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2572
			heb	Hebrew
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2573
			her	Herero
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2574
			hil	Hiligaynon
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2575
			him	Himachali
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2576
			hin	Hindi
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2577
			hmo	Hiri Motu
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2578
			hun	Hungarian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2579
			hup	Hupa
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2580
			hye	Armenian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2581
			iba	Iban
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2582
			ibo	Igbo
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2583
			ice	Icelandic
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2584
			ijo	Ijo
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2585
			iku	Inuktitut
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2586
			ilo	Iloko
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2587
			ina	Interlingua (International Auxiliary language Association)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2588
			inc	Indic (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2589
			ind	Indonesian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2590
			ine	Indo-European (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2591
			ine	Interlingue
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2592
			ipk	Inupiak
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2593
			ira	Iranian (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2594
			iri	Irish
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2595
			iro	Iroquoian uages
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2596
			isl	Icelandic
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2597
			ita	Italian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2598
			jav	Javanese
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2599
			jaw	Javanese
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2600
			jpn	Japanese
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2601
			jpr	Judeo-Persian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2602
			jrb	Judeo-Arabic
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2603
			kaa	Kara-Kalpak
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2604
			kab	Kabyle
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2605
			kac	Kachin
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2606
			kal	Greenlandic
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2607
			kam	Kamba
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2608
			kan	Kannada
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2609
			kar	Karen
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2610
			kas	Kashmiri
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2611
			kat	Georgian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2612
			kau	Kanuri
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2613
			kaw	Kawi
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2614
			kaz	Kazakh
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2615
			kha	Khasi
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2616
			khi	Khoisan (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2617
			khm	Khmer
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2618
			kho	Khotanese
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2619
			kik	Kikuyu
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2620
			kin	Kinyarwanda
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2621
			kir	Kirghiz
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2622
			kok	Konkani
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2623
			kom	Komi
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2624
			kon	Kongo
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2625
			kor	Korean
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2626
			kpe	Kpelle
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2627
			kro	Kru
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2628
			kru	Kurukh
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2629
			kua	Kuanyama
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2630
			kum	Kumyk
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2631
			kur	Kurdish
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2632
			kus	Kusaie
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2633
			kut	Kutenai
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2634
			lad	Ladino
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2635
			lah	Lahnda
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2636
			lam	Lamba
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2637
			lao	Lao
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2638
			lat	Latin
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2639
			lav	Latvian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2640
			lez	Lezghian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2641
			lin	Lingala
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2642
			lit	Lithuanian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2643
			lol	Mongo
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2644
			loz	Lozi
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2645
			ltz	Letzeburgesch
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2646
			lub	Luba-Katanga
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2647
			lug	Ganda
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2648
			lui	Luiseno
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2649
			lun	Lunda
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2650
			luo	Luo (Kenya and Tanzania)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2651
			mac	Macedonian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2652
			mad	Madurese
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2653
			mag	Magahi
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2654
			mah	Marshall
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2655
			mai	Maithili
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2656
			mak	Macedonian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2657
			mak	Makasar
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2658
			mal	Malayalam
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2659
			man	Mandingo
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2660
			mao	Maori
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2661
			map	Austronesian (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2662
			mar	Marathi
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2663
			mas	Masai
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2664
			max	Manx
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2665
			may	Malay
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2666
			men	Mende
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2667
			mga	Irish, Middle (900 - 1200)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2668
			mic	Micmac
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2669
			min	Minangkabau
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2670
			mis	Miscellaneous (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2671
			mkh	Mon-Kmer (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2672
			mlg	Malagasy
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2673
			mlt	Maltese
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2674
			mni	Manipuri
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2675
			mno	Manobo Languages
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2676
			moh	Mohawk
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2677
			mol	Moldavian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2678
			mon	Mongolian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2679
			mos	Mossi
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2680
			mri	Maori
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2681
			msa	Malay
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2682
			mul	Multiple Languages
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2683
			mun	Munda Languages
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2684
			mus	Creek
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2685
			mwr	Marwari
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2686
			mya	Burmese
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2687
			myn	Mayan Languages
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2688
			nah	Aztec
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2689
			nai	North American Indian (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2690
			nau	Nauru
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2691
			nav	Navajo
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2692
			nbl	Ndebele, South
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2693
			nde	Ndebele, North
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2694
			ndo	Ndongo
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2695
			nep	Nepali
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2696
			new	Newari
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2697
			nic	Niger-Kordofanian (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2698
			niu	Niuean
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2699
			nla	Dutch
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2700
			nno	Norwegian (Nynorsk)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2701
			non	Norse, Old
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2702
			nor	Norwegian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2703
			nso	Sotho, Northern
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2704
			nub	Nubian Languages
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2705
			nya	Nyanja
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2706
			nym	Nyamwezi
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2707
			nyn	Nyankole
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2708
			nyo	Nyoro
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2709
			nzi	Nzima
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2710
			oci	Langue d'Oc (post 1500)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2711
			oji	Ojibwa
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2712
			ori	Oriya
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2713
			orm	Oromo
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2714
			osa	Osage
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2715
			oss	Ossetic
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2716
			ota	Turkish, Ottoman (1500 - 1928)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2717
			oto	Otomian Languages
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2718
			paa	Papuan-Australian (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2719
			pag	Pangasinan
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2720
			pal	Pahlavi
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2721
			pam	Pampanga
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2722
			pan	Panjabi
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2723
			pap	Papiamento
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2724
			pau	Palauan
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2725
			peo	Persian, Old (ca 600 - 400 B.C.)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2726
			per	Persian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2727
			phn	Phoenician
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2728
			pli	Pali
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2729
			pol	Polish
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2730
			pon	Ponape
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2731
			por	Portuguese
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2732
			pra	Prakrit uages
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2733
			pro	Provencal, Old (to 1500)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2734
			pus	Pushto
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2735
			que	Quechua
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2736
			raj	Rajasthani
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2737
			rar	Rarotongan
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2738
			roa	Romance (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2739
			roh	Rhaeto-Romance
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2740
			rom	Romany
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2741
			ron	Romanian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2742
			rum	Romanian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2743
			run	Rundi
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2744
			rus	Russian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2745
			sad	Sandawe
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2746
			sag	Sango
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2747
			sah	Yakut
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2748
			sai	South American Indian (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2749
			sal	Salishan Languages
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2750
			sam	Samaritan Aramaic
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2751
			san	Sanskrit
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2752
			sco	Scots
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2753
			scr	Serbo-Croatian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2754
			sel	Selkup
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2755
			sem	Semitic (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2756
			sga	Irish, Old (to 900)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2757
			shn	Shan
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2758
			sid	Sidamo
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2759
			sin	Singhalese
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2760
			sio	Siouan Languages
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2761
			sit	Sino-Tibetan (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2762
			sla	Slavic (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2763
			slk	Slovak
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2764
			slo	Slovak
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2765
			slv	Slovenian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2766
			smi	Sami Languages
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2767
			smo	Samoan
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2768
			sna	Shona
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2769
			snd	Sindhi
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2770
			sog	Sogdian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2771
			som	Somali
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2772
			son	Songhai
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2773
			sot	Sotho, Southern
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2774
			spa	Spanish
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2775
			sqi	Albanian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2776
			srd	Sardinian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2777
			srr	Serer
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2778
			ssa	Nilo-Saharan (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2779
			ssw	Siswant
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2780
			ssw	Swazi
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2781
			suk	Sukuma
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2782
			sun	Sudanese
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2783
			sus	Susu
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2784
			sux	Sumerian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2785
			sve	Swedish
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2786
			swa	Swahili
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2787
			swe	Swedish
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2788
			syr	Syriac
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2789
			tah	Tahitian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2790
			tam	Tamil
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2791
			tat	Tatar
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2792
			tel	Telugu
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2793
			tem	Timne
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2794
			ter	Tereno
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2795
			tgk	Tajik
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2796
			tgl	Tagalog
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2797
			tha	Thai
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2798
			tib	Tibetan
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2799
			tig	Tigre
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2800
			tir	Tigrinya
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2801
			tiv	Tivi
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2802
			tli	Tlingit
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2803
			tmh	Tamashek
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2804
			tog	Tonga (Nyasa)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2805
			ton	Tonga (Tonga Islands)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2806
			tru	Truk
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2807
			tsi	Tsimshian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2808
			tsn	Tswana
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2809
			tso	Tsonga
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2810
			tuk	Turkmen
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2811
			tum	Tumbuka
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2812
			tur	Turkish
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2813
			tut	Altaic (Other)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2814
			twi	Twi
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2815
			tyv	Tuvinian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2816
			uga	Ugaritic
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2817
			uig	Uighur
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2818
			ukr	Ukrainian
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2819
			umb	Umbundu
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2820
			und	Undetermined
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2821
			urd	Urdu
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2822
			uzb	Uzbek
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2823
			vai	Vai
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2824
			ven	Venda
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2825
			vie	Vietnamese
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2826
			vol	Volapük
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2827
			vot	Votic
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2828
			wak	Wakashan Languages
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2829
			wal	Walamo
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2830
			war	Waray
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2831
			was	Washo
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2832
			wel	Welsh
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2833
			wen	Sorbian Languages
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2834
			wol	Wolof
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2835
			xho	Xhosa
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2836
			yao	Yao
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2837
			yap	Yap
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2838
			yid	Yiddish
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2839
			yor	Yoruba
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2840
			zap	Zapotec
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2841
			zen	Zenaga
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2842
			zha	Zhuang
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2843
			zho	Chinese
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2844
			zul	Zulu
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2845
			zun	Zuni
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2846
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2847
		*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2848
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2849
		return getid3_lib::EmbeddedLookup($languagecode, $begin, __LINE__, __FILE__, 'id3v2-languagecode');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2850
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2851
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2852
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2853
	public static function ETCOEventLookup($index) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2854
		if (($index >= 0x17) && ($index <= 0xDF)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2855
			return 'reserved for future use';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2856
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2857
		if (($index >= 0xE0) && ($index <= 0xEF)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2858
			return 'not predefined synch 0-F';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2859
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2860
		if (($index >= 0xF0) && ($index <= 0xFC)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2861
			return 'reserved for future use';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2862
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2863
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2864
		static $EventLookup = array(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2865
			0x00 => 'padding (has no meaning)',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2866
			0x01 => 'end of initial silence',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2867
			0x02 => 'intro start',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2868
			0x03 => 'main part start',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2869
			0x04 => 'outro start',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2870
			0x05 => 'outro end',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2871
			0x06 => 'verse start',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2872
			0x07 => 'refrain start',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2873
			0x08 => 'interlude start',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2874
			0x09 => 'theme start',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2875
			0x0A => 'variation start',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2876
			0x0B => 'key change',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2877
			0x0C => 'time change',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2878
			0x0D => 'momentary unwanted noise (Snap, Crackle & Pop)',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2879
			0x0E => 'sustained noise',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2880
			0x0F => 'sustained noise end',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2881
			0x10 => 'intro end',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2882
			0x11 => 'main part end',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2883
			0x12 => 'verse end',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2884
			0x13 => 'refrain end',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2885
			0x14 => 'theme end',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2886
			0x15 => 'profanity',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2887
			0x16 => 'profanity end',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2888
			0xFD => 'audio end (start of silence)',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2889
			0xFE => 'audio file ends',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2890
			0xFF => 'one more byte of events follows'
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2891
		);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2892
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2893
		return (isset($EventLookup[$index]) ? $EventLookup[$index] : '');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2894
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2895
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2896
	public static function SYTLContentTypeLookup($index) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2897
		static $SYTLContentTypeLookup = array(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2898
			0x00 => 'other',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2899
			0x01 => 'lyrics',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2900
			0x02 => 'text transcription',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2901
			0x03 => 'movement/part name', // (e.g. 'Adagio')
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2902
			0x04 => 'events',             // (e.g. 'Don Quijote enters the stage')
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2903
			0x05 => 'chord',              // (e.g. 'Bb F Fsus')
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2904
			0x06 => 'trivia/\'pop up\' information',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2905
			0x07 => 'URLs to webpages',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2906
			0x08 => 'URLs to images'
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2907
		);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2908
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2909
		return (isset($SYTLContentTypeLookup[$index]) ? $SYTLContentTypeLookup[$index] : '');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2910
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2911
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2912
	public static function APICPictureTypeLookup($index, $returnarray=false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2913
		static $APICPictureTypeLookup = array(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2914
			0x00 => 'Other',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2915
			0x01 => '32x32 pixels \'file icon\' (PNG only)',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2916
			0x02 => 'Other file icon',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2917
			0x03 => 'Cover (front)',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2918
			0x04 => 'Cover (back)',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2919
			0x05 => 'Leaflet page',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2920
			0x06 => 'Media (e.g. label side of CD)',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2921
			0x07 => 'Lead artist/lead performer/soloist',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2922
			0x08 => 'Artist/performer',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2923
			0x09 => 'Conductor',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2924
			0x0A => 'Band/Orchestra',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2925
			0x0B => 'Composer',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2926
			0x0C => 'Lyricist/text writer',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2927
			0x0D => 'Recording Location',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2928
			0x0E => 'During recording',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2929
			0x0F => 'During performance',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2930
			0x10 => 'Movie/video screen capture',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2931
			0x11 => 'A bright coloured fish',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2932
			0x12 => 'Illustration',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2933
			0x13 => 'Band/artist logotype',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2934
			0x14 => 'Publisher/Studio logotype'
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2935
		);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2936
		if ($returnarray) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2937
			return $APICPictureTypeLookup;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2938
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2939
		return (isset($APICPictureTypeLookup[$index]) ? $APICPictureTypeLookup[$index] : '');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2940
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2941
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2942
	public static function COMRReceivedAsLookup($index) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2943
		static $COMRReceivedAsLookup = array(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2944
			0x00 => 'Other',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2945
			0x01 => 'Standard CD album with other songs',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2946
			0x02 => 'Compressed audio on CD',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2947
			0x03 => 'File over the Internet',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2948
			0x04 => 'Stream over the Internet',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2949
			0x05 => 'As note sheets',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2950
			0x06 => 'As note sheets in a book with other sheets',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2951
			0x07 => 'Music on other media',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2952
			0x08 => 'Non-musical merchandise'
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2953
		);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2954
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2955
		return (isset($COMRReceivedAsLookup[$index]) ? $COMRReceivedAsLookup[$index] : '');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2956
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2957
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2958
	public static function RVA2ChannelTypeLookup($index) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2959
		static $RVA2ChannelTypeLookup = array(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2960
			0x00 => 'Other',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2961
			0x01 => 'Master volume',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2962
			0x02 => 'Front right',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2963
			0x03 => 'Front left',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2964
			0x04 => 'Back right',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2965
			0x05 => 'Back left',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2966
			0x06 => 'Front centre',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2967
			0x07 => 'Back centre',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2968
			0x08 => 'Subwoofer'
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2969
		);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2970
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2971
		return (isset($RVA2ChannelTypeLookup[$index]) ? $RVA2ChannelTypeLookup[$index] : '');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2972
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2973
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2974
	public static function FrameNameLongLookup($framename) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2975
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2976
		$begin = __LINE__;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2977
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2978
		/** This is not a comment!
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2979
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2980
			AENC	Audio encryption
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2981
			APIC	Attached picture
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2982
			ASPI	Audio seek point index
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2983
			BUF	Recommended buffer size
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2984
			CNT	Play counter
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2985
			COM	Comments
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2986
			COMM	Comments
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2987
			COMR	Commercial frame
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2988
			CRA	Audio encryption
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2989
			CRM	Encrypted meta frame
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2990
			ENCR	Encryption method registration
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2991
			EQU	Equalisation
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2992
			EQU2	Equalisation (2)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2993
			EQUA	Equalisation
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2994
			ETC	Event timing codes
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2995
			ETCO	Event timing codes
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2996
			GEO	General encapsulated object
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2997
			GEOB	General encapsulated object
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2998
			GRID	Group identification registration
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  2999
			IPL	Involved people list
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3000
			IPLS	Involved people list
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3001
			LINK	Linked information
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3002
			LNK	Linked information
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3003
			MCDI	Music CD identifier
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3004
			MCI	Music CD Identifier
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3005
			MLL	MPEG location lookup table
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3006
			MLLT	MPEG location lookup table
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3007
			OWNE	Ownership frame
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3008
			PCNT	Play counter
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3009
			PIC	Attached picture
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3010
			POP	Popularimeter
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3011
			POPM	Popularimeter
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3012
			POSS	Position synchronisation frame
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3013
			PRIV	Private frame
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3014
			RBUF	Recommended buffer size
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3015
			REV	Reverb
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3016
			RVA	Relative volume adjustment
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3017
			RVA2	Relative volume adjustment (2)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3018
			RVAD	Relative volume adjustment
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3019
			RVRB	Reverb
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3020
			SEEK	Seek frame
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3021
			SIGN	Signature frame
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3022
			SLT	Synchronised lyric/text
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3023
			STC	Synced tempo codes
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3024
			SYLT	Synchronised lyric/text
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3025
			SYTC	Synchronised tempo codes
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3026
			TAL	Album/Movie/Show title
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3027
			TALB	Album/Movie/Show title
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3028
			TBP	BPM (Beats Per Minute)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3029
			TBPM	BPM (beats per minute)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3030
			TCM	Composer
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3031
			TCMP	Part of a compilation
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3032
			TCO	Content type
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3033
			TCOM	Composer
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3034
			TCON	Content type
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3035
			TCOP	Copyright message
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3036
			TCP	Part of a compilation
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3037
			TCR	Copyright message
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3038
			TDA	Date
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3039
			TDAT	Date
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3040
			TDEN	Encoding time
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3041
			TDLY	Playlist delay
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3042
			TDOR	Original release time
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3043
			TDRC	Recording time
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3044
			TDRL	Release time
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3045
			TDTG	Tagging time
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3046
			TDY	Playlist delay
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3047
			TEN	Encoded by
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3048
			TENC	Encoded by
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3049
			TEXT	Lyricist/Text writer
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3050
			TFLT	File type
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3051
			TFT	File type
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3052
			TIM	Time
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3053
			TIME	Time
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3054
			TIPL	Involved people list
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3055
			TIT1	Content group description
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3056
			TIT2	Title/songname/content description
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3057
			TIT3	Subtitle/Description refinement
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3058
			TKE	Initial key
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3059
			TKEY	Initial key
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3060
			TLA	Language(s)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3061
			TLAN	Language(s)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3062
			TLE	Length
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3063
			TLEN	Length
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3064
			TMCL	Musician credits list
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3065
			TMED	Media type
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3066
			TMOO	Mood
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3067
			TMT	Media type
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3068
			TOA	Original artist(s)/performer(s)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3069
			TOAL	Original album/movie/show title
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3070
			TOF	Original filename
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3071
			TOFN	Original filename
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3072
			TOL	Original Lyricist(s)/text writer(s)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3073
			TOLY	Original lyricist(s)/text writer(s)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3074
			TOPE	Original artist(s)/performer(s)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3075
			TOR	Original release year
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3076
			TORY	Original release year
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3077
			TOT	Original album/Movie/Show title
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3078
			TOWN	File owner/licensee
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3079
			TP1	Lead artist(s)/Lead performer(s)/Soloist(s)/Performing group
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3080
			TP2	Band/Orchestra/Accompaniment
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3081
			TP3	Conductor/Performer refinement
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3082
			TP4	Interpreted, remixed, or otherwise modified by
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3083
			TPA	Part of a set
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3084
			TPB	Publisher
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3085
			TPE1	Lead performer(s)/Soloist(s)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3086
			TPE2	Band/orchestra/accompaniment
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3087
			TPE3	Conductor/performer refinement
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3088
			TPE4	Interpreted, remixed, or otherwise modified by
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3089
			TPOS	Part of a set
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3090
			TPRO	Produced notice
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3091
			TPUB	Publisher
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3092
			TRC	ISRC (International Standard Recording Code)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3093
			TRCK	Track number/Position in set
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3094
			TRD	Recording dates
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3095
			TRDA	Recording dates
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3096
			TRK	Track number/Position in set
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3097
			TRSN	Internet radio station name
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3098
			TRSO	Internet radio station owner
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3099
			TS2	Album-Artist sort order
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3100
			TSA	Album sort order
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3101
			TSC	Composer sort order
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3102
			TSI	Size
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3103
			TSIZ	Size
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3104
			TSO2	Album-Artist sort order
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3105
			TSOA	Album sort order
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3106
			TSOC	Composer sort order
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3107
			TSOP	Performer sort order
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3108
			TSOT	Title sort order
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3109
			TSP	Performer sort order
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3110
			TSRC	ISRC (international standard recording code)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3111
			TSS	Software/hardware and settings used for encoding
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3112
			TSSE	Software/Hardware and settings used for encoding
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3113
			TSST	Set subtitle
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3114
			TST	Title sort order
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3115
			TT1	Content group description
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3116
			TT2	Title/Songname/Content description
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3117
			TT3	Subtitle/Description refinement
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3118
			TXT	Lyricist/text writer
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3119
			TXX	User defined text information frame
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3120
			TXXX	User defined text information frame
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3121
			TYE	Year
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3122
			TYER	Year
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3123
			UFI	Unique file identifier
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3124
			UFID	Unique file identifier
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3125
			ULT	Unsychronised lyric/text transcription
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3126
			USER	Terms of use
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3127
			USLT	Unsynchronised lyric/text transcription
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3128
			WAF	Official audio file webpage
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3129
			WAR	Official artist/performer webpage
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3130
			WAS	Official audio source webpage
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3131
			WCM	Commercial information
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3132
			WCOM	Commercial information
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3133
			WCOP	Copyright/Legal information
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3134
			WCP	Copyright/Legal information
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3135
			WOAF	Official audio file webpage
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3136
			WOAR	Official artist/performer webpage
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3137
			WOAS	Official audio source webpage
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3138
			WORS	Official Internet radio station homepage
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3139
			WPAY	Payment
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3140
			WPB	Publishers official webpage
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3141
			WPUB	Publishers official webpage
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3142
			WXX	User defined URL link frame
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3143
			WXXX	User defined URL link frame
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3144
			TFEA	Featured Artist
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3145
			TSTU	Recording Studio
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3146
			rgad	Replay Gain Adjustment
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3147
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3148
		*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3149
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3150
		return getid3_lib::EmbeddedLookup($framename, $begin, __LINE__, __FILE__, 'id3v2-framename_long');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3151
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3152
		// Last three:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3153
		// from Helium2 [www.helium2.com]
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3154
		// from http://privatewww.essex.ac.uk/~djmrob/replaygain/file_format_id3v2.html
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3155
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3156
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3157
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3158
	public static function FrameNameShortLookup($framename) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3159
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3160
		$begin = __LINE__;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3161
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3162
		/** This is not a comment!
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3163
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3164
			AENC	audio_encryption
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3165
			APIC	attached_picture
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3166
			ASPI	audio_seek_point_index
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3167
			BUF	recommended_buffer_size
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3168
			CNT	play_counter
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3169
			COM	comment
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3170
			COMM	comment
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3171
			COMR	commercial_frame
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3172
			CRA	audio_encryption
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3173
			CRM	encrypted_meta_frame
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3174
			ENCR	encryption_method_registration
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3175
			EQU	equalisation
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3176
			EQU2	equalisation
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3177
			EQUA	equalisation
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3178
			ETC	event_timing_codes
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3179
			ETCO	event_timing_codes
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3180
			GEO	general_encapsulated_object
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3181
			GEOB	general_encapsulated_object
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3182
			GRID	group_identification_registration
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3183
			IPL	involved_people_list
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3184
			IPLS	involved_people_list
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3185
			LINK	linked_information
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3186
			LNK	linked_information
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3187
			MCDI	music_cd_identifier
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3188
			MCI	music_cd_identifier
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3189
			MLL	mpeg_location_lookup_table
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3190
			MLLT	mpeg_location_lookup_table
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3191
			OWNE	ownership_frame
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3192
			PCNT	play_counter
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3193
			PIC	attached_picture
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3194
			POP	popularimeter
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3195
			POPM	popularimeter
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3196
			POSS	position_synchronisation_frame
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3197
			PRIV	private_frame
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3198
			RBUF	recommended_buffer_size
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3199
			REV	reverb
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3200
			RVA	relative_volume_adjustment
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3201
			RVA2	relative_volume_adjustment
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3202
			RVAD	relative_volume_adjustment
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3203
			RVRB	reverb
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3204
			SEEK	seek_frame
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3205
			SIGN	signature_frame
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3206
			SLT	synchronised_lyric
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3207
			STC	synced_tempo_codes
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3208
			SYLT	synchronised_lyric
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3209
			SYTC	synchronised_tempo_codes
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3210
			TAL	album
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3211
			TALB	album
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3212
			TBP	bpm
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3213
			TBPM	bpm
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3214
			TCM	composer
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3215
			TCMP	part_of_a_compilation
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3216
			TCO	genre
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3217
			TCOM	composer
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3218
			TCON	genre
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3219
			TCOP	copyright_message
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3220
			TCP	part_of_a_compilation
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3221
			TCR	copyright_message
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3222
			TDA	date
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3223
			TDAT	date
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3224
			TDEN	encoding_time
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3225
			TDLY	playlist_delay
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3226
			TDOR	original_release_time
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3227
			TDRC	recording_time
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3228
			TDRL	release_time
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3229
			TDTG	tagging_time
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3230
			TDY	playlist_delay
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3231
			TEN	encoded_by
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3232
			TENC	encoded_by
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3233
			TEXT	lyricist
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3234
			TFLT	file_type
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3235
			TFT	file_type
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3236
			TIM	time
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3237
			TIME	time
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3238
			TIPL	involved_people_list
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3239
			TIT1	content_group_description
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3240
			TIT2	title
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3241
			TIT3	subtitle
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3242
			TKE	initial_key
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3243
			TKEY	initial_key
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3244
			TLA	language
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3245
			TLAN	language
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3246
			TLE	length
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3247
			TLEN	length
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3248
			TMCL	musician_credits_list
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3249
			TMED	media_type
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3250
			TMOO	mood
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3251
			TMT	media_type
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3252
			TOA	original_artist
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3253
			TOAL	original_album
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3254
			TOF	original_filename
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3255
			TOFN	original_filename
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3256
			TOL	original_lyricist
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3257
			TOLY	original_lyricist
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3258
			TOPE	original_artist
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3259
			TOR	original_year
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3260
			TORY	original_year
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3261
			TOT	original_album
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3262
			TOWN	file_owner
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3263
			TP1	artist
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3264
			TP2	band
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3265
			TP3	conductor
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3266
			TP4	remixer
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3267
			TPA	part_of_a_set
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3268
			TPB	publisher
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3269
			TPE1	artist
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3270
			TPE2	band
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3271
			TPE3	conductor
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3272
			TPE4	remixer
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3273
			TPOS	part_of_a_set
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3274
			TPRO	produced_notice
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3275
			TPUB	publisher
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3276
			TRC	isrc
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3277
			TRCK	track_number
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3278
			TRD	recording_dates
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3279
			TRDA	recording_dates
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3280
			TRK	track_number
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3281
			TRSN	internet_radio_station_name
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3282
			TRSO	internet_radio_station_owner
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3283
			TS2	album_artist_sort_order
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3284
			TSA	album_sort_order
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3285
			TSC	composer_sort_order
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3286
			TSI	size
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3287
			TSIZ	size
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3288
			TSO2	album_artist_sort_order
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3289
			TSOA	album_sort_order
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3290
			TSOC	composer_sort_order
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3291
			TSOP	performer_sort_order
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3292
			TSOT	title_sort_order
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3293
			TSP	performer_sort_order
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3294
			TSRC	isrc
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3295
			TSS	encoder_settings
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3296
			TSSE	encoder_settings
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3297
			TSST	set_subtitle
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3298
			TST	title_sort_order
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3299
			TT1	content_group_description
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3300
			TT2	title
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3301
			TT3	subtitle
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3302
			TXT	lyricist
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3303
			TXX	text
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3304
			TXXX	text
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3305
			TYE	year
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3306
			TYER	year
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3307
			UFI	unique_file_identifier
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3308
			UFID	unique_file_identifier
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3309
			ULT	unsychronised_lyric
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3310
			USER	terms_of_use
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3311
			USLT	unsynchronised_lyric
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3312
			WAF	url_file
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3313
			WAR	url_artist
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3314
			WAS	url_source
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3315
			WCM	commercial_information
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3316
			WCOM	commercial_information
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3317
			WCOP	copyright
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3318
			WCP	copyright
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3319
			WOAF	url_file
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3320
			WOAR	url_artist
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3321
			WOAS	url_source
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3322
			WORS	url_station
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3323
			WPAY	url_payment
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3324
			WPB	url_publisher
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3325
			WPUB	url_publisher
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3326
			WXX	url_user
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3327
			WXXX	url_user
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3328
			TFEA	featured_artist
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3329
			TSTU	recording_studio
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3330
			rgad	replay_gain_adjustment
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3331
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3332
		*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3333
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3334
		return getid3_lib::EmbeddedLookup($framename, $begin, __LINE__, __FILE__, 'id3v2-framename_short');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3335
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3336
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3337
	public static function TextEncodingTerminatorLookup($encoding) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3338
		// http://www.id3.org/id3v2.4.0-structure.txt
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3339
		// Frames that allow different types of text encoding contains a text encoding description byte. Possible encodings:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3340
		static $TextEncodingTerminatorLookup = array(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3341
			0   => "\x00",     // $00  ISO-8859-1. Terminated with $00.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3342
			1   => "\x00\x00", // $01  UTF-16 encoded Unicode with BOM. All strings in the same frame SHALL have the same byteorder. Terminated with $00 00.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3343
			2   => "\x00\x00", // $02  UTF-16BE encoded Unicode without BOM. Terminated with $00 00.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3344
			3   => "\x00",     // $03  UTF-8 encoded Unicode. Terminated with $00.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3345
			255 => "\x00\x00"
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3346
		);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3347
		return (isset($TextEncodingTerminatorLookup[$encoding]) ? $TextEncodingTerminatorLookup[$encoding] : '');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3348
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3349
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3350
	public static function TextEncodingNameLookup($encoding) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3351
		// http://www.id3.org/id3v2.4.0-structure.txt
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3352
		// Frames that allow different types of text encoding contains a text encoding description byte. Possible encodings:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3353
		static $TextEncodingNameLookup = array(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3354
			0   => 'ISO-8859-1', // $00  ISO-8859-1. Terminated with $00.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3355
			1   => 'UTF-16',     // $01  UTF-16 encoded Unicode with BOM. All strings in the same frame SHALL have the same byteorder. Terminated with $00 00.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3356
			2   => 'UTF-16BE',   // $02  UTF-16BE encoded Unicode without BOM. Terminated with $00 00.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3357
			3   => 'UTF-8',      // $03  UTF-8 encoded Unicode. Terminated with $00.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3358
			255 => 'UTF-16BE'
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3359
		);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3360
		return (isset($TextEncodingNameLookup[$encoding]) ? $TextEncodingNameLookup[$encoding] : 'ISO-8859-1');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3361
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3362
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3363
	public static function IsValidID3v2FrameName($framename, $id3v2majorversion) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3364
		switch ($id3v2majorversion) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3365
			case 2:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3366
				return preg_match('#[A-Z][A-Z0-9]{2}#', $framename);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3367
				break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3368
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3369
			case 3:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3370
			case 4:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3371
				return preg_match('#[A-Z][A-Z0-9]{3}#', $framename);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3372
				break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3373
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3374
		return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3375
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3376
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3377
	public static function IsANumber($numberstring, $allowdecimal=false, $allownegative=false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3378
		for ($i = 0; $i < strlen($numberstring); $i++) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3379
			if ((chr($numberstring{$i}) < chr('0')) || (chr($numberstring{$i}) > chr('9'))) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3380
				if (($numberstring{$i} == '.') && $allowdecimal) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3381
					// allowed
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3382
				} elseif (($numberstring{$i} == '-') && $allownegative && ($i == 0)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3383
					// allowed
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3384
				} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3385
					return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3386
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3387
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3388
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3389
		return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3390
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3391
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3392
	public static function IsValidDateStampString($datestamp) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3393
		if (strlen($datestamp) != 8) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3394
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3395
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3396
		if (!self::IsANumber($datestamp, false)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3397
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3398
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3399
		$year  = substr($datestamp, 0, 4);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3400
		$month = substr($datestamp, 4, 2);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3401
		$day   = substr($datestamp, 6, 2);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3402
		if (($year == 0) || ($month == 0) || ($day == 0)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3403
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3404
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3405
		if ($month > 12) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3406
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3407
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3408
		if ($day > 31) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3409
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3410
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3411
		if (($day > 30) && (($month == 4) || ($month == 6) || ($month == 9) || ($month == 11))) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3412
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3413
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3414
		if (($day > 29) && ($month == 2)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3415
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3416
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3417
		return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3418
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3419
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3420
	public static function ID3v2HeaderLength($majorversion) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3421
		return (($majorversion == 2) ? 6 : 10);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3422
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3423
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  3424
}