From 353fef2430dc994ed5328ddbd6db5dfa82a97a5a Mon Sep 17 00:00:00 2001
From: Dietmar Maurer <dietmar@proxmox.com>
Date: Thu, 11 Apr 2013 08:31:42 +0200
Subject: [PATCH] add tls_ctx to proxy requests

and fix a typo
---
 PVE/HTTPServer.pm | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/PVE/HTTPServer.pm b/PVE/HTTPServer.pm
index 33cb7ef9..99103ce0 100755
--- a/PVE/HTTPServer.pm
+++ b/PVE/HTTPServer.pm
@@ -282,8 +282,9 @@ sub proxy_request {
 	    $method => $target,
 	    headers => $headers,
 	    timeout => 30,
-	    resurse => 0,
+	    recurse => 0,
 	    body => $content,
+	    tls_ctx => $self->{tls_ctx},
 	    sub {
 		my ($body, $hdr) = @_;
 
@@ -715,6 +716,16 @@ sub write_log {
     }
 }
 
+sub atfork_handler {
+    my ($self) = @_;
+
+    eval {
+	# something else do to ?
+	close($self->{socket});
+    };
+    warn $@ if $@;
+}
+
 sub new {
     my ($this, %args) = @_;
 
@@ -729,9 +740,8 @@ sub new {
     # init inotify
     PVE::INotify::inotify_init();
 
-    my $atfork = sub { close($self->{socket}); };
     $self->{rpcenv} = PVE::RPCEnvironment->init(
-	$self->{trusted_env} ? 'priv' : 'pub', atfork => $atfork);
+	$self->{trusted_env} ? 'priv' : 'pub', atfork =>  sub { $self-> atfork_handler() });
 
     fh_nonblocking($self->{socket}, 1);