projects
/
openssl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add a test for unencrypted alert
[openssl.git]
/
util
/
perl
/
TLSProxy
/
Message.pm
diff --git
a/util/perl/TLSProxy/Message.pm
b/util/perl/TLSProxy/Message.pm
index 56570f9beb34646385329b4222e8f6b20febee96..44952ad0fce7fce88f29a8630d880d3633e17e46 100644
(file)
--- a/
util/perl/TLSProxy/Message.pm
+++ b/
util/perl/TLSProxy/Message.pm
@@
-9,6
+9,8
@@
use strict;
package TLSProxy::Message;
package TLSProxy::Message;
+use TLSProxy::Alert;
+
use constant TLS_MESSAGE_HEADER_LENGTH => 4;
#Message types
use constant TLS_MESSAGE_HEADER_LENGTH => 4;
#Message types
@@
-140,6
+142,7
@@
my @message_rec_list = ();
my @message_frag_lens = ();
my $ciphersuite = 0;
my $successondata = 0;
my @message_frag_lens = ();
my $ciphersuite = 0;
my $successondata = 0;
+my $alert;
sub clear
{
sub clear
{
@@
-152,6
+155,7
@@
sub clear
$successondata = 0;
@message_rec_list = ();
@message_frag_lens = ();
$successondata = 0;
@message_rec_list = ();
@message_frag_lens = ();
+ $alert = undef;
}
#Class method to extract messages from a record
}
#Class method to extract messages from a record
@@
-281,6
+285,11
@@
sub get_messages
if ($alertlev == AL_LEVEL_FATAL || $alertdesc == AL_DESC_CLOSE_NOTIFY) {
$end = 1;
}
if ($alertlev == AL_LEVEL_FATAL || $alertdesc == AL_DESC_CLOSE_NOTIFY) {
$end = 1;
}
+ $alert = TLSProxy::Alert->new(
+ $server,
+ $record->encrypted,
+ $alertlev,
+ $alertdesc);
}
return @messages;
}
return @messages;
@@
-388,6
+397,12
@@
sub fail
my $class = shift;
return !$success && $end;
}
my $class = shift;
return !$success && $end;
}
+
+sub alert
+{
+ return $alert;
+}
+
sub new
{
my $class = shift;
sub new
{
my $class = shift;