Smarter server post

server-post-v3-by-massa.raku

sub format-error(X::Cro::HTTP::Error $_) {
  my $status-line = .response.Str.lines.first;
  my $resp-body = do { await .response.body-blob }.decode;
  my $req-method = .request.method;
  my $req-target = .request.target;
  my $req-body = do { await .request.body-blob }.decode;
  "ERROR $status-line WITH $resp-body FOR $req-method $req-target WITH $req-body"
}

sub server-post($data) {
  our $cro;
  do {
    my $r = await $cro.post: "{SERVER-URI}/{DATA-PATH}", body => $data;
    my $count = NUMBER-OF-RETRIES;
    while $count-- and $r.status == 503|401 {
      sleep COOLING-OFF-PERIOD;
      server-login if $r.status == 401;
      $r = await $cro.post: "{SERVER-URI}/{DATA-PATH}", body => $data;
    }
    await $r.body
  }
  
  CATCH {
    when X::Cro::HTTP::Client::Timeout {
      note 'got a timeout, cooling off for a little bit more';
      sleep 5 * COOLING-OFF-PERIOD;
      server-login
    }
    when X::Cro::HTTP::Error {
      note format-error $_
    }
  }
}