Add ARM files

[dh-make-perl] / dev / arm / libnet-ssleay-perl / libnet-ssleay-perl-1.35 / debian / libnet-ssleay-perl / usr / share / doc / libnet-ssleay-perl / examples / sslcat.pl

diff --git a/dev/arm/libnet-ssleay-perl/libnet-ssleay-perl-1.35/debian/libnet-ssleay-perl/usr/share/doc/libnet-ssleay-perl/examples/sslcat.pl b/dev/arm/libnet-ssleay-perl/libnet-ssleay-perl-1.35/debian/libnet-ssleay-perl/usr/share/doc/libnet-ssleay-perl/examples/sslcat.pl
new file mode 100755 (executable)
index 0000000..9254f90
--- /dev/null
+++ b/dev/arm/libnet-ssleay-perl/libnet-ssleay-perl-1.35/debian/libnet-ssleay-perl/usr/share/doc/libnet-ssleay-perl/examples/sslcat.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+# sslcat.pl - Send a message and receive a reply from SSL server.
+#
+# Copyright (c) 1996-2001 Sampo Kellomaki <sampo@iki.fi>, All Rights Reserved.
+# $Id: sslcat.pl,v 1.3 2003/08/17 07:07:28 sampo Exp $
+# Date:   7.6.1996
+ 
+$host = 'localhost' unless $host = shift;
+$port = 443         unless $port = shift;
+$msg = "get \n\r\n" unless $msg = shift;
+
+$ENV{RND_SEED} = '1234567890123456789012345678901234567890';
+print "$host $port $msg\n";
+use Net::SSLeay qw(sslcat);
+print sslcat($host, $port, $msg);
+ 
+__END__