sub send_email {
# --------------------------------------------------------
# Sends an email to the admin, letting him know that there is
# a new link waiting to be validated.
# Check to make sure that there is an admin email address defined.
$db_admin_email or &cgierr("Admin Email Address Not Defined in config file!");
my $to = $db_admin_email;
my $from = $in{$db_cols[$db_contact_email]};
my $subject = "Modification to Database: $in{'Title'}";
my $msg = qq|
The following link was modified and is awaiting validation:ORIGINAL LINK:
===============================================
ID: $original{'ID'}
Username: $original{'UserName'}
nUserName: $in{'UserName'}
Password: $original{'Password'}
nPassword: $in{'Password'}
Title: $original{'Title'}
nTitle: $in{'Title'}
URL: $original{'URL'}
nURL: $in{'URL'}
Category: $original{'Category'}
nCategory: $in{'Category'}
Alt Category: $original{'AltCategories'}
nAlt Category: $in{'AltCategories'}
DateAdded: $original{'DateAdded'}
nDateAdded: $in{'DateAdded'}
Date Modified: $original{'Date'}
nDate Modified: $in{'Date'}
Contact Name: $original{'ContactName'}
nContact Name: $in{'ContactName'}
Contact Email: $original{'ContactEmail'}
nContact Email: $in{'ContactEmail'}