Print Page - Subtract 1 hour if Major Brand equals using config file

Title: Subtract 1 hour if Major Brand equals using config file
Post by: theprof on August 29, 2024, 06:21:09 AM

I have the following code in the config file:

Code Select

%Image::ExifTool::myTagList = (
    0 => 'CreateDate',
    1 => 'DateTimeOriginal',
    2 => 'ModifyDate',
    3 => 'FileModifyDate',
);

%Image::ExifTool::UserDefined = (
    'Image::ExifTool::Composite' => {
        MyDate => {
            Desire => \%Image::ExifTool::myTagList,
            ValueConv => q{
                my $earliest;
                my $earliestTagName;
                for my $i (0 .. $#val) {
                    next if (not defined ($val[$i]));
                    if (defined($val[$i])) {
                        return ['\'' . $Image::ExifTool::myTagList{$i} . '\'', $val[$i]];
                    }
                }
                return;
            },
        },
    },
);

What I want to do is if the "MajorBrand" is equal to "MP4 Base Media v1 [IS0 14496-12:2003]", I want to subtract 1 hour from the "date" $val[$i] in the MyDate value, how do I do that?

Title: Re: Subtract 1 hour if Major Brand equals using config file
Post by: Phil Harvey on August 29, 2024, 07:21:22 AM

This should do it:

Code Select

%Image::ExifTool::myTagList = (
    0 => 'CreateDate',
    1 => 'DateTimeOriginal',
    2 => 'ModifyDate',
    3 => 'FileModifyDate',
    4 => 'MajorBrand',
);

%Image::ExifTool::UserDefined = (
    'Image::ExifTool::Composite' => {
        MyDate => {
            Desire => \%Image::ExifTool::myTagList,
            ValueConv => q{
                my $earliest;
                my $earliestTagName;
                for my $i (0 .. 3) {
                    next if not defined $val[$i];
                    if ($val[4] and $val[4] eq 'MP4 Base Media v1 [IS0 14496-12:2003]') {
                        ShiftTime($val[$i],'-1');
                    }
                    return ["'$Image::ExifTool::myTagList{$i}'", $val[$i]];
                }
                return undef;
            },
        },
    },
);

1; #end

I've also cleaned up a couple of things.

- Phil

Title: Re: Subtract 1 hour if Major Brand equals using config file
Post by: theprof on August 29, 2024, 07:42:56 AM

Quote from: Phil Harvey on August 29, 2024, 07:21:22 AMThis should do it:

Code Select Expand
%Image::ExifTool::myTagList = ( 0 => 'CreateDate', 1 => 'DateTimeOriginal', 2 => 'ModifyDate', 3 => 'FileModifyDate', 4 => 'MajorBrand', ); %Image::ExifTool::UserDefined = ( 'Image::ExifTool::Composite' => { MyDate => { Desire => \%Image::ExifTool::myTagList, ValueConv => q{ my $earliest; my $earliestTagName; for my $i (0 .. 3) { next if not defined $val[$i]; if ($val[4] and $val[4] eq 'MP4 Base Media v1 [IS0 14496-12:2003]') { ShiftTime($val[$i],'-1'); } return ["'$Image::ExifTool::myTagList{$i}'", $val[$i]]; } return undef; }, }, }, ); 1; #end
I've also cleaned up a couple of things.

- Phil

Thanks, there is a problem however.

$val4 seems to return "isom" instead of "QuickTime:MajorBrand". I can see that "QuickTime:MajorBrand" is equal to "MP4 Base Media v1 [IS0 14496-12:2003]" when I run "exiftool -json -q -G1 -a -s -r file".

Is there a way to get it to return the "QuickTime:MajorBrand"?

Title: Re: Subtract 1 hour if Major Brand equals using config file
Post by: theprof on August 29, 2024, 07:51:12 AM

Nevermind, found that isom is "MP4 Base Media v1 [IS0 14496-12:2003]". Thanks!

Title: Re: Subtract 1 hour if Major Brand equals using config file
Post by: Phil Harvey on August 29, 2024, 08:23:50 AM

Glad you figured this out. I should have checked $prt[4] instead of $val[4] because "MP4 Base Media v1 [IS0 14496-12:2003]" is a print-converted value.

- Phil

ExifTool Forum

ExifTool => Newbies => Topic started by: theprof on August 29, 2024, 06:21:09 AM