Hi :)
> Right, the axkit: URI scheme doesn't work with anything but
> latest CVS, unfortunately (and there may still be demons
> there - it's still really experimental).
Hm... It's very important feature - to do request with SAME apache request info. Same
BasicAuth info, same Cookies info, etc etc etc.
> > Also, Util module uses simple logic for uri parsing in
> > include-uri directive.... Probably will be good to add
> > there more logic as in WebUtils::redirect directive? (than
> > will be possible to include by not absolute URLs)
> Interesting idea - patches would be welcome.
Something like this? (Please review - I'm not sure, that $r->uri always returns
request_uri without hostname... I'm a novice in mod_perl actually...)
@@ -8,6 +8,7 @@
use Apache::File;
use XML::LibXML 1.31;
use Time::Piece; # overrides localtime
+use URI::WithBase;
use vars qw/@ISA $NS $VERSION/;
@@ -45,6 +46,10 @@
if ($uri =~ /^axkit:/) {
$raw_xml = AxKit::get_axkit_uri($uri);
} else {
+ my $r = Apache->request;
+ my $base = "http://"; . $r->hostname . ":" . $r->server->port . $r->uri;
+ $uri = URI::WithBase->new($uri, $base)->abs();
my $ua = HTTP::GHTTP->new($uri);
$ua->process_request;
$raw_xml = $ua->get_body;
Also - I looked at Apache::URI, but $r->parsed_uri object returns empty strings by
scheme/host requests... Very weird.
(again.... Is it possible that axkit: scheme will work later? :) ..)
Sincerely,
Alex.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
