X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2Fzsi.pl;h=0347a027f3eb41b1bde6bcf54256d1e05e4e2e86;hb=f7cae48a17d6decd0a9bd997188271daa0a885b1;hp=6a4a82e7c27d4a1feca9c40588f28b03995ed39a;hpb=8a79d430aef83402420b5a8378e78cfa01051c93;p=infobot.git diff --git a/src/Modules/zsi.pl b/src/Modules/zsi.pl index 6a4a82e..0347a02 100644 --- a/src/Modules/zsi.pl +++ b/src/Modules/zsi.pl @@ -57,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."; @@ -66,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 @@ -75,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);