your right - sorry.
i hadn't tried it - i was reading Apache Modules and did not
read it correctly.
i also tried variations of Apache::URI parse to get a hostname,
but that did not seem to work on my development server. it is
back several revs however.
cliff
Hello wrote:
> thanks a lot. but, does the_request() contain the host part (ie.
> 123.99.88.77 for my case) of entered URL? it seems to contain only
> method, uri, and protocol only. huang-ming----- Original Message
> -----From: ___cliff rayman___ <[EMAIL PROTECTED]>To: Hello!
> <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>Sent: Thursday, June
> 01, 2000 8:24 AMSubject: Re: %udat persistence problem...S.O.S. > you
> might want to try:
> >
> > my $therequest=$r->the_request;
> > my($host,$uri) = $therequest=~m!http://([^/]+)(.*))!;
> > unless($host=~m!xyz\.com!){
> > $r->content_type('text/html');
> > $r->header_out(Location => "http://www.xyz.com$uri");
> > return REDIRECT;
> > }
> >
> > you can probably also get mod_rewrite to do this for you very easily
> as
> > well.
> >
> >
> > --
> > ___cliff [EMAIL PROTECTED]
> >
> > "Hello!" wrote:
> >
> > > sirs, i met a problem on EMBPERL_COOKIE_DOMAIN, which i set it to
> > > "xyz.com" for example. the IP address of my www.xyz.com is
> > > 123.99.88.77. %udat fails to be persistent if the URL entered in
> > > browser's Location box is http://123.99.88.77, very possibly
> because
> > > the domain part is "99.88.77" which is different from "xyz.com" i
> set
> > > for EMBPERL_COOKIE_DOMAIN so that the browser won't return the
> cookie
> > > EMBPERL_UID. i uncomment PerlSetEnv EMBPERL_COOKIE_DOMAIN but it
> still
> > > not work. or, how can i know entered URL is 123.99.88.77 (not
> > > SERVER_NAME) so that i can redirect the browser to www.xyz.com? is
>
> > > there any elegant remedy for such kind of user
> > > ignorance? thanks.huang-ming
> > >
> > > ----- Original Message -----
> > > From: Gerald Richter
> > > To: Hello ; Embperl@Perl. Apache. Org
> > > Sent: Friday, May 12, 2000 2:04 PM
> > > Subject: RE: %udat persistence problem...S.O.S.
> > >
> > >
> > > I'm sorry I didn't read the mailing list, because
> > > I don't know how to get the list.
> > >
> > > Look at
> > >
> http://perl.apache.org/embperl/Embperl.pod.15.html#Feedback_and_Bug_ReportsGerald
>
> > >
> > >
> > >
> >
> >
> >
> >
> >
--
___cliff [EMAIL PROTECTED]
