Plugin GOOGLE
Uso del plugin en una página
Para incluir en una página el motor de búsquedas GOOGLE basta escribir un código del tipo
%GOOGLE{}%
o
%GOOGLE2{}]%
donde dentro de las llaves podemos incluir cadenas de
búsqueda Google, como por ejemplo
| Código escrito | Resultado mostrado |
| %GOOGLE{}% |
|
| %GOOGLE2{}% |
|
| %GOOGLE{chavo (8|ocho) actriz chilindrina}% |
|
| %GOOGLE2{chavo (8|ocho) actriz chilindrina}% |
|
| %GOOGLE{"había una vez un barquito chiquitito"}% |
|
Observaciones:
- La única diferencia entre GOOGLE y GOOGLE2 es que en el primer caso aparece marcada la opción de buscar en Internet, mientras que en el segundo la opción predeterminada es buscar en www.omerique.net
- El motor de búsqueda de GOOGLE tarda días en actualizarse, de forma que para realizar búsquedas sobre los últimos cambios en nuestra propia web es más efectivo el motor de TWiki.
Código fuente del plugin
En realidad no es necesario contruir todo un plugin, sino sólo añadir un poco de código al módulo
lib/TWiki/Plugins/DefaultPlugin.pm
Añadimos código a la subrutina commomTagsHandler de lib/TWiki/Plugins/DefaultPlugin.pm
sub commonTagsHandler
{
### my ( $text, $topic, $web ) = @_; # do not uncomment, use $_[0], $_[1]... instead
TWiki::Func::writeDebug( "- ${pluginName}::commonTagsHandler( $_[2].$_[1] )" ) if $debug;
# This is the place to define customized tags and variables
# Called by sub handleCommonTags, after %INCLUDE:"..."%
# for compatibility for earlier TWiki versions:
if( $doOldInclude ) {
# allow two level includes
$_[0] =~ s/%INCLUDE:"([^%\"]*?)"%/TWiki::handleIncludeFile( $1, $_[1], $_[2], "" )/geo;
$_[0] =~ s/%INCLUDE:"([^%\"]*?)"%/TWiki::handleIncludeFile( $1, $_[1], $_[2], "" )/geo;
}
# do custom extension rule, like for example:
# $_[0] =~ s/%XYZ%/&handleXyz()/ge;
# $_[0] =~ s/%XYZ{(.*?)}%/&handleXyz($1)/ge;
#Pongo lo siguiente:
$_[0] =~ s/%GOOGLE{(.*?)}%/&buscadorGOOGLE($1)/ges;
}
Creamos la subrutina buscadorGOOGLE en lib/TWiki/Plugins/DefaultPlugin.pm
sub buscadorGOOGLE{
my ($parametros)=@_;
$parametros=~s/\"/"/g;
my $google="<form method=GET action=http://www.google.es/custom>\n";
$google.="<table bgcolor=#FFFFFF cellspacing=0 border=0>\n";
$google.="<tr valign=top><td>\n";
$google.="<a HREF=http://www.google.es/search>\n";
$google.="<img SRC=http://www.google.es/logos/Logo_40wht.gif border=0 ALT=Google align=middle></a>\n";
$google.="</td>\n";
$google.="<td>\n";
$google.="<input TYPE=text name=q size=50 maxlength=255 value=\"$parametros\">\n";
$google.="<input type=submit name=sa VALUE=\"Buscar \"> (<a href=\"/twiki/bin/view/TIC/BusquedasenGoogle\">Ayuda</a>)\n";
$google.="<input type=hidden name=cof VALUE=\"LW:179;L:http://www.omerique.net/twiki/pub/Main/LogotipoOMERIQUE/proy_omerique.png;;LH:61;AH:center;AWFID:b092bd86f7b55508;\">";
$google.="<font face=arial,sans-serif size=-1><input type=hidden name=domains value=\"www.omerique.net\">\n";
$google.="<br>";
$google.="<input type=radio name=sitesearch value=\"\" checked> Buscar en Internet\n";
$google.="<input type=radio name=sitesearch value=\"www.omerique.net\"> Buscar en www.omerique.net\n";
$google.="</font>\n";
$google.="<br>\n";
$google.="</td></tr></table>\n";
$google.="</form>\n";
return $google;
}
Temas relacionados
--
RicardoDeLosSantos - 23 Oct 2004
--
RicardoDeLosSantos - 07 Nov 2005
El pingüino ya no tiene frío
arriba