diff options
author | Dylan William Hardison <dylan@hardison.net> | 2018-04-05 03:24:29 +0200 |
---|---|---|
committer | Dylan William Hardison <dylan@hardison.net> | 2018-06-28 22:41:54 +0200 |
commit | e680057dd24ea4290096f4420bdd5c354acea024 (patch) | |
tree | e4aef0eb7755dc8b784901c83eee23f6c13b8638 /Bugzilla/CGI | |
parent | ed6d5cdaaeac6422e5933e4e8138b481e35ab4f3 (diff) | |
download | bugzilla-e680057dd24ea4290096f4420bdd5c354acea024.tar.gz bugzilla-e680057dd24ea4290096f4420bdd5c354acea024.tar.xz |
support cgi->http(), remote_ip(), and fix sanity tests
Diffstat (limited to 'Bugzilla/CGI')
-rw-r--r-- | Bugzilla/CGI/Mojo.pm | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/Bugzilla/CGI/Mojo.pm b/Bugzilla/CGI/Mojo.pm index 0ae12f976..e3adf1133 100644 --- a/Bugzilla/CGI/Mojo.pm +++ b/Bugzilla/CGI/Mojo.pm @@ -20,10 +20,21 @@ sub script_name { return $self->controller->req->env->{SCRIPT_NAME}; } +sub http { + my ($self, $header) = @_; + return $self->controller->req->headers->header($header); +} + +sub redirect { + my ($self, $location) = @_; + + $self->controller->redirect_to($location); +} + sub Vars { my ($self) = @_; return $self->controller->req->query_params->to_hash; } -1;
\ No newline at end of file +1; |