75 lines
2.2 KiB
Diff
75 lines
2.2 KiB
Diff
|
diff -Nru Net_SSLeay.pm-1.25.orig/test.pl Net_SSLeay.pm-1.25/test.pl
|
||
|
|
--- Net_SSLeay.pm-1.25.orig/test.pl 2004-10-15 11:22:04.000000000 +0200
|
||
|
|
+++ Net_SSLeay.pm-1.25/test.pl 2004-10-15 11:28:50.000000000 +0200
|
||
|
|
@@ -163,70 +163,6 @@
|
||
|
|
&Net::SSLeay::FILETYPE_PEM());
|
||
|
|
print &test(13, $r);
|
||
|
|
|
||
|
|
-#app.iplanet.com
|
||
|
|
-my @sites = qw(
|
||
|
|
-www.cdw.com
|
||
|
|
-banking.wellsfargo.com
|
||
|
|
-secure.worldgaming.net
|
||
|
|
-www.ubs.com
|
||
|
|
- );
|
||
|
|
-#www.engelschall.com
|
||
|
|
-#www.openssl.org
|
||
|
|
-
|
||
|
|
-if ($trace) {
|
||
|
|
-print " Now about to contact external sites...\n\twww.bacus.pt\n";
|
||
|
|
-print map "\t$_\n", @sites;
|
||
|
|
-print " You have 5 seconds of time to hit Ctrl-C if you do not like this.\n";
|
||
|
|
-print " So far there were no errors in tests.\n" unless $errors;
|
||
|
|
-print "*** $errors tests failed already.\n" if $errors;
|
||
|
|
-print " Following tests _will_ fail if you do not have network\n"
|
||
|
|
- . " connectivity (or if the servers are down or have changed).\n";
|
||
|
|
-sleep 5;
|
||
|
|
-}
|
||
|
|
-
|
||
|
|
-$ENV{RND_SEED} = '1234567890123456789012345678901234567890';
|
||
|
|
-print &test('14 www.bacus.pt',
|
||
|
|
- &Net::SSLeay::sslcat("www.bacus.pt", 443,
|
||
|
|
- "get\n\r\n\r") =~ /<TITLE>/);
|
||
|
|
-
|
||
|
|
-sub test_site ($$) {
|
||
|
|
- my ($test_nro, $site) = @_;
|
||
|
|
- my ($p, $r) = ('','');
|
||
|
|
- my %h;
|
||
|
|
- warn "Trying $site...\n";
|
||
|
|
- $Net::SSLeay::trace=0;
|
||
|
|
- $Net::SSLeay::version=0;
|
||
|
|
-
|
||
|
|
- ($p, $r, %h) = Net::SSLeay::get_https($site, 443, '/');
|
||
|
|
- if (!defined($h{SERVER})) {
|
||
|
|
- print &test("$test_nro $site ($r)", scalar($r =~ /^HTTP\/1/s));
|
||
|
|
- print "\t$site, initial attempt with auto negotiate failed\n";
|
||
|
|
-
|
||
|
|
- $Net::SSLeay::trace=3;
|
||
|
|
- $Net::SSLeay::version=2;
|
||
|
|
- print "\tset version to 2\n";
|
||
|
|
- ($p, $r, %h) = Net::SSLeay::get_https($site, 443, '/');
|
||
|
|
-
|
||
|
|
- $Net::SSLeay::version=3;
|
||
|
|
- print "\tset version to 3\n";
|
||
|
|
- ($p, $r, %h) = Net::SSLeay::get_https($site, 443, '/');
|
||
|
|
- $Net::SSLeay::trace=0;
|
||
|
|
- }
|
||
|
|
-
|
||
|
|
- print join '', map("\t$_=>$h{$_}\n", sort keys %h) if $trace>1;
|
||
|
|
-
|
||
|
|
- if (defined($h{SERVER})) {
|
||
|
|
- print &test("$test_nro $site ($h{SERVER})", scalar($r =~ /^HTTP\/1/s));
|
||
|
|
- } else {
|
||
|
|
- print &test("$test_nro $site ($r)", scalar($r =~ /^HTTP\/1/s));
|
||
|
|
- }
|
||
|
|
-}
|
||
|
|
-
|
||
|
|
-my $i = 15;
|
||
|
|
-my $s;
|
||
|
|
-for $s (@sites) {
|
||
|
|
- &test_site($i++, $s );
|
||
|
|
-}
|
||
|
|
|
||
|
|
die "*** WARNING: There were $errors errors in the tests.\n" if $errors;
|
||
|
|
print "All tests completed OK.\n" if $trace;
|