| 1 | <?php |
|---|
| 2 | ///////////////////////////////////////////////////////////////// |
|---|
| 3 | /// getID3() by James Heinrich <info@getid3.org> // |
|---|
| 4 | // available at http://getid3.sourceforge.net // |
|---|
| 5 | // or http://www.getid3.org // |
|---|
| 6 | ///////////////////////////////////////////////////////////////// |
|---|
| 7 | // See readme.txt for more details // |
|---|
| 8 | ///////////////////////////////////////////////////////////////// |
|---|
| 9 | // // |
|---|
| 10 | // module.audio.vqf.php // |
|---|
| 11 | // module for analyzing VQF audio files // |
|---|
| 12 | // dependencies: NONE // |
|---|
| 13 | // /// |
|---|
| 14 | ///////////////////////////////////////////////////////////////// |
|---|
| 15 | |
|---|
| 16 | |
|---|
| 17 | class getid3_vqf |
|---|
| 18 | { |
|---|
| 19 | function getid3_vqf(&$fd, &$ThisFileInfo) { |
|---|
| 20 | // based loosely on code from TTwinVQ by Jurgen Faul <jfaulØgmx*de> |
|---|
| 21 | // http://jfaul.de/atl or http://j-faul.virtualave.net/atl/atl.html |
|---|
| 22 | |
|---|
| 23 | $ThisFileInfo['fileformat'] = 'vqf'; |
|---|
| 24 | $ThisFileInfo['audio']['dataformat'] = 'vqf'; |
|---|
| 25 | $ThisFileInfo['audio']['bitrate_mode'] = 'cbr'; |
|---|
| 26 | $ThisFileInfo['audio']['lossless'] = false; |
|---|
| 27 | |
|---|
| 28 | // shortcut |
|---|
| 29 | $ThisFileInfo['vqf']['raw'] = array(); |
|---|
| 30 | $thisfile_vqf = &$ThisFileInfo['vqf']; |
|---|
| 31 | $thisfile_vqf_raw = &$thisfile_vqf['raw']; |
|---|
| 32 | |
|---|
| 33 | fseek($fd, $ThisFileInfo['avdataoffset'], SEEK_SET); |
|---|
| 34 | $VQFheaderData = fread($fd, 16); |
|---|
| 35 | |
|---|
| 36 | $offset = 0; |
|---|
| 37 | $thisfile_vqf_raw['header_tag'] = substr($VQFheaderData, $offset, 4); |
|---|
| 38 | if ($thisfile_vqf_raw['header_tag'] != 'TWIN') { |
|---|
| 39 | $ThisFileInfo['error'][] = 'Expecting "TWIN" at offset '.$ThisFileInfo['avdataoffset'].', found "'.$thisfile_vqf_raw['header_tag'].'"'; |
|---|
| 40 | unset($ThisFileInfo['vqf']); |
|---|
| 41 | unset($ThisFileInfo['fileformat']); |
|---|
| 42 | return false; |
|---|
| 43 | } |
|---|
| 44 | $offset += 4; |
|---|
| 45 | $thisfile_vqf_raw['version'] = substr($VQFheaderData, $offset, 8); |
|---|
| 46 | $offset += 8; |
|---|
| 47 | $thisfile_vqf_raw['size'] = getid3_lib::BigEndian2Int(substr($VQFheaderData, $offset, 4)); |
|---|
| 48 | $offset += 4; |
|---|
| 49 | |
|---|
| 50 | while (ftell($fd) < $ThisFileInfo['avdataend']) { |
|---|
| 51 | |
|---|
| 52 | $ChunkBaseOffset = ftell($fd); |
|---|
| 53 | $chunkoffset = 0; |
|---|
| 54 | $ChunkData = fread($fd, 8); |
|---|
| 55 | $ChunkName = substr($ChunkData, $chunkoffset, 4); |
|---|
| 56 | if ($ChunkName == 'DATA') { |
|---|
| 57 | $ThisFileInfo['avdataoffset'] = $ChunkBaseOffset; |
|---|
| 58 | break; |
|---|
| 59 | } |
|---|
| 60 | $chunkoffset += 4; |
|---|
| 61 | $ChunkSize = getid3_lib::BigEndian2Int(substr($ChunkData, $chunkoffset, 4)); |
|---|
| 62 | $chunkoffset += 4; |
|---|
| 63 | if ($ChunkSize > ($ThisFileInfo['avdataend'] - ftell($fd))) { |
|---|
| 64 | $ThisFileInfo['error'][] = 'Invalid chunk size ('.$ChunkSize.') for chunk "'.$ChunkName.'" at offset '.$ChunkBaseOffset; |
|---|
| 65 | break; |
|---|
| 66 | } |
|---|
| 67 | if ($ChunkSize > 0) { |
|---|
| 68 | $ChunkData .= fread($fd, $ChunkSize); |
|---|
| 69 | } |
|---|
| 70 | |
|---|
| 71 | switch ($ChunkName) { |
|---|
| 72 | case 'COMM': |
|---|
| 73 | // shortcut |
|---|
| 74 | $thisfile_vqf['COMM'] = array(); |
|---|
| 75 | $thisfile_vqf_COMM = &$thisfile_vqf['COMM']; |
|---|
| 76 | |
|---|
| 77 | $thisfile_vqf_COMM['channel_mode'] = getid3_lib::BigEndian2Int(substr($ChunkData, $chunkoffset, 4)); |
|---|
| 78 | $chunkoffset += 4; |
|---|
| 79 | $thisfile_vqf_COMM['bitrate'] = getid3_lib::BigEndian2Int(substr($ChunkData, $chunkoffset, 4)); |
|---|
| 80 | $chunkoffset += 4; |
|---|
| 81 | $thisfile_vqf_COMM['sample_rate'] = getid3_lib::BigEndian2Int(substr($ChunkData, $chunkoffset, 4)); |
|---|
| 82 | $chunkoffset += 4; |
|---|
| 83 | $thisfile_vqf_COMM['security_level'] = getid3_lib::BigEndian2Int(substr($ChunkData, $chunkoffset, 4)); |
|---|
| 84 | $chunkoffset += 4; |
|---|
| 85 | |
|---|
| 86 | $ThisFileInfo['audio']['channels'] = $thisfile_vqf_COMM['channel_mode'] + 1; |
|---|
| 87 | $ThisFileInfo['audio']['sample_rate'] = $this->VQFchannelFrequencyLookup($thisfile_vqf_COMM['sample_rate']); |
|---|
| 88 | $ThisFileInfo['audio']['bitrate'] = $thisfile_vqf_COMM['bitrate'] * 1000; |
|---|
| 89 | $ThisFileInfo['audio']['encoder_options'] = 'CBR' . ceil($ThisFileInfo['audio']['bitrate']/1000); |
|---|
| 90 | |
|---|
| 91 | if ($ThisFileInfo['audio']['bitrate'] == 0) { |
|---|
| 92 | $ThisFileInfo['error'][] = 'Corrupt VQF file: bitrate_audio == zero'; |
|---|
| 93 | return false; |
|---|
| 94 | } |
|---|
| 95 | break; |
|---|
| 96 | |
|---|
| 97 | case 'NAME': |
|---|
| 98 | case 'AUTH': |
|---|
| 99 | case '(c) ': |
|---|
| 100 | case 'FILE': |
|---|
| 101 | case 'COMT': |
|---|
| 102 | case 'ALBM': |
|---|
| 103 | $thisfile_vqf['comments'][$this->VQFcommentNiceNameLookup($ChunkName)][] = trim(substr($ChunkData, 8)); |
|---|
| 104 | break; |
|---|
| 105 | |
|---|
| 106 | case 'DSIZ': |
|---|
| 107 | $thisfile_vqf['DSIZ'] = getid3_lib::BigEndian2Int(substr($ChunkData, 8, 4)); |
|---|
| 108 | break; |
|---|
| 109 | |
|---|
| 110 | default: |
|---|
| 111 | $ThisFileInfo['warning'][] = 'Unhandled chunk type "'.$ChunkName.'" at offset '.$ChunkBaseOffset; |
|---|
| 112 | break; |
|---|
| 113 | } |
|---|
| 114 | } |
|---|
| 115 | |
|---|
| 116 | $ThisFileInfo['playtime_seconds'] = (($ThisFileInfo['avdataend'] - $ThisFileInfo['avdataoffset']) * 8) / $ThisFileInfo['audio']['bitrate']; |
|---|
| 117 | |
|---|
| 118 | if (isset($thisfile_vqf['DSIZ']) && (($thisfile_vqf['DSIZ'] != ($ThisFileInfo['avdataend'] - $ThisFileInfo['avdataoffset'] - strlen('DATA'))))) { |
|---|
| 119 | switch ($thisfile_vqf['DSIZ']) { |
|---|
| 120 | case 0: |
|---|
| 121 | case 1: |
|---|
| 122 | $ThisFileInfo['warning'][] = 'Invalid DSIZ value "'.$thisfile_vqf['DSIZ'].'". This is known to happen with VQF files encoded by Ahead Nero, and seems to be its way of saying this is TwinVQF v'.($thisfile_vqf['DSIZ'] + 1).'.0'; |
|---|
| 123 | $ThisFileInfo['audio']['encoder'] = 'Ahead Nero'; |
|---|
| 124 | break; |
|---|
| 125 | |
|---|
| 126 | default: |
|---|
| 127 | $ThisFileInfo['warning'][] = 'Probable corrupted file - should be '.$thisfile_vqf['DSIZ'].' bytes, actually '.($ThisFileInfo['avdataend'] - $ThisFileInfo['avdataoffset'] - strlen('DATA')); |
|---|
| 128 | break; |
|---|
| 129 | } |
|---|
| 130 | } |
|---|
| 131 | |
|---|
| 132 | return true; |
|---|
| 133 | } |
|---|
| 134 | |
|---|
| 135 | function VQFchannelFrequencyLookup($frequencyid) { |
|---|
| 136 | static $VQFchannelFrequencyLookup = array( |
|---|
| 137 | 11 => 11025, |
|---|
| 138 | 22 => 22050, |
|---|
| 139 | 44 => 44100 |
|---|
| 140 | ); |
|---|
| 141 | return (isset($VQFchannelFrequencyLookup[$frequencyid]) ? $VQFchannelFrequencyLookup[$frequencyid] : $frequencyid * 1000); |
|---|
| 142 | } |
|---|
| 143 | |
|---|
| 144 | function VQFcommentNiceNameLookup($shortname) { |
|---|
| 145 | static $VQFcommentNiceNameLookup = array( |
|---|
| 146 | 'NAME' => 'title', |
|---|
| 147 | 'AUTH' => 'artist', |
|---|
| 148 | '(c) ' => 'copyright', |
|---|
| 149 | 'FILE' => 'filename', |
|---|
| 150 | 'COMT' => 'comment', |
|---|
| 151 | 'ALBM' => 'album' |
|---|
| 152 | ); |
|---|
| 153 | return (isset($VQFcommentNiceNameLookup[$shortname]) ? $VQFcommentNiceNameLookup[$shortname] : $shortname); |
|---|
| 154 | } |
|---|
| 155 | |
|---|
| 156 | } |
|---|
| 157 | |
|---|
| 158 | |
|---|
| 159 | ?> |
|---|
