Question : Email problem...

I've got the following lines in an
mylib.pm file.

$mailserver="/var/qmail/bin/qmail-Inject -t";

sub sendemail {
        open( MAIL, "|$mailserver" )
|| die "can't open sendmail: $mailprog:$!\n";
print MAIL "Return-Path:$returnpath\n";
print MAIL "To: $_[0]\n";
print MAIL "Subject: $_[1]\n";
print MAIL "From: $from\n";
print MAIL "Reply-to: $from\n\n";
print MAIL " $_[4]\n\n";
print MAIL "Thank you \n";
print MAIL "$thanksfrom\n";
close (MAIL);
}

they took care of sending email for me.
It worked half a year ago, but now it doesn't seem to work. I call the sub with:
&sendemail{$reg5,$reg5,$reg5,$mailserver,"Thank you for visiting my site",$afzender);

where $reg5=the recipients email adress
and $afzender=my name

I can't figure out why it doesn't work.
Can you adjust this code so that it works, or can you give me other lines (which I can put in the mylib.pm file) ?

Answer : Email problem...

SMTP servers vary from server to server

I believe you GOT your ANSWER to your first question ..

isnt it ?


and your script is NOW working in the hypermart server isnt it ?

Once you go to another hosting provider all you have to do is to find the location of the sendmail or fins what the SMTP server is ...