#!/usr/bin/perl
# responds to web hook post from mailchimp to update our mailing list when someone unsubscribes

use lib qw(/usr/local/lib/perl);
use GSI::Web::gecko::oopm;
use strict;

my $oopm = new GSI::Web::gecko::oopm;

warn "MailChimp Sent this via POST:\n";
my %params = $oopm->{q}->Vars;
foreach my $v (keys (%params))
{
	warn "MailChimp => $v: $params{$v}\n";
}
warn "\nEnd of what they sent\n";

#my $type = $oopm->{q}->param('type');
#my $fired_at = $oopm->{q}->param('fired_at');
#my $email = $oopm->{q}->param('data[email]');

#warn "\n\nMAILCHIMP WEBHOOK:\n Type: $type\n Fired: $fired_at\n Email: $email\n\n";
print "Content-type: text/html\n\n";