Hi, Luiz,
My module don't use package.
This is some of the type:
#! /usr/bin/perl
#=============================================================================================
# Rotina: verifysession
# Parametros:
# 1 : $key
# Retorno:
# 0 - sem sess�o aberta
# 1 - com sess�o aberta
#=============================================================================================
sub verifysession {
my ($key) = shift;
# Rotina: verifysession
# Parametros:
# 1 : $key
# Retorno:
# 0 - sem sess�o aberta
# 1 - com sess�o aberta
#=============================================================================================
sub verifysession {
my ($key) = shift;
if (defined $udat{$key}) {
return 1;
}else{
createsession("usuario",undef);
createsession("hora",undef);
createsession("expira",undef);
return 0;
}
}
return 1;
}else{
createsession("usuario",undef);
createsession("hora",undef);
createsession("expira",undef);
return 0;
}
}
1;
Can i do it ?
I tried set PERL5LIB in httpd.conf, but the error continue (stopping and starting apache).
Thank you, Mauricio
| De: | "Luiz Fernando B. Ribeiro" <[EMAIL PROTECTED]> |
| Para: | [EMAIL PROTECTED] |
| C�pia: |
| Data: | Fri, 27 Dec 2002 10:26:05 -0200 |
| Assunto: | Re: Undefined subroutine &HTML::Embperl::DOC::_6::verifysession |
> Em Thu, 26 Dec 2002 19:48:31 +0000
> "Maur�cio Amorim " <[EMAIL PROTECTED]>escreveu:
>
> > Hi list,
> >
> > I am using use module in my epl files.
> >
> > I modify them, but i stop and start the apache, but the error
> > continue:
> >
> > Internal Server Error
> > The server encountered an internal error or misconfiguration and was
> > unable to complete your request. Please contact the server
> > administrator, [EMAIL PROTECTED] and inform them of the time the
> > error occurred, and anything you might have done that may have caused
> > the error. [14870]ERR: 24: Error in Perl code: Undefined subroutine
> > &HTML::Embperl::DOC::_6::verifysession called at
> > /home/ederson/apachelocal/htdocs/embperl//verdoc-des/cdvsession.epl
> > line 23. Apache/1.3.26 (Unix) mod_perl/1.27 HTML::Embperl 1.3.4 [Thu
> > Dec 26 17:39:20 2002] the .epl file is bellow:
> >
> > [-
> > use lib
> > '/home/ederson/apachelocal/htdocs/embperl/verdoc-des/pct'; use
> > GenFunc;
> > -]
> > [$ if (verifysession("usuario") == 0) $]
> >
>
> It seems to be a problem in your module, be sure it exports the
> verifysession simbol correctly. Read the documentation about the
> Exporter:
> > perldoc Exporter
>
> Any way I sugest you to use [! !] instead of [- -] for loading modules
> because it is executed only once.
>
> Regards,
>
> Luiz Fernando B. Ribeiro
> Engenho Solu��es para a Internet
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
> Esta mensagem foi verificada pelo E-mail Protegido Terra.
> Scan engine: VirusScan / Atualizado em 23/12/2002 / Vers�o: 1.3.13
> Proteja o seu e-mail Terra: http://www.emailprotegido.terra.com.br/
>
>
