🚀 go-pugleaf

	Tal d�a Tue, 7 Mar 2000 22:49:55 +0100,
	Gorka Olaizola <gorka@news.hondarribia.org> nos relat�:

>He acabado hoy un peque�o script en slang para el slrn para filtrar el
>email de la cabecera "From" y mandarlo directamente al fichero de filtros
>de leafnode. Lo adjunto al final.
>Parece que funciona bien, saca el email del campo From y pone la expresi�n
>regular en el fichero de filtros. No funciona bien en un caso, por ejemplo
>com mi From no saca bien la direcci�n, pero por m�s vueltas que le doy no
>consigo que funcione. Es la primera vez que me meto con expresiones
>regulares y estoy un poco perdido.
>Agradecer�a si entre todos podeis mejorar la b�squeda del email.

He retocado algunas cosas:
- expresiones regulares
- el filtro para leafnode est� en una variable aparte
- el c�digo de extracci�n del campo "From:"
- etc.

El c�digo est� para depurar, por lo que hay que
comentar/descomentar algunas l�neas.

He toqueteado los "copyrights" y e inclu�do a Carlos B. Ruiz (aka
iLogik), pues hace tiempo escribi� el script nospam.sl, del cual
he tomado alguna idea para reescribir tu c�digo.

Aqu� est� el remix:

------------------------------ Cortar aqu� --------------------------------
% [spambuster.sl]  
%
% Copyright(c) mar mar 7 22:38:57 CET 2000 Gorka Olaizola
% Copyright(c) mi� mar 8 01:51:00 CET 2000 Manuel L�pez Moreno
% Copyright(c) mi� feb 2 17:53:19 CET 2000 Carlos B. Ruiz
%
% This program is free software; you can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
% the Free Software Foundation; either version 2 of the License, or
% (at your option) any later version.
% --------------------------------------------------------------------
%
% Uso: Pon este script en ~/.slrn/ y esta l�nea en tu .slrnrc:
%		interpret ".slrn/spam-buster.sl"
%
% Que hace: 	Manda el email del campo From directamente a 
%		/etc/news/leafnode/filters
%
% Gracias a los posteadores habituales de es.comp.os.linux.*
%
% Normas del grupo en http://linux-es.com/es.comp.os.linux.*/
% --------------------------------------------------------------------

% variable filter_file	= "/etc/leafnode/filters";
variable filter_file	= "/tmp/test-spambuster.tmp";
variable filter_fmt	= "^(?i:from):.*[< ]%s[> ]";
variable email_pattern	= "\\([^< ]+@[^> ]+\\)";

define extrae_email()
{
	variable email = "";
	variable from;
	variable matched, pos, len;

	from = extract_article_header( "From" );

	matched = string_match( from, email_pattern, 1 );
	if (matched) {
		(pos, len) = string_match_nth( 1 );
		email = substr( from, pos+1, len );
		
	}
	
	return email;
}

define filtrar_from()
{
	variable filter_line;
	variable cmd;
	
	filterline = sprintf( filter_fmt, extrae_email(), 1 );

	cmd = sprintf( "su -c \'echo \"%s\" >> %s\'",
		filter_line, filter_file, 3 );

	if (system( cmd ))
	{
             	error( "Se ha producido un error. "+
			"Posiblemente la contrase�a de root sea incorrecta" );
	}
	else 
	{
%		message( "Un filtro m�s, otro spammer menos" );
		message( cmd );
	}

	return();
}

definekey ("filtrar_from", "^f", "article");
------------------------------ Cortar aqu� --------------------------------

-- 
Manuel L�pez Moreno
O---m <http://www.linuxfan.com/~luname/pgp-key.asc>

Visita: Web de ecol* <http://www.linux-es.com/es.comp.os.linux.*/>