eleksir/joyproxy
0
Fork 0
Code Activity

Fix parser, use regexes instead of substr, duh

Browse Source
This commit is contained in:
eleksir
2022-09-15 22:03:51 +03:00
parent 5f9f534a5d
commit 8f7e5d6c47
1 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
joyproxy.pm
View File

@@ -6,13 +6,14 @@ use warnings;
use utf8; use utf8;
use open qw (:std :utf8); use open qw (:std :utf8);
use Carp qw (carp);
use Fcntl; use Fcntl;
use HTTP::Tiny; use HTTP::Tiny;
use URI::URL; use URI::URL;
use URI::Escape qw (uri_unescape); use URI::Escape qw (uri_unescape);
use Exporter qw (import); use Exporter qw (import);
use version; our $VERSION = qw (1.1.0); use version; our $VERSION = qw (1.1.1);
our @EXPORT_OK = qw (joyproxy joyurl); our @EXPORT_OK = qw (joyproxy joyurl);
sub joyproxy ($) { sub joyproxy ($) {
@@ -72,13 +73,12 @@ sub joyurl (@) {
if (length ($str) < 60) { if (length ($str) < 60) {
$str = ''; $str = '';
} else {
$str = substr $str, 14;
} }
if ($str =~ /^img\d+\.reactor\.cc/xmsg) { if ($str =~ /^joyurl=https?\:\/\/(img\d+\.reactor\.cc.+)/xmsg) {
my $string = $1;
# img1.reactor.cc/pics/post/webm/видосик.webm # img1.reactor.cc/pics/post/webm/видосик.webm
my @url = split /\//msx, $str; my @url = split /\//msx, $string;
if (($url[3] eq 'webm' || $url[3] eq 'mp4') && if (($url[3] eq 'webm' || $url[3] eq 'mp4') &&
($url[4] =~ /\.webm$/xmsg || $url[4] =~ /\.mp4$/xmsg)) { ($url[4] =~ /\.webm$/xmsg || $url[4] =~ /\.mp4$/xmsg)) {
@@ -87,7 +87,7 @@ sub joyurl (@) {
$fname = substr ($url[4], 0, -5) if (substr ($url[4], -5, 6) eq '.webm'); $fname = substr ($url[4], 0, -5) if (substr ($url[4], -5, 6) eq '.webm');
$fname = substr ($url[4], 0, -4) if (substr ($url[4], -4, 4) eq '.mp4'); $fname = substr ($url[4], 0, -4) if (substr ($url[4], -4, 4) eq '.mp4');
$str = sprintf ( $string = sprintf (
'https://%s/joyproxy/%s/%s/%s/mp4/%s.mp4', 'https://%s/joyproxy/%s/%s/%s/mp4/%s.mp4',
$host, $host,
$url[0], $url[0],
@@ -96,7 +96,7 @@ sub joyurl (@) {
$fname $fname
); );
$str = __urlencode ($str); $str = __urlencode ($string);
} else { } else {
$str = ''; $str = '';
} }