Lines Matching refs:self
82 my $self = {
112 my $proxaddr = $self->{proxy_addr};
122 $self->{proxy_sock} = $sock;
123 $self->{proxy_port} = $sock->sockport();
124 $self->{proxy_addr} = $sock->sockhost();
125 $self->{proxy_addr} =~ s/(.*:.*)/[$1]/;
127 "$self->{proxy_addr}:$self->{proxy_port}\n";
129 $self->{server_addr} = $self->{proxy_addr};
134 return bless $self, $class;
139 my $self = shift;
141 $self->{proxy_sock}->close() if $self->{proxy_sock};
146 my $self = shift;
148 $self->{cipherc} = "";
149 $self->{ciphersuitec} = "";
150 $self->{flight} = -1;
151 $self->{direction} = -1;
152 $self->{partial} = ["", ""];
153 $self->{record_list} = [];
154 $self->{message_list} = [];
155 $self->{clientflags} = "";
156 $self->{sessionfile} = undef;
157 $self->{clientpid} = 0;
167 my $self = shift;
169 $self->clearClient;
170 $self->{ciphers} = "AES128-SHA";
171 $self->{ciphersuitess} = "TLS_AES_128_GCM_SHA256";
172 $self->{serverflags} = "";
173 $self->{serverconnects} = 1;
174 $self->{serverpid} = 0;
175 $self->{reneg} = 0;
180 my $self = shift;
182 $self->clear;
183 $self->start;
188 my $self = shift;
190 $self->clear;
191 $self->clientstart;
196 my $self = shift;
197 my $servaddr = $self->{server_addr};
202 PeerPort => $self->{server_port},
206 kill(3, $self->{real_serverpid});
210 $self->{server_sock} = $sock;
215 my ($self) = shift;
218 if ($self->{proxy_sock} == 0) {
222 my $execcmd = $self->execute
230 ." -accept $self->{server_addr}:0"
231 ." -cert ".$self->cert." -cert2 ".$self->cert
232 ." -naccept ".$self->serverconnects;
233 if ($self->ciphers ne "") {
234 $execcmd .= " -cipher ".$self->ciphers;
236 if ($self->ciphersuitess ne "") {
237 $execcmd .= " -ciphersuites ".$self->ciphersuitess;
239 if ($self->serverflags ne "") {
240 $execcmd .= " ".$self->serverflags;
242 if ($self->debug) {
250 $self->{real_serverpid} = $pid;
258 $self->{server_port} = $1;
262 if ($self->{server_port} == 0) {
278 $self->{proc_handle} = $h; # hold handle till next round [or exit]
295 kill(3, $self->{real_serverpid});
299 $self->{serverpid} = $pid;
302 "$self->{server_addr}:$self->{server_port}\n";
305 $self->connect_to_server();
307 return $self->clientstart;
312 my ($self) = shift;
314 if ($self->execute) {
316 my $execcmd = $self->execute
318 ." -connect $self->{proxy_addr}:$self->{proxy_port}";
319 if ($self->cipherc ne "") {
320 $execcmd .= " -cipher ".$self->cipherc;
322 if ($self->ciphersuitesc ne "") {
323 $execcmd .= " -ciphersuites ".$self->ciphersuitesc;
325 if ($self->clientflags ne "") {
326 $execcmd .= " ".$self->clientflags;
328 if ($self->clientflags !~ m/-(no)?servername/) {
331 if (defined $self->sessionfile) {
334 if ($self->debug) {
344 kill(3, $self->{real_serverpid});
347 $self->{clientpid} = $pid;
350 print $self->reneg ? "R" : "test";
358 my $fdset = IO::Select->new($self->{proxy_sock});
360 kill(3, $self->{real_serverpid});
365 if(!($client_sock = $self->{proxy_sock}->accept())) {
372 my $server_sock = $self->{server_sock};
380 $self->{saw_session_ticket} = undef;
382 if (defined($self->{sessionfile})) {
386 && $self->{saw_session_ticket};
395 if ($indata = $self->process_packet(1, $indata)) {
405 if ($indata = $self->process_packet(0, $indata)) {
414 kill(3, $self->{real_serverpid});
421 kill(3, $self->{real_serverpid});
429 $self->{server_sock} = undef;
437 if (--$self->{serverconnects} == 0) {
438 $pid = $self->{serverpid};
444 kill(3, $self->{real_serverpid});
445 die "lost control over $self->{serverpid}?";
447 $pid = $self->{real_serverpid};
457 $self->connect_to_server();
459 $pid = $self->{clientpid};
468 my ($self, $server, $packet) = @_;
480 if ($self->{direction} != $server) {
481 $self->{flight} = $self->{flight} + 1;
482 $self->{direction} = $server;
486 print "Processing flight ".$self->flight."\n";
490 my @ret = TLSProxy::Record->get_records($server, $self->flight,
491 $self->{partial}[$server].$packet);
492 $self->{partial}[$server] = $ret[2];
493 push @{$self->{record_list}}, @{$ret[0]};
494 push @{$self->{message_list}}, @{$ret[1]};
503 if (defined $self->filter) {
504 $self->filter->($self);
508 foreach my $message (reverse @{$self->{message_list}}) {
510 $self->{saw_session_ticket} = 1;
517 foreach my $record (@{$self->record_list}) {
529 my $self = shift;
530 return $self->{execute};
534 my $self = shift;
535 return $self->{cert};
539 my $self = shift;
540 return $self->{debug};
544 my $self = shift;
545 return $self->{flight};
549 my $self = shift;
550 return $self->{record_list};
554 my $self = shift;
555 return $self->{success};
559 my $self = shift;
560 return $self->{end};
564 my $self = shift;
569 my $self = shift;
570 return $self->{proxy_addr};
574 my $self = shift;
575 return $self->{proxy_port};
579 my $self = shift;
580 return $self->{server_addr};
584 my $self = shift;
585 return $self->{server_port};
589 my $self = shift;
590 return $self->{serverpid};
594 my $self = shift;
595 return $self->{clientpid};
601 my $self = shift;
603 $self->{filter} = shift;
605 return $self->{filter};
609 my $self = shift;
611 $self->{cipherc} = shift;
613 return $self->{cipherc};
617 my $self = shift;
619 $self->{ciphersuitesc} = shift;
621 return $self->{ciphersuitesc};
625 my $self = shift;
627 $self->{ciphers} = shift;
629 return $self->{ciphers};
633 my $self = shift;
635 $self->{ciphersuitess} = shift;
637 return $self->{ciphersuitess};
641 my $self = shift;
643 $self->{serverflags} = shift;
645 return $self->{serverflags};
649 my $self = shift;
651 $self->{clientflags} = shift;
653 return $self->{clientflags};
657 my $self = shift;
659 $self->{serverconnects} = shift;
661 return $self->{serverconnects};
669 my $self = shift;
671 $self->{message_list} = shift;
673 return $self->{message_list};
697 my $self = shift;
699 $self->{reneg} = shift;
701 return $self->{reneg};
712 my $self = shift;
714 $self->{sessionfile} = shift;
717 return $self->{sessionfile};