Hello
I had a the following script. Is there any posibility
to send mail to another emails account that belong to
other domains?
thank you
Ignacio
#!/usr/bin/perl
# Enter the location of sendmail.
$mailprogram = "/usr/sbin/sendmail -t -i
[EMAIL PROTECTED]";
# Enter your e-mail address. Be sure to put a \ in
front of the @.
# ([EMAIL PROTECTED] becomes [EMAIL PROTECTED])
$youremail = "[EMAIL PROTECTED]";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~
s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
open (MAIL,"|$mailprogram");
print MAIL "To: $youremail\n";
print MAIL "$FORM{'linea1'}\n";
print MAIL "$FORM{'linea2'}\n";
print MAIL "$FORM{'linea3'}\n";
print MAIL "$FORM{'linea4'}\n";
print MAIL "$FORM{'linea5'}\n";
print MAIL "$FORM{'linea6'}\n";
close MAIL;
______________________________________________
LLama Gratis a cualquier PC del Mundo.
Llamadas a fijos y móviles desde 1 céntimo por minuto.
http://es.voice.yahoo.com
---------------------------------------------------------------------
Web Archive: http://www.mail-archive.com/[email protected]/
http://marc.theaimsgroup.com/?l=cgiapp&r=1&w=2
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
