diff options
| author | Dennis Eriksen <d@ennis.no> | 2019-11-01 17:13:40 +0100 |
|---|---|---|
| committer | Dennis Eriksen <d@ennis.no> | 2019-11-01 17:13:40 +0100 |
| commit | e9d3a1e6796d450ab00a6a6d95b8ace53b7f93fd (patch) | |
| tree | a33e21079c73694dcced0d8880be5c7227d90a7d /redirect.cgi | |
| parent | Just giving the executables file-endings (diff) | |
| download | purl-e9d3a1e6796d450ab00a6a6d95b8ace53b7f93fd.tar.gz | |
we now support curling the form without getting all of the HTML in response
Diffstat (limited to 'redirect.cgi')
| -rwxr-xr-x | redirect.cgi | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/redirect.cgi b/redirect.cgi index c471831..9af5ed9 100755 --- a/redirect.cgi +++ b/redirect.cgi @@ -13,7 +13,7 @@ my $q = CGI->new; # create CGI object my $dbh = DBI->connect("dbi:Pg:dbname=purl") or die $DBI::errstr; # set the short -my $short = $ENV{REQUEST_URI}; +my $short = scalar $ENV{REQUEST_URI}; $short =~ s/^\///; # SQL Query |