wp/wp-includes/ID3/module.tag.id3v1.php
author ymh <ymh.work@gmail.com>
Tue, 27 Sep 2022 16:37:53 +0200
changeset 19 3d72ae0968f4
parent 16 a86126ab1dd4
child 21 48c4eec2b7e6
permissions -rw-r--r--
upgrade wordpress to 6.0.2
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     1
<?php
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
     2
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     3
/////////////////////////////////////////////////////////////////
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     4
/// getID3() by James Heinrich <info@getid3.org>               //
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
     5
//  available at https://github.com/JamesHeinrich/getID3       //
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
     6
//            or https://www.getid3.org                        //
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
     7
//            or http://getid3.sourceforge.net                 //
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
     8
//  see readme.txt for more details                            //
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     9
/////////////////////////////////////////////////////////////////
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    10
//                                                             //
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    11
// module.tag.id3v1.php                                        //
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    12
// module for analyzing ID3v1 tags                             //
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    13
// dependencies: NONE                                          //
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
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    17
if (!defined('GETID3_INCLUDEPATH')) { // prevent path-exposing attacks that access modules directly on public webservers
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    18
	exit;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    19
}
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    20
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    21
class getid3_id3v1 extends getid3_handler
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    22
{
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    23
	/**
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    24
	 * @return bool
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    25
	 */
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    26
	public function Analyze() {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    27
		$info = &$this->getid3->info;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    28
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    29
		if (!getid3_lib::intValueSupported($info['filesize'])) {
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
    30
			$this->warning('Unable to check for ID3v1 because file is larger than '.round(PHP_INT_MAX / 1073741824).'GB');
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    31
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    32
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    33
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
    34
		if($info['filesize'] < 256) {
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
    35
			$this->fseek(-128, SEEK_END);
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
    36
			$preid3v1 = '';
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
    37
			$id3v1tag = $this->fread(128);
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
    38
		} else {
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
    39
			$this->fseek(-256, SEEK_END);
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
    40
			$preid3v1 = $this->fread(128);
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
    41
			$id3v1tag = $this->fread(128);
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
    42
		}
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
    43
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    44
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    45
		if (substr($id3v1tag, 0, 3) == 'TAG') {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    46
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    47
			$info['avdataend'] = $info['filesize'] - 128;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    48
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
    49
			$ParsedID3v1            = array();
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    50
			$ParsedID3v1['title']   = $this->cutfield(substr($id3v1tag,   3, 30));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    51
			$ParsedID3v1['artist']  = $this->cutfield(substr($id3v1tag,  33, 30));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    52
			$ParsedID3v1['album']   = $this->cutfield(substr($id3v1tag,  63, 30));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    53
			$ParsedID3v1['year']    = $this->cutfield(substr($id3v1tag,  93,  4));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    54
			$ParsedID3v1['comment'] =                 substr($id3v1tag,  97, 30);  // can't remove nulls yet, track detection depends on them
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    55
			$ParsedID3v1['genreid'] =             ord(substr($id3v1tag, 127,  1));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    56
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    57
			// If second-last byte of comment field is null and last byte of comment field is non-null
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    58
			// then this is ID3v1.1 and the comment field is 28 bytes long and the 30th byte is the track number
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    59
			if (($id3v1tag[125] === "\x00") && ($id3v1tag[126] !== "\x00")) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    60
				$ParsedID3v1['track_number'] = ord(substr($ParsedID3v1['comment'], 29,  1));
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    61
				$ParsedID3v1['comment']      =     substr($ParsedID3v1['comment'],  0, 28);
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    62
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    63
			$ParsedID3v1['comment'] = $this->cutfield($ParsedID3v1['comment']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    64
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    65
			$ParsedID3v1['genre'] = $this->LookupGenreName($ParsedID3v1['genreid']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    66
			if (!empty($ParsedID3v1['genre'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    67
				unset($ParsedID3v1['genreid']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    68
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    69
			if (isset($ParsedID3v1['genre']) && (empty($ParsedID3v1['genre']) || ($ParsedID3v1['genre'] == 'Unknown'))) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    70
				unset($ParsedID3v1['genre']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    71
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    72
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    73
			foreach ($ParsedID3v1 as $key => $value) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    74
				$ParsedID3v1['comments'][$key][0] = $value;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    75
			}
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    76
			$ID3v1encoding = $this->getid3->encoding_id3v1;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    77
			if ($this->getid3->encoding_id3v1_autodetect) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    78
				// ID3v1 encoding detection hack START
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    79
				// ID3v1 is defined as always using ISO-8859-1 encoding, but it is not uncommon to find files tagged with ID3v1 using Windows-1251 or other character sets
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    80
				// Since ID3v1 has no concept of character sets there is no certain way to know we have the correct non-ISO-8859-1 character set, but we can guess
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    81
				foreach ($ParsedID3v1['comments'] as $tag_key => $valuearray) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    82
					foreach ($valuearray as $key => $value) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    83
						if (preg_match('#^[\\x00-\\x40\\x80-\\xFF]+$#', $value) && !ctype_digit((string) $value)) { // check for strings with only characters above chr(128) and punctuation/numbers, but not just numeric strings (e.g. track numbers or years)
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    84
							foreach (array('Windows-1251', 'KOI8-R') as $id3v1_bad_encoding) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    85
								if (function_exists('mb_convert_encoding') && @mb_convert_encoding($value, $id3v1_bad_encoding, $id3v1_bad_encoding) === $value) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    86
									$ID3v1encoding = $id3v1_bad_encoding;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    87
									$this->warning('ID3v1 detected as '.$id3v1_bad_encoding.' text encoding in '.$tag_key);
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    88
									break 3;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    89
								} elseif (function_exists('iconv') && @iconv($id3v1_bad_encoding, $id3v1_bad_encoding, $value) === $value) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    90
									$ID3v1encoding = $id3v1_bad_encoding;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    91
									$this->warning('ID3v1 detected as '.$id3v1_bad_encoding.' text encoding in '.$tag_key);
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    92
									break 3;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    93
								}
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
    94
							}
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
    95
						}
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
    96
					}
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
    97
				}
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    98
				// ID3v1 encoding detection hack END
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
    99
			}
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   100
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   101
			// ID3v1 data is supposed to be padded with NULL characters, but some taggers pad with spaces
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   102
			$GoodFormatID3v1tag = $this->GenerateID3v1Tag(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   103
											$ParsedID3v1['title'],
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   104
											$ParsedID3v1['artist'],
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   105
											$ParsedID3v1['album'],
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   106
											$ParsedID3v1['year'],
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   107
											(isset($ParsedID3v1['genre']) ? $this->LookupGenreID($ParsedID3v1['genre']) : false),
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   108
											$ParsedID3v1['comment'],
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   109
											(!empty($ParsedID3v1['track_number']) ? $ParsedID3v1['track_number'] : ''));
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   110
			$ParsedID3v1['padding_valid'] = true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   111
			if ($id3v1tag !== $GoodFormatID3v1tag) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   112
				$ParsedID3v1['padding_valid'] = false;
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   113
				$this->warning('Some ID3v1 fields do not use NULL characters for padding');
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   114
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   115
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   116
			$ParsedID3v1['tag_offset_end']   = $info['filesize'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   117
			$ParsedID3v1['tag_offset_start'] = $ParsedID3v1['tag_offset_end'] - 128;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   118
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   119
			$info['id3v1'] = $ParsedID3v1;
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   120
			$info['id3v1']['encoding'] = $ID3v1encoding;
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   121
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   122
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   123
		if (substr($preid3v1, 0, 3) == 'TAG') {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   124
			// The way iTunes handles tags is, well, brain-damaged.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   125
			// It completely ignores v1 if ID3v2 is present.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   126
			// This goes as far as adding a new v1 tag *even if there already is one*
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   127
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   128
			// A suspected double-ID3v1 tag has been detected, but it could be that
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   129
			// the "TAG" identifier is a legitimate part of an APE or Lyrics3 tag
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   130
			if (substr($preid3v1, 96, 8) == 'APETAGEX') {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   131
				// an APE tag footer was found before the last ID3v1, assume false "TAG" synch
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   132
			} elseif (substr($preid3v1, 119, 6) == 'LYRICS') {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   133
				// a Lyrics3 tag footer was found before the last ID3v1, assume false "TAG" synch
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   134
			} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   135
				// APE and Lyrics3 footers not found - assume double ID3v1
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   136
				$this->warning('Duplicate ID3v1 tag detected - this has been known to happen with iTunes');
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   137
				$info['avdataend'] -= 128;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   138
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   139
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   140
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   141
		return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   142
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   143
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   144
	/**
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   145
	 * @param string $str
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   146
	 *
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   147
	 * @return string
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   148
	 */
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   149
	public static function cutfield($str) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   150
		return trim(substr($str, 0, strcspn($str, "\x00")));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   151
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   152
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   153
	/**
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   154
	 * @param bool $allowSCMPXextended
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   155
	 *
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   156
	 * @return string[]
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   157
	 */
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   158
	public static function ArrayOfGenres($allowSCMPXextended=false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   159
		static $GenreLookup = array(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   160
			0    => 'Blues',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   161
			1    => 'Classic Rock',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   162
			2    => 'Country',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   163
			3    => 'Dance',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   164
			4    => 'Disco',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   165
			5    => 'Funk',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   166
			6    => 'Grunge',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   167
			7    => 'Hip-Hop',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   168
			8    => 'Jazz',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   169
			9    => 'Metal',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   170
			10   => 'New Age',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   171
			11   => 'Oldies',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   172
			12   => 'Other',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   173
			13   => 'Pop',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   174
			14   => 'R&B',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   175
			15   => 'Rap',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   176
			16   => 'Reggae',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   177
			17   => 'Rock',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   178
			18   => 'Techno',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   179
			19   => 'Industrial',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   180
			20   => 'Alternative',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   181
			21   => 'Ska',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   182
			22   => 'Death Metal',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   183
			23   => 'Pranks',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   184
			24   => 'Soundtrack',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   185
			25   => 'Euro-Techno',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   186
			26   => 'Ambient',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   187
			27   => 'Trip-Hop',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   188
			28   => 'Vocal',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   189
			29   => 'Jazz+Funk',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   190
			30   => 'Fusion',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   191
			31   => 'Trance',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   192
			32   => 'Classical',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   193
			33   => 'Instrumental',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   194
			34   => 'Acid',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   195
			35   => 'House',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   196
			36   => 'Game',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   197
			37   => 'Sound Clip',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   198
			38   => 'Gospel',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   199
			39   => 'Noise',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   200
			40   => 'Alt. Rock',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   201
			41   => 'Bass',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   202
			42   => 'Soul',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   203
			43   => 'Punk',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   204
			44   => 'Space',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   205
			45   => 'Meditative',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   206
			46   => 'Instrumental Pop',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   207
			47   => 'Instrumental Rock',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   208
			48   => 'Ethnic',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   209
			49   => 'Gothic',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   210
			50   => 'Darkwave',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   211
			51   => 'Techno-Industrial',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   212
			52   => 'Electronic',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   213
			53   => 'Pop-Folk',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   214
			54   => 'Eurodance',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   215
			55   => 'Dream',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   216
			56   => 'Southern Rock',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   217
			57   => 'Comedy',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   218
			58   => 'Cult',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   219
			59   => 'Gangsta Rap',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   220
			60   => 'Top 40',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   221
			61   => 'Christian Rap',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   222
			62   => 'Pop/Funk',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   223
			63   => 'Jungle',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   224
			64   => 'Native American',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   225
			65   => 'Cabaret',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   226
			66   => 'New Wave',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   227
			67   => 'Psychedelic',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   228
			68   => 'Rave',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   229
			69   => 'Showtunes',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   230
			70   => 'Trailer',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   231
			71   => 'Lo-Fi',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   232
			72   => 'Tribal',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   233
			73   => 'Acid Punk',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   234
			74   => 'Acid Jazz',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   235
			75   => 'Polka',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   236
			76   => 'Retro',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   237
			77   => 'Musical',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   238
			78   => 'Rock & Roll',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   239
			79   => 'Hard Rock',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   240
			80   => 'Folk',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   241
			81   => 'Folk/Rock',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   242
			82   => 'National Folk',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   243
			83   => 'Swing',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   244
			84   => 'Fast-Fusion',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   245
			85   => 'Bebob',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   246
			86   => 'Latin',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   247
			87   => 'Revival',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   248
			88   => 'Celtic',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   249
			89   => 'Bluegrass',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   250
			90   => 'Avantgarde',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   251
			91   => 'Gothic Rock',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   252
			92   => 'Progressive Rock',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   253
			93   => 'Psychedelic Rock',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   254
			94   => 'Symphonic Rock',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   255
			95   => 'Slow Rock',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   256
			96   => 'Big Band',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   257
			97   => 'Chorus',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   258
			98   => 'Easy Listening',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   259
			99   => 'Acoustic',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   260
			100  => 'Humour',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   261
			101  => 'Speech',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   262
			102  => 'Chanson',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   263
			103  => 'Opera',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   264
			104  => 'Chamber Music',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   265
			105  => 'Sonata',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   266
			106  => 'Symphony',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   267
			107  => 'Booty Bass',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   268
			108  => 'Primus',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   269
			109  => 'Porn Groove',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   270
			110  => 'Satire',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   271
			111  => 'Slow Jam',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   272
			112  => 'Club',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   273
			113  => 'Tango',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   274
			114  => 'Samba',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   275
			115  => 'Folklore',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   276
			116  => 'Ballad',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   277
			117  => 'Power Ballad',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   278
			118  => 'Rhythmic Soul',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   279
			119  => 'Freestyle',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   280
			120  => 'Duet',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   281
			121  => 'Punk Rock',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   282
			122  => 'Drum Solo',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   283
			123  => 'A Cappella',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   284
			124  => 'Euro-House',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   285
			125  => 'Dance Hall',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   286
			126  => 'Goa',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   287
			127  => 'Drum & Bass',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   288
			128  => 'Club-House',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   289
			129  => 'Hardcore',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   290
			130  => 'Terror',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   291
			131  => 'Indie',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   292
			132  => 'BritPop',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   293
			133  => 'Negerpunk',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   294
			134  => 'Polsk Punk',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   295
			135  => 'Beat',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   296
			136  => 'Christian Gangsta Rap',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   297
			137  => 'Heavy Metal',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   298
			138  => 'Black Metal',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   299
			139  => 'Crossover',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   300
			140  => 'Contemporary Christian',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   301
			141  => 'Christian Rock',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   302
			142  => 'Merengue',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   303
			143  => 'Salsa',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   304
			144  => 'Thrash Metal',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   305
			145  => 'Anime',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   306
			146  => 'JPop',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   307
			147  => 'Synthpop',
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   308
			148 => 'Abstract',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   309
			149 => 'Art Rock',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   310
			150 => 'Baroque',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   311
			151 => 'Bhangra',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   312
			152 => 'Big Beat',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   313
			153 => 'Breakbeat',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   314
			154 => 'Chillout',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   315
			155 => 'Downtempo',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   316
			156 => 'Dub',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   317
			157 => 'EBM',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   318
			158 => 'Eclectic',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   319
			159 => 'Electro',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   320
			160 => 'Electroclash',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   321
			161 => 'Emo',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   322
			162 => 'Experimental',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   323
			163 => 'Garage',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   324
			164 => 'Global',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   325
			165 => 'IDM',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   326
			166 => 'Illbient',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   327
			167 => 'Industro-Goth',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   328
			168 => 'Jam Band',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   329
			169 => 'Krautrock',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   330
			170 => 'Leftfield',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   331
			171 => 'Lounge',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   332
			172 => 'Math Rock',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   333
			173 => 'New Romantic',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   334
			174 => 'Nu-Breakz',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   335
			175 => 'Post-Punk',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   336
			176 => 'Post-Rock',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   337
			177 => 'Psytrance',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   338
			178 => 'Shoegaze',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   339
			179 => 'Space Rock',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   340
			180 => 'Trop Rock',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   341
			181 => 'World Music',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   342
			182 => 'Neoclassical',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   343
			183 => 'Audiobook',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   344
			184 => 'Audio Theatre',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   345
			185 => 'Neue Deutsche Welle',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   346
			186 => 'Podcast',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   347
			187 => 'Indie-Rock',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   348
			188 => 'G-Funk',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   349
			189 => 'Dubstep',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   350
			190 => 'Garage Rock',
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   351
			191 => 'Psybient',
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   352
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   353
			255  => 'Unknown',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   354
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   355
			'CR' => 'Cover',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   356
			'RX' => 'Remix'
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   357
		);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   358
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   359
		static $GenreLookupSCMPX = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   360
		if ($allowSCMPXextended && empty($GenreLookupSCMPX)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   361
			$GenreLookupSCMPX = $GenreLookup;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   362
			// http://www.geocities.co.jp/SiliconValley-Oakland/3664/alittle.html#GenreExtended
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   363
			// Extended ID3v1 genres invented by SCMPX
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   364
			// Note that 255 "Japanese Anime" conflicts with standard "Unknown"
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   365
			$GenreLookupSCMPX[240] = 'Sacred';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   366
			$GenreLookupSCMPX[241] = 'Northern Europe';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   367
			$GenreLookupSCMPX[242] = 'Irish & Scottish';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   368
			$GenreLookupSCMPX[243] = 'Scotland';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   369
			$GenreLookupSCMPX[244] = 'Ethnic Europe';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   370
			$GenreLookupSCMPX[245] = 'Enka';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   371
			$GenreLookupSCMPX[246] = 'Children\'s Song';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   372
			$GenreLookupSCMPX[247] = 'Japanese Sky';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   373
			$GenreLookupSCMPX[248] = 'Japanese Heavy Rock';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   374
			$GenreLookupSCMPX[249] = 'Japanese Doom Rock';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   375
			$GenreLookupSCMPX[250] = 'Japanese J-POP';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   376
			$GenreLookupSCMPX[251] = 'Japanese Seiyu';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   377
			$GenreLookupSCMPX[252] = 'Japanese Ambient Techno';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   378
			$GenreLookupSCMPX[253] = 'Japanese Moemoe';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   379
			$GenreLookupSCMPX[254] = 'Japanese Tokusatsu';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   380
			//$GenreLookupSCMPX[255] = 'Japanese Anime';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   381
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   382
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   383
		return ($allowSCMPXextended ? $GenreLookupSCMPX : $GenreLookup);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   384
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   385
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   386
	/**
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   387
	 * @param string $genreid
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   388
	 * @param bool   $allowSCMPXextended
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   389
	 *
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   390
	 * @return string|false
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   391
	 */
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   392
	public static function LookupGenreName($genreid, $allowSCMPXextended=true) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   393
		switch ($genreid) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   394
			case 'RX':
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   395
			case 'CR':
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
			default:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   398
				if (!is_numeric($genreid)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   399
					return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   400
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   401
				$genreid = intval($genreid); // to handle 3 or '3' or '03'
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   402
				break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   403
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   404
		$GenreLookup = self::ArrayOfGenres($allowSCMPXextended);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   405
		return (isset($GenreLookup[$genreid]) ? $GenreLookup[$genreid] : false);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   406
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   407
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   408
	/**
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   409
	 * @param string $genre
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   410
	 * @param bool   $allowSCMPXextended
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   411
	 *
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   412
	 * @return string|false
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   413
	 */
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   414
	public static function LookupGenreID($genre, $allowSCMPXextended=false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   415
		$GenreLookup = self::ArrayOfGenres($allowSCMPXextended);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   416
		$LowerCaseNoSpaceSearchTerm = strtolower(str_replace(' ', '', $genre));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   417
		foreach ($GenreLookup as $key => $value) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   418
			if (strtolower(str_replace(' ', '', $value)) == $LowerCaseNoSpaceSearchTerm) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   419
				return $key;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   420
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   421
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   422
		return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   423
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   424
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   425
	/**
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   426
	 * @param string $OriginalGenre
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   427
	 *
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   428
	 * @return string|false
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   429
	 */
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   430
	public static function StandardiseID3v1GenreName($OriginalGenre) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   431
		if (($GenreID = self::LookupGenreID($OriginalGenre)) !== false) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   432
			return self::LookupGenreName($GenreID);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   433
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   434
		return $OriginalGenre;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   435
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   436
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   437
	/**
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   438
	 * @param string     $title
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   439
	 * @param string     $artist
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   440
	 * @param string     $album
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   441
	 * @param string     $year
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   442
	 * @param int        $genreid
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   443
	 * @param string     $comment
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   444
	 * @param int|string $track
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   445
	 *
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   446
	 * @return string
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
   447
	 */
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   448
	public static function GenerateID3v1Tag($title, $artist, $album, $year, $genreid, $comment, $track='') {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   449
		$ID3v1Tag  = 'TAG';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   450
		$ID3v1Tag .= str_pad(trim(substr($title,  0, 30)), 30, "\x00", STR_PAD_RIGHT);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   451
		$ID3v1Tag .= str_pad(trim(substr($artist, 0, 30)), 30, "\x00", STR_PAD_RIGHT);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   452
		$ID3v1Tag .= str_pad(trim(substr($album,  0, 30)), 30, "\x00", STR_PAD_RIGHT);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   453
		$ID3v1Tag .= str_pad(trim(substr($year,   0,  4)),  4, "\x00", STR_PAD_LEFT);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   454
		if (!empty($track) && ($track > 0) && ($track <= 255)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   455
			$ID3v1Tag .= str_pad(trim(substr($comment, 0, 28)), 28, "\x00", STR_PAD_RIGHT);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   456
			$ID3v1Tag .= "\x00";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   457
			if (gettype($track) == 'string') {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   458
				$track = (int) $track;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   459
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   460
			$ID3v1Tag .= chr($track);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   461
		} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   462
			$ID3v1Tag .= str_pad(trim(substr($comment, 0, 30)), 30, "\x00", STR_PAD_RIGHT);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   463
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   464
		if (($genreid < 0) || ($genreid > 147)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   465
			$genreid = 255; // 'unknown' genre
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   466
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   467
		switch (gettype($genreid)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   468
			case 'string':
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   469
			case 'integer':
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   470
				$ID3v1Tag .= chr(intval($genreid));
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
			default:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   473
				$ID3v1Tag .= chr(255); // 'unknown' genre
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   474
				break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   475
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   476
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   477
		return $ID3v1Tag;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   478
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   479
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   480
}