Reading CSV, server-side

server-login-post-by-massa.raku

sub server-login() {
  my Lock \l .= new;
  our $cro;
  l.protect: {
    my $c = Cro::HTTP::Client.new:
      base-uri => SERVER-URL,
      content-type => JSON,
      user-agent => 'honking/2022.2.1',
      timeout => %(
        connection => 240,
        headers => 480,
      ),
      cookie-jar => Cro::HTTP::Client::CookieJar.new,
      ;
    await $c.post: "{SERVER-URI}/{SESSION-PATH}", body => CREDENTIALS
    $cro = $c
  }
  $cro
}

sub server-post($data) {
  our $cro;
  my $r = await $cro.post: "{SERVER-URI}/{DATA-PATH}", body => $data;
  await $r.body
}