Hi:
I have a file called recommend.epl
at the beginning of the file i have
[$ if $option eq "sendmail" $]
[- &sendrecommend; -]
[$ else $]
[- &disprecommend; -]
[$ endif $]
and under this i have the subroutines:
i am posting here only sendrecommend:
[$ sub sendrecomend $]
[-
$ENV{EMBPERL_MAILHOST}="cybercable.net.mx";
$ENV{EMBPERL_MAILFROM}=$fdat{frommail};
$toname=$fdat{toname};
$fromname=$fdat{fromname};
$tomail=$fdat{tomail};
delete $fdat{fromname}; delete $fdat{frommail}; delete $fdat{toname};
delete $fdat{tomail};
delete $fdat{module}; delete $fdat{option}; delete $fdat{mpath};
$message = "Hola ".$toname."\n\nTu amigo(a) ".$fromname." te recomienda
visitar el sitio ";
$message .= "\"".$sitename."\" ".$eplsite_url;
MailFormTo ($tomail,$message,'email');
&OpenTable;
-]
<center><font class="content">La referencia a nuestro sitio a sido
enviada a [+$toname+]...<br><br>Gracias por
recomendarnos</font></center>
[- &CloseTable; -]
[$ endsub $]
but sometimes i get the error:
[3904]ERR: 24: Error in Perl code: Undefined subroutine
&HTML::Embperl::DOC::_7::sendrecommend called at
modules/Recommend/recommend.epl line 36.
Do you know why?
Please help me....
Thank you in advance.
Carlos Kassab
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
