Uso del plugin en una página

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

• BusquedasenGoogle, EjemploBusquedasGoogle

• 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.

• En principio se pueden usar llaves en lugar de corchetes al definir un entorno GOOGLE, pero las llaves no se pueden usar dentro de un formulario, por lo que es recomendable la notación con corchetes, como en los ejemplos anteriores.

Plugin GOOGLE

%GOOGLE{}%

o

%GOOGLE2{}%

donde dentro de las llaves podemos incluir cadenas de búsqueda Google, como por ejemplo

Código escrito	Resultado mostrado
%GOOGLE{}%	(Ayuda) Buscar en Internet Buscar en www.omerique.net
%GOOGLE2{}%	(Ayuda) Buscar en Internet Buscar en www.omerique.net
%GOOGLE{chavo (8|ocho) actriz chilindrina}%	(Ayuda) Buscar en Internet Buscar en www.omerique.net
%GOOGLE2{chavo (8|ocho) actriz chilindrina}%	(Ayuda) Buscar en Internet Buscar en www.omerique.net
%GOOGLE{"había una vez un barquito chiquitito"}%	(Ayuda) Buscar en Internet Buscar en www.omerique.net

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 en nuestra propia web es más efectivo el motor de TWiki.

• Si queremos incluir comillas dentro de una cadena de búsqueda usando este plugin, las comillas deben estar escritas en HTML, esto es, mediante "

Temas relacionados: BusquedasenGoogle, EjemploBusquedasGoogle, GoogleOmerique

-- RicardoDeLosSantos - 23 Oct 2004

El pingüino ya no tiene frío