Добавяне на езикова променлива в WWW::Mailchimp (абонамент)

От разглеждане на източника, по подразбиране е API 1.3:

has api_version => (
  is => 'ro',
  isa => Num,
  lazy => 1,
  default => sub { 1.3 },
);

Документацията за това показва, че трябва да използвате MC_LANGUAGE:

низ MC_LANGUAGE Задайте езиковите предпочитания на члена. Поддържаните кодове са напълно чувствителни към главни и малки букви и могат да бъдат намерени тук.

Изглежда, че модулът просто вкарва каквато и да е структура от данни, която предоставяте, в JSON и я изпраща POST в Mailchimp, така че подходящата версия на документ за API на Mailchimp за API, към който сте насочени, трябва да се посочи като основен източник.

Добре, така че стигнах до там в крайна сметка! Говорих с поддръжката на MailChimp и те бяха много полезни. Оказа се, че това е двоен проблем.

1) Автоматичният превод трябва да бъде активиран за въпросния списък. Това беше техният отговор около това:

След като разгледахте обаждането, изглежда, че вече е настроено правилно, така че всички сте добре на този фронт. Като се има предвид това, виждам, че опцията за автоматичен превод изглежда не е активирана за нито един от вашите списъци. За да могат потвърждението и всички други имейли за отговор да се превеждат автоматично, това ще трябва да бъде активирано за всички използвани списъци.

Имаме малко допълнителна информация за това тук, ако искате да проверите това: http://kb.mailchimp.com/lists/signup-forms/translate-signup-forms-and-emails#Auto-Translate-Forms

2) Когато правите заявка чрез API, трябва конкретно да зададете стойността Accept-Language: xx. Например en, fr, es, de и др.

Ето една работеща функция за всеки, който има нужда от нея в бъдеще. Просто не забравяйте да актуализирате apikey, listId и URL адреса на крайната точка.

do_register_email_list('[email protected]','Andrew Test',"en")

sub do_register_email_list {
# (email,name,lang)

    use WWW::Curl::Easy;
    use Digest::MD5;
    use JSON;

    my @name = split /\s+/, $_[1];
    my $apikey = 'xxxx-us6';
    my $listid = 'xxxx';
    my $email = $_[0];
    my $endpoint = "https://us6.api.mailchimp.com/3.0/lists";
    my $lang = $_[2]||'en';

    my $json = JSON::encode_json({
        'email_address' => $email,
        'status'        => 'pending',
        'language' => $lang,
        'merge_fields'  => {
            'FNAME'     => $name[0]||'',
            'LNAME'     => $name[1]||''
        }
    });

    my $curl = WWW::Curl::Easy->new;

    my $url = "$endpoint/$listid/members/" . Digest::MD5::md5(lc($email));

    $curl->setopt(CURLOPT_HEADER,1);
    $curl->setopt(CURLOPT_URL, $url);

#    $curl->setopt(CURLOPT_VERBOSE, 1);
    $curl->setopt(CURLOPT_USERPWD, 'user:' . $apikey);
    $curl->setopt(CURLOPT_HTTPHEADER, ['Content-Type: application/json',"Accept-Language: $lang"]);
    $curl->setopt(CURLOPT_TIMEOUT, 10);
    $curl->setopt(CURLOPT_CUSTOMREQUEST, 'PUT');
    $curl->setopt(CURLOPT_SSL_VERIFYPEER, 0);
    $curl->setopt(CURLOPT_POSTFIELDS, $json);

    # A filehandle, reference to a scalar or reference to a typeglob can be used here.
    my $response_body;
    $curl->setopt(CURLOPT_WRITEDATA,\$response_body);

    # Starts the actual request
    my $retcode = $curl->perform;

#print "FOO HERE";
    # Looking at the results...
    if ($retcode == 0) {
        print "Transfer went ok\n";
        my $response_code = $curl->getinfo(CURLINFO_HTTP_CODE);
        print "Received response: $response_body\n";
    } else {
        # Error code, type of error, error message
        print "An error happened: $retcode ".$curl->strerror($retcode)." ".$curl->errbuf."\n";
    }
}

Надяваме се, че това ще спаси някой друг от цялата мъка, която имах с него :) (дамата от поддръжката на MailChimp също каза, че ще накара техния екип да добави нещо за това в бележките на разработчиците, така че е малко по-ясно!)