- Timestamp:
- 2021-02-26T19:39:51+13:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/cpan/Image/ExifTool/MPC.pm
r24107 r34921 16 16 use Image::ExifTool::FLAC; 17 17 18 $VERSION = '1.0 0';18 $VERSION = '1.01'; 19 19 20 20 # MPC metadata blocks … … 79 79 sub ProcessMPC($$) 80 80 { 81 my ($e xifTool, $dirInfo) = @_;81 my ($et, $dirInfo) = @_; 82 82 83 83 # must first check for leading ID3 information 84 unless ($ exifTool->{DoneID3}) {84 unless ($$et{DoneID3}) { 85 85 require Image::ExifTool::ID3; 86 Image::ExifTool::ID3::ProcessID3($e xifTool, $dirInfo) and return 1;86 Image::ExifTool::ID3::ProcessID3($et, $dirInfo) and return 1; 87 87 } 88 88 my $raf = $$dirInfo{RAF}; … … 92 92 $raf->Read($buff, 32) == 32 and $buff =~ /^MP\+(.)/s or return 0; 93 93 my $vers = ord($1) & 0x0f; 94 $e xifTool->SetFileType();94 $et->SetFileType(); 95 95 96 96 # extract audio information (currently only from version 7 MPC files) … … 98 98 SetByteOrder('II'); 99 99 my $pos = $raf->Tell() - 32; 100 if ($e xifTool->Options('Verbose')) {101 $e xifTool->VPrint(0, "MPC Header (32 bytes):\n");102 $e xifTool->VerboseDump(\$buff, DataPos => $pos);100 if ($et->Options('Verbose')) { 101 $et->VPrint(0, "MPC Header (32 bytes):\n"); 102 $et->VerboseDump(\$buff, DataPos => $pos); 103 103 } 104 104 my $tagTablePtr = GetTagTable('Image::ExifTool::MPC::Main'); 105 105 my %dirInfo = ( DataPt => \$buff, DataPos => $pos ); 106 $e xifTool->ProcessDirectory(\%dirInfo, $tagTablePtr);106 $et->ProcessDirectory(\%dirInfo, $tagTablePtr); 107 107 } else { 108 $e xifTool->Warn('Audio info not currentlyextracted from this version MPC file');108 $et->Warn('Audio info currently not extracted from this version MPC file'); 109 109 } 110 110 111 111 # process APE trailer if it exists 112 112 require Image::ExifTool::APE; 113 Image::ExifTool::APE::ProcessAPE($e xifTool, $dirInfo);113 Image::ExifTool::APE::ProcessAPE($et, $dirInfo); 114 114 115 115 return 1; … … 135 135 =head1 AUTHOR 136 136 137 Copyright 2003-20 11, Phil Harvey (phil at owl.phy.queensu.ca)137 Copyright 2003-2021, Phil Harvey (philharvey66 at gmail.com) 138 138 139 139 This library is free software; you can redistribute it and/or modify it
Note:
See TracChangeset
for help on using the changeset viewer.