- strictify

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

diff --git a/src/Modules/zsi.pl b/src/Modules/zsi.pl
index 51600a5db0c091c7589ebc6fdce1f0f23ebbb85d..6a4a82e7c27d4a1feca9c40588f28b03995ed39a 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";
@@ -43,7 +45,7 @@ sub queryText {
        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);
 
@@ -78,7 +80,7 @@ sub queryText {
                        my ($name, $href, $desc) = split(/\|/,$line);
 
                        if ($res_count < $res_return) {
-                               $result .= "$name ($desc) $href\n";
+                               $result .= "$name ($desc) $href : ";
                                $res_display ++;
                        }
                        $res_count ++;
@@ -86,7 +88,7 @@ sub queryText {
        }
 
        if (($query) && ($res_count > $res_display)) {
-               $result .= "$res_display of $res_count shown. All at http://killefiz.de/zaurus/search.php?q=$query\n";
+               $result .= "$res_display of $res_count shown. All at http://killefiz.de/zaurus/search.php?q=$query";
        }
 
        return $result;
@@ -95,7 +97,7 @@ sub queryText {
 sub query {
        my ($args) = @_;
        &::performStrictReply(&queryText($args));
-  return;
+       return;
 }
 
 1;