sendmail- will someone please tell me why this doesnt work...

correction, here is the script minus typos:

#!/usr/local/bin/perl

$mailprog="usr/sbin/sendmail";

print "Content Type: text/html\n\n";
print "<h1>testing sendmail</h1>\n";

&send_mail;

sub send_mail {

open(MAIL,"|$mailprog -t");

print MAIL "To: robjohnson\@black-hole.com\n";
print MAIL "From: dillybar1\@black-hole.com\n";
print MAIL "Subject: sendmail test\n\n";

print MAIL "Test email\n";

close (MAIL);
}

$mailprog="usr/sbin/sendmail";

shouldn't you have it as
$mailprog='usr/sbin/sendmail';
or
$mailprog="usr\/sbin\/sendmail";
?

------------------
Windmills always turn counter-clockwise. Except for the windmills in Ireland.

better yet, use the correct path to sendmail, i.e. /usr/sbin/sendmail instead of usr/sbin/sendmail. plus, look at the error logs. very helpful in determining what's wrong. if you try running that on a shell, does it work ok? if not, what errors does it give?

thanks for the suggestions, i will try them when i get home...

i believe i tried "usr\/sbin\/sendmail" but it didnt make a difference, i wasnt aware single quotes made a difference. i did forget that first '/' on the sendmail path, i dont think that was it though because i tried this...

open(MAIL,"|$mailprog -t");
close MAIL;

which did not give me an error, which means the path is correct, right?

also, script runs fine in a dos window, no errors, and virtualave says their sendmail prog is working fine.

when i get home ill change $mailprog to '/usr/sbin/sendmail' or "\/usr\/sbin\/sendmail" and see if that fixes anything.

Thanks again for the suggestions.

open(PROG, "|$mailprog -t"); will ONLY give you an error if you check the return value:

code:

open PROG, "|$mailprog -t" or
  die "can't run $mailprog -t: $!";
[/code]

The original code had two typos that I saw immediately.  A '}' where a ';' should have been, and the path to sendmail was missing the leading /.

And no, you don't need to backslash a / in a double-quoted string.  Backslash-fever is a very annoying Perl illness... I'd very much like to know where it started.

------------------
-- 
MIDN 4/C PINYAN, NROTCURPI, US Naval Reserve 

$mailprog='/usr/local/bin/perl'; works just fine.

*slaps himself in the head*

funny how the toughest problems to find are the most obvious.

thanks for the help everyone