The pipe in red looks like the problem, try taking it out:
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);
Hope this helps,
- Mark
Astro-Boy!!
http://www.zip.com.au/~astroboy/
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);
Hope this helps,
- Mark
Astro-Boy!!
http://www.zip.com.au/~astroboy/