[prev] [thread] [next] [lurker] [Date index for 2002/08/23]
Update of /cvsroot/siesta/siesta/lib/Siesta In directory usw-pr-cvs1:/tmp/cvs-serv4992/lib/Siesta Modified Files: Message.pm Plugin.pm Log Message: change the Plugin->process api to simplify code Index: Message.pm =================================================================== RCS file: /cvsroot/siesta/siesta/lib/Siesta/Message.pm,v retrieving revision 1.12 retrieving revision 1.13 diff -u -d -r1.12 -r1.13 --- Message.pm 22 Aug 2002 04:37:34 -0000 1.12 +++ Message.pm 23 Aug 2002 14:26:38 -0000 1.13 @@ -7,6 +7,9 @@ use constant debug => 0; +use Class::MethodMaker + get_set => [ qw( list ) ]; + sub from { my $self = shift; Email::Valid->address( $self->head->get('From') ); Index: Plugin.pm =================================================================== RCS file: /cvsroot/siesta/siesta/lib/Siesta/Plugin.pm,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- Plugin.pm 23 Aug 2002 07:56:33 -0000 1.6 +++ Plugin.pm 23 Aug 2002 14:26:38 -0000 1.7 @@ -21,7 +21,9 @@ =head2 Methods -=item process +=item ->process( $message ); + +C<$message> is a Siesta::Message Return a true value to indicate "process no further plugins". use this for message rejection.
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52