X-Git-Url: http://git.maemo.org/git/?p=dh-make-perl;a=blobdiff_plain;f=dev%2Farm%2Flibnet-ssleay-perl%2Flibnet-ssleay-perl-1.35%2Fdebian%2Flibnet-ssleay-perl%2Fusr%2Fshare%2Fdoc%2Flibnet-ssleay-perl%2Fexamples%2Fstdio_bulk.pl;fp=dev%2Farm%2Flibnet-ssleay-perl%2Flibnet-ssleay-perl-1.35%2Fdebian%2Flibnet-ssleay-perl%2Fusr%2Fshare%2Fdoc%2Flibnet-ssleay-perl%2Fexamples%2Fstdio_bulk.pl;h=adf145c82ba27d854ed35bda3c615a0434e059c3;hp=0000000000000000000000000000000000000000;hb=f477fa73365d491991707e7ed9217b48d6994551;hpb=da95c414033799c3a62606f299c3c00b5c77ca11

diff --git a/dev/arm/libnet-ssleay-perl/libnet-ssleay-perl-1.35/debian/libnet-ssleay-perl/usr/share/doc/libnet-ssleay-perl/examples/stdio_bulk.pl b/dev/arm/libnet-ssleay-perl/libnet-ssleay-perl-1.35/debian/libnet-ssleay-perl/usr/share/doc/libnet-ssleay-perl/examples/stdio_bulk.pl
new file mode 100755
index 0000000..adf145c
--- /dev/null
+++ b/dev/arm/libnet-ssleay-perl/libnet-ssleay-perl-1.35/debian/libnet-ssleay-perl/usr/share/doc/libnet-ssleay-perl/examples/stdio_bulk.pl
@@ -0,0 +1,82 @@
+#!/usr/local/bin/perl
+# stdio_bulk.pl - 8.6.1998, Sampo Kellomaki <sampo@iki.fi>
+# Send tons of stuff over SSL connected by STDIO pipe.
+# This also demonstrates how you can communicate via arbitrary stream, not
+# just a TCP one.
+# $Id: stdio_bulk.pl,v 1.3 2003/06/13 21:14:41 sampo Exp $
+
+use Socket;
+use Net::SSLeay qw(die_now die_if_ssl_error);
+$ENV{RND_SEED} = '1234567890123456789012345678901234567890';
+Net::SSLeay::randomize();
+Net::SSLeay::load_error_strings();
+Net::SSLeay::SSLeay_add_ssl_algorithms();
+#$Net::SSLeay::trace = 2;
+
+($cert_pem, $key_pem, $how_much) = @ARGV;      # Read command line
+
+$ctx = Net::SSLeay::CTX_new() or die_now("Failed to create SSL_CTX $!");
+Net::SSLeay::set_server_cert_and_key($ctx, $cert_pem, $key_pem) or die "key";
+
+pipe RS, WC or die "pipe 1 ($!)";
+pipe RC, WS or die "pipe 2 ($!)";
+select WC; $| = 1;
+select WS; $| = 1;
+select STDOUT;
+$| = 1;
+
+if ($child_pid = fork) {
+    print "$$: I'm the server for child $child_pid\n";
+    $ssl = Net::SSLeay::new($ctx)     or die_now "$$: new ($ssl) ($!)";
+    
+    Net::SSLeay::set_rfd($ssl, fileno(RS));
+    Net::SSLeay::set_wfd($ssl, fileno(WS));
+    
+    Net::SSLeay::accept($ssl) and die_if_ssl_error("$$: ssl accept: $!");
+    print "$$: Cipher `" . Net::SSLeay::get_cipher($ssl) . "'\n";
+    #print "$$: " . Net::SSLeay::dump_peer_certificate($ssl);
+    
+    $got = Net::SSLeay::ssl_read_all($ssl,$how_much)
+	or die "$$: ssl read failed";
+    print "$$: got " . length($got) . " bytes\n";
+    Net::SSLeay::ssl_write_all($ssl, \$got) or die "$$: ssl write failed";
+    $got = '';
+    
+    Net::SSLeay::free ($ssl);               # Tear down connection
+    Net::SSLeay::CTX_free ($ctx);
+
+    wait;  # wait for child to read the stuff
+
+    close WS;
+    close RS;
+    print "$$: server done ($?).\n"
+	. (($? >> 8) ? "ERROR\n" : "OK\n"); 
+    exit;
+}
+
+print "$$: I'm the child.\n";
+sleep 1;  # Give server time to get its act together
+
+$ssl = Net::SSLeay::new($ctx) or die_now("Failed to create SSL $!");
+Net::SSLeay::set_rfd($ssl, fileno(RC));
+Net::SSLeay::set_wfd($ssl, fileno(WC));
+Net::SSLeay::connect($ssl);
+die_if_ssl_error("ssl connect");
+
+print "$$: Cipher `" . Net::SSLeay::get_cipher($ssl) . "'\n";
+print "$$: " . Net::SSLeay::dump_peer_certificate($ssl);
+
+# Exchange data
+
+$data = 'B' x $how_much;
+Net::SSLeay::ssl_write_all($ssl, \$data) or die "$$: ssl write failed";
+$got = Net::SSLeay::ssl_read_all($ssl, $how_much)
+    or die "$$: ssl read failed";
+
+Net::SSLeay::free ($ssl);               # Tear down connection
+Net::SSLeay::CTX_free ($ctx);
+close WC;
+close RC;
+exit ($data ne $got);
+
+__END__