perl-embperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Carlos Kassab <...@glin.com.mx>
Subject subroutine not found in the same file...please help
Date Sun, 29 Dec 2002 16:40:58 GMT
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: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org


Mime
View raw message