Changeset 50

Timestamp:

08/19/09 20:35:06 (4 years ago)

Author:

clinton

Message:

Add IsSecure? convenience method to Request

Files:

• trunk/lib/Mungo/Request.pm (modified) (1 diff)

trunk/lib/Mungo/Request.pm

@@ -293 +293 @@
-}
-
+=head2 $bool = $req->IsSecure();
+
+Returns true or false depending on whether the request came in over HTTPS.
+
+=cut
+
+sub IsSecure {
+    my $self = shift;
+    my $r = $self->{Mungo}->{'Apache::Request'};
+    return $r->can('headers_in') ? $r->headers_in->get('X-SSL') : $r->header_in('X-SSL');
+}
+
-=head2 $value = $Request->Header('User-Agent');
-