58 lines
1.7 KiB
Perl
Executable File
58 lines
1.7 KiB
Perl
Executable File
package DDG::Goodie::URLDecode;
|
|
# ABSTRACT: Displays the decoded URL for a percent encoded uri
|
|
|
|
use DDG::Goodie;
|
|
use URI::Escape::XS qw(decodeURIComponent);
|
|
use warnings;
|
|
use strict;
|
|
|
|
my $trigger_words = qr#urlunescape|unescapeurl|(unescape url)|decodeurl|(decode url)|urldecode|(url decode)|(url unescape)#;
|
|
|
|
triggers query_raw => qr#%[0-9A-Fa-f]{2}#;
|
|
primary_example_queries 'url decode https%3A%2F%2Fduckduckgo.com%2F', 'decode url xkcd.com%2Fblag';
|
|
secondary_example_queries 'http%3A%2F%2Farstechnica.com%2F url unescape', 'linux.com%2Ftour%2F unescape url';
|
|
|
|
zci answer_type => 'decoded_url';
|
|
zci is_cached => 1;
|
|
|
|
name 'URLDecode';
|
|
description 'Displays the uri from a percent encoded url';
|
|
code_url 'https://github.com/duckduckgo/zeroclickinfo-goodies/blob/master/lib/DDG/Goodie/URLDecode.pm';
|
|
category 'computing_tools';
|
|
topics 'programming', 'web_design';
|
|
|
|
attribution web => [ 'https://www.duckduckgo.com', 'DuckDuckGo' ],
|
|
github => [ 'duckduckgo', 'DuckDuckGo'],
|
|
twitter => ['duckduckgo', 'DuckDuckGo'];
|
|
|
|
handle query_raw => sub {
|
|
# unless trigger words exist, only answer when we have a single word
|
|
unless (m/$trigger_words/) {
|
|
return if m/\s+/;
|
|
}
|
|
#remove triggers and trim
|
|
s/(^$trigger_words)|($trigger_words$)//i;
|
|
s/(^\s+)|(\s+$)//;
|
|
|
|
my $in = $_;
|
|
my $decoded = decodeURIComponent($in);
|
|
|
|
if ($decoded =~ /^\s+$/) {
|
|
$decoded =~ s/\r/CReturn/;
|
|
$decoded =~ s/\n/Newline/;
|
|
$decoded =~ s/\t/Tab/;
|
|
$decoded =~ s/\s/Space/;
|
|
}
|
|
|
|
my $text = "URL Decoded: $decoded";
|
|
|
|
return $text,
|
|
structured_answer => {
|
|
input => [html_enc($in)],
|
|
operation => 'URL decode',
|
|
result => html_enc($decoded)
|
|
};
|
|
};
|
|
|
|
1;
|