Скрипт поиска

Такая вот задачка тривиальная:
Нужно организовать хороший поиск или просто поиск на сайте, но по какой-то причине это сделать пока не удается.
Потому надо сделать хотя бы времянку.

Предлагаю такое решение:
Во многих поисковиках можно искать по определенному сайту. На Яндексе это задается так: [url=http://www.yandex.ru/yandsearch?text=ПОИСКОВОЕ]http://www.yandex.ru/yandsearch?text=ПОИСКОВОЕ[/url] СЛОВО&serverurl=АДРЕС САЙТА

Лично на моём сайте, Яндексом проиндексированны все страницы...

Поэтому нужен скрипт выполняющий такую последовательность:
1)Вставляет переменную $searchtext из формы поиска в URL, приведенный выше.
2)Открывает этот самый URL в ном окне.
3)Ну а для статистики не помешало бы добавить поисковое слово в data.txt

Всё вроди хорошо, но вот не знаю я всё ещё толком ни Перла ни PHP...
Помогите, пожалуйста. [img]images/smiles/icon_wink.gif[/img]

[ 11 Июня 2002: Исправлено Danil ]

Ну коль такие все нехачухи, то смотрите что получилось у меня своими силами:
Скрипт search.cgi

#!/usr/bin/perl -w
$data = "…/data.txt";
print "Content-type: text/html\n\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/~!/ ~!/g; $FORM{$name} = $value;}
$searchtext = $FORM{'search'};
open(data,">>$data");
print data "$searchtext\n";

print "<html><head>\n";
print "<title>Search</title>\n";
print "</head><frameset rows=\"60,*\">\n";
print "<frame src=\"http://www.podrost.estc.ru/gazeta/arhiv/navigator.htm\" frameborder=\"0\" noresize scrolling=\"no\">\n";
print "<frame src=\"http://www.yandex.ru/yandsearch?text="; print "$searchtext"; print "&serverurl=podrost.estc.ru\" frameborder=\"0\">\n";
print "</frameset></html>\n";

Реализовано это здесь: http://www.podrost.estc.ru/gazeta/arhiv/index.htm

Чего-нибудь посоветуете? Поправите?

Вообще, надо сказать, ожидания не до конца оправдались: Яднекс всеже не достаточно глубако индексирует страницы - большинство мелких и не очень деталий(слов) просто невозможно найти. Поэтому, конечно, надо ставить чего-нибудь покруче. А это, так... баловство...

Но согласитесь, красиво [img]smoke.gif[/img]

НУ не знамо, глянь на http://pvdlab.net
Моя реализация http://www.ufanews.ru

А не проше ли сделать следующее.
Взять форму с яндекса, изменить ее вид, вставить на сайт и добавить тэг <input type=hidden name=serverurl value=АДРЕС САЙТА> ? Или скачай поисковичек себе, рекомендую "Fluid Dynamics Search Engine v2.0.0.0053", написан на Perl: ставиться легко, индексирует удобно (есть вариант индексации всего сайта (одна страничка за другой), можно конкретную страничку. Можно прям локально индексировать на лету (т.е. при запросе)). Такой скрипт стоит на http://search.eu.org - можете посмотреть, если понравится могу скинуть. [img]images/smiles/icon_wink.gif[/img]

DeДверь
Логин:
Пароль:
	Автологин