#!/usr/bin/perl # use Sherch::SherlockSearch; use CGI; print "Content-type: text/html\n\n"; opendir(PLUGIN,"plugins") or die "Couldn't open plugins directory"; @files = readdir(PLUGIN); $filenames = join(' ',@files); @servicenames = grep(/\.src$/i,@files); closedir PLUGIN; print < Sherch Sherch!

Welcome to Sherch

- Sherlock for the rest of us -

You can add services if you want to.

Services available -

Please note: if plugins do not work please confirm that they should work before emailing me. Sorry, but many plugins out there are out of date :-( END_HEADER $query = new CGI; $queryterm = $query->param('searchterm'); @selectedservices = $query->param('service'); $match = join ('|',@selectedservices); $maxnumberacross=5; $counter=0; print "\n"; foreach (@servicenames) { $service = new SherlockSearch; $services{$_} = $service; $service->loadFile("plugins/".$_); print "\n"; if (++$counter==$maxnumberacross) { print "\n"; $counter=0;} } print "\n" unless $counter; print "

"; # The original version used an old gd which produced gifs # This covers those old images $pngfile = $_; $pngfile=~s/\.src//; $giffile = "$_.gif"; $rssfile = "$pngfile.rss"; $rssfile=~s/.*\///; #this hack will break $pngfile.= '.png'; if ($filenames =~ /($giffile|$pngfile)/) { print "

"; } else { print "

"; } print ""; print $service->{search}->{name}; if ($description = $service->{search}->{description}) { print "
\"$description\""; } print "
RSS 1.0 Channel\n"; print "
Sherlock Source\n"; print "

\n"; print <

END_FORM if ($queryterm && !$match) { print "You need to select services to use for searching"; } if ($match) { print "

Search Results:

"; if (!$queryterm) { print "Nothin' to search for. Just kickin' my heels"; } else { foreach $attempt (@selectedservices) { print "

Look for \"$queryterm\""; print "
Service : ",$services{$attempt}->{search}->{name},"\n"; eval {$services{$attempt}->find($queryterm);}; if ($@) {print "
$@
\n";} else { $res = $services{$attempt}->getResults; print $res->asHtmlString;} } } } print < This is a genuine botched service, written and performed by Damian Steer, © 2001 END_FOOTER