diff --git a/opentrafficshaper/plugins/webserver/webserver.pm b/opentrafficshaper/plugins/webserver/webserver.pm index c5f697ed8045b2244e3559b8d1f00464034f3881..7db4a5ee7143161422539957a489ae083b47e8e8 100644 --- a/opentrafficshaper/plugins/webserver/webserver.pm +++ b/opentrafficshaper/plugins/webserver/webserver.pm @@ -246,6 +246,8 @@ sub server_client_disconnected sub server_request { my ($kernel,$heap,$session,$request) = @_[KERNEL, HEAP, SESSION, ARG0]; + + my $client_session_id = $session->ID; my $conn = $connections->{$client_session_id}; @@ -524,9 +526,10 @@ EOF sub _server_request_http { my ($kernel,$client_session_id,$request) = @_; - my $conn = $connections->{$client_session_id}; + my $conn = $connections->{$client_session_id}; + my $protocol = "HTTP"; # By default we're HTTP # Pull off connection attributes