#############################################################
# Required Files
#############################################################

require $mailer_path . "/Mailer.pm";

##############################################################
# Begin Script
#############################################################

@referers = ('http://www.coco.cc.az.us','http://wookie.coco.cc.az.us','http://spock.coco.cc.az.us');

&Check_URL;

#############################################################
# Open the Database
#############################################################

open (DB, "<$db_path/$db_file_name") or ("unable to open password file. Reason: $!\n");
if ($db_use_flock) {
flock(DB, 2);
}
@lines = <DB>;


#############################################################
# Start Loop
#############################################################

foreach $line (@lines) {
@data = split /\|/, $line;
$email = $data[21];
$user = $data[3];
print "$email\n";
}
if (!$data[21]) {
print "Content-type: text/html\n\n";
print "No Email Address or User Name defined in $db_path/$db_file_name!";
exit;
}
close DB;

if (($user) && ($email)) {

#############################################################
# Mail Routine
#############################################################

my $mailer = new Mailer ( { smtp => 'yoda.coco.cc.az.us' } )
or die "Can't init mailer: $Mailer::error";
$mailer->send ( {
to => '$email',
from => '$admin_mail',
subject => "NT Web Account Created",
msg => $notify_body_text
} )
or die "Can't send mail: $Mailer::error";
}

#############################################################
# Print to Log File
#############################################################

&logging;

##################################################################
# END SCRIPT
##################################################################

lhill@anthrotech.com aolson@anthrotech.com apeterse@anthrotech.com brybates@anthrotech.com cnation@flagstaff.az.us
dlokon@anthrotech.com
lgallego@anthrotech.com minigo@anthrotech.com mmckinst@anthrotech.com shill@anthrotech.com vfishco@anthrotech.com
twymore@anthrotech.com tmckever@anthrotech.com snittman@anthrotech.com rbradfor@anthrotech.com
jrhode@anthrotech.com brunke@anthrotech.com cshirley@anthrotech.com dmacias@anthrotech.com ejones@anthrotech.com jgroos@anthrotech.com mostrows@anthrotech.com eliot@anthrotech.com
dbrown@anthrotech.com psprengl@anthrotech.com mlainoff@anthrotech.com bswanson@besy.anthrotech.com ksalt@anthrotech.com
mbaker@anthrotech.com kkozak@anthrotech.com bcress@anthrotech.com bmurphy@anthrotech.com dfischo@anthrotech.com gcurd@anthrotech.com jbradley@anthrotech.com rcalvin@anthrotech.com
rfoster@anthrotech.com
pholbroo@anthrotech.com Content-type: text/plain

email1
email2
email3
email4
email5

foreach (@lines) {
next if /^#/;
next if /^\s*$/;
chomp;
@values = &split_decode ($_);
if ($today > (&date_to_unix($values[$dateadded_field]) + (86400 * $values[$removeby_field]))) {
print "Record(s) Deleted\n";
next;
}

foreach $line (@lines) {
@data = split /\|/, $line;
$email = $data[21];
$user = $data[3];
print "$email\n";
}
if (!$data[21]) {
print "Content-type: text/html\n\n";
print "No Email Address or User Name defined in $db_path/$db_file_name!";
exit;
}

foreach $line (@lines) {
chomp $line;
@data = split /\|/, $line;
if ($data[21] && $data[3]) {
push (@emails,$data[21]);
push (@users,$data[3]);
}
}
if (!$emails[0]) {
print "Content-type: text/html\n\n";
print "No Email Address or User Name defined in $db_path/$db_file_name!";
exit;
}

# if you want to print out the email addresses to the browser, add the following:
else {
print "Content-type: text/html\n\n";
foreach $email (@emails) {
print "$email<BR>";
}
}

foreach $email (@emails) {
my $mailer = new Mailer ( { smtp => 'yoda.coco.cc.az.us' } )
or die "Can't init mailer: $Mailer::error";
$mailer->send ( {
to => '$email',
from => '$admin_mail',
subject => "NT Web Account Created",
msg => $notify_body_text
} )
or die "Can't send mail: $Mailer::error";
}

if (($user) && ($email)) {

to => '$email',
from => '$admin_mail',

to => $email,
from => $admin_mail,

$mailfield = 21;
$userfield = 3;
$modifiedfield = 19;
$reminddays = '42';

if ($today > (&date_to_unix($data[$modifiedfield]) + (86400 * $reminddays))) {
OTHER IF AND PUSH CODES
}