3 # Search Zaurus Software Index (ZSI)
7 # Developed by Darien Kruss <darien@kruss.com>
8 # http://zaurus.kruss.com/
9 # usually hangs out on #zaurus as 'darienm'
11 # This script relies on the following page returning results
12 # http://killefiz.de/zaurus/zsibot.php
13 # Returns the 5 latest/newest entries
15 # http://killefiz.de/zaurus/zsibot.php?query=XXXX
16 # Returns all matches where XXX is in the name, description, etc
18 # Returned matches are pipe-separated, one record per line
19 # name|URL|description
21 # These are the phrases we get called for:
23 # 'zsi' or 'zsi <search>'
25 # We reply publicly or privately, depending how we were called
31 eval "use LWP::UserAgent";
39 &main::status("zsi module requires LWP::UserAgent.");
45 my $ua = new LWP::UserAgent;
46 $ua->proxy('http', $::param{'httpProxy'}) if (&::IsParam("httpProxy"));
52 $searchpath = "http://killefiz.de/zaurus/zsibot.php?query=$query";
54 $searchpath = "http://killefiz.de/zaurus/zsibot.php";
57 my $request = new HTTP::Request('GET', "$searchpath");
58 my $response = $ua->request($request);
60 if (!$response->is_success) {
61 return "Something failed in connecting to the ZSI web server. Try again later.";
64 my $content = $response->content;
66 if ($content =~ /No entries found/im) {
67 return "$result No results were found searching ZSI for '$query'.";
70 my $res_count = 0; #local counter
71 my $res_display = 0; #results displayed
73 my @lines = split(/\n/,$content);
76 foreach $line(@lines) {
77 if (length($line) > 10) {
78 my ($name, $href, $desc) = split(/\|/,$line);
80 if ($res_count < $res_return) {
81 $result .= "$name ($desc) $href : ";
88 if (($query) && ($res_count > $res_display)) {
89 $result .= "$res_display of $res_count shown. All at http://killefiz.de/zaurus/search.php?q=$query";
97 &::performStrictReply(&queryText($args));
102 # vim: shiftwidth=2 tabstop=2