From 1d3d817e5bf57f4106c6a7bf696b3b51626fdadf Mon Sep 17 00:00:00 2001 From: Jag Talon Date: Fri, 22 Mar 2013 17:49:47 -0400 Subject: [PATCH] Removed UserAgent.pm --- lib/DDG/Goodie/UserAgent.pm | 39 ------------------------------------- 1 file changed, 39 deletions(-) delete mode 100644 lib/DDG/Goodie/UserAgent.pm diff --git a/lib/DDG/Goodie/UserAgent.pm b/lib/DDG/Goodie/UserAgent.pm deleted file mode 100644 index 6a77eadf6..000000000 --- a/lib/DDG/Goodie/UserAgent.pm +++ /dev/null @@ -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; \ No newline at end of file