File Coverage

blib/lib/Mail/Salsa/Action/Return.pm

Criterion	Covered	Total	%
statement	21	48	43.7
branch	0	12	0.0
condition	0	3	0.0
subroutine	7	10	70.0
pod	0	3	0.0
total	28	76	36.8

#
# Mail/Salsa/Action/Return.pm
# Last Modification: Wed Apr 20 17:09:05 WEST 2005
#
# Copyright (c) 2005 Henrique Dias . All rights reserved.
# This module is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
#
package Mail::Salsa::Action::Return;

use 5.008000;
use strict;
use warnings;

require Exporter;
use Mail::Salsa::Logs qw(logs);
use Mail::Salsa::Action::Unsubscribe qw(remove_from_list);
use Mail::Salsa::Utils qw(file_path);
use SelfLoader;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Mail::Salsa ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw() ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw();
our $VERSION = '0.01';

SelfLoader->load_stubs();

sub new {
	my $proto = shift;
	my $class = ref($proto) || $proto;
	my $self  = {@_};
	bless ($self, $class);
	$self->process_msg();
	return($self);
}

sub process_msg {
	my $self = shift;

	my ($name, $domain) = split(/\@/, $self->{'list'});
	my $returnedfile = join("/", $self->{'tmp_dir'}, 'file');
	(-e $returnedfile) or return();
	my $addrs = &find_wrong_email($returnedfile);
	scalar(keys(%{$addrs})) or return();
	my $file = file_path($self->{'list'}, $self->{'list_dir'}, "list\.txt");
	my $res = remove_from_list($file, $addrs);
	for my $email (keys(%{$addrs})) {
		$self->logs(join("", "[user unknown unsubscribed] user: ", $email), "list") if($email);
	}
#exit();
	return();
}

sub find_wrong_email {
	my $file = shift;

	my %addresses = ();
	open(FILE, "<", $file) or return({});
	while() {
		if(my $email = &look4email($_)) { exists($addresses{$email}) or $addresses{$email} = 0; }
	}
	close(FILE);
	return(\%addresses);
}

# Autoload methods go after =cut, and are processed by the autosplit program.

1;

__DATA__