Removed UserAgent.pm

master
Jag Talon 2013-03-22 17:49:47 -04:00
parent 270e81330c
commit 1d3d817e5b
1 changed files with 0 additions and 39 deletions

View File

@ -1,39 +0,0 @@
package DDG::Goodie::UserAgent;
use DDG::Goodie;
use CGI::Simple;
zci answer_type => "user-agent";
triggers query_lc => qr/user(\s+|\-)?agent/i;
handle query_lc => sub {
my %user_agent_qr = (
'useragent',
'useragent me',
'show useragent',
'my useragent',
'what is my useragent',
'what\'s my useragent',
'user agent',
'user agent me',
'show user agent',
'my user agent',
'what is my user agent',
'what\'s my user agent',
'user-agent',
'user-agent me',
'show user-agent',
'my user-agent',
'what is my user-agent',
'what\'s my user-agent',
);
# Return if it doesn't exist in the dictionary.
return unless exists $user_agent_qr{$_};
my $q = new CGI::Simple;
my $user_agent = $q->user_agent() || '';
return $user_agent;
};
1;