version 1.323, 2003/02/03 18:03:53
|
version 1.324, 2003/02/10 20:03:13
|
Line 827 sub ssi {
|
Line 827 sub ssi {
|
return $response->content; |
return $response->content; |
} |
} |
|
|
|
sub externalssi { |
|
my ($url)=@_; |
|
my $ua=new LWP::UserAgent; |
|
my $request=new HTTP::Request('GET',$url); |
|
my $response=$ua->request($request); |
|
return $response->content; |
|
} |
|
|
# ------- Add a token to a remote URI's query string to vouch for access rights |
# ------- Add a token to a remote URI's query string to vouch for access rights |
|
|
sub tokenwrapper { |
sub tokenwrapper { |