version 1.6, 2004/05/28 09:37:03
|
version 1.7, 2004/06/01 09:53:44
|
Line 35 use strict;
|
Line 35 use strict;
|
|
|
# CPAN/Standard modules: |
# CPAN/Standard modules: |
|
|
use English; |
|
use IO::Socket::INET; |
use IO::Socket::INET; |
use IO::Socket::SSL; |
use IO::Socket::SSL; |
|
|
Line 79 sub PromoteClientSocket {
|
Line 78 sub PromoteClientSocket {
|
my ($PlaintextSocket, |
my ($PlaintextSocket, |
$CACert, |
$CACert, |
$MyCert, |
$MyCert, |
$KeyFile) = @ARG; |
$KeyFile) = @_; |
|
|
|
|
# To create the ssl socket we need to duplicate the existing |
# To create the ssl socket we need to duplicate the existing |
Line 117 sub PromoteServerSocket {
|
Line 116 sub PromoteServerSocket {
|
my ($PlaintextSocket, |
my ($PlaintextSocket, |
$CACert, |
$CACert, |
$MyCert, |
$MyCert, |
$KeyFile) = @ARG; |
$KeyFile) = @_; |
|
|
|
|
|
|