From 8b968108c7a8613782d008641a61c6ef0688d477 Mon Sep 17 00:00:00 2001 From: Tiago Peczenyj Date: Fri, 15 Dec 2023 17:54:45 +0100 Subject: [PATCH 1/4] promote new version --- Changes | 1 + README.pod | 2 +- lib/GDPR/IAB/TCFv2.pm | 4 ++-- 3 files changed, 4 insertions(+), 3 deletions(-) diff --git a/Changes b/Changes index 3ec2066..c72f9ce 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,4 @@ +0.100 - parse publisher tc section if available - add strict mode (disabled by default) to validate the consent string version diff --git a/README.pod b/README.pod index 59260d0..2b7df78 100644 --- a/README.pod +++ b/README.pod @@ -26,7 +26,7 @@ GDPR::IAB::TCFv2 - Transparency & Consent String version 2 parser =head1 VERSION -Version 0.084 +Version 0.100 =head1 SYNOPSIS diff --git a/lib/GDPR/IAB/TCFv2.pm b/lib/GDPR/IAB/TCFv2.pm index 4eaa385..c91f60d 100644 --- a/lib/GDPR/IAB/TCFv2.pm +++ b/lib/GDPR/IAB/TCFv2.pm @@ -22,7 +22,7 @@ use GDPR::IAB::TCFv2::BitUtils qw { @@ -652,7 +652,7 @@ GDPR::IAB::TCFv2 - Transparency & Consent String version 2 parser =head1 VERSION -Version 0.084 +Version 0.100 =head1 SYNOPSIS From b336e50e567c31019aa652f5371d367322b56244 Mon Sep 17 00:00:00 2001 From: Tiago Peczenyj Date: Fri, 15 Dec 2023 17:55:19 +0100 Subject: [PATCH 2/4] update manifest --- MANIFEST | 2 ++ 1 file changed, 2 insertions(+) diff --git a/MANIFEST b/MANIFEST index 71667e2..90466be 100644 --- a/MANIFEST +++ b/MANIFEST @@ -7,7 +7,9 @@ lib/GDPR/IAB/TCFv2/BitUtils.pm lib/GDPR/IAB/TCFv2/Constants/Purpose.pm lib/GDPR/IAB/TCFv2/Constants/RestrictionType.pm lib/GDPR/IAB/TCFv2/Constants/SpecialFeature.pm +lib/GDPR/IAB/TCFv2/Publisher.pm lib/GDPR/IAB/TCFv2/PublisherRestrictions.pm +lib/GDPR/IAB/TCFv2/PublisherTC.pm lib/GDPR/IAB/TCFv2/RangeSection.pm LICENSE Makefile.PL From 9b55ad492199ab64c1052a53040f310d462b32fd Mon Sep 17 00:00:00 2001 From: Tiago Peczenyj Date: Fri, 15 Dec 2023 17:58:56 +0100 Subject: [PATCH 3/4] fix workflows --- .github/workflows/macos.yml | 9 +++------ .github/workflows/perltidy.yml | 9 +++------ .github/workflows/windows.yml | 9 +++------ 3 files changed, 9 insertions(+), 18 deletions(-) diff --git a/.github/workflows/macos.yml b/.github/workflows/macos.yml index d8a1b8e..d7a342a 100644 --- a/.github/workflows/macos.yml +++ b/.github/workflows/macos.yml @@ -1,11 +1,8 @@ name: macos + on: - push: - branches: - - '*' - tags-ignore: - - '*' - pull_request: + - push + jobs: perl: runs-on: macOS-latest diff --git a/.github/workflows/perltidy.yml b/.github/workflows/perltidy.yml index 080f484..fe553f0 100644 --- a/.github/workflows/perltidy.yml +++ b/.github/workflows/perltidy.yml @@ -1,11 +1,8 @@ name: perltidy + on: - push: - branches: - - '*' - tags-ignore: - - '*' - pull_request: + - push + jobs: perltidy: runs-on: ubuntu-latest diff --git a/.github/workflows/windows.yml b/.github/workflows/windows.yml index be2184d..bf32b52 100644 --- a/.github/workflows/windows.yml +++ b/.github/workflows/windows.yml @@ -1,11 +1,8 @@ name: windows + on: - push: - branches: - - '*' - tags-ignore: - - '*' - pull_request: + - push + jobs: perl: runs-on: windows-latest From 8d0fbcd11580398af22b83713ada4d601314161a Mon Sep 17 00:00:00 2001 From: Tiago Peczenyj Date: Fri, 15 Dec 2023 18:01:32 +0100 Subject: [PATCH 4/4] tidy file --- lib/GDPR/IAB/TCFv2.pm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/lib/GDPR/IAB/TCFv2.pm b/lib/GDPR/IAB/TCFv2.pm index c91f60d..e82d769 100644 --- a/lib/GDPR/IAB/TCFv2.pm +++ b/lib/GDPR/IAB/TCFv2.pm @@ -35,8 +35,8 @@ use constant { MAX_PURPOSE_ID => 24, DATE_FORMAT_ISO_8601 => '%Y-%m-%dT%H:%M:%SZ', SEGMENT_TYPES => { - CORE => 0, - PUBLISHER_TC => 3, + CORE => 0, + PUBLISHER_TC => 3, }, OFFSETS => { SEGMENT_TYPE => 0, @@ -107,10 +107,10 @@ sub Parse { $options{json}->{boolean_values} ||= [ _json_false(), _json_true() ]; my $self = { - core_data => $segments->{core_data}, - publisher_tc_data => $segments->{publisher_tc}, - options => \%options, - tc_string => $tc_string, + core_data => $segments->{core_data}, + publisher_tc_data => $segments->{publisher_tc}, + options => \%options, + tc_string => $tc_string, vendor_consents => undef, vendor_legitimate_interests => undef, @@ -450,11 +450,11 @@ sub _decode_tc_string_segments { $segments{$segment_type} = $decoded; } - my $publisher_tc = $segments{ SEGMENT_TYPES->{PUBLISHER_TC} }; + my $publisher_tc = $segments{ SEGMENT_TYPES->{PUBLISHER_TC} }; return { - core_data => $core_data, - publisher_tc => $publisher_tc, + core_data => $core_data, + publisher_tc => $publisher_tc, }; }