summaryrefslogtreecommitdiffstats
path: root/Bugzilla
diff options
context:
space:
mode:
authorDylan William Hardison <dylan@hardison.net>2018-04-08 04:22:21 +0200
committerDylan William Hardison <dylan@hardison.net>2018-06-28 22:41:55 +0200
commit5fa0256cf4192fc9b7b41fa47aa961e1f32936e1 (patch)
treee42a9641b340020e5902a3d62a4f6bb8ce618395 /Bugzilla
parente454be2fb3bc17463712787fe5a9a57f08ba863e (diff)
downloadbugzilla-5fa0256cf4192fc9b7b41fa47aa961e1f32936e1.tar.gz
bugzilla-5fa0256cf4192fc9b7b41fa47aa961e1f32936e1.tar.xz
add referer
Diffstat (limited to 'Bugzilla')
-rw-r--r--Bugzilla/Quantum/CGI.pm7
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);