merge in changes from 1810:1870

[infobot.git] / src / Modules / W3Search.pl

diff --git a/src/Modules/W3Search.pl b/src/Modules/W3Search.pl
deleted file mode 100644 (file)
index 27bdbd7..0000000
--- a/src/Modules/W3Search.pl
+++ /dev/null
@@ -1,67 +0,0 @@
-# WWWSearch backend, with queries updating the is-db (optionally)
-# Uses WWW::Search::Google and WWW::Search
-# originally Google.pl, drastically altered.
-
-package W3Search;
-
-use strict;
-use vars qw(@W3Search_engines $W3Search_regex);
-
-@W3Search_engines = qw(AltaVista Dejanews Excite Gopher HotBot Infoseek
-  Lycos Magellan PLweb SFgate Simple Verity Google z);
-$W3Search_regex = join '|', @W3Search_engines;
-
-my $maxshow = 5;
-
-sub W3Search {
-    my ( $where, $what, $type ) = @_;
-    my $retval = "$where can't find \002$what\002";
-    my $Search;
-
-    my @matches = grep { lc($_) eq lc($where) ? $_ : undef } @W3Search_engines;
-    if (@matches) {
-        $where = shift @matches;
-    }
-    else {
-        &::msg( $::who, "i don't know how to check '$where'" );
-        return;
-    }
-
-    return unless &::loadPerlModule("WWW::Search");
-
-    eval { $Search = new WWW::Search( $where, agent_name => 'Mozilla/4.5' ); };
-
-    if ( !defined $Search ) {
-        &::msg( $::who, "$where is invalid search." );
-        return;
-    }
-
-    my $Query = WWW::Search::escape_query($what);
-    $Search->native_query(
-        $Query,
-        {
-            num => 10,
-
-            #          search_debug => 2,
-            #          search_parse_debug => 2,
-        }
-    );
-    $Search->http_proxy( $::param{'httpProxy'} ) if ( &::IsParam('httpProxy') );
-
-    #my $max = $Search->maximum_to_retrieve(10);       # DOES NOT WORK.
-
-    my ( @results, $count, $r );
-    $retval = "$where says \002$what\002 is at ";
-    while ( $r = $Search->next_result() ) {
-        my $url = $r->url();
-        $retval .= ' or ' if ( $count > 0 );
-        $retval .= $url;
-        last if ++$count >= $maxshow;
-    }
-
-    &::performStrictReply($retval);
-}
-
-1;
-
-# vim:ts=4:sw=4:expandtab:tw=80