diff options
| author | Magnus Hagander | 2011-03-08 10:06:50 +0000 |
|---|---|---|
| committer | Magnus Hagander | 2011-03-08 10:10:59 +0000 |
| commit | 5d3b332450cccb3ef51382017b6916b99d346395 (patch) | |
| tree | b3fad905330c493515bdb6ec90acd0a210c882ec /perl-lib/PgCommitFest/Handler.pm | |
| parent | a8b81f740b1e052912712e9474b9cc7d732cb730 (diff) | |
Update FastCGI integration points to work properly with lighttpd.
Diffstat (limited to 'perl-lib/PgCommitFest/Handler.pm')
| -rw-r--r-- | perl-lib/PgCommitFest/Handler.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-lib/PgCommitFest/Handler.pm b/perl-lib/PgCommitFest/Handler.pm index 438f7e0..edc838c 100644 --- a/perl-lib/PgCommitFest/Handler.pm +++ b/perl-lib/PgCommitFest/Handler.pm @@ -61,7 +61,8 @@ sub main_loop { sub handler { my ($r) = @_; my ($action, $extrapath); - my $url = $ENV{'SCRIPT_URL'}; + my $url = $ENV{'REQUEST_URI'}; + $url =~ s/\?.*//; # Remove questionmark and anything after it if ($url eq '/') { $action = 'commitfest_search'; } |