In the html.pl, under the html_add_success routine I added a section that e-mails the results to me!
my (%rec) = &get_record($in{$db_key}); open (MAIL, "$mailprog") || &cgierr("Can't start mail program"); print MAIL "To: $admin_email\n"; print MAIL "From: $rec{'EMAIL'}\n"; print MAIL "Subject: $html_title\n\n"; foreach $col (@db_cols) { print MAIL "$col$rec{$col}|"; } close (MAIL);
Any help greatly appreciated!
Ben
my (%rec) = &get_record($in{$db_key}); open (MAIL, "$mailprog") || &cgierr("Can't start mail program"); print MAIL "To: $admin_email\n"; print MAIL "From: $rec{'EMAIL'}\n"; print MAIL "Subject: $html_title\n\n"; foreach $col (@db_cols) { print MAIL "$col$rec{$col}|"; } close (MAIL);
Any help greatly appreciated!
Ben