Viewing file:  save_address.cgi (1.01 KB) -rwxr-xr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# save_address.cgi
# Save, add or delete an address book entry
use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
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");
|