--- trunk/Nos.pm	2005/05/24 14:02:05	47
+++ trunk/Nos.pm	2005/05/25 15:03:10	52
@@ -26,12 +26,6 @@
 use Email::Simple;
 use Email::Address;
 use Mail::DeliveryStatus::BounceParser;
-use Data::Dumper;
-
-my $email_send_driver = 'Email::Send::IO';
-my @email_send_options;
-
-#$email_send_driver = 'Sendmail';
 
 
 =head1 NAME
@@ -114,7 +108,10 @@
 	my $arg = {@_};
 
 	confess "need list name" unless ($arg->{'list'});
-	confess "need list email" unless ($arg->{'list'});
+	confess "need list email" unless ($arg->{'email'});
+
+	$arg->{'list'} = lc($arg->{'list'});
+	$arg->{'email'} = lc($arg->{'email'});
 
 	my $l = $self->_get_list($arg->{'list'}) ||
 		$self->_add_list( @_ ) ||
@@ -145,9 +142,9 @@
 
 	my $arg = {@_};
 
-	my $email = $arg->{'email'} || croak "can't add user without e-mail";
+	my $email = lc($arg->{'email'}) || croak "can't add user without e-mail";
 	my $name = $arg->{'name'} || '';
-	my $list_name = $arg->{'list'} || croak "need list name";
+	my $list_name = lc($arg->{'list'}) || croak "need list name";
 
 	my $list = $self->_get_list($list_name) || croak "list $list_name doesn't exist";
 
@@ -206,7 +203,7 @@
 
 	my $args = {@_};
 
-	my $list_name = $args->{'list'} || confess "need list name";
+	my $list_name = lc($args->{'list'}) || confess "need list name";
 
 	my $lists = $self->{'loader'}->find_class('lists');
 	my $user_list = $self->{'loader'}->find_class('user_list');
@@ -252,6 +249,8 @@
 
 	croak "need name or email of user to delete" unless ($args->{'name'} || $args->{'email'});
 
+	$args->{'email'} = lc($args->{'email'}) if ($args->{'email'});
+
 	my $key = 'name';
 	$key = 'email' if ($args->{'email'});
 
@@ -259,8 +258,6 @@
 
 	my $this_user = $users->search( $key => $args->{$key} )->first || return;
 
-print Dumper($this_user);
-
 	$this_user->delete || croak "can't delete user\n";
 
 	return $users->dbi_commit || croak "can't commit";
@@ -291,7 +288,7 @@
 
 	my $args = {@_};
 
-	my $list_name = $args->{'list'} || confess "need list name";
+	my $list_name = lc($args->{'list'}) || confess "need list name";
 	my $message_text = $args->{'message'} || croak "need message";
 
 	my $m = Email::Simple->new($message_text) || croak "can't parse message";
@@ -332,7 +329,11 @@
 
 Send queued messages or just ones for selected list
 
- $nos->send_queued_messages("My list",'smtp');
+ $nos->send_queued_messages(
+ 	list => 'My list',
+	driver => 'smtp',
+	sleep => 3,
+ );
 
 Second option is driver which will be used for e-mail delivery. If not
 specified, C<IO> driver will be used which will dump e-mail to C<STDERR>.
@@ -347,20 +348,29 @@
 
 =back
 
+Default sleep wait between two messages is 3 seconds.
+
 =cut
 
 sub send_queued_messages {
 	my $self = shift;
 
-	my $list_name = shift;
+	my $arg = {@_};
+
+	my $list_name = lc($arg->{'list'}) || '';
+	my $driver = $arg->{'driver'} || '';
+	my $sleep = $arg->{'sleep'};
+	$sleep ||= 3 unless defined($sleep);
 
-	my $driver = shift || '';
+	my $email_send_driver = 'Email::Send::IO';
+	my @email_send_options;
 
 	if (lc($driver) eq 'smtp') {
 		$email_send_driver = 'Email::Send::SMTP';
 		@email_send_options = ['127.0.0.1'];
+	} else {
+		warn "dumping all messages to STDERR\n";
 	}
-	warn "using $driver [$email_send_driver]\n";
 
 	my $lists = $self->{'loader'}->find_class('lists');
 	my $queue = $self->{'loader'}->find_class('queue');
@@ -401,6 +411,7 @@
 
 				my $from_addr;
 				my $from_email_only = $from . "+" . $hash . ( $domain ? '@' . $domain : '');
+
 				$from_addr .= '"' . $u->list_id->from_addr . '" ' if ($u->list_id->from_addr);
 				$from_addr .= '<' . $from_email_only . '>';
 				my $to = '"' . $u->user_id->name . '" <' . $to_email . '>';
@@ -408,8 +419,8 @@
 				my $m_obj = Email::Simple->new($msg) || croak "can't parse message";
 
 				$m_obj->header_set('Return-Path', $from_email_only) || croak "can't set Return-Path: header";
-				$m_obj->header_set('Sender', $from_email_only) || croak "can't set Return-Path: header";
-				$m_obj->header_set('Errors-To', $from_email_only) || croak "can't set Return-Path: header";
+				$m_obj->header_set('Sender', $from_email_only) || croak "can't set Sender: header";
+				$m_obj->header_set('Errors-To', $from_email_only) || croak "can't set Errors-To: header";
 				$m_obj->header_set('From', $from_addr) || croak "can't set From: header";
 				$m_obj->header_set('To', $to) || croak "can't set To: header";
 
@@ -429,6 +440,11 @@
 					hash => $hash,
 				});
 				$sent->dbi_commit;
