#!/usr/bin/perl -w

open( STDERR, ">>/home/sulfericacid/public_html/test/error.log" )
  or die "Cannot open error log, weird...an error opening an error log: $!";

use CGI::Carp 'fatalsToBrowser';
use strict;
use warnings;
use POSIX;
use CGI qw/:standard/;

# INIT { $| = 1 }

require SDBM_File;

my %emails;
my $list      = "list.dbm";
my $adminmail = 'admin@test.com';
my $sendmail  = "/usr/lib/sendmail";

print header, start_html('Email Management');

print start_form(),
  table(
    Tr(
        td("Email: "),
        td(
            textfield(
                -name => 'email',
                -size => 40
            )
        )
    ),
    Tr( td(), td(submit) ),
  ),
  end_form(), hr();

if ( param() ) {
my $email = param('email');

    if ( param('email') ne "" ) {
        tie %emails, 'SDBM_File', $list, O_CREAT | O_RDWR, 0644;

        if ( !tied %emails ) {
            warn("database unsuccessful $!.\n");
        }
        $emails{$email} = " ";
        print "Email address added to database!";
        foreach ( sort keys(%emails) ) {
        print "$_ => $emails{$_}<br>";
        }

    }
    else {
        print "Where is the email?\n";
    }
}
print end_html();