#!/usr/bin/perl
# save_address.cgi
# Save, add or delete an address book entry
use strict;
use warnings;
our (%text, %in);

require './mailbox-lib.pl';
&ReadParse();
my @addrs = &list_addresses();

if ($in{'delete'} ne '') {
	my ($del) = grep { $_->[2] eq $in{'delete'} } @addrs;
	&addressbook_remove_whitelist($del->[0]);
	&delete_address($in{'delete'});
	}
else {
	&error_setup($text{'address_err'});
	$in{'addr'} =~ /^\S+\@\S+$/ || &error($text{'address_eaddr'});
	$in{'addr'} =~ /[,<>"\(\)]/ && &error($text{'address_eaddr'});
	if ($in{'from'} == 2) {
		# Turn off default for all others
		foreach my $a (@addrs) {
			if ($a->[3] == 2 && $a->[2] != $in{'edit'}) {
				&modify_address($a->[2], $a->[0],
						$a->[1], 1);
				}
			}
		}
	if ($in{'add'}) {
		&create_address($in{'addr'}, $in{'name'}, $in{'from'});
		}
	else {
		&modify_address($in{'edit'}, $in{'addr'}, $in{'name'}, $in{'from'});
		}
	&addressbook_to_whitelist();
	}
&redirect("list_addresses.cgi?mode=users");