ósea
$mailprog = '/usr/lib/sendmail'; eso lo cacho y la tengo.
pero lo que refiere a
@referers = ('worldwidemart.com','206.31.72.203'); eso que esta en
paréntesis no cacho paná.
si alguien a usado este script y sepa como funcionan estas líneas que me
ayude.
grax.
salu2.
--
<6d61676f7a40656e74656c6368696c652e6e6574>
> Hola
> me conseguí este script y quiero hacerlo funcionar, PERO me aparecieron
> problemas en el camino (pa' variar), en las líneas donde colocas la
> dirección y el path del programa sendmail del server
>
> ósea
> $mailprog = '/usr/lib/sendmail'; eso lo cacho y la tengo.
>
> pero lo que refiere a
> @referers = ('worldwidemart.com','206.31.72.203'); eso que esta en
> paréntesis no cacho paná.
>
se refiere a:
el diseñador del script, incluyo un rutina para que solamente los formularios de
el sitio ('dominio.cl','200.000.000.000'); pueda utilizarlo.
para que tu lo puedas utilizar, debes colocarle tu dominio sin "www", y la
direccion ip.
asi de sencillo.
la direccion ip, la puedes obtener de tu isp.
esono+
manzanita <manza...@manzanita.cl> escribió en artículo
<manzanaita-31...@dial-tnt17.chilesat.net>...
grax
salu2.
Phobos <magozS...@entelchile.net> escribió en artículo
<01c08c09$82e342a0$LocalHost@DEFAULT>...
<INPUT name=return_link_url type=hidden value=/pfm.html>
<INPUT name=return_link_title type=hidden value="Volver a Pág. Principal">
<INPUT name=recipient type=hidden value = cons...@cpe.cl>
<INPUT name="subject" type=hidden value="Consultas CPE">
<INPUT type=hidden name="realname" value="Posible Cliente">
<INPUT type=hidden name="required" value="email,Nombre">
--
ChileDominios .COM .NET .ORG
http://www.ChileDominios.cl
"Phobos" <magozS...@entelchile.net> wrote in message
news:01c08cce$cda0e840$LocalHost@DEFAULT...
> puro dolor de cabeza!
> el script al parecer funciona porque se ejecuta y me manda a la página de
> confirmación que el mail se envío, pero el email que se supone tiene que
> llegarme a mi correo brilla por su ausencia.
> si alguien ha tenido experiencia con este problema agradecería mucho que
> comentaran.
>
> grax
> salu2.
>
>
viejo... ese problema tambien lo tuve.
lo que hice para solucionarlo fue
instalar el script otra vez, siguiendo las instrucciones.
si te siguen los problemas, borra ese script, y ubica
sitios españoles que tmbien regalan los scripts.
otro que tenia por ahi es este. la verdad es que no lo he ocupado.
pero se que hace lomismo.
#!/usr/bin/perl
############################################################
# This Script is Copyright 1999 Matt Hite #
# Ma...@dingees.com #
# #
# You May Not Sell This Script Without My Permission #
# #
# Set Your PERL path on line 1 #
# chmod this file in your cgi-bin directory 755 #
# #
# I AM NOT RESPONISBLE FOR HOW YOU USE THIS CODE!!! #
# USE THIS AT YOUR OWN RISK!!! #
############################################################
############################################################
# Declare The Following Variables... #
############################################################
# Site Name
$sitename = "Matt's Emailer";
# Webmaster E-mail Address
# (With a \ Before the @ sign)
$webmastermail = "yo\@dominio.cl";
# Path To Sendmail
$sendmail = "/usr/sbin/sendmail";
# Your Site URL
$siteurl = "http://www.dominio.cl/";
# End Variables
#############################################################
# CHECK OUT HTTP://WWW.DINGEES.COM !!! #
# IT RAWKS! #
# IF you use this script, please email me @ Ma...@dingees.com#
# And include your site address! #
# #
# THANKS FOR USING MY SCRIPT! #
# #
# COPYRIGHT (c) 1999 Matt Hite. All Rights Reserved. #
# #
#############################################################
#############################################################
# NOTHING NEEDS TO BE CHANGED BEYOND THIS LINE! #
#############################################################
# Get Form The Info
if ($ENV{'QUERY_STRING'} =~ /email/) { &email; };
sub form_info {
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
if ($ENV{'QUERY_STRING'})
{$buffer = "$buffer\&$ENV{'QUERY_STRING'}";}
@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;}
}
# CaLL THE SUB ABOVE
&form_info;
# The E-mail Sub (sends message)
sub email {
#form sub..
&form_info;
open (EMAIL, "|$sendmail $FORM{'addy'}");
print EMAIL "Devuelve a: $FORM{'replyto'}\n";
print EMAIL "De: $FORM{'from'}\n";
print EMAIL "Para: $FORM{'addy'}\n";
print EMAIL "Titulo: $FORM{'subject'}\n\n";
print EMAIL "Hola. Lo siguiente fue enviado por\n";
print EMAIL "$sitename @ $siteurl\n\n";
print EMAIL "The Email Address Above Was Typed In To A Form, And May
Not Be The\n actuall address of the sender";
print EMAIL "$FORM{'message'}\n\n";
print EMAIL
"_____________________________________________________________________\n";
print EMAIL "THIS WAS SENT FROM $sitename\n";
print EMAIL "Located @ $siteurl\n";
print EMAIL "The Host Is not responsible for the content of this message,\n";
print EMAIL "The Sender is.\n\n";
close (EMAIL);
# Return Confirmation of message sent
print <<SENT;
<html>
<head>
<title>Mail sent to $FORM{'addy'}</title>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p align="center"><font face="Arial" color="#800000"><big><big><big>Thank
You</big></big></big></font></p>
<hr width="75%" size="1">
<p align="center"><font face="Arial"><strong>A copy has been mailed to
$FORM{'addy'}</strong></font></p>
<p align="center">Thanks again for using $sitename</p><br>
<i>Abuse WILL be reported to your ISP!!<br>
<hr width="75%" size="1">
<p align="center">Volver a: <a href="$siteurl">$sitename</a></p><br>
<br>
This Was Sent :<br>
$FORM{'message'}<Br>
<Br>
</body>
</html>
SENT
exit;
# END OF E-MAIL SUB
}
# END OF SCRIPT!
#############################################################
# CHECK OUT HTTP://WWW.DINGEES.COM !!! #
# IT RAWKS! #
# IF you use this script, please email me @ Ma...@dingees.com#
# And include your site address! #
# #
# THANKS FOR USING MY SCRIPT! #
# #
# COPYRIGHT (c) 1999 Matt Hite. All Rights Reserved. #
# #
#############################################################
manzanita <manza...@manzanita.cl> escribió en artículo
<manzanaita-02...@dial-tnt2-187.chilesat.net>...
> carpeta log, no tengo.
>
> manzanita <manzan...@correocaliente.cl> escribió en artículo
> <manzanaitaxx-0...@dial-tnt139.chilesat.net>...
lograste instalar el script pa correo?
porque puedo postearte otro que tengo.
a ver si funca.
salu2
Mario
"manzanita" <manza...@manzanita.cl> escribió en el mensaje
news:manzanaita-02...@dial-tnt2-187.chilesat.net...
> trata con
> # Path To Sendmail
> $sendmail = "/usr/sbin/sendmail -t";
>
> salu2
> Mario
>
"-t" no es necesaria. :)