eleksir/myapi
1
Fork 0
Code Activity

Add sample upload module

Browse Source
This commit is contained in:
eleksir
2019-09-19 22:18:08 +03:00
parent 183dee668d
commit 84ac139733
3 changed files with 71 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
myapi.psgi
View File

@@ -83,8 +83,22 @@ EOL
($status, $content, $msg) = me();
} elsif ($env->{PATH_INFO} eq "$prefix/image") {
($status, $content, $msg) = queue_image($env->{HTTP_LINK}, \@images);
} elsif ($env->{PATH_INFO} =~ /$prefix\/upload\/(.+)/) {
my $upload = $1;
($status, $content, $msg) = ('400', $content, "Bad Request?\n");
if (defined($env->{HTTP_AUTH}) && ($env->{HTTP_AUTH} eq $CONF->{upload}->{auth})) {
if (($upload !~/(\.\.|\\|\/)/) && ($upload =~ /[A-Z|a-z|0-9|_|\-|\+]/)) {
if (defined($env->{CONTENT_LENGTH}) && ($env->{CONTENT_LENGTH} > 0)) {
($status, $content, $msg) = upload($env->{'psgi.input'}, $env->{CONTENT_LENGTH}, $upload);
}
}
} else {
($status, $content, $msg) = ('403', $content, "You're not allowed here. Fuck off.\n");
}
}
return [
$status,
[ 'Content-Type' => $content, 'Content-Length' => length($msg) ],