- );
- $Search->http_proxy($::param{'httpProxy'}) if (&::IsParam("httpProxy"));
- #my $max = $Search->maximum_to_retrieve(10); # DOES NOT WORK.
+ 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.