Hi, im trying to use perl to inject a message into the qmail outbound queue, with little/no success, has anobody done it before? or can help? I would be forever in your debt.

PLEASE ASAP - if you have a friend get them involved, im soo desperate you wouldnt believe it.

Thanx

Can you use /var/qmail/bin/qmail-inject? It works just like sendmail's /usr/sbin/sendmail, where you give it the headers then an EOF, and it sends the message.

hi, qslack, i have the following, any idea whats wrong ?

ive tried various different layouts aswell as this

#!/usr/bin/perl

open (MAIL, "|/var/qmail/bin/sendmail -t");
print MAIL "To: XTStrike\@aol.com, DKoesterich\@BlackOnyxLLC.com\n";
print MAIL "From: Testing\@Testing.com";
print MAIL "Subject: Test Email With QMail\n\n";
print MAIL "Testing";
close(MAIL);

print "Content-type: text/html\n\n";
print "Email Sent";

exit;

also tried :

#!/usr/bin/perl

open (MAIL, "|/var/qmail/bin/qmail-inject");
print MAIL "To: XTStrike\@aol.com, DKoesterich\@BlackOnyxLLC.com\n";
print MAIL "From: Testing\@Testing.com";
print MAIL "Subject: Test Email With QMail\n\n";
print MAIL "Testing";
close(MAIL);

print "Content-type: text/html\n\n";
print "Email Sent";

exit;

I thought i would praise in public.

BUT - ive just been slaving over that code for 3 hours and "qslack" just solved it for me.

MAY I PUBLICLY PRIASE THIS GUY - FROM THE BOTTOM OF MY HEART "THANK YOU"

QSLACK - YOU ARE AMAZING

:cool: :) :D Happy to help.

Why not put the solution in public so others can learn from this as well?

#!/usr/bin/perl

open (MAIL, "|/var/qmail/bin/qmail-inject");
print MAIL "To: XTStrike\@aol.com, DKoesterich\@BlackOnyxLLC.com\n";
print MAIL "From: Testing\@Testing.com\n";
print MAIL "Subject: Test Email With QMail\n";
print MAIL "Testing";
close(MAIL);

print "Content-type: text/html\n\n";
print "Email Sent";

exit;



I think that was the solution.

lol, yeah good point, forgot to do that, i was so happy he solved it for me !!

correct code is as follows, the main issue was simply carriage returns, simple maybe to someone as experienced as qslack, but to a mere beginner like myself its a critical mistake, weing the difference between working and not working:

#!/usr/bin/perl

open (MAIL, "|/var/qmail/bin/qmail-inject\n");
print MAIL "To: XTStrike\@aol.com, DKoesterich\@BlackOnyxLLC.com\n";
print MAIL "From: Testing\@Testing.com\n";
print MAIL "Subject: Test Email With QMail\n";
print MAIL "Testing\n";
close(MAIL);

print "Content-type: text/html\n\n";
print "Email Sent";

exit;

Heheh, I noticed that in your previous posts. When you've been coding Perl for a few years, you automaticly end the line with those things without even thinking about it.

Anyways,.. I'm glad you got it working.


Oops.. forgot a very important thing -->> :D