package myMailerContact;
$mailprog = "/usr/sbin/sendmail";

sub sendit {
#receive recipient.
my($emailto, $emailfrom, $subject, $msgPtr, $sort_order, $priority) = @_;

#open sendmail. 
open (MAIL, "|$mailprog -t") || die "Cannot open $mailprog.";
   print MAIL "To: $emailto\n";
   print MAIL "From: $emailfrom\n";
   if($priority) {print MAIL "$priority\n";}
   print MAIL "Subject: $subject\n";
   print MAIL "\n";
   print MAIL "------------------------------------------------------\n\n";
   
if ($sort_order) {
	@FIELDS = split(/\,\s*/, $sort_order);
}else {
	@FIELDS = keys(%$msgPtr);
}

if (@FIELDS) {
	foreach $field (@FIELDS) {
		if ($field eq '<BR>') {
			print MAIL "\n";
		}else {
			print MAIL "$field: $$msgPtr{$field}\n";
		}
	}

}
  
   print MAIL "------------------------------------------------------\n";


print MAIL ".\n";
   close (MAIL);


}#end of SENDEMAIL
1;