--- loncom/LONCAPA.pm	2011/11/07 20:05:52	1.33
+++ loncom/LONCAPA.pm	2013/02/08 14:49:51	1.34
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Base routines
 #
-# $Id: LONCAPA.pm,v 1.33 2011/11/07 20:05:52 www Exp $
+# $Id: LONCAPA.pm,v 1.34 2013/02/08 14:49:51 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -138,6 +138,16 @@ sub tempdir {
     return $result;
 }
 
+# Return the Linux distro where this LON-CAPA instance is running
+
+sub distro {
+    my $distro;
+    if (open(PIPE,"/home/httpd/perl/distprobe |")) {
+        $distro = <PIPE>;
+        close(PIPE);
+    }
+    return $distro;
+}
 
 #----------------------------------------------------------------------
 #