#!/bin/false
#
# This code include is used to load countries for the flexmodule daad_country_facts.htms from the API.

use strict;
use vars qw(@parameters $new $mode $metainfo);

use Project::Util::Api;

sub main
{
    if ($mode ne 'EDIT') {
        return;
    }

    my @items = _getData();
    if (scalar @items == 0 || ! defined \@items) {
        return "";
    }

    my $html = "";

    # @TODO replace 1000 with actual array length
    for ($a = 0 ; $a <= 1000 ; $a++) {
        if (defined @items[0]->[$a]->{"id"}) {
            # option selection will be automatically set by Imperia
            $html .= sprintf(
                '<option value="%s">%s</option>',
                @items[0]->[$a]->{"id"},
                encode_utf8(@items[0]->[$a]->{"label"}),
            );
        }
    }

    return $html;
}

sub _getData
{
    my $url = sprintf(
        "%s%s",
        $ENV{'API_BASE_URL'},
        "/ajax/imperia/countrylist/de"
    );
 
    my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 1 });
    my $header = HTTP::Request->new(GET => $url);
    my $request = HTTP::Request->new('GET', $url, $header);
    my $response = $ua->request($request);

    if (!$response || $response->is_error || !$response->is_success) {
        return;
    }

    my $response = decode_json($response->content);
    my @items = $response->{"countries"};

    return @items;
}

$new = main();