--- loncom/apachereload	2003/09/30 10:06:48	1.1
+++ loncom/apachereload	2006/01/27 21:21:05	1.5
@@ -3,21 +3,30 @@
 #
 # apachereload - setuid script that reloads the apache daemon.
 #
+# $Id: apachereload,v 1.5 2006/01/27 21:21:05 albertel Exp $
 #
-# $Id
+# Copyright Michigan State University Board of Trustees
 #
-#  Change log:
-#   $Log: apachereload,v $
-#   Revision 1.1  2003/09/30 10:06:48  foxr
-#   This is a setuid script that allows the www user to issue
-#   /etc/init.d/httpd reload
+# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
 #
-#   This functionality is required by lond and lonc when they have been asked to
-#   reinitialize themselves.
+# LON-CAPA is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or 
+# (at your option) any later version.
 #
-#   Initial undebugged version.
+# LON-CAPA is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with LON-CAPA; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+# /home/httpd/html/adm/gpl.txt
+#
+# http://www.lon-capa.org/
 #
-###
 
 
 use strict;
@@ -33,6 +42,15 @@ delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}
 
 my $command = "/etc/init.d/httpd reload";
 
+use lib '/home/httpd/lib/perl/';
+use LONCAPA::Configuration;
+my %perlvar= %{&LONCAPA::Configuration::read_conf('loncapa.conf')};
+
+my $execdir = ($perlvar{'lonDaemons'} =~/(.*)/);
+my $dist=`$execdir/distprobe`;
+if ($dist =~ /^(suse|sles)/) {
+    $command = "/etc/init.d/apache reload";
+}
 # Do not print error messages
 my $noprint=1;