--- loncom/lonnet/perl/lonnet.pm	2003/02/13 22:22:01	1.329
+++ loncom/lonnet/perl/lonnet.pm	2003/02/20 22:04:18	1.331
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.329 2003/02/13 22:22:01 matthew Exp $
+# $Id: lonnet.pm,v 1.331 2003/02/20 22:04:18 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -804,6 +804,18 @@ sub repcopy {
     }
 }
 
+# ------------------------------------------------ Get server side include body
+sub ssi_body {
+    my $filelink=shift;
+    my $output=($filelink=~/^http\:/?&externalssi($filelink):
+                                     &ssi($filelink));
+    $output=~s/^.*\<body[^\>]*\>//si;
+    $output=~s/\<\/body\s*\>.*$//si;
+    $output=~
+            s/\/\/ BEGIN LON\-CAPA Internal.+\/\/ END LON\-CAPA Internal\s//gs;
+    return $output;
+}
+
 # --------------------------------------------------------- Server Side Include
 
 sub ssi {