7 use IO::Socket::SSL; # qw(debug3);
12 my $sk = new IO::Socket::INET(
13 # PeerAddr => "nikam.ms.mff.cuni.cz:443",
14 PeerAddr => "localhost:8888",
16 ) or die "Cannot connect to server: $!";
19 defined $z or die "Server failed to send welcome message\n";
20 $z =~ /^\+/ or die "Server reported error: $z";
24 $sk = IO::Socket::SSL->start_SSL(
26 SSL_version => 'TLSv1',
28 SSL_key_file => "client-key.pem",
29 SSL_cert_file => "client-cert.pem",
30 SSL_ca_file => "ca-cert.pem",
32 ) or die "Cannot establish TLS connection: " . IO::Socket::SSL::errstr() . "\n";
42 my $x = new Sherlock::Object;
43 $x->read($sk) or die "Incomplete reply";
44 $x->get('+') or die "-" . $x->get('-') . "\n";
51 $req = new Sherlock::Object;
52 $req->set("U" => "testuser");
56 #$req = new Sherlock::Object;
57 #$req->set("!" => "SUBMIT", "T" => "plans", "X" => "pas", "S" => 100);
60 #print $sk "<..................................................................................................>";
63 $req = new Sherlock::Object;
64 $req->set("!" => "STATUS");
67 $reply->write_indented(*STDOUT);