Server post with retries by Humberto Massa

server-post-v2-by-massa.raku

constant NUMBER-OF-RETRIES = 3; # YMMV
constant COOLING-OFF-PERIOD = 2; # this is plenty to stall this thread

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
  }
}