package DADA::MailingList::Subscribers::PostgreSQL; 

use lib qw(./ ../ ../../ ../../../ ./../../DADA ../../perllib); 

use base DADA::MailingList::Subscribers::baseSQL; 
use DADA::App::Guts;
use DADA::Config qw(!:DEFAULT); 



sub add_to_email_list { 

	my $self = shift; 
	
	my %args = (
				-Email_Ref => undef, 
				-Type      => "list",
				-Mode      => 'append', # This doesn't do anything... take note!
				@_
			   );
				
	
	my $address     = $args{-Email_Ref} || undef;
	my $email_count = 0;
	my $ending      = $args{-Type}; 
	my $write_list  = $self->{list}    || undef;  		
	
	if($write_list and $address){
		if($self->{list_info}->{hard_remove} == 1){
			foreach(@$address){
				chomp($_);
				$_ = strip($_); 
				
				my $query = "INSERT INTO "
							. $self->{sql_params}->{subscriber_table} .
							" VALUES (nextval('" .  $self->{sql_params}->{subscriber_table} . "_" . $self->{sql_params}->{id_column} . "_seq'),?,?,?,?)";
																
				my $sth = $self->{dbh}->prepare($query);  
																								  
				   $sth->execute(
				   				 $_, 
				   				 $write_list,
				   				 $args{-Type}, 
				   				 1,
				   				 ) or die "cannot do statment (for add_to_email_list1)! $DBI::errstr\n";  
				   				  
				   $sth->finish;
				$email_count++;
				
				$self->{'log'}->mj_log($self->{list},"Subscribed to $write_list.$ending", $_) 
					if (($DADA::Config::LOG{subscriptions}) && ($args{-Mode} ne 'writeover')); 
					# note for later, if $args{-Mode} doesn't do anything, why am I testing for it?
			}
		}else{ 
			foreach(@$address){
				chomp($_);
				$_ = strip($_);		
				
				if($self->check_for_double_email(-Email => $_, -Type => $args{-Type}, -Status => 0)){ 
				
					my $sth = $self->{dbh}->prepare(
													"UPDATE " .  $self->{sql_params}->{subscriber_table} .
										  	        " SET list_status = 1 
										  	          WHERE email     = ? 
										  	          AND list        = ? 
										  	          AND list_type   = ?"
										  	       );
										  	           
			   		$sth->execute(
			   					  $_, 
			   					  $write_list, 
			   					  $args{-Type}
			   					 ) or die "cannot do statment (for add_email_list2)! $DBI::errstr\n";   
			   		$sth->finish;
				
				}else{ 
			
					my $sth = $self->{dbh}->prepare(
													"INSERT INTO "
													.  $self->{sql_params}->{subscriber_table} . 
													" VALUES (nextval('" .  $self->{sql_params}->{subscriber_table} ."_". $self->{sql_params}->{id_column} ."_seq')
													,?,?,?,?)"
												   );
												       
					   $sth->execute(
					   			     $_, 
					   			     $write_list, 
					   			     $args{-Type}, 
					   			     1
					   			    ) or die "cannot do statment (for add_email_list3)! $DBI::errstr\n";   
					   $sth->finish;
					   $email_count++;
					   $self->{'log'}->mj_log($self->{list},"Subscribed to $write_list.$ending", $_) 
					   		if (($DADA::Config::LOG{subscriptions}) && ($args{-Mode} ne 'writeover')); 	
				}
			}
		}

		return $email_count; 
	}else{ 
		warn('Dada Mail Error: No list, or list ref was given in add_email_list()');
		return undef;
	}
}





1;


=pod

=head1 COPYRIGHT 

Copyright (c) 1999-2007 Justin Simoni All rights reserved. 

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.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, 
Boston, MA  02111-1307, USA.

=cut