X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=inline;f=src%2FModules%2Fzsi.pl;h=d1b34b7265ae2bb4b4089b57acdda92fd943b360;hb=82b7822f9140d90a6c714b1eec0fb8beb17e53dd;hp=51600a5db0c091c7589ebc6fdce1f0f23ebbb85d;hpb=5ba82e7b401520f6f311a2c87ad0554648b5356c;p=infobot.git

diff --git a/src/Modules/zsi.pl b/src/Modules/zsi.pl
index 51600a5..d1b34b7 100644
--- a/src/Modules/zsi.pl
+++ b/src/Modules/zsi.pl
@@ -26,78 +26,85 @@ package zsi;
 
 my $no_zsi;
 
+use strict;
+
 BEGIN {
-	$no_zsi = 0;
-	eval "use LWP::UserAgent";
-	$no_zsi++ if ($@);
+    $no_zsi = 0;
+    eval "use LWP::UserAgent";
+    $no_zsi++ if ($@);
 }
 
 sub queryText {
-	my ($query) = @_;
+    my ($query) = @_;
 
-	if ($no_zsi) {
-		&main::status("zsi module requires LWP::UserAgent.");
-		return '';
-	}
+    if ($no_zsi) {
+        &::status("zsi module requires LWP::UserAgent.");
+        return '';
+    }
 
-	my $res_return = 5;
+    my $res_return = 5;
 
-	my $ua = new LWP::UserAgent;
-  $ua->proxy('http', $::param{'httpProxy'}) if (&::IsParam("httpProxy"));
+    my $ua = new LWP::UserAgent;
+    $ua->proxy( 'http', $::param{'httpProxy'} ) if ( &::IsParam('httpProxy') );
 
-	$ua->timeout(10);
+    $ua->timeout(10);
 
-	my $searchpath;
-	if ($query) {
-		$searchpath = "http://killefiz.de/zaurus/zsibot.php?query=$query";
-	} else {
-		$searchpath = "http://killefiz.de/zaurus/zsibot.php";
-	}
+    my $searchpath;
+    if ($query) {
+        $searchpath = "http://killefiz.de/zaurus/zsibot.php?query=$query";
+    }
+    else {
+        $searchpath = "http://killefiz.de/zaurus/zsibot.php";
+    }
 
-	my $request = new HTTP::Request('GET', "$searchpath");
-	my $response = $ua->request($request); 
+    my $request = new HTTP::Request( 'GET', "$searchpath" );
+    my $response = $ua->request($request);
 
-	if (!$response->is_success) {
-		return "Something failed in connecting to the ZSI web server. Try again later.";
-	}
+    if ( !$response->is_success ) {
+        return
+"Something failed in connecting to the ZSI web server. Try again later.";
+    }
 
-	my $content = $response->content;
+    my $content = $response->content;
 
-	if ($content =~ /No entries found/im) {
-		return "$result No results were found searching ZSI for '$query'.";
-	}
+    if ( $content =~ /No entries found/im ) {
+        return "No results were found searching ZSI for '$query'.";
+    }
 
-	my $res_count = 0; #local counter
-	my $res_display = 0; #results displayed
+    my $res_count   = 0;    #local counter
+    my $res_display = 0;    #results displayed
 
-	my @lines = split(/\n/,$content);
+    my @lines = split( /\n/, $content );
 
-	my $result = '';
-	foreach $line(@lines) {
-		if (length($line) > 10) {
-			my ($name, $href, $desc) = split(/\|/,$line);
+    my $result = '';
+    foreach my $line (@lines) {
+        if ( length($line) > 10 ) {
+            my ( $name, $href, $desc ) = split( /\|/, $line );
 
-			if ($res_count < $res_return) {
-				$result .= "$name ($desc) $href\n";
-				$res_display ++;
-			}
-			$res_count ++;
-		}
-	}
+            if ( $res_count < $res_return ) {
+                $result .= "$name ($desc) $href : ";
+                $res_display++;
+            }
+            $res_count++;
+        }
+    }
 
-	if (($query) && ($res_count > $res_display)) {
-		$result .= "$res_display of $res_count shown. All at http://killefiz.de/zaurus/search.php?q=$query\n";
-	}
+    if ( ($query) && ( $res_count > $res_display ) ) {
+        $result .=
+"$res_display of $res_count shown. All at http://killefiz.de/zaurus/search.php?q=$query";
+    }
 
-	return $result;
+    return $result;
 }
 
 sub query {
-	my ($args) = @_;
-	&::performStrictReply(&queryText($args));
-  return;
+    my ($args) = @_;
+    &::performStrictReply( &queryText($args) );
+    return;
 }
 
 1;
-# vim: shiftwidth=2 tabstop=2
+
+# vim:ts=4:sw=4:expandtab:tw=80
+
 __END__