Kharec/urupam
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix: decode UTF-8 after url_unescape

Browse Source
This commit is contained in:
Sandro CURY CAZZANIGA
2025-12-29 15:24:56 +01:00
parent 0b277a3e65
commit b5ab00ef93
1 changed files with 15 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
lib/Urupam/Utils.pm
View File

@@ -4,7 +4,7 @@ use strict;
use warnings;
use Exporter 'import';
use Mojo::URL;
use Mojo::Util qw(url_unescape);
use Mojo::Util qw(url_unescape decode);
our @EXPORT_OK = qw(
sanitize_input
@@ -34,8 +34,7 @@ sub sanitize_error_message {
$sanitized =~ s/[^\p{L}\p{N}_\s\.\-\:\/]//gu;
$sanitized =~ s/\s+/ /g;
$sanitized =~ s/^\s+|\s+$//g;
return
length($sanitized) > 200
return length($sanitized) > 200
? substr( $sanitized, 0, 200 ) . '...'
: $sanitized;
}
@@ -78,13 +77,24 @@ sub sanitize_url {
if ( $url =~ /%[0-9a-f]{2}/i ) {
my $path = url_unescape( $parsed->path->to_string );
$path = decode( 'UTF-8', $path ) if length $path;
$parsed->path($path);
my $query = $parsed->query->to_string;
$parsed->query( url_unescape($query) ) if length $query;
if ( length $query ) {
my $decoded_query = url_unescape($query);
$decoded_query = decode( 'UTF-8', $decoded_query )
if length $decoded_query;
$parsed->query($decoded_query);
}
my $fragment = $parsed->fragment;
$parsed->fragment( url_unescape($fragment) ) if defined $fragment;
if ( defined $fragment ) {
my $decoded_fragment = url_unescape($fragment);
$decoded_fragment = decode( 'UTF-8', $decoded_fragment )
if length $decoded_fragment;
$parsed->fragment($decoded_fragment);
}
$url = $parsed->to_string;
}