eleksir/image-dl
0
Fork 0
Code Activity

Handle absent url header correctly

Browse Source
This commit is contained in:
eleksir
2021-04-24 22:57:41 +03:00
parent 29acad6d7d
commit 2a90ce5e57
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
image-dl.psgi
View File

@@ -24,6 +24,11 @@ my $app = sub {
if ($env->{PATH_INFO} eq "/image_dl") { if ($env->{PATH_INFO} eq "/image_dl") {
my $str = $env->{HTTP_URL}; my $str = $env->{HTTP_URL};
unless (defined $str) {
$msg = "No url http header supplied.\n";
return [ '400', [ 'Content-Type' => $content, 'Content-Length' => length ($msg) ], [ $msg ], ];
}
unless ((substr ($str, 0, 7) eq 'http://') || (substr ($str, 0, 8) eq 'https://')) { unless ((substr ($str, 0, 7) eq 'http://') || (substr ($str, 0, 8) eq 'https://')) {
$msg = "Incorrect URL\n"; $msg = "Incorrect URL\n";
return [ '400', [ 'Content-Type' => $content, 'Content-Length' => length ($msg) ], [ $msg ], ]; return [ '400', [ 'Content-Type' => $content, 'Content-Length' => length ($msg) ], [ $msg ], ];