X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2Fzfi.pl;h=d63e176ed23f6c4a934082a270a433a73935ede1;hb=7c5aad98f2d24e8053b55dfbb2c97a16f7efb1df;hp=de77352af32c5634465ef32c09296080610e8c0b;hpb=5eb4ddbe665438386c4d106e91cd07aca764df9a;p=infobot.git

diff --git a/src/Modules/zfi.pl b/src/Modules/zfi.pl
index de77352..d63e176 100644
--- a/src/Modules/zfi.pl
+++ b/src/Modules/zfi.pl
@@ -24,6 +24,8 @@ package zfi;
 
 # We reply publicly or privately, depending how we were called
 
+use strict;
+
 my $no_zfi;
 
 BEGIN {
@@ -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);
 
@@ -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 ZFI 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 ZFI for '$query'.";
+		return "No results were found searching ZFI 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,7 +97,7 @@ sub queryText {
 sub query {
 	my ($args) = @_;
 	&::performStrictReply(&queryText($args));
-  return;
+	return;
 }
 
 1;