🚀 go-pugleaf

	Tal d�a Wed, 08 Mar 2000 01:31:42 GMT,
	Manuel L�pez Moreno <luname@linuxfan.com> nos relat�:

* Cambios:
- Pregunta de comprobaci�n antes de escribir la l�nea de filtro.
- Algunos cambios cosm�ticos.

* Por hacer:
- Leer el campo 'X-Complaints-To' para enviar una queja formal al
administrador del servidor de news (idea de Cosme P. Cuevas).
- Posibilidad de introducir/editar el email desde la l�nea de
estado/edici�n, para poder aprovechar los mensajes de advertencia
de Benjam�n ;-)
- Formulario de queja para el administrador de news.

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

------------------------------ Cortar aqu� --------------------------------
% [spambuster.sl]  
%
% Copyright(c) mar mar 7 22:38:57 CET 2000 Gorka Olaizola
% Copyright(c) jue mar 9 15:33:20 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 pos, len;

	from = extract_article_header( "From" );

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

define filtrar_email()
{
	variable cmd;
	variable email;
	variable filter_line;

	if (is_group_mode)
		return();
	
	email = extrae_email();

	if (1 != get_yes_no_cancel(
		sprintf( "�Aplicar filtro a <%s>", email, 1 )
		))
		return();

	filter_line = sprintf( filter_fmt, 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_email", "^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.*/>