Hello!
tired of patching myself this up every time a new version gets out :D :D
would somebody mind putting this into the ssl distro?
its really very small, and it allows to put the keys wherever you wish
without breaking the actual working sceme...
all you need to use it is to add a line like that one somewhere before
invoking new on the ServerTcp object...
$ServerTcp::keypath = "/somepath/to/keys";
--
ciao bboett
==============================================================
[EMAIL PROTECTED]
http://inforezo.u-strasbg.fr/~bboett
===============================================================
--- poe-ssl-sockets.org/ServerTcp.pm 2004-01-20 15:26:25.000000000 +0100
+++ poe-ssl-sockets/ServerTcp.pm 2004-04-06 14:01:07.000000000 +0200
@@ -4,7 +4,7 @@
use strict;
-use vars qw($VERSION);
+use vars qw($VERSION $keypath);
$VERSION = (qw($Revision: 1.36 $ ))[1];
use Carp qw(carp croak);
@@ -164,13 +164,16 @@
use Symbol qw(gensym);
use SslServer;
+ $keypath = "./" if(!$keypath);
+ $keypath .= "/" if(!($keypath =~ /\/$/));
+
my $old_socket = $socket;
$socket = gensym();
tie( *$socket,
"SslServer",
$old_socket,
- "./plain-rsa.pem",
- "./plain-cert.pem",
+ $keypath."plain-rsa.pem",
+ $keypath."plain-cert.pem",
) or die $!;
# CEASE MAKE SSL
