Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re^3: IO::Socket:SSL and Net::Server STDOUT redirection

by McA (Priest)
on Nov 17, 2014 at 19:59 UTC ( [id://1107471]=note: print w/replies, xml ) Need Help??


in reply to Re^2: IO::Socket:SSL and Net::Server STDOUT redirection
in thread IO::Socket:SSL and Net::Server STDOUT redirection

Hi Zucan,

sorry, but I have to admit I'm an idiot. While testing several options being curious, I did exactly the same as you:

print $client "The client should see this message.\n";

[download]

I left this line unchanged while changing others and was happy to "having found the solution".

Sorry again.

But with using openssl s_client I found out that sending the message via STDOUT seemed to circumvent the encryption layer. This lead me to the conclusion that you have to redirect some "upper" layer.

UPDATE: Being aschamed about my error I gave it another try. I now did a:

*STDOUT = $client;

[download]

I really hope this also works for you now.

Regards
McA

Replies are listed 'Best First'.
Re^4: IO::Socket:SSL and Net::Server STDOUT redirection
by Zucan (Beadle) on Nov 17, 2014 at 21:23 UTC

    Ah, that worked!

    Here is the working example: 
    #!/usr/bin/perl -w

use strict;
use IO::Socket::SSL;

my $port = 12345;

my $server = IO::Socket::SSL->new(
    LocalAddr => '127.0.0.1',
    LocalPort => $port,
    Listen => 10,
    Reuse => 1,
    SSL_cert_file => 'cert.pem',
    SSL_key_file => 'key.pem',
) or die "failed to listen: $!";

my $client = $server->accept;
*STDOUT = $client;
print "The client should see this STDOUT message.\n";
print $client "The client should see this SOCKET message.\n";
close($client);

    [download]
    The output I now see is as follows: 
    $ nc --ssl localhost 12345
The client should see this STDOUT message.
The client should see this SOCKET message.

    [download]
    Thank you!
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://1107471]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others about the Monastery: (3)
As of 2024-04-26 00:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found