X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2Fzfi.pl;h=07c6c3ee0c51235990ffc9bfde180e99fe49f1a7;hb=5f858217e186c9d7849c0f7e650d1ebae5a6eaeb;hp=dee9f5f5bc309309600036169c71e49abc751ac6;hpb=3936a3e1255582305fc4200485b71fa692e66bd3;p=infobot.git

diff --git a/src/Modules/zfi.pl b/src/Modules/zfi.pl
index dee9f5f..07c6c3e 100644
--- a/src/Modules/zfi.pl
+++ b/src/Modules/zfi.pl
@@ -29,77 +29,81 @@ use strict;
 my $no_zfi;
 
 BEGIN {
-	$no_zfi = 0;
-	eval "use LWP::UserAgent";
-	$no_zfi++ if ($@);
+    $no_zfi = 0;
+    eval "use LWP::UserAgent";
+    $no_zfi++ if ($@);
 }
 
 sub queryText {
-	my ($query) = @_;
+    my ($query) = @_;
 
-	if ($no_zfi) {
-		&::status("zfi module requires LWP::UserAgent.");
-		return '';
-	}
+    if ($no_zfi) {
+        &::status("zfi 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://zaurii.com/zfi/zfibot.php?query=$query";
-	} else {
-		$searchpath = "http://zaurii.com/zfi/zfibot.php";
-	}
+    my $searchpath;
+    if ($query) {
+        $searchpath = "http://zaurii.com/zfi/zfibot.php?query=$query";
+    }
+    else {
+        $searchpath = "http://zaurii.com/zfi/zfibot.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 ZFI web server. Try again later.";
-	}
+    if ( !$response->is_success ) {
+        return
+"Something failed in connecting to the ZFI web server. Try again later.";
+    }
 
-	my $content = $response->content;
+    my $content = $response->content;
 
-	if ($content =~ /No entries found/im) {
-		return "No results were found searching ZFI for '$query'.";
-	}
+    if ( $content =~ /No entries found/im ) {
+        return "No results were found searching ZFI 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 my $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 : ";
-				$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://zaurii.com/zfi/index.phtml?p=r&r=$query";
-	}
+    if ( ($query) && ( $res_count > $res_display ) ) {
+        $result .=
+"$res_display of $res_count shown. All at http://zaurii.com/zfi/index.phtml?p=r&r=$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
 __END__
+
+# vim:ts=4:sw=4:expandtab:tw=80