src/Modules/zsi.pl

   1 package zsi;
   2
   3 # Search Zaurus Software Index (ZSI)
   4 # Version 1.0
   5 # Released 26 Aug 2002
   6
   7 # Developed by Darien Kruss <darien@kruss.com>
   8 # http://zaurus.kruss.com/
   9 # usually hangs out on #zaurus as 'darienm'
  10
  11 # This script relies on the following page returning results
  12 # http://killefiz.de/zaurus/zsibot.php
  13 # Returns the 5 latest/newest entries
  14
  15 # http://killefiz.de/zaurus/zsibot.php?query=XXXX
  16 # Returns all matches where XXX is in the name, description, etc
  17
  18 # Returned matches are pipe-separated, one record per line
  19 # name|URL|description
  20
  21 # These are the phrases we get called for:
  22
  23 # 'zsi'  or  'zsi <search>'
  24
  25 # We reply publicly or privately, depending how we were called
  26
  27 my $no_zsi;
  28
  29 use strict;
  30
  31 BEGIN {
  32     $no_zsi = 0;
  33     eval "use LWP::UserAgent";
  34     $no_zsi++ if ($@);
  35 }
  36
  37 sub queryText {
  38     my ($query) = @_;
  39
  40     if ($no_zsi) {
  41         &::status("zsi module requires LWP::UserAgent.");
  42         return '';
  43     }
  44
  45     my $res_return = 5;
  46
  47     my $ua = new LWP::UserAgent;
  48     $ua->proxy( 'http', $::param{'httpProxy'} ) if ( &::IsParam('httpProxy') );
  49
  50     $ua->timeout(10);
  51
  52     my $searchpath;
  53     if ($query) {
  54         $searchpath = "http://killefiz.de/zaurus/zsibot.php?query=$query";
  55     }
  56     else {
  57         $searchpath = "http://killefiz.de/zaurus/zsibot.php";
  58     }
  59
  60     my $request = new HTTP::Request( 'GET', "$searchpath" );
  61     my $response = $ua->request($request);
  62
  63     if ( !$response->is_success ) {
  64         return
  65 "Something failed in connecting to the ZSI web server. Try again later.";
  66     }
  67
  68     my $content = $response->content;
  69
  70     if ( $content =~ /No entries found/im ) {
  71         return "No results were found searching ZSI for '$query'.";
  72     }
  73
  74     my $res_count   = 0;    #local counter
  75     my $res_display = 0;    #results displayed
  76
  77     my @lines = split( /\n/, $content );
  78
  79     my $result = '';
  80     foreach my $line (@lines) {
  81         if ( length($line) > 10 ) {
  82             my ( $name, $href, $desc ) = split( /\|/, $line );
  83
  84             if ( $res_count < $res_return ) {
  85                 $result .= "$name ($desc) $href : ";
  86                 $res_display++;
  87             }
  88             $res_count++;
  89         }
  90     }
  91
  92     if ( ($query) && ( $res_count > $res_display ) ) {
  93         $result .=
  94 "$res_display of $res_count shown. All at http://killefiz.de/zaurus/search.php?q=$query";
  95     }
  96
  97     return $result;
  98 }
  99
 100 sub query {
 101     my ($args) = @_;
 102     &::performStrictReply( &queryText($args) );
 103     return;
 104 }
 105
 106 1;
 107
 108 # vim:ts=4:sw=4:expandtab:tw=80
 109
 110 __END__