--- loncom/lonnet/perl/lonnet.pm	2003/02/03 18:03:53	1.323
+++ loncom/lonnet/perl/lonnet.pm	2003/02/10 20:03:13	1.324
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.323 2003/02/03 18:03:53 harris41 Exp $
+# $Id: lonnet.pm,v 1.324 2003/02/10 20:03:13 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -827,6 +827,14 @@ sub ssi {
     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
 
 sub tokenwrapper {