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