+
+				if ($sleep) {
+					warn "sleeping $sleep seconds\n";
+					sleep($sleep);
+				}
 			}
 		}
 		$m->all_sent(1);
@@ -457,12 +473,16 @@
 	return unless ($arg->{'message'});
 	croak "need list name" unless ($arg->{'list'});
 
+	$arg->{'list'} = lc($arg->{'list'});
+
 	my $this_list = $self->_get_list($arg->{'list'}) || croak "can't find list ".$arg->{'list'}."\n";
 
 	my $m = Email::Simple->new($arg->{'message'}) || croak "can't parse message";
 
 	my $to = $m->header('To') || die "can't find To: address in incomming message\n";
 
+	my $return_path = $m->header('Return-Path') || '';
+
 	my @addrs = Email::Address->parse( $to );
 
 	die "can't parse To: $to address\n" unless (@addrs);
@@ -472,18 +492,19 @@
 	my $hash;
 
 	foreach my $a (@addrs) {
-		if ($a->address =~ m/\+([a-f0-9]{$hl})@/) {
+		if ($a->address =~ m/\+([a-f0-9]{$hl})@/i) {
 			$hash = $1;
 			last;
 		}
 	}
 
-	croak "can't find hash in e-mail $to\n" unless ($hash);
+	#warn "can't find hash in e-mail $to\n" unless ($hash);
 
 	my $sent = $self->{'loader'}->find_class('sent');
 
 	# will use null if no matching message_id is found
-	my $sent_msg = $sent->search( hash => $hash )->first;
+	my $sent_msg;
+	$sent_msg = $sent->search( hash => $hash )->first if ($hash);
 
 	my ($message_id, $user_id) = (undef, undef);	# init with NULL
 
@@ -491,18 +512,23 @@
 		$message_id = $sent_msg->message_id || carp "no message_id";
 		$user_id = $sent_msg->user_id || carp "no user_id";
 	} else {
-		warn "can't find sender with hash $hash\n";
+		#warn "can't find sender with hash $hash\n";
+		my $users = $self->{'loader'}->find_class('users');
+		my $from = $m->header('From');
+		$from = $1 if ($from =~ m/<(.*)>/);
+		my $this_user = $users->search( email => lc($from) )->first;
+		$user_id = $this_user->id if ($this_user);
 	}
 
 
 	my $is_bounce = 0;
 
-	{
+	if ($return_path eq '<>' || $return_path eq '') {
 		no warnings;
 		my $bounce = eval { Mail::DeliveryStatus::BounceParser->new(
 			$arg->{'message'}, { report_non_bounces=>1 },
 		) };
-		carp "can't check if this message is bounce!" if ($@);
+		#warn "can't check if this message is bounce!" if ($@);
 	
 		$is_bounce++ if ($bounce && $bounce->is_bounce);
 	}
@@ -519,10 +545,7 @@
 
 	$this_received->dbi_commit;
 
-	print "message_id: ",($message_id || "not found")," -- $is_bounce\n";
-
-
-	warn "inbox is not yet implemented";
+#	print "message_id: ",($message_id || "not found")," -- $is_bounce\n";
 }
 
 
@@ -554,8 +577,8 @@
 
 	my $arg = {@_};
 
-	my $name = $arg->{'list'} || confess "can't add list without name";
-	my $email = $arg->{'email'} || confess "can't add list without e-mail";
+	my $name = lc($arg->{'list'}) || confess "can't add list without name";
+	my $email = lc($arg->{'email'}) || confess "can't add list without e-mail";
 	my $from_addr = $arg->{'from'};
 
 	my $lists = $self->{'loader'}->find_class('lists');
@@ -596,7 +619,7 @@
 
 	my $lists = $self->{'loader'}->find_class('lists') || confess "can't find lists class";
 
-	return $lists->search({ name => $name })->first;
+	return $lists->search({ name => lc($name) })->first;
 }
 
 ###