sendmail

[crptcblade]

can anybody show me a quick script in PERL using sendmail? I've been trying to do it, and I keep getting errors when I run it.

Thanks

[scoutt]

hi Crpt

this is one example, if you want another you need to wait till I get home. I have another one that is more easier to read.

open(MAIL, "|$mail_program -t") || die "Can't open $mail_program!\n";
print MAIL<<EOF;
To: $admin_email
From: $as{'user_email'}
Subject: New Code $email_fields[0] Posted: $email_fields[10]
A new code has been posted to the $site_name web site. The code information is as follows.


Name: $as{'user_name'} ($as{'user_nickname'})
Email: $as{'user_email'}

Category: $as{'category_name'}

NAME OF SCRIPT: $email_fields[10]
EOF

if this don't help what type of errors are you getting?