diff options
| author | Dylan William Hardison <dylan@hardison.net> | 2018-04-08 04:22:21 +0200 |
|---|---|---|
| committer | Dylan William Hardison <dylan@hardison.net> | 2018-06-28 22:41:55 +0200 |
| commit | 5fa0256cf4192fc9b7b41fa47aa961e1f32936e1 (patch) | |
| tree | e42a9641b340020e5902a3d62a4f6bb8ce618395 /Bugzilla/Quantum | |
| parent | e454be2fb3bc17463712787fe5a9a57f08ba863e (diff) | |
| download | bugzilla-5fa0256cf4192fc9b7b41fa47aa961e1f32936e1.tar.gz bugzilla-5fa0256cf4192fc9b7b41fa47aa961e1f32936e1.tar.xz | |
add referer
Diffstat (limited to 'Bugzilla/Quantum')
| -rw-r--r-- | Bugzilla/Quantum/CGI.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/Bugzilla/Quantum/CGI.pm b/Bugzilla/Quantum/CGI.pm index 5afa19b18..34db9a46f 100644 --- a/Bugzilla/Quantum/CGI.pm +++ b/Bugzilla/Quantum/CGI.pm @@ -27,6 +27,13 @@ sub script_name { return $self->controller->req->env->{SCRIPT_NAME}; } +sub referer { + my ($self) = @_; + my $c = $self->controller; + + return $c->req->headers->referrer; +} + sub http { my ($self, $header) = @_; return $self->controller->req->headers->header($header); |