ws

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

diff --git a/src/Modules/zfi.pl b/src/Modules/zfi.pl
index dee9f5f5bc309309600036169c71e49abc751ac6..07c6c3ee0c51235990ffc9bfde180e99fe49f1a7 100644 (file)
--- 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