| To | provoz zavinac debian bod cz |
| From | Tomas Znamenacek <tomas bod znamenacek zavinac centrum bod cz> |
| Date | Fri, 4 Jul 2003 21:28:22 +0200 |
| User-agent | Mutt/1.5.4i |
Hola,
navrhoval bych dat na novou versi webu prohledavani pres google,
posilam formular a jednoduchy skript pro presmerovani dotazu na
google. Dival jsem se na jejich webAPI, bylo by to sexy, ale zatim
neni cas, mozna pozdeji.
Ten formular prijde do hlavniho <div>u sablony stranky.
T.
--
/* Halley */
(Halley's comment.)
Vyhledávání využívá google, takže můžete používat veškeré finesy, na které jste u jeho dotazů zvyklí.
#! /usr/bin/perl
use strict;
use warnings;
my %params;
my $query = '';
for my $pair (split(/&/, $ENV{'QUERY_STRING'})) {
my ($key, $value) = split(/=/, $pair);
$params{$key} = $value;
}
my $groups = ($params{'where'} eq 'news');
$query = $params{'query'} . ($groups ? '+group%3Acz.comp.linux.debian' :
'+site%3Adebian.cz');
if ($groups) {
print "Location: http://groups.google.com/groups?q=$query\n\n";
} else {
print "Location: http://www.google.com/search?q=$query\n\n";
}