blob: bda76a42084cf961ff61bb4fe66b20d6a17aaa6f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
#
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Extension::GitHubAuth::Util;
use strict;
use warnings;
use Bugzilla::Util qw(correct_urlbase);
use URI;
use base qw(Exporter);
our @EXPORT = qw( target_uri );
# this is like correct_urlbase() except it returns the *requested* uri, before http url rewrites have been applied.
# needed to generate github's redirect_uri.
sub target_uri {
my $cgi = Bugzilla->cgi;
my $base = URI->new(correct_urlbase());
if (my $request_uri = $cgi->request_uri) {
$base->path('');
$request_uri =~ s!^/+!!;
return URI->new($base . "/" . $request_uri);
}
else {
return URI->new(correct_urlbase() . $cgi->url(-relative => 1, query => ));
}
}
1;
|
