Revision c05fec98
Von Jan Büren vor mehr als 3 Jahren hinzugefügt
| SL/ShopConnector/Shopware6.pm | ||
|---|---|---|
|
$client->addHeader('Authorization' => 'Bearer ' . $token);
|
||
|
return $client;
|
||
|
}
|
||
|
# 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;
|
||
|
}
|
||
|
|
||
|
|
||
|
sub import_data_to_shop_order {
|
||
|
my ($self, $import) = @_;
|
||
Auch abrufbar als: Unified diff
Toten Code entfernt