use warnings;
use POSIX;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);


# You are requested not to change any configurations in this file.
# Everything is setup to function as-is, any tamporing may damage
# the script.

require SDBM_File;

my %emails;
my %snailmail;

my $snail     = "snail.dbm";  #change to location of snail mail database
my $list      = "mylist.dbm"; #change to location of email database

my $del = url_param('del');

tie %emails, 'SDBM_File', $list, O_CREAT | O_RDWR, 0644;
if ( !tied %emails ) {
    print "database unsuccessful $!.\n";
    }


tie %snailmail, 'SDBM_File', $snail, O_CREAT | O_RDWR, 0644;
if ( !tied %snailmail ) {
    print "database unsuccessful $!.\n";
    }

print header, start_html('Email Management');


foreach(keys %emails)
{
  print qq($_ => $emails{$_}    [<a href="delete.pl?del=$_">delete?</a>]<br><br>);
}


if ($del ne "")
{
  if (exists $emails{$del})
    { delete $emails{$del}; }
  else { print "<center><font color=red>This data can not be found!</font></center>";}
}

##</code><code>##

   $name =~ s/</&lt\;/gi;
   $name =~ s/://gi;
   $name =~ s/TO//gi;
   $name =~ s/FROM//gi;
   $name =~ s/SUBJECT//gi;