r17466 - in /branches/upstream/libhttp-server-simple-perl/current: Changes SIGNATURE lib/HTTP/Server/Simple.pm

[tincho-guest at users.alioth.debian.org]

Author: tincho-guest
Date: Sat Mar 15 05:53:04 2008
New Revision: 17466

URL: http://svn.debian.org/wsvn/?sc=1&rev=17466
Log:
[svn-upgrade] Integrating new upstream version, libhttp-server-simple-perl (0.30)

Modified:
    branches/upstream/libhttp-server-simple-perl/current/Changes
    branches/upstream/libhttp-server-simple-perl/current/SIGNATURE
    branches/upstream/libhttp-server-simple-perl/current/lib/HTTP/Server/Simple.pm

Modified: branches/upstream/libhttp-server-simple-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libhttp-server-simple-perl/current/Changes?rev=17466&op=diff
==============================================================================
--- branches/upstream/libhttp-server-simple-perl/current/Changes (original)
+++ branches/upstream/libhttp-server-simple-perl/current/Changes Sat Mar 15 05:53:04 2008
@@ -1,3 +1,8 @@
+0.30 Tue Mar 11 12:14:24 EDT 2008
+
+* Minor doc fix from Paul Miller. 
+* Fixing doc style from "$this" to "$self" like any self-respecting perl code
+
 0.29 Fri Feb 15 11:43:29 EST 2008
 
 * new example section from almut on perlmonks

Modified: branches/upstream/libhttp-server-simple-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/branches/upstream/libhttp-server-simple-perl/current/SIGNATURE?rev=17466&op=diff
==============================================================================
--- branches/upstream/libhttp-server-simple-perl/current/SIGNATURE (original)
+++ branches/upstream/libhttp-server-simple-perl/current/SIGNATURE Sat Mar 15 05:53:04 2008
@@ -14,7 +14,7 @@
 -----BEGIN PGP SIGNED MESSAGE-----
 Hash: SHA1
 
-SHA1 1169fda38432a0b835a619128f524a44dbf913cc Changes
+SHA1 aaa5973569bfe855b7f58b3e39c2b2d27a3aa327 Changes
 SHA1 0ac508c50476dcc2bf8fe3094cb341425291e1ee MANIFEST
 SHA1 de5abaa8229fa5378d21eeb328081c8f14a7b488 META.yml
 SHA1 3a02ba613b11b07dd1fa97e2a6b962ee3e039c98 Makefile.PL
@@ -28,7 +28,7 @@
 SHA1 5d6189b2cad15cf9932a28faafd55130c8247e83 inc/Module/Install/Metadata.pm
 SHA1 02af973fae2ac3531fa6b704574b2b8cb2a08148 inc/Module/Install/Win32.pm
 SHA1 3a2eab96e91cca8d99938cda7791759ae9d97b3a inc/Module/Install/WriteAll.pm
-SHA1 f3dc37bcbde91e7842c39a9aed62e68f188ea5cf lib/HTTP/Server/Simple.pm
+SHA1 f5647cef6a4255c622113967654c415b67ec217b lib/HTTP/Server/Simple.pm
 SHA1 40f24374f2b5845a3025e14ca4b91bd58298de03 lib/HTTP/Server/Simple/CGI.pm
 SHA1 47ef836a1cdd03add505dd4c90819cafb61dc565 lib/HTTP/Server/Simple/CGI/Environment.pm
 SHA1 db064af54cab345a71daec576e32e64b8fb1033d t/00smoke.t
@@ -39,7 +39,7 @@
 -----BEGIN PGP SIGNATURE-----
 Version: GnuPG v1.4.8 (Darwin)
 
-iD8DBQFHtcFPEi9d9xCOQEYRAsxZAKDA8ITW0PRKPl/szr3nRGyy0dIIuwCbBUqW
-vZRZsBd3mlE7l0EkMlxXV1M=
-=nUTd
+iD8DBQFH1rBEEi9d9xCOQEYRAusqAJsFwS6wO1qvPzvFxVQEy3QQwZSlAgCgs4AG
+rL8Z13+0oDUZviZ7CrgxqQE=
+=MnVf
 -----END PGP SIGNATURE-----

Modified: branches/upstream/libhttp-server-simple-perl/current/lib/HTTP/Server/Simple.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libhttp-server-simple-perl/current/lib/HTTP/Server/Simple.pm?rev=17466&op=diff
==============================================================================
--- branches/upstream/libhttp-server-simple-perl/current/lib/HTTP/Server/Simple.pm (original)
+++ branches/upstream/libhttp-server-simple-perl/current/lib/HTTP/Server/Simple.pm Sat Mar 15 05:53:04 2008
@@ -8,7 +8,7 @@
 use URI::Escape;
 
 use vars qw($VERSION $bad_request_doc);
-$VERSION = '0.29';
+$VERSION = '0.30';
 
 
 =head1 NAME
@@ -541,7 +541,25 @@
 =head2 accept_hook
 
 If defined by a sub-class, this method is called directly after an
-accept happens.
+accept happens.  An accept_hook to add SSL support might look like this:
+
+    sub accept_hook {
+        my $self = shift;
+        my $fh   = $self->stdio_handle;
+
+        $self->SUPER::accept_hook(@_);
+
+        my $newfh =
+        IO::Socket::SSL->start_SSL( $fh, 
+            SSL_server    => 1,
+            SSL_use_cert  => 1,
+            SSL_cert_file => 'myserver.crt',
+            SSL_key_file  => 'myserver.key',
+        )
+        or warn "problem setting up SSL socket: " . IO::Socket::SSL::errstr();
+
+        $self->stdio_handle($newfh) if $newfh;
+    }
 
 =head2 post_setup_hook