eleksir/joyproxy
0
Fork 0
Code Activity

Reactor code. Some assorted bits of fixes.

Browse Source 
* Check read() results where possible
* Use unbuffered writes for temp files
* Use vars instead of bare words as file handles
* Use $VERSION
* Coding style fixes
* Update of Readme.md
This commit is contained in:
eleksir
2021-02-10 19:36:47 +03:00
parent 370dc372bc
commit 5b8962b70d
3 changed files with 110 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
joyproxy.psgi
View File

@@ -1,13 +1,12 @@
use 5.018;
use strict;
use warnings "all";
use warnings;
use utf8;
use open qw(:std :utf8);
use open qw (:std :utf8);
use version; our $VERSION = qw (1.1.0);
use lib qw(. ./vendor_perl/lib/perl5);
use joyproxy qw(joyurl joyproxy);
$| = 1;
use lib qw (. ./vendor_perl/lib/perl5);
use joyproxy qw (joyurl joyproxy);
my $app = sub {
my $env = shift;
@@ -16,25 +15,23 @@ my $app = sub {
my $status = '404';
my $content = 'text/plain';
if ($env->{PATH_INFO} =~ /^\/joyproxy\/(.+)/) {
if ($env->{PATH_INFO} =~ /^\/joyproxy\/(.+)/xmsg) {
my $joyproxyurl = $1;
($status, $content, $msg) = ('400', $content, "Bad Request?\n");
($status, $msg) = ('400', "Bad Request?\n");
if (($joyproxyurl =~ /\.mp4/i) or ($joyproxyurl =~ /\.webm/i)) {
($status, $content, $msg) = joyproxy($joyproxyurl);
if (($joyproxyurl =~ /\.mp4$/xmsgi) or ($joyproxyurl =~ /\.webm$/xmsgi)) {
($status, $content, $msg) = joyproxy $joyproxyurl ;
}
}
if ($env->{PATH_INFO} =~ /^\/joyurl/) {
if (defined($env->{QUERY_STRING})) {
($status, $content, $msg) = joyurl($env->{QUERY_STRING}, $env->{HTTP_HOST});
} else {
($status, $content, $msg) = joyurl('', $env->{HTTP_HOST});
}
if ($env->{PATH_INFO} =~ /^\/joyurl/xmsg) {
my $querystring = $env->{QUERY_STRING} // '';
($status, $content, $msg) = joyurl ($querystring, $env->{HTTP_HOST});
}
use bytes;
my $length = length($msg);
my $length = length $msg;
no bytes;
return [