39 lines
720 B
Perl
39 lines
720 B
Perl
package Urupam::Utils;
|
|
|
|
use Mojo::Base -base;
|
|
use Mojo::Util qw(url_unescape);
|
|
|
|
sub sanitize_input {
|
|
my ($input) = @_;
|
|
return '' unless defined $input;
|
|
$input =~ s/^\s+|\s+$//g;
|
|
return $input;
|
|
}
|
|
|
|
sub get_error_status {
|
|
my ($err) = @_;
|
|
return $err =~ /SSL certificate|Cannot reach|DNS resolution|server error/i ? 422 : 400;
|
|
}
|
|
|
|
sub sanitize_url {
|
|
my ($url) = @_;
|
|
return undef unless defined $url;
|
|
|
|
$url =~ s/^\s+|\s+$//g;
|
|
return undef if length($url) == 0;
|
|
|
|
if ( $url =~ /%[0-9a-f]{2}/i ) {
|
|
$url = url_unescape($url);
|
|
}
|
|
|
|
unless ( $url =~ m{^https?://}i ) {
|
|
return undef if $url =~ /[\@:]/;
|
|
$url = 'http://' . $url;
|
|
}
|
|
|
|
return $url;
|
|
}
|
|
|
|
1;
|
|
|