* Add vim formatting comments ( # vim:ts=4:sw=4:expandtab:tw=80 )

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

diff --git a/src/Modules/zsi.pl b/src/Modules/zsi.pl
index c1eb6928fcc6f83b3b09c5a4520b700dc1c2cf8a..41f7d4f62a4e5553671cdad1506799b322692c02 100644 (file)
--- a/src/Modules/zsi.pl
+++ b/src/Modules/zsi.pl
@@ -26,6 +26,8 @@ package zsi;
 
 my $no_zsi;
 
+use strict;
+
 BEGIN {
        $no_zsi = 0;
        eval "use LWP::UserAgent";
@@ -36,14 +38,14 @@ sub queryText {
        my ($query) = @_;
 
        if ($no_zsi) {
-               &main::status("zsi module requires LWP::UserAgent.");
+               &::status("zsi module requires LWP::UserAgent.");
                return '';
        }
 
        my $res_return = 5;
 
        my $ua = new LWP::UserAgent;
-  $ua->proxy('http', $::param{'httpProxy'}) if (&::IsParam("httpProxy"));
+       $ua->proxy('http', $::param{'httpProxy'}) if (&::IsParam('httpProxy'));
 
        $ua->timeout(10);
 
@@ -55,7 +57,7 @@ sub queryText {
        }
 
        my $request = new HTTP::Request('GET', "$searchpath");
-       my $response = $ua->request($request); 
+       my $response = $ua->request($request);
 
        if (!$response->is_success) {
                return "Something failed in connecting to the ZSI web server. Try again later.";
@@ -64,7 +66,7 @@ sub queryText {
        my $content = $response->content;
 
        if ($content =~ /No entries found/im) {
-               return "$result No results were found searching ZSI for '$query'.";
+               return "No results were found searching ZSI for '$query'.";
        }
 
        my $res_count = 0; #local counter
@@ -73,7 +75,7 @@ sub queryText {
        my @lines = split(/\n/,$content);
 
        my $result = '';
-       foreach $line(@lines) {
+       foreach my $line (@lines) {
                if (length($line) > 10) {
                        my ($name, $href, $desc) = split(/\|/,$line);
 
@@ -95,9 +97,11 @@ sub queryText {
 sub query {
        my ($args) = @_;
        &::performStrictReply(&queryText($args));
-  return;
+       return;
 }
 
 1;
-# vim: shiftwidth=2 tabstop=2
+
+# vim:ts=4:sw=4:expandtab:tw=80
+
 __END__