projekt kivitendo

# ua multiple form-data

sub init_ua {

  my ($self) = @_;

  my $section = 'bekuplast_elo';

  my $config  = $::lx_office_conf{$section} || {};

  my $client;

  # mandatory config parameters

  foreach (qw(user pass apikey)) {

    die "parameter '$_' in section '$section' must be set in config file" if !defined $config->{$_};

  }

  $client = REST::Client->new(host => $self->host);

  # no test case available in ELO API

  # and set ua we need this, because ELO wants multippart/form-data

  my $ua = $self->client->getUseragent();

  $ua->default_header(Authorization  => 'Basic ' . encode_base64($config->{user} . ':' . $config->{pass}),

                      apikey         => $config->{apikey},

                      'Content-Type' => 'multipart/form-data',

                     );

  return $ua;

}