答复: 答复: In module require configuration file

[Wang, , 上海, , wx...@marsec.net]

Maybe I should use ''PerlSetVar''.
I will think it.

> -----原始邮件-----
> 发件人: Mike & Christine [mailto:mcameron@mirusweb.com]
> 发送时间: 2001年6月6日 11:49
> 收件人: Wang Xingyu 王兴宇 [上海]; modperl@apache.org
> 主题: Re: 答复: In module require configuration file
> 
> 
> and also http://
> thingy.kcilink.com/modperlguide/perl/Using_Non_Hardcoded_Confi
> guratio.html
> ----- Original Message -----
> From: Wang Xingyu 王兴宇 [上海] <wx...@marsec.net>
> To: Wang Xingyu 王兴宇 [上海] <wx...@marsec.net>; <mo...@apache.org>
> Sent: Tuesday, June 05, 2001 9:15 PM
> Subject: 答复: In module require configuration file
> 
> 
> > Sorry.I find ,require different configuration file in module is
> > impossibility.
> > Have a mistake ,my  mandrake box run in cgi environment as 
> a result of
> > apache configure.
> >
> > So ,in mod-perl,I dont find any way require different configuration.
> >
> > > -----?-ê?óê?t-----
> > > ・￠?tè?: Wang Xingyu í?D?ó? [é?o￡]
> > > ・￠?íê±??: 2001?ê6??5è? 15:22
> > > ê??tè?: modperl@apache.org
> > > ?֓a: In module require configuration file
> > >
> > >
> > > Hi all:
> > >
> > >        In mod-perl,my module (mymodule.pm) will read 
> config var from a
> > > file ( require conf.pm).I put the require in my new() function.
> > >        In one instance,they will work well.
> > >        But ,I will run two or more instance (the two conf.pm is
> > > different.),the mymodule.pm will have error.Because it
> > > require conf.pm
> > > and maybe get other conf.pm.
> > >         I am test false in redhat 7,the apache is 1.3.14 and
> > > mod-perl is
> > > 1.24. And re-compile apache 1.3.20 and mod-perl 1.25,and 
> test false
> > > also.
> > >
> > >        But I am test in Mandrake 8 ,the apache is 1.3.19 and
> > > mod-perl is
> > > 1.25.The two instance has  worked!
> > >
> > >        I wonder,why redhat un-support two instance and
> > > Mandrake is well?
> > >
> > >        Thanks and sorry for my english.
> > >
> > >
> > > The sample code:
> > >
> > > =========================================================
> > > #!/usr/bin/perl
> > > # mymodule.pm
> > >
> > > Package mymodule;
> > >
> > > sub new
> > > {
> > > my $type = shift;
> > > my $self = {};
> > > require "./conf.pm";
> > > bless $self,$type;
> > > }
> > >
> > > =========================================================
> > > #!/usr/bin/perl
> > > # conf.pm
> > > # configuration file one
> > > package conf;
> > > use strict;
> > > use vars qw($conf);
> > >
> > > # defined configure variable
> > > $conf =
> > >     {
> > >     # web name.
> > >     'web_name' => 'foo.com',
> > >      }
> > >
> > >
> > >
> > > ========================================================
> > > #!/usr/bin/perl
> > > # conf.pm
> > > # configuration file two
> > > package conf;
> > > use strict;
> > > use vars qw($conf);
> > >
> > > # defined configure variable
> > > $conf =
> > >     {
> > >     # web name.
> > >     'web_name' => 'foo.com',
> > >      }
> > >
> > > =========================================================
> > > #!/usr/bin/perl
> > > # mycgi.pl
> > > use mymodule;
> > > my $m = mymodule->new();
> > > print $conf::conf->{'web_name'};
> > >
> > >
> > > ==========================================================
> > >
> >
> 
>