in reply to Mojolicious connection to Atlas ssl cluster fails: "Premature connection close"

> So I have one wrong scenario out of 6. The scenario with ssl=true via Mojolicious, internally managed via IO::Socket::SSL.

... 
> openssl s_client -servername host_atlas -connect host_atlas:1024

CONNECTED(00000006)

[download]

Did you tried connecting to failed host with IO::Socket::SSL yourself? Like: 

 
#!/usr/bin/env perl
use strict;
use IO::Socket::SSL;

my $cl = IO::Socket::SSL->new('host_atlas:1024') 
   or die "error=$!, ssl_error=$SSL_ERROR";

[download]

Replies are listed 'Best First'.
Re^2: Mojolicious connection to Atlas ssl cluster fails: "Premature connection close"
by jjmoka (Beadle) on Mar 03, 2022 at 07:57 UTC
    thanks,
    yes, I tried to isolate some pieces with the following snippets: 
    use IO::Socket::SSL;
my $client = IO::Socket::SSL->new('host_atlas:1024')
    or die "error=$!, ssl_error=$SSL_ERROR";
print 'done';

    [download]
    gives 
       >perl test.pl
    done%

    use Mojo::IOLoop::Client;
my $client = Mojo::IOLoop::Client->new;
$client->on(connect => sub ($client, $handle) {print "on_connect\n"});
$client->on(error   => sub ($client, $err)    {print "on_error\n"});
$client->connect({address => 'host_atlas', port => 1024});

$client->reactor->start unless $client->reactor->is_running;
print 'done';

    [download]
    gives 
       >perl test.pl
   -- Emit connect in Mojo::IOLoop::Client (1)
   on_connect
   done%

    use feature 'state';
use Mango;
use Mojo::IOLoop::Client;

my $connect_string=$ARGV[0];
sub mango { state $m = Mango->new($connect_string);}
  mango->db('mydb')->list_collections(sub {
   my ($db, $err, $cursor) = @_;
   print "YESSSSSSSSSSS !!!!\n";
 });
 Mojo::IOLoop->start unless Mojo::IOLoop->is_running;

    [download]
    gives 
       >perl test.pl "$ATLAS_STRING"
   -- Emit connect in Mojo::IOLoop::Client (1)
   -- Emit write in Mojo::IOLoop::Stream (0)
   -- Emit drain in Mojo::IOLoop::Stream (0)
   -- Emit close in Mojo::IOLoop::Stream (2)
   -- Emit error in Mojo::Reactor::Poll (1)
   Mojo::Reactor::Poll: I/O watcher failed: Can't use an undefined value as an ARRAY reference at /var/..../local/lib/perl5/Mango/Cursor.pm line 11.
   done%
[reply]
[d/l]
[select]

      One more check: the only thing that differs between OK and FAIL tests - is SSL? Or there are different MongoDB versions? MongoDB is not friendly to community, and I think there could be changes in versions which will break compatibility, so versions of servers is important (at least to know it they differs or same).

      If I were you, first thing to do is to search call stack sub by sub to find where this error comes from, placing debugging prints everywhere. Then I would try to file an issue (https://github.com/oliwer/mango/issues). If filing an issue will not resolve the problem, try to reach Sebastian Riedel himself on mojo IRC (https://web.libera.chat/#mojo) and ask him what to do. I've done it myself when stuck in Mojolicious. He have sharp tongue, but what could you do? And then, if nothing helps, you can always return to call stack one more time, and try to find the cause yourself. Who knows, where this adventure will lead you to?

[reply]
        Ah ah, yes tracing & debugging is what I've been doing and I'll keep doing.
        It's just that after a while I also opted to share and increase the chances to reach a solution.
        I've read this when Sebastian Riedel gave up with Mango develop
        and I also know that Mongo no more officially supports Perl.
        I had a chance to guess about the 'sharp tongue' reading both the discussion on issue 1223 and the following PR's review, but that is fine.

        Yes, the versions of the old MongoDB cluster and the new Atlas one are different. It does seem, as you suggest, there is some incompatibility server side to also figure out.

        Thanks for the advises and for your time.
[reply]
Re^2: Mojolicious connection to Atlas ssl cluster fails: "Premature connection close"
by alexander_lunev (Pilgrim) on Mar 03, 2022 at 06:29 UTC

    Oops, was not logged in.

[reply]

In Section Seekers of Perl Wisdom