Return to LONCAPA.pm CVS log | Up to [LON-CAPA] / loncom |
version 1.33, 2011/11/07 20:05:52 | version 1.34, 2013/02/08 14:49:51 |
---|---|
Line 138 sub tempdir { | Line 138 sub tempdir { |
return $result; | 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; | |
} | |
#---------------------------------------------------------------------- | #---------------------------------------------------------------------- |
# | # |