projekt kivitendo

  push @errors, $::locale->text('The path is missing.')        unless $self->{path};

  push @errors, $::locale->text('The Host Name is missing')    unless $self->{server};

  push @errors, $::locale->text('The Host Name seems invalid') unless $self->{server} =~ m/[0-9A-Za-z].\.[0-9A-Za-z]/;

  push @errors, $::locale->text('The Proxy Name seems invalid') . $self->{proxy} . ':' unless !$self->{proxy} ||  $self->{proxy} =~ m/[0-9A-Za-z].\.[0-9A-Za-z]/;

  push @errors, $::locale->text('Orders to fetch neeeds a positive Integer')

                                                               unless $self->{orders_to_fetch} > 0;

sub init_connector {

  my ($self) = @_;

  $client->getUseragent()->proxy([$self->config->protocol], $self->config->proxy) if $self->config->proxy;

  $client->addHeader('Content-Type', 'application/json');

  $client->addHeader('charset',      'UTF-8');

  $client->addHeader('Accept',       'application/json');